cdc:nos2.source:opl.opl871:common:comuprb
Common COMUPRB
4 Modifications
Source
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;
cdc/nos2.source/opl.opl871/common/comuprb.txt · Last modified: by 127.0.0.1