BANNER TELEFILE,AP H00,APCNC.
1
TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    FFFFFFFFFFFFF      IIIIIIII       LL               EEEEEEEEEEEEE
TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    FFFFFFFFFFFFF      IIIIIIII       LL               EEEEEEEEEEEEE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EEEEEEEE         LL               EEEEEEEE         FFFFFFFF              II          LL               EEEEEEEE
     TT          EEEEEEEE         LL               EEEEEEEE         FFFFFFFF              II          LL               EEEEEEEE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EE               LL         LL    EE               FF                    II          LL         LL    EE
     TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    FF                 IIIIIIII       LLLLLLLLLLLLL    EEEEEEEEEEEEE
     TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    FF                 IIIIIIII       LLLLLLLLLLLLL    EEEEEEEEEEEEE




                  AAAAAAAAAAA     PPPPPPPPPPPP                      HH         HH       0000000          0000000
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP                     HH         HH      000000000        000000000
                 AA         AA    PP         PP                     HH         HH     00       00      00       00
                 AA         AA    PP         PP                     HH         HH    00         00    00         00
                 AA         AA    PP         PP                     HH         HH    00         00    00         00
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP                     HHHHHHHHHHHHH    00         00    00         00
                 AAAAAAAAAAAAA    PPPPPPPPPPPP                      HHHHHHHHHHHHH    00         00    00         00
                 AA         AA    PP                                HH         HH    00         00    00         00
                 AA         AA    PP                                HH         HH    00         00    00         00
                 AA         AA    PP                                HH         HH     00       00      00       00
                 AA         AA    PP                                HH         HH      000000000        000000000
                 AA         AA    PP                                HH         HH       0000000          0000000




                  AAAAAAAAAAA     PPPPPPPPPPPP      CCCCCCCCCCC     NN         NN     CCCCCCCCCCC
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    CCCCCCCCCCCCC    NNN        NN    CCCCCCCCCCCCC
                 AA         AA    PP         PP    CC         CC    NNNN       NN    CC         CC
                 AA         AA    PP         PP    CC               NN NN      NN    CC
                 AA         AA    PP         PP    CC               NN  NN     NN    CC
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    CC               NN   NN    NN    CC
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     CC               NN    NN   NN    CC
                 AA         AA    PP               CC               NN     NN  NN    CC
                 AA         AA    PP               CC               NN      NN NN    CC
                 AA         AA    PP               CC         CC    NN       NNNN    CC         CC
                 AA         AA    PP               CCCCCCCCCCCCC    NN        NNN    CCCCCCCCCCCCC
                 AA         AA    PP                CCCCCCCCCCC     NN         NN     CCCCCCCCCCC




1
TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    FFFFFFFFFFFFF      IIIIIIII       LL               EEEEEEEEEEEEE
TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    FFFFFFFFFFFFF      IIIIIIII       LL               EEEEEEEEEEEEE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EEEEEEEE         LL               EEEEEEEE         FFFFFFFF              II          LL               EEEEEEEE
     TT          EEEEEEEE         LL               EEEEEEEE         FFFFFFFF              II          LL               EEEEEEEE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EE               LL               EE               FF                    II          LL               EE
     TT          EE               LL         LL    EE               FF                    II          LL         LL    EE
     TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    FF                 IIIIIIII       LLLLLLLLLLLLL    EEEEEEEEEEEEE
     TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    FF                 IIIIIIII       LLLLLLLLLLLLL    EEEEEEEEEEEEE




                  AAAAAAAAAAA     PPPPPPPPPPPP                      HH         HH       0000000          0000000
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP                     HH         HH      000000000        000000000
                 AA         AA    PP         PP                     HH         HH     00       00      00       00
                 AA         AA    PP         PP                     HH         HH    00         00    00         00
                 AA         AA    PP         PP                     HH         HH    00         00    00         00
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP                     HHHHHHHHHHHHH    00         00    00         00
                 AAAAAAAAAAAAA    PPPPPPPPPPPP                      HHHHHHHHHHHHH    00         00    00         00
                 AA         AA    PP                                HH         HH    00         00    00         00
                 AA         AA    PP                                HH         HH    00         00    00         00
                 AA         AA    PP                                HH         HH     00       00      00       00
                 AA         AA    PP                                HH         HH      000000000        000000000
                 AA         AA    PP                                HH         HH       0000000          0000000




                  AAAAAAAAAAA     PPPPPPPPPPPP      CCCCCCCCCCC     NN         NN     CCCCCCCCCCC
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    CCCCCCCCCCCCC    NNN        NN    CCCCCCCCCCCCC
                 AA         AA    PP         PP    CC         CC    NNNN       NN    CC         CC
                 AA         AA    PP         PP    CC               NN NN      NN    CC
                 AA         AA    PP         PP    CC               NN  NN     NN    CC
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    CC               NN   NN    NN    CC
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     CC               NN    NN   NN    CC
                 AA         AA    PP               CC               NN     NN  NN    CC
                 AA         AA    PP               CC               NN      NN NN    CC
                 AA         AA    PP               CC         CC    NN       NNNN    CC         CC
                 AA         AA    PP               CCCCCCCCCCCCC    NN        NNN    CCCCCCCCCCCCC
                 AA         AA    PP                CCCCCCCCCCC     NN         NN     CCCCCCCCCCC




ASSIGN M:CI,(FILE,CI:APCNC,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APCNC,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    ANZ
            273/IF         274/IF         281/IF        1589/IF        1741/IF        1820/IF
    ARG
            151-EQU        303/STW        745/STH        782/AI         784/LH        1392/LW        1393/STW
           1676/LW        1677/AWM
    ASTFLG
            104-EQU        911/IF
    AVAILMSG
            228-RES        231/EQU        643/LI         648/LI
    AVAILSIZE
            231-EQU        644/LI
    AVAILVAL
            230-TEXT       648/LI
    AZ
            276/IF         284/IF         285/IF        1567/IF        1594/IF        1700/IF        1818/IF
           1830/IF
    BEGINEXP
            105-EQU        875/ELSF
    BEGLIST
            106-EQU        334/IF         384/CV         713/IF         757/IF         825/IF         884/ELSF
           1112/IF        1128/IF
    CFIX
            170-RES        514/STW        526/LW         532/MTW        543/LW         579/LW         584/LW
            587/MTW
    CFPTRSYM
            128-EQU       1594/IF        1831/OR
    CF1PTR
            171-RES        309/STW        400/AWM*       516/LW         529/STS*       582/STS*       615/CW
            769/LW*       1593/LW*       1829/LW*       1832/STW*      1880/CS*       1906/AW
    CF1REF
            773/BAL       1559-RES
    CF1SYM
            172-RES        518/STW        531/STW*       546/AW         585/STH*      1491/AW        1492/AW
    CHARS
            156-EQU       1493/LH        1494/LW        1515/STB       1520/LH        1521/SLS       1522/STB
           1523/LH
    CLEANCN
            115-EQU       1041/AND
    CLOC
            173-RES        771/STW       1628/LW
    CLOSEX5
             47/REF       1045/BAL
    CLRLSTBF
            626/BAL        631/BAL        642/BAL        651/BAL        988/BAL       1160-RES       1173/BAL
           1181/BAL       1469/BAL
    CMND
            174-RES        387/STW        402/LW         438/LW         539/STW        549/STW        766/STW
            772/LW         774/LW         953/LW        1689/LW        1694/AND       1719/LW        1723/LW
           1759/LW        1761/LW        1776/LW        1780/LW        1794/LW
    CNCF10
            453-RES        483/BG
    CNCF20
            456-RES        473/BYTE
    CNCF30
            463-RES        489/B          494/B          499/B          506/B
    CNCF40
            459/BE         474/BYTE       481-RES
    CNCF50
            475/BYTE       487-RES
    CNCF60
            476/BYTE       491-RES
    CNCF70
            477/BYTE       496-RES
    CNCF80
            478/BYTE       501-RES
    CNCLNUM
            175-RES        263/STW        462/MTW       1177/LW
    CNCP
             34-CSECT       38/DEF        217/USECT
    CNERR
            488/CALL      1171-RES
    CNERRMSG
            226-TEXT       227/EQU       1174/LI
    CNERRSIZE
            227-EQU       1175/LI        1178/LI
    CNERRXIT
            176-RES       1172/STW       1183/B*
    CNFLD
             88-EQU       1490/AND
    CNFLGFLD
            129-EQU        273/IF
    CNIOFLG
            130-EQU        274/IF
    CNIOFLG1
            131-EQU        276/IF
    CNOSFLG
            134-EQU        281/IF         284/IF
    CNSSFLG
            132-EQU        281/IF
    CNSSFLG1
            133-EQU        285/IF
    CNTBASE
            450-RES        470/B          473/BYTE
    CNTJMP
            469/LB         472-RES
    CNVCTRL
           1696/BAL       1715/BAL       1726/BAL       1755/BAL       1764/BAL       1783/BAL       1815-RES
    CNVT
            640/BAL        649/BAL       1179/CALL      1189-RES       1196/BG        1541/BAL       1547/BAL
    COMMENT#
             93-EQU        764/LI
    COMP1
            321/BE         329/BE         345/B          371/BE         382-RES        385/BE
    COMP2
            694/BE         699/BE         707/B          743/B          752-RES
    CONCEND
             40/DEF       1921-END
    CONCORD
             39/DEF        250-STW
    CONCTERM
            969/BL        1039-RES
    CONC10
            338-RES        366/B          373/B          377/B
    CONC20
            446/BEZ        485/B          511-BAL
    CONC25
            538-BAL        570/B          574/BE         590/BE
    CONC30
            709-LH         727/BNE        731/B          736/B          741/BG         748/B
    CONC35
            928-LH         943/BNE        947/B          950/B
    CONC40
            958/BEZ        964-BAL
    CONC50
            966-BAL       1023/BE        1037/B
    CONTIN
            177-RES       1309/STW       1353/LW        1357/STW       1393/STW       1404/STW
    COREBLOCK
            178-RES        261/STW        667/LW         669/MTW        672/MTW        673/LW         960/LW
           1250/STW       1251/LW        1258/LW        1288/LW
    CR
            120-EQU        753/LV        1485/IF        1512/IF
    CT
            179-RES        535/STW       1452/STW       1459/AWM       1475/SW        1728/STW       1744/STW
           1754/LW        1763/LW        1778/MTW       1782/LW
    CTBLC
            135-EQU        492/LV         497/LV         504/OR        1741/IF
    CTBLCC
            136-EQU       1567/IF        1589/IF        1817/AND       1827/OR
    CTBLFLGS
            137-EQU       1742/AND
    CTBLFLOB
            138-EQU
    CTBLIO
            139-EQU        492/LV        1818/IF
    CTBLSS
            140-EQU        497/LV         502/LV        1820/IF        1830/IF
    CTCHRS
           1203-RES       1451/BAL       1457/BAL
    CTCHR1
           1205-RES       1208/BGE
    CTRLTBL
            180-RES        256/STW        301/LW         493/STS*       498/STS*       503/AND*       505/STW*
            605/LW         624/SW         647/SW         971/LW        1563/LW*       1584/LW*       1598/LW*
           1611/AW        1677/AWM*      1695/LW*       1713/LW*       1725/LW*       1740/LW*       1752/LW*
           1786/SW        1789/LW*       1798/STW*      1816/LW*       1839/STW*
    CTSPACE
            344/CALL       376/CALL       424/CALL      1670-RES
    CURRLINE
            181-RES       1431/STW       1435/STW       1441/STW       1446/STW       1450/LW        1453/LW
           1456/LW        1483/LW        1489/LW        1506/LW        1537/LW        1540/LW        1546/LW
    DC%FLAG
             44/REF        272/LW         444/LB        1040/LW        1042/STW       1690/MTB
    DECTBL
           1207/CW        1210-RES
    ENCSSYM
             98-EQU        112/EQU        806/IF         855/ELSF
    ENCSYM
             99-EQU        107/EQU        113/EQU        390/IF         763/IF         801/IF         845/IF
    ENCTFLD
             84-EQU        388/LV         465/LV         761/LV         799/LV         843/LV        1092/LI
           1117/LV        1368/LI
    ENCTINT
            245-EQU       1093/CS        1099/CS        1102/CS        1369/CS        1389/CS        1394/CS
    ENCTLOB
            100-EQU        468/SHIFT
    END#
             95-EQU        107/EQU
    ENDBUFF
            246-EQU        458/CV        1084/IF        1150/CI        1363/CI
    ENDCORE
             41/REF        622/CW         646/LW         656/LW
    ENDDIR
            107-EQU        439/CV         954/CV        1135/CV
    ENDEXP
            108-EQU        878/LV         881/ELSF
    ENDLINE
            109-EQU        811/CV         840/CV        1075/IF
    ENDLIST
            110-EQU        820/IF         887/LV         890/ELSF      1114/ELSF
    ENDSBSYM
            111-EQU        869/LV         872/ELSF
    ENDX
            182-RES        396/AWM*       398/LW         528/LW         580/LW         768/LW         983/STW
           1032/CW        1592/LW        1828/LW        1869/STW       1877/LW        1882/STW       1904/LCW
           1905/LW        1907/STW       1914/STW*      1917/STW*
    EQ
            334/IF         390/IF         403/IF         757/IF         775/IF         801/IF         806/IF
            814/IF         820/IF         825/IF         845/IF         855/ELSF       872/ELSF       875/ELSF
            881/ELSF       884/ELSF       890/ELSF       895/IF         897/ELSF       911/IF        1075/IF
           1084/IF        1112/IF        1114/ELSF      1119/IF        1128/IF        1486/IF        1531/IF
           1601/IF        1672/EXIT      1875/EXIT
    EZ
            393/IF         848/IF         859/IF         868/IF         877/IF         886/IF        1566/IF
           1691/IF
    FOUND
            209-RES        392/MTW        524/MTW        560/LW        1824/MTW       1872/STW       1884/MTW
    G
            796/IF        1103/IF
    GE
            623/IF        1100/IF
    GEZ
            783/IF
    HWX1SIZE
             45/REF        565/CI        1339/CI
    INBUF
            210-EQU        690/LH         704/STH        709/LH         745/STH        784/LH         928/LH
           1062/LH        1072/LH        1328/LI        1343/LH        1361/LH        1371/LH        1388/LH
           1401/LH
    INITCTBL
            303-STW        307/BDR
    INSRTCF1
            394/CALL      1903-RES
    INSRT1
           1912-RES       1915/BDR
    INSRT2
           1911/BEZ       1916-RES
    IOADD
            159-EQU        666/LW         961/LW        1251/LW        1252/SLS       1253/AW        1254/STW
           1255/AI        1256/STW       1257/LW        1289/LW        1298/LI        1328/LI
    IORL
            161-EQU        452/BAL        662/BAL        668/BAL        962/BAL       1045/BAL       1259/BAL
           1290/BAL       1300/BAL       1313/BAL       1320/BAL       1329/BAL
    IOSIZE
            160-EQU        667/LW         960/LW        1258/LW        1288/LW        1299/LI
    IR
            121-EQU        923/AV        1486/IF        1531/IF
    L
            467/AND        504/OR         541/IF         608/AND        770/AND        815/AND        898/AND
            915/AND        922/AND       1041/AND       1093/CS        1099/CS        1102/CS        1120/AND
           1484/AND       1507/AND       1509/LB        1562/AND       1583/AND       1612/AND       1614/AND
           1626/AND       1708/AND       1712/AND       1724/AND       1739/AND       1742/AND       1747/AND
           1751/AND       1762/AND       1781/AND       1791/AND       1795/AND       1817/AND       1821/AND
           1827/OR        1831/OR        1834/AND       1836/AND
    L#
             96-EQU        112/EQU       1601/IF
    LASTCOREHW
            184-RES        678/STW       1245/CW        1256/STW       1284/CW
    LASTREF
            185-RES        849/LW         860/LW        1561/STW       1582/STW       1627/STW
    LEZ
           1586/IF        1616/EXIT
    LFLD
            101-EQU        815/AND        898/AND       1120/AND
    LINE
            313-RES        405/B          440/BNE
    LINENUM
            314/CALL       461/CALL       685/CALL      1351-RES
    LINENUM1
           1354/BEZ       1360-RES       1366/B
    LINENUM2
           1364/BNE       1367-RES
    LINENUM3
           1370/BE        1374-RES
    LINENUM4
           1373/B         1376/BNEZ      1380-RES
    LINENUM5
           1387-RES       1399/B         1407/B
    LINENUM6
           1379/B         1385-RES
    LINENUM7
           1395/BNE       1400-RES
    LINENUM8
           1397/BNEZ      1403-RES
    LINESP
            183-RES        395/LW         399/LW        1386/STW       1618/LW        1676/LW
    LINE2
            684-RES        955/BNE
    LINUMXIT
            186-RES       1352/STW       1390/BL*
    LISTCT
            162-EQU        331/LI         336/AI         369/AI         687/LI         735/AI         739/AI
            755/LI         758/AI         796/IF         821/AI         826/AI         835/LI         836/STW
            837/STW        871/LI         873/AI         880/LI         882/AI         889/LI         891/AI
            896/AI         902/CI        1109/LI        1113/AI        1115/AI        1124/CV
    LN1
            326/BE         343-RES
    LN10
            428/BE         437-RES
    LN12
            584-LW         593/B
    LN13
            566/BGE        572-AI         577/B
    LN14
            606-RES        616/BL
    LN2
            333-RES        341/B
    LN20
            702/BNE        712-RES
    LN21
            734-RES
    LN22
            716/BE         738-RES
    LN23
            721/BE         724/BE         745-STH
    LN3
            348-CI
    LN31
            781-RES        786/B
    LN32
            795-RES        822/B          828/B
    LN33
            797-RES        803/B          808/B          817/B
    LN34
            838-RES        903/BG
    LN35
            934/BE         937/BE         949-BAL
    LN36
            812/BE         841/BE         940/BE         952-RES
    LN4
            349/BE         368-RES
    LN40
           1005-AI        1013/B
    LN42
           1021-AI        1026/B
    LN45
           1007/BE        1028-BAL       1033/BL
    LN5
            354/BE         357/BE         375-RES
    LN7
            412-RES        425/B          431/BNE        435/B
    LN8
            418/BE         423-RES
    LN9
            421/BNE        427-CI
    LOCFLD
            116-EQU        915/AND       1612/AND       1614/AND       1821/AND       1834/AND
    LOWCORE
             41/REF        255/LW
    LR
            122-EQU        779/LV
    LSSYM
            112-EQU        856/IF        1671/CV
    LSTBF
             46/REF       1003/STB       1010/STH       1163/STD       1193/STB       1222/STW       1298/LI
           1510/STB       1515/STB       1522/STB       1533/STB       1543/STB
    LZ
           1565/EXIT      1587/EXIT
    MAJLINE
            187-RES       1311/STW       1355/STW       1381/STW       1392/LW        1630/LW
    MAPCTRL
            550/CALL       552/CALL      1687-RES
    MAPCXIT
            188-RES       1688/STW       1697/B*        1720/BEZ*      1730/B*        1767/B*        1800/B*
    MIDX
            148-EQU        971/LW         973/AW        1868/LW        1869/STW       1870/STW       1871/LI
           1872/STW       1873/XW        1874/CW        1877/LW        1878/AW        1879/SLS       1880/CS
           1882/STW       1904/LCW       1910/AW        1913/LW        1914/STW       1915/BDR
    MOFLG
            141-EQU       1700/IF
    MOVEMSG
            629/BAL        637/BAL        645/BAL       1176/BAL       1219-RES
    MOVEMSG1
           1221-LW        1223/BDR
    MULTINT
            102-EQU        814/IF         897/ELSF      1119/IF
    NE
            713/IF         763/IF         856/IF        1094/IF        1485/IF        1512/IF
    NEXTOP
            189-RES        259/STW        517/AW        1868/LW        1910/AW        1918/MTW
    NOINC
            457/NXTENC     910/NXTENC    1098/NXTENC
    NOREFS
            986/BE        1015-BAL
    NR
            123-EQU        793/LV
    NUMRECX3
            190-RES        445/STW        455/MTW        482/MTW
    NXSTWD1
           1340/BL        1342-RES
    NXSYMB
             43/REF        297/LW
    NXTCNREC
            454/CALL      1327-RES
    NXTRECRD
            511/BAL        964/BAL       1085/BAL       1152/BAL       1319-RES       1341/BAL       1365/BAL
    NXTSTWD
            538/BAL        554/BAL        576/BAL        592/BAL        966/BAL        989/BAL       1009/BAL
           1015/BAL       1025/BAL       1337-RES
    NXTSTXIT
            191-RES       1338/STW       1345/B*
    NZ
            525/IF         850/IF         861/IF         914/IF         917/IF        1518/IF        1709/IF
           1748/IF        1779/IF
    OPENX5
             47/REF        662/BAL
    OPREFS
            192-RES        269/STW        275/MTW        277/MTW       1564/MTW
    OPTRFLD
            117-EQU        527/LV         770/AND       1836/AND
    ORGX
            193-RES        978/STW        985/CW        1030/LW        1424/LW        1428/LW        1460/MTW
           1462/MTW       1870/STW       1873/XW        1874/CW        1878/AW        1909/STW       1913/LW*
    OUTX
            150-EQU        991/LW         992/AI         993/SLS       1471/LI        1476/CW        1498/LB
           1499/AW        1500/CI        1502/LB        1503/LW        1510/STB       1511/AI        1515/STB
           1516/AI        1522/STB       1524/AI        1533/STB       1534/AI
    PASSINIT
            295/BAL        682/BAL       1307-RES
    PASS1
            295-BAL
    PATCH
            169-RES
    PGLINES
             48/REF        262/STW
    PRINT
            630/BAL        633/BAL        641/BAL        650/BAL        653/BAL       1036/BAL       1180/BAL
           1182/BAL       1297-RES       1468/BAL
    RADBUFFER
            194-RES        658/STW        666/LW         961/LW        1257/LW        1289/LW
    RADHW
            157-EQU        918/LW        1240/LW        1243/CW        1245/CW        1260/LW        1279/LW
           1282/CW        1284/CW        1428/LW        1432/AI        1438/AI        1637/LW        1640/AI
           1645/AI
    RADOVTRIG
            195-RES        260/STW        655/MTW        916/MTW        957/LW        1043/LW        1426/LW
           1631/LW
    RDRADRCD
           1239-RES       1429/BAL       1433/BAL       1439/BAL
    RDRAD1
           1244/BL        1247-RES       1291/B
    RDRAD2
           1246/BL        1261-RES       1285/BL
    READX1
             49/REF       1320/BAL
    READX3
             50/REF       1329/BAL
    READX5
             47/REF       1259/BAL
    REQDMSG
            222-RES        225/EQU        635/LI         639/LI
    REQDSIZE
            225-EQU        636/LI
    REQDVAL
            224-TEXT       639/LI
    RESIDUE
            200-RES       1310/STW       1358/XW        1398/MTW       1406/STW
    REWX1
             51/REF       1313/BAL
    REWX3
             52/REF        452/BAL
    RFO
            201-RES        547/STW        620/AW         659/SW         921/LH*        924/STH*      1430/LH*
           1434/LH*       1440/LH*       1445/LH*       1639/STH*      1642/STH*      1647/STH*      1653/STH*
           1655/STH*      1657/STH*      1660/STH*      1662/STH*
    RL
            153-EQU        640/BAL        649/BAL       1057/STW       1172/STW       1197/B         1209/B
           1221/LW        1222/STW       1352/STW       1424/LW        1445/LH        1447/AI        1451/BAL
           1457/BAL       1506/LW        1507/AND       1508/SHIFT     1509/LB        1512/IF        1531/IF
           1541/BAL       1547/BAL       1628/LW        1629/AW        1636/AI        1639/STH       1652/AI
           1653/STH       1660/STH       1688/STW
    RL1
            154-EQU        155/EQU        295/BAL        511/BAL        538/BAL        554/BAL        576/BAL
            592/BAL        626/BAL        629/BAL        630/BAL        631/BAL        633/BAL        637/BAL
            641/BAL        642/BAL        645/BAL        650/BAL        651/BAL        653/BAL        682/BAL
            773/BAL        785/BAL        802/BAL        807/BAL        846/BAL        857/BAL        919/BAL
            949/BAL        964/BAL        966/BAL        988/BAL        989/BAL       1009/BAL       1015/BAL
           1025/BAL       1028/BAL       1036/BAL       1085/BAL       1152/BAL       1165/B*        1173/BAL
           1176/BAL       1180/BAL       1181/BAL       1182/BAL       1190/LI        1191/DW        1192/AI
           1193/STB       1224/B*        1242/BL*       1264/B*        1281/BL*       1301/B*        1322/B*
           1338/STW       1341/BAL       1365/BAL       1423/STW       1429/BAL       1433/BAL       1439/BAL
           1468/BAL       1469/BAL       1509/LB        1510/STB       1565/EXIT      1568/EXIT      1587/EXIT
           1595/EXIT      1602/EXIT      1616/EXIT      1633/STW       1634/LW        1638/BAL       1641/BAL
           1646/BAL       1658/B*        1663/B*        1696/BAL       1715/BAL       1726/BAL       1755/BAL
           1764/BAL       1783/BAL       1840/EXIT
    RL2
            155-EQU        156/EQU        638/LW         646/LW         647/SW        1177/LW        1195/CI
           1430/LH        1431/STW       1436/CI        1540/LW        1546/LW        1630/LW        1642/STH
           1643/LW        1647/STH       1655/STH       1662/STH
    ROOTRTN
             55/REF        250/STW       1044/BEZ*      1046/B*
    RTFLD
            118-EQU        922/AND       1484/AND       1507/AND
    RTLOB
            119-EQU        120/EQU        121/EQU        122/EQU        123/EQU       1508/SHIFT     1512/IF
           1531/IF
    RTYP
            196-RES        754/STW        780/STW        794/STW       1629/AW
    SAVEOP
            561/BNEZ       579-LW
    SEGMENT#
             42/REF        252/STW
    SKIPSXIT
            202-RES       1057/STW       1077/BLEZ*
    SKIPSYS
            404/CALL       776/CALL      1056-RES
    SKIPS1
           1072-LH        1154/B
    SLFLD
            124-EQU       1436/CI        1454/CI        1538/CI        1636/AI        1652/AI
    SPACELOB
            125-EQU       1619/SHIFT     1622/SLS
    SPILLMSG
            219-RES        221/EQU        627/LI
    SPILLSIZE
            221-EQU        628/LI
    SRCHCF1
            391/CALL       523/CALL       767/CALL      1591/CALL      1692/CALL      1710/CALL      1722/CALL
           1749/CALL      1760/CALL      1777/CALL      1864-RES
    SRCH1
           1873-XW        1881/BG
    SRCH3
           1874-CW        1883/BL
    STLN1
           1427/BEZ       1444-RES       1448/BIR
    STLN10
           1467-RES       1501/BG
    STLN2
           1455/BAZ       1461-RES
    STLN3
           1463-RES       1479/B
    STLN30
           1514-RES       1525/BDR
    STLN32
           1539/BAZ       1545-RES
    STLN4
           1465/BL        1473-RES
    STLN5
           1477/BG        1481-RES
    STLN9
           1437/BAZ       1442/B         1449-RES
    STOPCODE
            203-RES        836/STW        867/LW         870/STW        876/LW         879/STW        885/LW
            888/STW        894/CW
    STOREREF
            785/BAL        802/BAL        807/BAL        846/BAL        857/BAL        949/BAL       1580-RES
    STOREREFXIT
            197-RES       1633/STW       1644/BEZ*      1648/B*
    STORERF1
           1632/BEZ       1649-RES
    STORERF2
           1651/BEZ       1659-RES
    STORLN
           1028/BAL       1422-RES
    STORLXIT
            204-RES       1423/STW       1548/B*
    STORREFU
           1572/B         1610-RES
    SUBLINE
            205-RES       1312/STW       1359/AWM       1377/MTW       1383/STW       1634/LW        1643/LW
           1650/LW
    SYMREFS
            206-RES        271/STW        282/MTW        286/MTW       1585/MTW
    SYSCODE
           1062-LH        1133/BE
    SYSCOUNT
            207-RES       1060/STW       1069/MTW       1076/MTW       1137/MTW
    SYSTEM#
             94-EQU        113/EQU
    SYSTEMDIR
            113-EQU        403/IF         775/IF        1132/CV
    TABTBL
           1474/LB        1498/LB        1502/LB        1549-RES
    TABX
            149-EQU        995/LI        1464/CI        1470/LI        1474/LB        1478/AI        1498/LB
           1502/LB        1505/AI
    TEMP
            208-RES        536/STW        625/STW        638/LW        1590/STW       1597/LW        1707/LH
           1711/LH        1714/STW       1729/STW       1746/LH        1750/LH        1753/STW       1766/STW
           1785/LI
    TEST3
            682-BAL
    TEST4
            665-RES        671/BGZ
    TOT
            158-EQU        258/LI         259/STW        260/STW        261/STW        262/STW        263/STW
            278/AI         283/AI         288/AI         292/SCS        303/STW        618/STW        619/SLS
            664/SW         670/AI
    T1
            163-EQU        388/LV         389/AND        390/IF         526/LW         527/LV         529/STS
            530/LV         531/STW        607/LW         608/AND        611/AW         761/LV         762/AND
            763/IF         799/LV         800/AND        801/IF         806/IF         814/IF         843/LV
            844/AND        845/IF         855/ELSF       897/ELSF       921/LH         922/AND        923/AV
            924/STH        953/LW         954/CV         976/SLS        981/SLS       1031/AI        1117/LV
           1118/AND       1119/IF        1532/LI        1533/STB       1537/LW        1538/CI        1542/LI
           1543/STB       1560/LI        1561/STW       1581/LI        1582/STW       1613/LW        1614/AND
           1615/SW        1623/LW        1624/SLS       1625/AW        1789/LW        1790/LH        1797/OR
           1798/STW       1816/LW        1817/AND       1821/AND       1827/OR        1834/AND       1837/AW
           1839/STW
    T2
            164-EQU       1829/LW        1831/OR        1832/STW       1836/AND       1837/AW
    VALFLD
             86-EQU        467/AND       1375/AND       1396/AND       1562/AND       1583/AND       1674/LI
           1693/LV        1708/AND       1712/AND       1724/AND       1739/AND       1747/AND       1751/AND
           1762/AND       1781/AND       1791/AND       1795/AND
    WA
            221/EQU        221/EQU        225/EQU        225/EQU        227/EQU        227/EQU        231/EQU
            231/EQU
    WRITELO
             53/REF       1300/BAL
    WRITERADRCD
            919/BAL       1278-RES       1638/BAL       1641/BAL       1646/BAL
    WRITEX5
             47/REF        668/BAL        962/BAL       1290/BAL
    WTRAD1
           1283/BL        1287-RES
    XAPDATA
            168-DSECT
    XT
            146-EQU        251/LI         252/STW        253/LI         254/STW        268/LI         269/STW
            270/LI         271/STW        272/LW         273/IF         274/IF         276/IF         281/IF
            284/IF         285/IF         307/BDR        334/IF         384/CV         387/STW        389/AND
            398/LW         400/AWM        402/LW         403/IF         432/AND        433/AW         438/LW
            439/CV         444/LB         445/STW        458/CV         466/AND        467/AND        493/STS
            498/STS        503/AND        505/STW        522/LI         528/LW         529/STS        534/LI
            535/STW        536/STW        539/STW        548/LI         549/STW        585/STH        603/LI
            609/STS        610/SLS        611/AW         612/AI         613/SLS        618/STW        620/AW
            624/SW         625/STW        627/LI         635/LI         643/LI         656/LW         657/AI
            658/STW        659/SW         660/SLS        661/STW        673/LW         674/SLS        675/AW
            676/STW        677/AI         678/STW        690/LH         704/STH        709/LH         713/IF
            728/AND        729/AW         745/STH        753/LV         754/STW        757/IF         762/AND
            764/LI         766/STW        768/LW         769/LW         769/LW         770/AND        771/STW
            772/LW         774/LW         775/IF         779/LV         780/STW        784/LH         793/LV
            794/STW        800/AND        811/CV         815/AND        816/AW         820/IF         825/IF
            840/CV         844/AND        849/LW         851/MTB        852/STW        856/IF         860/LW
            862/MTB        863/STW        867/LW         869/LV         870/STW        872/ELSF       875/ELSF
            876/LW         878/LV         879/STW        881/ELSF       884/ELSF       885/LW         887/LV
            888/STW        890/ELSF       894/CW         898/AND        899/AW         911/IF         913/LW
            915/AND        918/LW         921/LH         924/STH        928/LH         944/AND        945/AW
            957/LW         972/AND        973/AW         991/LW         998/LW        1010/STH       1017/LW
           1040/LW        1041/AND       1042/STW       1043/LW        1062/LH        1072/LH        1075/IF
           1084/IF        1093/CS        1099/CS        1102/CS        1112/IF        1114/ELSF      1118/AND
           1120/AND       1121/AW        1128/IF        1132/CV        1135/CV        1162/LI        1163/STD
           1164/BIR       1174/LI        1204/LI        1206/AI        1207/CW        1220/AI        1221/LW*
           1240/LW        1241/CW        1248/SW        1249/SLS       1250/STW       1260/LW        1262/SW
           1263/AW        1279/LW        1280/CW        1308/LI        1309/STW       1310/STW       1311/STW
           1312/STW       1343/LH        1353/LW        1355/STW       1356/LI        1357/STW       1358/XW
           1359/AWM       1361/LH        1363/CI        1369/CS        1371/LH        1375/AND       1378/LI
           1381/STW       1382/LI        1383/STW       1384/LI        1386/STW       1388/LH        1389/CS
           1394/CS        1396/AND       1401/LH        1404/STW       1405/LI        1406/STW       1425/LI
           1430/LH        1434/LH        1440/LH        1446/STW       1448/BIR       1452/STW       1453/LW
           1454/CI        1458/AI        1459/AWM       1474/LB        1475/SW        1476/CW        1483/LW
           1484/AND       1485/IF        1486/IF        1487/AI        1489/LW        1490/AND       1491/AW
           1492/AW        1493/LH        1519/AI        1520/LH        1523/LH        1562/AND       1563/LW
           1583/AND       1584/LW        1590/STW       1592/LW        1593/LW        1597/LW        1598/LW
           1601/IF        1611/AW        1613/LW        1620/AW        1621/XW        1623/LW        1631/LW
           1639/STH       1642/STH       1647/STH       1650/LW        1657/STH       1671/CV        1675/AND
           1689/LW        1693/LV        1694/AND       1695/LW        1700/IF        1707/LH        1708/AND
           1711/LH        1712/AND       1713/LW        1719/LW        1723/LW        1724/AND       1725/LW
           1727/LI        1728/STW       1729/STW       1739/AND       1740/LW        1741/IF        1746/LH
           1747/AND       1750/LH        1751/AND       1752/LW        1759/LW        1761/LW        1762/AND
           1765/LI        1766/STW       1776/LW        1780/LW        1781/AND       1785/LI        1786/SW
           1788/LW        1790/LH        1791/AND       1794/LW        1795/AND       1796/SLS       1797/OR
           1816/LW        1839/STW       1865/AND       1867/SLD       1880/CS        1917/STW
    XT1
            147-EQU        465/LV         466/AND        468/SHIFT      469/LB         469/LB         470/B
            492/LV         493/STS        497/LV         498/STS        502/LV         503/AND        504/OR
            505/STW        568/AW         604/LV         628/LI         636/LI         644/LI         998/LW
            999/SLS       1000/AI        1017/LW        1018/SLS       1019/AI        1092/LI        1161/LW
           1163/STD       1175/LI        1221/LW        1222/STW       1223/BDR       1368/LI        1426/LW
           1434/LH        1435/STW       1440/LH        1441/STW       1445/LH        1446/STW       1482/LI
           1496/AW        1499/AW        1517/AI        1525/BDR       1563/LW        1567/IF        1584/LW
           1589/IF        1593/LW        1594/IF        1598/LW        1612/AND       1615/SW        1618/LW
           1619/SHIFT     1620/AW        1621/XW        1622/SLS       1625/AW        1626/AND       1627/STW
           1637/LW        1653/STH       1654/AI        1655/STH       1656/AI        1657/STH       1660/STH
           1661/AI        1662/STH       1674/LI        1675/AND       1677/AWM       1695/LW        1713/LW
           1714/STW       1725/LW        1740/LW        1742/AND       1743/AI        1744/STW       1752/LW
           1753/STW       1754/LW        1763/LW        1782/LW        1788/LW        1789/LW        1798/STW
           1818/IF        1820/IF        1830/IF        1866/LI        1905/LW        1906/AW        1907/STW
           1908/AI        1909/STW       1913/LW        1914/STW
    XT2
            152-EQU        395/LW         396/AWM        399/LW         400/AWM        605/LW         607/LW
            609/STS        614/AI         615/CW         639/LI         648/LI        1178/LI        1193/STB
           1194/AI        1207/CW        1450/LW        1456/LW        1494/LW        1495/SLS       1496/AW
           1503/LW        1504/AI        1543/STB       1544/AI        1828/LW        1829/LW        1832/STW
    XW
            145-EQU        433/AW         568/AW         569/AI         632/LI         634/BDR        652/LI
            654/BDR        690/LH         691/AI         709/LH         710/AI         729/AW         777/AI
            816/AW         899/AW         912/AI         928/LH         929/AI         945/AW        1062/LH
           1063/AI        1072/LH        1073/AI        1095/AI        1101/AI        1104/AI        1121/AW
           1321/LI        1330/LI        1339/CI        1343/LH        1344/AI        1361/LH        1362/AI
           1371/LH        1372/AI        1388/LH        1391/AI        1401/LH        1402/AI
    XWBASE
            211-RES        254/STW
    X1BUF
             54/REF        210/EQU        253/LI
    1STAFREF
            212-RES        837/STW        847/MTW        852/STW        858/MTW        863/STW        913/LW
    1STCOREHW
            199-RES        676/STW       1243/CW        1254/STW       1262/SW        1282/CW
    1STRADHW
            198-RES        661/STW        664/SW         675/AW        1241/CW        1248/SW        1253/AW
           1263/AW        1280/CW
    32BM1
            126-EQU        502/LV        1817/AND       1821/AND       1834/AND
    %
            221/EQU        225/EQU        227/EQU        231/EQU        634/BDR        654/BDR       1164/BIR
           1635/BEZ
    #100
            360/BNE        364-RES
    #105
           1068/BL        1070-RES
    #106
           1136/BNE       1138-RES
    #107
           1144/BNE       1148-RES
    #108
           1151/BNE       1153-RES
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APCNC'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APCNC                   %%%%%
         6                            *   %%%%%     LAST UPDATED:    MAR 07, 1984            %%%%%
         7                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
A

        10                            *        T E L E F I L E    P R O P R I E T A R Y    P R O D U C T
A
        12                            *        THIS DOCUMENT INCLUDES DATA AND INFORMATION WHICH IS CONSIDERED
        13                            *        PROPRIETARY TO TELEFILE COMPUTER PRODUCTS, INC. REPRODUCTION,
        14                            *        DUPLICATION, DISCLOSURE OR DISSEMINATION, IN WHOLE OR IN PART,
        15                            *        TO OTHERS THAN REPRESENTATIVES OF THE UNITED STATES GOVERNMENT
        16                            *        SHALL NOT BE MADE WITHOUT PRIOR WRITTEN AUTHORIZATION OF TELEFILE
        17                            *        COMPUTER PRODUCTS, INC. NOTWITHSTANDING THE FOREGOING, USE OF
        18                            *        THE DATA OR INFORMATION IN WHOLE OR IN PART FOR DESIGN,
        19                            *        PROCUREMENT OR MANUFACTURE IS STRICTLY FORBIDDEN.
1

        22                            *        T E L E F I L E    P R O P R I E T A R Y    P R O D U C T
A
        24                            *        THIS DOCUMENT INCLUDES DATA AND INFORMATION WHICH IS CONSIDERED
        25                            *        PROPRIETARY TO TELEFILE COMPUTER PRODUCTS, INC. REPRODUCTION,
        26                            *        DUPLICATION, DISCLOSURE OR DISSEMINATION, IN WHOLE OR IN PART,
        27                            *        TO OTHERS THAN REPRESENTATIVES OF THE UNITED STATES GOVERNMENT
        28                            *        SHALL NOT BE MADE WITHOUT PRIOR WRITTEN AUTHORIZATION OF TELEFILE
        29                            *        COMPUTER PRODUCTS, INC. NOTWITHSTANDING THE FOREGOING, USE OF
        30                            *        THE DATA OR INFORMATION IN WHOLE OR IN PART FOR DESIGN,
        31                            *        PROCUREMENT OR MANUFACTURE IS STRICTLY FORBIDDEN.
1
        33                            *
        34   02 00000                 CNCP     CSECT    1                 PROCEDURE
        35                            *
        36                                     SYSTEM   AP%IL
        37                            *
        38                                     DEF      CNCP
        39                                     DEF      CONCORD
        40                                     DEF      CONCEND
        41                                     REF      LOWCORE,ENDCORE
        42                                     REF      SEGMENT#          AP OVERLAY SEGMENT
        43                                     REF      NXSYMB
        44                                     REF      DC%FLAG
        45                                     REF      HWX1SIZE
        46                                     REF      LSTBF
        47                                     REF      OPENX5,CLOSEX5,READX5,WRITEX5
        48                                     REF      PGLINES
        49                                     REF      READX1
        50                                     REF      READX3
        51                                     REF      REWX1
        52                                     REF      REWX3
        53                                     REF      WRITELO
        54                                     REF      X1BUF
        55                                     REF      ROOTRTN
        56                            *   33  ENCITEM  ITEM
        57                            *   34  T        FIELD    16,3
        58                            *   35  CT       FIELD    5
        59                            *   36  L        FIELD    8
        60                            *   37  V        FIELD    19,13
        61                            *   38  SYSTYPE  FIELD    19,3
        62                            *   39  NAME     ITEM
        63                            *   40  CCT      FIELD    16,8
        64                            *   41  C1       FIELD    8
        65                            *   42           ITEM
        66                            *   43  HW       SVECTOR  0,16
        67                            *   44  BYTE     VECTOR   0,8
        68                            *   45  CTRLP1   ITEM     1
        69                            *   46  SPCT     FIELD    32
        70                            *   47  CTRLP2   ITEM     1
        71                            *   48  SPACE    FIELD    14
        72                            *   49  LOC      FIELD    18
        73                            *   50  LOC1     FIELD    14,18,1
        74                            *   51  CF1DICT  ITEM     1
        75                            *   52  OSN      FIELD    16
        76                            *   53  OPTR     FIELD    16
        77                            *   54           ITEM
        78                            *   55  LB       FIELD    16,1
        79                            *   56  SL       FIELD    1
        80                            *   57  DIR      FIELD    1
        81                            *   58  CN       FIELD    13
        82                            *   59  LN       SFIELD   16,16,1
        83                            *   60  ENCTFLD  MASK     T(X)
        84         0000E000           ENCTFLD  EQU      X'E000'
        85                            *   61  VALFLD   MASK     V(X)
        86         00001FFF           VALFLD   EQU      X'1FFF'
        87                            *   64  CNFLD    MASK     CN(X)
        88         00001FFF           CNFLD    EQU      X'1FFF'
1
        90                            *
        91                            *   MISCELLANEOUS PARAMETERIZATION
        92                            *
        93         00000000           COMMENT# EQU      0                 COMMENT 'SYMBOL' NUMBER
        94         00000004           SYSTEM#  EQU      4                 SYMBOL NUMBER OF SYSTEM DIRECTIVE
        95         00000007           END#     EQU      7                 SYMBOL NUMBER OF END DIRECTIVE
        96         0000004F           L#       EQU      X'4F'             SYMBOL NUMBER OF LITERAL FUNCTION
        97                            *
        98         00008000           ENCSSYM  EQU      X'8000'           ENCODED SUBSCRIPTED SYMBOL TYPE
        99         00004000           ENCSYM   EQU      X'4000'           ENCODED (GLOBAL) SYMBOL TYPE
       100         00000012           ENCTLOB  EQU      2+16              ENCODED TYPE FIELD LOB
       101         000000FF           LFLD     EQU      X'00FF'           HALF-WORD COUNT FOR LARGE INTEGER
       102         0000E000           MULTINT  EQU      X'E000'           ENCODED LARGE INTEGER CONTROL
       103                            *
       104         00000008           ASTFLG   EQU      X'8'              INDIRECT OPERATOR
       105         00000007           BEGINEXP EQU      X'7'              BEGIN EXPRESSION
       106         00000006           BEGLIST  EQU      X'6'              BEGIN LIST
       107         00004007           ENDDIR   EQU      ENCSYM+END#       ENCODED END DIRECTIVE
       108         00000004           ENDEXP   EQU      4                 END EXPRESSION
       109         00000000           ENDLINE  EQU      0                 ENCODED END OF LINE
       110         00000002           ENDLIST  EQU      2                 ENCODED END LIST
       111         00000003           ENDSBSYM EQU      3                 END OF SUBSCRIPTED SYMBOL
       112         0000804F           LSSYM    EQU      ENCSSYM+L#        LITERAL INTRINSIC FUNCTION
       113         00004004           SYSTEMDIR   EQU   ENCSYM+SYSTEM#    ENCODED SYSTEM DIRECTIVE
       114                            *
       115         0001FFFF           CLEANCN  EQU      X'1FFFF'          BASIC DC%FLAG FIELDS
       116         0001FFFF           LOCFLD   EQU      X'1FFFF'          CTRLTBL (PASS 2) REFTBL LOCATION
       117         0000FFFF           OPTRFLD  EQU      X'FFFF'           OP-CODE POINTER MASK
       118         00006000           RTFLD    EQU      X'6000'           MASK FOR RT FIELD
       119         00000012           RTLOB    EQU      2+16              LOW-ORDER BIT OF RT FIELD
       120         00002000           CR       EQU      1**(31-RTLOB)     COMMAND ITEM REFERENCE
       121         00006000           IR       EQU      3**(31-RTLOB)     INDIRECT (AF(1)) REFERENCE
       122         00004000           LR       EQU      2**(31-RTLOB)     LABEL ITEM REFERENCE
       123         00000000           NR       EQU      0**(31-RTLOB)     NORMAL ITEM REFERENCE
       124         00008000           SLFLD    EQU      X'8000'           SUBLINE FLAG IN REFERENCE ITEM
       125         0000000D           SPACELOB EQU      13                CTRLTBL (PASS 2) SPACE COUNT LOB
       126         DPI                32BM1    EQU      X'FFFFFFFF'       MINUS ONE IN 32 BITS
       127                            *
       128         DPI                CFPTRSYM EQU      X'80000000'       CF1PTR (PASS 2) 'USE SYMBOL REF' BIT
       129         00F80000           CNFLGFLD EQU      X'00F80000'       ALL INTERESTING CN FLAGS
       130         00800000           CNIOFLG  EQU      X'00800000'       .IO
       131         00400000           CNIOFLG1 EQU      X'00400000'       .IO NAME-LIST
       132         00200000           CNSSFLG  EQU      X'00200000'       .SS
       133         00100000           CNSSFLG1 EQU      X'00100000'       .SS NAME-LIST
       134         00080000           CNOSFLG  EQU      X'00080000'       .OS
       135         20000000           CTBLC    EQU      X'20000000'       IDENTIFIES THIS AS CN CONTROL SYM
       136         00020000           CTBLCC   EQU      X'00020000'       CTRLTBL (PASS 2) 'CHECK CF1PTR' BIT
       137         DPI                CTBLFLGS EQU      X'C0000000'       PASS1 CTRLTBL FLAG FIELD
       138         00000001           CTBLFLOB EQU      1                 PASS 1 CTRLTBL FLAG FIELD LOB
       139         40000000           CTBLIO   EQU      X'40000000'       PASS 1 CTRLTBL IO FLAG (1 = INCLUDE)
       140         DPI                CTBLSS   EQU      X'80000000'       PASS 1 CTRLTBL SS FLAG (1 = SUPPRESS)
       141         00002000           MOFLG    EQU      X'2000'           MULT-OCCUR FLG IN EBCDIC SYM CTRL
       142                            *   68  *
       143                            *   69  *  REGISTERS
       144                            *   70  *
       145         00000001           XW       EQU      1                 INDEX TO INBUF
       146         00000002           XT       EQU      2                 TEMP (EVEN)
       147         00000003           XT1      EQU      3                 TEMP (ODD)
       148         00000004           MIDX     EQU      4
       149         00000004           TABX     EQU      4
       150         00000005           OUTX     EQU      5
       151         00000006           ARG      EQU      6                 ARGUMENT REGISTER
       152         00000006           XT2      EQU      6
       153         00000007           RL       EQU      7                 SUBROUTINE LINK REG
       154         0000000E           RL1      EQU      14                ALTERNATE SUBROUTINE LINK REGISTER
       155         0000000F           RL2      EQU      RL1+1
       156         0000000F           CHARS    EQU      RL2
       157         0000000C           RADHW    EQU      12                REQ'D RAD HALF-WORD FROM REFTBL
       158         0000000D           TOT      EQU      13                TOTAL SPACE (HALF-WORDS) REQ'D
       159         00000008           IOADD    EQU      8                 I/O BUFFER ADDRESS
       160         00000009           IOSIZE   EQU      9                 I/O BUFFER SIZE (IN BYTES)
       161         0000000A           IORL     EQU      10                I/O RETURN LINK
       162         0000000B           LISTCT   EQU      11
       163         00000008           T1       EQU      8
       164         00000009           T2       EQU      9                 TEMP REGISTER (ODD)
       165                            *   87  *
       166                            *   88  *  STORAGE
       167                            *   89  *
       168   03 00000                 XAPDATA  DSECT    0
       169   03 00000                 PATCH    RES      32                PATCH AREA
       170   03 00020                 CFIX     RES      1
       171   03 00021                 CF1PTR   RES      1                 ORIGIN OF COMMAND POINTER TABLE
       172   03 00022                 CF1SYM   RES      1                 ORIGIN OF COMMAND SYMBOL TABLE
       173   03 00023                 CLOC     RES      1
       174   03 00024                 CMND     RES      1                 COMMAND
       175   03 00025                 CNCLNUM  RES      1                 LINE NUMBER OF CN CONTROL
       176   03 00026                 CNERRXIT RES      1                 EXIT CELL FOR 'CNERR' ROUTINE
       177   03 00027                 CONTIN   RES      1                 LAST LINE CONTINUATION FLAG
       178   03 00028                 COREBLOCK   RES   1                 RAD BUFFER BLOCK NUMBER
       179   03 00029                 CT       RES      1                 TEMP IN STORLN
       180   03 0002A                 CTRLTBL  RES      1                 ORIGIN OF REFTBL CONTROL TABLE
       181   03 0002B                 CURRLINE RES      3                 TEMP IN STORLN
       182   03 0002E                 ENDX     RES      1
       183   03 0002F                 LINESP   RES      1                 HALFWORDS REQ'D FOR CURR. LINE NO.
       184   03 00030                 LASTCOREHW   RES  1                 LAST REFTBL HALF-WORD IN RAD BUFFER
       185   03 00031                 LASTREF  RES      1                 INDEX OF LAST REFERENCE ITEM (PASS2)
       186   03 00032                 LINUMXIT RES      1
       187   03 00033                 MAJLINE  RES      1                 MAJOR PART OF LINE NUMBER
       188   03 00034                 MAPCXIT  RES      1                 RETURN CELL FOR 'MAPCTRL'
       189   03 00035                 NEXTOP   RES      1                 NO. OF ENTRIES IN CF1PTR TABLE
       190   03 00036                 NUMRECX3 RES      1                 NUMBER OF CN CONTROL RECORDS ON X3
       191   03 00037                 NXTSTXIT RES      1
       192   03 00038                 OPREFS   RES      1                 -1 = NONE, 0 = SOME, 1 = ALL
       193   03 00039                 ORGX     RES      1
       194   03 0003A                 RADBUFFER    RES  1                 ORIGIN OF RAD OVERFLOW BUFFER
       195   03 0003B                 RADOVTRIG    RES  1                 NON-ZERO AFTER CORE OVERFLOW TO RAD
       196   03 0003C                 RTYP     RES      1                 ITEM REFERENCE TYPE CODE
       197   03 0003D                 STOREREFXIT  RES  1                 EXIT FROM STOREREF ROUTINE
       198   03 0003E                 1STRADHW     RES  1                 FIRST REFTBL HALF-WORD ON RAD
       199   03 0003F                 1STCOREHW    RES  1                 FIRST REFTBL HALF-WORD IN RAD BUFFER
       200   03 00040                 RESIDUE  RES      1
       201   03 00041                 RFO      RES      1                 ORIGIN OF REFERENCE LINE TABLE
       202   03 00042                 SKIPSXIT RES      1
       203   03 00043                 STOPCODE RES      1                 USED FOR PASS 2 AF(1) BYPASS
       204   03 00044                 STORLXIT RES      1
       205   03 00045                 SUBLINE  RES      1                 MINOR PART OF LINE NUMBER
       206   03 00046                 SYMREFS  RES      1                 -1 = NONE, 0 = SOME, 1 = ALL
       207   03 00047                 SYSCOUNT RES      1                 LABEL FLAG. 'ON' WHEN IN LABEL
       208   03 00048                 TEMP     RES      1
       209   03 00049                 FOUND    RES      1                 FLAG FOR SRCHCF1.  0=NOT FOUND
       210         EXT                INBUF    EQU      X1BUF             ENCODED TEXT BUFFER
       211   03 0004A                 XWBASE   RES      1                 POINTER TO ENCODED TEXT BUFFER
       212   03 0004B                 1STAFREF RES      1                 FLAG/HW-PTR TO 1ST AF SYMB REF ITEM
1
       214                            *
       215                            *   STATIC DATA
       216                            *
       217   03 0004C                          USECT    CNCP
       218                            *
       219   02 00000                 SPILLMSG RES      0
       220   02 00000    40C3D6D5 A            TEXT     ' CONCORDANCE SPILL TO RAD STORAGE'
             02 00001    C3D6D9C4 A
             02 00002    C1D5C3C5 A
             02 00003    40E2D7C9 A
             02 00004    D3D340E3 A
             02 00005    D640D9C1 A
             02 00006    C440E2E3 A
             02 00007    D6D9C1C7 A
             02 00008    C5404040 A
       221         00000009           SPILLSIZE  EQU    WA(%)-WA(SPILLMSG)
       222   02 00009                 REQDMSG  RES      0
       223   02 00009    40E3D6E3 A            TEXT     ' TOTAL SPACE REQUIRED IS    '
             02 0000A    C1D340E2 A
             02 0000B    D7C1C3C5 A
             02 0000C    40D9C5D8 A
             02 0000D    E4C9D9C5 A
             02 0000E    C440C9E2 A
             02 0000F    40404040 A
       224   02 00010    40404040 A   REQDVAL  TEXT     '     WORDS'
             02 00011    40E6D6D9 A
             02 00012    C4E24040 A
       225         0000000A           REQDSIZE   EQU    WA(%)-WA(REQDMSG)
       226   02 00013    405C5C40 A   CNERRMSG TEXT     ' ** ERROR IN CN CONTROL #   '
             02 00014    C5D9D9D6 A
             02 00015    D940C9D5 A
             02 00016    40C3D540 A
             02 00017    C3D6D5E3 A
             02 00018    D9D6D340 A
             02 00019    7B404040 A
       227         00000007           CNERRSIZE   EQU   WA(%)-WA(CNERRMSG)
       228   02 0001A                 AVAILMSG RES      0
       229   02 0001A    40E3D6E3 A            TEXT     ' TOTAL SPACE AVAILABLE IS  '
             02 0001B    C1D340E2 A
             02 0001C    D7C1C3C5 A
             02 0001D    40C1E5C1 A
             02 0001E    C9D3C1C2 A
             02 0001F    D3C540C9 A
             02 00020    E2404040 A
       230   02 00021    40404040 A   AVAILVAL TEXT     '     WORDS'
             02 00022    40E6D6D9 A
             02 00023    C4E24040 A
       231         0000000A           AVAILSIZE  EQU    WA(%)-WA(AVAILMSG)
       232                            *
       233                            *  EQUATES FOR ENCODED TEXT ITEMS
       234                            *
       235                            *  127  BLANKEXP EQUALS   5
       236                            *  128  SYMB     EQUALS   2
       237                            *  129  LOCSYM   EQUALS   3
       238                            *  130  BEGLIST  EQUALS   8
       239                            *  131  ENDLIST  EQUALS   2
       240                            *  132  SSYMB    EQUALS   4
       241                            *  133  DIRECTV  EQUALS   1
       242                            *  134  SLOCSYMB EQUALS   5
       243                            *  135  MULTINT  EQUALS   7
       244                            *  136  ENDLINE  EQUALS   0
       245         0000C000           ENCTINT  EQU      X'C000'
       246         000020FF           ENDBUFF  EQU      X'20FF'
1
       248                            *
       249                            *  149  CONCORD  SUBR     (ROOTRTN)
       250   02 00024    35A00000 X   CONCORD  STW,10   ROOTRTN
       251   02 00025    22200005 A            LI,XT    5
       252   02 00026    35200000 X            STW,XT   SEGMENT#
       253   02 00027    22200000 N            LI,XT    X1BUF
       254   02 00028    3520004A 03           STW,XT   XWBASE            PRESET POINTER TO ENC. TEXT BUFFER
       255   02 00029    32900000 X            LW,9     LOWCORE
       256   02 0002A    3590002A 03           STW,9    CTRLTBL
       257                            *               CLEAR (NEXTOP) CLEAR (TOT)
       258   02 0002B    22D00000 A            LI,TOT   0
       259   02 0002C    35D00035 03           STW,TOT  NEXTOP
       260   02 0002D    35D0003B 03           STW,TOT  RADOVTRIG
       261   02 0002E    35D00028 03           STW,TOT  COREBLOCK
       262   02 0002F    35D00000 X            STW,TOT  PGLINES
       263   02 00030    35D00025 03           STW,TOT  CNCLNUM
       264                            *
       265                            *   START OF PASS 1.
       266                            *        USE DC%FLAG TO SET OVERALL ENVIRONMENT SWITCHES.
       267                            *
       268   02 00031    222FFFFF A            LI,XT    -1
       269   02 00032    35200038 03           STW,XT   OPREFS            SET FOR NO OP-CODE REFS (-1)
       270   02 00033    22200001 A            LI,XT    1
       271   02 00034    35200046 03           STW,XT   SYMREFS           SET FOR ALL SYMBOL REFS (1)
       272   02 00035    32200000 X            LW,XT    DC%FLAG
       273         001F0000                    IF,ANZ   CNFLGFLD,XT       ANYTHING TO CHANGE OUR MIND?
             02 00036    31200496
             02 00037    6840004B
       274         001F0100                    IF,ANZ   CNIOFLG,XT
             02 00038    31200497
             02 00039    6840003F
       275   02 0003A    33100038 03           MTW,+1   OPREFS            SOME OPS IF .IO (0)
       276         001F0200                    IF,AZ    CNIOFLG1,XT
             02 0003B    31200498
             02 0003C    6940003F
       277   02 0003D    33100038 03           MTW,+1   OPREFS            ALL OPS IF ONLY .IO (1)
       278   02 0003E    20D00001 A            AI,TOT   1                 START BY INCLUDE ALL
       279         00F10200                    FI
       280         00F10100                    FI
       281         001F0100                    IF,ANZ   CNSSFLG|CNOSFLG,XT
             02 0003F    31200499
             02 00040    6840004A
       282   02 00041    33F00046 03           MTW,-1   SYMREFS           SOME SYMS IF .SS OR .OS (0)
       283   02 00042    20D00002 A            AI,TOT   2                 START BY SUPPRESSING ALL
       284         001F0200                    IF,AZ    CNOSFLG,XT        HAVE SOME FORM OF .SS
             02 00043    3120049A
             02 00044    6940004A
       285         001F0300                    IF,AZ    CNSSFLG1,XT
             02 00045    3120049B
             02 00046    69400049
       286   02 00047    33F00046 03           MTW,-1   SYMREFS           NO SYM REFS IF ONLY .SS (-1)
       287         000E0300                    ELS                        HAVE .SS NAME LIST
             02 00048    6800004A
       288   02 00049    20DFFFFE A            AI,TOT   -2                GO BACK TO INCLUDE ALL
       289         00F10300                    FI
       290         00F10200                    FI
       291         00F10100                    FI
       292   02 0004A    25D0027E A            SCS,TOT  -2                MOVE CODE TO HI-ORDER BITS
       293         00F10000                    FI
       294                            *  153  PASS1    CALL PASSINIT
       295   02 0004B    6AE00301     PASS1    BAL,RL1  PASSINIT
       296                            *  155           MOVE (NXSYMB) PLUS 1 TO (XT)
       297   02 0004C    32800000 X            LW,8     NXSYMB
       298   02 0004D    20800001 A            AI,8     1
       299   02 0004E    35800002 A            STW,8    2
       300                            *  156           MOVE (CTRLTBL) TO (ARG)
       301   02 0004F    3260002A 03           LW,6     CTRLTBL
       302                            *      INITCTBL MOVE (TOT) TO ((ARG))
       303   02 00050    35DC0000 A   INITCTBL STW,TOT  0,ARG
       304                            *  159           ADD 1 TO (ARG)  ADD -1 TO (XT)
       305   02 00051    20600001 A            AI,6     1
       306                            *  160           IF (XT) NE 0  GOTO INITCTBL
       307   02 00052    64200050              BDR,XT   INITCTBL
       308                            *  161           MOVE (ARG) TO (CF1PTR)
       309   02 00053    35600021 03           STW,6    CF1PTR
       310                            *
       311                            *   LINE PROCESSING
       312                            *
       313   02 00054                 LINE     RES      0
       314   02 00054    6A700315              CALL     LINENUM           PREP
       315                            *
       316                            *        PROCESS THE LABEL FIELD
       317                            *
       318   02 00055    D222004A 03           NXTENC
             02 00056    20100001 A
       319                            *  164           IF (XT)  EQ BLANKEXP  GOTO COMP1
       320   02 00057    21200005 A            CI,2     5
       321   02 00058    6830007B              BE       COMP1
       322                            *  165           IF T(XT) EQ SYMB  GOTO LN1
       323   02 00059    32800002 A            LW,8     2
       324   02 0005A    4B80049C              AND,8    =X'E000'
       325   02 0005B    21804000 A            CI,8     X'4000'
       326   02 0005C    68300066              BE       LN1
       327                            *  166           IF T(XT) EQ LOCSYM GOTO COMP1
       328   02 0005D    21806000 A            CI,8     X'6000'
       329   02 0005E    6830007B              BE       COMP1
       330                            *  167           CLEAR (LISTCT)
       331   02 0005F    22B00000 A            LI,LISTCT 0
       332                            *  168  LN2      IF (XT) NE BEGLIST  GOTO LN3
       333   02 00060                 LN2      RES      0
       334         001F0000                    IF,EQ    BEGLIST,XT
             02 00060    21200006 A
             02 00061    69300068
       335                            *  169           ADD 1 TO (LISTCT)
       336   02 00062    20B00001 A            AI,LISTCT  1
       337                            *  170  CONC10   NXTENC
       338   02 00063                 CONC10   RES      0
       339   02 00063    D222004A 03           NXTENC                     BYPASS LIST HEADER
             02 00064    20100001 A
       340                            *  171           GOTO LN2
       341   02 00065    68000060              B        LN2
       342                            *  172  LN1      CALL CTSPACE  GOTO COMP1
       343   02 00066                 LN1      RES      0
       344   02 00066    6A700404              CALL     CTSPACE
       345   02 00067    6800007B              B        COMP1
       346         00F10000                    FI
       347                            *  173  LN3      IF (XT) EQ ENDLIST GOTO LN4
       348   02 00068    21200002 A   LN3      CI,2     2
       349   02 00069    68300076              BE       LN4
       350                            *  174           IF T(XT) EQ SYMB  GOTO  LN5
       351   02 0006A    32800002 A            LW,8     2
       352   02 0006B    4B80049C              AND,8    =X'E000'
       353   02 0006C    21804000 A            CI,8     X'4000'
       354   02 0006D    68300079              BE       LN5
       355                            *  175           IF T(XT) EQ SSYMB  GOTO LN5
       356   02 0006E    21808000 A            CI,8     X'8000'
       357   02 0006F    68300079              BE       LN5
       358                            *  176           IF T(XT) EQ MULTINT ADD L(XT) TO (XW)
       359   02 00070    2180E000 A            CI,8     X'E000'
       360   02 00071    69300075              BNE      #100
       361   02 00072    32800002 A            LW,8     2
       362   02 00073    4B80049D              AND,8    =X'FF'
       363   02 00074    30100008 A            AW,1     8
       364   02 00075                 #100     RES      0
       365                            *  177           GOTO  CONC10
       366   02 00075    68000063              B        CONC10
       367                            *  178  LN4      ADD -1 TO (LISTCT)
       368   02 00076                 LN4      RES      0
       369   02 00076    20BFFFFF A            AI,LISTCT  -1
       370                            *  179           IF (LISTCT) EQ 0 GOTO COMP1
       371   02 00077    6830007B              BE       COMP1
       372                            *  180           GOTO CONC10
       373   02 00078    68000063              B        CONC10
       374                            *  181  LN5      CALL CTSPACE  GOTO CONC10
       375   02 00079                 LN5      RES      0
       376   02 00079    6A700404              CALL     CTSPACE
       377   02 0007A    68000063              B        CONC10
       378                            *
       379                            *        PROCESS THE COMMAND FIELD.  ENTER THE OP-CODE IN THE
       380                            *        'CF1PTR' TABLE IF IT IS NOT ALREADY THERE.
       381                            *
       382   02 0007B                 COMP1    RES      0
       383   02 0007B    D222004A 03           NXTENC                     GET FIRST COMMAND FIELD THING
             02 0007C    20100001 A
       384   02 0007D    21200006 A            CV,XT    BEGLIST
       385   02 0007E    6830007B              BE       COMP1
       386                            *
       387   02 0007F    35200024 03           STW,XT   CMND              SAVE OP-CODE
       388   02 00080    2280E000 A            LV,T1    ENCTFLD
       389   02 00081    4B800002 A            AND,T1   XT                EXTRACT TYPE FIELD
       390         001F0000                    IF,EQ    ENCSYM,T1         *** SUPERSTITION CODING ***
             02 00082    21804000 A
             02 00083    69300093
       391   02 00084    6A700474              CALL     SRCHCF1           LOOK UP OP-CODE
       392   02 00085    33000049 03           MTW,0    FOUND
       393         001F0100                    IF,EZ                      ENTER OP-CODE WHEN FIRST SEEN
             02 00086    6930008B
       394   02 00087    6A700488              CALL     INSRTCF1
       395   02 00088    3260002F 03           LW,XT2   LINESP
       396   02 00089    E660002E 03           AWM,XT2  *ENDX             TALLY FIRST OCCURRENCE
       397         000E0100                    ELS
             02 0008A    6800008E
       398   02 0008B    3220002E 03           LW,XT    ENDX
       399   02 0008C    3260002F 03           LW,XT2   LINESP
       400   02 0008D    E6640021 03           AWM,XT2  *CF1PTR,XT        TALLY SUBSEQUENT OCCURRENCES
       401         00F10100                    FI
       402   02 0008E    32200024 03           LW,XT    CMND
       403         001F0100                    IF,EQ    SYSTEMDIR,XT      SYSTEM SYMBOL REF'S NOT CONCORDED
             02 0008F    21204004 A
             02 00090    69300093
       404   02 00091    6A700268              CALL     SKIPSYS
       405   02 00092    68000054              B        LINE
       406         00F10100                    FI
       407         00F10000                    FI
       408                            *
       409                            *        PROCESS THE REST OF THE LINE (REMAINDER OF COMMAND
       410                            *           FIELD AND ARGUMENT FIELD).
       411                            *
       412   02 00093                 LN7      RES      0
       413   02 00093    D222004A 03           NXTENC
             02 00094    20100001 A
       414                            *  197           IF T(XT) EQ SYMB GOTO LN8
       415   02 00095    32800002 A            LW,8     2
       416   02 00096    4B80049C              AND,8    =X'E000'
       417   02 00097    21804000 A            CI,8     X'4000'
       418   02 00098    6830009B              BE       LN8
       419                            *  198           IF T(XT) NE SSYMB  GOTO LN9
       420   02 00099    21808000 A            CI,8     X'8000'
       421   02 0009A    6930009D              BNE      LN9
       422                            *  199  LN8      CALL CTSPACE  GOTO LN7
       423   02 0009B                 LN8      RES      0
       424   02 0009B    6A700404              CALL     CTSPACE
       425   02 0009C    68000093              B        LN7
       426                            *  200  LN9      IF (XT) EQ ENDLINE GOTO  LN10
       427   02 0009D    21200000 A   LN9      CI,2     0
       428   02 0009E    683000A4              BE       LN10
       429                            *  201           IF T(XT) EQ MULTINT ADD L(XT) TO (XW)
       430   02 0009F    2180E000 A            CI,8     X'E000'
       431   02 000A0    69300093              BNE      LN7
       432   02 000A1    4B20049D              AND,XT   =X'FF'
       433   02 000A2    30100002 A            AW,XW    XT
       434                            *  202           GOTO LN7
       435   02 000A3    68000093              B        LN7
       436                            *  203  LN10     IF (CMND) NE ENDDIR GOTO LINE
       437   02 000A4                 LN10     RES      0
       438   02 000A4    32200024 03           LW,XT    CMND
       439   02 000A5    21204007 A            CV,XT    ENDDIR
       440   02 000A6    69300054              BNE      LINE
       441                            *
       442                            *   END OF PASS 1.
       443                            *
       444   02 000A7    72200000 X            LB,XT    DC%FLAG
       445   02 000A8    35200036 03           STW,XT   NUMRECX3          GET COUNT OF X3 CN CONTROL RECORDS
       446   02 000A9    683000CC              BEZ      CONC20
       447                            *
       448                            *        READ AND PROCESS THE CONCORDANCE CONTROL FILE
       449                            *
       450   02 000AA                 CNTBASE  RES      0
       451                            *
       452   02 000AA    6AA00000 X            BAL,IORL REWX3
       453   02 000AB                 CNCF10   RES      0
       454   02 000AB    6A70030A              CALL     NXTCNREC          GET NEXT FILE RECORD
       455   02 000AC    33F00036 03           MTW,-1   NUMRECX3
       456   02 000AD                 CNCF20   RES      0
       457   02 000AD    D222004A 03           NXTENC   ,NOINC
       458   02 000AE    212020FF A            CV,XT    ENDBUFF
       459   02 000AF    683000BC              BE       CNCF40
       460                            *
       461   02 000B0    6A700315              CALL     LINENUM           BYPASS LINE NUMBER
       462   02 000B1    33100025 03           MTW,+1   CNCLNUM           (FOR DIAGNOSTICS)
       463   02 000B2                 CNCF30   RES      0
       464   02 000B2    D222004A 03           NXTENC                     NEXT CN CONTROL ITEM
             02 000B3    20100001 A
       465   02 000B4    2230E000 A            LV,XT1   ENCTFLD
       466   02 000B5    4B300002 A            AND,XT1  XT
       467   02 000B6    4B20049E              AND,XT   L(VALFLD)
       468   02 000B7    25300073 A            SHIFT,XT1   ENCTLOB,31
       469   02 000B8    723600BA              LB,XT1   CNTJMP,XT1
       470   02 000B9    680600AA              B        CNTBASE,XT1
       471                            *
       472   02 000BA                 CNTJMP   RES      0
       473   02 000BA    03       A            BYTE,CNTBASE   CNCF20    0 END OF LINE
       474   02 000BA 1  12       A            BYTE     CNCF40          1 END OF BUFFER
       475   02 000BA 2  15       A            BYTE     CNCF50          2 ERROR IN CN CONTROL COMMAND
       476   02 000BA 3  17       A            BYTE     CNCF60          3 .IO SYMBOL
       477   02 000BB    1A       A            BYTE     CNCF70          4 .SS SYMBOL
       478   02 000BB 1  1D       A            BYTE     CNCF80          5 .OS SYMBOL
       479                                     BOUND    4
       480                            *
       481   02 000BC                 CNCF40   RES      0                 END OF BUFFER
       482   02 000BC    33000036 03           MTW,0    NUMRECX3
       483   02 000BD    692000AB              BG       CNCF10
       484                            *
       485   02 000BE    680000CC              B        CONC20
       486                            *
       487   02 000BF                 CNCF50   RES      0                 ERROR IN CN CONTROL COMMAND
       488   02 000BF    6A7002B8              CALL     CNERR             DIAGNOSE
       489   02 000C0    680000B2              B        CNCF30
       490                            *
       491   02 000C1                 CNCF60   RES      0                 .IO SYMBOL
       492   02 000C1    3230049F              LV,XT1   CTBLIO|CTBLC
       493   02 000C2    C734002A 03           STS,XT1  *CTRLTBL,XT       SET IO FLAG IN CTRLTBL
       494   02 000C3    680000B2              B        CNCF30
       495                            *
       496   02 000C4                 CNCF70   RES      0                 .SS SYMBOL
       497   02 000C4    323004A0              LV,XT1   CTBLSS|CTBLC
       498   02 000C5    C734002A 03           STS,XT1  *CTRLTBL,XT       SET SS FLAG IN CTRLTBL
       499   02 000C6    680000B2              B        CNCF30
       500                            *
       501   02 000C7                 CNCF80   RES      0                 .OS SYMBOL
       502   02 000C7    323004A1              LV,XT1   CTBLSS||32BM1
       503   02 000C8    CB34002A 03           AND,XT1  *CTRLTBL,XT
       504   02 000C9    493004A2              OR,XT1   L(CTBLC)
       505   02 000CA    B534002A 03           STW,XT1  *CTRLTBL,XT       CLEAR SS FLAG IN CTRLTBL
       506   02 000CB    680000B2              B        CNCF30
       507                            *  204  *
       508                            *  205  *  READ THE FIRST RECORD OF THE SYMBOL TABLE
       509                            *  206  *
       510                            *  207  CONC20   CALL NXTRECRD
       511   02 000CC    6AE00307     CONC20   BAL,RL1  NXTRECRD
       512                            *  208           CLEAR (CFIX)
       513   02 000CD    22800000 A            LI,8     0
       514   02 000CE    35800020 03           STW,8    CFIX
       515                            *  209           MOVE (CF1PTR) PLUS (NEXTOP) TO (CF1SYM)
       516   02 000CF    32800021 03           LW,8     CF1PTR
       517   02 000D0    30800035 03           AW,8     NEXTOP
       518   02 000D1    35800022 03           STW,8    CF1SYM
       519                            *
       520                            *        MOVE A DUMMY '***' ENTRY TO THE CF1SYM TABLE, IF NECESSARY
       521                            *
       522   02 000D2    22200000 A            LI,XT    0
       523   02 000D3    6A700474              CALL     SRCHCF1
       524   02 000D4    33000049 03           MTW,0    FOUND
       525         001F0000                    IF,NZ                      WE NEED IT
             02 000D5    683000DD
       526   02 000D6    32800020 03           LW,T1    CFIX              (IS 0)
       527   02 000D7    2290FFFF A            LV,T1|1  OPTRFLD
       528   02 000D8    3220002E 03           LW,XT    ENDX
       529   02 000D9    C7840021 03           STS,T1   *CF1PTR,XT        SET INDEX TO CF1SYM TABLE
       530   02 000DA    328004A3              LV,T1    ' ***'            (1ST CHAR IS 12-9-3 PUNCH)
       531   02 000DB    B5800022 03           STW,T1   *CF1SYM
       532   02 000DC    33200020 03           MTW,+2   CFIX              ADVANCE OVER THE TWO HALFWORDS
       533         00F10000                    FI
       534   02 000DD    22200000 A            LI,XT    0                 CLEAR 'MAPCTRL' FLAGS
       535   02 000DE    35200029 03           STW,XT   CT
       536   02 000DF    35200048 03           STW,XT   TEMP
       537                            *  210  CONC25   CALL NXTSTWD
       538   02 000E0    6AE0030E     CONC25   BAL,RL1  NXTSTWD
       539   02 000E1    35200024 03           STW,XT   CMND
       540   02 000E2    21200000 A            CI,2     0
       541         001F0000                    IF,L                       HAVE DUMMY LAST ENTRY
             02 000E3    681000ED
       542                            *  212           MOVE (CFIX) PLUS 1 OVER 2 PLUS (CF1SYM) TO (RFO)  GOTO TESTS
       543   02 000E4    32800020 03           LW,8     CFIX
       544   02 000E5    20800001 A            AI,8     1
       545   02 000E6    2580047F A            SAS,8    -1
       546   02 000E7    30800022 03           AW,8     CF1SYM
       547   02 000E8    35800041 03           STW,8    RFO
       548   02 000E9    22200000 A            LI,XT    0
       549   02 000EA    35200024 03           STW,XT   CMND
       550   02 000EB    6A70040B              CALL     MAPCTRL           PROCESS ANY PENDING CHAINS
       551         000E0000                    ELS                        PROCESS NEXT EBCDIC ENTRY
             02 000EC    6800010A
       552   02 000ED    6A70040B              CALL     MAPCTRL
       553                            *  214           CALL NXTSTWD
       554   02 000EE    6AE0030E              BAL,RL1  NXTSTWD
       555                            *  215          MOVE CCT(XT) OVER 2 PLUS 1 TO (XT1)
       556   02 000EF    32300002 A            LW,3     2
       557   02 000F0    25300077 A            SLS,3    -9
       558   02 000F1    20300001 A            AI,3     1
       559                            *  216           ON FOUND GOTO SAVEOP
       560   02 000F2    32A00049 03           LW,10    FOUND
       561   02 000F3    693000FF              BNEZ     SAVEOP
       562                            *  217           IF (XW) PLUS (XT1) GE HWX1SIZE GOTO LN13
       563   02 000F4    32800001 A            LW,8     1
       564   02 000F5    30800003 A            AW,8     3
       565   02 000F6    21800000 N            CI,8     HWX1SIZE
       566   02 000F7    681000FB              BGE      LN13
       567                            *  218           ADD            (XT1) MINUS 1 TO (XW)  GOTO CONC25
       568   02 000F8    30100003 A            AW,XW    XT1
       569   02 000F9    201FFFFF A            AI,XW    -1
       570   02 000FA    680000E0              B        CONC25
       571                            *  219  LN13     ADD -1 TO (XT1)
       572   02 000FB    203FFFFF A   LN13     AI,3     -1
       573                            *  220           IF (XT1) EQ 0 GOTO CONC25
       574   02 000FC    683000E0              BE       CONC25
       575                            *  221           CALL NXTSTWD  GOTO LN13
       576   02 000FD    6AE0030E              BAL,RL1  NXTSTWD
       577   02 000FE    680000FB              B        LN13
       578                            *  222  SAVEOP   MOVE (CFIX) TO OPTR((CF1PTR,ENDX))
       579   02 000FF    32800020 03  SAVEOP   LW,8     CFIX
       580   02 00100    3270002E 03           LW,7     ENDX
       581   02 00101    2290FFFF A            LI,9     X'FFFF'
       582   02 00102    C78E0021 03           STS,8    *CF1PTR,7
       583                            *  223  LN12     MOVE (XT) TO HW((CF1SYM,CFIX))
       584   02 00103    32700020 03  LN12     LW,7     CFIX
       585   02 00104    D52E0022 03           STH,XT   *CF1SYM,7
       586                            *  224           ADD 1 TO (CFIX)  ADD -1 TO (XT1)
       587   02 00105    33100020 03           MTW,1    CFIX
       588   02 00106    203FFFFF A            AI,3     -1
       589                            *  225           IF (XT1) EQ 0  GOTO CONC25
       590   02 00107    683000E0              BE       CONC25
       591                            *  226           CALL NXTSTWD GOTO LN12
       592   02 00108    6AE0030E              BAL,RL1  NXTSTWD
       593   02 00109    68000103              B        LN12
       594                            *
       595         00F10000                    FI
       596                            *
       597                            *        ALL SPACE COUNTS HAVE BEEN UPDATED TO REFLECT WHETHER
       598                            *        THEY WERE USED OR NOT.  ALSO, FOR THOSE USED, FLAGS ARE SET
       599                            *        TO INDICATE HOW (OP/OPERAND) THEY ARE TO BE USED.  AT THIS
       600                            *        POINT, LOOP THROUGH THE CTRLTBL ENTRIES, SETTING UP
       601                            *        OFFSET POINTERS TO THE REFERENCE LINE TABLE FOR EACH ENTRY.
       602                            *
       603   02 0010A    22200000 A            LI,XT    0                 OFFSET POINTER
       604   02 0010B    223DFFFF A            LV,XT1   X'FFFDFFFF'       0 TO LEFT - PTR TO RIGHT
       605   02 0010C    3260002A 03           LW,XT2   CTRLTBL
       606   02 0010D                 LN14     RES      0
       607   02 0010D    328C0000 A            LW,T1    0,XT2
       608   02 0010E    4B8004A4              AND,T1   L(X'FFFF')        HW COUNT FOR THIS SYM
       609   02 0010F    472C0000 A            STS,XT   0,XT2             MERGE OFFSET TO REFTBL
       610   02 00110    25200001 A            SLS,XT   1
       611   02 00111    30200008 A            AW,XT    T1
       612   02 00112    20200001 A            AI,XT    1
       613   02 00113    2520007F A            SLS,XT   -1
       614   02 00114    20600001 A            AI,XT2   1                 TO NEXT CTRLTBL ENTRY
       615   02 00115    31600021 03           CW,XT2   CF1PTR
       616   02 00116    6910010D              BL       LN14
       617                            *
       618   02 00117    3520000D A            STW,XT   TOT               SAVE WORD COUNT
       619   02 00118    25D00001 A            SLS,TOT  1                 CONVERT TO HALFWORDS
       620   02 00119    30200041 03           AW,XT    RFO
       621                            *  228           IF (XT) LT (ENDCORE) GOTO TEST1
       622   02 0011A    31200000 X            CW,2     ENDCORE
       623         001F0000                    IF,GE                      NEED MORE ROOM
             02 0011B    69100151
       624   02 0011C    3820002A 03           SW,XT    CTRLTBL           XT CONTAIN TOTAL SPACE REQUIRED
       625   02 0011D    35200048 03           STW,XT   TEMP
       626   02 0011E    6AE002B3              BAL,RL1  CLRLSTBF
       627   02 0011F    22200000              LI,XT    SPILLMSG
       628   02 00120    22300009 A            LI,XT1   SPILLSIZE
       629   02 00121    6AE002D6              BAL,RL1  MOVEMSG
       630   02 00122    6AE002FD              BAL,RL1  PRINT             OUTPUT SPILL MESSAGE
       631   02 00123    6AE002B3              BAL,RL1  CLRLSTBF
       632   02 00124    22100003 A            LI,XW    3
       633   02 00125    6AE002FD              BAL,RL1  PRINT             BLANK LINES BEFORE REQUIRED MESSAGE
       634   02 00126    64100125              BDR,XW   %-1
       635   02 00127    22200009              LI,XT    REQDMSG
       636   02 00128    2230000A A            LI,XT1   REQDSIZE
       637   02 00129    6AE002D6              BAL,RL1  MOVEMSG
       638   02 0012A    32F00048 03           LW,RL2   TEMP
       639   02 0012B    2260001F A            LI,XT2   4*(REQDVAL-REQDMSG)+3
       640   02 0012C    6A7002C4              BAL,RL   CNVT
       641   02 0012D    6AE002FD              BAL,RL1  PRINT             OUTPUT SPACE REQUIRED MESSAGE
       642   02 0012E    6AE002B3              BAL,RL1  CLRLSTBF
       643   02 0012F    2220001A              LI,XT    AVAILMSG
       644   02 00130    2230000A A            LI,XT1   AVAILSIZE
       645   02 00131    6AE002D6              BAL,RL1  MOVEMSG
       646   02 00132    32F00000 X            LW,RL2   ENDCORE
       647   02 00133    38F0002A 03           SW,RL2   CTRLTBL
       648   02 00134    2260001F A            LI,XT2   4*(AVAILVAL-AVAILMSG)+3
       649   02 00135    6A7002C4              BAL,RL   CNVT
       650   02 00136    6AE002FD              BAL,RL1  PRINT
       651   02 00137    6AE002B3              BAL,RL1  CLRLSTBF
       652   02 00138    22100005 A            LI,XW    5
       653   02 00139    6AE002FD              BAL,RL1  PRINT             BLANK LINES AFTER AVAILABLE MESSAGE
       654   02 0013A    64100139              BDR,XW   %-1
       655   02 0013B    3310003B 03           MTW,1    RADOVTRIG         SET RAD OVERFLOW TRIGGER
       656   02 0013C    32200000 X            LW,XT    ENDCORE
       657   02 0013D    202FFE00 A            AI,XT    -512
       658   02 0013E    3520003A 03           STW,XT   RADBUFFER
       659   02 0013F    38200041 03           SW,XT    RFO
       660   02 00140    25200001 A            SLS,XT   1
       661   02 00141    3520003E 03           STW,XT   1STRADHW
       662   02 00142    6AA00000 X            BAL,IORL OPENX5            OPEN THE RAD OVERFLOW FILE
       663                            * WRITE A RECORD FOR EACH CORE BLOCK REQUIRED FOR RAD OVERFLOW
       664   02 00143    38D0003E 03           SW,TOT   1STRADHW          TOTAL NUMBER HALFWORDS TO SPILL
       665   02 00144                 TEST4    RES      0
       666   02 00144    3280003A 03           LW,IOADD RADBUFFER         WRITE A 512 WORD
       667   02 00145    32900028 03           LW,IOSIZE  COREBLOCK         RECORD
       668   02 00146    6AA00000 X            BAL,IORL WRITEX5             FOR THE NEXT CORE BLOCK
       669   02 00147    33100028 03           MTW,1    COREBLOCK         BUMP BLOCK COUNT
       670   02 00148    20DFFC00 A            AI,TOT   -1024             DECREASE HALFWORDS REMAINING
       671   02 00149    69200144              BGZ      TEST4               AND RETURN IF NOT DONE
       672   02 0014A    33F00028 03           MTW,-1   COREBLOCK         CONVERT NO. BLOCKS TO BLOCK NUMBER
       673   02 0014B    32200028 03           LW,XT    COREBLOCK         COMPUTE FIRST
       674   02 0014C    2520000A A            SLS,XT   10                  AND
       675   02 0014D    3020003E 03           AW,XT    1STRADHW            LAST
       676   02 0014E    3520003F 03           STW,XT   1STCOREHW           HALFWORD NUMBER
       677   02 0014F    20200400 A            AI,XT    1024                IN THE LAST
       678   02 00150    35200030 03           STW,XT   LASTCOREHW          RAD RECORD
       679                            *
       680         00F10000                    FI
       681                            *  236  TEST3    CALL PASSINIT
       682   02 00151    6AE00301     TEST3    BAL,RL1  PASSINIT
       683                            *  237  LINE2    CALL LINENUM
       684   02 00152                 LINE2    RES      0
       685   02 00152    6A700315              CALL     LINENUM
       686                            *  239           CLEAR (LISTCT) CLEAR (ARG)
       687   02 00153    22B00000 A            LI,LISTCT  0
       688   02 00154    22600000 A            LI,6     0
       689                            *  240           NXTENC
       690   02 00155    52220000 X            LH,XT    INBUF,XW
       691   02 00156    20100001 A            AI,XW    1
       692                            *  241           IF (XT) EQ BLANKEXP GOTO COMP2
       693   02 00157    21200005 A            CI,2     5
       694   02 00158    6830017B              BE       COMP2
       695                            *  242           IF T(XT) EQ LOCSYM GOTO COMP2
       696   02 00159    32800002 A            LW,8     2
       697   02 0015A    4B80049C              AND,8    =X'E000'
       698   02 0015B    21806000 A            CI,8     X'6000'
       699   02 0015C    6830017B              BE       COMP2
       700                            *  243           IF T(XT) NE SYMB GOTO LN20
       701   02 0015D    21804000 A            CI,8     X'4000'
       702   02 0015E    69300164              BNE      LN20
       703                            *  244           MOVE (XT) TO HW(INBUF)
       704   02 0015F    55200000 X            STH,XT   INBUF
       705                            *  245           MOVE 1 TO (ARG)  GOTO COMP2
       706   02 00160    22600001 A            LI,6     1
       707   02 00161    6800017B              B        COMP2
       708                            *  246  CONC30   NXTENC
       709   02 00162    52220000 X   CONC30   LH,XT    INBUF,XW
       710   02 00163    20100001 A            AI,XW    1
       711                            *  247  LN20     IF (XT) EQ BEGLIST GOTO LN21
       712   02 00164                 LN20     RES      0
       713         001F0000                    IF,NE    BEGLIST,XT
             02 00164    21200006 A
             02 00165    68300173
       714                            *  248           IF (XT) EQ ENDLIST GOTO LN22
       715   02 00166    21200002 A            CI,2     2
       716   02 00167    68300175              BE       LN22
       717                            *  249           IF T(XT) EQ SYMB GOTO LN23
       718   02 00168    32800002 A            LW,8     2
       719   02 00169    4B80049C              AND,8    =X'E000'
       720   02 0016A    21804000 A            CI,8     X'4000'
       721   02 0016B    68300178              BE       LN23
       722                            *  250           IF T(XT) EQ SSYMB GOTO LN23
       723   02 0016C    21808000 A            CI,8     X'8000'
       724   02 0016D    68300178              BE       LN23
       725                            *  251           IF T(XT) EQ MULTINT ADD L(XT) TO (XW)
       726   02 0016E    2180E000 A            CI,8     X'E000'
       727   02 0016F    69300162              BNE      CONC30
       728   02 00170    4B20049D              AND,XT   =X'FF'
       729   02 00171    30100002 A            AW,XW    XT
       730                            *  252           GOTO CONC30
       731   02 00172    68000162              B        CONC30
       732         00F10000                    FI
       733                            *  253  LN21     ADD 1 TO (LISTCT) GOTO CONC30
       734   02 00173                 LN21     RES      0
       735   02 00173    20B00001 A            AI,LISTCT  1
       736   02 00174    68000162              B        CONC30
       737                            *  254  LN22     ADD -1 TO (LISTCT)
       738   02 00175                 LN22     RES      0
       739   02 00175    20BFFFFF A            AI,LISTCT  -1
       740                            *  255           IF (LISTCT) GT 0 GOTO CONC30
       741   02 00176    69200162              BG       CONC30
       742                            *  256           GOTO COMP2
       743   02 00177    6800017B              B        COMP2
       744                            *  257  LN23     MOVE (XT) TO HW(INBUF,ARG)
       745   02 00178    552C0000 X   LN23     STH,XT   INBUF,ARG
       746                            *  258           ADD 1 TO (ARG) GOTO CONC30
       747   02 00179    20600001 A            AI,6     1
       748   02 0017A    68000162              B        CONC30
       749                            *
       750                            *        HERE TO PROCESS THE COMMAND FIELD
       751                            *
       752   02 0017B                 COMP2    RES      0
       753   02 0017B    22202000 A            LV,XT    CR
       754   02 0017C    3520003C 03           STW,XT   RTYP              ANY SUBSEQUENT REF'S ARE 'COMMANDS'
       755   02 0017D    22B00000 A            LI,LISTCT   0              SO WE CAN START AFRESH ON ARG FIELD
       756   02 0017E    D222004A 03           NXTENC
             02 0017F    20100001 A
       757         001F0000                    IF,EQ    BEGLIST,XT        (ASSUME LW,R IS LIKELY CANDIDATE)
             02 00180    21200006 A
             02 00181    69300185
       758   02 00182    20B00001 A            AI,LISTCT   +1             TALLY LIST HEADER
       759   02 00183    D222004A 03           NXTENC                     BYPASS LIST HEADER
             02 00184    20100001 A
       760         00F10000                    FI
       761   02 00185    2280E000 A            LV,T1    ENCTFLD
       762   02 00186    4B800002 A            AND,T1   XT                EXTRACT ENCODED TYPE FIELD
       763         001F0000                    IF,NE    ENCSYM,T1         MUST BE SYMBOL
             02 00187    21804000 A
             02 00188    6830018A
       764   02 00189    22200000 A            LI,XT    COMMENT#          USE 'COMMENT' FOR ANYTHING ELSE
       765         00F10000                    FI
       766   02 0018A    35200024 03           STW,XT   CMND              SAVE COMMAND SYMBOL
       767   02 0018B    6A700474              CALL     SRCHCF1           FIND THE OP-CODE EBCDIC POINTER
       768   02 0018C    3220002E 03           LW,XT    ENDX
       769   02 0018D    B2240021 03           LW,XT    *CF1PTR,XT
       770   02 0018E    4B2004A4              AND,XT   L(OPTRFLD)
       771   02 0018F    35200023 03           STW,XT   CLOC              SAVE EBCDIC OP PTR FOR ALL REFS
       772   02 00190    32200024 03           LW,XT    CMND                                         /27326/*D-CNC
       773   02 00191    6AE003B2              BAL,RL1  CF1REF            CONCORD OP IF REQUIRED     /27326/*D-CNC
       774   02 00192    32200024 03           LW,XT    CMND
       775         001F0000                    IF,EQ    SYSTEMDIR,XT
             02 00193    21204004 A
             02 00194    69300197
       776   02 00195    6A700268              CALL     SKIPSYS           SYSTEM REFS NOT CONCORDED
       777   02 00196    201FFFFF A            AI,XW    -1
       778         00F10000                    FI
       779   02 00197    22204000 A            LV,XT    LR
       780   02 00198    3520003C 03           STW,XT   RTYP              ANY SUBSEQUENT REF'S ARE 'LABELS'
       781   02 00199                 LN31     RES      0
       782   02 00199    206FFFFF A            AI,ARG   -1
       783         001F0000                    IF,GEZ                     DOIF SAVED LABEL SYMBOLS REMAIN
             02 0019A    6910019E
       784   02 0019B    522C0000 X            LH,XT    INBUF,ARG
       785   02 0019C    6AE003BD              BAL,RL1  STOREREF
       786   02 0019D    68000199              B        LN31
       787                            *
       788         00F10000                    FI
       789                            *
       790                            *        HAVE FINISHED WITH CF(1) - COMPLETE CONCORDANCE OF COMMAND
       791                            *           FIELD SO THAT WE CAN GO ON TO ARGUMENT.
       792                            *
       793   02 0019E    22200000 A            LV,XT    NR
       794   02 0019F    3520003C 03           STW,XT   RTYP              ALL CF(2)-CF(N) REF'S ARE 'NORMAL'
       795   02 001A0                 LN32     RES      0
       796         001F0000                    IF,G     0,LISTCT          DOIF MORE THINGS LEFT
             02 001A0    21B00000 A
             02 001A1    682001BD
       797   02 001A2                 LN33     RES      0
       798   02 001A2    D222004A 03           NXTENC
             02 001A3    20100001 A
       799   02 001A4    2280E000 A            LV,T1    ENCTFLD
       800   02 001A5    4B800002 A            AND,T1   XT
       801         001F0100                    IF,EQ    ENCSYM,T1         CONCORD ALL GLOBAL SYMBOLS
             02 001A6    21804000 A
             02 001A7    693001AA
       802   02 001A8    6AE003BD              BAL,RL1  STOREREF
       803   02 001A9    680001A2              B        LN33
       804                            *
       805         00F10100                    FI
       806         001F0100                    IF,EQ    ENCSSYM,T1        CONCORD GLOBAL SUBSCRIPTED SYMBOLS
             02 001AA    21808000 A
             02 001AB    693001AE
       807   02 001AC    6AE003BD              BAL,RL1  STOREREF
       808   02 001AD    680001A2              B        LN33
       809                            *
       810         00F10100                    FI
       811   02 001AE    21200000 A            CV,XT    ENDLINE           DONE IF END OF LINE
       812   02 001AF    68300227              BE       LN36
       813                            *
       814         001F0100                    IF,EQ    MULTINT,T1        CHECK FOR MULTI-UNIT INTEGER
             02 001B0    2180E000 A
             02 001B1    693001B5
       815   02 001B2    4B20049D              AND,XT   L(LFLD)
       816   02 001B3    30100002 A            AW,XW    XT
       817   02 001B4    680001A2              B        LN33
       818                            *
       819         00F10100                    FI
       820         001F0100                    IF,EQ    ENDLIST,XT        DOWN ONE IF END OF LIST
             02 001B5    21200002 A
             02 001B6    693001B9
       821   02 001B7    20BFFFFF A            AI,LISTCT   -1
       822   02 001B8    680001A0              B        LN32
       823                            *
       824         00F10100                    FI
       825         001F0100                    IF,EQ    BEGLIST,XT        UP ONE IF HEAD OF LIST
             02 001B9    21200006 A
             02 001BA    693001BC
       826   02 001BB    20B00001 A            AI,LISTCT   +1
       827         00F10100                    FI
       828   02 001BC    680001A0              B        LN32
       829                            *
       830         00F10000                    FI
       831                            *
       832                            *        HERE TO SPECIAL-CASE AF(1), CHECKING TO SEE IF THE
       833                            *           INDIRECT FLAG IS SET.
       834                            *
       835   02 001BD    22B00000 A            LI,LISTCT   0
       836   02 001BE    35B00043 03           STW,LISTCT   STOPCODE
       837   02 001BF    35B0004B 03           STW,LISTCT  1STAFREF       FLAG/PTR FOR 1ST AF(1) SYMBOL
       838   02 001C0                 LN34     RES      0
       839   02 001C0    D222004A 03           NXTENC
             02 001C1    20100001 A
       840   02 001C2    21200000 A            CV,XT    ENDLINE           DONE IF END OF LINE
       841   02 001C3    68300227              BE       LN36
       842                            *
       843   02 001C4    2280E000 A            LV,T1    ENCTFLD
       844   02 001C5    4B800002 A            AND,T1   XT
       845         001F0000                    IF,EQ    ENCSYM,T1
             02 001C6    21804000 A
             02 001C7    693001D0
       846   02 001C8    6AE003BD              BAL,RL1  STOREREF          ENTER GLOBAL SYMBOL REF
       847   02 001C9    3300004B 03           MTW,0    1STAFREF
       848         001F0100                    IF,EZ                      ONLY RECORD 1ST SUCH REF (IN AF(1))
             02 001CA    693001CF
       849   02 001CB    32200031 03           LW,XT    LASTREF
       850         001F0200                    IF,NZ
             02 001CC    683001CF
       851   02 001CD    73100002 A            MTB,+1   XT                SET FLAG IN BYTE ONE
       852   02 001CE    3520004B 03           STW,XT   1STAFREF
       853         00F10200                    FI
       854         00F10100                    FI
       855         00EF0000                    ELSF,EQ  ENCSSYM,T1
             02 001CF    68000205
             02 001D0    21808000 A
             02 001D1    693001E5
       856         001F0100                    IF,NE    LSSYM,XT
             02 001D2    2120804F A
             02 001D3    683001DB
       857   02 001D4    6AE003BD              BAL,RL1  STOREREF          ENTER GLOBAL SYMBOL REF
       858   02 001D5    3300004B 03           MTW,0    1STAFREF
       859         001F0200                    IF,EZ                      ONLY RECORD 1ST SUCH REF (IN AF(1))
             02 001D6    693001DB
       860   02 001D7    32200031 03           LW,XT    LASTREF
       861         001F0300                    IF,NZ
             02 001D8    683001DB
       862   02 001D9    73100002 A            MTB,+1   XT                SET FLAG IN BYTE ONE
       863   02 001DA    3520004B 03           STW,XT   1STAFREF
       864         00F10300                    FI
       865         00F10200                    FI
       866         00F10100                    FI
       867   02 001DB    32200043 03           LW,XT    STOPCODE
       868         001F0100                    IF,EZ                      SET TO SKIP SUB-SYM IF NOT SKIPPING
             02 001DC    693001E1
       869   02 001DD    22200003 A            LV,XT    ENDSBSYM
       870   02 001DE    35200043 03           STW,XT   STOPCODE
       871   02 001DF    22B00001 A            LI,LISTCT   1
       872         00EF0100                    ELSF,EQ  ENDSBSYM,XT       TALLY NEW LEVEL IF SKIPPING SUB-SYM
             02 001E0    680001E4
             02 001E1    21200003 A
             02 001E2    693001E4
       873   02 001E3    20B00001 A            AI,LISTCT   +1
       874         00F10100                    FI
       875         00EF0000                    ELSF,EQ  BEGINEXP,XT
             02 001E4    68000205
             02 001E5    21200007 A
             02 001E6    693001F1
       876   02 001E7    32200043 03           LW,XT    STOPCODE
       877         001F0100                    IF,EZ                      SET TO SKIP EXPR. IF NOT SKIPPING
             02 001E8    693001ED
       878   02 001E9    22200004 A            LV,XT    ENDEXP
       879   02 001EA    35200043 03           STW,XT   STOPCODE
       880   02 001EB    22B00001 A            LI,LISTCT   1
       881         00EF0100                    ELSF,EQ  ENDEXP,XT         TALLY NEW LEVEL IF SKIPPING EXPR.
             02 001EC    680001F0
             02 001ED    21200004 A
             02 001EE    693001F0
       882   02 001EF    20B00001 A            AI,LISTCT   +1
       883         00F10100                    FI
       884         00EF0000                    ELSF,EQ  BEGLIST,XT
             02 001F0    68000205
             02 001F1    21200006 A
             02 001F2    693001FD
       885   02 001F3    32200043 03           LW,XT    STOPCODE
       886         001F0100                    IF,EZ                      SET TO SKIP LIST IF NOT SKIPPING
             02 001F4    693001F9
       887   02 001F5    22200002 A            LV,XT    ENDLIST
       888   02 001F6    35200043 03           STW,XT   STOPCODE
       889   02 001F7    22B00001 A            LI,LISTCT   1
       890         00EF0100                    ELSF,EQ  ENDLIST,XT        TALLY NEW LEVEL IF SKIPPING LIST
             02 001F8    680001FC
             02 001F9    21200002 A
             02 001FA    693001FC
       891   02 001FB    20B00001 A            AI,LISTCT   +1
       892         00F10100                    FI
       893         000E0000                    ELS
             02 001FC    68000205
       894   02 001FD    31200043 03           CW,XT    STOPCODE
       895         001F0100                    IF,EQ
             02 001FE    69300201
       896   02 001FF    20BFFFFF A            AI,LISTCT   -1             DROP A LEVEL ON END-THING CONTROL
       897         00EF0100                    ELSF,EQ  MULTINT,T1        CHECK FOR MULTI-UNIT INTEGER
             02 00200    68000205
             02 00201    2180E000 A
             02 00202    69300205
       898   02 00203    4B20049D              AND,XT   L(LFLD)
       899   02 00204    30100002 A            AW,XW    XT
       900         00F10100                    FI
       901         00F10000                    FI
       902   02 00205    21B00000 A            CI,LISTCT   0
       903   02 00206    692001C0              BG       LN34              GO BACK IF IN MIDDLE OF SOMETHING
       904                            *
       905                            *        AT THIS POINT, AF(1) HAS BEEN BYPASSED.  IF THE ARG WAS
       906                            *           INDIRECT, THE NEXT THING IN THE BUFFER WILL BE THE
       907                            *           '*' CONTROL.  IF '*', AND THERE WERE REFERENCE ITEMS
       908                            *           CREATED, CHANGE 'RT' OF THE FIRST SUCH TO SHOW INDIRECT.
       909                            *
       910   02 00207    D222004A 03           NXTENC   ,NOINC
       911         001F0000                    IF,EQ    ASTFLG,XT         DOIF '*'
             02 00208    21200008 A
             02 00209    69300216
       912   02 0020A    20100001 A            AI,XW    +1                BYPASS '*'
       913   02 0020B    3220004B 03           LW,XT    1STAFREF
       914         001F0100                    IF,NZ                      DOIF REF ENTERED IN AF(1)
             02 0020C    68300216
       915   02 0020D    4B2004A5              AND,XT   L(LOCFLD)
       916   02 0020E    3300003B 03           MTW,0    RADOVTRIG
       917         001F0200                    IF,NZ
             02 0020F    68300212
       918   02 00210    32C00002 A            LW,RADHW XT                GET RIGHT BLOCK IF NOT IN
       919   02 00211    6AE002F2              BAL,RL1  WRITERADRCD
       920         00F10200                    FI
       921   02 00212    D2840041 03           LH,T1    *RFO,XT
       922   02 00213    4B8004A6              AND,T1   L(~RTFLD)
       923   02 00214    20806000 A            AV,T1    IR
       924   02 00215    D5840041 03           STH,T1   *RFO,XT           UPDATE REF ITEM TO SHOW INDIRECT
       925         00F10100                    FI
       926         00F10000                    FI
       927                            *  279  CONC35   NXTENC
       928   02 00216    52220000 X   CONC35   LH,XT    INBUF,XW
       929   02 00217    20100001 A            AI,XW    1
       930                            *  280           IF T(XT) EQ SYMB GOTO LN35
       931   02 00218    32800002 A            LW,8     2
       932   02 00219    4B80049C              AND,8    =X'E000'
       933   02 0021A    21804000 A            CI,8     X'4000'
       934   02 0021B    68300225              BE       LN35
       935                            *  281           IF T(XT) EQ SSYMB GOTO LN35
       936   02 0021C    21808000 A            CI,8     X'8000'
       937   02 0021D    68300225              BE       LN35
       938                            *  282           IF (XT) EQ ENDLINE GOTO LN36
       939   02 0021E    21200000 A            CI,2     0
       940   02 0021F    68300227              BE       LN36
       941                            *  283           IF T(XT) EQ MULTINT ADD L(XT) TO (XW)
       942   02 00220    2180E000 A            CI,8     X'E000'
       943   02 00221    69300216              BNE      CONC35
       944   02 00222    4B20049D              AND,XT   =X'FF'
       945   02 00223    30100002 A            AW,XW    XT
       946                            *  284           GOTO CONC35
       947   02 00224    68000216              B        CONC35
       948                            *  285  LN35     CALL STOREREF GOTO CONC35
       949   02 00225    6AE003BD     LN35     BAL,RL1  STOREREF
       950   02 00226    68000216              B        CONC35
       951                            *  286  LN36     IF (CMND) NE ENDDIR GOTO LINE2
       952   02 00227                 LN36     RES      0
       953   02 00227    32800024 03           LW,T1    CMND
       954   02 00228    21804007 A            CV,T1    ENDDIR
       955   02 00229    69300152              BNE      LINE2
       956                            *  IF (RADOVTRIG) EQ 0 GOTO CONC40
       957   02 0022A    3220003B 03           LW,XT    RADOVTRIG
       958   02 0022B    6830022F              BEZ      CONC40
       959                            *  WRITE THE RAD RECORD CURRENTLY IN CORE
       960   02 0022C    32900028 03           LW,IOSIZE  COREBLOCK
       961   02 0022D    3280003A 03           LW,IOADD RADBUFFER
       962   02 0022E    6AA00000 X            BAL,IORL WRITEX5           WRITE THE 512 WORD BLOCK
       963                            *  287  CONC40   CALL NXTRECRD
       964   02 0022F    6AE00307     CONC40   BAL,RL1  NXTRECRD
       965                            *  288  CONC50   CALL NXTSTWD
       966   02 00230    6AE0030E     CONC50   BAL,RL1  NXTSTWD
       967                            *  289           IF (XT) LT 0 GOTO CONCTERM
       968   02 00231    21200000 A            CI,2     0
       969   02 00232    69100261              BL       CONCTERM          BRANCH AT END OF CONCORDANCE
       970                            *  290           MOVE (CTRLTBL) PLUS V(XT) TO (MIDX)
       971   02 00233    3240002A 03           LW,MIDX  CTRLTBL
       972   02 00234    4B20049E              AND,XT   =X'1FFF'
       973   02 00235    30400002 A            AW,MIDX  XT
       974                            *  291           MOVE LOC((MIDX)) TO (ORGX)
       975   02 00236    32880000 A            LW,8     0,4
       976   02 00237    25800001 A            SLS,T1   1                 WORD OFFSET TO HW OFFSET
       977   02 00238    4B8004A7              AND,8    =X'3FFFF'
       978   02 00239    35800039 03           STW,8    ORGX
       979                            *  292           MOVE LOC1((MIDX)) TO (ENDX)
       980   02 0023A    32880001 A            LW,8     1,4
       981   02 0023B    25800001 A            SLS,T1   1                 WORD OFFSET TO HW OFFSET
       982   02 0023C    4B8004A7              AND,8    =X'3FFFF'
       983   02 0023D    3580002E 03           STW,8    ENDX
       984                            *  293           IF (ENDX) EQ (ORGX)  GOTO NOREFS
       985   02 0023E    31800039 03           CW,8     ORGX
       986   02 0023F    68300252              BE       NOREFS
       987                            *  294           CALL CLRLSTBF  CALL NXTSTWD
       988   02 00240    6AE002B3              BAL,RL1  CLRLSTBF
       989   02 00241    6AE0030E              BAL,RL1  NXTSTWD
       990                            *  295           MOVE CCT(XT) PLUS 4 TO (OUTX)
       991   02 00242    32500002 A            LW,OUTX  XT
       992   02 00243    20500400 A            AI,OUTX  X'400'
       993   02 00244    25500078 A            SLS,OUTX -8
       994                            *  296           MOVE 1 TO  (TABX) MOVE 2 TO (X)
       995   02 00245    22400001 A            LI,TABX  1
       996   02 00246    22600002 A            LI,6     2
       997                            *  297           MOVE CCT(XT) OVER 2 PLUS 1 TO (XT1)
       998   02 00247    32300002 A            LW,XT1   XT
       999   02 00248    25300077 A            SLS,XT1  -9
      1000   02 00249    20300001 A            AI,XT1   1
      1001                            *  298           MOVE C1(XT) TO BYTE(LSTBF:3)
      1002   02 0024A    22700003 A           LI,7      3
      1003   02 0024B    752E0000 X            STB,2    LSTBF,7
      1004                            *  299  LN40     ADD -1 TO (XT1)
      1005   02 0024C    203FFFFF A   LN40     AI,3     -1
      1006                            *  300           IF (XT1) EQ 0 GOTO LN45
      1007   02 0024D    6830025A              BE       LN45
      1008                            *  301           CALL NXTSTWD MOVE (XT) TO HW(LSTBF,X)
      1009   02 0024E    6AE0030E              BAL,RL1  NXTSTWD
      1010   02 0024F    552C0000 X            STH,XT   LSTBF,6
      1011                            *  302           ADD 1 TO (X) GOTO LN40
      1012   02 00250    20600001 A            AI,6     1
      1013   02 00251    6800024C              B        LN40
      1014                            *  303  NOREFS   CALL NXTSTWD
      1015   02 00252    6AE0030E     NOREFS   BAL,RL1  NXTSTWD
      1016                            *  304           MOVE CCT(XT) OVER 2 PLUS 1 TO (XT1)
      1017   02 00253    32300002 A            LW,XT1   XT
      1018   02 00254    25300077 A            SLS,XT1  -9
      1019   02 00255    20300001 A            AI,XT1   1
      1020                            *  305  LN42     ADD -1 TO (XT1)
      1021   02 00256    203FFFFF A   LN42     AI,3     -1
      1022                            *  306           IF (XT1) EQ 0 GOTO CONC50
      1023   02 00257    68300230              BE       CONC50
      1024                            *  307           CALL NXTSTWD  GOTO LN42
      1025   02 00258    6AE0030E              BAL,RL1  NXTSTWD
      1026   02 00259    68000256              B        LN42
      1027                            *  309  LN45     CALL STORLN
      1028   02 0025A    6AE00345     LN45     BAL,RL1  STORLN
      1029                            *  310           IF (ORGX) PLUS 1 LT (ENDX) GOTO LN45
      1030   02 0025B    32800039 03           LW,8     ORGX
      1031   02 0025C    20800001 A            AI,T1    1
      1032   02 0025D    3180002E 03           CW,8     ENDX
      1033   02 0025E    6910025A              BL       LN45
      1034                            *
      1035                            *  311           CALL PRINT  GOTO CONC50
      1036   02 0025F    6AE002FD              BAL,RL1  PRINT
      1037   02 00260    68000230              B        CONC50
      1038                            *  CLOSE THE X5 FILE IF IT'S OPEN.  THEN RETURN TO THE ROOT
      1039   02 00261                 CONCTERM  RES     0
      1040   02 00261    32200000 X            LW,XT    DC%FLAG
      1041   02 00262    4B2004A5              AND,XT   L(CLEANCN)
      1042   02 00263    35200000 X            STW,XT   DC%FLAG           SCRUB SUB-OPTION FLAGS & RECORD COUNT
      1043   02 00264    3220003B 03           LW,XT    RADOVTRIG         X5 IS OPEN IF RADOVTRIG IS ON
      1044   02 00265    E8300000 X            BEZ      *ROOTRTN
      1045   02 00266    6AA00000 X            BAL,IORL CLOSEX5
      1046   02 00267    E8000000 X            B        *ROOTRTN
1
      1048                            *  312  *
      1049                            *  313  *   S K I P S Y S
      1050                            *  314  *        SKIP PAST THE END OF THE 'SYSTEM' DIRECTIVE
      1051                            *  315  *
      1052                            *  316  SKIPSYS  SUBR (SKIPSXIT)
      1053                            *
      1054                                     LOCAL    %30,%40,%50
      1055                            *
      1056   02 00268                 SKIPSYS  RES      0
      1057   02 00268    35700042 03           STW,RL   SKIPSXIT
      1058                            *  317           CLEAR (SYSCOUNT)
      1059   02 00269    22800000 A            LI,8     0
      1060   02 0026A    35800047 03           STW,8    SYSCOUNT
      1061                            *       SYSCODE NXTENC
      1062   02 0026B    52220000 X   SYSCODE  LH,XT    INBUF,XW
      1063   02 0026C    20100001 A            AI,XW    1
      1064                            *  319           IF SYSTYPE(XT) GE 2 ADD 1 TO (SYSCOUNT)
      1065   02 0026D    32800002 A            LW,8     2
      1066   02 0026E    4B8004A8              AND,8    =X'1C00'
      1067   02 0026F    21800800 A            CI,8     X'800'
      1068   02 00270    69100272              BL       #105
      1069   02 00271    33100047 03           MTW,1    SYSCOUNT
      1070   02 00272                 #105     RES      0
      1071                            *  320  SKIPS1   NXTENC
      1072   02 00272    52220000 X   SKIPS1   LH,XT    INBUF,XW
      1073   02 00273    20100001 A            AI,XW    1
      1074                            *  321           IF (XT) EQ ENDLINE  GOTO SKIPS2
      1075         001F0000                    IF,EQ    ENDLINE,XT
             02 00274    21200000 A
             02 00275    693002A8
      1076   02 00276    33000047 03           MTW,0    SYSCOUNT
      1077   02 00277    E8200042 03           BLEZ     *SKIPSXIT         DONE
      1078                            *
      1079                            *        SKIP THE LINE NUMBER AND LABEL FIELD SO THAT THE
      1080                            *        COMMAND SYMBOL CAN BE INSPECTED.
      1081                            *
      1082   02 00278                 %30      RES      0
      1083   02 00278    D222004A 03           NXTENC
             02 00279    20100001 A
      1084         001F0100                    IF,EQ    ENDBUFF,XT
             02 0027A    212020FF A
             02 0027B    6930027E
      1085   02 0027C    6AE00307              BAL,RL1  NXTRECRD
      1086   02 0027D    68000278              B        %30
      1087                            *
      1088         00F10100                    FI
      1089                            *
      1090                            *        SKIP THE LINE NUMBER
      1091                            *
      1092   02 0027E    2230E000 A            LI,XT1   ENCTFLD
      1093   02 0027F    452004A9              CS,XT    L(ENCTINT)
      1094         001F0100                    IF,NE                      ASSUME LARGE INTEGER
             02 00280    68300282
      1095   02 00281    20100001 A            AI,XW    1
      1096         00F10100                    FI
      1097   02 00282                 %40      RES      0
      1098   02 00282    D222004A 03           NXTENC   ,NOINC
      1099   02 00283    452004A9              CS,XT    L(ENCTINT)
      1100         001F0100                    IF,GE
             02 00284    6910028A
      1101   02 00285    20100001 A            AI,XW    1
      1102   02 00286    452004A9              CS,XT    L(ENCTINT)
      1103         001F0200                    IF,G                       IS LARGE INTEGER
             02 00287    68200289
      1104   02 00288    20100001 A            AI,XW    1
      1105         00F10200                    FI
      1106   02 00289    68000282              B        %40
      1107                            *
      1108         00F10100                    FI
      1109   02 0028A    22B00000 A            LI,LISTCT   0              (THIS MUST BE 0 ON EXIT)
      1110   02 0028B                 %50      RES      0
      1111   02 0028B    D222004A 03           NXTENC                     NEXT ITEM
             02 0028C    20100001 A
      1112         001F0100                    IF,EQ    BEGLIST,XT
             02 0028D    21200006 A
             02 0028E    69300291
      1113   02 0028F    20B00001 A            AI,LISTCT   1
      1114         00EF0100                    ELSF,EQ  ENDLIST,XT
             02 00290    6800029B
             02 00291    21200002 A
             02 00292    69300295
      1115   02 00293    20BFFFFF A            AI,LISTCT   -1
      1116         000E0100                    ELS
             02 00294    6800029B
      1117   02 00295    2280E000 A            LV,T1    ENCTFLD
      1118   02 00296    4B800002 A            AND,T1   XT
      1119         001F0200                    IF,EQ    MULTINT,T1
             02 00297    2180E000 A
             02 00298    6930029B
      1120   02 00299    4B20049D              AND,XT   L(LFLD)
      1121   02 0029A    30100002 A            AW,XW    XT
      1122         00F10200                    FI
      1123         00F10100                    FI
      1124   02 0029B    21B00000 A            CV,LISTCT   0
      1125   02 0029C    6920028B              BG       %50
      1126                            *
      1127   02 0029D    D222004A 03           NXTENC
             02 0029E    20100001 A
      1128         001F0100                    IF,EQ    BEGLIST,XT
             02 0029F    21200006 A
             02 002A0    693002A3
      1129   02 002A1    D222004A 03           NXTENC
             02 002A2    20100001 A
      1130         00F10100                    FI
      1131                            *               IF (XT) EQ SYSTDIR GOTO SYSCODE
      1132   02 002A3    21204004 A            CV,XT    SYSTEMDIR
      1133   02 002A4    6830026B              BE       SYSCODE
      1134                            *  324           IF (XT) EQ ENDDIR  ADD -1 TO (SYSCOUNT)
      1135   02 002A5    21204007 A            CV,XT    ENDDIR
      1136   02 002A6    693002A8              BNE      #106
      1137   02 002A7    33F00047 03           MTW,-1   SYSCOUNT
      1138   02 002A8                 #106     RES      0
      1139         00F10000                    FI
      1140                            *  323           IF T(XT) EQ MULTINT ADD L(XT) TO (XW)
      1141   02 002A8    32800002 A            LW,8     2
      1142   02 002A9    4B80049C              AND,8    =X'E000'
      1143   02 002AA    2180E000 A            CI,8     X'E000'
      1144   02 002AB    693002AF              BNE      #107
      1145   02 002AC    32800002 A            LW,8     2
      1146   02 002AD    4B80049D              AND,8    =X'FF'
      1147   02 002AE    30100008 A            AW,1     8
      1148   02 002AF                 #107     RES      0
      1149                            *  324           IF (XT) EQ ENDBUFF CALL NXTRECRD  GOTO SKIPS1
      1150   02 002AF    212020FF A            CI,2     ENDBUFF
      1151   02 002B0    693002B2              BNE      #108
      1152   02 002B1    6AE00307              BAL,RL1  NXTRECRD
      1153   02 002B2                 #108     RES      0
      1154   02 002B2    68000272              B        SKIPS1
1
      1156                            *  329  *
      1157                            *  330  *   C L R L S T B F
      1158                            *  331  *        BLANK THE LISTING PRINT BUFFER
      1159                            *  332  *
      1160   02 002B3                 CLRLSTBF RES      0
      1161   02 002B3    323004AA              LW,XT1   ='    '
      1162   02 002B4    222FFFF2 A            LI,XT    -14
      1163   02 002B5    1534001C N            STD,XT1  LSTBF+28,XT
      1164   02 002B6    652002B5              BIR,XT   %-1
      1165   02 002B7    E800000E A            B        *RL1
1
      1167                            *
      1168                            *   C N E R R
      1169                            *        SOMETHING IS WRONG WITH A CONCORDANCE CONTROL COMMAND -
      1170                            *        DIAGNOSE.
      1171   02 002B8                 CNERR    RES      0
      1172   02 002B8    35700026 03           STW,RL   CNERRXIT
      1173   02 002B9    6AE002B3              BAL,RL1  CLRLSTBF          CLEAR LISTING BUFFER
      1174   02 002BA    22200013              LI,XT    CNERRMSG
      1175   02 002BB    22300007 A            LI,XT1   CNERRSIZE
      1176   02 002BC    6AE002D6              BAL,RL1  MOVEMSG           MOVE DIAGNOSTIC TO MESSAGE
      1177   02 002BD    32F00025 03           LW,RL2   CNCLNUM
      1178   02 002BE    2260001B A            LI,XT2   4*CNERRSIZE-1
      1179   02 002BF    6A7002C4              CALL     CNVT              EDIT COMMAND (NOT LINE) NUMBER
      1180   02 002C0    6AE002FD              BAL,RL1  PRINT
      1181   02 002C1    6AE002B3              BAL,RL1  CLRLSTBF
      1182   02 002C2    6AE002FD              BAL,RL1  PRINT
      1183   02 002C3    E8000026 03           B        *CNERRXIT
1
      1185                            *  340  *
      1186                            *  341  *   C N V T
      1187                            *  342  *        CONVERT A LINE NUMBER TO EBCDIC AND STORE IT IN LSTBF
      1188                            *  343  *
      1189   02 002C4                 CNVT     RES      0
      1190   02 002C4    22E00000 A            LI,RL1   0
      1191   02 002C5    36E004AB              DW,RL1   =10
      1192   02 002C6    20E000F0 A            AI,RL1   '0'
      1193   02 002C7    75EC0000 X            STB,RL1  LSTBF,XT2
      1194   02 002C8    206FFFFF A            AI,XT2   -1
      1195   02 002C9    21F00000 A            CI,RL2   0
      1196   02 002CA    692002C4              BG       CNVT
      1197   02 002CB    680E0000 A            B        0,RL
1
      1199                            *  354  *
      1200                            *  355  *   C T C H R S
      1201                            *  356  *        COUNT THE NUMBER OF DIGITS IN A LINE NUMBER
      1202                            *  357  *
      1203   02 002CC                 CTCHRS   RES      0
      1204   02 002CC    22200000 A            LI,XT    0
      1205   02 002CD                 CTCHR1   RES      0
      1206   02 002CD    20200001 A            AI,XT    1
      1207   02 002CE    316402D0              CW,XT2   DECTBL-1,XT
      1208   02 002CF    681002CD              BGE      CTCHR1
      1209   02 002D0    680E0000 A            B        0,RL
      1210   02 002D1                 DECTBL   RES      0
      1211   02 002D1    0000000A A            DATA     10,100,1000,10000,100000
             02 002D2    00000064 A
             02 002D3    000003E8 A
             02 002D4    00002710 A
             02 002D5    000186A0 A
1
      1213                            *
      1214                            *   M O V E M S G
      1215                            *        MOVE A MESSAGE TO LSTBF
      1216                            *                 XT CONTAINS ORIGIN OF MESSAGE
      1217                            *                 XT1 CONTAINS NUMBER OF WORDS TO MOVE
      1218                            *
      1219   02 002D6                 MOVEMSG  RES      0
      1220   02 002D6    202FFFFF A            AI,XT    -1                SUBT 1 FROM BASE ADDRESS
      1221   02 002D7    B2760002 A   MOVEMSG1 LW,RL    *XT,XT1
      1222   02 002D8    3577FFFF N            STW,RL   LSTBF-1,XT1
      1223   02 002D9    643002D7              BDR,XT1  MOVEMSG1
      1224   02 002DA    E800000E A            B        *RL1
1
      1226                            *
      1227                            *   R D R A D R C D
      1228                            *        READ A RECORD FROM RAD INTO THE RAD BUFFER IF THAT RECORD
      1229                            *          IS NOT ALREADY THERE.
      1230                            *
      1231                            *        INPUT: RADHW CONTAINS THE HALF-WORD REQUIRED TO BE IN CORE.
      1232                            *               1STCOREHW CONTAINS FIRST HALF-WORD CURRENTLY IN CORE.
      1233                            *               LASTCOREHW CONTAINS LAST HALF-WORD CURRENTLY IN CORE.
      1234                            *
      1235                            *       OUTPUT: THE REQUIRED HALF-WORD IS IN CORE.
      1236                            *               1STCOREHW AND LASTCOREHW UPDATED AS REQUIRED.
      1237                            *               XT CONTAINS THE HALF-WORD INDEX TO RADBUFFER.
      1238                            *
      1239   02 002DB                 RDRADRCD RES      0
      1240   02 002DB    3220000C A            LW,XT    RADHW             EXIT IF REQUIRED HALFWORD
      1241   02 002DC    3120003E 03           CW,XT    1STRADHW            IS BELOW THE RAD OVERFLOW
      1242   02 002DD    E910000E A            BL       *RL1                BUFFER
      1243   02 002DE    31C0003F 03           CW,RADHW 1STCOREHW         IS THE REQUIRED
      1244   02 002DF    691002E2              BL       RDRAD1              HALF-WORD
      1245   02 002E0    31C00030 03           CW,RADHW LASTCOREHW          IN THE
      1246   02 002E1    691002EF              BL       RDRAD2              CORE BUFFER
      1247   02 002E2                 RDRAD1   RES      0
      1248   02 002E2    3820003E 03           SW,XT    1STRADHW
      1249   02 002E3    25200076 A            SLS,XT   -10
      1250   02 002E4    35200028 03           STW,XT   COREBLOCK         STORE NEW CORE BLOCK NUMBER
      1251   02 002E5    32800028 03           LW,IOADD COREBLOCK
      1252   02 002E6    2580000A A            SLS,IOADD 10
      1253   02 002E7    3080003E 03           AW,IOADD 1STRADHW
      1254   02 002E8    3580003F 03           STW,IOADD  1STCOREHW       NEW CORE LOWER LIMIT
      1255   02 002E9    20800400 A            AI,IOADD 1024
      1256   02 002EA    35800030 03           STW,IOADD LASTCOREHW       NEW CORE UPPER LIMIT
      1257   02 002EB    3280003A 03           LW,IOADD   RADBUFFER
      1258   02 002EC    32900028 03           LW,IOSIZE  COREBLOCK
      1259   02 002ED    6AA00000 X            BAL,IORL READX5            READ THE RECORD FROM RAD TO CORE
      1260   02 002EE    3220000C A            LW,XT    RADHW             COMPUTE HALF-WORD OFFSET FROM
      1261   02 002EF                 RDRAD2   RES      0
      1262   02 002EF    3820003F 03           SW,XT    1STCOREHW           REFTBL
      1263   02 002F0    3020003E 03           AW,XT    1STRADHW            ORIGIN
      1264   02 002F1    E800000E A            B        *RL1
1
      1266                            *
      1267                            *   W R I T E R A D R C D
      1268                            *        WRITE THE CURRENT RAD RECORD AND READ IN THE REQUIRED ONE
      1269                            *
      1270                            *        INPUT: RADHW CONTAINS THE HALF-WORD REQUIRED TO BE IN CORE.
      1271                            *               1STCOREHW CONTAINS THE FIRST HALF-WORD CURRENTLY IN CORE
      1272                            *               LASTCOREHW CONTAINS THE LAST HALF-WORD CURRENTLY IN CORE
      1273                            *
      1274                            *       OUTPUT: THE REQUIRED HALF-WORD IS IN CORE.
      1275                            *               1STCOREHW AND LASTCOREHW UPDATED AS REQUIRED.
      1276                            *               XT CONTAINS THE HALF-WORD INDEX TO RADBUFFER
      1277                            *
      1278   02 002F2                 WRITERADRCD  RES  0
      1279   02 002F2    3220000C A            LW,XT    RADHW             EXIT IF THE REQUIRED HALFWORD
      1280   02 002F3    3120003E 03           CW,XT    1STRADHW            IS BELOW THE RAD OVERFLOW
      1281   02 002F4    E910000E A            BL       *RL1                BUFFER
      1282   02 002F5    31C0003F 03           CW,RADHW 1STCOREHW         IS THE REQUIRED
      1283   02 002F6    691002F9              BL       WTRAD1              HALF-WORD
      1284   02 002F7    31C00030 03           CW,RADHW LASTCOREHW          IN THE
      1285   02 002F8    691002EF              BL       RDRAD2              CORE BUFFER
      1286                            * HERE TO WRITE THE CURRENT CORE BUFFER AND READ A NEW ONE
      1287   02 002F9                 WTRAD1   RES      0
      1288   02 002F9    32900028 03           LW,IOSIZE  COREBLOCK
      1289   02 002FA    3280003A 03           LW,IOADD RADBUFFER         WRITE THE CURRENT RAD RECORD
      1290   02 002FB    6AA00000 X            BAL,IORL WRITEX5
      1291   02 002FC    680002E2              B        RDRAD1
1
      1293                            *  368  *
      1294                            *  369  *   P R I N T
      1295                            *  370  *        PRINT A LINE
      1296                            *  371  *
      1297   02 002FD                 PRINT    RES      0
      1298   02 002FD    22800000 N            LI,IOADD LSTBF
      1299   02 002FE    2290006C A            LI,IOSIZE  108
      1300   02 002FF    6AA00000 X            BAL,IORL WRITELO
      1301   02 00300    E800000E A            B        *RL1
1
      1303                            *  376  *
      1304                            *  377  *   P A S S I N I T
      1305                            *  378  *        INITIALIZE FOR THE NEXT PASS
      1306                            *  379  *
      1307   02 00301                 PASSINIT RES      0
      1308   02 00301    22200000 A            LI,XT    0
      1309   02 00302    35200027 03           STW,XT   CONTIN
      1310   02 00303    35200040 03           STW,XT   RESIDUE
      1311   02 00304    35200033 03           STW,XT   MAJLINE
      1312   02 00305    35200045 03           STW,XT   SUBLINE
      1313   02 00306    6AA00000 X            BAL,IORL REWX1
      1314                            *  384  *   FALL THROUGH TO NXTRECRD
      1315                            *  385  *
      1316                            *  386  *   N X T R E C R D
      1317                            *  387  *        GET THE NEXT ENCODED TEXT RECORD
      1318                            *  388  *
      1319   02 00307                 NXTRECRD RES      0
      1320   02 00307    6AA00000 X            BAL,IORL READX1
      1321   02 00308    22100000 A            LI,XW    0
      1322   02 00309    E800000E A            B        *RL1
      1323                            *
      1324                            *   N X T C N R E C
      1325                            *        GET THE NEXT CONCORDANCE CONTROL FILE RECORD
      1326                            *
      1327   02 0030A                 NXTCNREC RES      0
      1328   02 0030A    22800000 N            LI,IOADD INBUF
      1329   02 0030B    6AA00000 X            BAL,IORL READX3
      1330   02 0030C    22100000 A            LI,XW    0
      1331   02 0030D    680E0000 A            EXIT
1
      1333                            *  394  *
      1334                            *  395  *   N X T S T W D
      1335                            *  396  *        GET THE NEXT SYMBOL TABLE HALFWORD
      1336                            *  397  *
      1337   02 0030E                 NXTSTWD  RES      0
      1338   02 0030E    35E00037 03           STW,RL1  NXTSTXIT
      1339   02 0030F    21100000 N            CI,XW    HWX1SIZE
      1340   02 00310    69100312              BL       NXSTWD1
      1341   02 00311    6AE00307              BAL,RL1  NXTRECRD
      1342   02 00312                 NXSTWD1  RES      0
      1343   02 00312    52220000 X            LH,XT    INBUF,XW
      1344   02 00313    20100001 A            AI,XW    1
      1345   02 00314    E8000037 03           B        *NXTSTXIT
1
      1347                            *  408  *
      1348                            *  409  *   L I N E N U M
      1349                            *  410  *        PROCESS THE LINE NUMBER OF THE CURRENT LINE
      1350                            *  411  *
      1351   02 00315                 LINENUM  RES      0
      1352   02 00315    35700032 03           STW,RL   LINUMXIT
      1353   02 00316    32200027 03           LW,XT    CONTIN            IF PREVIOUS LINE WAS CONTINUED,
      1354   02 00317    6830031D              BEZ      LINENUM1            SAVE MAJOR AND SUB-LINE NUMBERS
      1355   02 00318    35200033 03           STW,XT   MAJLINE
      1356   02 00319    22200000 A            LI,XT    0
      1357   02 0031A    35200027 03           STW,XT   CONTIN
      1358   02 0031B    46200040 03           XW,XT    RESIDUE
      1359   02 0031C    66200045 03           AWM,XT   SUBLINE
      1360   02 0031D                 LINENUM1 RES      0
      1361   02 0031D    52220000 X            LH,XT    INBUF,XW          NEXT ENCODED ENTRY
      1362   02 0031E    20100001 A            AI,XW    1
      1363   02 0031F    212020FF A            CI,XT    ENDBUFF
      1364   02 00320    69300323              BNE      LINENUM2
      1365   02 00321    6AE00307              BAL,RL1  NXTRECRD          READ NEXT ENCODED RECORD
      1366   02 00322    6800031D              B        LINENUM1
      1367   02 00323                 LINENUM2 RES      0
      1368   02 00323    2230E000 A            LI,XT1   ENCTFLD           MASK FOR TYPE FIELD COMPARISONS
      1369   02 00324    452004A9              CS,XT    =ENCTINT          TEST FOR SMALL INTEGER
      1370   02 00325    68300329              BE       LINENUM3            YES.
      1371   02 00326    52220000 X            LH,XT    INBUF,XW
      1372   02 00327    20100001 A            AI,XW    1
      1373   02 00328    6800032E              B        LINENUM4
      1374   02 00329                 LINENUM3 RES      0
      1375   02 00329    4B20049E              AND,XT   =VALFLD           IF INTEGER = 0, IT'S A SUB-LINE
      1376   02 0032A    6930032E              BNEZ     LINENUM4            NOT A SUB-LINE NUMBER
      1377   02 0032B    33100045 03           MTW,1    SUBLINE
      1378   02 0032C    22200003 A            LI,XT    3
      1379   02 0032D    68000332              B        LINENUM6
      1380   02 0032E                 LINENUM4 RES      0
      1381   02 0032E    35200033 03           STW,XT   MAJLINE
      1382   02 0032F    22200000 A            LI,XT    0                 CLEAR SUB-LINE NUMBER
      1383   02 00330    35200045 03           STW,XT   SUBLINE
      1384   02 00331    22200002 A            LI,XT    2                 AMT. OF SPACE = 2
      1385   02 00332                 LINENUM6 RES      0
      1386   02 00332    3520002F 03           STW,XT   LINESP            SPACE REQ'D FOR A REFERENCE LINE NO.
      1387   02 00333                 LINENUM5 RES      0
      1388   02 00333    52220000 X            LH,XT    INBUF,XW          IS THE NEXT ENCODED ITEM
      1389   02 00334    452004A9              CS,XT    =ENCTINT            AN INTEGER
      1390   02 00335    E9100032 03           BL       *LINUMXIT           NO.  EXIT
      1391   02 00336    20100001 A            AI,XW    1                 BUMP XW
      1392   02 00337    32600033 03           LW,ARG   MAJLINE           SAVE MAJOR LINE NUMBER
      1393   02 00338    35600027 03           STW,ARG  CONTIN
      1394   02 00339    452004A9              CS,XT    =ENCTINT          TEST FOR SMALL INTEGER
      1395   02 0033A    6930033F              BNE      LINENUM7            NO.  LARGE INTEGER
      1396   02 0033B    4B20049E              AND,XT   =VALFLD           IF 0, THIS IS A SUB-LINE
      1397   02 0033C    69300341              BNEZ     LINENUM8            NOT A SUB-LINE
      1398   02 0033D    33100040 03           MTW,1    RESIDUE
      1399   02 0033E    68000333              B        LINENUM5
      1400   02 0033F                 LINENUM7 RES      0
      1401   02 0033F    52220000 X            LH,XT    INBUF,XW          NEXT HALFWORD CONTAINS LINE NUMBER
      1402   02 00340    20100001 A            AI,XW    1
      1403   02 00341                 LINENUM8 RES      0
      1404   02 00341    35200027 03           STW,XT   CONTIN            MAJOR CONTINUATION LINE NUMBER
      1405   02 00342    22200000 A            LI,XT    0                 CLEAR CONTINUATION SUB-LINE NUMBER
      1406   02 00343    35200040 03           STW,XT   RESIDUE
      1407   02 00344    68000333              B        LINENUM5
1
      1409                            *  470  *
      1410                            *  471  *   S T O R L N
      1411                            *  472  *        CONVERT AND STORE A REFERENCE LINE NUMBER IN THE NEXT
      1412                            *  473  *          AVAILABLE FIELD OF THE LISTING IMAGE
      1413                            *  474  *
      1414                            *  475  *        INPUT: ORGX CONTAINS THE HALFWORD INDEX TO THE REFTBL ENTRY
      1415                            *  476  *               TABX CONTAINS THE NEXT TAB POSITION IN LSTBF
      1416                            *  477  *               OUTX CONTAINS THE NEXT AVAILABLE PRINT POSITION IN LSTBF
      1417                            *  478  *
      1418                            *  479  *       OUTPUT: TABX,OUTX, AND ORGX ARE BUMPED
      1419                            *  480  *               THE LINE NUMBER IS CONVERTED AND STORED IN LSTBF
      1420                            *  481  *               THE PREVIOUS LINE IS PRINTED IF FULL
      1421                            *  482  *
      1422   02 00345                 STORLN   RES      0
      1423   02 00345    35E00044 03           STW,RL1  STORLXIT
      1424   02 00346    32700039 03           LW,RL    ORGX
      1425   02 00347    222FFFFD A            LI,XT    -3
      1426   02 00348    3230003B 03           LW,XT1   RADOVTRIG         ARE WE IN RAD SPILL MODE
      1427   02 00349    68300359              BEZ      STLN1               NO
      1428   02 0034A    32C00039 03           LW,RADHW ORGX
      1429   02 0034B    6AE002DB              BAL,RL1  RDRADRCD          ASSURE THE REQ'D HW IS IN CORE
      1430   02 0034C    D2F40041 03           LH,RL2   *RFO,XT           MOVE FLAGS AND OPCODE
      1431   02 0034D    35F0002B 03           STW,RL2  CURRLINE            TO CURRLINE
      1432   02 0034E    20C00001 A            AI,RADHW 1
      1433   02 0034F    6AE002DB              BAL,RL1  RDRADRCD          ASSURE MAJOR LINE NO. IS IN CORE
      1434   02 00350    D2340041 03           LH,XT1   *RFO,XT           MAJOR LINE NUMBER
      1435   02 00351    3530002C 03           STW,XT1  CURRLINE+1
      1436   02 00352    21F08000 A            CI,RL2   SLFLD             IS THERE A SUBLINE NUMBER
      1437   02 00353    6840035D              BAZ      STLN9               NO
      1438   02 00354    20C00001 A            AI,RADHW 1
      1439   02 00355    6AE002DB              BAL,RL1  RDRADRCD          ASSURE SUBLINE NUMBER IS IN CORE
      1440   02 00356    D2340041 03           LH,XT1   *RFO,XT           MOVE SUBLINE NUMBER
      1441   02 00357    3530002D 03           STW,XT1  CURRLINE+2
      1442   02 00358    6800035D              B        STLN9
      1443                            *  487  * MOVE 3 HALFWORDS FROM REFTBL TO CURRLINE
      1444   02 00359                 STLN1    RES      0
      1445   02 00359    D23E0041 03           LH,XT1   *RFO,RL
      1446   02 0035A    3534002E 03           STW,XT1  CURRLINE+3,XT
      1447   02 0035B    20700001 A            AI,RL    1
      1448   02 0035C    65200359              BIR,XT   STLN1
      1449   02 0035D                 STLN9    RES      0
      1450   02 0035D    3260002C 03           LW,XT2   CURRLINE+1        COUNT CHARACTERS IN THE MAJOR
      1451   02 0035E    6A7002CC              BAL,RL   CTCHRS              LINE NUMBER
      1452   02 0035F    35200029 03           STW,XT   CT
      1453   02 00360    3220002B 03           LW,XT    CURRLINE          IS THERE A SUB-LINE NUMBER
      1454   02 00361    21208000 A            CI,XT    SLFLD
      1455   02 00362    68400368              BAZ      STLN2             NO SUB-LINE NUMBER
      1456   02 00363    3260002D 03           LW,XT2   CURRLINE+2        COUNT CHARACTERS IN THE
      1457   02 00364    6A7002CC              BAL,RL   CTCHRS              SUB-LINE NUMBER
      1458   02 00365    20200001 A            AI,XT    1                 ADD 1 FOR THE
      1459   02 00366    66200029 03           AWM,XT   CT                  DECIMAL POINT
      1460   02 00367    33100039 03           MTW,1    ORGX
      1461   02 00368                 STLN2    RES      0
      1462   02 00368    33200039 03           MTW,2    ORGX
      1463   02 00369                 STLN3    RES      0
      1464   02 00369    21400008 A            CI,TABX  8                 IS THERE ROOM ON THE CURRENT LINE
      1465   02 0036A    6910036F              BL       STLN4               YES.
      1466                            *  509  * NO ROOM.  PRINT THE CURRENT LINE, CLEAR THE LINE IMAGE, RESET POINTERS
      1467   02 0036B                 STLN10   RES      0
      1468   02 0036B    6AE002FD              BAL,RL1  PRINT
      1469   02 0036C    6AE002B3              BAL,RL1  CLRLSTBF
      1470   02 0036D    22400000 A            LI,TABX  0
      1471   02 0036E    22500000 A            LI,OUTX  0
      1472                            *  515  * IS THERE ROOM BETWEEN THE LAST TAB POSITION AND THE NEXT ONE
      1473   02 0036F                 STLN4    RES      0
      1474   02 0036F    722803B0              LB,XT    TABTBL,TABX
      1475   02 00370    38200029 03           SW,XT    CT
      1476   02 00371    31200005 A            CW,XT    OUTX
      1477   02 00372    69200375              BG       STLN5             YES, THERE'S ROOM
      1478   02 00373    20400001 A            AI,TABX  1                 NO ROOM. BUMP TAB POSITION, RETRY
      1479   02 00374    68000369              B        STLN3
      1480                            *  523  * DETERMINE WHETHER THE COMMAND WILL ALSO FIT ON THIS LINE
      1481   02 00375                 STLN5    RES      0
      1482   02 00375    22300000 A            LI,XT1   0
      1483   02 00376    3220002B 03           LW,XT    CURRLINE
      1484   02 00377    4B2004AC              AND,XT   L(RTFLD)
      1485         001F0000                    IF,NE    CR,XT
             02 00378    21202000 A
             02 00379    68300385
      1486         001F0100                    IF,EQ    IR,XT             INDIRECT FLAG WILL TAKE 1 BYTE
             02 0037A    21206000 A
             02 0037B    6930037D
      1487   02 0037C    20200001 A            AI,XT    1
      1488         00F10100                    FI
      1489   02 0037D    3220002B 03           LW,XT    CURRLINE
      1490   02 0037E    4B20049E              AND,XT   =CNFLD
      1491   02 0037F    30200022 03           AW,XT    CF1SYM
      1492   02 00380    30200022 03           AW,XT    CF1SYM
      1493   02 00381    52F40000 A            LH,CHARS 0,XT
      1494   02 00382    3260000F A            LW,XT2   CHARS
      1495   02 00383    25600078 A            SLS,XT2  -8                GET COUNT BYTE
      1496   02 00384    30300006 A            AW,XT1   XT2
      1497         00F10000                    FI
      1498   02 00385    725803B0              LB,OUTX  TABTBL,TABX
      1499   02 00386    30500003 A            AW,OUTX  XT1
      1500   02 00387    2150006A A            CI,OUTX  106
      1501   02 00388    6920036B              BG       STLN10            TOO BIG. PRINT THE LINE AND RETRY
      1502   02 00389    725803B0              LB,OUTX  TABTBL,TABX       GET TAB POSITION
      1503   02 0038A    32600005 A            LW,XT2   OUTX
      1504   02 0038B    206FFFFF A            AI,XT2   -1
      1505   02 0038C    20400001 A            AI,TABX  1
      1506   02 0038D    3270002B 03           LW,RL    CURRLINE          SET REFERENCE TYPE CODE SEPARATOR
      1507   02 0038E    4B7004AC              AND,RL   L(RTFLD)
      1508   02 0038F    25700073 A            SHIFT,RL RTLOB,31
      1509   02 00390    72EE04AD              LB,RL1   L('/%-/'),RL
      1510   02 00391    75EA0000 X            STB,RL1  LSTBF,OUTX        LABEL/NON-LABEL INDICATOR
      1511   02 00392    20500001 A            AI,OUTX  1
      1512         001F0000                    IF,NE    CR**(RTLOB-31),RL COMMAND REFERENCE HAS NO COMMAND
             02 00393    21700001 A
             02 00394    683003A5
      1513                            *  554  * STORE THE COMMAND CHARACTERS IN THE PRINT IMAGE
      1514   02 00395                 STLN30   RES      0
      1515   02 00395    75FA0000 X            STB,CHARS LSTBF,OUTX
      1516   02 00396    20500001 A            AI,OUTX  1
      1517   02 00397    203FFFFF A            AI,XT1   -1
      1518         001F0100                    IF,NZ
             02 00398    683003A0
      1519   02 00399    20200001 A            AI,XT    1
      1520   02 0039A    52F40000 A            LH,CHARS 0,XT              NEXT HALFWORD OF COMMAND CHARACTERS
      1521   02 0039B    25F00078 A            SLS,CHARS -8
      1522   02 0039C    75FA0000 X            STB,CHARS  LSTBF,OUTX
      1523   02 0039D    52F40000 A            LH,CHARS 0,XT
      1524   02 0039E    20500001 A            AI,OUTX  1
      1525   02 0039F    64300395              BDR,XT1  STLN30
      1526                            *
      1527         00F10100                    FI
      1528                            *
      1529                            *        CHECK TO SEE IF THIS WAS AN INDIRECT REFERENCE
      1530                            *
      1531         001F0100                    IF,EQ    IR**(RTLOB-31),RL
             02 003A0    21700003 A
             02 003A1    693003A5
      1532   02 003A2    2280005C A            LI,T1    '*'
      1533   02 003A3    758A0000 X            STB,T1   LSTBF,OUTX
      1534   02 003A4    20500001 A            AI,OUTX  1
      1535         00F10100                    FI
      1536         00F10000                    FI
      1537   02 003A5    3280002B 03           LW,T1    CURRLINE
      1538   02 003A6    21808000 A            CI,T1    SLFLD             IS THERE A SUB-LINE NUMBER
      1539   02 003A7    684003AD              BAZ      STLN32              NO.
      1540   02 003A8    32F0002D 03           LW,RL2   CURRLINE+2        CONVERT AND STORE
      1541   02 003A9    6A7002C4              BAL,RL   CNVT                SUB-LINE NUMBER
      1542   02 003AA    2280004B A            LI,T1    '.'               INSERT DECIMAL POINT
      1543   02 003AB    758C0000 X            STB,T1   LSTBF,XT2
      1544   02 003AC    206FFFFF A            AI,XT2   -1
      1545   02 003AD                 STLN32   RES      0
      1546   02 003AD    32F0002C 03           LW,RL2   CURRLINE+1        CONVERT AND STORE
      1547   02 003AE    6A7002C4              BAL,RL   CNVT                MAJOR LINE NUMBER
      1548   02 003AF    E8000044 03           B        *STORLXIT
      1549   02 003B0                 TABTBL   RES      0
      1550   02 003B0    0A       A            DATA,1   10,23,36,49,62,75,88,101
             02 003B0 1  17       A
             02 003B0 2  24       A
             02 003B0 3  31       A
             02 003B1    3E       A
             02 003B1 1  4B       A
             02 003B1 2  58       A
             02 003B1 3  65       A
      1551                                     BOUND    4
1
      1553                            *
      1554                            *   C F 1 R E F
      1555                            *        ENTER CF(1) REF IF INDICATED
      1556                            *
      1557                            *        OUTPUT:  LASTREF IS INDEX TO REFTBL, IF ENTERED (ELSE IS 0).
      1558                            *
      1559   02 003B2                 CF1REF   RES      0
      1560   02 003B2    22800000 A            LI,T1    0
      1561   02 003B3    35800031 03           STW,T1   LASTREF
      1562   02 003B4    4B20049E              AND,XT   L(VALFLD)
      1563   02 003B5    B234002A 03           LW,XT1   *CTRLTBL,XT
      1564   02 003B6    33000038 03           MTW,0    OPREFS
      1565   02 003B7    E910000E A            EXIT,LZ  RL1               GET OUT IF ALL OPS SUPRESSED
      1566         001F0000                    IF,EZ                      MUST LOOK-UP
             02 003B8    693003BC
      1567         001F0100                    IF,AZ    CTBLCC,XT1
             02 003B9    21320000 A
             02 003BA    694003BC
      1568         0FF00200                    EXIT     RL1               OP-CODE NOT INCLUDED
             02 003BB    E800000E A
      1569                            *
      1570         00F10100                    FI
      1571         00F10000                    FI
      1572   02 003BC    680003D2              B        STORREFU          GO TO STORE REFERENCE
1
      1574                            *  646  *
      1575                            *  647  *   S T O R E R E F
      1576                            *  648  *        STORE A REFERENCE LINE NUMBER IN REFTBL
      1577                            *
      1578                            *        OUTPUT:  LASTREF IS INDEX TO REFTBL, IF ENTERED (ELSE IS 0).
      1579                            *
      1580   02 003BD                 STOREREF RES      0
      1581   02 003BD    22800000 A            LI,T1    0
      1582   02 003BE    35800031 03           STW,T1   LASTREF
      1583   02 003BF    4B20049E              AND,XT   L(VALFLD)
      1584   02 003C0    B234002A 03           LW,XT1   *CTRLTBL,XT
      1585   02 003C1    33000046 03           MTW,0    SYMREFS
      1586         001F0000                    IF,LEZ
             02 003C2    692003CF
      1587         0FF00100                    EXIT,LZ  RL1               JUST LEAVE IF ALL SYMS SUPPRESSED
             02 003C3    E910000E A
      1588                            *
      1589         001F0100                    IF,ANZ   CTBLCC,XT1        DOIF MUST TEST 'SYM' BIT IN CF1 TAB
             02 003C4    21320000 A
             02 003C5    684003CF
      1590   02 003C6    35200048 03           STW,XT   TEMP
      1591   02 003C7    6A700474              CALL     SRCHCF1
      1592   02 003C8    3220002E 03           LW,XT    ENDX
      1593   02 003C9    B2340021 03           LW,XT1   *CF1PTR,XT
      1594         001F0200                    IF,AZ    CFPTRSYM,XT1
             02 003CA    313004AE
             02 003CB    694003CD
      1595         0FF00300                    EXIT     RL1               SYM NOT INCLUDED
             02 003CC    E800000E A
      1596         00F10200                    FI
      1597   02 003CD    32200048 03           LW,XT    TEMP              RESTORE STUFF
      1598   02 003CE    B234002A 03           LW,XT1   *CTRLTBL,XT
      1599         00F10100                    FI
      1600         00F10000                    FI
      1601         001F0000                    IF,EQ    L#+1,XT           DON'T CONCORD '=' OPERATOR
             02 003CF    21200050 A
             02 003D0    693003D2
      1602         0FF00100                    EXIT     RL1
             02 003D1    E800000E A
      1603                            *
      1604         00F10000                    FI
      1605                            *
      1606                            *   ENTRY TO UNCONDITIONALLY ENTER REF
      1607                            *        XT IS (CLEAN) SYMBOL NUMBER
      1608                            *        XT1 IS CTRLTBL ENTRY
      1609                            *
      1610   02 003D2                 STORREFU RES      0
      1611   02 003D2    3020002A 03           AW,XT    CTRLTBL
      1612   02 003D3    4B3004A5              AND,XT1  L(LOCFLD)
      1613   02 003D4    32840001 A            LW,T1    1,XT
      1614   02 003D5    4B8004A5              AND,T1   L(LOCFLD)
      1615   02 003D6    38800003 A            SW,T1    XT1
      1616   02 003D7    E820000E A            EXIT,LEZ RL1               EXIT IF NO ROOM FOR REF'S
      1617                            *
      1618   02 003D8    3230002F 03           LW,XT1   LINESP
      1619   02 003D9    25300272 A            SHIFT,XT1   31,SPACELOB
      1620   02 003DA    30340000 A            AW,XT1   0,XT
      1621   02 003DB    46340000 A            XW,XT1   0,XT
      1622   02 003DC    2530006E A            SLS,XT1  SPACELOB-31       CURRENT HW OFFSET INTO THIS SLOT
      1623   02 003DD    32840000 A            LW,T1    0,XT
      1624   02 003DE    25800001 A            SLS,T1   1                 HW OFFSET OF THIS SLOT IN REFTBL
      1625   02 003DF    30300008 A            AW,XT1   T1
      1626   02 003E0    4B3004A7              AND,XT1  L(X'3FFFF')
      1627   02 003E1    35300031 03           STW,XT1  LASTREF           SAVE INDEX TO THIS REFERENCE ITEM
      1628   02 003E2    32700023 03           LW,RL    CLOC
      1629   02 003E3    3070003C 03           AW,RL    RTYP              MERGE REFERENCE TYPE
      1630   02 003E4    32F00033 03           LW,RL2   MAJLINE
      1631   02 003E5    3220003B 03           LW,XT    RADOVTRIG         ARE WE IN RAD SPILL MODE
      1632   02 003E6    683003F7              BEZ      STORERF1            NO
      1633   02 003E7    35E0003D 03           STW,RL1  STOREREFXIT       SAVE EXIT
      1634   02 003E8    32E00045 03           LW,RL1   SUBLINE           IS THERE A SUBLINE NUMBER
      1635   02 003E9    683003EB              BEZ      %+2                 NO
      1636   02 003EA    20708000 A            AI,RL    SLFLD             ADD SUBLINE INDICATOR
      1637   02 003EB    32C00003 A            LW,RADHW XT1
      1638   02 003EC    6AE002F2              BAL,RL1  WRITERADRCD       ASSURE REQ'D HW IS IN CORE
      1639   02 003ED    D5740041 03           STH,RL   *RFO,XT
      1640   02 003EE    20C00001 A            AI,RADHW 1
      1641   02 003EF    6AE002F2              BAL,RL1  WRITERADRCD
      1642   02 003F0    D5F40041 03           STH,RL2  *RFO,XT           STORE MAJOR LINE NUMBER
      1643   02 003F1    32F00045 03           LW,RL2   SUBLINE           EXIT IF THERE'S NO
      1644   02 003F2    E830003D 03           BEZ      *STOREREFXIT        SUBLINE NUMBER
      1645   02 003F3    20C00001 A            AI,RADHW 1
      1646   02 003F4    6AE002F2              BAL,RL1  WRITERADRCD
      1647   02 003F5    D5F40041 03           STH,RL2  *RFO,XT           STORE SUBLINE NUMBER
      1648   02 003F6    E800003D 03           B        *STOREREFXIT
      1649   02 003F7                 STORERF1 RES      0
      1650   02 003F7    32200045 03           LW,XT    SUBLINE
      1651   02 003F8    68300400              BEZ      STORERF2
      1652   02 003F9    20708000 A            AI,RL    SLFLD
      1653   02 003FA    D5760041 03           STH,RL   *RFO,XT1
      1654   02 003FB    20300001 A            AI,XT1   1
      1655   02 003FC    D5F60041 03           STH,RL2  *RFO,XT1
      1656   02 003FD    20300001 A            AI,XT1   1
      1657   02 003FE    D5260041 03           STH,XT   *RFO,XT1
      1658   02 003FF    E800000E A            B        *RL1
      1659   02 00400                 STORERF2 RES      0
      1660   02 00400    D5760041 03           STH,RL   *RFO,XT1
      1661   02 00401    20300001 A            AI,XT1   1
      1662   02 00402    D5F60041 03           STH,RL2  *RFO,XT1
      1663   02 00403    E800000E A            B        *RL1
1
      1665                            *  679  *
      1666                            *  680  *   C T S P A C E
      1667                            *  681  *        COUNT THE NUMBER OF HALFWORDS REQUIRED FOR THIS REFERENCE
      1668                            *  682  *
      1669                            *  683  *
      1670   02 00404                 CTSPACE  RES      0
      1671   02 00404    21208050 A            CV,XT    LSSYM+1           (DON'T CONCORD '=' OPERATOR)
      1672   02 00405    683E0000 A            EXIT,EQ
      1673                            *
      1674   02 00406    22301FFF A            LI,XT1   VALFLD            ISOLATE SYMBOL NUMBER
      1675   02 00407    4B300002 A            AND,XT1  XT                  IN REG XT1
      1676   02 00408    3260002F 03           LW,ARG   LINESP            ADD NUMBER OF HALFWORDS TO SPCT
      1677   02 00409    E666002A 03           AWM,ARG  *CTRLTBL,XT1        FIELD FOR THIS SYMBOL
      1678   02 0040A    680E0000 A            EXIT
1
      1680                            *
      1681                            *   M A P C T R L
      1682                            *        CONTROL THE CHAINING AND MODIFICATIONS TO SPACE COUNTS INDUCED
      1683                            *        BY CONCORDANCE CONTROLS.
      1684                            *
      1685                                     LOCAL    %10,%20,%30
      1686                            *
      1687   02 0040B                 MAPCTRL  RES      0
      1688   02 0040B    35700034 03           STW,RL   MAPCXIT           SAVE RETURN
      1689   02 0040C    32200024 03           LW,XT    CMND
      1690   02 0040D    73000000 X            MTB,0    DC%FLAG
      1691         001F0000                    IF,EZ                      THERE WERE NO NAME-LISTS ON CN
             02 0040E    69300415
      1692   02 0040F    6A700474              CALL     SRCHCF1
      1693   02 00410    22201FFF A            LV,XT    VALFLD
      1694   02 00411    4B200024 03           AND,XT   CMND
      1695   02 00412    B234002A 03           LW,XT1   *CTRLTBL,XT
      1696   02 00413    6AE0045D              BAL,RL1  CNVCTRL           JUST DO THE CONVERSION
      1697   02 00414    E8000034 03           B        *MAPCXIT          EXIT
      1698                            *
      1699         00F10000                    FI
      1700         001F0000                    IF,AZ    MOFLG,XT
             02 00415    21202000 A
             02 00416    6940042C
      1701                            *
      1702                            *        CURRENT SYMBOL IS NOT MULTIPLY-OCCURRING; JUST PROCESS IT.
      1703                            *        IF THERE IS A PENDING CHAIN (AWAITING A CN CONTROL WHICH
      1704                            *        WE DIDN'T GET), PROCESS THE CHAIN FIRST.
      1705                            *
      1706   02 00417                 %10      RES      0
      1707   02 00417    52200048 03           LH,XT    TEMP              GET CURRENT CHAIN LINK
      1708   02 00418    4B20049E              AND,XT   L(VALFLD)
      1709         001F0100                    IF,NZ                      DOIF ANY MORE REMAIN
             02 00419    68300421
      1710   02 0041A    6A700474              CALL     SRCHCF1
      1711   02 0041B    52200048 03           LH,XT    TEMP
      1712   02 0041C    4B20049E              AND,XT   L(VALFLD)
      1713   02 0041D    B234002A 03           LW,XT1   *CTRLTBL,XT
      1714   02 0041E    35300048 03           STW,XT1  TEMP
      1715   02 0041F    6AE0045D              BAL,RL1  CNVCTRL
      1716   02 00420    68000417              B        %10
      1717                            *
      1718         00F10100                    FI
      1719   02 00421    32200024 03           LW,XT    CMND              HERE TO DO SYMBOL IN HAND
      1720   02 00422    E8300034 03           BEZ      *MAPCXIT          EXIT
      1721                            *
      1722   02 00423    6A700474              CALL     SRCHCF1
      1723   02 00424    32200024 03           LW,XT    CMND
      1724   02 00425    4B20049E              AND,XT   L(VALFLD)
      1725   02 00426    B234002A 03           LW,XT1   *CTRLTBL,XT
      1726   02 00427    6AE0045D              BAL,RL1  CNVCTRL
      1727   02 00428    22200000 A            LI,XT    0
      1728   02 00429    35200029 03           STW,XT   CT
      1729   02 0042A    35200048 03           STW,XT   TEMP
      1730   02 0042B    E8000034 03           B        *MAPCXIT          EXIT
      1731                            *
      1732         00F10000                    FI
      1733                            *
      1734                            *        CURRENT SYMBOL IS MULTIPLY OCCURING.  IF IT IS A CN CONTROL
      1735                            *        AND THERE IS A PENDING CHAIN, USE CURRENT FLAGS TO PROCESS
      1736                            *        CHAIN.  PROCESS THIS SYMBOL, AND SET CN FLAGS FOR ANY
      1737                            *        SUBSEQUENT OCCURRENCES OF THIS SYMBOL.
      1738                            *
      1739   02 0042C    4B20049E              AND,XT   L(VALFLD)
      1740   02 0042D    B234002A 03           LW,XT1   *CTRLTBL,XT
      1741         001F0000                    IF,ANZ   CTBLC,XT          DOIF CN CONTROL
             02 0042E    312004A2
             02 0042F    68400447
      1742   02 00430    4B3004AF              AND,XT1  L(CTBLFLGS)
      1743   02 00431    20300001 A            AI,XT1   1
      1744   02 00432    35300029 03           STW,XT1  CT                SET CN CONTROL FLAGS
      1745   02 00433                 %20      RES      0
      1746   02 00433    52200048 03           LH,XT    TEMP              GET CURRENT CHAIN LINK
      1747   02 00434    4B20049E              AND,XT   L(VALFLD)
      1748         001F0100                    IF,NZ                      DOIF ANY MORE REMAIN
             02 00435    6830043E
      1749   02 00436    6A700474              CALL     SRCHCF1
      1750   02 00437    52200048 03           LH,XT    TEMP
      1751   02 00438    4B20049E              AND,XT   L(VALFLD)
      1752   02 00439    B234002A 03           LW,XT1   *CTRLTBL,XT
      1753   02 0043A    35300048 03           STW,XT1  TEMP
      1754   02 0043B    32300029 03           LW,XT1   CT                NEW FLAGS
      1755   02 0043C    6AE0045D              BAL,RL1  CNVCTRL
      1756   02 0043D    68000433              B        %20
      1757                            *
      1758         00F10100                    FI
      1759   02 0043E    32200024 03           LW,XT    CMND              HERE TO DO SYMBOL IN HAND
      1760   02 0043F    6A700474              CALL     SRCHCF1
      1761   02 00440    32200024 03           LW,XT    CMND
      1762   02 00441    4B20049E              AND,XT   L(VALFLD)
      1763   02 00442    32300029 03           LW,XT1   CT
      1764   02 00443    6AE0045D              BAL,RL1  CNVCTRL
      1765   02 00444    22200000 A            LI,XT    0
      1766   02 00445    35200048 03           STW,XT   TEMP
      1767   02 00446    E8000034 03           B        *MAPCXIT          EXIT
      1768                            *
      1769         00F10000                    FI
      1770                            *
      1771                            *        CURRENT SYMBOL IS MULTIPLY-OCCURRING, BUT IS NOT A CN
      1772                            *        CONTROL.  IF THERE WAS A PRIOR CN CONTROL IN THIS CHAIN,
      1773                            *        USE ITS FLAGS.  OTHERWISE, ENTER THIS SYMBOL IN CHAIN IN
      1774                            *        CASE A CN CONTROL POPS UP LATER.
      1775                            *
      1776   02 00447    32200024 03           LW,XT    CMND
      1777   02 00448    6A700474              CALL     SRCHCF1
      1778   02 00449    33000029 03           MTW,0    CT
      1779         001F0000                    IF,NZ                      DOIF PREVIOUS CONTROL FOR THIS SYM
             02 0044A    68300450
      1780   02 0044B    32200024 03           LW,XT    CMND
      1781   02 0044C    4B20049E              AND,XT   L(VALFLD)
      1782   02 0044D    32300029 03           LW,XT1   CT
      1783   02 0044E    6AE0045D              BAL,RL1  CNVCTRL
      1784         000E0000                    ELS                        ENTER CURRENT SYMBOL IN CHAIN
             02 0044F    6800045C
      1785   02 00450    22200048 03           LI,XT    TEMP
      1786   02 00451    3820002A 03           SW,XT    CTRLTBL
      1787   02 00452                 %30      RES      0
      1788   02 00452    32300002 A            LW,XT1   XT
      1789   02 00453    B286002A 03           LW,T1    *CTRLTBL,XT1
      1790   02 00454    52200008 A            LH,XT    T1
      1791   02 00455    4B20049E              AND,XT   L(VALFLD)
      1792   02 00456    69300452              BNEZ     %30               BRIF NOT OPEN ENTRY
      1793                            *
      1794   02 00457    32200024 03           LW,XT    CMND              ENTER
      1795   02 00458    4B20049E              AND,XT   L(VALFLD)
      1796   02 00459    25200010 A            SLS,XT   16
      1797   02 0045A    49800002 A            OR,T1    XT
      1798   02 0045B    B586002A 03           STW,T1   *CTRLTBL,XT1
      1799         00F10000                    FI
      1800   02 0045C    E8000034 03           B        *MAPCXIT          EXIT
1
      1802                            *
      1803                            *   C N V C T R L
      1804                            *        USE THE CTRLTBL SS & IO FLAGS TO COMPUTE WHICH SPACE COUNTS
      1805                            *        WILL BE USED BY PASS 2.
      1806                            *
      1807                            *        INPUT:   SYMBOL # IS (CLEAN) IN XT
      1808                            *                 IF FOUND NE 0, ENDX IS INDEX TO CF1PTR TABLE
      1809                            *                 CTBLFLGS (SS & IO) ARE IN XT1 (DIRTY)
      1810                            *
      1811                            *        CALL:    BAL,RL1  CNVCTRL
      1812                            *
      1813                                     LOCAL    %10
      1814                            *
      1815   02 0045D                 CNVCTRL  RES      0
      1816   02 0045D    B284002A 03           LW,T1    *CTRLTBL,XT
      1817   02 0045E    4B8004B0              AND,T1   L(CTBLCC||32BM1)  CLEAR  'CHECK CF1PTR' BIT
      1818         001F0000                    IF,AZ    CTBLIO,XT1        NO OP-CODE REFS TO BE USED
             02 0045F    313004B1
             02 00460    69400465
      1819   02 00461                 %10      RES      0
      1820         001F0100                    IF,ANZ   CTBLSS,XT1        NO SYMBOL REF'S, EITHER
             02 00461    313004AE
             02 00462    68400464
      1821   02 00463    4B8004B2              AND,T1   L(LOCFLD||32BM1)  SET SPACE COUNT TO ZERO
      1822         00F10100                    FI
      1823         000E0000                    ELS                        HAVE OP-CODE REFS INDICATED
             02 00464    68000472
      1824   02 00465    33000049 03           MTW,0    FOUND
      1825   02 00466    68300461              BEZ      %10               BUT ONLY IF USED AS AN OP-CODE
      1826                            *
      1827   02 00467    498004B3              OR,T1    L(CTBLCC)         SET 'CHECK CF1PTR' FLAG
      1828   02 00468    3260002E 03           LW,XT2   ENDX
      1829   02 00469    B29C0021 03           LW,T2    *CF1PTR,XT2       GET CF1PTR ENTRY (HAS SPACE COUNT)
      1830         001F0100                    IF,AZ    CTBLSS,XT1
             02 0046A    313004AE
             02 0046B    6940046F
      1831   02 0046C    499004AE              OR,T2    L(CFPTRSYM)       SET TO CONCORD BOTH SYM & OPS
      1832   02 0046D    B59C0021 03           STW,T2   *CF1PTR,XT2
      1833         000E0100                    ELS
             02 0046E    68000470
      1834   02 0046F    4B8004B2              AND,T1   L(LOCFLD||32BM1)  JUST OPS - CLEAR OPERAND SPACE COUNT
      1835         00F10100                    FI
      1836   02 00470    4B9004A4              AND,T2   L(OPTRFLD)
      1837   02 00471    30800009 A            AW,T1    T2                ADD OP SPACE COUNT TO CTRLTBL ITEM
      1838         00F10000                    FI
      1839   02 00472    B584002A 03           STW,T1   *CTRLTBL,XT       SAVE NEW CTRLTBL ITEM
      1840   02 00473    E800000E A            EXIT     RL1
1
      1842                            *  692  *
      1843                            *  693  *  S R C H C F 1
      1844                            *  694  *
      1845                            *  695  *        SEARCH THE OP CODE TABLE FOR THE SYMBOL NUMBER CONTAINED IN XT.
      1846                            *  696  *          THE OP CODE TABLE -(CF1PTR)- IS IN (ASCENDING) SEQUENCE
      1847                            *  697  *          BY SYMBOL NUMBER.
      1848                            *  698  *
      1849                            *  699  *        INPUT: XT CONTAINS THE SEARCH ARGUMENT IN THE LOW 13 BITS.
      1850                            *  700  *               NEXTOP CONTAINS THE NUMBER OF ENTRIES IN THE CF1PTR TBL.
      1851                            *  701  *
      1852                            *  702  *       OUTPUT: IF THE ARGUMENT IS FOUND, THE INDEX TO THE OP CODE
      1853                            *  703  *               TABLE IS IN ENDX, AND THE ROUTINE EXITS
      1854                            *  704  *               WITH FOUND = ONE   ; OTHERWISE THE ROUTINE EXITS
      1855                            *  705  *               WITH FOUND = ZERO
      1856                            *  706  *
      1857                            *  707  *       FORMAT OF THE OP CODE TABLE: 1 WD/UNIQUE CF1 SYMBOL.
      1858                            *  708  *               16 BITS FOR SYMBOL NUMBER - OSN FIELD
      1859                            *  709  *               16 BITS - PASS 1: OCCURRENCE COUNT - PASS 2:
      1860                            *  710  *               (HW) INDEX TO EBCDIC OP-CODE TABLE (CF1SYM).
      1861                            *  711  *
      1862                            *  712  *       REGISTERS USED: XT (MUST BE EVEN) ; XT1 (MUST BE XT+1) ; MIDX
      1863                            *  713  *
      1864   02 00474                 SRCHCF1  RES      0
      1865   02 00474    4B20049E              AND,XT   =X'1FFF'          CLEAR TYPE BITS
      1866   02 00475    22301FFF A            LI,XT1   X'1FFF'
      1867   02 00476    25200110 A            SLD,XT   16
      1868   02 00477    32400035 03           LW,MIDX  NEXTOP            INDEX TO NEXT AVAILABLE CF1TBL ADDR.
      1869   02 00478    3540002E 03           STW,MIDX ENDX
      1870   02 00479    35400039 03           STW,MIDX ORGX
      1871   02 0047A    22400000 A            LI,MIDX  0
      1872   02 0047B    35400049 03           STW,MIDX FOUND
      1873   02 0047C    46400039 03  SRCH1    XW,MIDX  ORGX              DELETE LOWER HALF OF TABLE
      1874   02 0047D    31400039 03  SRCH3    CW,MIDX  ORGX              NOT FOUND IF ORGX = OLD ORGX
      1875   02 0047E    683E0000 A            EXIT,EQ                    NOT-FOUND RETURN
      1876                            *
      1877   02 0047F    3240002E 03           LW,MIDX  ENDX              COMPUTE THE (HALF-WORD)
      1878   02 00480    30400039 03           AW,MIDX  ORGX                INDEX TO THE NEW
      1879   02 00481    2540007F A            SLS,MIDX -1                  MID-POINT OF THE TABLE
      1880   02 00482    C5280021 03           CS,XT    *CF1PTR,MIDX      COMPARE
      1881   02 00483    6920047C              BG       SRCH1             BRANCH IF ARGUMENT GT MIDPOINT ENTRY
      1882   02 00484    3540002E 03           STW,MIDX ENDX              IF ARG LT MIDPOINT ENTRY,
      1883   02 00485    6910047D              BL       SRCH3                DELETE UPPER HALF OF TABLE
      1884   02 00486    33100049 03           MTW,1    FOUND             EXIT FOR FOUND. MIDX HAS FOUND INDEX
      1885   02 00487    680E0000 A            EXIT                       FOUND - MIDX HAS FOUND INDEX
1
      1887                            *  738  *
      1888                            *  739  *   I N S R T C F 1
      1889                            *  740  *
      1890                            *  741  *        INSERT AN OPCODE SYMBOL NUMBER IN THE CF1PTR TABLE.
      1891                            *  742  *          SINCE THE TABLE IS IN ASCENDING SEQUENCE, THIS ROUTINE
      1892                            *  743  *          PRECESSES ALL WORDS FROM ENDX TO THE END OF CF1PTR ONE WORD.
      1893                            *  744  *
      1894                            *  745  *        INPUT: XT CONTAINS THE CLEAN ARGUMENT (IN BITS 3-15)
      1895                            *  746  *               ENDX CONTAINS THE INDEX TO CF1PTR TABLE WHERE THE
      1896                            *  747  *               ARGUMENT GOES.
      1897                            *  748  *               NEXTOP CONTAINS THE NUMBER OF ENTRIES IN CF1PTR
      1898                            *  749  *
      1899                            *  750  *       OUTPUT: ARGUMENT INSERTED IN CF1PTR, WITH END OF TABLE PRECESSED
      1900                            *  751  *               NEXTOP IS BUMPED BY 1.
      1901                            *  752  *
      1902                            *  753  *       REGISTERS USED: XT ; MIDX ; XT1
      1903   02 00488                 INSRTCF1 RES      0
      1904   02 00488    3A40002E 03           LCW,MIDX ENDX
      1905   02 00489    3230002E 03           LW,XT1   ENDX
      1906   02 0048A    30300021 03           AW,XT1   CF1PTR
      1907   02 0048B    3530002E 03           STW,XT1  ENDX              DESTINATION ADDRESS FOR MOVE
      1908   02 0048C    203FFFFF A            AI,XT1   -1
      1909   02 0048D    35300039 03           STW,XT1  ORGX              ORIGIN ADDRESS FOR MOVE
      1910   02 0048E    30400035 03           AW,MIDX  NEXTOP            COMPUTE NUMBER OF WORDS TO MOVE
      1911   02 0048F    68300493              BEZ      INSRT2
      1912   02 00490                 INSRT1   RES      0
      1913   02 00490    B2380039 03           LW,XT1   *ORGX,MIDX        PRECESS THE CF1PTR
      1914   02 00491    B538002E 03           STW,XT1  *ENDX,MIDX          TABLE BY ONE WORD
      1915   02 00492    64400490              BDR,MIDX INSRT1
      1916   02 00493                 INSRT2   RES      0
      1917   02 00493    B520002E 03           STW,XT   *ENDX             INSERT THE ARGUMENT IN CF1PTR TABLE
      1918   02 00494    33100035 03           MTW,1    NEXTOP            BUMP OP CODE COUNT
      1919   02 00495    680E0000 A            EXIT
      1920                            *
      1921                            CONCEND  END
             02 00496    00F80000 A
             02 00497    00800000 A
             02 00498    00400000 A
             02 00499    00280000 A
             02 0049A    00080000 A
             02 0049B    00100000 A
             02 0049C    0000E000 A
             02 0049D    000000FF A
             02 0049E    00001FFF A
             02 0049F    60000000 A
             02 004A0    A0000000 A
             02 004A1    7FFFFFFF A
             02 004A2    20000000 A
             02 004A3    035C5C5C A
             02 004A4    0000FFFF A
             02 004A5    0001FFFF A
             02 004A6    FFFF9FFF A
             02 004A7    0003FFFF A
             02 004A8    00001C00 A
             02 004A9    0000C000 A
             02 004AA    40404040 A
             02 004AB    0000000A A
             02 004AC    00006000 A
             02 004AD    615B6061 A
             02 004AE    80000000 A
             02 004AF    C0000000 A
             02 004B0    FFFDFFFF A
             02 004B1    40000000 A
             02 004B2    FFFE0000 A
             02 004B3    00020000 A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 004B4   PT 1     03 0004C   PT 0
1
  *    SYMBOL VALUES
           ARG/00000006             ASTFLG/00000008          AVAILMSG/02 0001A        AVAILSIZE/0000000A
           AVAILVAL/02 00021        BEGINEXP/00000007        BEGLIST/00000006         CFIX/03 00020
           CFPTRSYM/DPI             CF1PTR/03 00021          CF1REF/02 003B2          CF1SYM/03 00022
           CHARS/0000000F           CLEANCN/0001FFFF         CLOC/03 00023            CLRLSTBF/02 002B3
           CMND/03 00024            CNCF10/02 000AB          CNCF20/02 000AD          CNCF30/02 000B2
           CNCF40/02 000BC          CNCF50/02 000BF          CNCF60/02 000C1          CNCF70/02 000C4
           CNCF80/02 000C7          CNCLNUM/03 00025         CNERR/02 002B8           CNERRMSG/02 00013
           CNERRSIZE/00000007       CNERRXIT/03 00026        CNFLD/00001FFF           CNFLGFLD/00F80000
           CNIOFLG/00800000         CNIOFLG1/00400000        CNOSFLG/00080000         CNSSFLG/00200000
           CNSSFLG1/00100000        CNTBASE/02 000AA         CNTJMP/02 000BA          CNVCTRL/02 0045D
           CNVT/02 002C4            COMMENT#/00000000        COMP1/02 0007B           COMP2/02 0017B
           CONCTERM/02 00261        CONC10/02 00063          CONC20/02 000CC          CONC25/02 000E0
           CONC30/02 00162          CONC35/02 00216          CONC40/02 0022F          CONC50/02 00230
           CONTIN/03 00027          COREBLOCK/03 00028       CR/00002000              CT/03 00029
           CTBLC/20000000           CTBLCC/00020000          CTBLFLGS/DPI             CTBLFLOB/00000001
           CTBLIO/40000000          CTBLSS/DPI               CTCHRS/02 002CC          CTCHR1/02 002CD
           CTRLTBL/03 0002A         CTSPACE/02 00404         CURRLINE/03 0002B        DECTBL/02 002D1
           ENCSSYM/00008000         ENCSYM/00004000          ENCTFLD/0000E000         ENCTINT/0000C000
           ENCTLOB/00000012         END#/00000007            ENDBUFF/000020FF         ENDDIR/00004007
           ENDEXP/00000004          ENDLINE/00000000         ENDLIST/00000002         ENDSBSYM/00000003
           ENDX/03 0002E            FOUND/03 00049           INBUF/EXT                INITCTBL/02 00050
           INSRTCF1/02 00488        INSRT1/02 00490          INSRT2/02 00493          IOADD/00000008
           IORL/0000000A            IOSIZE/00000009          IR/00006000              L#/0000004F
           LASTCOREHW/03 00030      LASTREF/03 00031         LFLD/000000FF            LINE/02 00054
           LINENUM/02 00315         LINENUM1/02 0031D        LINENUM2/02 00323        LINENUM3/02 00329
           LINENUM4/02 0032E        LINENUM5/02 00333        LINENUM6/02 00332        LINENUM7/02 0033F
           LINENUM8/02 00341        LINESP/03 0002F          LINE2/02 00152           LINUMXIT/03 00032
           LISTCT/0000000B          LN1/02 00066             LN10/02 000A4            LN12/02 00103
           LN13/02 000FB            LN14/02 0010D            LN2/02 00060             LN20/02 00164
           LN21/02 00173            LN22/02 00175            LN23/02 00178            LN3/02 00068
           LN31/02 00199            LN32/02 001A0            LN33/02 001A2            LN34/02 001C0
           LN35/02 00225            LN36/02 00227            LN4/02 00076             LN40/02 0024C
           LN42/02 00256            LN45/02 0025A            LN5/02 00079             LN7/02 00093
           LN8/02 0009B             LN9/02 0009D             LOCFLD/0001FFFF          LR/00004000
           LSSYM/0000804F           MAJLINE/03 00033         MAPCTRL/02 0040B         MAPCXIT/03 00034
           MIDX/00000004            MOFLG/00002000           MOVEMSG/02 002D6         MOVEMSG1/02 002D7
           MULTINT/0000E000         NEXTOP/03 00035          NOREFS/02 00252          NR/00000000
           NUMRECX3/03 00036        NXSTWD1/02 00312         NXTCNREC/02 0030A        NXTRECRD/02 00307
           NXTSTWD/02 0030E         NXTSTXIT/03 00037        OPREFS/03 00038          OPTRFLD/0000FFFF
           ORGX/03 00039            OUTX/00000005            PASSINIT/02 00301        PASS1/02 0004B
           PATCH/03 00000           PRINT/02 002FD           RADBUFFER/03 0003A       RADHW/0000000C
           RADOVTRIG/03 0003B       RDRADRCD/02 002DB        RDRAD1/02 002E2          RDRAD2/02 002EF
           REQDMSG/02 00009         REQDSIZE/0000000A        REQDVAL/02 00010         RESIDUE/03 00040
           RFO/03 00041             RL/00000007              RL1/0000000E             RL2/0000000F
           RTFLD/00006000           RTLOB/00000012           RTYP/03 0003C            S:S/FUNC
           SAVEOP/02 000FF          SKIPSXIT/03 00042        SKIPSYS/02 00268         SKIPS1/02 00272
           SLFLD/00008000           SPACELOB/0000000D        SPILLMSG/02 00000        SPILLSIZE/00000009
           SRCHCF1/02 00474         SRCH1/02 0047C           SRCH3/02 0047D           STLN1/02 00359
           STLN10/02 0036B          STLN2/02 00368           STLN3/02 00369           STLN30/02 00395
           STLN32/02 003AD          STLN4/02 0036F           STLN5/02 00375           STLN9/02 0035D
           STOPCODE/03 00043        STOREREF/02 003BD        STOREREFXIT/03 0003D
           STORERF1/02 003F7        STORERF2/02 00400        STORLN/02 00345          STORLXIT/03 00044
           STORREFU/02 003D2        SUBLINE/03 00045         SYMREFS/03 00046         SYSCODE/02 0026B
           SYSCOUNT/03 00047        SYSTEM#/00000004         SYSTEMDIR/00004004       TABTBL/02 003B0
           TABX/00000004            TEMP/03 00048            TEST3/02 00151           TEST4/02 00144
           TOT/0000000D             T1/00000008              T2/00000009              VALFLD/00001FFF
           WRITERADRCD/02 002F2                              WTRAD1/02 002F9          XT/00000002
           XT1/00000003             XT2/00000006             XW/00000001              XWBASE/03 0004A
           1STAFREF/03 0004B        1STCOREHW/03 0003F       1STRADHW/03 0003E        32BM1/DPI
           #100/02 00075            #105/02 00272            #106/02 002A8            #107/02 002AF
           #108/02 002B2
  *    EXTERNAL DEFINITIONS
           CNCP/02 00000            CONCEND/02 004B4         CONCORD/02 00024         XAPDATA/03 00000
  *    PRIMARY REFERENCES
           CLOSEX5        DC%FLAG        ENDCORE        HWX1SIZE       LOWCORE        LSTBF          NXSYMB
           OPENX5         PGLINES        READX1         READX3         READX5         REWX1          REWX3
           ROOTRTN        SEGMENT#       WRITELO        WRITEX5        X1BUF
  * NO SECONDARY REFERENCES
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
