Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcblp +++|          CTEXT  COMCBLP - BASIC LINE PROCESSOR.
00002  M00S00002.comcblp +++|          SPACE  4,10
00003  M00S00003.comcblp +++|          IF     -DEF,QUAL$
00004  M00S00004.comcblp +++|          QUAL   COMCBLP
00005  M00S00005.comcblp +++|          ENDIF
00006  M00S00006.comcblp +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION. 1980.

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.comcblp +++|          SPACE  4
00010  M00S00009.comcblp +++|***       COMCBLP - *BASIC* LINE PROCESSOR.
00011  M00S00010.comcblp +++|*
00012  M00S00011.comcblp +++|*         D. A. HIVELEY  71/02/14.
00013  M00S00012.comcblp +++|*         S. P. BOOTH    80/07/15.
00014  M00S00013.comcblp +++|          SPACE  4
00015  M00S00014.comcblp +++|***       COMCBLP REPLACES THE OLD LINE NUMBERS IN A *BASIC*
00016  M00S00015.comcblp +++|*         STATEMENT WITH THE EQUIVALENT NEW LINE NUMBERS WHICH ARE
00017  M00S00016.comcblp +++|*         CONTAINED IN A LINE NUMBER TABLE (*LNT*).
00018  M00S00017.comcblp +++|          SPACE  4
00019  M00S00018.comcblp +++|**        THE *LNT* CONSISTS OF ONE WORD ENTRIES EITHER IN A BUFFER
00020  M00S00019.comcblp +++|*         OR WRITTEN OUT TO A LOCAL DISK FILE.  THE FORMAT OF THE
00021  M00S00020.comcblp +++|*         *LNT* ENTRY IS -
00022  M00S00021.comcblp +++|*
00023  M00S00022.comcblp +++|*T        18/  NLN, 18/  OLN, 24/  UNUSED

Figure

00024  M00S00023.comcblp +++|*
00025  M00S00024.comcblp +++|*         NLN = NEW LINE NUMBER.
00026  M00S00025.comcblp +++|*         OLN = OLD LINE NUMBER.
00027  M00S00026.comcblp +++|
00028  M00S00027.comcblp +++|          TITLE  WORKING STORAGE.
00029  M00S00028.comcblp +++|
00030  M00S00029.comcblp +++|*         GENERAL EQUATES.
00031  M00S00030.comcblp +++|
00032  M00S00031.comcblp +++| COL63    EQU    63B         63 CHARACTER SET COLON REPRESENTATION
00033  M00S00032.comcblp +++| COL64    EQU    00B         64 CHARACTER SET COLON REPRESENTATION
00034  M00S00033.comcblp +++| QUOTE    EQU    64B         QUOTE
00035  M00S00034.comcblp +++| POUND    EQU    60B         POUND
00036  M00S00035.comcblp +++| APOS     EQU    70B         APOSTROPHE
00037  M00S00036.comcblp +++| NUMD     EQU    5           MAXIMUM NUMBER OF DIGITS IN A LINE NUMBER
00038  M00S00037.comcblp +++|
00039  M00S00038.comcblp +++|*         MISCELLANEOUS CELLS.
00040  M00S00039.comcblp +++|
00041  M00S00040.comcblp +++| BLWA     CON    0           BUFFER LWA + 1
00042  M00S00041.comcblp +++| COLON    CON    0           COLON
00043  M00S00042.comcblp +++| TRNC     CON    0           TRUNCATION FLAG
00044  M00S00043.comcblp +++|
00045  M00S00044.comcblp +++|**        LNTP - *LNT* PARAMETERS.
00046  M00S00045.comcblp +++|*T        1/  LWO, 1/  AS, 4/  0, 18/  FA, 18/  BLWA, 18/  BFWA

Figure

00047  M00S00046.comcblp +++|*
00048  M00S00047.comcblp +++|*         LWO  = 1 - *LNT* HAS BEEN WRITTEN OUT TO DISK.
00049  M00S00048.comcblp +++|*         AS   = 1 - ASSUME SORTED *LNT*.
00050  M00S00049.comcblp +++|*         FA   = FET ADDRESS, IF *LNT* HAS BEEN WRITTEN TO DISK.
00051  M00S00050.comcblp +++|*                0, IF *LNT* IS CORE RESIDENT.
00052  M00S00051.comcblp +++|*         BLWA = LWA+1 OF *LNT* BUFFER.
00053  M00S00052.comcblp +++|*         BFWA = FWA OF *LNT* BUFFER.
00054  M00S00053.comcblp +++|
00055  M00S00054.comcblp +++| LNTP     CON    0
00056  M00S00055.comcblp +++|
00057  M00S00056.comcblp +++|          TITLE  COMCBLP MAIN PROCESSOR.
00058  M00S00057.comcblp +++| BLP      SPACE  4,20
00059  M00S00058.comcblp +++|**        BLP - BASIC LINE PROCESSOR.
00060  M00S00059.comcblp +++|*
00061  M00S00060.comcblp +++|*         ENTRY  (X1) = FWA OF *LNT*.
00062  M00S00061.comcblp +++|*                (X2) = LWA+1 OF *LNT*.
00063  M00S00062.comcblp +++|*                (X3) = FET ADDRESS.
00064  M00S00063.comcblp +++|*                       .EQ. 0, IF NO FET ADDRESS.
00065  M00S00064.comcblp +++|*                (X5) = 0, IF *LNT* NOT SORTED.
00066  M00S00065.comcblp +++|*                     = 1, IF *LNT* SORTED.
00067  M00S00066.comcblp +++|*                (X6) = LWA+1 OF BUFFER.
00068  M00S00067.comcblp +++|*                (B2) = LWA+1 OF BASIC STATEMENT IN BUFFER.
00069  M00S00068.comcblp +++|*                (B7) = FWA OF BASIC STATEMENT IN BUFFER.
00070  M00S00069.comcblp +++|*
00071  M00S00070.comcblp +++|*         EXIT   (B7) = LWA+1 OF BASIC LINE.
00072  M00S00071.comcblp +++|*                (X1) = TRUNCATION FLAG.
00073  M00S00072.comcblp +++|*                       .EQ. 0 IF NO TRUNCATION OCCURRED.
00074  M00S00073.comcblp +++|*                (X2) = LINE CHANGED FLAG.
00075  M00S00074.comcblp +++|*                       .EQ. 0 IF NO CHANGE.
00076  M00S00075.comcblp +++|*
00077  M00S00076.comcblp +++|*         USES   X - ALL.
00078  M00S00077.comcblp +++|*                A - 1, 2, 3, 4, 6, 7.
00079  M00S00078.comcblp +++|*                B - ALL.
00080  M00S00079.comcblp +++|*
00081  M00S00080.comcblp +++|*         CALLS  ADL, ASL, CDD, SCN, SRC.
00082  M00S00081.comcblp +++|
00083  M00S00082.comcblp +++| BLP      SUBR               ENTRY/EXIT
00084  M00S00083.comcblp +++|          SA6    BLWA        SAVE LWA + 1 OF LINE BUFFER
00085  M00S00084.comcblp +++|          SX7    B2          CHECK FOR TRUNCATION
00086  M00S00085.comcblp +++|          IX7    X6-X7
00087  M00S00086.comcblp +++|          SX6    B0+
00088  M00S00087.comcblp +++|          SA6    TRNC
00089  M00S00088.comcblp +++|          SA6    BLPG
00090  M00S00089.comcblp +++|          PL     X7,BLP0     IF BASIC LINE FITS INTO BUFFER
00091  M00S00090.comcblp +++|          SX7    B1+
00092  M00S00091.comcblp +++|          SA7    TRNC
00093  M00S00092.comcblp +++| BLP0     MX4    -18
00094  M00S00093.comcblp +++|          BX1    -X4*X1
00095  M00S00094.comcblp +++|          BX2    -X4*X2
00096  M00S00095.comcblp +++|          LX2    18-0
00097  M00S00096.comcblp +++|          MX0    1
00098  M00S00097.comcblp +++|          BX6    X1+X2
00099  M00S00098.comcblp +++|          ZR     X3,BLP1     IF NO FET ADDRESS SELECTED
00100  M00S00099.comcblp +++|          BX3    -X4*X3
00101  M00S00100.comcblp +++|          BX6    X6+X0
00102  M00S00101.comcblp +++|          LX3    36-0
00103  M00S00102.comcblp +++|          BX6    X6+X3
00104  M00S00103.comcblp +++| BLP1     LX0    58-59
00105  M00S00104.comcblp +++|          ZR     X5,BLP1.1   IF *LNT* NOT SORTED
00106  M00S00105.comcblp +++|          BX6    X0+X6
00107  M00S00106.comcblp +++| BLP1.1   SA6    LNTP
00108  M00S00107.comcblp +++|          SA1    CSMR        SET COLON ACCORDING TO CHARACTER SET MODE
00109  M00S00108.comcblp +++|          SX6    COL64
00110  M00S00109.comcblp +++|          NG     X1,BLP2     IF 64 CHARACTER SET
00111  M00S00110.comcblp +++|          SX6    COL63
00112  M00S00111.comcblp +++| BLP2     SA6    COLON
00113  M00S00112.comcblp +++| BLP3     LE     B2,B7,BLP50 IF NO STATEMENT TO PROCESS
00114  M00S00113.comcblp +++|          SB2    B2-1
00115  M00S00114.comcblp +++|          SA2    B2+

Seq #  *Modification Id* Act 
----------------------------+
00116  M01S00115.cblp3   ---|          SX2    X2-1R
00117  M01S00116.cblp3   ---|          ZR     X2,BLP3     IF BLANK

Seq #  *Modification Id* Act 
----------------------------+
00118  M01S00001.cblp3   +++|          SX7    X2-1R
00119  M01S00002.cblp3   +++|          ZR     X7,BLP3     IF SPACE
00120  M00S00117.comcblp +++|          SB2    B2+1

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00118.comcblp +++| BLP5     SX6    B0+
00129  M00S00119.comcblp +++|          SA6    BLPA        CLEAR NESTING LEVEL
00130  M00S00120.comcblp +++| BLP5.1   BX7    X7-X7
00131  M00S00121.comcblp +++|          SB4    B1+B1       ASSEMBLE FIRST 2 CHARACTERS IN STATEMENT
00132  M00S00122.comcblp +++|          SA7    BLPC        ONLY 1 LINE NUMBER AT END OF STATEMENT
00133  M00S00123.comcblp +++|          RJ     ASL
00134  M00S00124.comcblp +++|          BX7    X5
00135  M00S00125.comcblp +++|          SB4    B1
00136  M00S00126.comcblp +++|          SA7    BLPD        SAVE CURRENT STATEMENT
00137  M00S00127.comcblp +++|
00138  M00S00128.comcblp +++|*         PROCESS STATEMENT TYPES.
00139  M00S00129.comcblp +++|
00140  M00S00130.comcblp +++|          SX1    X5-2RMA
00141  M00S00131.comcblp +++|          ZR     X1,BLP12    IF *MA* FOUND
00142  M00S00132.comcblp +++|          SX1    X5-2RPR
00143  M00S00133.comcblp +++|          ZR     X1,BLP13    IF *PR* FOUND
00144  M00S00134.comcblp +++|          SX1    X5-2RGO
00145  M00S00135.comcblp +++|          ZR     X1,BLP19    IF *GO* FOUND
00146  M00S00136.comcblp +++|          SX1    X5-2RON
00147  M00S00137.comcblp +++|          ZR     X1,BLP20    IF *ON* FOUND
00148  M00S00138.comcblp +++|          SX1    X5-2RIF
00149  M00S00139.comcblp +++|          ZR     X1,BLP23    IF *IF* FOUND
00150  M00S00140.comcblp +++|          SX1    X5-2RNO
00151  M00S00141.comcblp +++|          ZR     X1,BLP24    IF *NO* FOUND
00152  M00S00142.comcblp +++|          EQ     B2,B7,BLP50 IF END OF LINE
00153  M00S00143.comcblp +++|          SX1    X5-2RRE
00154  M00S00144.comcblp +++|          NZ     X1,BLP6     IF *RE* NOT FOUND
00155  M00S00145.comcblp +++|          RJ     ASL         ASSEMBLE NEXT CHARACTER
00156  M00S00146.comcblp +++|          SX1    X5-1RM
00157  M00S00147.comcblp +++|          NZ     X1,BLP6     IF *REM* NOT FOUND
00158  M00S00148.comcblp +++| BLP5.2   SB7    B2
00159  M00S00149.comcblp +++|          EQ     BLP50       IGNORE REMAINDER OF LINE
00160  M00S00150.comcblp +++|
00161  M00S00151.comcblp +++|*         SEARCH FOR *ELSE*.
00162  M00S00152.comcblp +++|
00163  M00S00153.comcblp +++| BLP6     SB7    B5+         RESTORE PREVIOUS VALUE TO LINE POINTER
00164  M00S00154.comcblp +++|          SB4    4
00165  M00S00155.comcblp +++|          SA4    =4RELSE
00166  M00S00156.comcblp +++|          SA1    BLPA
00167  M00S00157.comcblp +++|          ZR     X1,BLP5.2   IF *ELSE* CLAUSE NOT EXPECTED
00168  M00S00158.comcblp +++|          SX6    X1-1
00169  M00S00159.comcblp +++|          SA6    A1+
00170  M00S00160.comcblp +++|          RJ     SCN         SCAN LINE FOR *ELSE*
00171  M00S00161.comcblp +++|          EQ     B2,B7,BLP50 IF *ELSE* NOT FOUND OR EOL
00172  M00S00162.comcblp +++|          SX7    2RIF        INDICATE LINE NUMBER NOT NEEDED
00173  M00S00163.comcblp +++|          SA7    BLPD
00174  M00S00164.comcblp +++|          EQ     BLP29       SEARCH REMAINDER OF LINE
00175  M00S00165.comcblp +++|
00176  M00S00166.comcblp +++|*         *MA* FOUND,
00177  M00S00167.comcblp +++|*         CONTINUE SEARCH FOR *MAT PRINT*.
00178  M00S00168.comcblp +++|
00179  M00S00169.comcblp +++| BLP12    SB4    3           ASSEMBLE NEXT 3 CHARACTERS
00180  M00S00170.comcblp +++|          RJ     ASL
00181  M00S00171.comcblp +++|          EQ     B2,B7,BLP50 IF END OF LINE
00182  M00S00172.comcblp +++|          SX5    X5-3RTPR
00183  M00S00173.comcblp +++|          NZ     X5,BLP6     IF *MAT PR* NOT FOUND
00184  M00S00174.comcblp +++|
00185  M00S00175.comcblp +++|*         *MAT PR* OR *PR* FOUND,
00186  M00S00176.comcblp +++|*         CONTINUE SEARCH FOR *PRINT USING*.
00187  M00S00177.comcblp +++|
00188  M00S00178.comcblp +++| BLP13    SB4    3           ASSEMBLE NEXT 3 CHARACTERS
00189  M00S00179.comcblp +++|          RJ     ASL
00190  M00S00180.comcblp +++|          EQ     B2,B7,BLP50 IF END OF LINE
00191  M00S00181.comcblp +++|          SX5    X5-3RINT
00192  M00S00182.comcblp +++|          NZ     X5,BLP6     IF *PRINT* NOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00001.cblp2   +++|          SX0    B7+         SAVE CURRENT LINE POSITION
00194  M00S00183.comcblp +++|          SA4    =5RUSING
00195  M00S00184.comcblp +++|          SB4    5
00196  M00S00185.comcblp +++|          RJ     SCN         SCAN LINE FOR *USING*

Seq #  *Modification Id* Act 
----------------------------+
00197  M01S00186.cblp2   ---|          EQ     B2,B7,BLP50 IF *USING* NOT FOUND OR EOL

Seq #  *Modification Id* Act 
----------------------------+
00198  M01S00002.cblp2   +++|          SB5    X0+         RESTORE PREVIOUS LINE POSITION
00199  M01S00003.cblp2   +++|          EQ     B2,B7,BLP6  IF *USING* NOT FOUND OR EOL
00200  M00S00187.comcblp +++|          EQ     BLP29       SEARCH FOR OLD STATEMENT NUMBER
00201  M00S00188.comcblp +++|
00202  M00S00189.comcblp +++|*         *GO* FOUND,
00203  M00S00190.comcblp +++|*         CONTINUE SEARCH FOR *GOTO* OR *GOSUB*.
00204  M00S00191.comcblp +++|
00205  M00S00192.comcblp +++| BLP19    SB4    2           ASSEMBLE NEXT 2 CHARACTERS
00206  M00S00193.comcblp +++|          RJ     ASL
00207  M00S00194.comcblp +++|          SX1    X5-2RTO
00208  M00S00195.comcblp +++|          ZR     X1,BLP29    IF *GOTO* FOUND
00209  M00S00196.comcblp +++|          SX1    X5-2RSU
00210  M00S00197.comcblp +++|          NZ     X1,BLP6     IF *GOSU* NOT FOUND
00211  M00S00198.comcblp +++|          SB4    B1          ASSEMBLE NEXT CHARACTER
00212  M00S00199.comcblp +++|          RJ     ASL
00213  M00S00200.comcblp +++|          SX1    X5-1RB
00214  M00S00201.comcblp +++|          ZR     X1,BLP29    IF *GOSUB* FOUND
00215  M00S00202.comcblp +++|          EQ     BLP6        CONTINUE SCAN
00216  M00S00203.comcblp +++|
00217  M00S00204.comcblp +++|*         *ON* FOUND,
00218  M00S00205.comcblp +++|*         CONTINUE SEARCH FOR *ON ERROR*, *ON EXPRESSION*, OR
00219  M00S00206.comcblp +++|*         *ON ATTENTION*.
00220  M00S00207.comcblp +++|
00221  M00S00208.comcblp +++| BLP20    SB4    5           ASSEMBLE NEXT 5 CHARACTERS
00222  M00S00209.comcblp +++|          SA4    =5RERROR
00223  M00S00210.comcblp +++|          SX0    B7          SAVE CURRENT POSITION
00224  M00S00211.comcblp +++|          RJ     SCN         SCAN FOR *ERROR*
00225  M00S00212.comcblp +++|          BX5    X4-X5
00226  M00S00213.comcblp +++|          ZR     X5,BLP23.1  IF *ERROR* FOUND
00227  M00S00214.comcblp +++|          SB7    X0          RESTORE PREVIOUS VALUE TO LINE POINTER
00228  M00S00215.comcblp +++|          SA4    =9RATTENTION
00229  M00S00216.comcblp +++|          SB4    9
00230  M00S00217.comcblp +++|          RJ     SCN         SCAN FOR *ATTENTION*
00231  M00S00218.comcblp +++|          BX5    X4-X5
00232  M00S00219.comcblp +++|          ZR     X5,BLP23.1  IF *ATTENTION* FOUND
00233  M00S00220.comcblp +++|          SX7    B1
00234  M00S00221.comcblp +++|          SB7    X0          RESTORE PREVIOUS VALUE TO LINE POINTER
00235  M00S00222.comcblp +++|          SA7    BLPC        INDICATES MULTIPLE LINE NUMBERS TO PROCESS
00236  M00S00223.comcblp +++|          SB4    5
00237  M00S00224.comcblp +++|          SA4    =5RGOSUB
00238  M00S00225.comcblp +++|          RJ     SCN         SCAN REMAINDER OF LINE FOR *GOSUB*
00239  M00S00226.comcblp +++|          BX5    X5-X4
00240  M00S00227.comcblp +++|          ZR     X5,BLP29    IF *ON EXPRESSION GOSUB* FOUND
00241  M00S00228.comcblp +++|          SB7    X0          RESTORE PREVIOUS VALUE TO LINE POINTER
00242  M00S00229.comcblp +++|          EQ     BLP23.1     SCAN FOR THEN
00243  M00S00230.comcblp +++|
00244  M00S00231.comcblp +++|*         *IF*, *ON ERROR ...*, *ON ATTENTION*, OR *ON EXPRESSION*
00245  M00S00232.comcblp +++|*         BUT NOT *ON EXPRESSION GOSUB* FOUND, CONTINUE SEARCH
00246  M00S00233.comcblp +++|*         FOR *THEN* OR *GOTO*.
00247  M00S00234.comcblp +++|
00248  M00S00235.comcblp +++| BLP23    SA1    BLPA        INCREMENT *IF* STATEMENT NESTING LEVEL
00249  M00S00236.comcblp +++|          SX6    X1+B1
00250  M00S00237.comcblp +++|          SA6    A1
00251  M00S00238.comcblp +++| BLP23.1  SB4    4
00252  M00S00239.comcblp +++|          SA4    =4RTHEN
00253  M00S00240.comcblp +++|          SX0    B7          SAVE CURRENT LINE POINTER
00254  M00S00241.comcblp +++|          RJ     SCN         SCAN REMAINDER OF LINE FOR *THEN*
00255  M00S00242.comcblp +++|          BX5    X5-X4
00256  M00S00243.comcblp +++|          ZR     X5,BLP29    IF *THEN* FOUND
00257  M00S00244.comcblp +++|          SB7    X0+         RESTORE PREVIOUS VALUE TO LINE POINTER
00258  M00S00245.comcblp +++|          SB4    4
00259  M00S00246.comcblp +++|          SA4    =4RGOTO
00260  M00S00247.comcblp +++|          RJ     SCN         SCAN REMAINDER OF LINE FOR *GOTO*
00261  M00S00248.comcblp +++|          BX7    X7-X7
00262  M00S00249.comcblp +++|          SA7    BLPD        INDICATE LINE NUMBER NEEDED
00263  M00S00250.comcblp +++|          EQ     B2,B7,BLP50 IF *GOTO* NOT FOUND OR EOL
00264  M00S00251.comcblp +++|          EQ     BLP29       SEARCH FOR OLD STATEMENT NUMBER
00265  M00S00252.comcblp +++|
00266  M00S00253.comcblp +++|*         *NO* FOUND,
00267  M00S00254.comcblp +++|*         CONTINUE SEARCH FOR *NODATA*.
00268  M00S00255.comcblp +++|
00269  M00S00256.comcblp +++| BLP24    SB4    4           ASSEMBLE NEXT 4 CHARACTERS
00270  M00S00257.comcblp +++|          RJ     ASL
00271  M00S00258.comcblp +++|          SA1    =4RDATA
00272  M00S00259.comcblp +++|          BX5    X5-X1
00273  M00S00260.comcblp +++|          NZ     X5,BLP6     IF *NODATA* NOT FOUND
00274  M00S00261.comcblp +++|          EQ     B2,B7,BLP50 IF *NODATA* FOUND BUT AT END OF LINE
00275  M00S00262.comcblp +++|          SB4    B1          ASSEMBLE NEXT CHARACTER
00276  M00S00263.comcblp +++|          RJ     ASL
00277  M00S00264.comcblp +++|          SX1    X5-POUND
00278  M00S00265.comcblp +++|          NZ     X1,BLP28    IF NUMBER SIGN NOT FOUND
00279  M00S00266.comcblp +++|          SX4    1R,
00280  M00S00267.comcblp +++|          SB4    B1
00281  M00S00268.comcblp +++|          RJ     SCN         SCAN LINE FOR *,*
00282  M00S00269.comcblp +++|          EQ     B2,B7,BLP50 IF END OF INCOMPLETE *NODATA* STATEMENT
00283  M00S00270.comcblp +++|          EQ     BLP29       SEARCH FOR OLD STATEMENT NUMBER
00284  M00S00271.comcblp +++|
00285  M00S00272.comcblp +++|*         SEARCH REMAINDER OF LINE FOR OLD STATEMENT NUMBER TO BE
00286  M00S00273.comcblp +++|*         REPLACED WITH ITS CORRESPONDING NEW STATEMENT NUMBER.
00287  M00S00274.comcblp +++|*         IF LOCATION *BLPC* CONTAINS A ZERO, ONLY ONE STATEMENT NUMBER
00288  M00S00275.comcblp +++|*         IS TO BE PROCESSED, OTHERWISE PROCESSING OF STATEMENT NUMBERS
00289  M00S00276.comcblp +++|*         IS CONTINUED UNTIL A LETTER OR SPECIAL CHARACTER OTHER THAN A
00290  M00S00277.comcblp +++|*         COMMA IS ENCOUNTERED OR UNTIL AN ERROR IS DETECTED.
00291  M00S00278.comcblp +++|
00292  M00S00279.comcblp +++| BLP28    SB7    B5+         RESTORE PREVIOUS VALUE TO LINE POINTER
00293  M00S00280.comcblp +++| BLP29    SX7    1R
00294  M00S00281.comcblp +++|          SB5    B7+         SAVE CURRENT LINE POINTER
00295  M00S00282.comcblp +++|          SB6    NUMD
00296  M00S00283.comcblp +++|          SB4    B0
00297  M00S00284.comcblp +++|          BX6    X6-X6
00298  M00S00285.comcblp +++| BLP30    EQ     B2,B7,BLP32 IF END OF LINE
00299  M00S00286.comcblp +++|          SA1    B7
00300  M00S00287.comcblp +++|          BX2    X1-X7
00301  M00S00288.comcblp +++|          SB7    B7+1
00302  M00S00289.comcblp +++|          ZR     X2,BLP30    IF BLANK
00303  M00S00290.comcblp +++|          SX2    X1-1R+
00304  M00S00291.comcblp +++|          PL     X2,BLP31    IF SPECIAL CHARACTER
00305  M00S00292.comcblp +++|          SX2    X1-1R0
00306  M00S00293.comcblp +++|          NG     X2,BLP31    IF LETTER
00307  M00S00294.comcblp +++|          SA7    B7-B1       FILL CURRENT WORD WITH BLANK
00308  M00S00295.comcblp +++|          LX5    X6,B1
00309  M00S00296.comcblp +++|          LX6    3
00310  M00S00297.comcblp +++|
00311  M00S00298.comcblp +++|*         ACCUMULATE OCTAL INTEGER REPRESENTATION OF OLD LINE NUMBER.
00312  M00S00299.comcblp +++|
00313  M00S00300.comcblp +++|          IX6    X6+X5
00314  M00S00301.comcblp +++|          IX6    X6+X2
00315  M00S00302.comcblp +++|          SB4    B4+B1
00316  M00S00303.comcblp +++|          SB3    B7+
00317  M00S00304.comcblp +++|          EQ     BLP30       CHECK NEXT CHARACTER
00318  M00S00305.comcblp +++|
00319  M00S00306.comcblp +++| BLP31    SB7    B7-1
00320  M00S00307.comcblp +++| BLP32    NZ     B4,BLP33    IF NUMBER FOUND
00321  M00S00308.comcblp +++|          SA1    BLPD
00322  M00S00309.comcblp +++|          SX1    X1-2RIF
00323  M00S00310.comcblp +++|          NZ     X1,BLP6     IF NOT *IF* STATEMENT
00324  M00S00311.comcblp +++|          SB7    B5+         RESTORE LINE POINTER
00325  M00S00312.comcblp +++|          EQ     BLP5.1      PROCESS *IF* CONDITIONAL
00326  M00S00313.comcblp +++|
00327  M00S00314.comcblp +++| BLP33    EQ     B3,B7,BLP34 IF NO BLANK AFTER LINE NUMBER
00328  M00S00315.comcblp +++|          SB7    B7-1        PRESERVE BLANK
00329  M00S00316.comcblp +++| BLP34    SB3    B3-B4
00330  M00S00317.comcblp +++|          EQ     B3,B5,BLP35 IF NO BLANK BEFORE LINE NUMBER
00331  M00S00318.comcblp +++|          SB5    B5+B1       PRESERVE BLANK
00332  M00S00319.comcblp +++| BLP35    SX7    B5+B6       SAVE INSERTION POINTER
00333  M00S00320.comcblp +++|          SB4    B6-B4
00334  M00S00321.comcblp +++|          NG     B4,BLP6     IF MORE THAN FIVE DIGITS
00335  M00S00322.comcblp +++|          SB4    B3-B4
00336  M00S00323.comcblp +++|          GE     B5,B4,BLP36 IF NOT ENOUGH BLANKS BEFORE LINE NUMBER
00337  M00S00324.comcblp +++|          SX7    B4+B6
00338  M00S00325.comcblp +++| BLP36    SA7    BLPB
00339  M00S00326.comcblp +++|          SB4    B7-B5
00340  M00S00327.comcblp +++|          SB4    B4-B6
00341  M00S00328.comcblp +++|          GE     B4,BLP38    IF ROOM TO INSERT NEW LINE NUMBER
00342  M00S00329.comcblp +++|          SB2    B2-B4       POINTS TO NEW END OF LINE
00343  M00S00330.comcblp +++|          SB4    B2+B4       POINTS TO OLD END OF LINE
00344  M00S00331.comcblp +++|          SA1    BLWA
00345  M00S00332.comcblp +++|          SB6    X1+
00346  M00S00333.comcblp +++|          SB5    B2+
00347  M00S00334.comcblp +++|          LE     B2,B6,BLP37 IF NEW LINE IS NOT TOO LONG
00348  M00S00335.comcblp +++|          SX7    B1+         SET TRUNCATION FLAG AND ADJUST POINTERS
00349  M00S00336.comcblp +++|          SA7    TRNC
00350  M00S00337.comcblp +++|          SB2    B2-B6
00351  M00S00338.comcblp +++|          SB4    B4-B2
00352  M00S00339.comcblp +++|          SB2    B6
00353  M00S00340.comcblp +++|          SB5    B2
00354  M00S00341.comcblp +++|
00355  M00S00342.comcblp +++|*         RIGHT SHIFT LINE SO EXTRA DIGITS CAN BE INSERTED.
00356  M00S00343.comcblp +++|
00357  M00S00344.comcblp +++| BLP37    SB4    B4-B1
00358  M00S00345.comcblp +++|          SB5    B5-B1
00359  M00S00346.comcblp +++|          LT     B4,B7,BLP38.1  IF MOVE COMPLETE
00360  M00S00347.comcblp +++|          SA1    B4
00361  M00S00348.comcblp +++|          BX7    X1
00362  M00S00349.comcblp +++|          SA7    B5+
00363  M00S00350.comcblp +++|          EQ     BLP37       MOVE NEXT CHARACTER
00364  M00S00351.comcblp +++|
00365  M00S00352.comcblp +++| BLP38.1  SB7    B5+1
00366  M00S00353.comcblp +++| BLP38    SX0    X6          SET UP ENTRY CONDITIONS
00367  M00S00354.comcblp +++|          RJ     SRC         SEARCH LINE TABLE FOR OLD LINE NUMBER
00368  M00S00355.comcblp +++|          GT     B4,BLP39    IF OLD LINE NUMBER FOUND
00369  M00S00356.comcblp +++|          SX1    X0
00370  M00S00357.comcblp +++|          EQ     BLP40       RESTORE PREVIOUS LINE NUMBER
00371  M00S00358.comcblp +++|
00372  M00S00359.comcblp +++| BLP39    BX2    X1
00373  M00S00360.comcblp +++|          SX6    B1
00374  M00S00361.comcblp +++|          MX1    -18
00375  M00S00362.comcblp +++|          AX2    42-0        GET NEW LINE NUMBER
00376  M00S00363.comcblp +++|          SA6    BLPG        SET LINE CHANGED FLAG
00377  M00S00364.comcblp +++|          BX1    -X1*X2
00378  M00S00365.comcblp +++| BLP40    SB6    B2          SAVE END OF LINE POINTER
00379  M00S00366.comcblp +++|          RJ     CDD         CONVERT NEW LINE NUMBER
00380  M00S00367.comcblp +++|          SB2    B6
00381  M00S00368.comcblp +++|          BX2    X6
00382  M00S00369.comcblp +++|          SA1    BLPB        GET INSERTION POINTER
00383  M00S00370.comcblp +++|          SB6    X1+
00384  M00S00371.comcblp +++|          RJ     ADL         INSERT LINE NUMBER IN LINE
00385  M00S00372.comcblp +++|          EQ     B2,B7,BLP50 IF END OF LINE
00386  M00S00373.comcblp +++|          SA1    BLPC
00387  M00S00374.comcblp +++|          SB5    B7

Seq #  *Modification Id* Act 
----------------------------+
00388  M01S00375.cblp1   ---|          NG     X1,BLP6     IF REMAINDER OF STATEMENT TO BE IGNORED

Seq #  *Modification Id* Act 
----------------------------+
00389  M01S00001.cblp1   +++|          ZR     X1,BLP6     IF REMAINDER OF STATEMENT IS TO BE IGNORED
00390  M00S00376.comcblp +++|          SB4    B1          ASSEMBLE NEXT CHARACTER
00391  M00S00377.comcblp +++|          SX0    B5+         SAVE CURRENT LINE POINTER
00392  M00S00378.comcblp +++|          RJ     ASL
00393  M00S00379.comcblp +++|          SX5    X5-1R,
00394  M00S00380.comcblp +++|          ZR     X5,BLP29    IF ADDITIONAL LINE NUMBERS TO PROCESS
00395  M00S00381.comcblp +++|          EQ     BLP6        SEARCH FOR *ELSE*
00396  M00S00382.comcblp +++|
00397  M00S00383.comcblp +++|*         SET UP VALID EXIT CONDITIONS.
00398  M00S00384.comcblp +++|
00399  M00S00385.comcblp +++| BLP50    SA1    TRNC
00400  M00S00386.comcblp +++|          SA2    BLPG
00401  M00S00387.comcblp +++|          EQ     BLPX        RETURN
00402  M00S00388.comcblp +++|
00403  M00S00389.comcblp +++| BLPA     CON    0           *IF* STATEMENT NESTING LEVEL
00404  M00S00390.comcblp +++| BLPB     CON    0           TEMPORARY HOLD AREA FOR LINE POINTER
00405  M00S00391.comcblp +++| BLPC     CON    0           MULTIPLE LINE NUMBER FLAG
00406  M00S00392.comcblp +++| BLPD     CON    0           LINE NUMBER MANDATORY FLAG
00407  M00S00393.comcblp +++| BLPG     CON    0           LINE CHANGED FLAG
00408  M00S00394.comcblp +++|          TITLE  COMCBLP SUBROUTINES.
00409  M00S00395.comcblp +++| ADL      SPACE  4,15
00410  M00S00396.comcblp +++|**        ADL - ADD LINE NUMBER
00411  M00S00397.comcblp +++|*
00412  M00S00398.comcblp +++|*         *ADL* PLACES THE NEW LINE NUMBER INTO THE BUFFER, WORKING
00413  M00S00399.comcblp +++|*         FROM THE LEAST SIGNIFICANT DIGIT TO THE MOST SIGNIFICANT.
00414  M00S00400.comcblp +++|*         LEADING ZEROS ARE ADDED FOR LINE NUMBERS LESS THAN *NUMD*
00415  M00S00401.comcblp +++|*         DIGITS LONG.
00416  M00S00402.comcblp +++|*
00417  M00S00403.comcblp +++|*         ENTRY  (B6) = STRING BUFFER ADDRESS+1 OF INSERT POINT.
00418  M00S00404.comcblp +++|*                (X2) = LINE NUMBER RIGHT JUSTIFIED WITH LEADING
00419  M00S00405.comcblp +++|*                       BLANKS.
00420  M00S00406.comcblp +++|*                (B2) = LWA+1 OF BASIC STATEMENT.
00421  M00S00407.comcblp +++|*
00422  M00S00408.comcblp +++|*         EXIT   NUMBER STORED IN STRING BUFFER.
00423  M00S00409.comcblp +++|*
00424  M00S00410.comcblp +++|*         USES   X - 0, 2, 5, 6, 7.
00425  M00S00411.comcblp +++|*                A - 6, 7.
00426  M00S00412.comcblp +++|*                B - 5, 6.
00427  M00S00413.comcblp +++|
00428  M00S00414.comcblp +++|
00429  M00S00415.comcblp +++|
00430  M00S00416.comcblp +++| ADL      SUBR               ENTRY/EXIT
00431  M00S00417.comcblp +++|          SB5    NUMD
00432  M00S00418.comcblp +++|          SX7    1R0
00433  M00S00419.comcblp +++|          SX0    77B
00434  M00S00420.comcblp +++| ADL1     BX6    X0*X2
00435  M00S00421.comcblp +++|          SX5    X6-1R
00436  M00S00422.comcblp +++|          ZR     X5,ADL3     IF BLANK
00437  M00S00423.comcblp +++|          SB6    B6-1
00438  M00S00424.comcblp +++|          LE     B2,B6,ADL2  IF PAST BUFFER LWA
00439  M00S00425.comcblp +++|          SA6    B6+
00440  M00S00426.comcblp +++| ADL2     SB5    B5-B1
00441  M00S00427.comcblp +++|          ZR     B5,ADLX     IF 5 DIGITS
00442  M00S00428.comcblp +++|          AX2    6
00443  M00S00429.comcblp +++|          EQ     ADL1        ADD NEXT DIGIT
00444  M00S00430.comcblp +++|
00445  M00S00431.comcblp +++| ADL3     SB6    B6-B1
00446  M00S00432.comcblp +++|          LE     B2,B6,ADL4  IF PAST BUFFER LWA
00447  M00S00433.comcblp +++|          SA7    B6          PAD WITH LEADING ZEROS
00448  M00S00434.comcblp +++| ADL4     SB5    B5-1
00449  M00S00435.comcblp +++|          NZ     B5,ADL3     IF NOT FIVE DIGITS
00450  M00S00436.comcblp +++|          EQ     ADLX        RETURN
00451  M00S00437.comcblp +++| ASL      SPACE  4,15
00452  M00S00438.comcblp +++|**        ASL - ASSEMBLE LETTERS.
00453  M00S00439.comcblp +++|*
00454  M00S00440.comcblp +++|*         ENTRY  (B2) = POINTER TO END OF LINE.
00455  M00S00441.comcblp +++|*                (B4) = NUMBER OF NON-BLANK CHARACTERS TO BE ASSEMBLED.
00456  M00S00442.comcblp +++|*                (B7) = STRING BUFFER ADDRESS OF START OF ASSEMBLY.
00457  M00S00443.comcblp +++|*
00458  M00S00444.comcblp +++|*         EXIT   (X5) = ASSEMBLED CHARACTERS (RIGHT JUSTIFIED).
00459  M00S00445.comcblp +++|*                (B7) = UPDATED STRING BUFFER ADDRESS.
00460  M00S00446.comcblp +++|*                (B5) = STRING BUFFER ADDRESS OF START OF ASSEMBLY.
00461  M00S00447.comcblp +++|*
00462  M00S00448.comcblp +++|*         USES   X - 2, 3, 5.
00463  M00S00449.comcblp +++|*                A - 2.
00464  M00S00450.comcblp +++|*                B - 4, 5, 7.
00465  M00S00451.comcblp +++|
00466  M00S00452.comcblp +++|
00467  M00S00453.comcblp +++| ASL      SUBR               ENTRY/EXIT
00468  M00S00454.comcblp +++|          SB5    B7+
00469  M00S00455.comcblp +++|          SX5    B0+
00470  M00S00456.comcblp +++| ASL1     EQ     B2,B7,ASLX  IF END OF LINE
00471  M00S00457.comcblp +++|          SA2    B7
00472  M00S00458.comcblp +++|          SB7    B7+B1
00473  M00S00459.comcblp +++|          SX3    X2-1R
00474  M00S00460.comcblp +++|          ZR     X3,ASL1     IF SPACE
00475  M00S00461.comcblp +++|          MX3    54
00476  M00S00462.comcblp +++|          BX3    X3*X2
00477  M00S00463.comcblp +++|          ZR     X3,ASL4     IF DISPLAY CODE CHARACTER
00478  M00S00464.comcblp +++|          SX3    X3-7600B
00479  M00S00465.comcblp +++|          NZ     X3,ASL3     IF ESCAPE CODE *74*
00480  M00S00466.comcblp +++|          MX3    -6
00481  M00S00467.comcblp +++|          BX2    -X3*X2
00482  M00S00468.comcblp +++|          ZR     X2,ASL2     IF NOT A LOWER CASE ALPHABETIC CHARACTER
00483  M00S00469.comcblp +++|          SX3    X3-33B
00484  M00S00470.comcblp +++|          NG     X3,ASL4     IF A LOWER CASE ALPHABETIC CHARACTER
00485  M00S00471.comcblp +++| ASL2     SX2    1R?
00486  M00S00472.comcblp +++|          EQ     ASL4        ADD DUMMY CHARACTER TO STRING
00487  M00S00473.comcblp +++|
00488  M00S00474.comcblp +++| ASL3     SX2    X2-7404B
00489  M00S00475.comcblp +++|          NZ     X2,ASL2     IF NOT AN EXTENDED COLON
00490  M00S00476.comcblp +++|          SA2    COLON
00491  M00S00477.comcblp +++| ASL4     LX5    6           ADD CHARACTER
00492  M00S00478.comcblp +++|          SB4    B4-1
00493  M00S00479.comcblp +++|          IX5    X5+X2
00494  M00S00480.comcblp +++|          NZ     B4,ASL1     IF ALL CHARACTERS NOT ASSEMBLED
00495  M00S00481.comcblp +++|          EQ     ASLX        RETURN
00496  M00S00482.comcblp +++| SCN      SPACE  4,15
00497  M00S00483.comcblp +++|**        SCN - SCAN LINE.
00498  M00S00484.comcblp +++|*
00499  M00S00485.comcblp +++|*         *SCN* SCANS THE REST OF THE LINE LOOKING FOR THE
00500  M00S00486.comcblp +++|*         CHARACTER STRING SPECIFIED IN (X4).  CHARACTERS
00501  M00S00487.comcblp +++|*         WITHIN QUOTES (LITERALS), AND CHARACTERS AFTER AN
00502  M00S00488.comcblp +++|*         APOSTROPHE (EMBEDDED COMMENTS), ARE IGNORED.
00503  M00S00489.comcblp +++|*
00504  M00S00490.comcblp +++|*         ENTRY  (B2) = POINTER TO END OF LINE.
00505  M00S00491.comcblp +++|*                (B4) = LENGTH OF CHARACTER STRING IN X4.
00506  M00S00492.comcblp +++|*                (B7) = POINTER TO CURRENT WORD IN LINE.
00507  M00S00493.comcblp +++|*                (X4) = CHARACTER STRING RIGHT JUSTIFIED TO SCAN FOR.
00508  M00S00494.comcblp +++|*
00509  M00S00495.comcblp +++|*         EXIT   (X5) = LAST ASSEMBLED CHARACTER STRING.
00510  M00S00496.comcblp +++|*                (B7) = UPDATED LINE POINTER - POINTS TO POSITION
00511  M00S00497.comcblp +++|*                       IMMEDIATELY FOLLOWING LAST CHARACTER ASSEMBLED
00512  M00S00498.comcblp +++|*                       OR TO THE END OF LINE.
00513  M00S00499.comcblp +++|*
00514  M00S00500.comcblp +++|*         USES   X - 1, 5.
00515  M00S00501.comcblp +++|*                A - 5.
00516  M00S00502.comcblp +++|*                B - 4, 6, 7.
00517  M00S00503.comcblp +++|*
00518  M00S00504.comcblp +++|*         CALLS  ASL.
00519  M00S00505.comcblp +++|
00520  M00S00506.comcblp +++|
00521  M00S00507.comcblp +++| SCN      SUBR               ENTRY/EXIT
00522  M00S00508.comcblp +++|          SB6    B4+         SAVE LENGTH OF CHARACTER STRING IN X4
00523  M00S00509.comcblp +++|          SX5    B0+
00524  M00S00510.comcblp +++| SCN1     EQ     B2,B7,SCNX  IF END OF LINE
00525  M00S00511.comcblp +++|          SA5    B7
00526  M00S00512.comcblp +++|          SB7    B7+B1
00527  M00S00513.comcblp +++|          SX1    X5-1R
00528  M00S00514.comcblp +++|          ZR     X1,SCN1     IF BLANK
00529  M00S00515.comcblp +++|          SX1    X5-QUOTE
00530  M00S00516.comcblp +++|          ZR     X1,SCN2     IF QUOTE
00531  M00S00517.comcblp +++|          SX1    X5-APOS
00532  M00S00518.comcblp +++|          ZR     X1,SCN3     IF EMBEDDED COMMENT FOUND
00533  M00S00519.comcblp +++|          SB7    B7-B1
00534  M00S00520.comcblp +++|          SB4    B6          REINITIALIZE TO LENGTH OF STRING IN X4
00535  M00S00521.comcblp +++|          RJ     ASL         ASSEMBLE NEXT CHARACTER(S) FROM LINE
00536  M00S00522.comcblp +++|          BX1    X5-X4
00537  M00S00523.comcblp +++|          ZR     X1,SCNX     IF CHARACTER STRING IN X4 FOUND IN LINE
00538  M00S00524.comcblp +++|          SB7    B5+B1
00539  M00S00525.comcblp +++|          EQ     SCN1        CHECK NEXT CHARACTER
00540  M00S00526.comcblp +++|
00541  M00S00527.comcblp +++| SCN2     EQ     B2,B7,SCNX  IF END OF LINE
00542  M00S00528.comcblp +++|          SA5    B7
00543  M00S00529.comcblp +++|          SB7    B7+B1
00544  M00S00530.comcblp +++|          SX1    X5-QUOTE
00545  M00S00531.comcblp +++|          NZ     X1,SCN2     IF MATCHING QUOTE NOT FOUND
00546  M00S00532.comcblp +++|          EQ     SCN1        CHECK NEXT CHARACTER
00547  M00S00533.comcblp +++|
00548  M00S00534.comcblp +++| SCN3     SB7    B2          SET END OF LINE
00549  M00S00535.comcblp +++|          EQ     SCNX        RETURN
00550  M00S00536.comcblp +++| SRC      SPACE  4,20
00551  M00S00537.comcblp +++|**        SRC - SEARCH LINE NUMBER TABLE.
00552  M00S00538.comcblp +++|*
00553  M00S00539.comcblp +++|*         ENTRY  (X0) = OLD LINE NUMBER.
00554  M00S00540.comcblp +++|*
00555  M00S00541.comcblp +++|*         EXIT   (B4) = SEARCH FLAG.
00556  M00S00542.comcblp +++|*                       .LT. 0, LINE NUMBER NOT FOUND USING ASSUMED
00557  M00S00543.comcblp +++|*                               SORT OPTION.
00558  M00S00544.comcblp +++|*                       .EQ. 0, LINE NUMBER NOT FOUND.
00559  M00S00545.comcblp +++|*                       .GT. 0, LINE NUMBER FOUND.
00560  M00S00546.comcblp +++|*                (X1) = *LNT* ENTRY.
00561  M00S00547.comcblp +++|*
00562  M00S00548.comcblp +++|*         USES   X - 1, 2, 3, 4, 6.
00563  M00S00549.comcblp +++|*                A - 2, 3, 6.
00564  M00S00550.comcblp +++|*                B - 4, 5, 6.
00565  M00S00551.comcblp +++|*
00566  M00S00552.comcblp +++|*         MACROS READEI, READO, REWIND.
00567  M00S00553.comcblp +++|
00568  M00S00554.comcblp +++|
00569  M00S00555.comcblp +++| SRC      SUBR               ENTRY/EXIT
00570  M00S00556.comcblp +++|          SA2    LNTP
00571  M00S00557.comcblp +++|          SB6    0-24
00572  M00S00558.comcblp +++|          BX6    X2
00573  M00S00559.comcblp +++|          PL     X6,SRC2     IF *LNT* NOT WRITTEN OUT
00574  M00S00560.comcblp +++|
00575  M00S00561.comcblp +++|*         READ IN *LNT* OFF MASS STORAGE.
00576  M00S00562.comcblp +++|
00577  M00S00563.comcblp +++|          LX6    0-36
00578  M00S00564.comcblp +++|          SX6    X2
00579  M00S00565.comcblp +++|          SA6    SRCA
00580  M00S00566.comcblp +++|          REWIND X6
00581  M00S00567.comcblp +++|          READEI X2
00582  M00S00568.comcblp +++| SRC1     SA2    SRCA
00583  M00S00569.comcblp +++|          READO  X2
00584  M00S00570.comcblp +++|          SA3    LNTP
00585  M00S00571.comcblp +++|          BX2    X6
00586  M00S00572.comcblp +++|          ZR     X1,SRC4     IF NO ERROR
00587  M00S00573.comcblp +++|          EQ     SRC6        LINE NUMBER NOT FOUND
00588  M00S00574.comcblp +++|
00589  M00S00575.comcblp +++| SRC2     SA3    LNTP
00590  M00S00576.comcblp +++|          BX4    X3
00591  M00S00577.comcblp +++|          LX4    0-18        GET LWA+1 OF *LNT* BUFFER
00592  M00S00578.comcblp +++|          SB4    X3
00593  M00S00579.comcblp +++|          SB5    X4
00594  M00S00580.comcblp +++|          EQ     B4,B5,SRC6  IF *LNT* EMPTY
00595  M00S00581.comcblp +++| SRC3     SA2    B4+         GET NEXT ENTRY
00596  M00S00582.comcblp +++| SRC4     MX1    -18
00597  M00S00583.comcblp +++|          LX6    B6,X2
00598  M00S00584.comcblp +++|          BX6    -X1*X6
00599  M00S00585.comcblp +++|          IX6    X6-X0
00600  M00S00586.comcblp +++|          ZR     X6,SRC8     IF MATCH FOUND
00601  M00S00587.comcblp +++|          LX4    B1,X3
00602  M00S00588.comcblp +++|          PL     X4,SRC5     IF NOT SORTED ON OLD LINE NUMBER
00603  M00S00589.comcblp +++|          PL     X6,SRC7     IF NOT FOUND
00604  M00S00590.comcblp +++| SRC5     NG     X3,SRC1     IF *LNT* WRITTEN OUT TO DISK
00605  M00S00591.comcblp +++|          SB4    B4+1
00606  M00S00592.comcblp +++|          LE     B4,B5,SRC3  IF NOT END OF *LNT* TABLE
00607  M00S00593.comcblp +++|
00608  M00S00594.comcblp +++|*         SET FLAG TO *NOT FOUND*.
00609  M00S00595.comcblp +++|
00610  M00S00596.comcblp +++| SRC6     SB4    B0
00611  M00S00597.comcblp +++|          EQ     SRCX        RETURN
00612  M00S00598.comcblp +++|
00613  M00S00599.comcblp +++|*         SET FLAG TO *NOT FOUND* USING ASSUMED SORT OPTION.
00614  M00S00600.comcblp +++|
00615  M00S00601.comcblp +++| SRC7     SB4    -B4
00616  M00S00602.comcblp +++|          EQ     SRCX        RETURN
00617  M00S00603.comcblp +++|
00618  M00S00604.comcblp +++| SRC8     BX1    X2
00619  M00S00605.comcblp +++|          SB4    B1
00620  M00S00606.comcblp +++|          EQ     SRCX        RETURN
00621  M00S00607.comcblp +++|
00622  M00S00608.comcblp +++| SRCA     CON    0           FET ADDRESS
00623  M00S00609.comcblp +++|
00624  M00S00610.comcblp +++| QUAL$    IF     -DEF,QUAL$
00625  M00S00611.comcblp +++|          QUAL   *
00626  M00S00612.comcblp +++| BLP      EQU    /COMCBLP/BLP
00627  M00S00613.comcblp +++| QUAL$    ENDIF
00628  M00S00614.comcblp +++|          ENDX