Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comuprb +++| #
00002 M01S00002.comuprb +++| CTEXT COMUPRB - *PROBE* UTILITY BUFFER DEFINITIONS.
00003 M01S00003.comuprb +++| #
00004 M01S00004.comuprb +++| CONTROL NOLIST;
00005 M01S00005.comuprb +++| CONTROL IFEQ LISTCON,1;
00006 M01S00006.comuprb +++| CONTROL LIST;
00007 M01S00007.comuprb +++| CONTROL FI;
00008 M01S00008.comuprb +++|
00009 M01S00009.comuprb +++| BEGIN # COMUPRB #
00010 M01S00010.comuprb +++| #
00011 M01S00011.comuprb +++|*** COMUPRB - *PROBE* UTILITY BUFFER DEFINITIONS.
00012 M01S00001.281l803 +++|*
00013 M01S00002.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00014 M01S00012.comuprb +++|*
00015 M01S00013.comuprb +++|* *COMUPRB* DEFINES BUFFERS THAT ARE REQUIRED BY THE
00016 M01S00014.comuprb +++|* *SYMPL/COMPASS* ROUTINES OF THE *PROBE* UTILITY.
00017 M01S00015.comuprb +++|* THESE AREAS INCLUDE BLANK COMMON AND ANY LABELED
00018 M01S00016.comuprb +++|* COMMON BLOCKS.
00019 M01S00017.comuprb +++|
00020 M01S00018.comuprb +++|
00021 M01S00019.comuprb +++|
00022 M01S00020.comuprb +++|* ADDRESSES AND THE DEFAULT VALUES FOR THE *PROBE*
00023 M01S00021.comuprb +++|* CONTROL STATEMENT ARE DEFINED.
00024 M01S00022.comuprb +++|
00025 M01S00023.comuprb +++| USE /CCARG/
00026 M01S00024.comuprb +++|
00027 M01S00025.comuprb +++| P DATA 0LSTATS BINARY FILE NAME TO READ
00028 M01S00026.comuprb +++| L DATA 0LOUTPUT OUTPUT FILE NAME
00029 M01S00027.comuprb +++| B DATA 0LSTATS BINARY FILE NAME TO WRITE
00030 M01S00028.comuprb +++| R DATA 0 REWIND OPTION
00031 M01S00029.comuprb +++| OP DATA 0LP PROCESSING OPTION
00032 M01S00030.comuprb +++| LO DATA 0LF SORT OPTION
00033 M01S00031.comuprb +++| USE
00034 M01S00032.comuprb +++|
00035 M01S00033.comuprb +++|* RELATIVE WORD POSITIONING OF THE PROCESSED PARAMETERS
00036 M01S00034.comuprb +++|* IS ENSURED IF NO ASSEMBLY ERRORS OCCUR.
00037 M01S00035.comuprb +++| #
00038 M01S00036.comuprb +++|
00039 M01S00037.comuprb +++|#P #DEF# P # P$ #0#; # *P* #
00040 M01S00038.comuprb +++|#L #DEF# L # L$ #1#; # *L* #
00041 M01S00039.comuprb +++|#B #DEF# B # B$ #2#; # *B* #
00042 M01S00040.comuprb +++|#R #DEF# R # R$ #3#; # *R* #
00043 M01S00041.comuprb +++|#OP #DEF# OP # OP$ #4#; # *OP* #
00044 M01S00042.comuprb +++|#LO #DEF# LO # LO$ #5#; # *LO* #
00045 M01S00043.comuprb +++|
00046 M01S00044.comuprb +++| #
00047 M01S00045.comuprb +++|** THE FOLLOWING MICRO DEFINITIONS ARE NECESSARY TO AVOID
00048 M01S00046.comuprb +++|* *COMPASS* ASSEMBLY ERRORS WHEN PROCESSING THE *SYMPL*
00049 M01S00047.comuprb +++|* PORTION OF THIS COMMON DECK.
00050 M01S00048.comuprb +++|
00051 M01S00049.comuprb +++|
00052 M01S00050.comuprb +++| 20 MICRO 1,,20
00053 M01S00001.271l716 +++| 30 MICRO 1,,30
00054 M01S00051.comuprb +++| 2001 MICRO 1,,2001
00055 M01S00052.comuprb +++|
00056 M01S00053.comuprb +++|
00057 M01S00054.comuprb +++| COL 12
00058 M01S00055.comuprb +++| #
00059 M01S00056.comuprb +++|
00060 M01S00057.comuprb +++| #
00061 M01S00058.comuprb +++|* THE ARRAY *ARG* IS USED BY *SYMPL* ROUTINES TO
00062 M01S00059.comuprb +++|* ACCESS THE PROCESSED CONTROL CARD ARGUMENTS. THE
00063 M01S00060.comuprb +++|* RELATIVE WORD POSTIONS ARE DESCRIBED ABOVE.
00064 M01S00061.comuprb +++| #
00065 M01S00062.comuprb +++|
00066 M01S00063.comuprb +++| COMMON CCARG;
00067 M01S00064.comuprb +++| BEGIN # ARG #
00068 M01S00065.comuprb +++| ARRAY ARG [0:0] S(6);
00069 M01S00066.comuprb +++| BEGIN
00070 M01S00067.comuprb +++| ITEM ARG$P C(P$,00,07); # BINARY FILE NAME #
00071 M01S00068.comuprb +++| ITEM ARG$L C(L$,00,07); # OUTPUT FILE NAME #
00072 M01S00069.comuprb +++| ITEM ARG$B C(B$,00,07); # BINARY FILE NAME #
00073 M01S00070.comuprb +++| ITEM ARG$R C(R$,00,01); # REWIND OPTION #
00074 M01S00071.comuprb +++| ITEM ARG$OP C(OP$,00,01); # PROCESSING OPTION #
00075 M01S00072.comuprb +++| ITEM ARG$LO C(LO$,00,01); # SORT OPTION #
00076 M01S00073.comuprb +++| END
00077 M01S00074.comuprb +++| END # ARG #
00078 M01S00075.comuprb +++|
00079 M01S00076.comuprb +++| #
00080 M01S00077.comuprb +++|* ARRAY AND BUFFER DEFINITIONS.
00081 M01S00078.comuprb +++| #
00082 M01S00079.comuprb +++|
| Line S00080 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00083 M02S00080.251l664 ---| DEF CBUFL #O"2001"#; # LENGTH OF *CIO* CIRCULAR
| Line S00081 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00084 M02S00081.251l664 ---| BUFFER #
| Line S00082 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00085 M02S00082.251l664 ---| DEF PBUFL #O"2001"#; # LENGTH OF *PROBE* DATA TABLE
| Line S00083 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00086 M02S00083.251l664 ---| BUFFER #
| Line S00084 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00087 M02S00084.251l664 ---| DEF SBUFL #O"20"#; # LENGTH OF STATISTICAL DATA
| Line S00085 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00088 M02S00085.251l664 ---| BUFFER #
| Line S00086 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00089 M02S00086.251l664 ---| DEF VBUFL #O"20"#; # LENGTH OF VERSION BUFFER #
| Line S00087 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00090 M02S00087.251l664 ---|
| Line S00088 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00091 M02S00088.251l664 ---|
| Line S00089 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00092 M02S00089.251l664 ---| DEF VRSN #0#; # VERSION TABLE INDEX #
| Line S00090 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | v23l617 |
M03 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00093 M03S00090.251l664 ---| DEF SDAL #1#; # STATISTICAL DATA TABLE INDEX #
| Line S00001 Modification History |
M01 (Added by) | v23l617 |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00094 M02S00001.251l664 ---| DEF SDA #1#; # STATISTICAL DATA TABLE INDEX #
| Line S00091 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00095 M02S00091.251l664 ---| DEF PROBE #2#; # *PROBE* DATA TABLE INDEX #
00096 M01S00001.251l664 +++| DEF CBUFL #O"2001"#; # *CIO* CIRCULAR BUFFER LENGTH #
00097 M01S00002.251l664 +++| DEF IBUFL #O"2001"#; # I/O STATISTICS BUFFER LENGTH #
00098 M01S00003.251l664 +++| DEF PBUFL #O"2001"#; # *PROBE* DATA TABLE LENGTH #
| Line S00004 Modification History |
M01 (Added by) | 251l664 |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00099 M02S00004.271l716 ---| DEF SBUFL #O"20"#; # STATISTICAL DATA BUFFER LENGTH #
00100 M01S00002.271l716 +++| DEF SBUFL #O"30"#; # STATISTICAL DATA BUFFER LENGTH #
00101 M01S00005.251l664 +++| DEF VBUFL #O"20"#; # VERSION BUFFER LENGTH #
00102 M01S00006.251l664 +++|
00103 M01S00007.251l664 +++| DEF VRSN #0#; # VERSION TABLE INDEX #
00104 M01S00008.251l664 +++| DEF IOS #1#; # I/O STATISTICS TABLE INDEX #
00105 M01S00009.251l664 +++| DEF SDA #2#; # STATISTICAL DATA TABLE INDEX #
00106 M01S00010.251l664 +++| DEF PROBE #3#; # *PROBE* DATA TABLE INDEX #
00107 M01S00092.comuprb +++|
00108 M01S00093.comuprb +++|
00109 M01S00094.comuprb +++| #
00110 M01S00095.comuprb +++|* *SFM* CALL PARAMETER BLOCK CONTAINS THE
| Line S00096 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00111 M02S00096.v23l617 ---|* VERSION, *SDAL*, AND *PROBE* PARAMETERS FOR
00112 M01S00002.v23l617 +++|* VERSION, STATISTICAL, AND *PROBE* PARAMETERS FOR
00113 M01S00097.comuprb +++|* *SFM* AND IS TERMINATED BY A ZERO WORD.
00114 M01S00098.comuprb +++| #
00115 M01S00099.comuprb +++|
00116 M01S00100.comuprb +++| COMMON SFMBLOC;
00117 M01S00101.comuprb +++| BEGIN # SFMBLOC #
| Line S00102 Modification History |
M01 (Added by) | comuprb |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00118 M02S00102.251l664 ---| ARRAY SFMBLOCK [0:3] S(1);
00119 M01S00011.251l664 +++| ARRAY SFMBLOCK [0:4] S(1);
00120 M01S00103.comuprb +++| BEGIN
00121 M01S00104.comuprb +++| ITEM SFM$AVBL B(00,00,01); # AVAILABILITY #
00122 M01S00105.comuprb +++| ITEM SFM$SFNC I(00,01,11); # FUNCTION CODE #
00123 M01S00106.comuprb +++| ITEM SFM$RDWR I(00,12,12); # READ WITH RECALL #
00124 M01S00107.comuprb +++| ITEM SFM$LEN I(00,24,12); # BUFFER LENGTH #
00125 M01S00108.comuprb +++| ITEM SFM$BUFF I(00,42,18); # FWA OF BUFFER #
00126 M01S00109.comuprb +++| END
00127 M01S00110.comuprb +++|
00128 M01S00111.comuprb +++| END # SFMBLOC #
00129 M01S00112.comuprb +++|
00130 M01S00113.comuprb +++| #
00131 M01S00114.comuprb +++|* BLANK COMMON IS USED TO DEFINE THE DATA BUFFER
00132 M01S00115.comuprb +++|* AREA. IT SETS UP THE TABLE BREAK DOWNS WITHIN
00133 M01S00116.comuprb +++|* THE BUFFER.
00134 M01S00117.comuprb +++| #
00135 M01S00118.comuprb +++|
00136 M01S00119.comuprb +++|
00137 M01S00120.comuprb +++| COMMON
00138 M01S00121.comuprb +++| BEGIN # BLANK COMMON DEFINITIONS #
00139 M01S00122.comuprb +++|
00140 M01S00123.comuprb +++| #
00141 M01S00124.comuprb +++|* THE BUFFER AREA DEFINITIONS.
00142 M01S00125.comuprb +++| #
00143 M01S00126.comuprb +++|
00144 M01S00127.comuprb +++| ARRAY CBUF [0:0] S(CBUFL);; # *CIO* CIRCULAR BUFFER #
00145 M01S00012.251l664 +++| ARRAY IBUF [0:0] S(IBUFL);; # I/O STATISTICS BUFFER #
00146 M01S00128.comuprb +++| ARRAY SBUF [0:0] S(SBUFL);; # STATISTICAL BUFFER #
00147 M01S00129.comuprb +++| ARRAY PBUF [0:PBUFL] S(1);; # *PROBE* TABLE BUFFER #
00148 M01S00130.comuprb +++| ARRAY VBUF [0:0] S(VBUFL); # VERSION BUFFER #
00149 M01S00131.comuprb +++| BEGIN
00150 M01S00132.comuprb +++| ITEM VBUF$CLOCK C(00,00,10); # PACKED TIME #
00151 M01S00133.comuprb +++| ITEM VBUF$DATE C(01,00,10); # PACKED DATE #
00152 M01S00134.comuprb +++| ITEM VBUF$VRSN C(02,00,30); # PROBE VERSION #
00153 M01S00135.comuprb +++| END
00154 M01S00136.comuprb +++|
00155 M01S00137.comuprb +++| #
00156 M01S00138.comuprb +++|* THE *FET* DEFINITIONS.
00157 M01S00139.comuprb +++| #
00158 M01S00140.comuprb +++|
00159 M01S00141.comuprb +++| ARRAY OUTFET [0:0] S(RFETL);; # OUTPUT FET#
00160 M01S00142.comuprb +++| ARRAY BFET [0:0] S(RFETL);; # BINARY FILE FET #
00161 M01S00143.comuprb +++| ARRAY INFET [0:0] S(RFETL);; # INPUT FET #
00162 M01S00144.comuprb +++| END # BLANK COMMON DEFINITIONS #
00163 M01S00145.comuprb +++|
00164 M01S00146.comuprb +++| #
00165 M01S00147.comuprb +++|* DEFINITION OF FUNCTIONS FROM *TFTN* WHICH ARE
00166 M01S00148.comuprb +++|* SET IN THE ARRAY AT PRE SET.
00167 M01S00149.comuprb +++| #
00168 M01S00150.comuprb +++|
00169 M01S00151.comuprb +++| COMMON TFTNB;
00170 M01S00152.comuprb +++| BEGIN # TFTNB#
00171 M01S00153.comuprb +++| ARRAY TFTN [0:MXFM] S(1);
00172 M01S00154.comuprb +++| BEGIN
00173 M01S00155.comuprb +++| ITEM TFTN$TEXT C(00,00,04); # MONITOR REQUEST LABELS #
00174 M01S00156.comuprb +++| END
00175 M01S00157.comuprb +++| END # TFTNB #
00176 M01S00158.comuprb +++|
00177 M01S00159.comuprb +++| #
00178 M01S00160.comuprb +++|* VERSION TABLE FOR *PROBE*.
00179 M01S00161.comuprb +++| #
00180 M01S00162.comuprb +++|
00181 M01S00163.comuprb +++| COMMON VERS;
00182 M01S00164.comuprb +++| BEGIN
00183 M01S00165.comuprb +++| ITEM VERS$TIME C(10); # BUILD TIME OF THIS *PROBE* #
00184 M01S00166.comuprb +++| ITEM VERS$DATE C(10); # BUILD DATE OF THIS *PROBE* #
00185 M01S00167.comuprb +++| ITEM VERS$PVER C(30); # VERSION OF THIS *PROBE* #
00186 M01S00168.comuprb +++| END
00187 M01S00169.comuprb +++|
00188 M01S00170.comuprb +++| END # COMUPRB #
00189 M01S00171.comuprb +++| #
00190 M01S00172.comuprb +++| COL 30
00191 M01S00173.comuprb +++| ENDX #
00192 M01S00174.comuprb +++| CONTROL LIST;