cdc:nos2.source:opl.opl871:common:comcblp
Common COMCBLP
4 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcblp +++| CTEXT COMCBLP - BASIC LINE PROCESSOR. 00002 M01S00002.comcblp +++| SPACE 4,10 00003 M01S00003.comcblp +++| IF -DEF,QUAL$ 00004 M01S00004.comcblp +++| QUAL COMCBLP 00005 M01S00005.comcblp +++| ENDIF 00006 M01S00006.comcblp +++| BASE D
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | comcblp |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980. 00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.comcblp +++| SPACE 4 00010 M01S00009.comcblp +++|*** COMCBLP - *BASIC* LINE PROCESSOR. 00011 M01S00010.comcblp +++|* 00012 M01S00011.comcblp +++|* D. A. HIVELEY 71/02/14. 00013 M01S00012.comcblp +++|* S. P. BOOTH 80/07/15. 00014 M01S00013.comcblp +++| SPACE 4 00015 M01S00014.comcblp +++|*** COMCBLP REPLACES THE OLD LINE NUMBERS IN A *BASIC* 00016 M01S00015.comcblp +++|* STATEMENT WITH THE EQUIVALENT NEW LINE NUMBERS WHICH ARE 00017 M01S00016.comcblp +++|* CONTAINED IN A LINE NUMBER TABLE (*LNT*). 00018 M01S00017.comcblp +++| SPACE 4 00019 M01S00018.comcblp +++|** THE *LNT* CONSISTS OF ONE WORD ENTRIES EITHER IN A BUFFER 00020 M01S00019.comcblp +++|* OR WRITTEN OUT TO A LOCAL DISK FILE. THE FORMAT OF THE 00021 M01S00020.comcblp +++|* *LNT* ENTRY IS - 00022 M01S00021.comcblp +++|* 00023 M01S00022.comcblp +++|*T 18/ NLN, 18/ OLN, 24/ UNUSED
Figure
00024 M01S00023.comcblp +++|* 00025 M01S00024.comcblp +++|* NLN = NEW LINE NUMBER. 00026 M01S00025.comcblp +++|* OLN = OLD LINE NUMBER. 00027 M01S00026.comcblp +++| 00028 M01S00027.comcblp +++| TITLE WORKING STORAGE. 00029 M01S00028.comcblp +++| 00030 M01S00029.comcblp +++|* GENERAL EQUATES. 00031 M01S00030.comcblp +++| 00032 M01S00031.comcblp +++| COL63 EQU 63B 63 CHARACTER SET COLON REPRESENTATION 00033 M01S00032.comcblp +++| COL64 EQU 00B 64 CHARACTER SET COLON REPRESENTATION 00034 M01S00033.comcblp +++| QUOTE EQU 64B QUOTE 00035 M01S00034.comcblp +++| POUND EQU 60B POUND 00036 M01S00035.comcblp +++| APOS EQU 70B APOSTROPHE 00037 M01S00036.comcblp +++| NUMD EQU 5 MAXIMUM NUMBER OF DIGITS IN A LINE NUMBER 00038 M01S00037.comcblp +++| 00039 M01S00038.comcblp +++|* MISCELLANEOUS CELLS. 00040 M01S00039.comcblp +++| 00041 M01S00040.comcblp +++| BLWA CON 0 BUFFER LWA + 1 00042 M01S00041.comcblp +++| COLON CON 0 COLON 00043 M01S00042.comcblp +++| TRNC CON 0 TRUNCATION FLAG 00044 M01S00043.comcblp +++| 00045 M01S00044.comcblp +++|** LNTP - *LNT* PARAMETERS. 00046 M01S00045.comcblp +++|*T 1/ LWO, 1/ AS, 4/ 0, 18/ FA, 18/ BLWA, 18/ BFWA
Figure
00047 M01S00046.comcblp +++|* 00048 M01S00047.comcblp +++|* LWO = 1 - *LNT* HAS BEEN WRITTEN OUT TO DISK. 00049 M01S00048.comcblp +++|* AS = 1 - ASSUME SORTED *LNT*. 00050 M01S00049.comcblp +++|* FA = FET ADDRESS, IF *LNT* HAS BEEN WRITTEN TO DISK. 00051 M01S00050.comcblp +++|* 0, IF *LNT* IS CORE RESIDENT. 00052 M01S00051.comcblp +++|* BLWA = LWA+1 OF *LNT* BUFFER. 00053 M01S00052.comcblp +++|* BFWA = FWA OF *LNT* BUFFER. 00054 M01S00053.comcblp +++| 00055 M01S00054.comcblp +++| LNTP CON 0 00056 M01S00055.comcblp +++| 00057 M01S00056.comcblp +++| TITLE COMCBLP MAIN PROCESSOR. 00058 M01S00057.comcblp +++| BLP SPACE 4,20 00059 M01S00058.comcblp +++|** BLP - BASIC LINE PROCESSOR. 00060 M01S00059.comcblp +++|* 00061 M01S00060.comcblp +++|* ENTRY (X1) = FWA OF *LNT*. 00062 M01S00061.comcblp +++|* (X2) = LWA+1 OF *LNT*. 00063 M01S00062.comcblp +++|* (X3) = FET ADDRESS. 00064 M01S00063.comcblp +++|* .EQ. 0, IF NO FET ADDRESS. 00065 M01S00064.comcblp +++|* (X5) = 0, IF *LNT* NOT SORTED. 00066 M01S00065.comcblp +++|* = 1, IF *LNT* SORTED. 00067 M01S00066.comcblp +++|* (X6) = LWA+1 OF BUFFER. 00068 M01S00067.comcblp +++|* (B2) = LWA+1 OF BASIC STATEMENT IN BUFFER. 00069 M01S00068.comcblp +++|* (B7) = FWA OF BASIC STATEMENT IN BUFFER. 00070 M01S00069.comcblp +++|* 00071 M01S00070.comcblp +++|* EXIT (B7) = LWA+1 OF BASIC LINE. 00072 M01S00071.comcblp +++|* (X1) = TRUNCATION FLAG. 00073 M01S00072.comcblp +++|* .EQ. 0 IF NO TRUNCATION OCCURRED. 00074 M01S00073.comcblp +++|* (X2) = LINE CHANGED FLAG. 00075 M01S00074.comcblp +++|* .EQ. 0 IF NO CHANGE. 00076 M01S00075.comcblp +++|* 00077 M01S00076.comcblp +++|* USES X - ALL. 00078 M01S00077.comcblp +++|* A - 1, 2, 3, 4, 6, 7. 00079 M01S00078.comcblp +++|* B - ALL. 00080 M01S00079.comcblp +++|* 00081 M01S00080.comcblp +++|* CALLS ADL, ASL, CDD, SCN, SRC. 00082 M01S00081.comcblp +++| 00083 M01S00082.comcblp +++| BLP SUBR ENTRY/EXIT 00084 M01S00083.comcblp +++| SA6 BLWA SAVE LWA + 1 OF LINE BUFFER 00085 M01S00084.comcblp +++| SX7 B2 CHECK FOR TRUNCATION 00086 M01S00085.comcblp +++| IX7 X6-X7 00087 M01S00086.comcblp +++| SX6 B0+ 00088 M01S00087.comcblp +++| SA6 TRNC 00089 M01S00088.comcblp +++| SA6 BLPG 00090 M01S00089.comcblp +++| PL X7,BLP0 IF BASIC LINE FITS INTO BUFFER 00091 M01S00090.comcblp +++| SX7 B1+ 00092 M01S00091.comcblp +++| SA7 TRNC 00093 M01S00092.comcblp +++| BLP0 MX4 -18 00094 M01S00093.comcblp +++| BX1 -X4*X1 00095 M01S00094.comcblp +++| BX2 -X4*X2 00096 M01S00095.comcblp +++| LX2 18-0 00097 M01S00096.comcblp +++| MX0 1 00098 M01S00097.comcblp +++| BX6 X1+X2 00099 M01S00098.comcblp +++| ZR X3,BLP1 IF NO FET ADDRESS SELECTED 00100 M01S00099.comcblp +++| BX3 -X4*X3 00101 M01S00100.comcblp +++| BX6 X6+X0 00102 M01S00101.comcblp +++| LX3 36-0 00103 M01S00102.comcblp +++| BX6 X6+X3 00104 M01S00103.comcblp +++| BLP1 LX0 58-59 00105 M01S00104.comcblp +++| ZR X5,BLP1.1 IF *LNT* NOT SORTED 00106 M01S00105.comcblp +++| BX6 X0+X6 00107 M01S00106.comcblp +++| BLP1.1 SA6 LNTP 00108 M01S00107.comcblp +++| SA1 CSMR SET COLON ACCORDING TO CHARACTER SET MODE 00109 M01S00108.comcblp +++| SX6 COL64 00110 M01S00109.comcblp +++| NG X1,BLP2 IF 64 CHARACTER SET 00111 M01S00110.comcblp +++| SX6 COL63 00112 M01S00111.comcblp +++| BLP2 SA6 COLON 00113 M01S00112.comcblp +++| BLP3 LE B2,B7,BLP50 IF NO STATEMENT TO PROCESS 00114 M01S00113.comcblp +++| SB2 B2-1 00115 M01S00114.comcblp +++| SA2 B2+
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | comcblp |
M02 (Updated by) | cblp3 |
Seq # *Modification Id* Act ----------------------------+ 00116 M02S00115.cblp3 ---| SX2 X2-1R
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | comcblp |
M02 (Updated by) | cblp3 |
Seq # *Modification Id* Act ----------------------------+ 00117 M02S00116.cblp3 ---| ZR X2,BLP3 IF BLANK 00118 M01S00001.cblp3 +++| SX7 X2-1R 00119 M01S00002.cblp3 +++| ZR X7,BLP3 IF SPACE 00120 M01S00117.comcblp +++| SB2 B2+1 00121 M01S00003.cblp3 +++| SX7 X6-COL64 00122 M01S00004.cblp3 +++| NZ X7,BLP5 IF NOT 64 CSET 00123 M01S00005.cblp3 +++| BX6 X2-X6 CHECK LAST CHARACTER 00124 M01S00006.cblp3 +++| NZ X6,BLP5 IF NOT A TRAILING COLON 00125 M01S00007.cblp3 +++| SB2 B2+B1 ACCOUNT FOR COLON 00126 M01S00008.cblp3 +++| SX6 1R 00127 M01S00009.cblp3 +++| SA6 B2-1 STORE A TRAILING SPACE 00128 M01S00118.comcblp +++| BLP5 SX6 B0+ 00129 M01S00119.comcblp +++| SA6 BLPA CLEAR NESTING LEVEL 00130 M01S00120.comcblp +++| BLP5.1 BX7 X7-X7 00131 M01S00121.comcblp +++| SB4 B1+B1 ASSEMBLE FIRST 2 CHARACTERS IN STATEMENT 00132 M01S00122.comcblp +++| SA7 BLPC ONLY 1 LINE NUMBER AT END OF STATEMENT 00133 M01S00123.comcblp +++| RJ ASL 00134 M01S00124.comcblp +++| BX7 X5 00135 M01S00125.comcblp +++| SB4 B1 00136 M01S00126.comcblp +++| SA7 BLPD SAVE CURRENT STATEMENT 00137 M01S00127.comcblp +++| 00138 M01S00128.comcblp +++|* PROCESS STATEMENT TYPES. 00139 M01S00129.comcblp +++| 00140 M01S00130.comcblp +++| SX1 X5-2RMA 00141 M01S00131.comcblp +++| ZR X1,BLP12 IF *MA* FOUND 00142 M01S00132.comcblp +++| SX1 X5-2RPR 00143 M01S00133.comcblp +++| ZR X1,BLP13 IF *PR* FOUND 00144 M01S00134.comcblp +++| SX1 X5-2RGO 00145 M01S00135.comcblp +++| ZR X1,BLP19 IF *GO* FOUND 00146 M01S00136.comcblp +++| SX1 X5-2RON 00147 M01S00137.comcblp +++| ZR X1,BLP20 IF *ON* FOUND 00148 M01S00138.comcblp +++| SX1 X5-2RIF 00149 M01S00139.comcblp +++| ZR X1,BLP23 IF *IF* FOUND 00150 M01S00140.comcblp +++| SX1 X5-2RNO 00151 M01S00141.comcblp +++| ZR X1,BLP24 IF *NO* FOUND 00152 M01S00142.comcblp +++| EQ B2,B7,BLP50 IF END OF LINE 00153 M01S00143.comcblp +++| SX1 X5-2RRE 00154 M01S00144.comcblp +++| NZ X1,BLP6 IF *RE* NOT FOUND 00155 M01S00145.comcblp +++| RJ ASL ASSEMBLE NEXT CHARACTER 00156 M01S00146.comcblp +++| SX1 X5-1RM 00157 M01S00147.comcblp +++| NZ X1,BLP6 IF *REM* NOT FOUND 00158 M01S00148.comcblp +++| BLP5.2 SB7 B2 00159 M01S00149.comcblp +++| EQ BLP50 IGNORE REMAINDER OF LINE 00160 M01S00150.comcblp +++| 00161 M01S00151.comcblp +++|* SEARCH FOR *ELSE*. 00162 M01S00152.comcblp +++| 00163 M01S00153.comcblp +++| BLP6 SB7 B5+ RESTORE PREVIOUS VALUE TO LINE POINTER 00164 M01S00154.comcblp +++| SB4 4 00165 M01S00155.comcblp +++| SA4 =4RELSE 00166 M01S00156.comcblp +++| SA1 BLPA 00167 M01S00157.comcblp +++| ZR X1,BLP5.2 IF *ELSE* CLAUSE NOT EXPECTED 00168 M01S00158.comcblp +++| SX6 X1-1 00169 M01S00159.comcblp +++| SA6 A1+ 00170 M01S00160.comcblp +++| RJ SCN SCAN LINE FOR *ELSE* 00171 M01S00161.comcblp +++| EQ B2,B7,BLP50 IF *ELSE* NOT FOUND OR EOL 00172 M01S00162.comcblp +++| SX7 2RIF INDICATE LINE NUMBER NOT NEEDED 00173 M01S00163.comcblp +++| SA7 BLPD 00174 M01S00164.comcblp +++| EQ BLP29 SEARCH REMAINDER OF LINE 00175 M01S00165.comcblp +++| 00176 M01S00166.comcblp +++|* *MA* FOUND, 00177 M01S00167.comcblp +++|* CONTINUE SEARCH FOR *MAT PRINT*. 00178 M01S00168.comcblp +++| 00179 M01S00169.comcblp +++| BLP12 SB4 3 ASSEMBLE NEXT 3 CHARACTERS 00180 M01S00170.comcblp +++| RJ ASL 00181 M01S00171.comcblp +++| EQ B2,B7,BLP50 IF END OF LINE 00182 M01S00172.comcblp +++| SX5 X5-3RTPR 00183 M01S00173.comcblp +++| NZ X5,BLP6 IF *MAT PR* NOT FOUND 00184 M01S00174.comcblp +++| 00185 M01S00175.comcblp +++|* *MAT PR* OR *PR* FOUND, 00186 M01S00176.comcblp +++|* CONTINUE SEARCH FOR *PRINT USING*. 00187 M01S00177.comcblp +++| 00188 M01S00178.comcblp +++| BLP13 SB4 3 ASSEMBLE NEXT 3 CHARACTERS 00189 M01S00179.comcblp +++| RJ ASL 00190 M01S00180.comcblp +++| EQ B2,B7,BLP50 IF END OF LINE 00191 M01S00181.comcblp +++| SX5 X5-3RINT 00192 M01S00182.comcblp +++| NZ X5,BLP6 IF *PRINT* NOT FOUND 00193 M01S00001.cblp2 +++| SX0 B7+ SAVE CURRENT LINE POSITION 00194 M01S00183.comcblp +++| SA4 =5RUSING 00195 M01S00184.comcblp +++| SB4 5 00196 M01S00185.comcblp +++| RJ SCN SCAN LINE FOR *USING*
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | comcblp |
M02 (Updated by) | cblp2 |
Seq # *Modification Id* Act ----------------------------+ 00197 M02S00186.cblp2 ---| EQ B2,B7,BLP50 IF *USING* NOT FOUND OR EOL 00198 M01S00002.cblp2 +++| SB5 X0+ RESTORE PREVIOUS LINE POSITION 00199 M01S00003.cblp2 +++| EQ B2,B7,BLP6 IF *USING* NOT FOUND OR EOL 00200 M01S00187.comcblp +++| EQ BLP29 SEARCH FOR OLD STATEMENT NUMBER 00201 M01S00188.comcblp +++| 00202 M01S00189.comcblp +++|* *GO* FOUND, 00203 M01S00190.comcblp +++|* CONTINUE SEARCH FOR *GOTO* OR *GOSUB*. 00204 M01S00191.comcblp +++| 00205 M01S00192.comcblp +++| BLP19 SB4 2 ASSEMBLE NEXT 2 CHARACTERS 00206 M01S00193.comcblp +++| RJ ASL 00207 M01S00194.comcblp +++| SX1 X5-2RTO 00208 M01S00195.comcblp +++| ZR X1,BLP29 IF *GOTO* FOUND 00209 M01S00196.comcblp +++| SX1 X5-2RSU 00210 M01S00197.comcblp +++| NZ X1,BLP6 IF *GOSU* NOT FOUND 00211 M01S00198.comcblp +++| SB4 B1 ASSEMBLE NEXT CHARACTER 00212 M01S00199.comcblp +++| RJ ASL 00213 M01S00200.comcblp +++| SX1 X5-1RB 00214 M01S00201.comcblp +++| ZR X1,BLP29 IF *GOSUB* FOUND 00215 M01S00202.comcblp +++| EQ BLP6 CONTINUE SCAN 00216 M01S00203.comcblp +++| 00217 M01S00204.comcblp +++|* *ON* FOUND, 00218 M01S00205.comcblp +++|* CONTINUE SEARCH FOR *ON ERROR*, *ON EXPRESSION*, OR 00219 M01S00206.comcblp +++|* *ON ATTENTION*. 00220 M01S00207.comcblp +++| 00221 M01S00208.comcblp +++| BLP20 SB4 5 ASSEMBLE NEXT 5 CHARACTERS 00222 M01S00209.comcblp +++| SA4 =5RERROR 00223 M01S00210.comcblp +++| SX0 B7 SAVE CURRENT POSITION 00224 M01S00211.comcblp +++| RJ SCN SCAN FOR *ERROR* 00225 M01S00212.comcblp +++| BX5 X4-X5 00226 M01S00213.comcblp +++| ZR X5,BLP23.1 IF *ERROR* FOUND 00227 M01S00214.comcblp +++| SB7 X0 RESTORE PREVIOUS VALUE TO LINE POINTER 00228 M01S00215.comcblp +++| SA4 =9RATTENTION 00229 M01S00216.comcblp +++| SB4 9 00230 M01S00217.comcblp +++| RJ SCN SCAN FOR *ATTENTION* 00231 M01S00218.comcblp +++| BX5 X4-X5 00232 M01S00219.comcblp +++| ZR X5,BLP23.1 IF *ATTENTION* FOUND 00233 M01S00220.comcblp +++| SX7 B1 00234 M01S00221.comcblp +++| SB7 X0 RESTORE PREVIOUS VALUE TO LINE POINTER 00235 M01S00222.comcblp +++| SA7 BLPC INDICATES MULTIPLE LINE NUMBERS TO PROCESS 00236 M01S00223.comcblp +++| SB4 5 00237 M01S00224.comcblp +++| SA4 =5RGOSUB 00238 M01S00225.comcblp +++| RJ SCN SCAN REMAINDER OF LINE FOR *GOSUB* 00239 M01S00226.comcblp +++| BX5 X5-X4 00240 M01S00227.comcblp +++| ZR X5,BLP29 IF *ON EXPRESSION GOSUB* FOUND 00241 M01S00228.comcblp +++| SB7 X0 RESTORE PREVIOUS VALUE TO LINE POINTER 00242 M01S00229.comcblp +++| EQ BLP23.1 SCAN FOR THEN 00243 M01S00230.comcblp +++| 00244 M01S00231.comcblp +++|* *IF*, *ON ERROR ...*, *ON ATTENTION*, OR *ON EXPRESSION* 00245 M01S00232.comcblp +++|* BUT NOT *ON EXPRESSION GOSUB* FOUND, CONTINUE SEARCH 00246 M01S00233.comcblp +++|* FOR *THEN* OR *GOTO*. 00247 M01S00234.comcblp +++| 00248 M01S00235.comcblp +++| BLP23 SA1 BLPA INCREMENT *IF* STATEMENT NESTING LEVEL 00249 M01S00236.comcblp +++| SX6 X1+B1 00250 M01S00237.comcblp +++| SA6 A1 00251 M01S00238.comcblp +++| BLP23.1 SB4 4 00252 M01S00239.comcblp +++| SA4 =4RTHEN 00253 M01S00240.comcblp +++| SX0 B7 SAVE CURRENT LINE POINTER 00254 M01S00241.comcblp +++| RJ SCN SCAN REMAINDER OF LINE FOR *THEN* 00255 M01S00242.comcblp +++| BX5 X5-X4 00256 M01S00243.comcblp +++| ZR X5,BLP29 IF *THEN* FOUND 00257 M01S00244.comcblp +++| SB7 X0+ RESTORE PREVIOUS VALUE TO LINE POINTER 00258 M01S00245.comcblp +++| SB4 4 00259 M01S00246.comcblp +++| SA4 =4RGOTO 00260 M01S00247.comcblp +++| RJ SCN SCAN REMAINDER OF LINE FOR *GOTO* 00261 M01S00248.comcblp +++| BX7 X7-X7 00262 M01S00249.comcblp +++| SA7 BLPD INDICATE LINE NUMBER NEEDED 00263 M01S00250.comcblp +++| EQ B2,B7,BLP50 IF *GOTO* NOT FOUND OR EOL 00264 M01S00251.comcblp +++| EQ BLP29 SEARCH FOR OLD STATEMENT NUMBER 00265 M01S00252.comcblp +++| 00266 M01S00253.comcblp +++|* *NO* FOUND, 00267 M01S00254.comcblp +++|* CONTINUE SEARCH FOR *NODATA*. 00268 M01S00255.comcblp +++| 00269 M01S00256.comcblp +++| BLP24 SB4 4 ASSEMBLE NEXT 4 CHARACTERS 00270 M01S00257.comcblp +++| RJ ASL 00271 M01S00258.comcblp +++| SA1 =4RDATA 00272 M01S00259.comcblp +++| BX5 X5-X1 00273 M01S00260.comcblp +++| NZ X5,BLP6 IF *NODATA* NOT FOUND 00274 M01S00261.comcblp +++| EQ B2,B7,BLP50 IF *NODATA* FOUND BUT AT END OF LINE 00275 M01S00262.comcblp +++| SB4 B1 ASSEMBLE NEXT CHARACTER 00276 M01S00263.comcblp +++| RJ ASL 00277 M01S00264.comcblp +++| SX1 X5-POUND 00278 M01S00265.comcblp +++| NZ X1,BLP28 IF NUMBER SIGN NOT FOUND 00279 M01S00266.comcblp +++| SX4 1R, 00280 M01S00267.comcblp +++| SB4 B1 00281 M01S00268.comcblp +++| RJ SCN SCAN LINE FOR *,* 00282 M01S00269.comcblp +++| EQ B2,B7,BLP50 IF END OF INCOMPLETE *NODATA* STATEMENT 00283 M01S00270.comcblp +++| EQ BLP29 SEARCH FOR OLD STATEMENT NUMBER 00284 M01S00271.comcblp +++| 00285 M01S00272.comcblp +++|* SEARCH REMAINDER OF LINE FOR OLD STATEMENT NUMBER TO BE 00286 M01S00273.comcblp +++|* REPLACED WITH ITS CORRESPONDING NEW STATEMENT NUMBER. 00287 M01S00274.comcblp +++|* IF LOCATION *BLPC* CONTAINS A ZERO, ONLY ONE STATEMENT NUMBER 00288 M01S00275.comcblp +++|* IS TO BE PROCESSED, OTHERWISE PROCESSING OF STATEMENT NUMBERS 00289 M01S00276.comcblp +++|* IS CONTINUED UNTIL A LETTER OR SPECIAL CHARACTER OTHER THAN A 00290 M01S00277.comcblp +++|* COMMA IS ENCOUNTERED OR UNTIL AN ERROR IS DETECTED. 00291 M01S00278.comcblp +++| 00292 M01S00279.comcblp +++| BLP28 SB7 B5+ RESTORE PREVIOUS VALUE TO LINE POINTER 00293 M01S00280.comcblp +++| BLP29 SX7 1R 00294 M01S00281.comcblp +++| SB5 B7+ SAVE CURRENT LINE POINTER 00295 M01S00282.comcblp +++| SB6 NUMD 00296 M01S00283.comcblp +++| SB4 B0 00297 M01S00284.comcblp +++| BX6 X6-X6 00298 M01S00285.comcblp +++| BLP30 EQ B2,B7,BLP32 IF END OF LINE 00299 M01S00286.comcblp +++| SA1 B7 00300 M01S00287.comcblp +++| BX2 X1-X7 00301 M01S00288.comcblp +++| SB7 B7+1 00302 M01S00289.comcblp +++| ZR X2,BLP30 IF BLANK 00303 M01S00290.comcblp +++| SX2 X1-1R+ 00304 M01S00291.comcblp +++| PL X2,BLP31 IF SPECIAL CHARACTER 00305 M01S00292.comcblp +++| SX2 X1-1R0 00306 M01S00293.comcblp +++| NG X2,BLP31 IF LETTER 00307 M01S00294.comcblp +++| SA7 B7-B1 FILL CURRENT WORD WITH BLANK 00308 M01S00295.comcblp +++| LX5 X6,B1 00309 M01S00296.comcblp +++| LX6 3 00310 M01S00297.comcblp +++| 00311 M01S00298.comcblp +++|* ACCUMULATE OCTAL INTEGER REPRESENTATION OF OLD LINE NUMBER. 00312 M01S00299.comcblp +++| 00313 M01S00300.comcblp +++| IX6 X6+X5 00314 M01S00301.comcblp +++| IX6 X6+X2 00315 M01S00302.comcblp +++| SB4 B4+B1 00316 M01S00303.comcblp +++| SB3 B7+ 00317 M01S00304.comcblp +++| EQ BLP30 CHECK NEXT CHARACTER 00318 M01S00305.comcblp +++| 00319 M01S00306.comcblp +++| BLP31 SB7 B7-1 00320 M01S00307.comcblp +++| BLP32 NZ B4,BLP33 IF NUMBER FOUND 00321 M01S00308.comcblp +++| SA1 BLPD 00322 M01S00309.comcblp +++| SX1 X1-2RIF 00323 M01S00310.comcblp +++| NZ X1,BLP6 IF NOT *IF* STATEMENT 00324 M01S00311.comcblp +++| SB7 B5+ RESTORE LINE POINTER 00325 M01S00312.comcblp +++| EQ BLP5.1 PROCESS *IF* CONDITIONAL 00326 M01S00313.comcblp +++| 00327 M01S00314.comcblp +++| BLP33 EQ B3,B7,BLP34 IF NO BLANK AFTER LINE NUMBER 00328 M01S00315.comcblp +++| SB7 B7-1 PRESERVE BLANK 00329 M01S00316.comcblp +++| BLP34 SB3 B3-B4 00330 M01S00317.comcblp +++| EQ B3,B5,BLP35 IF NO BLANK BEFORE LINE NUMBER 00331 M01S00318.comcblp +++| SB5 B5+B1 PRESERVE BLANK 00332 M01S00319.comcblp +++| BLP35 SX7 B5+B6 SAVE INSERTION POINTER 00333 M01S00320.comcblp +++| SB4 B6-B4 00334 M01S00321.comcblp +++| NG B4,BLP6 IF MORE THAN FIVE DIGITS 00335 M01S00322.comcblp +++| SB4 B3-B4 00336 M01S00323.comcblp +++| GE B5,B4,BLP36 IF NOT ENOUGH BLANKS BEFORE LINE NUMBER 00337 M01S00324.comcblp +++| SX7 B4+B6 00338 M01S00325.comcblp +++| BLP36 SA7 BLPB 00339 M01S00326.comcblp +++| SB4 B7-B5 00340 M01S00327.comcblp +++| SB4 B4-B6 00341 M01S00328.comcblp +++| GE B4,BLP38 IF ROOM TO INSERT NEW LINE NUMBER 00342 M01S00329.comcblp +++| SB2 B2-B4 POINTS TO NEW END OF LINE 00343 M01S00330.comcblp +++| SB4 B2+B4 POINTS TO OLD END OF LINE 00344 M01S00331.comcblp +++| SA1 BLWA 00345 M01S00332.comcblp +++| SB6 X1+ 00346 M01S00333.comcblp +++| SB5 B2+ 00347 M01S00334.comcblp +++| LE B2,B6,BLP37 IF NEW LINE IS NOT TOO LONG 00348 M01S00335.comcblp +++| SX7 B1+ SET TRUNCATION FLAG AND ADJUST POINTERS 00349 M01S00336.comcblp +++| SA7 TRNC 00350 M01S00337.comcblp +++| SB2 B2-B6 00351 M01S00338.comcblp +++| SB4 B4-B2 00352 M01S00339.comcblp +++| SB2 B6 00353 M01S00340.comcblp +++| SB5 B2 00354 M01S00341.comcblp +++| 00355 M01S00342.comcblp +++|* RIGHT SHIFT LINE SO EXTRA DIGITS CAN BE INSERTED. 00356 M01S00343.comcblp +++| 00357 M01S00344.comcblp +++| BLP37 SB4 B4-B1 00358 M01S00345.comcblp +++| SB5 B5-B1 00359 M01S00346.comcblp +++| LT B4,B7,BLP38.1 IF MOVE COMPLETE 00360 M01S00347.comcblp +++| SA1 B4 00361 M01S00348.comcblp +++| BX7 X1 00362 M01S00349.comcblp +++| SA7 B5+ 00363 M01S00350.comcblp +++| EQ BLP37 MOVE NEXT CHARACTER 00364 M01S00351.comcblp +++| 00365 M01S00352.comcblp +++| BLP38.1 SB7 B5+1 00366 M01S00353.comcblp +++| BLP38 SX0 X6 SET UP ENTRY CONDITIONS 00367 M01S00354.comcblp +++| RJ SRC SEARCH LINE TABLE FOR OLD LINE NUMBER 00368 M01S00355.comcblp +++| GT B4,BLP39 IF OLD LINE NUMBER FOUND 00369 M01S00356.comcblp +++| SX1 X0 00370 M01S00357.comcblp +++| EQ BLP40 RESTORE PREVIOUS LINE NUMBER 00371 M01S00358.comcblp +++| 00372 M01S00359.comcblp +++| BLP39 BX2 X1 00373 M01S00360.comcblp +++| SX6 B1 00374 M01S00361.comcblp +++| MX1 -18 00375 M01S00362.comcblp +++| AX2 42-0 GET NEW LINE NUMBER 00376 M01S00363.comcblp +++| SA6 BLPG SET LINE CHANGED FLAG 00377 M01S00364.comcblp +++| BX1 -X1*X2 00378 M01S00365.comcblp +++| BLP40 SB6 B2 SAVE END OF LINE POINTER 00379 M01S00366.comcblp +++| RJ CDD CONVERT NEW LINE NUMBER 00380 M01S00367.comcblp +++| SB2 B6 00381 M01S00368.comcblp +++| BX2 X6 00382 M01S00369.comcblp +++| SA1 BLPB GET INSERTION POINTER 00383 M01S00370.comcblp +++| SB6 X1+ 00384 M01S00371.comcblp +++| RJ ADL INSERT LINE NUMBER IN LINE 00385 M01S00372.comcblp +++| EQ B2,B7,BLP50 IF END OF LINE 00386 M01S00373.comcblp +++| SA1 BLPC 00387 M01S00374.comcblp +++| SB5 B7
| Line S00375 Modification History | |
|---|---|
M01 (Added by) | comcblp |
M02 (Updated by) | cblp1 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00375.cblp1 ---| NG X1,BLP6 IF REMAINDER OF STATEMENT TO BE IGNORED 00389 M01S00001.cblp1 +++| ZR X1,BLP6 IF REMAINDER OF STATEMENT IS TO BE IGNORED 00390 M01S00376.comcblp +++| SB4 B1 ASSEMBLE NEXT CHARACTER 00391 M01S00377.comcblp +++| SX0 B5+ SAVE CURRENT LINE POINTER 00392 M01S00378.comcblp +++| RJ ASL 00393 M01S00379.comcblp +++| SX5 X5-1R, 00394 M01S00380.comcblp +++| ZR X5,BLP29 IF ADDITIONAL LINE NUMBERS TO PROCESS 00395 M01S00381.comcblp +++| EQ BLP6 SEARCH FOR *ELSE* 00396 M01S00382.comcblp +++| 00397 M01S00383.comcblp +++|* SET UP VALID EXIT CONDITIONS. 00398 M01S00384.comcblp +++| 00399 M01S00385.comcblp +++| BLP50 SA1 TRNC 00400 M01S00386.comcblp +++| SA2 BLPG 00401 M01S00387.comcblp +++| EQ BLPX RETURN 00402 M01S00388.comcblp +++| 00403 M01S00389.comcblp +++| BLPA CON 0 *IF* STATEMENT NESTING LEVEL 00404 M01S00390.comcblp +++| BLPB CON 0 TEMPORARY HOLD AREA FOR LINE POINTER 00405 M01S00391.comcblp +++| BLPC CON 0 MULTIPLE LINE NUMBER FLAG 00406 M01S00392.comcblp +++| BLPD CON 0 LINE NUMBER MANDATORY FLAG 00407 M01S00393.comcblp +++| BLPG CON 0 LINE CHANGED FLAG 00408 M01S00394.comcblp +++| TITLE COMCBLP SUBROUTINES. 00409 M01S00395.comcblp +++| ADL SPACE 4,15 00410 M01S00396.comcblp +++|** ADL - ADD LINE NUMBER 00411 M01S00397.comcblp +++|* 00412 M01S00398.comcblp +++|* *ADL* PLACES THE NEW LINE NUMBER INTO THE BUFFER, WORKING 00413 M01S00399.comcblp +++|* FROM THE LEAST SIGNIFICANT DIGIT TO THE MOST SIGNIFICANT. 00414 M01S00400.comcblp +++|* LEADING ZEROS ARE ADDED FOR LINE NUMBERS LESS THAN *NUMD* 00415 M01S00401.comcblp +++|* DIGITS LONG. 00416 M01S00402.comcblp +++|* 00417 M01S00403.comcblp +++|* ENTRY (B6) = STRING BUFFER ADDRESS+1 OF INSERT POINT. 00418 M01S00404.comcblp +++|* (X2) = LINE NUMBER RIGHT JUSTIFIED WITH LEADING 00419 M01S00405.comcblp +++|* BLANKS. 00420 M01S00406.comcblp +++|* (B2) = LWA+1 OF BASIC STATEMENT. 00421 M01S00407.comcblp +++|* 00422 M01S00408.comcblp +++|* EXIT NUMBER STORED IN STRING BUFFER. 00423 M01S00409.comcblp +++|* 00424 M01S00410.comcblp +++|* USES X - 0, 2, 5, 6, 7. 00425 M01S00411.comcblp +++|* A - 6, 7. 00426 M01S00412.comcblp +++|* B - 5, 6. 00427 M01S00413.comcblp +++| 00428 M01S00414.comcblp +++| 00429 M01S00415.comcblp +++| 00430 M01S00416.comcblp +++| ADL SUBR ENTRY/EXIT 00431 M01S00417.comcblp +++| SB5 NUMD 00432 M01S00418.comcblp +++| SX7 1R0 00433 M01S00419.comcblp +++| SX0 77B 00434 M01S00420.comcblp +++| ADL1 BX6 X0*X2 00435 M01S00421.comcblp +++| SX5 X6-1R 00436 M01S00422.comcblp +++| ZR X5,ADL3 IF BLANK 00437 M01S00423.comcblp +++| SB6 B6-1 00438 M01S00424.comcblp +++| LE B2,B6,ADL2 IF PAST BUFFER LWA 00439 M01S00425.comcblp +++| SA6 B6+ 00440 M01S00426.comcblp +++| ADL2 SB5 B5-B1 00441 M01S00427.comcblp +++| ZR B5,ADLX IF 5 DIGITS 00442 M01S00428.comcblp +++| AX2 6 00443 M01S00429.comcblp +++| EQ ADL1 ADD NEXT DIGIT 00444 M01S00430.comcblp +++| 00445 M01S00431.comcblp +++| ADL3 SB6 B6-B1 00446 M01S00432.comcblp +++| LE B2,B6,ADL4 IF PAST BUFFER LWA 00447 M01S00433.comcblp +++| SA7 B6 PAD WITH LEADING ZEROS 00448 M01S00434.comcblp +++| ADL4 SB5 B5-1 00449 M01S00435.comcblp +++| NZ B5,ADL3 IF NOT FIVE DIGITS 00450 M01S00436.comcblp +++| EQ ADLX RETURN 00451 M01S00437.comcblp +++| ASL SPACE 4,15 00452 M01S00438.comcblp +++|** ASL - ASSEMBLE LETTERS. 00453 M01S00439.comcblp +++|* 00454 M01S00440.comcblp +++|* ENTRY (B2) = POINTER TO END OF LINE. 00455 M01S00441.comcblp +++|* (B4) = NUMBER OF NON-BLANK CHARACTERS TO BE ASSEMBLED. 00456 M01S00442.comcblp +++|* (B7) = STRING BUFFER ADDRESS OF START OF ASSEMBLY. 00457 M01S00443.comcblp +++|* 00458 M01S00444.comcblp +++|* EXIT (X5) = ASSEMBLED CHARACTERS (RIGHT JUSTIFIED). 00459 M01S00445.comcblp +++|* (B7) = UPDATED STRING BUFFER ADDRESS. 00460 M01S00446.comcblp +++|* (B5) = STRING BUFFER ADDRESS OF START OF ASSEMBLY. 00461 M01S00447.comcblp +++|* 00462 M01S00448.comcblp +++|* USES X - 2, 3, 5. 00463 M01S00449.comcblp +++|* A - 2. 00464 M01S00450.comcblp +++|* B - 4, 5, 7. 00465 M01S00451.comcblp +++| 00466 M01S00452.comcblp +++| 00467 M01S00453.comcblp +++| ASL SUBR ENTRY/EXIT 00468 M01S00454.comcblp +++| SB5 B7+ 00469 M01S00455.comcblp +++| SX5 B0+ 00470 M01S00456.comcblp +++| ASL1 EQ B2,B7,ASLX IF END OF LINE 00471 M01S00457.comcblp +++| SA2 B7 00472 M01S00458.comcblp +++| SB7 B7+B1 00473 M01S00459.comcblp +++| SX3 X2-1R 00474 M01S00460.comcblp +++| ZR X3,ASL1 IF SPACE 00475 M01S00461.comcblp +++| MX3 54 00476 M01S00462.comcblp +++| BX3 X3*X2 00477 M01S00463.comcblp +++| ZR X3,ASL4 IF DISPLAY CODE CHARACTER 00478 M01S00464.comcblp +++| SX3 X3-7600B 00479 M01S00465.comcblp +++| NZ X3,ASL3 IF ESCAPE CODE *74* 00480 M01S00466.comcblp +++| MX3 -6 00481 M01S00467.comcblp +++| BX2 -X3*X2 00482 M01S00468.comcblp +++| ZR X2,ASL2 IF NOT A LOWER CASE ALPHABETIC CHARACTER 00483 M01S00469.comcblp +++| SX3 X3-33B 00484 M01S00470.comcblp +++| NG X3,ASL4 IF A LOWER CASE ALPHABETIC CHARACTER 00485 M01S00471.comcblp +++| ASL2 SX2 1R? 00486 M01S00472.comcblp +++| EQ ASL4 ADD DUMMY CHARACTER TO STRING 00487 M01S00473.comcblp +++| 00488 M01S00474.comcblp +++| ASL3 SX2 X2-7404B 00489 M01S00475.comcblp +++| NZ X2,ASL2 IF NOT AN EXTENDED COLON 00490 M01S00476.comcblp +++| SA2 COLON 00491 M01S00477.comcblp +++| ASL4 LX5 6 ADD CHARACTER 00492 M01S00478.comcblp +++| SB4 B4-1 00493 M01S00479.comcblp +++| IX5 X5+X2 00494 M01S00480.comcblp +++| NZ B4,ASL1 IF ALL CHARACTERS NOT ASSEMBLED 00495 M01S00481.comcblp +++| EQ ASLX RETURN 00496 M01S00482.comcblp +++| SCN SPACE 4,15 00497 M01S00483.comcblp +++|** SCN - SCAN LINE. 00498 M01S00484.comcblp +++|* 00499 M01S00485.comcblp +++|* *SCN* SCANS THE REST OF THE LINE LOOKING FOR THE 00500 M01S00486.comcblp +++|* CHARACTER STRING SPECIFIED IN (X4). CHARACTERS 00501 M01S00487.comcblp +++|* WITHIN QUOTES (LITERALS), AND CHARACTERS AFTER AN 00502 M01S00488.comcblp +++|* APOSTROPHE (EMBEDDED COMMENTS), ARE IGNORED. 00503 M01S00489.comcblp +++|* 00504 M01S00490.comcblp +++|* ENTRY (B2) = POINTER TO END OF LINE. 00505 M01S00491.comcblp +++|* (B4) = LENGTH OF CHARACTER STRING IN X4. 00506 M01S00492.comcblp +++|* (B7) = POINTER TO CURRENT WORD IN LINE. 00507 M01S00493.comcblp +++|* (X4) = CHARACTER STRING RIGHT JUSTIFIED TO SCAN FOR. 00508 M01S00494.comcblp +++|* 00509 M01S00495.comcblp +++|* EXIT (X5) = LAST ASSEMBLED CHARACTER STRING. 00510 M01S00496.comcblp +++|* (B7) = UPDATED LINE POINTER - POINTS TO POSITION 00511 M01S00497.comcblp +++|* IMMEDIATELY FOLLOWING LAST CHARACTER ASSEMBLED 00512 M01S00498.comcblp +++|* OR TO THE END OF LINE. 00513 M01S00499.comcblp +++|* 00514 M01S00500.comcblp +++|* USES X - 1, 5. 00515 M01S00501.comcblp +++|* A - 5. 00516 M01S00502.comcblp +++|* B - 4, 6, 7. 00517 M01S00503.comcblp +++|* 00518 M01S00504.comcblp +++|* CALLS ASL. 00519 M01S00505.comcblp +++| 00520 M01S00506.comcblp +++| 00521 M01S00507.comcblp +++| SCN SUBR ENTRY/EXIT 00522 M01S00508.comcblp +++| SB6 B4+ SAVE LENGTH OF CHARACTER STRING IN X4 00523 M01S00509.comcblp +++| SX5 B0+ 00524 M01S00510.comcblp +++| SCN1 EQ B2,B7,SCNX IF END OF LINE 00525 M01S00511.comcblp +++| SA5 B7 00526 M01S00512.comcblp +++| SB7 B7+B1 00527 M01S00513.comcblp +++| SX1 X5-1R 00528 M01S00514.comcblp +++| ZR X1,SCN1 IF BLANK 00529 M01S00515.comcblp +++| SX1 X5-QUOTE 00530 M01S00516.comcblp +++| ZR X1,SCN2 IF QUOTE 00531 M01S00517.comcblp +++| SX1 X5-APOS 00532 M01S00518.comcblp +++| ZR X1,SCN3 IF EMBEDDED COMMENT FOUND 00533 M01S00519.comcblp +++| SB7 B7-B1 00534 M01S00520.comcblp +++| SB4 B6 REINITIALIZE TO LENGTH OF STRING IN X4 00535 M01S00521.comcblp +++| RJ ASL ASSEMBLE NEXT CHARACTER(S) FROM LINE 00536 M01S00522.comcblp +++| BX1 X5-X4 00537 M01S00523.comcblp +++| ZR X1,SCNX IF CHARACTER STRING IN X4 FOUND IN LINE 00538 M01S00524.comcblp +++| SB7 B5+B1 00539 M01S00525.comcblp +++| EQ SCN1 CHECK NEXT CHARACTER 00540 M01S00526.comcblp +++| 00541 M01S00527.comcblp +++| SCN2 EQ B2,B7,SCNX IF END OF LINE 00542 M01S00528.comcblp +++| SA5 B7 00543 M01S00529.comcblp +++| SB7 B7+B1 00544 M01S00530.comcblp +++| SX1 X5-QUOTE 00545 M01S00531.comcblp +++| NZ X1,SCN2 IF MATCHING QUOTE NOT FOUND 00546 M01S00532.comcblp +++| EQ SCN1 CHECK NEXT CHARACTER 00547 M01S00533.comcblp +++| 00548 M01S00534.comcblp +++| SCN3 SB7 B2 SET END OF LINE 00549 M01S00535.comcblp +++| EQ SCNX RETURN 00550 M01S00536.comcblp +++| SRC SPACE 4,20 00551 M01S00537.comcblp +++|** SRC - SEARCH LINE NUMBER TABLE. 00552 M01S00538.comcblp +++|* 00553 M01S00539.comcblp +++|* ENTRY (X0) = OLD LINE NUMBER. 00554 M01S00540.comcblp +++|* 00555 M01S00541.comcblp +++|* EXIT (B4) = SEARCH FLAG. 00556 M01S00542.comcblp +++|* .LT. 0, LINE NUMBER NOT FOUND USING ASSUMED 00557 M01S00543.comcblp +++|* SORT OPTION. 00558 M01S00544.comcblp +++|* .EQ. 0, LINE NUMBER NOT FOUND. 00559 M01S00545.comcblp +++|* .GT. 0, LINE NUMBER FOUND. 00560 M01S00546.comcblp +++|* (X1) = *LNT* ENTRY. 00561 M01S00547.comcblp +++|* 00562 M01S00548.comcblp +++|* USES X - 1, 2, 3, 4, 6. 00563 M01S00549.comcblp +++|* A - 2, 3, 6. 00564 M01S00550.comcblp +++|* B - 4, 5, 6. 00565 M01S00551.comcblp +++|* 00566 M01S00552.comcblp +++|* MACROS READEI, READO, REWIND. 00567 M01S00553.comcblp +++| 00568 M01S00554.comcblp +++| 00569 M01S00555.comcblp +++| SRC SUBR ENTRY/EXIT 00570 M01S00556.comcblp +++| SA2 LNTP 00571 M01S00557.comcblp +++| SB6 0-24 00572 M01S00558.comcblp +++| BX6 X2 00573 M01S00559.comcblp +++| PL X6,SRC2 IF *LNT* NOT WRITTEN OUT 00574 M01S00560.comcblp +++| 00575 M01S00561.comcblp +++|* READ IN *LNT* OFF MASS STORAGE. 00576 M01S00562.comcblp +++| 00577 M01S00563.comcblp +++| LX6 0-36 00578 M01S00564.comcblp +++| SX6 X2 00579 M01S00565.comcblp +++| SA6 SRCA 00580 M01S00566.comcblp +++| REWIND X6 00581 M01S00567.comcblp +++| READEI X2 00582 M01S00568.comcblp +++| SRC1 SA2 SRCA 00583 M01S00569.comcblp +++| READO X2 00584 M01S00570.comcblp +++| SA3 LNTP 00585 M01S00571.comcblp +++| BX2 X6 00586 M01S00572.comcblp +++| ZR X1,SRC4 IF NO ERROR 00587 M01S00573.comcblp +++| EQ SRC6 LINE NUMBER NOT FOUND 00588 M01S00574.comcblp +++| 00589 M01S00575.comcblp +++| SRC2 SA3 LNTP 00590 M01S00576.comcblp +++| BX4 X3 00591 M01S00577.comcblp +++| LX4 0-18 GET LWA+1 OF *LNT* BUFFER 00592 M01S00578.comcblp +++| SB4 X3 00593 M01S00579.comcblp +++| SB5 X4 00594 M01S00580.comcblp +++| EQ B4,B5,SRC6 IF *LNT* EMPTY 00595 M01S00581.comcblp +++| SRC3 SA2 B4+ GET NEXT ENTRY 00596 M01S00582.comcblp +++| SRC4 MX1 -18 00597 M01S00583.comcblp +++| LX6 B6,X2 00598 M01S00584.comcblp +++| BX6 -X1*X6 00599 M01S00585.comcblp +++| IX6 X6-X0 00600 M01S00586.comcblp +++| ZR X6,SRC8 IF MATCH FOUND 00601 M01S00587.comcblp +++| LX4 B1,X3 00602 M01S00588.comcblp +++| PL X4,SRC5 IF NOT SORTED ON OLD LINE NUMBER 00603 M01S00589.comcblp +++| PL X6,SRC7 IF NOT FOUND 00604 M01S00590.comcblp +++| SRC5 NG X3,SRC1 IF *LNT* WRITTEN OUT TO DISK 00605 M01S00591.comcblp +++| SB4 B4+1 00606 M01S00592.comcblp +++| LE B4,B5,SRC3 IF NOT END OF *LNT* TABLE 00607 M01S00593.comcblp +++| 00608 M01S00594.comcblp +++|* SET FLAG TO *NOT FOUND*. 00609 M01S00595.comcblp +++| 00610 M01S00596.comcblp +++| SRC6 SB4 B0 00611 M01S00597.comcblp +++| EQ SRCX RETURN 00612 M01S00598.comcblp +++| 00613 M01S00599.comcblp +++|* SET FLAG TO *NOT FOUND* USING ASSUMED SORT OPTION. 00614 M01S00600.comcblp +++| 00615 M01S00601.comcblp +++| SRC7 SB4 -B4 00616 M01S00602.comcblp +++| EQ SRCX RETURN 00617 M01S00603.comcblp +++| 00618 M01S00604.comcblp +++| SRC8 BX1 X2 00619 M01S00605.comcblp +++| SB4 B1 00620 M01S00606.comcblp +++| EQ SRCX RETURN 00621 M01S00607.comcblp +++| 00622 M01S00608.comcblp +++| SRCA CON 0 FET ADDRESS 00623 M01S00609.comcblp +++| 00624 M01S00610.comcblp +++| QUAL$ IF -DEF,QUAL$ 00625 M01S00611.comcblp +++| QUAL * 00626 M01S00612.comcblp +++| BLP EQU /COMCBLP/BLP 00627 M01S00613.comcblp +++| QUAL$ ENDIF 00628 M01S00614.comcblp +++| ENDX
cdc/nos2.source/opl.opl871/common/comcblp.txt · Last modified: by 127.0.0.1