cdc:nos2.source:opl.opl871:deck:listlb
Deck LISTLB
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.listlb ---| IDENT LISTLB,FETS 00002 M00S00002.listlb ---| ABS 00003 M00S00003.listlb ---| ENTRY LISTLB 00004 M00S00004.listlb ---| ENTRY RFL= 00005 M00S00005.listlb ---| ENTRY ARG= 00006 M00S00006.listlb ---| SYSCOM B1 00007 M00S00007.listlb ---|*COMMENT LISTLB - LIST MAGNETIC TAPE LABELS.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.listlb +++| TITLE LISTLB - LIST MAGNETIC TAPE LABELS. 00011 M00S00010.listlb +++| SPACE 4 00012 M00S00011.listlb +++|*** LISTLB - LIST MAGNETIC TAPE LABELS. 00013 M00S00012.listlb +++|* W. E. GOEBEL. 74/01/21. 00014 M00S00013.listlb +++|* R. L. MUELLER. 75/10/15. 00015 M00S00014.listlb +++|* L. C. HAAS. 76/09/21. RESEQUENCE. 00016 M00S00015.listlb +++| SPACE 4 00017 M00S00016.listlb +++|*** LISTLB READS ANSI LABELS ON A SPECIFIED TAPE FILE 00018 M00S00017.listlb +++|* AND LISTS THE DESIRED LABELS ON AN OUTPUT FILE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | listl1 |
Seq # *Modification Id* Act ----------------------------+ 00019 M01S00001.listl1 +++|* 00020 M01S00002.listl1 +++|* IF LISTLB IS ABORTED, THE OUTPUT BUFFER IS FLUSHED. 00021 M00S00018.listlb +++|*
| Line S00019 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00022 M01S00019.v23l617 ---|* CONTROL CARD CALL.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00023 M01S00001.v23l617 +++|* THE COMMAND. 00024 M00S00020.listlb +++|* 00025 M00S00021.listlb +++|* LISTLB(LFN,P1=VAL1,P2=VAL2,...,PN=VALN) 00026 M00S00022.listlb +++|* 00027 M00S00023.listlb +++|* ARGUMENT PARAMETERS. 00028 M00S00024.listlb +++|* 00029 M00S00025.listlb +++|* LFN NAME OF THE TAPE FILE. 00030 M00S00026.listlb +++|* 00031 M00S00027.listlb +++|* SI=SETID OR MULTI-FILE TAPE PARAMETER AND USED IN 00032 M00S00028.listlb +++|* M=SETID CONJUNCTION WITH THE QN(OR P) PARAMETER 00033 M00S00029.listlb +++|* AS FOLLOWS- 00034 M00S00030.listlb +++|* 1. SI .NE. 0 AND QN = 0 - LIST THE LABELS 00035 M00S00031.listlb +++|* OF ALL FILES IN THE MULTI-FILE SET 00036 M00S00032.listlb +++|* WITH SET IDENTIFIER = *SETID*. 00037 M00S00033.listlb +++|* 2. SI .NE. 0 AND QN = N - LIST ONLY THE 00038 M00S00034.listlb +++|* LABELS FOR FILE N OF THE MULTI-FILE SET.
| Line S00035 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00039 M01S00035.v23l617 ---|* 3. SI = 0 AND QN .NE. 0 - ILLEGAL COM-
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00040 M01S00002.v23l617 +++|* 3. SI = 0 AND QN .NE. 0 - INCORRECT COM- 00041 M00S00036.listlb +++|* BINATION - JOB WILL BE ABORTED. 00042 M00S00037.listlb +++|* 00043 M00S00038.listlb +++|* QN=SEQNO OR MULTI-FILE TAPE PARAMETER AND USED IN 00044 M00S00039.listlb +++|* P=SEQNO CONJUNCTION WITH THE SI(OR M) PARAMETER. 00045 M00S00040.listlb +++|* (SEE ABOVE) 00046 M00S00041.listlb +++|* 00047 M00S00042.listlb +++|* LO=AROVHFEU A - LIST ALL LABELS. 00048 M00S00043.listlb +++|* R - LIST ALL REQUIRED LABELS. 00049 M00S00044.listlb +++|* VOL1,HDR1,EOF1,EOV1. 00050 M00S00045.listlb +++|* O - LIST ALL OPTIONAL LABELS. 00051 M00S00046.listlb +++|* VOL2-9,HDR2-9,EOF2-9,EOV2-9, 00052 M00S00047.listlb +++|* UVLN,UHLX,UTLX. 00053 M00S00048.listlb +++|* V - LIST ALL VOLN LABELS. 00054 M00S00049.listlb +++|* H - LIST ALL HDRN LABELS. 00055 M00S00050.listlb +++|* F - LIST ALL EOFN LABELS. 00056 M00S00051.listlb +++|* E - LIST ALL EOVN LABELS. 00057 M00S00052.listlb +++|* U - LIST ALL UVL,UHL,UTL LABELS. 00058 M00S00053.listlb +++|* 00059 M00S00054.listlb +++|* L=FILENAM LIST LABELS ON FILE FILENAM. 00060 M00S00055.listlb +++|* 00061 M00S00056.listlb +++|* DEFAULTS LFN = TAPE 00062 M00S00057.listlb +++|* LO = A 00063 M00S00058.listlb +++|* L = OUTPUT 00064 M00S00059.listlb +++| SPACE 10 00065 M00S00060.listlb +++|*** DAYFILE MESSAGES. 00066 M00S00061.listlb +++|*
| Line S00062 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00067 M01S00062.v23l617 ---|* * CONTROL CARD ERROR.* = UNABLE TO INTERPRET CONTROL CARD.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00068 M01S00003.v23l617 +++|* * COMMAND ERROR.* = UNABLE TO INTERPRET COMMAND. 00069 M00S00063.listlb +++|* 00070 M00S00064.listlb +++|* * FILE NAME ERROR.* = FILE NAME IS TOO LONG. 00071 M00S00065.listlb +++|*
| Line S00066 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00072 M01S00066.v23l617 ---|* * ILLEGAL PARAMETER.* = PARAMETER IS IN ERROR.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00073 M01S00004.v23l617 +++|* * INCORRECT PARAMETER.* = PARAMETER IS IN ERROR. 00074 M00S00067.listlb +++|*
| Line S00068 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00068.v23l617 ---|* * ILLEGAL COMBINATION OF QN/SI.* = PLEASE SPECIFY A *SETID*.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00076 M01S00005.v23l617 +++|* * INCORRECT COMBINATION OF QN/SI.* = PLEASE SPECIFY *SETID*. 00077 M00S00069.listlb +++|* 00078 M00S00070.listlb +++|* * LISTLB ABORT.* = CHECK DAYFILE FOR REASON. 00079 M00S00071.listlb +++|* 00080 M00S00072.listlb +++|* * NO HDR1 LABEL RETURNED ON OPEN.* = NOTIFY CDC ANALYST. 00081 M00S00073.listlb +++|* 00082 M00S00074.listlb +++|* * LISTLB COMPLETE.* 00083 M00S00075.listlb +++| TITLE ASSEMBLY CONSTANTS AND FETS. 00084 M00S00076.listlb +++| 00085 M00S00077.listlb +++|*CALL COMCMAC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00086 M01S00001.ns22000 +++|*CALL COMCCMD 00087 M00S00078.listlb +++| 00088 M00S00079.listlb +++|**** ASSEMBLY CONSTANTS. 00089 M00S00080.listlb +++| 00090 M00S00081.listlb +++| 00091 M00S00082.listlb +++| TBUFL EQU 1*9+9*9+9*9+64*9+1 00092 M00S00083.listlb +++| OBUFL EQU 1001B 00093 M00S00084.listlb +++| 00094 M00S00085.listlb +++| 00095 M00S00086.listlb +++|**** 00096 M00S00087.listlb +++| 00097 M00S00088.listlb +++| ORG 110B 00098 M00S00089.listlb +++| 00099 M00S00090.listlb +++|* FETS. 00100 M00S00091.listlb +++| 00101 M00S00092.listlb +++| FETS BSS 0 00102 M00S00093.listlb +++| 00103 M00S00094.listlb +++| T BSS 0 TAPE FILE 00104 M00S00095.listlb +++| TAPE FILEB TBUF,TBUFL,(FET=10),XL,UPR 00105 M00S00096.listlb +++| 00106 M00S00097.listlb +++| O BSS 0 LIST FILE 00107 M00S00098.listlb +++| OUTPUT FILEB OBUF,OBUFL,(FET=8) 00108 M00S00099.listlb +++| TITLE MAIN ROUTINE. 00109 M00S00100.listlb +++| LISTLB SPACE 4 00110 M00S00101.listlb +++|** LISTLB - MAIN ROUTINE. 00111 M00S00102.listlb +++| 00112 M00S00103.listlb +++| 00113 M00S00104.listlb +++| LISTLB BSS 0 00114 M00S00105.listlb +++| RJ PRS 00115 M00S00106.listlb +++| MX6 0 CLEAR XL BUFFER 00116 M00S00107.listlb +++| SA6 TBUF 00117 M00S00108.listlb +++| SA1 QN 00118 M00S00109.listlb +++| NZ X1,LIS1 IF MULTI-FILE AND 1 FILE WANTED 00119 M00S00110.listlb +++| OPEN T,ALTER,R OPEN FILE - GET HEADER GROUP LABELS 00120 M00S00111.listlb +++| SA1 SI CHECK FOR MULTI-FILE 00121 M00S00112.listlb +++| ZR X1,LIS2 IF NOT MULTI-FILE TAPE 00122 M00S00113.listlb +++| RJ FHR FIND *HDR1* LABEL 00123 M00S00114.listlb +++| SA1 TBUF+B2+4 GET FILE SEQUENCE NUMBER 00124 M00S00115.listlb +++| MX0 24 00125 M00S00116.listlb +++| LX1 6 00126 M00S00117.listlb +++| BX5 X0*X1 00127 M00S00118.listlb +++| SB7 B1 00128 M00S00119.listlb +++| RJ DXB CONVERT TO BINARY 00129 M00S00120.listlb +++| SA6 SN 00130 M00S00121.listlb +++| EQ LIS2 PRINT LABELS FROM XL BUFFER 00131 M00S00122.listlb +++| 00132 M00S00123.listlb +++| LIS1 RJ SHD SET UP *HDR1* LABEL IN EXTENDED BUFFER 00133 M00S00124.listlb +++| MX2 1 CLEAR *UP* BIT TO ALLOW AUTO REEL SWAP 00134 M00S00125.listlb +++| SA1 T+1 00135 M00S00126.listlb +++| LX2 45+1 00136 M00S00127.listlb +++| BX6 -X2*X1 00137 M00S00128.listlb +++| SA6 A1 00138 M00S00129.listlb +++| SA1 T+1 SET *EPR* BIT IN FET 00139 M00S00130.listlb +++| MX6 1 00140 M00S00131.listlb +++| LX6 44-59 SET EPR BIT 00141 M00S00132.listlb +++| BX6 X6+X1 00142 M00S00133.listlb +++| SA6 A1 STORE BACK IN FET 00143 M00S00134.listlb +++| POSMF T,R POSITION FILE - GET HEADER LABELS 00144 M00S00135.listlb +++| SA1 T+1 CLEAR *EPR* BIT IN FET 00145 M00S00136.listlb +++| MX6 1 00146 M00S00137.listlb +++| LX6 44-59 CLEAR EPR BIT 00147 M00S00138.listlb +++| BX6 -X6*X1 00148 M00S00139.listlb +++| SA6 A1 STORE BACK IN FET 00149 M00S00140.listlb +++| SA1 A1-B1 CHECK FET STATUS 00150 M00S00141.listlb +++| AX1 9 00151 M00S00142.listlb +++| MX2 -5 00152 M00S00143.listlb +++| BX1 -X2*X1 GET FET STATUS BITS 13-9 00153 M00S00144.listlb +++| SX2 X1-21B CHECK FOR END-OF-SET 00154 M00S00145.listlb +++| ZR X2,LIS5 IF END-OF-MULTIFILE SET 00155 M00S00146.listlb +++| NZ X1,LIS6 IF ANY OTHER ERROR 00156 M00S00147.listlb +++| MX2 1 NOW RESET *UP* BIT 00157 M00S00148.listlb +++| SA1 T+1 00158 M00S00149.listlb +++| LX2 45+1 00159 M00S00150.listlb +++| BX6 X1+X2 00160 M00S00151.listlb +++| SA6 A1 00161 M00S00152.listlb +++| LIS2 RJ PXL PRINT LABELS FROM XL BUFFER 00162 M00S00153.listlb +++| SA1 TF 00163 M00S00154.listlb +++| ZR X1,LIS4 IF IGNORE TRAILER LABELS 00164 M00S00155.listlb +++| SKIPEI T,R SKIP TO EOI 00165 M00S00156.listlb +++| SX5 TBUF-9 00166 M00S00157.listlb +++| SA1 T CHECK FOR END-OF-REEL 00167 M00S00158.listlb +++| LX1 59-10 00168 M00S00159.listlb +++| PL X1,LIS3 IF NOT AT END-OF-REEL 00169 M00S00160.listlb +++| CLOSER T,,R CLOSE REEL - GET TRAILER LABELS 00170 M00S00161.listlb +++| RJ PXL PRINT LABELS FROM XL BUFFER 00171 M00S00162.listlb +++| OPEN T,REELNR,R OPEN NEXT REEL - GET HEADER LABELS 00172 M00S00163.listlb +++| EQ LIS2 00173 M00S00164.listlb +++| 00174 M00S00165.listlb +++| LIS3 CLOSE T,NR,R CLOSE FILE - GET TRAILER LABELS 00175 M00S00166.listlb +++| RJ PXL PRINT LABELS FROM XL BUFFER 00176 M00S00167.listlb +++| LIS4 SA1 SI CHECK FOR SETID 00177 M00S00168.listlb +++| ZR X1,LIS5 IF NO SET ID SPECIFIED 00178 M00S00169.listlb +++| SA1 QN NUMBER OF DESIRED FILE 00179 M00S00170.listlb +++| NZ X1,LIS5 IF ONLY ONE FILE WANTED 00180 M00S00171.listlb +++| SA1 SN INCREMENT SEQUENCE NUMBER 00181 M00S00172.listlb +++| SX6 X1+1 00182 M00S00173.listlb +++| SA6 A1 00183 M00S00174.listlb +++| EQ LIS1 GO PROCESS MORE LABELS 00184 M00S00175.listlb +++| 00185 M00S00176.listlb +++| LIS5 SA1 LR LABELS READ 00186 M00S00177.listlb +++| RJ CDD 00187 M00S00178.listlb +++| SA6 LBR 00188 M00S00179.listlb +++| SA1 LP LABELS PRINTED 00189 M00S00180.listlb +++| RJ CDD 00190 M00S00181.listlb +++| SA6 LBP 00191 M00S00182.listlb +++| WRITEW O,LRP,LRPL 00192 M00S00183.listlb +++| WRITER X2 00193 M00S00184.listlb +++| SA1 EF 00194 M00S00185.listlb +++| NZ X1,LIS7 IF ERROR FLAG SET 00195 M00S00186.listlb +++| MESSAGE (=C* LISTLB COMPLETE.*) 00196 M00S00187.listlb +++| ENDRUN 00197 M00S00188.listlb +++| 00198 M00S00189.listlb +++|* ENTER HERE AFTER ERROR CONDITION 00199 M00S00190.listlb +++| 00200 M00S00191.listlb +++| LIS6 SX6 B1 SET ERROR FLAG 00201 M00S00192.listlb +++| SA6 EF 00202 M00S00193.listlb +++| EQ LIS5 00203 M00S00194.listlb +++| 00204 M00S00195.listlb +++| LIS7 MESSAGE (=C* LISTLB ABORT.*) 00205 M00S00196.listlb +++| ABORT 00206 M00S00197.listlb +++| TITLE SUBROUTINES. 00207 M00S00198.listlb +++|** COV - CONVERT OCTAL NUMBER TO DECIMAL DISPLAY CODE 00208 M00S00199.listlb +++|* 00209 M00S00200.listlb +++|* ENTRY (X1) = OCTAL NUMBER. 00210 M00S00201.listlb +++|* 00211 M00S00202.listlb +++|* EXIT (X6) = DISPLAY CODE VALUE RIGHT JUSTIFIED WITH 00212 M00S00203.listlb +++|* LEADING ZEROS (4 DIGITS ONLY). 00213 M00S00204.listlb +++|* 00214 M00S00205.listlb +++|* USES X - 0, 1, 2, 3, 6. 00215 M00S00206.listlb +++|* B - 4. 00216 M00S00207.listlb +++|* A - NONE. 00217 M00S00208.listlb +++|* 00218 M00S00209.listlb +++|* CALLS CDD. 00219 M00S00210.listlb +++| 00220 M00S00211.listlb +++| 00221 M00S00212.listlb +++| COV SUBR ENTRY/EXIT 00222 M00S00213.listlb +++| RJ CDD CONVERT VALUE TO DISPLAY CODE 00223 M00S00214.listlb +++| LX6 36 00224 M00S00215.listlb +++| BX1 X6 00225 M00S00216.listlb +++| MX6 0 00226 M00S00217.listlb +++| MX2 -6 00227 M00S00218.listlb +++| SB4 4 00228 M00S00219.listlb +++| COV1 LX6 6 00229 M00S00220.listlb +++| LX1 6 00230 M00S00221.listlb +++| BX3 -X2*X1 MASK OFF A CHARACTER 00231 M00S00222.listlb +++| SX0 X3-1R CHECK FOR SPACE (BLANK) 00232 M00S00223.listlb +++| NZ X0,COV2 IF NO SPACE 00233 M00S00224.listlb +++| SX3 1R0 REPLACE WITH 0 00234 M00S00225.listlb +++| COV2 BX6 X6+X3 00235 M00S00226.listlb +++| SB4 B4-B1 00236 M00S00227.listlb +++| NZ B4,COV1 IF MORE CHARACTERS TO DO 00237 M00S00228.listlb +++| EQ COVX RETURN 00238 M00S00229.listlb +++| FHR SPACE 4,10 00239 M00S00230.listlb +++|** FHR - SEARCH LABEL BUFFER FOR *HDR1* LABEL. 00240 M00S00231.listlb +++|* 00241 M00S00232.listlb +++|* ENTRY TBUF CONTAINS HEADER GROUP LABELS. 00242 M00S00233.listlb +++|* 00243 M00S00234.listlb +++|* EXIT (B2) = INDEX IN TBUF OF *HDR1* LABEL. 00244 M00S00235.listlb +++|* 00245 M00S00236.listlb +++|* USES X - 0, 1, 2, 3. 00246 M00S00237.listlb +++|* B - 2, 7. 00247 M00S00238.listlb +++|* A - 1, 2, 3. 00248 M00S00239.listlb +++| 00249 M00S00240.listlb +++| 00250 M00S00241.listlb +++| FHR SUBR ENTRY/EXIT 00251 M00S00242.listlb +++| SB2 B0 00252 M00S00243.listlb +++| MX0 24 00253 M00S00244.listlb +++| SA3 =4LHDR1 00254 M00S00245.listlb +++| FHR1 SA1 TBUF+B2 GET CHARACTER COUNT 00255 M00S00246.listlb +++| MX2 -12 00256 M00S00247.listlb +++| BX1 -X2*X1 00257 M00S00248.listlb +++| ZR X1,FHR2 IF NO *HDR1* LABEL 00258 M00S00249.listlb +++| SA2 A1+B1 GET LABEL ID 00259 M00S00250.listlb +++| BX2 X0*X2 00260 M00S00251.listlb +++| BX2 X2-X3 CHECK IF *HDR1* 00261 M00S00252.listlb +++| ZR X2,FHRX IF FOUND *HDR1* LABEL 00262 M00S00253.listlb +++| SX1 X1+9 CALCULATE WORD COUNT OF LABEL 00263 M00S00254.listlb +++| SX2 10 00264 M00S00255.listlb +++| IX1 X1/X2 00265 M00S00256.listlb +++| SB2 B2+B1 INCREMENT TO FIRST WORD OF LABEL 00266 M00S00257.listlb +++| SB2 B2+X1 INCREMENT TO CHARACTER COUNT OF NEXT LABEL 00267 M00S00258.listlb +++| EQ FHR1 LOOP 00268 M00S00259.listlb +++| 00269 M00S00260.listlb +++| FHR2 MESSAGE (=C* NO HDR1 LABEL RETURNED ON OPEN.*) 00270 M00S00261.listlb +++| EQ LIS6 TERMINATE JOB 00271 M00S00262.listlb +++| SPACE 4 00272 M00S00263.listlb +++|** FLT - FIND LABEL TYPE. 00273 M00S00264.listlb +++|* 00274 M00S00265.listlb +++|* ENTRY (X5) = ADDRESS OF FIRST WORD OF LABEL. 00275 M00S00266.listlb +++|* 00276 M00S00267.listlb +++|* EXIT (B4) = POSITION OF LABEL TYPE IN TABLE. 00277 M00S00268.listlb +++|* (B4) = 0 IF LABEL TYPE NOT FOUND. 00278 M00S00269.listlb +++|* 00279 M00S00270.listlb +++|* USES X - 1, 2, 3. 00280 M00S00271.listlb +++|* B - 3, 4, 6, 7. 00281 M00S00272.listlb +++|* A - 1, 2. 00282 M00S00273.listlb +++| 00283 M00S00274.listlb +++| 00284 M00S00275.listlb +++| FLT SUBR ENTRY/EXIT 00285 M00S00276.listlb +++| SA1 X5+B1 00286 M00S00277.listlb +++| SB3 TLAB 00287 M00S00278.listlb +++| SB4 B0 00288 M00S00279.listlb +++| SB6 TLABA 00289 M00S00280.listlb +++| SB7 TLABL-1 00290 M00S00281.listlb +++| FLT1 SB4 B4+B1 00291 M00S00282.listlb +++| SA2 B3+B4 00292 M00S00283.listlb +++| BX3 X1-X2 00293 M00S00284.listlb +++| AX3 36 00294 M00S00285.listlb +++| ZR X3,FLTX IF MATCH ON FOUR CHARACTERS 00295 M00S00286.listlb +++| LT B4,B6,FLT1 IF NOT END OF FOUR CHARACTER ENTRIES 00296 M00S00287.listlb +++| FLT2 SB4 B4+B1 00297 M00S00288.listlb +++| SA2 B3+B4 00298 M00S00289.listlb +++| BX3 X1-X2 00299 M00S00290.listlb +++| AX3 42 00300 M00S00291.listlb +++| ZR X3,FLTX IF MATCH ON THREE CHARACTERS - RETURN 00301 M00S00292.listlb +++| LT B4,B7,FLT2 IF NOT END OF TABLE 00302 M00S00293.listlb +++| SB4 B0 00303 M00S00294.listlb +++| EQ FLTX ERROR EXIT 00304 M00S00295.listlb +++| PHE SPACE 4 00305 M00S00296.listlb +++|** PHE - PROCESS HDR1, EOF1, EOV1 PARAMETERS. 00306 M00S00297.listlb +++|* 00307 M00S00298.listlb +++|* ENTRY (LAB - LAB+7) = EIGHT WORD LABEL BLOCK. 00308 M00S00299.listlb +++|* 00309 M00S00300.listlb +++|* EXIT (HEP - HEP+9) = OUTPUT LINE WITH PARAMETERS MERGED IN. 00310 M00S00301.listlb +++|* 00311 M00S00302.listlb +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 00312 M00S00303.listlb +++|* B - 6, 7. 00313 M00S00304.listlb +++|* A - 1, 2, 3, 4, 6, 7. 00314 M00S00305.listlb +++| 00315 M00S00306.listlb +++| 00316 M00S00307.listlb +++| PHE BSS 0 ENTRY 00317 M00S00308.listlb +++| SA1 LAB MOVE LABEL PARAMETERS TO OUTPUT LINE 00318 M00S00309.listlb +++| SA3 HEP 00319 M00S00310.listlb +++| MX0 -36 00320 M00S00311.listlb +++| SA2 A1+B1 00321 M00S00312.listlb +++| BX1 -X0*X1 00322 M00S00313.listlb +++| BX3 X0*X3 00323 M00S00314.listlb +++| LX7 X2 CHARACTERS 7-16 FILE IDENTIFIER 00324 M00S00315.listlb +++| BX6 X3+X1 MERGE CHARACTERS 1-6 FILE IDENTIFIER 00325 M00S00316.listlb +++| SA1 A2+B1 00326 M00S00317.listlb +++| SA7 A3+B1 00327 M00S00318.listlb +++| SA6 A3 00328 M00S00319.listlb +++| SA3 A7+B1 00329 M00S00320.listlb +++| MX0 6 00330 M00S00321.listlb +++| BX6 X0*X1 00331 M00S00322.listlb +++| BX3 -X0*X3 00332 M00S00323.listlb +++| SA4 A3+B1 00333 M00S00324.listlb +++| BX3 X6+X3 MERGE CHARACTER 17 FILE IDENTIFIER 00334 M00S00325.listlb +++| LX1 30 00335 M00S00326.listlb +++| MX0 -24 00336 M00S00327.listlb +++| BX6 -X0*X1 00337 M00S00328.listlb +++| BX3 X0*X3 00338 M00S00329.listlb +++| MX0 12 00339 M00S00330.listlb +++| BX6 X6+X3 MERGE CHARACTERS 1-4 SET IDENTIFIER 00340 M00S00331.listlb +++| SA6 A7+B1 00341 M00S00332.listlb +++| BX4 -X0*X4 00342 M00S00333.listlb +++| BX7 X0*X1 00343 M00S00334.listlb +++| AX1 30 00344 M00S00335.listlb +++| SA2 A1+B1 00345 M00S00336.listlb +++| BX4 X4+X7 MERGE CHARACTERS 5-6 SET IDENTIFIER 00346 M00S00337.listlb +++| MX0 -18 00347 M00S00338.listlb +++| BX1 -X0*X1 00348 M00S00339.listlb +++| BX4 X0*X4 00349 M00S00340.listlb +++| BX7 X4+X1 MERGE CHARACTERS 1-3 SECTION NUMBER 00350 M00S00341.listlb +++| SA7 A6+B1 00351 M00S00342.listlb +++| MX0 6 00352 M00S00343.listlb +++| SA3 A4+B1 00353 M00S00344.listlb +++| BX6 X0*X2 00354 M00S00345.listlb +++| BX3 -X0*X3 00355 M00S00346.listlb +++| LX2 30 00356 M00S00347.listlb +++| BX3 X3+X6 MERGE CHARACTER 4 SECTION NUMBER 00357 M00S00348.listlb +++| MX0 -24 00358 M00S00349.listlb +++| BX6 -X0*X2 00359 M00S00350.listlb +++| SA4 A3+B1 00360 M00S00351.listlb +++| BX3 X0*X3 00361 M00S00352.listlb +++| MX0 24 00362 M00S00353.listlb +++| BX6 X3+X6 MERGE SEQUENCE NUMBER 00363 M00S00354.listlb +++| BX7 X0*X2 00364 M00S00355.listlb +++| SA6 A3 00365 M00S00356.listlb +++| LX0 -24 00366 M00S00357.listlb +++| SA3 A4+B1 00367 M00S00358.listlb +++| LX7 -24 00368 M00S00359.listlb +++| SA1 A2+B1 00369 M00S00360.listlb +++| BX4 -X0*X4 00370 M00S00361.listlb +++| MX0 6 00371 M00S00362.listlb +++| BX7 X4+X7 MERGE GENERATION NUMBER 00372 M00S00363.listlb +++| LX2 24 00373 M00S00364.listlb +++| SA7 A6+B1 00374 M00S00365.listlb +++| BX6 X0*X1 00375 M00S00366.listlb +++| BX2 X0*X2 00376 M00S00367.listlb +++| MX0 12 00377 M00S00368.listlb +++| LX2 6 00378 M00S00369.listlb +++| BX6 X6+X2 00379 M00S00370.listlb +++| LX0 -12 00380 M00S00371.listlb +++| LX6 42 00381 M00S00372.listlb +++| BX3 -X0*X3 00382 M00S00373.listlb +++| LX1 6 00383 M00S00374.listlb +++| MX0 6 00384 M00S00375.listlb +++| BX3 X3+X6 MERGE GENERATION VERSION NUMBER 00385 M00S00376.listlb +++| AX3 6 00386 M00S00377.listlb +++| SA2 A1+B1 00387 M00S00378.listlb +++| BX0 X0*X1 00388 M00S00379.listlb +++| BX6 X0+X3 MERGE CHARACTER 1 CREATION DATE 00389 M00S00380.listlb +++| SA4 A3+B1 00390 M00S00381.listlb +++| LX6 6 00391 M00S00382.listlb +++| MX0 30 00392 M00S00383.listlb +++| SA6 A7+B1 00393 M00S00384.listlb +++| BX4 -X0*X4 00394 M00S00385.listlb +++| LX1 6 00395 M00S00386.listlb +++| SA3 A4+B1 00396 M00S00387.listlb +++| BX7 X0*X1 00397 M00S00388.listlb +++| MX0 36 00398 M00S00389.listlb +++| BX7 X4+X7 MERGE CHARACTERS 2-6 CREATION DATE 00399 M00S00390.listlb +++| AX1 12 00400 M00S00391.listlb +++| BX3 -X0*X3 00401 M00S00392.listlb +++| SA7 A6+B1 00402 M00S00393.listlb +++| SA4 A3+B1 00403 M00S00394.listlb +++| MX0 18 00404 M00S00395.listlb +++| BX6 X0*X2 00405 M00S00396.listlb +++| LX0 18 00406 M00S00397.listlb +++| BX1 X0*X1 00407 M00S00398.listlb +++| MX0 6 00408 M00S00399.listlb +++| BX6 X6+X1 00409 M00S00400.listlb +++| LX6 42 00410 M00S00401.listlb +++| BX6 X6+X3 MERGE EXPIRATION DATE 00411 M00S00402.listlb +++| LX0 -6 00412 M00S00403.listlb +++| BX4 -X0*X4 00413 M00S00404.listlb +++| LX2 12 00414 M00S00405.listlb +++| SA6 A7+B1 00415 M00S00406.listlb +++| BX2 X0*X2 00416 M00S00407.listlb +++| BX7 X2+X4 MERGE FILE ACCESSIBILITY 00417 M00S00408.listlb +++| SA7 A6+B1 00418 M00S00409.listlb +++| SB6 HEP-1 00419 M00S00410.listlb +++| SB7 HEPL+1 00420 M00S00411.listlb +++| EQ PRL4 RETURN 00421 M00S00412.listlb +++| PRL SPACE 4 00422 M00S00413.listlb +++|** PRL - PRINT LABEL. 00423 M00S00414.listlb +++|* 00424 M00S00415.listlb +++|* ENTRY (A0) = POSITION OF LABEL TYPE IN TABLE. 00425 M00S00416.listlb +++|* (B4) = (A0) = POSITION OF LABEL TYPE IN TLAB. 00426 M00S00417.listlb +++|* (X5) = POSITION OF LABEL IN BUFFER. 00427 M00S00418.listlb +++|* 00428 M00S00419.listlb +++|* EXIT NONE. 00429 M00S00420.listlb +++|* 00430 M00S00421.listlb +++|* USES X - 0, 1, 2, 3, 6, 7. 00431 M00S00422.listlb +++|* B - 2, 4, 5, 6, 7. 00432 M00S00423.listlb +++|* A - 1, 2, 3, 6, 7. 00433 M00S00424.listlb +++|* 00434 M00S00425.listlb +++|* CALLS MVE=, PHE, PVE, WHL, WTW=. 00435 M00S00426.listlb +++| 00436 M00S00427.listlb +++| 00437 M00S00428.listlb +++| PRL SUBR ENTRY/EXIT 00438 M00S00429.listlb +++| SA1 A0+TLAB ENTER LABEL TYPE 00439 M00S00430.listlb +++| SA2 LIN+1 00440 M00S00431.listlb +++| MX0 4*6 00441 M00S00432.listlb +++| BX2 -X0*X2 00442 M00S00433.listlb +++| BX1 X0*X1 00443 M00S00434.listlb +++| BX6 X1+X2 00444 M00S00435.listlb +++| SA6 A2 00445 M00S00436.listlb +++| MOVE 8,X5+B1,LAB 00446 M00S00437.listlb +++| SA2 LC
| Line S00438 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00447 M01S00438.ns22000 ---| SX3 X2-LINP+2
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00448 M01S00002.ns22000 +++| SA3 A2+B1 00449 M01S00003.ns22000 +++| IX3 X2-X3 00450 M00S00439.listlb +++| NG X3,PRL1 IF NOT END OF PAGE 00451 M00S00440.listlb +++| RJ WHL PROCESS END OF PAGE 00452 M00S00441.listlb +++| PRL1 SA2 LC 00453 M00S00442.listlb +++| SX6 X2+2 00454 M00S00443.listlb +++| SA6 A2 00455 M00S00444.listlb +++| SB4 A0 00456 M00S00445.listlb +++| SA3 TITL+5 BLANK WORD 00457 M00S00446.listlb +++| NZ B4,PRL2 IF STANDARD LABEL TYPE 00458 M00S00447.listlb +++| SA3 NSL 00459 M00S00448.listlb +++| PRL2 BX6 X3 00460 M00S00449.listlb +++| SA6 LIN 00461 M00S00450.listlb +++| WRITEW O,A6,LINL 00462 M00S00451.listlb +++| SB4 A0+ 00463 M00S00452.listlb +++| SB5 10B 00464 M00S00453.listlb +++| GT B4,B5,PRLX IF NO MORE LABEL PROCESSING 00465 M00S00454.listlb +++| ZR B4,PRLX IF NO MORE LABEL PROCESSING 00466 M00S00455.listlb +++| SA1 A0+TLAB CHECK SPECIAL PROCESSING REQUIRED 00467 M00S00456.listlb +++| LX1 59-35+18 00468 M00S00457.listlb +++| SB2 X1 ADDRESS OF LABEL PRINT PROCESSOR 00469 M00S00458.listlb +++| ZR B2,PRLX IF NO SPECIAL PROCESSING REQUIRED 00470 M00S00459.listlb +++| JP B2 GO TO CORRECT PROCESSOR 00471 M00S00460.listlb +++| 00472 M00S00461.listlb +++| PRL4 BSS 0 RETURN HERE 00473 M00S00462.listlb +++| SA2 LC
| Line S00463 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00474 M01S00463.ns22000 ---| SX6 X2-LINP+2
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00475 M01S00004.ns22000 +++| SA1 A2+B1 00476 M01S00005.ns22000 +++| IX6 X2-X1 00477 M00S00464.listlb +++| NG X6,PRL5 IF NOT END OF PAGE 00478 M00S00465.listlb +++| SX6 B6 00479 M00S00466.listlb +++| SX7 B7 00480 M00S00467.listlb +++| SA6 PRLA SAVE (B6) 00481 M00S00468.listlb +++| SA7 A6+B1 SAVE (B7) 00482 M00S00469.listlb +++| RJ WHL WRITE HEADER LINE 00483 M00S00470.listlb +++| SA1 PRLA RESTORE (B6) AND (B7) 00484 M00S00471.listlb +++| SA2 A1+B1 00485 M00S00472.listlb +++| SB6 X1 00486 M00S00473.listlb +++| SB7 X2 00487 M00S00474.listlb +++| PRL5 SA3 LC INCREMENT LINE COUNT 00488 M00S00475.listlb +++| SX6 X3+2 00489 M00S00476.listlb +++| SA6 A3 00490 M00S00477.listlb +++| WRITEW O,B6,B7 WRITE PARAMETER LINE 00491 M00S00478.listlb +++| EQ PRLX RETURN 00492 M00S00479.listlb +++| 00493 M00S00480.listlb +++| PRLA BSS 2 REGISTER SAVE AREA 00494 M00S00481.listlb +++| PVE SPACE 4 00495 M00S00482.listlb +++|** PVE - PROCESS VOL1 PARAMETERS. 00496 M00S00483.listlb +++|* 00497 M00S00484.listlb +++|* ENTRY (LAB - LAB+7) = EIGHT WORD LABEL BLOCK. 00498 M00S00485.listlb +++|* 00499 M00S00486.listlb +++|* EXIT (VEP - VEP+4) = OUTPUT LINE WITH PARAMETERS MERGED IN. 00500 M00S00487.listlb +++|* 00501 M00S00488.listlb +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 00502 M00S00489.listlb +++|* B - 2, 6, 7. 00503 M00S00490.listlb +++|* A - 1, 2, 3, 4, 6, 7. 00504 M00S00491.listlb +++| 00505 M00S00492.listlb +++| 00506 M00S00493.listlb +++| PVE BSS 0 ENTRY 00507 M00S00494.listlb +++| SA1 LAB MOVE LABEL PARAMETERS TO OUTPUT LINE 00508 M00S00495.listlb +++| MX0 -30 00509 M00S00496.listlb +++| SB2 B1+B1 00510 M00S00497.listlb +++| SA2 A1+B1 00511 M00S00498.listlb +++| SA3 VEP 00512 M00S00499.listlb +++| LX1 -6 00513 M00S00500.listlb +++| SA4 A3+B1 00514 M00S00501.listlb +++| BX3 X0*X3 00515 M00S00502.listlb +++| BX6 -X0*X1 00516 M00S00503.listlb +++| MX0 6 00517 M00S00504.listlb +++| BX6 X6+X3 MERGE CHARACTERS 1-5 VSN 00518 M00S00505.listlb +++| BX4 -X0*X4 00519 M00S00506.listlb +++| SA6 A3 00520 M00S00507.listlb +++| BX1 X0*X1 00521 M00S00508.listlb +++| BX2 X0*X2 00522 M00S00509.listlb +++| LX0 -36 00523 M00S00510.listlb +++| BX4 X1+X4 MERGE CHARACTER 6 VSN 00524 M00S00511.listlb +++| LX2 -36 00525 M00S00512.listlb +++| BX4 -X0*X4 00526 M00S00513.listlb +++| SA1 A2+B2 00527 M00S00514.listlb +++| BX7 X4+X2 MERGE ACCESSIBILITY 00528 M00S00515.listlb +++| SA3 A4+B1 00529 M00S00516.listlb +++| SA2 A1+B1 00530 M00S00517.listlb +++| SA7 A6+B1 00531 M00S00518.listlb +++| MX0 -18 00532 M00S00519.listlb +++| BX7 X2 CHARACTERS 4-13 OWNER IDENTIFIER 00533 M00S00520.listlb +++| BX1 -X0*X1 00534 M00S00521.listlb +++| SA4 A3+B2 00535 M00S00522.listlb +++| BX6 X0*X3 00536 M00S00523.listlb +++| MX0 6 00537 M00S00524.listlb +++| BX6 X6+X1 MERGE CHARACTERS 1-3 OWNER IDENTIFIER 00538 M00S00525.listlb +++| SA1 A2+B1 00539 M00S00526.listlb +++| SA6 A7+B1 00540 M00S00527.listlb +++| SA7 A6+B1 00541 M00S00528.listlb +++| BX4 -X0*X4 00542 M00S00529.listlb +++| BX1 X0*X1 00543 M00S00530.listlb +++| LX0 18 00544 M00S00531.listlb +++| SA2 A1+B2 00545 M00S00532.listlb +++| BX6 X4+X1 MERGE CHARACTER 14 OWNER IDENTIFIER 00546 M00S00533.listlb +++| LX2 12 00547 M00S00534.listlb +++| BX6 -X0*X6 00548 M00S00535.listlb +++| BX2 X0*X2 00549 M00S00536.listlb +++| BX6 X6+X2 MERGE LABEL STANDARD LEVEL 00550 M00S00537.listlb +++| SA6 A7+B1 00551 M00S00538.listlb +++| SB6 VEP-1 00552 M00S00539.listlb +++| SB7 VEPL+1 00553 M00S00540.listlb +++| EQ PRL4 RETURN 00554 M00S00541.listlb +++| PXL SPACE 4 00555 M00S00542.listlb +++|** PXL - PRINT LABELS FROM XL BUFFER. 00556 M00S00543.listlb +++|* 00557 M00S00544.listlb +++|* ENTRY (LR) = NUMBER OF LABELS READ SO FAR. 00558 M00S00545.listlb +++|* (LP) = NUMBER OF LABELS PRINTED SO FAR. 00559 M00S00546.listlb +++|* 00560 M00S00547.listlb +++|* EXIT (LR), (LP) UPDATED. 00561 M00S00548.listlb +++|* XL BUFFER CLEARED. 00562 M00S00549.listlb +++|* 00563 M00S00550.listlb +++|* USES X - 1, 4, 5, 6. 00564 M00S00551.listlb +++|* A - 0, 1, 4, 6. 00565 M00S00552.listlb +++|* 00566 M00S00553.listlb +++|* CALLS FLT, PRL. 00567 M00S00554.listlb +++| 00568 M00S00555.listlb +++| 00569 M00S00556.listlb +++| PXL2 SX6 B0+ CLEAR XL BUFFER 00570 M00S00557.listlb +++| SA6 TBUF 00571 M00S00558.listlb +++| 00572 M00S00559.listlb +++| PXL SUBR ENTRY/EXIT 00573 M00S00560.listlb +++| SX5 TBUF-9 PRESET XL BUFFER ADDRESS 00574 M00S00561.listlb +++| PXL1 SX5 X5+9 INCREMENT BUFFER ADDRESS 00575 M00S00562.listlb +++| SA1 LR 00576 M00S00563.listlb +++| SA4 X5 READ BUFFER ENTRY 00577 M00S00564.listlb +++| SX6 X1+B1 00578 M00S00565.listlb +++| ZR X4,PXL2 IF END OF LABELS IN BUFFER 00579 M00S00566.listlb +++| SA6 LR INCREMENT LABELS READ 00580 M00S00567.listlb +++| RJ FLT FIND LABEL TYPE 00581 M00S00568.listlb +++| SA0 B4 SET POSITION OF LABEL IN TABLE 00582 M00S00569.listlb +++| SA1 B4+TLAB 00583 M00S00570.listlb +++| LX1 59-0 00584 M00S00571.listlb +++| PL X1,PXL1 IF NOT PERMITTED TO PRINT THIS TYPE 00585 M00S00572.listlb +++| SA1 LP INCREMENT LABELS PRINTED 00586 M00S00573.listlb +++| SX6 X1+B1 00587 M00S00574.listlb +++| SA6 A1 00588 M00S00575.listlb +++| RJ PRL PRINT LABEL 00589 M00S00576.listlb +++| EQ PXL1 LOOP FOR NEXT LABEL 00590 M00S00577.listlb +++| SHD SPACE 4 00591 M00S00578.listlb +++|** SHD - SET UP *HDR1* LABEL IN EXTENDED LABEL BUFFER. 00592 M00S00579.listlb +++|* 00593 M00S00580.listlb +++|* ENTRY (SI) = SET IDENTIFIER.
| Line S00581 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00594 M01S00581.v23l617 ---|* (QN) = SEQUENCE NUMBER FROM CONTROL CARD.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00595 M01S00006.v23l617 +++|* (QN) = SEQUENCE NUMBER FROM COMMAND. 00596 M00S00582.listlb +++|* (SN) = SEQUENCE NUMBER TO BE USED IN *HDR1* LABEL. 00597 M00S00583.listlb +++|* 00598 M00S00584.listlb +++|* EXIT *HDR1* LABEL TYPE, SET ID, AND SEQUENCE NUMBER SET 00599 M00S00585.listlb +++|* IN EXTENDED LABEL BUFFER. 00600 M00S00586.listlb +++|* 00601 M00S00587.listlb +++|* USES X - 1, 2, 5, 6, 7. 00602 M00S00588.listlb +++|* B - NONE. 00603 M00S00589.listlb +++|* A - 1, 5, 6, 7. 00604 M00S00590.listlb +++| 00605 M00S00591.listlb +++| 00606 M00S00592.listlb +++| SHD SUBR ENTRY/EXIT 00607 M00S00593.listlb +++| SX6 80 SET LENGTH OF LABEL IN CHARACTERS 00608 M00S00594.listlb +++| SA6 TBUF 00609 M00S00595.listlb +++| SX1 3RHDR SET *HDR1* 00610 M00S00596.listlb +++| SX6 1R1 00611 M00S00597.listlb +++| LX1 6 00612 M00S00598.listlb +++| BX6 X1+X6 *HDR1* 00613 M00S00599.listlb +++| LX6 36 00614 M00S00600.listlb +++| SA6 TBUF+1+0 00615 M00S00601.listlb +++| MX6 0 CLEAR OUT FI FIELD IN XL BUFFER 00616 M00S00602.listlb +++| SA6 TBUF+1+1 00617 M00S00603.listlb +++| SA5 SI SET SETID IN XL BUFFER 00618 M00S00604.listlb +++| BX6 X5 00619 M00S00605.listlb +++| SA6 TBUF+1+2 00620 M00S00606.listlb +++| SA1 SN SEQUENCE NUMBER 00621 M00S00607.listlb +++| RJ COV CONVERT TO DISPLAY CODE 00622 M00S00608.listlb +++| MX2 -24 00623 M00S00609.listlb +++| BX6 -X2*X6 00624 M00S00610.listlb +++| LX6 30 00625 M00S00611.listlb +++| SA6 TBUF+1+3 SET SEQUENCE NUMBER IN XL BUFFER 00626 M00S00612.listlb +++| SX2 4 00627 M00S00613.listlb +++| MX6 0 00628 M00S00614.listlb +++| SHD1 SA6 TBUF+1+X2 ZERO REMAINING PORTION OF *HDR1* LABEL 00629 M00S00615.listlb +++| SX2 X2+1 00630 M00S00616.listlb +++| SX3 X2-9 00631 M00S00617.listlb +++| NZ X3,SHD1 IF MORE TO CLEAR 00632 M00S00618.listlb +++| EQ SHDX 00633 M00S00619.listlb +++| SPACE 4 00634 M00S00620.listlb +++|** WHL - WRITE HEADER LINE. 00635 M00S00621.listlb +++|* 00636 M00S00622.listlb +++|* ENTRY (PN) = PAGE NUMBER. 00637 M00S00623.listlb +++|* 00638 M00S00624.listlb +++|* EXIT (PN) = (PN) + 1. 00639 M00S00625.listlb +++|* (LC) = 3. 00640 M00S00626.listlb +++|* 00641 M00S00627.listlb +++|* USES X - 0, 1, 6. 00642 M00S00628.listlb +++|* B - 3. 00643 M00S00629.listlb +++|* A - 1, 6. 00644 M00S00630.listlb +++|*
| Line S00631 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00645 M01S00631.ns22000 ---|* CALLS CDD, WTW=.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00646 M01S00006.ns22000 +++|* CALLS CDD. 00647 M01S00007.ns22000 +++|* 00648 M01S00008.ns22000 +++|* MACROS WRITEW. 00649 M00S00632.listlb +++| 00650 M00S00633.listlb +++| 00651 M00S00634.listlb +++| WHL SUBR ENTRY/EXIT 00652 M00S00635.listlb +++| SA1 PN INCREMENT PAGE NUMBER 00653 M00S00636.listlb +++| SX6 X1+B1 00654 M00S00637.listlb +++| BX1 X6 00655 M00S00638.listlb +++| SA6 PN 00656 M00S00639.listlb +++| RJ CDD CONVERT PAGE NUMBER TO DISPLAY CODE 00657 M00S00640.listlb +++| SB3 B2-47 00658 M00S00641.listlb +++| SA1 PAGE 00659 M00S00642.listlb +++| LX6 12 00660 M00S00643.listlb +++| MX0 1 00661 M00S00644.listlb +++| SB3 -B3 00662 M00S00645.listlb +++| AX0 X0,B3 00663 M00S00646.listlb +++| BX6 -X0*X6 00664 M00S00647.listlb +++| BX1 X0*X1 00665 M00S00648.listlb +++| BX6 X1+X6 00666 M00S00649.listlb +++| SA6 A1 00667 M00S00650.listlb +++| WRITEW O,TITL,TITLL
| Line S00651 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00668 M01S00651.ns22000 ---| SX6 3 SET LINE COUNT
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00669 M01S00009.ns22000 +++| SX6 3 SET LINE COUNT 00670 M00S00652.listlb +++| SA6 LC 00671 M00S00653.listlb +++| EQ WHLX RETURN 00672 M00S00654.listlb +++| TITLE CONSTANTS AND VARIABLES. 00673 M00S00655.listlb +++|** CONSTANTS AND VARIABLES. 00674 M00S00656.listlb +++| 00675 M00S00657.listlb +++| 00676 M00S00658.listlb +++|** TLAB FIELD DEFENITION. 00677 M00S00659.listlb +++|*T,TLAB VFD 24/LABEL IDENTIFIER
Figure TLAB
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "LABEL IDENTIFIER", "bits": VFD 24, "type": 1 } ] is invalid. Please check your syntax and try again.
00678 M00S00660.listlb +++|*T, VFD 18/ADDRESS OF LABEL PRINT PROCESSOR
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "ADDRESS OF LABEL PRINT PROCESSOR", "bits": VFD 18, "type": 1 } ] is invalid. Please check your syntax and try again.
00679 M00S00661.listlb +++|*T, VFD 17/NOT USED
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "NOT USED", "bits": VFD 17, "type": 1 } ] is invalid. Please check your syntax and try again.
00680 M00S00662.listlb +++|*T, VFD 1/LABEL TYPE MAY BE PRINTED
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "LABEL TYPE MAY BE PRINTED", "bits": VFD 1, "type": 1 } ] is invalid. Please check your syntax and try again.
00681 M00S00663.listlb +++| 00682 M00S00664.listlb +++| 00683 M00S00665.listlb +++| TLAB BSS 0 00684 M00S00666.listlb +++| LOC 0 00685 M00S00667.listlb +++| VFD 24/4LDARD,18/0,18/0 UNIDENTIFIED LABEL 00686 M00S00668.listlb +++| VOL1 VFD 24/4LVOL1,18/PVE,18/0 VOL1 00687 M00S00669.listlb +++| HDR1 VFD 24/4LHDR1,18/PHE,18/0 HDR1 00688 M00S00670.listlb +++| EOF1 VFD 24/4LEOF1,18/PHE,18/0 EOF1 00689 M00S00671.listlb +++| EOV1 VFD 24/4LEOV1,18/PHE,18/0 EOV1 00690 M00S00672.listlb +++| TLABA EQU *-VOL1 NUMBER OF REQUIRED LABELS 00691 M00S00673.listlb +++| VOL VFD 24/4LVOLN,18/0,18/0 VOL2-9 00692 M00S00674.listlb +++| HDR VFD 24/4LHDRN,18/0,18/0 HDR2-9 00693 M00S00675.listlb +++| EOF VFD 24/4LEOFN,18/0,18/0 EOF2-9 00694 M00S00676.listlb +++| EOV VFD 24/4LEOVN,18/0,18/0 EOV2-9 00695 M00S00677.listlb +++| UVL VFD 24/4LUVLX,18/0,18/0 UVLX 00696 M00S00678.listlb +++| UHL VFD 24/4LUHLX,18/0,18/0 UHLX 00697 M00S00679.listlb +++| UTL VFD 24/4LUTLX,18/0,18/0 UTLX 00698 M00S00680.listlb +++| LOC *O 00699 M00S00681.listlb +++| TLABL EQU *-TLAB 00700 M00S00682.listlb +++| 00701 M00S00683.listlb +++| QN CON 0 FILE SEQUENCE NUMBER 00702 M00S00684.listlb +++| SN CON 1 SEQUENCE NUMBER TO USE IN *HDR1* LABEL 00703 M00S00685.listlb +++| CR CON 0 CLOSE REEL FLAG 00704 M00S00686.listlb +++| EF CON 0 SAVE ERROR FLAG HERE 00705 M00S00687.listlb +++| TF CON 0 0=DO NOT READ TRAILER LABELS 00706 M00S00688.listlb +++|* 1=READ TRAILER LABELS 00707 M00S00689.listlb +++| SI CON 0 SET IDENTIFIER 00708 M00S00690.listlb +++| PN BSSZ 1 PAGE NUMBER
| Line S00691 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00709 M01S00691.ns22000 ---| LC BSSZ 1 LINE COUNT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00710 M01S00010.ns22000 +++| LC BSSZ 2 LINE COUNT 00711 M01S00011.ns22000 +++| LL EQU LC+1 LINE LIMIT 00712 M00S00692.listlb +++| LR BSSZ 1 LABELS READ 00713 M00S00693.listlb +++| LP BSSZ 1 LABELS PRINTED 00714 M00S00694.listlb +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | listl1 |
Seq # *Modification Id* Act ----------------------------+ 00715 M01S00003.listl1 +++| TLOF VFD 12/0,18/TLOF+1,30/1 00716 M01S00004.listl1 +++| CON 3 SETLOF FLUSH TABLE 00717 M01S00005.listl1 +++| VFD 42/6LOUTPUT,18/O 00718 M01S00006.listl1 +++| CON 0 END OF SETLOF TABLE 00719 M00S00695.listlb +++| 00720 M00S00696.listlb +++| NSL DATA 10H NON-STAN 00721 M00S00697.listlb +++| LIN DATA 10H LABEL OUTPUT LINE 00722 M00S00698.listlb +++| DATA 6A LABEL 00723 M00S00699.listlb +++| DATA 10H READ: 00724 M00S00700.listlb +++| LAB BSS 8 00725 M00S00701.listlb +++| DATA 8L 00726 M00S00702.listlb +++| DATA 8L 00727 M00S00703.listlb +++| LINL EQU *-LIN 00728 M00S00704.listlb +++| 00729 M00S00705.listlb +++| DATA 10H HDR1,EOF1,EOV1 PARAMETER OUTPUT LINE 00730 M00S00706.listlb +++| HEP DATA 10H FI=...... 00731 M00S00707.listlb +++| DATA 10H.......... 00732 M00S00708.listlb +++| DATA 10H., SI=.... 00733 M00S00709.listlb +++| DATA 10H.., SN=... 00734 M00S00710.listlb +++| DATA 10H., QN=.... 00735 M00S00711.listlb +++| DATA 10H, G=...., 00736 M00S00712.listlb +++| DATA 10HE=.., CR=. 00737 M00S00713.listlb +++| DATA 10H....., RT= 00738 M00S00714.listlb +++| DATA 10H......, FA 00739 M00S00715.listlb +++| DATA 3L=.. 00740 M00S00716.listlb +++| DATA 2L 00741 M00S00717.listlb +++| HEPL EQU *-HEP 00742 M00S00718.listlb +++| 00743 M00S00719.listlb +++| DATA 10H VOL1 PARAMETER OUTPUT LINE 00744 M00S00720.listlb +++| VEP DATA 10H VSN=..... 00745 M00S00721.listlb +++| DATA 10H., VA=., O 00746 M00S00722.listlb +++| DATA 10HWNERID=... 00747 M00S00723.listlb +++| DATA 10H.......... 00748 M00S00724.listlb +++| DATA 10H., LSL=.. 00749 M00S00725.listlb +++| DATA 8L 00750 M00S00726.listlb +++| DATA 2L 00751 M00S00727.listlb +++| VEPL EQU *-VEP 00752 M00S00728.listlb +++|
| Line S00729 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00753 M01S00729.ns22000 ---| TITL DATA 10H1
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00754 M01S00012.ns22000 +++| TITL DATA 10H 00755 M00S00730.listlb +++| DATA 40H LISTLB - LIST MAGNETIC TAPE LABELS. 00756 M00S00731.listlb +++| DATA 40H 00757 M00S00732.listlb +++| DATE DATA 10H 00758 M00S00733.listlb +++| TIME DATA 10H 00759 M00S00734.listlb +++| DATA 4APAGE 00760 M00S00735.listlb +++| PAGE DATA 8L 00761 M00S00736.listlb +++| DATA 2L 00762 M00S00737.listlb +++| DATA 2L 00763 M00S00738.listlb +++| TITLL EQU *-TITL 00764 M00S00739.listlb +++| 00765 M00S00740.listlb +++| LRP DATA 10H LABELS READ AND PRINTED 00766 M00S00741.listlb +++| LBR DATA 10H 00767 M00S00742.listlb +++| DATA 10H LABELS RE 00768 M00S00743.listlb +++| DATA 10HAD. 00769 M00S00744.listlb +++| LBP DATA 10H 00770 M00S00745.listlb +++| DATA 10H LABELS PR 00771 M00S00746.listlb +++| DATA 6LINTED. 00772 M00S00747.listlb +++| LRPL EQU *-LRP 00773 M00S00748.listlb +++| COMC SPACE 4 00774 M00S00749.listlb +++|** CALL COMMON DECKS. 00775 M00S00750.listlb +++| 00776 M00S00751.listlb +++| 00777 M00S00752.listlb +++|*CALL COMCCDD 00778 M00S00753.listlb +++|*CALL COMCCIO 00779 M00S00754.listlb +++|*CALL COMCLFM 00780 M00S00755.listlb +++|*CALL COMCMVE 00781 M00S00756.listlb +++|*CALL COMCSYS 00782 M00S00757.listlb +++|*CALL COMCWTW 00783 M00S00758.listlb +++| EJECT 00784 M00S00759.listlb +++| USE // 00785 M00S00760.listlb +++| SEG 00786 M00S00761.listlb +++| BUFS BSS 0 00787 M00S00762.listlb +++| 00788 M00S00763.listlb +++| TBUF EQU * 00789 M00S00764.listlb +++| 00790 M00S00765.listlb +++| OBUF EQU TBUF+TBUFL 00791 M00S00766.listlb +++| 00792 M00S00767.listlb +++| RFL= EQU OBUF+OBUFL+4 00793 M00S00768.listlb +++| ARG= EQU * 00794 M00S00769.listlb +++| TITLE PRESET. 00795 M00S00770.listlb +++| PRS SPACE 4 00796 M00S00771.listlb +++| ORG BUFS 00797 M00S00772.listlb +++| 00798 M00S00773.listlb +++| 00799 M00S00774.listlb +++|** THE FOLLOWING CODE IS OVERLAYED BY TLAB THE TABLE OF LABELS 00800 M00S00775.listlb +++|* READ FROM THE TAPE. 00801 M00S00776.listlb +++| 00802 M00S00777.listlb +++|** PRS - PRESET. 00803 M00S00778.listlb +++|*
| Line S00779 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00804 M01S00779.ns22000 ---|* ENTRY NONE. 00805 M01S00780.ns22000 ---|* 00806 M01S00781.ns22000 ---|* EXIT NONE. 00807 M01S00782.ns22000 ---|*
| Line S00783 Modification History | |
|---|---|
M01 (Removed by) | listl1 |
Seq # *Modification Id* Act ----------------------------+ 00808 M01S00783.listl1 ---|* USES X - 1, 3, 4, 5, 6.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | listl1 |
Seq # *Modification Id* Act ----------------------------+ 00809 M01S00007.listl1 +++|* USES X - 0, 1, 3, 4, 5, 6.
| Line S00784 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00810 M01S00784.ns22000 ---|* B - 2, 3, 4. 00811 M01S00785.ns22000 ---|* A - 1, 4, 6.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00812 M01S00013.ns22000 +++|* A - 1, 4, 5, 6. 00813 M01S00014.ns22000 +++|* B - 2, 3, 4. 00814 M00S00786.listlb +++|*
| Line S00787 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00815 M01S00787.ns22000 ---|* CALLS ARGUMENT PROCESSORS.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00816 M01S00015.ns22000 +++|* CALLS IPP, KWD, PER, POP, USB, WHL. 00817 M01S00016.ns22000 +++|* 00818 M01S00017.ns22000 +++|* MACROS CLOCK, DATE, REWIND. 00819 M00S00788.listlb +++| 00820 M00S00789.listlb +++| PRS SUBR ENTRY/EXIT 00821 M00S00790.listlb +++| SB1 1
| Line S00791 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00822 M01S00791.v23l617 ---| SB2 CCDR UNPACK CONTROL CARD
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00823 M01S00007.v23l617 +++| SB2 CCDR UNPACK COMMAND 00824 M00S00792.listlb +++| RJ USB 00825 M00S00793.listlb +++| SA5 PRSA 00826 M00S00794.listlb +++| PRS0 RJ POP PICK OUT PARAMETER
| Line S00795 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00827 M01S00795.v23l617 ---| NG B5,PRS6 IF CONTROL CARD ERROR
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00828 M01S00008.v23l617 +++| NG B5,PRS6 IF COMMAND ERROR 00829 M00S00796.listlb +++| BX3 X6-X5 00830 M00S00797.listlb +++| NZ X3,PRS0 IF NOT PROGRAM NAME 00831 M00S00798.listlb +++| RJ POP
| Line S00799 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00832 M01S00799.v23l617 ---| NG B5,PRS6 IF CONTROL CARD ERROR
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00833 M01S00009.v23l617 +++| NG B5,PRS6 IF COMMAND ERROR 00834 M00S00800.listlb +++| SA4 A1 00835 M00S00801.listlb +++| SX5 X6 00836 M00S00802.listlb +++| SX3 X4-1R= 00837 M00S00803.listlb +++| ZR X3,PRS2 IF NO TAPE FILE SPECIFIED
| Line S00804 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00838 M01S00804.v23l617 ---| NZ X5,PRS8 IF ILLEGAL PARAMETER
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00839 M01S00010.v23l617 +++| NZ X5,PRS8 IF INCORRECT PARAMETER 00840 M00S00805.listlb +++| SA1 T PLACE USER SPECIFIED FILE NAME IN FET 00841 M00S00806.listlb +++| SX1 X1 00842 M00S00807.listlb +++| BX6 X1+X6 00843 M00S00808.listlb +++| SA6 T 00844 M00S00809.listlb +++| 00845 M00S00810.listlb +++|* RETURN FROM ARGUMENT PROCESSORS. 00846 M00S00811.listlb +++| 00847 M00S00812.listlb +++| PRS1 RJ POP GET NEXT PARAMETER 00848 M00S00813.listlb +++| SA4 A1+
| Line S00814 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00849 M01S00814.v23l617 ---| NG B5,PRS6 IF CONTROL CARD ERROR
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00850 M01S00011.v23l617 +++| NG B5,PRS6 IF COMMAND ERROR 00851 M00S00815.listlb +++| PRS2 SX3 X4-1R= 00852 M00S00816.listlb +++| NZ X3,PRS6 IF NOT *=*
| Line S00817 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00853 M01S00817.v23l617 ---| ZR X2,PRS8 IF ILLEGAL TERMINATOR
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00854 M01S00012.v23l617 +++| ZR X2,PRS8 IF INCORRECT TERMINATOR 00855 M00S00818.listlb +++| RJ KWD
| Line S00819 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00856 M01S00819.v23l617 ---| ZR B3,PRS6 IF ILLEGAL KEYWORD
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00857 M01S00013.v23l617 +++| ZR B3,PRS6 IF INCORRECT KEYWORD 00858 M00S00820.listlb +++| RJ POP
| Line S00821 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00859 M01S00821.v23l617 ---| NG B5,PRS8 IF ILLEGAL PARAMETER
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00860 M01S00014.v23l617 +++| NG B5,PRS8 IF INCORRECT PARAMETER 00861 M00S00822.listlb +++| JP B3 JUMP TO ELEMENT PROCESSOR 00862 M00S00823.listlb +++| 00863 M00S00824.listlb +++| PRS3 SA1 SI CHECK FOR *SETID* 00864 M00S00825.listlb +++| NZ X1,PRS4 IF *SET ID* SPECIFIED 00865 M00S00826.listlb +++| SA1 QN SEQUENCE NUMBER 00866 M00S00827.listlb +++| ZR X1,PRS4 IF FILE SEQUENCE NUMBER SPECIFIED
| Line S00828 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00867 M01S00828.v23l617 ---| SX1 QNS ILLEGAL COMBINATION OF PARAMETERS
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00868 M01S00015.v23l617 +++| SX1 QNS INCORRECT COMBINATION OF PARAMETERS 00869 M00S00829.listlb +++| JP PER 00870 M00S00830.listlb +++| 00871 M00S00831.listlb +++| PRS4 REWIND T,R 00872 M00S00832.listlb +++| CLOCK TIME 00873 M00S00833.listlb +++| DATE DATE
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00874 M01S00018.ns22000 +++| RJ IPP INITIALIZE PAGE PARAMETERS 00875 M00S00834.listlb +++| RJ WHL WRITE HEADER LINE 00876 M00S00835.listlb +++| SX1 TBUFL SET EXTENDED LABEL BUFFER LENGTH AND 00877 M00S00836.listlb +++|* ADDRESS 00878 M00S00837.listlb +++| SX6 TBUF 00879 M00S00838.listlb +++| LX1 18 00880 M00S00839.listlb +++| BX6 X6+X1 00881 M00S00840.listlb +++| SA6 T+9
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | listl1 |
Seq # *Modification Id* Act ----------------------------+ 00882 M01S00008.listl1 +++| MX0 1 SET FLUSH BIT IN LIST OUTPUT FET 00883 M01S00009.listl1 +++| LX0 36-59 00884 M01S00010.listl1 +++| SA1 O+1 00885 M01S00011.listl1 +++| BX6 X0+X1 00886 M01S00012.listl1 +++| SA6 A1 00887 M01S00013.listl1 +++| MX0 42 MOVE LIST OUTPUT LFN TO SETLOF TABLE 00888 M01S00014.listl1 +++| SA1 A1-B1 00889 M01S00015.listl1 +++| BX1 X0*X1 00890 M01S00016.listl1 +++| SX6 O 00891 M01S00017.listl1 +++| BX6 X1+X6 00892 M01S00018.listl1 +++| SA6 TLOF+2 00893 M01S00019.listl1 +++| SETLOF TLOF SET FLUSH BIT TABLE POINTER 00894 M00S00841.listlb +++| SA1 LO 00895 M00S00842.listlb +++| NZ X1,PRSX IF LO PROCESSED 00896 M00S00843.listlb +++| SB4 TLABL 00897 M00S00844.listlb +++| SX5 B1 00898 M00S00845.listlb +++| SB3 B0 00899 M00S00846.listlb +++| PRS5 SA1 TLAB+B3 SET PERMISION TO PRINT ALL LABELS 00900 M00S00847.listlb +++| SB3 B3+B1 00901 M00S00848.listlb +++| BX6 X1+X5 00902 M00S00849.listlb +++| SA6 A1+ 00903 M00S00850.listlb +++| LT B3,B4,PRS5 IF NOT END OF LABEL TABLE 00904 M00S00851.listlb +++| SX6 B1 SET READ TRAILER LABELS FLAG 00905 M00S00852.listlb +++| SA6 TF 00906 M00S00853.listlb +++| JP PRSX RETURN 00907 M00S00854.listlb +++| 00908 M00S00855.listlb +++| PRS6 ZR B6,PRS3 IF END OF PARAMETERS
| Line S00856 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00909 M01S00856.v23l617 ---| SX1 CCE CONTROL CARD ERROR
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00910 M01S00016.v23l617 +++| SX1 CCE COMMAND ERROR 00911 M00S00857.listlb +++| JP PER 00912 M00S00858.listlb +++| 00913 M00S00859.listlb +++| PRS7 SX1 FNE FILE NAME ERROR 00914 M00S00860.listlb +++| JP PER 00915 M00S00861.listlb +++|
| Line S00862 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00916 M01S00862.v23l617 ---| PRS8 SX1 IPE ILLEGAL PARAMETER ERROR
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00917 M01S00017.v23l617 +++| PRS8 SX1 IPE INCORRECT PARAMETER ERROR 00918 M00S00863.listlb +++| JP PER 00919 M00S00864.listlb +++| 00920 M00S00865.listlb +++| PRSA CON 0LLISTLB
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00921 M01S00019.ns22000 +++| IPP SPACE 4,15 00922 M01S00020.ns22000 +++|** IPP - INITIALIZE PAGE PARAMETERS. 00923 M01S00021.ns22000 +++|* 00924 M01S00022.ns22000 +++|* EXIT (LL) = LINE LIMIT. 00925 M01S00023.ns22000 +++|* 00926 M01S00024.ns22000 +++|* USES X - 1, 2, 6. 00927 M01S00025.ns22000 +++|* A - 1, 6. 00928 M01S00026.ns22000 +++|* 00929 M01S00027.ns22000 +++|* CALLS STF. 00930 M01S00028.ns22000 +++|* 00931 M01S00029.ns22000 +++|* MACROS GETPP, WRITEC. 00932 M01S00030.ns22000 +++| 00933 M01S00031.ns22000 +++| 00934 M01S00032.ns22000 +++| IPP SUBR ENTRY/EXIT 00935 M01S00033.ns22000 +++| GETPP IPPA,LL,IPPA GET PAGE SIZE PARAMETERS 00936 M01S00034.ns22000 +++| SX2 O 00937 M01S00035.ns22000 +++| RJ STF 00938 M01S00036.ns22000 +++| ZR X6,IPPX IF TERMINAL PRINT FILE 00939 M01S00037.ns22000 +++| WRITEC X2,IPPA 00940 M01S00038.ns22000 +++| SA1 =10H1 00941 M01S00039.ns22000 +++| BX6 X1 FORCE PAGE EJECT 00942 M01S00040.ns22000 +++| SA6 TITL 00943 M01S00041.ns22000 +++| EQ IPPX RETURN 00944 M01S00042.ns22000 +++| 00945 M01S00043.ns22000 +++| 00946 M01S00044.ns22000 +++| IPPA BSS 2 PAGE SIZE PARAMETERS 00947 M00S00866.listlb +++| KWD SPACE 4 00948 M00S00867.listlb +++|** KWD - KEYWORD VERIFIER. 00949 M00S00868.listlb +++|* 00950 M00S00869.listlb +++|* ENTRY (X6) = KEYWORD. 00951 M00S00870.listlb +++|* 00952 M00S00871.listlb +++|* EXIT (B3) = ADDRESS OF KEYWORD PROCESSOR. 00953 M00S00872.listlb +++|* (B3) = 0, IF KEYWORD NOT FOUND. 00954 M00S00873.listlb +++|* 00955 M00S00874.listlb +++|* USES A - 1, 7. 00956 M00S00875.listlb +++|* X - 0, 1, 7. 00957 M00S00876.listlb +++| 00958 M00S00877.listlb +++| 00959 M00S00878.listlb +++| KWD SUBR ENTRY/EXIT 00960 M00S00879.listlb +++| BX1 X6 00961 M00S00880.listlb +++| AX1 59 00962 M00S00881.listlb +++| SA1 X1+TKWD-1 00963 M00S00882.listlb +++| KWD1 SA1 A1+B1 00964 M00S00883.listlb +++| BX0 X6-X1 00965 M00S00884.listlb +++| SB3 X1 ADDRESS OF KEYWORD PROCESSOR 00966 M00S00885.listlb +++| AX0 48 00967 M00S00886.listlb +++| ZR X1,KWDX IF END OF TABLE 00968 M00S00887.listlb +++| NZ X0,KWD1 IF NO MATCH 00969 M00S00888.listlb +++| MX7 -1 ENABLE/DISABLE LITERAL PROCESSING 00970 M00S00889.listlb +++| LX1 0-18 00971 M00S00890.listlb +++| BX7 -X7*X1 00972 M00S00891.listlb +++| SA7 LIT 00973 M00S00892.listlb +++| JP KWDX RETURN 00974 M00S00893.listlb +++| 00975 M00S00894.listlb +++| 00976 M00S00895.listlb +++|** TKWD - TABLE OF KEYWORDS. 00977 M00S00896.listlb +++|* 00978 M00S00897.listlb +++|*T 12/ARGUMENT,29/0,1/LA,18/ARGUMENT PROCESSOR
Figure
00979 M00S00898.listlb +++|* LA = 0 IF LITERALS ARE ALLOWED 00980 M00S00899.listlb +++|* LA = 1 IF LITERALS ARE NOT ALLOWED 00981 M00S00900.listlb +++| 00982 M00S00901.listlb +++| 00983 M00S00902.listlb +++| TKWD BSS 0 00984 M00S00903.listlb +++| VFD 12/0LL,29/0,1/0,18/PLP 00985 M00S00904.listlb +++| VFD 12/0LLO,29/0,1/0,18/PLO 00986 M00S00905.listlb +++| VFD 12/0LSI,29/0,1/1,18/PSI 00987 M00S00906.listlb +++| VFD 12/0LM,29/0,1/1,18/PSI 00988 M00S00907.listlb +++| VFD 12/0LQN,29/0,1/0,18/PQN 00989 M00S00908.listlb +++| VFD 12/0LP,29/0,1/0,18/PQN 00990 M00S00909.listlb +++| CON 0 END OF TABLE 00991 M00S00910.listlb +++| PER SPACE 4 00992 M00S00911.listlb +++|** PER - PROCESS ERRORS. 00993 M00S00912.listlb +++|* 00994 M00S00913.listlb +++|* ENTRY (X1) = ADDRESS OF ERROR MESSAGE. 00995 M00S00914.listlb +++| 00996 M00S00915.listlb +++| 00997 M00S00916.listlb +++| PER BSS 0 00998 M00S00917.listlb +++| MESSAGE X1 00999 M00S00918.listlb +++| ABORT 01000 M00S00919.listlb +++| 01001 M00S00920.listlb +++|
| Line S00921 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01002 M01S00921.v23l617 ---| CCE DATA C* CONTROL CARD ERROR.*
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01003 M01S00018.v23l617 +++| CCE DATA C* COMMAND ERROR.* 01004 M00S00922.listlb +++| FNE DATA C* FILE NAME ERROR.*
| Line S00923 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01005 M01S00923.v23l617 ---| IPE DATA C* ILLEGAL PARAMETER.* 01006 M01S00924.v23l617 ---| QNS DATA C* ILLEGAL COMBINATION OF QN/SI.*
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01007 M01S00019.v23l617 +++| IPE DATA C* INCORRECT PARAMETER.* 01008 M01S00020.v23l617 +++| QNS DATA C* INCORRECT COMBINATION OF QN/SI.* 01009 M00S00925.listlb +++| TITLE ARGUMENT PROCESSORS. 01010 M00S00926.listlb +++|** PLO - PROCESS LO PARAMETER. 01011 M00S00927.listlb +++|* 01012 M00S00928.listlb +++|* ENTRY (X6) = LIST OPTIONS. 01013 M00S00929.listlb +++| 01014 M00S00930.listlb +++| 01015 M00S00931.listlb +++| PLO BSS 0 ENTRY 01016 M00S00932.listlb +++| MX0 -6 01017 M00S00933.listlb +++| BX1 -X0*X6 01018 M00S00934.listlb +++| NZ X1,PRS8 IF TOO MANY LIST OPTIONS 01019 M00S00935.listlb +++| PLO1 LX6 6 01020 M00S00936.listlb +++| SX5 1RA 01021 M00S00937.listlb +++| BX1 -X0*X6 01022 M00S00938.listlb +++| ZR X1,PLO4 IF END OF LIST OPTIONS - RETURN 01023 M00S00939.listlb +++| BX1 X1-X5 01024 M00S00940.listlb +++| ZR X1,PRS1 IF *A* LIST OPTION 01025 M00S00941.listlb +++| SX5 B1 PRINT LABEL BIT 01026 M00S00942.listlb +++| SA1 TPLO-1 01027 M00S00943.listlb +++| PLO2 SA1 A1+B1 01028 M00S00944.listlb +++| BX3 X6-X1 01029 M00S00945.listlb +++| ZR X1,PRS8 IF LIST OPTION NOT IN TABLE 01030 M00S00946.listlb +++| BX3 -X0*X3 01031 M00S00947.listlb +++| NZ X3,PLO2 IF NO MATCH 01032 M00S00948.listlb +++| MX3 -4 01033 M00S00949.listlb +++| SA2 TF 01034 M00S00950.listlb +++| NZ X2,PLO3 IF READ TRAILER LABEL FLAG ALREADY SET 01035 M00S00951.listlb +++| BX2 -X0*X1 CHECK OPTIONS 01036 M00S00952.listlb +++| SX7 X2-1RH 01037 M00S00953.listlb +++| ZR X7,PLO3 IF *H* OPTION SELECTED 01038 M00S00954.listlb +++| SX7 X2-1RV 01039 M00S00955.listlb +++| ZR X7,PLO3 IF *V* OPTION SELECTED 01040 M00S00956.listlb +++| SX7 B1 SET READ TRAILER LABELS FLAG 01041 M00S00957.listlb +++| SA7 A2 01042 M00S00958.listlb +++| PLO3 LX1 4 01043 M00S00959.listlb +++| BX4 -X3*X1 01044 M00S00960.listlb +++| ZR X4,PLO1 IF DONE PROCESSING THIS LIST OPTION 01045 M00S00961.listlb +++| SA4 X4+TLAB 01046 M00S00962.listlb +++| BX7 X4+X5 01047 M00S00963.listlb +++| SA7 A4 01048 M00S00964.listlb +++| EQ PLO3 01049 M00S00965.listlb +++| 01050 M00S00966.listlb +++| PLO4 SA6 LO SET LIST OPTIONS PROCESSED 01051 M00S00967.listlb +++| EQ PRS1 GET NEXT PARAMETER 01052 M00S00968.listlb +++| 01053 M00S00969.listlb +++| LO CON 0 01054 M00S00970.listlb +++| 01055 M00S00971.listlb +++| TPLO BSS 0 01056 M00S00972.listlb +++| VFD 4/VOL1,4/HDR1,4/EOF1,4/EOV1,4/VOL,4/HDR,4/EOF,4/EOV 01057 M00S00973.listlb +++| VFD 4/UVL/,4/UHL,4/UTL,10/0,6/1RA A - OPTION 01058 M00S00974.listlb +++| VFD 4/VOL1,4/HDR1,4/EOF1,4/EOV1,38/0,6/1RR R - OPTION 01059 M00S00975.listlb +++| VFD 4/VOL,4/HDR,4/EOF,4/EOV,4/UVL,4/UHL,4/UTL,26/0 01060 M00S00976.listlb +++| VFD 6/1RO O - OPTION 01061 M00S00977.listlb +++| VFD 4/VOL1,4/VOL,46/0,6/1RV V - OPTION 01062 M00S00978.listlb +++| VFD 4/HDR1,4/HDR,46/0,6/1RH H - OPTION 01063 M00S00979.listlb +++| VFD 4/EOF1,4/EOF,46/0,6/1RF F - OPTION 01064 M00S00980.listlb +++| VFD 4/EOV1,4/EOV,46/0,6/1RE E - OPTION 01065 M00S00981.listlb +++| VFD 4/UVL,4/UHL,4/UTL,42/0,6/1RU U - OPTION 01066 M00S00982.listlb +++| CON 0 END OF TABLE 01067 M00S00983.listlb +++| PLP SPACE 4 01068 M00S00984.listlb +++|** PLP - PROCESS L PARAMETER. 01069 M00S00985.listlb +++|* 01070 M00S00986.listlb +++|* ENTRY (X6) = OUTPUT FILE NAME. 01071 M00S00987.listlb +++| 01072 M00S00988.listlb +++| 01073 M00S00989.listlb +++| PLP BSS 0 ENTRY 01074 M00S00990.listlb +++| MX0 42 01075 M00S00991.listlb +++| BX0 -X0*X6 01076 M00S00992.listlb +++| SA1 O 01077 M00S00993.listlb +++| NZ X0,PRS7 IF FILE NAME TOO LONG 01078 M00S00994.listlb +++| SX1 X1 01079 M00S00995.listlb +++| BX6 X6+X1 01080 M00S00996.listlb +++| SA6 A1 01081 M00S00997.listlb +++| JP PRS1 GET NEXT PARAMETER 01082 M00S00998.listlb +++| PSI SPACE 4 01083 M00S00999.listlb +++|** PSI - PROCESS SI PARAMETER. 01084 M00S01000.listlb +++|* 01085 M00S01001.listlb +++|* ENTRY (X6) = SET IDENTIFIER. 01086 M00S01002.listlb +++| 01087 M00S01003.listlb +++| 01088 M00S01004.listlb +++| PSI BSS 0 ENTRY 01089 M00S01005.listlb +++| MX0 6*6 01090 M00S01006.listlb +++| BX0 -X0*X6 01091 M00S01007.listlb +++| NZ X0,PRS8 IF SET IDENTIFIER TOO LONG 01092 M00S01008.listlb +++| BX1 X6 01093 M00S01009.listlb +++| RJ SFN SPACE FILL NAME 01094 M00S01010.listlb +++| MX0 6*6 01095 M00S01011.listlb +++| BX6 X0*X6 01096 M00S01012.listlb +++| LX6 54 01097 M00S01013.listlb +++| SA6 SI 01098 M00S01014.listlb +++| JP PRS1 GET NEXT PARAMETER 01099 M00S01015.listlb +++| PQN SPACE 4 01100 M00S01016.listlb +++|** PQN - PROCESS QN PARAMETER. 01101 M00S01017.listlb +++|* 01102 M00S01018.listlb +++|* ENTRY (X6) = FILE SEQUENCE NUMBER. 01103 M00S01019.listlb +++| 01104 M00S01020.listlb +++| 01105 M00S01021.listlb +++| PQN BSS 0 ENTRY 01106 M00S01022.listlb +++| MX0 4*6 01107 M00S01023.listlb +++| BX5 X6 01108 M00S01024.listlb +++| BX0 -X0*X6 01109 M00S01025.listlb +++| NZ X0,PRS8 IF FILE SEQUENCE NUMBER TOO LONG 01110 M00S01026.listlb +++| SB7 B1 01111 M00S01027.listlb +++| RJ DXB CONVERT TO BINARY 01112 M00S01028.listlb +++| SA6 SN 01113 M00S01029.listlb +++| SA6 QN 01114 M00S01030.listlb +++| JP PRS1 GET NEXT PARAMETER 01115 M00S01031.listlb +++| SPACE 4 01116 M00S01032.listlb +++|** COMMON DECKS. 01117 M00S01033.listlb +++| 01118 M00S01034.listlb +++|*CALL COMCCPM 01119 M00S01035.listlb +++|*CALL COMCDXB 01120 M00S01036.listlb +++| LIT CON 0 DEFINE LITERAL PROCESSING 01121 M00S01037.listlb +++|*CALL COMCPOP 01122 M00S01038.listlb +++|*CALL COMCSFN
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01123 M01S00045.ns22000 +++|*CALL COMCSTF 01124 M00S01039.listlb +++|*CALL COMCUSB 01125 M01S00046.ns22000 +++|*CALL COMCWTC 01126 M00S01040.listlb +++| SPACE 4 01127 M00S01041.listlb +++| END
cdc/nos2.source/opl.opl871/deck/listlb.txt · Last modified: (external edit)