BANNER TELEFILE,AP H00,APNCD.
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     NN         NN     CCCCCCCCCCC     DDDDDDDDDDD
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    NNN        NN    CCCCCCCCCCCCC    DDDDDDDDDDDD
                 AA         AA    PP         PP    NNNN       NN    CC         CC    DD         DD
                 AA         AA    PP         PP    NN NN      NN    CC               DD         DD
                 AA         AA    PP         PP    NN  NN     NN    CC               DD         DD
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    NN   NN    NN    CC               DD         DD
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     NN    NN   NN    CC               DD         DD
                 AA         AA    PP               NN     NN  NN    CC               DD         DD
                 AA         AA    PP               NN      NN NN    CC               DD         DD
                 AA         AA    PP               NN       NNNN    CC         CC    DD         DD
                 AA         AA    PP               NN        NNN    CCCCCCCCCCCCC    DDDDDDDDDDDD
                 AA         AA    PP               NN         NN     CCCCCCCCCCC     DDDDDDDDDDD




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     NN         NN     CCCCCCCCCCC     DDDDDDDDDDD
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    NNN        NN    CCCCCCCCCCCCC    DDDDDDDDDDDD
                 AA         AA    PP         PP    NNNN       NN    CC         CC    DD         DD
                 AA         AA    PP         PP    NN NN      NN    CC               DD         DD
                 AA         AA    PP         PP    NN  NN     NN    CC               DD         DD
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    NN   NN    NN    CC               DD         DD
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     NN    NN   NN    CC               DD         DD
                 AA         AA    PP               NN     NN  NN    CC               DD         DD
                 AA         AA    PP               NN      NN NN    CC               DD         DD
                 AA         AA    PP               NN       NNNN    CC         CC    DD         DD
                 AA         AA    PP               NN        NNN    CCCCCCCCCCCCC    DDDDDDDDDDDD
                 AA         AA    PP               NN         NN     CCCCCCCCCCC     DDDDDDDDDDD




ASSIGN M:CI,(FILE,CI:APNCD,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APNCD,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    A
            148-SET        154/DO         167-SET        187/CLOSE
    ABORT
             42/REF
    ABORT21
            194-EQU       2330/ABORT
    ABORT3
            192-EQU       3297/ABORT
    ABORT4
            193-EQU       3623/ABORT
    ABSVAL
            206/RES        230/RES
    ABSVAL#
            537-ISYM
    ACUM
           2523/BAL       2527/BAL       2655-STW       2713/BAL
    ACUMLNK
            280-EQU       2655/STW       2685/B*        2687/B*
    ACUMSPCH
            274-TEXTC     2682/CB
    ACUMX
           2659/BAZ       2681-LI
    ACUMX1
           2682-CB        2686/BDR
    ACUMX2
           2683/BNE       2686-BDR
    ACUM1
           2656-BAL       2672/BCR       2674/B         2678/BCS       2680/B
    ADDRESS
            338-EQU        984/AND        989/AND        993/AND
    ADDRSIZE
            337-EQU        338/EQU        340/EQU        342/EQU       1015/SLS
    AF
            129/RES        137/DO         138/DO         155/DATA       157/DO         158/ISGEN      160/DO
            161/ISGEN      163/ISGEN      167/SET        173/DO         184/GEN        184/GEN        184/GEN
            457/TEXTC
    AF#
            527-ISYM
    AFA#
            528-ISYM
    AFTER%LS
           1420/BEZ       1422/BNEZ      1450-EQU
    ALF
            885/IS        1051-RES
    ALFLAG
            211-RES        689/STW       1054/MTW       1082/STW       1589/MTW       1594/MTW
    ALF1
           1055-RES       1065/B
    ALF2
           1058/BNE       1062-RES
    ALF3
           1069/BL        1071-RES       2119/B
    ALF4
           1076/BAZ       1080-RES
    ALF5
           1061/BNE       1066-RES
    ALF6
           1090-BAL
    ALF7
           1088-RES       1092/BDR
    ALPH
            573-EQU        581/DATA       584/DATA       587/DATA       587/DATA       588/DATA       593/DATA
            596/DATA       600/DATA       604/DATA      2382/LI        2389/LI
    ANDOP
            311-EQU        866/IS
    ANYLABEL
            834/IS         836-IS
    ANZ
           1324/IF
    AOV1
           2667/BOV       2670/BOV       2675-SLD
    AOV2
           2664/BOV       2677-LC
    AR
            191-EQU
    ASECT#
            471-ISYM
    ATTRIBCK
            884/IS        2366-RES
    BA
           2105/LI
    BA#
            533-ISYM
    BALFLD
            411-EQU       2880/CI        3112/CI        3118/AND       3171/LI        3229/LI        3268/LI
    BALWD
            409-EQU        422/EQU       3111/LW        3117/AW        3172/STS       3230/STS       3231/STS
           3247/STS       3269/STS
    BEGINEXP
            305-EQU        859/IS
    BEGINLIST
            304-EQU        834/IS         837/IS         839/IS         860/IS
    BLANK
            830/IS         831/IS         835/IS         836/IS         836/IS        1102-RES
    BLANKEXP
            303-EQU        835/IS         852/IS         854/IS         856/IS         887/IS        1146/LI
    BLANK16
            838/IS         839/IS         840/IS        1105-RES
    BLDCONE6
           2529/BE        2539/BCR       2609/BG        2611/BL        2638-RES       2715/BCS
    BLDCONX1
           2627/B         2646-LCI
    BLNKLBL
            835/IS        1136-RES
    BLNKLBL2
           1111-RES       1145/BNE
    BLNKLBL3
           1139/BE        1153-LI
    BLNKLBL5
           1143/BE        1158-RES
    BLNK1
           1104/B         1107-RES
    BLNK2
           1110/BE        1115-RES       1131/BDR       1162/B
    BLNK3
           1117/BE        1129-RES
    BLNK4
           1122-RES       1132/B
    BOFFSET
            422-EQU       2879/LW
    BOUND#
            481-ISYM
    BTBL
           2588/EXU       2594/EXU       2802-BAL
    BUFPTR
            212-RES        953/STW        975/CW        1560/LW        1569/STW       1572/CW        1986/CW
    BUFSI
             70/REF       1432/LM        1434/LM        1451/LI        1464/CW        1467/CW        1564/LM
           1566/LM
    BYX3SIZE
             56/REF        634/LI        1514/LI        1545/LI
    CARDADDR
            213-RES       1452/STW       1469/AWM       1471/CW*       1475/MTW       1486/LB*       1499/LB*
           1505/LB*
    CF#
            529-ISYM
    CF1BUF
            287-EQU       3497/STH
    CF1FLD
            418-EQU       1196/LW        1744/AND       1747/LW        1962/LW        2286/LW        3464/CW
           3705/AND       3710/LW
    CF1OUT
           3361/BAL       3466/BAL       3490-RES
    CF1OUT1
           3492/BL        3496-RES
    CF1SYM
            839/IS         839/IS        1173-RES
    CF1S2
           1200-RES       1228/B
    CF1S7
           1177/B         1193-RES
    CF1S8
           1179/BL        1192/B         1195-RES
    CHAR
            994/BAL       1056/BAL       1059/BAL       1108/BAL       1118/BAL       1581-RES       1694/B
           1712/BAL       1722/BAL       1764/BAL       1800/BAL       1807/BAL       1823/BNC       1825/BNOV
           1827/B         1852/BAL       1865/BAL       2159/BAL       2169/BAL       2176/BAL       2235/BAL
           2381/BAL       2392/BAL       2407/BAL       2697/BAL
    CHARACTEREF
            988/BAZ        992-RES
    CHARTEMP
            214-RES       1597/STW       1693/LW
    CHAR1
           1587/BLE       1593-RES
    CHAR2
           1602/BLE       1660-RES
    CHAR4
           1663-RES       1666/BL
    CHAR5
           1598-RES       1677/B
    CHAR6
           1659/B         1667-RES
    CHAR7
           1670/BE        1672/BE        1682-RES       1688/BE        1691/BE
    CHAR8
           1675/BNE       1678-RES       1685/BE
    CHAR9
           1680/B         1692-RES
    CHK%PRNT
           1428/CALL      3311/CALL      3570-RES
    CIRDREGS
             83/REF        712/STM
    CIREC#
             81/REF        693/STW
    CIREGS
            622-DATA       711/LM
    CLOFLD
            416-EQU       1704/LW        1744/AND       1747/LW        1962/LW        2286/LW        2914/CW
           2916/CW        2928/CW        3467/CW        3705/AND       3710/LW        3867/CW        3870/IF
           3882/IF
    CLOSE
            434/HALF       844-IS
    CLOSE#
            463-ISYM       555/EQU
    CLOSEDIR
            273/DATA       555-EQU
    CLOSESYM
            844/IS         845/IS        1699-RES
    CLRLSTBF
             79/REF       1430/BAL       3378/BAL       3386/BAL       3410/BAL
    CL1
            877/IS         878-IS
    CL2
            874/IS         875-IS
    CL3
            872/IS         873-IS
    CL4
            867/IS         868-IS
    CL5
            865/IS         866-IS
    CL6
            861/IS         862-IS
    CL6A
            862/IS         864-IS
    CMNDERR
            837/IS        1226-RES
    CMPCHAR
            215-RES       1482/STW       1487/STW       1500/CW        1506/CW        1510/LW        1522/LW
           1529/LW
    CMPEND
           1485/B         1498/B         1504/B         1532-CI
    CMPEND15
           1534/BG        1537-CI
    CMPEND20
           1538/BG        1549-BAL
    CMPEND25
           1468/BE        1533/BE        1536/BGE       1540/LI        1550-LI
    CMPOUT
           1493/BAL       1495/BAL       1521/BAL       1523/BAL       1528/BAL       1530/BAL       1541-RES
           1551/BAL
    CMPOUTSV
            258-RES        635/STW       1460/LW        1552/STW
    CMPOUT3
           1542/BIR       1546-RES
    CMPRPT
           1508/BAL       1518-CI        1531/B         1549/BAL
    CMPRPT5
           1519/BG        1526-AI
    CMP15
           1465/BNE       1469-AWM
    CMP16
           1471-CW        1474/BIR
    CMP17
           1472/BNE       1475-MTW
    CMP25
           1479/BE        1484-BIR       1496/B
    CMP26
           1487-STW       1509/B         1517/B
    CMP35
           1489/BG        1491/BL        1497-BIR
    CMP45
           1502-AI        1507/BE
    CMP46
           1483/B         1503-BIR
    CMP50
           1508-BAL
    CMP55
           1501/BNE       1510-LW
    CMP60
           1511/BIR       1515-RES
    CNAME#
            482-ISYM       556/EQU
    CNAMEDIR
            269/DATA       556-EQU        790/CI        1217/CI
    CNCMND
            819/IS         820-IS
    CNCTRL
            216-RES        684/STW        766/MTW        773/MTW       1255/LW        1268/LW        1286/LW
           1290/STW       1322/LW        1326/STW       1340/LB        1351/MTW       1367/LW        1374/STW
           1411/MTW       2333/MTW       3539/MTW
    CNDSCMND
            823/IS         829-IS
    CNDSFLG
            348-EQU       1282/LV
    CNDSMODE
            349-EQU       1281/LV        1341/CV
    CNERR
            350-EQU       1399/LV
    CNERR1
            819/IS        1381-RES
    CNERR1%MSG
            614-TEXT      1385/LM
    CNERR2
            825/IS        1257/BANZ      1270/BANZ      1398-RES
    CNFLGFLD
            347-EQU       1287/AND       1368/AND
    CNIOCMND
            820/IS         826-IS
    CNIOFLG
            351-EQU       1247/LV
    CNIOFLG1
            352-EQU       1310/LV
    CNIOMODE
            353-EQU       1246/LV
    CNLIST
            828/IS         829/IS         830/IS         831-IS
    CNLOOP
            767-RES        774/BNEZ
    CNOSCMND
            822/IS         828-IS
    CNOSFLG
            354-EQU       1256/CV        1273/LV
    CNOSMODE
            355-EQU       1272/LV
    CNSSCMND
            821/IS         827-IS
    CNSSFLG
            356-EQU       1260/LV        1269/CV
    CNSSFLG1
            357-EQU       1318/LV
    CNSSMODE
            358-EQU       1259/LV
    CNSYM
            831/IS         832/IS        1337-RES
    CNSYN
            771/LI         819-IS
    CNTERM
             40/DEF        819/IS         824/IS        1358-RES
    CO%BUF
             83/REF        703/STW        706/STW
    CO%REGI
             83/REF        709/STM
    CO%REGS
            624-DATA       708/LM
    COM#
            483-ISYM       558/EQU
    COMDIR
            558-EQU        794/CI        1215/CI
    COMMACK
            887/IS        1711-RES
    COMMACK1
           1713-RES       1728/BNE
    COMMAND
            833/IS         837-IS
    COMNT#
            462-EQU        557/EQU
    COMNTDIR
            557-EQU       1148/LI
    COMPTE%CI
             82/REF        715/STW
    COM1
            837/IS         839-IS
    CONTIN%ERROR
            217-RES        934/STW       1679/MTW       1762/LW        2404/MTW
    CONVTBL
            578-RES       1801/LB        1808/LB        1853/LB        1866/LB        2171/LB        2177/LB
           2383/CB        2394/CB        2396/CB        2408/CB        2657/LB
    CREATE1ST
            641/LI        1736-RES       2947/BAL
    CREATE1STS
           3034/LI        3702-RES       3871/CALL
    CREATE1STV
            218-RES        642/STW       2025/CALL*     3035/STW
    CRE8XIT
            219-RES       3703/STW       3733/B*
    CRG
            372-EQU        995/CW        1057/CI        1060/CI        1064/STB       1077/LI        1078/STB
           1081/LI        1082/STW       1089/LH        1091/AI        1109/CI        1112/CI        1116/CB
           1119/CI        1137/LW        1138/CW        1140/LB        1142/CI        1144/CI        1155/CW
           1161/LI        1582/LB        1584/CI        1588/LI        1591/LI        1668/LB        1669/CI
           1671/CI        1674/CI        1686/LB        1687/CI        1690/CI        1714/CI        1723/CI
           1725/CI        1727/CI        1765/CI        1767/CI        1801/LB        1808/LB        1808/LB
           1809/CI        1811/AND       1822/AW        1853/LB        1853/LB        1854/CW        1863/AND
           1864/OR        1866/LB        1866/LB        1867/CW        2161/CI        2166/CI        2171/LB
           2177/LB        2213/LI        2214/AW        2236/CI        2238/CI        2274/LW        2275/CW
           2277/CW        2288/LW        2367/CI        2383/CB        2394/CB        2396/CB        2398/STB
           2402/STB       2408/CB        2410/CI
    CS
            157/DO
    CS#
            538-ISYM
    CSECT#
            484-ISYM
    CT
            378-EQU       1185/LW        1461/LI        1473/AI        1478/CI        1480/AI        1502/AI
           1518/CI        1520/LW        1524/LI        1526/AI        1537/CI        1743/LW        1744/AND
           1745/STW       1786/LCW       1789/LCW       1790/AW        1791/SLS       1844/LI        1854/CW
           1867/CW        1926/LW        1927/SW        1928/SLS       2004/LI        2171/LB        2172/CI
           2177/LB        2178/CI        2197/AND       2198/SLS       2199/OR        2209/LH        2255/CI
           2291/AI        2889/LB        2890/CB        2892/LB        2894/BDR       2901/BDR       2904/LB
           2905/CB        2910/LW        2912/AND       2914/CW        2916/CW        2927/LW        2928/CW
           2932/CW        2937/LW        2941/CW        3061/LV        3062/AND       3064/LI        3066/STW
           3076/LW        3077/CI        3087/LW        3088/SLS       3089/STW       3093/LW        3094/STW
           3111/LW        3112/CI        3115/AND       3116/SLS       3117/AW        3118/AND       3119/CI
           3146/LW        3147/CI        3158/LW        3159/CI        3182/LW        3183/CI        3189/LW
           3190/CI        3198/LW        3199/CI        3216/LW        3217/CI        3243/LW        3244/CI
           3264/LW        3265/CI        3274/LW        3275/CI        3287/LB        3288/AI        3289/AWM
           3837/LB        3838/CB        3840/LB        3843/AI        3851/BDR       3857/LB        3858/CB
           3863/LW        3865/AND       3867/CW        3870/IF        3881/LW        3882/IF        3885/IF
           3895/LW        3901/IF        4009/LW        4010/SLS       4011/STW       4015/LW        4016/STW
           4024/LB        4025/AI        4026/AWM
    CTBL
           2727/MW        2729/MW        2742/DW        2746/DW        2805-DATA
    CT1
            329-EQU       2207/LI
    CT2
            330-EQU       1073/LI
    CT3
            331-EQU       2508/LI
    CT4
            332-EQU       2514/LI
    CT5
            333-EQU       2511/LI
    CURLOCNT
            221-RES       1913/STW       1973/MTW       1994/AW
    CURRCMND
            220-RES        687/STW        786/LW         809/STW       1174/LW        1201/STW       1915/CW
    DA#
            536-ISYM
    DATA#
            470-ISYM
    DC%FLAG
             43/REF        761/MTH       1362/LH        1372/STW
    DEC
            574-EQU        608/DATA       610/DATA       610/DATA      1802/CI        1809/CI        2172/CI
           2178/CI        2382/LI        2658/CI
    DEDIT
             44/REF       3397/BAL       3408/BAL
    DEF#
            477-ISYM
    DELIM
            857/IS         860/IS        1721-RES
    DF1
           2629/BAZ       2631-AI
    DIR
            222-RES       3066/STW       3961/STW       3967/STW       3992/AW
    DIRBR
            432-RES       1206/LH
    DIRFLD
            404-EQU       2870/LI        3061/LV        3077/CI        3100/CI        3106/CI        3115/AND
           3127/CI        3133/LI        3140/CI        3147/CI        3159/CI        3177/CI        3183/CI
           3190/CI        3199/CI        3217/CI        3237/CI        3244/CI        3250/CI        3265/CI
           3275/CI        3816/LI
    DIRWD
            410-EQU        423/EQU       3134/LW        3135/CS        3139/LW        3146/LW        3158/LW
           3182/LW        3189/LW        3198/LW        3216/LW        3243/LW        3264/LW        3274/LW
    DISP#
            485-ISYM
    DIV
           2741-SAD       2803/BAL
    DIVOP
            320-EQU        876/IS
    DO#
            486-ISYM
    DOFFSET
            423-EQU       2986/STS       2993/STS       3062/AND       3076/LW
    DOFX
           2597/BANZ      2628-CI
    DO1#
            487-ISYM
    DRIVER
            772/CALL       785/BAL        931-RES
    DRIVEREXIT
            198-RES        932/STW       1038/B*
    DRIVR1
            957/BNEZ       959/BEZ        961-RES
    DRIVR2
            963/BG         966-RES
    DRIVR3
            965/B          970-RES
    DSECT#
            488-ISYM
    DSLNCTRL
            223-RES        716/STW       1301/STW       2913/STS       3573/MTW       3581/STW       3866/STS
    DSSYMBIT
            417-EQU       1343/LV        2911/LV        3338/AND       3864/LV
    DV1
           2753/BNOV      2757-SLD
    ELSE#
            473-ISYM
    ENCTLOB
            334-EQU        350/EQU
    ENCTYPE
            335-EQU
    ENCVAL
            336-EQU       1182/AND       1190/AND       1205/AND
    END#
            469-ISYM       559/EQU
    ENDBUF
            298-EQU       3529/LI        3543/LV
    ENDCNCOM
           1311/B         1321-RES
    ENDCNDS
            829/IS        1297-RES
    ENDCNIO
            826/IS        1309-RES
    ENDCNSS
            827/IS        1317-RES
    ENDCORE
             66/REF        656/LW         657/LW         719/LW        3391/LW        3405/LW
    ENDDIR
            559-EQU        796/CI
    ENDEQN
            174/ISGEN     1027-NOP
    ENDEXP
            302-EQU        859/IS
    ENDIRCTV
            813/BEZ       3310-RES
    ENDLINE
            842/IS         842/IS         844/IS         844/IS         848/IS         848/IS         850/IS
            851/IS         852/IS         852/IS        1761-RES
    ENDLINE1
           1766/BE        1768/BE        1772-RES
    ENDLINE2
           1763/BNEZ      1769-RES
    ENDLIST
            300-EQU        834/IS         838/IS         840/IS         860/IS
    ENDLN
            299-EQU        828/IS        1150/LI        1327/LV        1401/LV        1773/LI
    ENDSBSYM
            301-EQU        858/IS         891/IS
    EOF%FLAG
             59/REF        694/STW
    EQ
            754/IF        1342/IF        1364/IF        1739/IF        2963/IF        3717/IF        3833/IF
           3859/IF        3923/IF
    EQU#
            489-ISYM
    EQUALOP
            312-EQU        868/IS
    ERROR#
            490-ISYM
    ETBL
           2735/AH        2749/SH        2820-DATA
    EXCHSLOC
            841/IS        1216/BE        1218/BE        1221/B         1780-RES
    EXCHS1
            806/BAL       1781/BAL       1783-RES
    EXITS
           2569/BEZ       2615/BAZ       2619/B         2622-CI        2637/BNOV
    EXITSYN
            828/IS        1037-RES       1152/B         1303/B         1330/B         1375/B         1775/B
    EXPR
            855/IS         855/IS         857-IS         858/IS
    EXS1
           2623/BAZ       2626-STW
    EZ
           1425/IF        2329/IF        3540/IF        3820/IF
    FALSE
            998-RES       1011/B         1114/B         1716/B         1803/BAZ       1856/B         2174/B
           2384/BAZ       2397/BAZ       2400/B         2411/BE
    FALSE1
           1003/BNE       1012-RES
    FALSE2
           1009-AI        1019/BNE
    FA1
            874/IS         875/IS         875/IS         876/IS         877-IS
    FA2
            872/IS         873/IS         873/IS         874-IS
    FA3
            867/IS         868/IS         868/IS         869/IS         869/IS         870/IS         870/IS
            871/IS         872-IS
    FA4
            865/IS         866/IS         867-IS
    FA5
            861/IS         864/IS         864/IS         865-IS
    FC1
           2509/B         2512/B         2515-STW
    FC2
           2525/BCR       2528-CI
    FC3
           2532/BCR       2536-CI
    FC4
           2537/BAZ       2545/BCS       2547/BCR       2550-RES
    FFFGNC
           2656/BAL       2692-RES       2787/BAL
    FFFGNCLNK
            282-EQU       2693/STW       2702/B*
    FFFSAVE
            279-EQU       2517/STM       2647/LM        2695/STM       2696/LM        2699/STM       2700/LM
           2701/LW        2796/MTW
    FIN%X1
             71/REF       1365/BAL
    FIN#
            474-ISYM
    FIRSTREC
            224-RES        685/STW       1424/MTW       1426/MTW
    FIRSTST
            254-RES        727/STW       3593/LW        3614/LW        3643/LW        3661/LW
    FIRSTSTSDF
            289-EQU       3594/CW
    FLC
            889/IS        2510-LI
    FNAME#
            491-ISYM       560/EQU
    FNAMEDIR
            269/DATA       271/DATA       560-EQU        792/CI        1219/CI
    FND
            225-RES       1344/STS*      2878/STW       2886/CW*       2890/CB*       2892/LB*       2899/CS*
           2905/CB*       3073/STW       3826/STW       3832/CW*       3838/CB*       3840/LB*       3848/CS*
           3858/CB*       3999/STW       4021/LW
    FNZ
           3870/IF        3885/IF
    FSC
            888/IS        2513-LI
    FXC
            888/IS        2507-LI
    FXDORFLT
            885/IS         888-IS
    FZ
           3882/IF        3901/IF        3915/IF
    G
            662/IF         949/IF        1359/IF        3009/IF        3016/IF        3766/IF        3839/IF
           3986/IF
    GE
           3023/IF
    GEN#
            492-ISYM
    GET2
           2533/BAL       2541/BAL       2548/BAL       2707-LCI
    GET2REGS
            208-RES       2708/STM       2721/LM
    GF
            836/IS         852/IS         853-IS         860/IS         891/IS
    GFN
            840/IS         853/IS         854-IS
    GLFLD
            419-EQU       1954/LW        2260/AND       2271/LI        2273/LI        2944/AND       3353/AND
           3904/AND
    GLOFFSET
            424-EQU       1971/STW       2284/STS       2908/LW        2938/LW        2994/LW        3352/LW
           3861/LW        3896/LW        3968/LW
    GLWD
            406-EQU        424/EQU       1960/STS       2283/STS       3102/LW        3108/LW        3129/LW
           3153/LW        3154/STS       3161/STS       3179/LW        3193/LW        3207/STS       3212/STS
           3214/LW        3225/STS       3239/LW        3253/LW        3277/LW
    GNUM
            132-SET        140-SET        140/SET        149/ERROR      150/DO         187/CLOSE
    GOTO#
            493-ISYM
    GRPCT
            133-SET        142-SET        142/SET        151/SET        152-SET        152/SET
            187/CLOSE
    GRTROP
            316-EQU        869/IS
    GTEQOP
            314-EQU        869/IS
    GZ
            661/IF        3844/IF
    HA#
            534-ISYM
    HED
            207-RES        279/EQU        405/EQU        406/EQU        407/EQU        408/EQU        409/EQU
            410/EQU        412/EQU        413/EQU        422/EQU        423/EQU        424/EQU        425/EQU
            426/EQU        427/EQU        674/AI         681/STW        725/AI         738/STB        945/AI
           1755/AI        1945/AI        1968/AI        2036/LB        2264/AI        2266/AI        2426/STB
           2867/LI        2877/AI        2889/LB        2898/LW        2904/LB        2926/AI        2968/AI
           2980/AI        2998/AI        3021/AI        3072/AI        3285/AI        3324/LW        3331/AI
           3333/AI        3337/LW        3339/STW       3347/AI        3424/AI        3426/AI        3429/LW
           3434/LB        3436/LB        3453/AI        3455/AI        3459/LW        3460/LW        3475/LW
           3480/AI        3482/AI        3486/LW        3601/STW       3617/STW       3649/LW        3662/LW
           3725/AI        3814/LI        3824/AI        3837/LB        3847/LW        3857/LB        3879/AI
           3933/AI        3948/AI        3997/AI        4001/AI
    HEDSDF
            292-EQU       3600/LW
    HEX
            575-EQU        593/DATA       608/DATA       610/DATA       610/DATA      1844/LI
    HEXC
            884/IS        1843-RES
    HEXC1
           1847-RES       2007/B
    HEXC10
           1884/B         1898-RES
    HEXC11
           1093/B         1900-RES
    HEXC2
           1857-RES       1868/BANZ
    HEXC3
           1855/BANZ      1862-RES
    HEXC5
           1878-RES       1889/B
    HEXC6
           1872/BEZ       1885-RES
    HEXC7
           1887/BEZ       1890-RES
    HEXC8
           1882-BAL       1894/B
    HEXC9
           1892/BLE       1895-RES
    HWX1SIZE
             45/REF        285/EQU       3509/CI
    HWX3SIZE
             56/REF       3491/CI
    I
            592-DO         593/DATA       607-DO         608/DATA
    I
            137-DO         138/DO         147-SET        155/DATA       157/DO         158/ISGEN      160/DO
            161/ISGEN      163/ISGEN      167/SET        169-SET        169/SET        173/DO         177-SET
            177/SET        187/CLOSE
    I:#
            451-SET        455-SET        455/SET        456/EQU        462/EQU        547-SET        547/SET
    II
            151-SET        153/DO         158/ISGEN      161/ISGEN      163/ISGEN      168-SET        168/SET
            187/CLOSE
    IL
           1204/IF
    IM@COPY
             73/REF       2109/BAL
    IM@END
             75/REF        814/BAL       3315/BAL
    IM@MAJOR
             61-EQU        696/STW        955/LW         969/LW        1440/LW        1605/LW
    IM@MINOR
             62-EQU        697/STW        958/MTW       1438/LW        1608/MTW
    IM@NAME
             73/REF       2106/STW       2108/STB
    IM@READ
             72/REF       1417/BAL
    IM@SYS
             74/REF       2111/MTW
    IN
            366-EQU        733/LI         735/LB*        739/LW*        740/AI         745/LW*        746/AI
            757/CI         933/LI         934/STW        978/STM       1005/LM        1021/LM        1072/AI
           1116/CB        1121/AI        1123/CW        1126/LW        1130/AI        1141/LI        1153/LI
           1157/LI        1160/SW        1451/LI        1452/STW       1582/LB        1583/AI        1586/CW
           1599/LW        1618/LW        1619/AI        1621/AWM       1622/AI        1623/CW        1626/LW
           1627/AW        1628/STW       1629/CI        1640/AI        1643/STH       1656/LW        1661/LW
           1662/LI        1664/AI        1665/CW        1668/LB        1676/AI        1683/AI        1684/CW
           1686/LB        1833/AI        2117/AI        2370/AI        2428/AI        3615/LI        3625/CI
           3627/LW        3628/AI        3633/LI
    INBUF
            226-RES        723/STW        952/STW       1116/CB*       1138/CW*       1140/LB*       1155/CW*
           1582/LB*       1668/LB*       1686/LB*       3326/STW*      3343/STW*      3346/LW*       3356/STW*
           3420/LW*       3449/LW*
    INBUFLMT
            227-RES        667/STW        948/CW         950/LW        3022/CW
    INCLDIV
            321-EQU        875/IS
    INCOREB#
            228-RES       3048/STW       3764/LW        3776/STW       3782/LW
    INCOREBMAX
            229-RES       3049/STW       3765/CW        3767/STW       3783/CW
    INCOREH
            233-RES       3053/STW       3781/STW
    INCOREL
            232-RES       3051/STW       3779/STW       3790/SW
    INCORELH
            231-RES       3759/CLM
    INCORESF
            234-RES       1191/MTW       1198/MTW       1345/MTW       1706/MTW       1961/MTW       2268/MTW
           3055/STW       3712/MTW       3729/MTW       3761/MTW       3771/STW       3918/MTW       3937/MTW
           3995/MTW       4007/MTW
    INCR
            340-EQU       1014/AND
    INCRSIZE
            339-EQU        340/EQU        342/EQU
    IND
            131-SET        139-SET        139/SET        142/SET        187/CLOSE
    INDIROP
            306-EQU        855/IS         856/IS
    INIT%CO%WORD
            623-DATA       705/LW
    INIT0
            729/BNEZ       732-RES
    INIT1
            734-RES        758/BL
    INIT2
            744/BLE        747-RES
    INSERT
            643/LI        2996-RES
    INSERTS
           3036/LI        3067/B         3973-RES
    INSERTV
            235-RES        644/STW        752/CALL*     1194/CALL*     1339/CALL*     1701/CALL*     1942/CALL*
           2300/CALL*     2372/CALL*     3037/STW
    INS1
           3092-RES       3097/BDR
    INS5
           3148/BAZ       3152-RES
    INS6
           3151/B         3155-RES
    INS7
           3160/BAZ       3163-RES
    INS8
           3162/B         3165-RES
    INTBLE
            551-RES        757/CI
    INTBLO
            461-RES        733/LI
    INTEGER
            884/IS        1799-RES
    INTGR1
           1807-BAL
    IO%X1
            781/BAL       2337/BAL       3313/BAL       3528-RES
    IO%X1A
           3366/BAL       3519/BAL       3531-RES
    IO%X3
           1360/CALL      1513/CALL      1544/CALL      2335/CALL      3314/CALL      3367/CALL      3494/CALL
           3538-RES
    IOADD
            397-EQU       1387/LI        3050/LW        3051/STW       3052/AI        3053/STW       3541/LI
           3545/LI        3560/LI        3575/LI        3591/LI        3631/LI        3658/LI        3667/LI
           3672/LI        3689/LW        3690/LI        3763/LW        3785/LW
    IORL
            399-EQU        632/BAL        633/BAL       1389/BAL       1413/BAL       3046/BAL       3056/BAL
           3369/BAL       3529/LI        3530/STH       3532/BAL       3543/LV        3544/STH       3547/BAL
           3562/BAL       3577/BAL       3590/BAL       3592/BAL       3632/BAL       3641/BAL       3659/BAL
           3668/BAL       3669/BAL       3673/BAL       3674/BAL       3677/BAL       3691/BAL       3769/BAL
           3786/BAL
    IOSIZE
            398-EQU       1388/LI        3054/LI        3055/STW       3368/LCW       3561/LI        3576/LI
           3676/LW        3764/LW        3765/CW        3767/STW       3782/LW        3783/CW
    IS
            124-CNAME
    ISGEN
            182-CNAME
    ISYM
            453-CNAME
    L
            659/AND        670/IF        1137/LW        1205/AND       1287/AND       1368/AND       1463/LW
           1804/AND       1811/AND       1863/AND       1954/LW        1955/CW        2054/LW        2055/CS
           2078/AND       2197/AND       2275/CW        2576/AND       2634/AND       2660/AND       2941/CW
           2944/AND       3014/IF        3325/AND       3338/AND       3340/AND       3353/AND       3430/AND
           3461/CW        3464/CW        3467/CW        3469/OR        3472/CW        3487/CW        3705/AND
           3715/AND       3757/EXIT      3904/AND       3921/AND       3981/AND
    L#
            546-ISYM       563/EQU        753/CI
    LABEL
            833/IS         834-IS
    LARGEINT
            327-EQU        967/LI        1073/LI        1649/LI        1873/LI        1888/LI        1893/LI
           2207/LI        2508/LI        2511/LI        2514/LI
    LAST%UPDATE
             81/REF        698/STW
    LASTCMND
            199-RES       1175/STW       1914/LW
    LASTIN
            200-RES        769/STW        778/STW       1068/CW        1123/CW        1126/LW        1586/CW
           1601/CW        1656/LW        1658/AWM       1684/CW
    LCLDLTE
            846/IS        1911-RES
    LCLDL1
            802/BAL       1917/BAL       1919-RES       3312/BAL
    LE
           3784/IF        3959/IF
    LESSOP
            317-EQU        870/IS
    LF
            126/ERROR      127-RES        456-EQU
    LF#
            530-ISYM
    LINE
            784/LI         833-IS
    LINE#1
           1607/BNEZ      1609/BEZ       1611-RES
    LINE#2
           1613/BG        1617-RES
    LINE#3
           1630/BL        1635-RES
    LINE#4
           1639-RES       1644/BDR
    LINE#5
           1648/BE        1651-RES
    LINE#6
           1620-RES       1624/BL
    LINE#7
           1625-RES       1634/B
    LINE#8
           1638/BEZ       1645-RES
    LINK
             41/DEF        377-EQU        814/BAL       1417/BAL       1605/LW        1610/LI        1612/CI
           1614/AI        1652/LW        2109/BAL       3315/BAL
    LINK
           1456/OPEN      1458-EQU       1508/BAL       1525/EXIT      1549/BAL       1553/CLOSE
    LIST
            857/IS         860-IS
    LIST#
            494-ISYM
    LL
            371-EQU       2038/STW       2043/STB       2048/BDR       2084/LB        2085/AWM       2088/CB
           2091/LB        2094/BDR
    LLFLD
            420-EQU       2989/AND       2999/LI        3103/AND       3109/AND       3130/AND       3180/AND
           3240/AND       3260/AND       3325/AND       3340/AND       3819/AND
    LLOFFSET
            425-EQU       2987/LW        3080/STS       3962/LW        3994/STS
    LLWD
            405-EQU        425/EQU       2871/LW        3085/STW       3099/LW        3105/LW        3126/LW
           3143/STS       3149/LW        3150/STS       3164/STS       3176/LW        3187/STS       3194/STS
           3196/LW        3202/STS       3205/STS       3211/LW        3220/STS       3223/STS       3236/LW
           3249/LW        3280/LW        3817/LW        4006/STW
    LOC#
            495-ISYM
    LOCAL
            435/HALF       846-IS
    LOCAL#
            464-ISYM
    LOCALSYM
            847/IS         849/IS        1937-RES       1988/B
    LOCAL1
            846/IS         847-IS
    LOCSYM1
           1956/BANZ      1959-RES
    LOCX
            201-RES        722/STW        935/LW        1786/LCW       1927/SW        1929/STW       1938/LW
           1948/LW        1974/MTW       2225/LW        3603/AW        3606/STW
    LOWCORE
             67/REF        658/SW         669/CW         671/LW         724/LW        3392/SW        3406/SW
    LS%FLAG
             65/REF       1299/STH       1419/MTW       3571/MTW       3578/MTH
    LS#3
           1439/BNEZ      1445-STB
    LS#4
           1442-LI        1448/BNEZ
    LS#5
           1441/B         1446-AI
    LSTBF
             79/REF       1386/STM       1387/LI        1433/STM       1435/STM       1445/STB       3381/STM
           3390/STM       3404/STM       3560/LI        3575/LI
    LTEQOP
            315-EQU        870/IS
    LVL
            369-EQU        383/EQU        702/LI         703/STW        704/BDR        705/LW         706/STW
            730/BAL        935/LW         936/AI         937/STW        938/AI         946/AW         975/CW
            978/STM        979/AI        1005/LM        1009/AI        1010/LW        1021/LM        1029/AI
           1030/LW        1572/CW        1618/LW        1977/LW        1983/AI        1986/CW        2355/LW
           3621/EXIT
    LVLBASE
            236-RES        937/STW       1623/CW        1939/CW        1981/CW        1985/STW       2359/CW
    LVLMOVE
           1940/BLE       1976-RES
    LVLMOVE2
           1978-LW        1982/BLE
    LVLTBL
            283-EQU        978/STM       1005/LM        1010/LW        1021/LM        1030/LW        1621/AWM
           2357/AWM
    MAJLINE
             60/REF         61/EQU
    MAP%ADDR
           2265/CALL      3332/CALL      3350/CALL      3425/CALL      3454/CALL      3481/CALL      3726/CALL
           3754-RES       3825/CALL      3880/CALL      3894/CALL      3934/CALL      3949/CALL      3998/CALL
    MF1
           2588-EXU       2590/BGZ
    MF2
           2585/BLZ       2592-AI
    MF3
           2593/BLZ       2595-RES
    MF4
           2599/BANZ      2601/BNOV      2604/BE        2607-RES
    MF5
           2617/BAZ       2620-RES
    MINUS%ONE
            880/IS         883/IS        1832-RES
    MINUSOP
            318-EQU        873/IS         879/IS
    MPYOP
            322-EQU        875/IS
    MUL
           2726-LW        2802/BAL
    M0
            237-RES        280/EQU       1848/STW       1858/CW        2868/STW       2882/LW        2984/STW
           3060/LW        3075/LW        3432/STW       3470/OR        3815/STW       3958/STW       3991/LW
    M1
            386-EQU       1184/LW        1187/LW        1188/SW        1189/LW        1197/STS       1705/STS
           1743/LW        1748/STS       1749/LW        1753/STS       1754/LW        1755/AI        1945/AI
           1946/LW        1947/LW        1960/STS       1964/STS       1967/LW        1968/AI        1970/STH
           2023/LB*       2263/LW        2264/AI        2266/AI        2267/STW       2871/LW        2877/AI
           2878/STW       2879/LW        2908/LW        2910/LW        2918/LW        2923/LW        2923/LW
           2924/SLS       2926/AI        2927/LW        2930/LW        2936/LW        2937/LW        2938/LW
           2951/LW        2955/STS       2957/LW        2960/STW       2961/LW        2962/CW        2964/AI
           2968/AI        2970/STW       2973/STW       2978/LW        2978/LW        2979/SLS       2980/AI
           2984/STW       2986/STS       2987/LW        2987/LW        2989/AND       2993/STS       2994/LW
           2994/LW        3010/LB        3011/AW        3012/AI        3015/CW        3021/AI        3022/CW
           3075/LW        3076/LW        3079/AI        3080/STS       3083/LW        3084/AND       3085/STW
           3093/LW        3096/AI        3284/LW        3285/AI        3330/LW        3331/AI        3333/AI
           3334/STW       3346/LW        3347/AI        3352/LW        3423/LW        3424/AI        3426/AI
           3427/STW       3452/LW        3453/AI        3455/AI        3456/STW       3479/LW        3480/AI
           3482/AI        3483/STW       3704/LW        3707/LW        3711/STS       3723/STS       3724/LW
           3725/AI        3728/STW       3731/STW       3755/STW       3756/CW        3759/CLM       3770/LI
           3771/STW       3772/LW        3774/SW        3775/SLS       3776/STW       3777/SLS       3778/AW
           3779/STW       3780/AI        3781/STW       3788/LW        3790/SW        3791/AW        3817/LW
           3819/AND       3824/AI        3826/STW       3861/LW        3863/LW        3873/LW        3879/AI
           3881/LW        3886/LW        3886/LW        3887/SLS       3893/LW        3895/LW        3896/LW
           3914/LW        3917/STS       3927/LW        3930/STW       3931/LW        3933/AI        3936/STW
           3940/STW       3946/LW        3946/LW        3947/SLS       3948/AI        3958/STW       3962/LW
           3962/LW        3968/LW        3968/LW        3982/LB        3983/AW        3984/AI        3985/CI
           3987/LI        3988/SW        3989/AWM       3991/LW        3992/AW        3994/STS       3996/LW
           3997/AI        3999/STW       4000/LW        4004/LW        4005/AND       4006/STW       4015/LW
           4018/AI        4021/LW
    M1SAVE
            238-RES       1967/LW        3755/STW       3772/LW        3788/LW        3883/LW
    N
            370-EQU        381/EQU        634/LI         635/STW        636/LI         637/STW        641/LI
            642/STW        643/LI         644/STW        645/LI         646/STW        647/LI         648/STW
            657/LW         658/SW         659/AND        660/AI         662/IF         663/LI         665/SW
            680/LI         681/STW        682/STW        683/STW        684/STW        685/STW        686/STW
            687/STW        688/STW        689/STW        690/STW        691/STW        693/STW        694/STW
            695/STW        696/STW        697/STW        698/STW        699/STW        700/STW        701/STW
            703/STW        713/LI         714/STW        715/STW        716/STW        717/STW        753/CI
            768/LI         769/STW        777/LI         778/STW        955/LW         960/LI         962/CI
            964/AI         967/LI         969/LW         973/LW         980/LW         982/LH         984/AND
            987/CI         989/AND        990/B          993/AND        995/CW        1000/LH        1001/AND
           1002/CI        1013/LH        1014/AND       1015/SLS       1016/AW        1017/LH        1018/CI
           1073/LI        1085/AW        1089/LH        1103/LI        1106/LI        1131/BDR       1146/LI
           1148/LI        1150/LI        1154/LI        1155/CW        1159/LI        1160/SW        1178/CI
           1182/AND       1183/SLS       1188/SW        1189/LW        1190/AND       1199/AI        1201/STW
           1203/CLM       1205/AND       1206/LH        1206/LH        1212/CLM       1215/CI        1217/CI
           1219/CI        1227/LI        1286/LW        1287/AND       1288/OR        1289/STB       1290/STW
           1298/LI        1299/STH       1300/LI        1301/STW       1322/LW        1323/CV        1325/OR
           1326/STW       1327/LV        1348/AW        1367/LW        1368/AND       1369/AI        1371/STB
           1372/STW       1399/LV        1401/LV        1463/LW        1464/CW        1467/CW        1471/CW
           1492/LI        1494/LW        1510/LW        1516/STB       1520/LW        1522/LW        1527/LI
           1529/LW        1539/LW        1547/STB       1550/LI        1604/LI        1615/LI        1621/AWM
           1627/AW        1646/AWM       1647/CI        1649/LI        1652/LW        1702/CI        1770/LI
           1773/LI        1873/LI        1875/LH        1877/LW        1881/LH        1883/LW        1886/LH
           1888/LI        1893/LI        1896/LI        1897/AW        1901/LW        1903/LI        1943/CI
           1993/LI        1994/AW        2015/CI        2018/LI        2115/LW        2207/LI        2259/LH
           2260/AND       2263/LW        2267/STW       2272/LW        2283/STS       2285/LW        2289/STS
           2302/AI        2312/LH        2322/STH       2348/STH       2373/AI        2375/LI        2386/LW
           2387/STW       2388/STW       2419/STB       2508/LI        2511/LI        2514/LI        2908/LW
           2909/SLS       2918/LW        2938/LW        2943/SLS       2944/AND       2969/LI        2970/STW
           2971/LW        2972/SLS       2973/STW       2975/SLS       3286/LW        3861/LW        3862/SLS
           3873/LW        3896/LW        3902/SLS       3904/AND       3935/LI        3936/STW       3938/LW
           3939/SLS       3940/STW       3942/SLS       4022/LW
    NAME#
            531-ISYM
    NCDP
             33-CSECT       37/DEF        263/USECT
    NCDR
             38/DEF        630-RES
    NCDREND
             39/DEF       4030-END
    ND%FLAG
             63/REF        728/MTW       2075/MTW
    NE
           3892/IF
    NEWENTRY
            645/LI        2950-RES       2981/B
    NEWENTRYV
            239-RES        646/STW       2027/CALL*     3039/STW
    NEWENTS
           3038/LI        3911-RES
    NEWEN1
           2953/BANZ      2977-RES
    NEXT%UPDATE
             81/REF        699/STW
    NEXTLEVEL
            974-RES        985/B         1207/BNEZ      2376/B
    NEXTLINE#
            240-RES        972/STW       1637/SW        1646/AWM       2352/AWM
    NEXTST
             58/REF        726/STW        944/LW        1737/LW        1741/MTW       1756/MTW       2956/LW
           2965/MTW       2967/MTW       3001/LW        3018/STW       3059/STW       3074/LW        3233/CW
           3284/LW        3289/AWM       3393/AW        3597/STW       3619/CW        3645/LW        3665/CW
           3713/LW        3718/MTW       3720/LW        3732/MTW       3919/LW        3924/MTW       3926/LW
           3931/LW        3932/MTW       3979/LW        3989/AWM       3993/LW        3996/LW        4026/AWM
    NEXTSTSDF
            290-EQU       3596/LW
    NIVO
             76/REF        812/MTW        956/MTW       1421/MTW       1606/MTW
    NM1
           2575/BAL       2766-BOV
    NM2
           2766/BOV       2769-SCD
    NORM
           2734/BAL       2759/BAL       2765-SCD       2768/B
    NOTINCR
            343-EQU       1001/AND
    NOTSYNREF
            983/BGZ        986-RES
    NSRTR1
            209-RES        210/EQU        281/EQU       2997/STD       3293/LD        3975/STD       4027/LD
    NSRTR2
            210-EQU        282/EQU
    NS1
           3113/BAZ       3256-RES
    NS10
           3276/BAZ       3279-RES
    NS2
           3120/BE        3125-RES
    NS3
           3136/BNE       3175-RES
    NS4
           3123/B         3169-RES
    NS49
           3208/B         3227-RES
    NS5
           3251/BAZ       3254/B         3259-RES       3278/B         3281/B
    NS6
           3234/BE        3261/BE        3283-RES
    NS7
           3191/BANZ      3210-RES
    NS9
           3173/B         3273-RES
    NTHCLOSE
            844/IS         845-IS
    NTHCNSYM
            831/IS         832-IS
    NTHLOCAL
            847/IS         849-IS
    NTHOPEN
            842/IS         843-IS
    NUM
            126/ERROR      129/RES        137/DO         173/DO
    NUM#
            539-ISYM
    NUMOUT
           1810/BAZ       1836/B         1870-RES
    NUMOUT1
           1875-LH        2650/BANZ
    NUMOUT2
           1880-RES       2651/B
    NUMRECX1
            253-RES        683/STW       3316/LW        3321/STW       3533/MTW       3676/LW
    NUMRECX3
            241-RES        686/STW       1370/LW        3322/STW       3368/LCW       3548/MTW
    NXSYMB
             58/REF        717/STW        755/MTW       2971/LW        2974/MTW       3087/LW        3286/LW
           3291/MTW       3599/STW       3647/LW        3938/LW        3941/MTW       4009/LW        4022/LW
           4023/MTW
    NXSYMBSDF
            291-EQU       3598/LW
    NXTLOC
            242-RES        688/STW       1931/STW       1950/LW        1972/MTW       2228/STW
    NZ
           1412/IF        1966/IF        2024/IF        2262/IF        2334/IF        3063/IF        3329/IF
           3349/IF        3374/IF        3422/IF        3451/IF        3478/IF        3572/IF        3574/IF
           3579/IF        3762/IF
    OCT
            576-EQU        608/DATA      2004/LI
    OCTC
            886/IS        2003-RES
    OL
           3760/IF
    OPEN
            436/HALF       842-IS
    OPEN#
            465-ISYM
    OPENSYM
            842/IS         843/IS        2012-RES
    OPENSYM1
           1703/BANZ      1952/BG        2017-RES
    OPENSYM2
           2016/BAZ       2022-RES
    OPENSYM3
           2014/B         2299-RES
    OPENSYM4
           1995/B         2019-RES
    OPENX5
             46/REF       3046/BAL
    OPERAND
            833/IS         852-IS
    OPTNLC
            885/IS         890-IS
    OPTNLIST
            826/IS         827/IS         830-IS
    OR
            138/DO         176/ISGEN      819/IS         820/IS         821/IS         822/IS         823/IS
            824/IS         830/IS         834/IS         835/IS         836/IS         837/IS         839/IS
            842/IS         844/IS         848/IS         852/IS         854/IS         855/IS         855/IS
            857/IS         857/IS         858/IS         863/IS         864/IS         868/IS         869/IS
            869/IS         870/IS         870/IS         871/IS         873/IS         875/IS         876/IS
            879/IS         880/IS         881/IS         882/IS         883/IS         884/IS         884/IS
            885/IS         885/IS         886/IS         886/IS         887/IS         888/IS         888/IS
            890/IS        1028-RES       1040/EQU
    ORCHAR
            862/IS         863-IS         864/IS
    ORG#
            496-ISYM
    OROP
            309-EQU        864/IS
    OUT
            367-EQU        760/LI         770/STW        776/LI         779/CI         782/LI         783/STW
            972/STW       1239/LW        1302/LW        1359/IF        1460/LW        1511/BIR       1514/LI
           1516/STB       1542/BIR       1545/LI        1547/STB       1552/STW       1626/LW        1628/STW
           1633/AI        1636/LW        1641/AI        1642/LH        2320/CI        2322/STH       2323/AI
           2328/LW        2332/LH        2340/AI        2342/LH        2344/AI        2346/CI        2350/STW
           3530/STH       3544/STH       3642/LI        3660/LI        3683/CI        3685/STW       3686/AI
           3689/LW        3692/STW       3693/LI
    OUTBUF
            284-EQU        288/EQU        289/EQU        290/EQU        291/EQU        292/EQU        293/EQU
           1642/LH        1643/STH       2322/STH       2332/LH        2339/STH       2342/LH        2343/STH
           2348/STH       3530/STH       3544/STH       3591/LI        3627/LW        3631/LI        3634/LW
           3658/LI        3667/LI        3672/LI        3685/STW       3690/LI        3692/STW
    OUTSAVE
            257-RES        770/STW        783/STW       1239/LW        1302/LW        2328/LW        2351/LCW
           2354/STW
    OUTSIZE
            285-EQU        779/CI        1629/CI        2320/CI        2346/CI
    OVERFLOW
            976/BLE       1574/B         1987/BLE       3028/BNEZ      3296-RES
    OVFLAG
            256-RES       1053/STW       1070/MTW       1806/STW       1815/MTW       1818/MTW       1821/MTW
           1826/MTW       1851/STW       1860/MTW       1901/LW        2033/STW       2155/STW       2188/MTW
           2522/STW       2639/MTW       3317/STW       3670/LW
    PAGE#
            475-ISYM       561/EQU
    PAGEDIR
            273/DATA       561-EQU
    PASS
            123-SET        123/SET        128/DO         187/CLOSE
    PCC#
            476-ISYM
    PD%FLAG
             64/REF       3027/MTW       3370/MTW
    PEND#
            468-ISYM       562/EQU
    PENDDIR
            271/DATA       562-EQU        798/CI
    PKDEC
            886/IS        2153-RES
    PKDEC1
           2162/BNE       2165-RES
    PKDEC2
           2164/B         2168-RES
    PKDEC3
           2167/BNE       2170-RES
    PKDEC4
           2173/BANZ      2184-RES
    PKDEC5
           2175-RES       2201/B
    PKDEC7
           2179/BAZ       2203-RES
    PKDEC8
           2208-RES       2211/BIR
    PKDEC9
           2210/BNEZ      2212-RES
    PLOC
            204-RES       1187/LW        1789/LCW       1925/LW        2226/STW
    PLUS
             82/REF        714/STW
    PLUSOP
            319-EQU        873/IS         881/IS
    POSITIONX1
             55/REF       3677/BAL
    POSITIONX3
             47/REF       3369/BAL
    PRIMARY
            877/IS         878/IS         879-IS         879/IS         880/IS         881/IS         883/IS
    PRIM1
            857/IS         879/IS         884-IS
    PRINT
           3382/CALL      3387/CALL      3398/CALL      3409/CALL      3411/CALL      3412/CALL      3559-RES
    PROC
            438/HALF       841-IS
    PROC#
            467-ISYM
    PROCLV
            205-RES        690/STW        800/MTW        804/STW       1185/LW        1787/MTW       1923/LW
           2222/MTW       2224/MTW
    PRODSDF
           3371/BNEZ      3640-RES
    PRSDF15
           3653-LW        3657/BLE
    PRSDF20
           3662-LW        3666/BL
    PRSDF25
           3671-RES       3675/BDR
    PSECT#
            497-ISYM
    PSR#
            480-ISYM
    PSYS#
            498-ISYM
    PTRFLD
            415-EQU       1744/AND       1746/LW        1747/LW        1955/CW        2277/CW        2286/LW
           2914/CW        2932/CW        2941/CW        2952/CW        2954/LW        3430/AND       3461/CW
           3472/CW        3487/CW        3705/AND       3709/LW        3710/LW        3867/CW        3885/IF
           3901/IF        3915/IF        3916/LW
    PTRLOB
            414-EQU        415/EQU       3431/SHIFT
    PTROFFSET
            426-EQU       1197/STS       1705/STS       1743/LW        1748/STS       1949/STW       2274/LW
           2287/STS       2910/LW        2927/LW        2937/LW        2951/LW        2955/STS       2970/STW
           3704/LW        3711/STS       3728/STW       3863/LW        3881/LW        3895/LW        3914/LW
           3917/STS       3936/STW
    PTRWD
            413-EQU        426/EQU       1745/STW       1946/LW        1964/STS       2285/LW        2289/STS
    P1
            267-DATA      2714/CLM
    RCMOVE
           1414/B         1559-RES
    RDSDF
            730/BAL       3589-RES
    RDSDFERR
           3595/BNE       3622-RES
    RDSDF15
           3616-BAL       3620/BL
    RDSYMTAB
           3616/BAL       3624-RES
    RDSYMT10
           3626/BGE       3630-RES
    READC
             77/REF       1413/BAL
    READCARD
            954/BAL       1410-RES       1603/BAL
    READSTD
             57/REF       3592/BAL       3632/BAL
    READX1
             55/REF       3673/BAL
    READX5
             48/REF       3786/BAL
    REF#
            478-ISYM
    REPEAT
            831/IS         840/IS         842/IS         844/IS         847/IS         853/IS         861/IS
            865/IS         867/IS         872/IS         874/IS         877/IS        1033-RES       1039/EQU
    RES#
            499-ISYM
    RESETCHT
            851/IS        1715/BE        1724/BE        1726/BE        1729/B         1902/BEZ       1905/B
           2237/BE        2240/B         2427-RES
    RESETOUT
            824/IS         830/IS        1238-RES
    REWSTD
             57/REF       3590/BAL       3641/BAL
    REWX1
             55/REF        632/BAL       3669/BAL
    REWX3
             49/REF        633/BAL
    RL
            379-EQU        380/EQU        781/BAL        785/BAL        802/BAL        806/BAL        932/STW
            944/LW         945/AI         946/AW         947/SLS        948/CW         950/LW         952/STW
            953/STW        954/BAL        968/BAL        971/BAL        994/BAL       1056/BAL       1059/BAL
           1086/BAL       1090/BAL       1108/BAL       1118/BAL       1147/BAL       1149/BAL       1151/BAL
           1202/BAL       1573/BG*       1585/BNE*      1590/BEZ*      1592/EXIT      1595/BNEZ*     1597/STW
           1599/LW        1600/AI        1601/CW        1603/BAL       1631/BAL       1632/BAL       1636/LW
           1637/SW        1644/BDR       1650/BAL       1653/BAL       1657/LI        1658/AWM       1661/LW
           1665/CW        1693/LW        1712/BAL       1722/BAL       1757/EXIT      1762/LW        1764/BAL
           1771/BAL       1774/BAL       1781/BAL       1800/BAL       1807/BAL       1852/BAL       1865/BAL
           1874/BAL       1876/BAL       1879/BAL       1882/BAL       1899/BAL       1904/BAL       1917/BAL
           1938/LW        1939/CW        1946/LW        1949/STW       1955/CW        1978/LW        1979/STW
           2020/BAL       2116/BAL       2159/BAL       2169/BAL       2176/BAL       2235/BAL       2253/STW
           2303/BAL       2313/LI        2319/STW       2337/BAL       2374/BAL       2381/BAL       2392/BAL
           2407/BAL       2648/BAL       2697/BAL       2866/STW       2911/LV        2912/AND       2913/STS
           2947/BAL       2949/LW        2976/EXIT      3312/BAL       3313/BAL       3345/BAL       3366/BAL
           3418/STW       3517/STW       3519/BAL       3521/LW        3534/B*        3616/BAL       3629/B*
           3635/EXIT      3644/BAL       3646/BAL       3648/BAL       3650/BAL       3654/BAL       3663/BAL
           3687/B*        3694/EXIT      3703/STW       3813/STW       3864/LV        3865/AND       3866/STS
           3909/LW        3912/STW       3974/STW
    RL
           1456/OPEN      1457-EQU       1493/BAL       1495/BAL       1521/BAL       1523/BAL       1528/BAL
           1530/BAL       1540/LI        1548/EXIT      1551/BAL       1553/CLOSE
    RNG%DFN%DIR
            268-DATA      1212/CLM
    RNG%SPC%DIR
            270-DATA       787/CLM
    RNG%SYN%DIR
            272-DATA      1203/CLM
    ROOTRTN
             80/REF        631/STW       3414/B*        3678/B*
    RT1
            373-EQU        739/LW         742/LB         748/SLD        750/STD       1196/LW        1197/STS
           1246/LV        1255/LW        1256/CV        1259/LV        1268/LW        1269/CV        1272/LV
           1281/LV        1289/STB       1310/LV        1318/LV        1325/OR        1746/LW        1748/STS
           1749/LW        1750/STW       1751/STH       1753/STS       1805/LI        1806/STW       1812/SAD
           1813/STD       1816/SAD       1819/AD        1824/AI        1834/LI        1846/LW        1848/STW
           1849/LI        1851/STW       1858/CW        1861/SAD       1871/CI        1875/LH        1877/LW
           1923/LW        1930/LI        1931/STW       1950/LW        1951/CI        1953/AI        1958/SLD
           1960/STS       1963/LI        1964/STS       2006/LW        2042/LB        2043/STB       2044/CI
           2053/LW        2055/CS        2058/LW        2061/CW        2071/LB        2072/AW        2073/STW
           2091/LB        2092/CB        2102/LI        2103/STB       2105/LI        2106/STW       2107/LB
           2108/STB       2185/LD        2186/CW        2189/SAD       2190/STW       2191/LW        2193/SLD
           2194/STW       2195/LD        2196/SLD       2200/STD       2258/LW        2259/LH        2269/LW
           2281/SLD       2283/STS       2285/LW        2287/STS       2288/LW        2289/STS       2351/LCW
           2352/AWM       2357/AWM       2389/LI        2394/CB        2625/STW       2640/LD        2898/LW
           2899/CS        2957/LW        2958/SLS       2959/STH       2960/STW       3091/LB        3097/BDR
           3138/LW        3143/STS       3145/LW        3150/STS       3154/STS       3157/LW        3161/STS
           3164/STS       3186/LW        3187/STS       3193/LW        3194/STS       3196/LW        3202/STS
           3204/LW        3205/STS       3206/LW        3207/STS       3211/LW        3212/STS       3214/LW
           3220/STS       3222/LW        3223/STS       3224/LW        3225/STS       3429/LW        3430/AND
           3431/SHIFT     3432/STW       3436/LB        3437/STB       3442/LI        3443/STB       3445/LB
           3446/CI        3459/LW        3461/CW        3464/CW        3467/CW        3472/CW        3486/LW
           3487/CW        3593/LW        3594/CW        3596/LW        3597/STW       3598/LW        3599/STW
           3600/LW        3601/STW       3602/LCH       3603/AW        3604/STW       3605/AI        3606/STW
           3607/STW       3609/LW        3610/STW       3612/LW        3613/STW       3617/STW       3627/LW
           3634/LW        3643/LW        3645/LW        3647/LW        3649/LW        3653/LW        3662/LW
           3685/STW       3709/LW        3711/STS       3721/STH       3723/STS       3847/LW        3848/CS
           3927/LW        3928/SLS       3929/STH       3930/STW       4013/LB        4019/BDR
    RT1
           1456/OPEN      1459-EQU       1481/LI        1482/STW       1486/LB        1487/STW       1488/CI
           1490/CI        1494/LW        1499/LB        1500/CW        1505/LB        1506/CW        1532/CI
           1535/CI        1539/LW        1553/CLOSE
    RT2
            374-EQU        741/LW         745/LW         749/AI        1247/LV        1260/LV        1273/LV
           1282/LV        1288/OR        1704/LW        1705/STS       1747/LW        1752/LW        1801/LB
           1802/CI        1804/AND       1822/AW        1835/LI        1850/LI        1864/OR        1881/LH
           1883/LW        1886/LH        1891/CI        1897/AW        1954/LW        1962/LW        2039/STW
           2046/AI        2049/STB       2050/CI        2054/LW        2154/LI        2155/STW       2157/STW
           2192/LW        2199/OR        2204/OR        2205/STW       2271/LI        2286/LW        2382/LI
           2383/CB        2396/CB        2408/CB        2626/STW       2873/LI        2951/LW        2952/CW
           2954/LW        2955/STS       2956/LW        2959/STH       2961/LW        2999/LI        3360/LI
           3460/LW        3463/SLS       3469/OR        3470/OR        3497/STH       3505/LW        3651/LH
           3656/CW        3710/LW        3722/LW        3842/LI        3914/LW        3915/IF        3916/LW
           3917/STS       3919/LW        3920/SW        3921/AND       3922/CI        3926/LW        3929/STH
    RT3
            375-EQU       1174/LW        1175/STW       1813/STD       1819/AD        1947/LW        1957/SLS
           1970/STH       1971/STW       2066/LW        2067/STW       2068/LI        2069/STB       2070/STB
           2272/LW        2280/SLS       2284/STS       2342/LH        2343/STH       2869/LI        2986/STS
           3134/LW        3135/CS        3139/LW        3140/CI        3170/LI        3172/STS       3228/LI
           3230/STS       3231/STS       3242/LI        3246/LI        3247/STS       3263/LI        3267/LI
           3269/STS       3362/LI        3505/LW        3507/LH        3511/STH       3518/STW       3520/LW
           3960/LI        3961/STW       3966/LI        3967/STW
    RT4
            376-EQU       1642/LH        1643/STH       2035/LI        2072/AW        2110/AI        2113/AI
           2115/LW        2273/LI        2332/LH        2339/STH       2870/LI        2993/STS       3133/LI
           3171/LI        3229/LI        3268/LI        3364/LI        3434/LB        3435/SLS       3440/CW
           3501/LB        3502/SLS       3503/AI        3514/CW        3816/LI
    RT5
            380-EQU       2872/LW        2886/CW        3830/LW        3832/CW
    S:AAD#
            508-ISYM
    S:C#
            509-ISYM
    S:D#
            510-ISYM
    S:DPI#
            511-ISYM
    S:EXT#
            512-ISYM
    S:FL#
            513-ISYM
    S:FR#
            514-ISYM
    S:FS#
            515-ISYM
    S:FX#
            516-ISYM
    S:IFR#
            540-ISYM
    S:INT#
            517-ISYM
    S:IVAL#
            523-ISYM
    S:KEYS#
            548-ISYM
    S:LFR#
            518-ISYM
    S:LIST#
            519-ISYM
    S:NUMC#
            541-ISYM
    S:PT#
            542-ISYM
    S:RAD#
            520-ISYM
    S:SIN#
            500-ISYM
    S:SUM#
            521-ISYM
    S:UFV
            123/SET        157/DO         160/DO
    S:UFV#
            543-ISYM
    S:UT#
            544-ISYM
    SAVAREA
             68/REF       1383/STM       1391/LM        1571/LM        1628/STW       1655/LM        3706/STW
           3708/STW       3727/LW        3730/LW
    SBLSYM
            563-EQU        858/IS
    SBSYM
            325-EQU        563/EQU       2373/AI
    SCALEOP
            323-EQU        878/IS
    SCOR
            138/DO         167/SET
    SCOR#
            549-ISYM
    SDFCON
             50/REF       3651/LH        3653/LW
    SDFCONNCDR
            202-RES       2077/LW*       2084/LB*       2092/CB*       3604/STW       3610/STW*      3613/STW*
    SDFCONSDF
            293-EQU       3602/LCH       3608/LH        3609/LW        3612/LW
    SDFOUT
           3644/BAL       3646/BAL       3648/BAL       3650/BAL       3654/BAL       3663/BAL       3682-RES
    SDFOUT3
           3684/BGE       3688-RES
    SEARCH
            647/LI        2865-RES
    SEARCHS
           3040/LI        3812-RES
    SEARCHV
            243-RES        648/STW        751/CALL*     1176/CALL*     1338/CALL*     1700/CALL*     1941/CALL*
           2013/CALL*     2298/CALL*     2371/CALL*     3041/STW
    SEMANBAS
            160/DO         163/ISGEN      174/ISGEN      176/ISGEN      990/B         1024-RES       1039/EQU
           1040/EQU
    SET#
            501-ISYM
    SETCNCOM
           1248/B         1261/B         1274/B         1285-RES
    SETCNDS
            829/IS        1280-RES
    SETCNIO
            826/IS        1245-RES
    SETCNOS
            828/IS        1267-RES
    SETCNSS
            827/IS        1254-RES
    SETPROCLV
            841/IS        2221-RES
    SIBUF
            286-EQU        287/EQU       1516/STB       1547/STB
    SIGFLAG
            244-RES       2034/STW       2069/STB       2100/MTW
    SIGN
           2518/BAL       2709/BAL       2785-LI
    SIGNLNK
            281-EQU       2786/STW       2797/B*
    SIGN1
           2787-BAL       2791/B         2795/B
    SIGTAB
           2059/LI        2061/CW        2121-EQU
    SIGTABEND
           2059/LI        2142-RES
    SKIP%COUNT
             82/REF        700/STW
    SKIP%OPERAND
            442/HALF       443/HALF       444/HALF       445/HALF       446/HALF       841/IS         851-IS
    SKIPNB
            836/IS         838/IS        2234-RES       2239/BNE
    SLOC
            245-RES        721/STW       1184/LW        1784/LW        1790/AW        1922/LW        3607/STW
    SMALLINT
            326-EQU        879/IS         881/IS         964/AI        1614/AI        1896/LI        1993/LI
           2035/LI
    SNFLD
            421-EQU       1752/LW        3722/LW
    SNOFFSET
            427-EQU       1189/LW        1749/LW        1753/STS       2258/LW        2269/LW        2923/LW
           2957/LW        2960/STW       2973/STW       2978/LW        3707/LW        3723/STS       3731/STW
           3886/LW        3927/LW        3930/STW       3940/STW       3946/LW
    SNWD
            412-EQU        427/EQU       1750/STW       1947/LW        2272/LW        3089/STW       4011/STW
    SOCW#
            472-ISYM
    SPACE#
            502-ISYM
    SPILL%MSG
            616-TEXT      3380/LM
    SPILL%MSG%AVL
            620-TEXT      3403/LM
    SPILL%MSG%REQ
            618-TEXT      3389/LM
    SPILLFLG
            246-RES        691/STW       1965/MTW       2261/MTW       3030/MTW       3328/MTW       3348/MTW
           3373/MTW       3421/MTW       3450/MTW       3477/MTW
    SRCHXIT
            247-RES       2253/STW       2256/BLEZ*     2866/STW       2907/MTW       2915/BAZ*      2945/B*
           2949/LW        2991/B*        3418/STW       3473/BAZ*      3813/STW       3821/B*        3860/MTW
           3868/BAZ*      3905/B*        3909/LW        3912/STW       3943/B*        3974/STW       4028/B*
    SRCH1
           2876-RES       2990/BNEZ
    SRCH10
           2929/BANZ      2931-RES
    SRCH11
           2920/B         2925-RES
    SRCH12
           2917/BANZ      2946-RES
    SRCH13
           2935/BEZ       2948-RES
    SRCH2
           2881/BAZ       2884-RES
    SRCH3
           2887/BNE       2900/BNE       2906/BNE       2983-RES
    SRCH4
           2891/BLE       2893-RES
    SRCH5
           2894/BDR       2896-RES       2901/BDR
    SRCH6
           2895/B         2903-RES
    SRCH7
           2985/BG        2992-RES
    SRCH8
           2874/B         2988-RES       2995/B
    SRCH9
           2922-RES       2933/BANZ
    SREF#
            479-ISYM
    SR1
            387-EQU        708/LM         709/STM        711/LM         712/STM        719/LW         720/AI
            721/STW        722/STW        723/STW
    SR2
            388-EQU        724/LW         725/AI         726/STW        727/STW
    SR3
            389-EQU
    STBL
           2732/LCH       2750/LH        2835-DATA
    STDLABEL
            834/IS         835-IS
    STLOOP
            731/B          760-LI
    STLOOP1
            762/BEZ        777-LI         788/BOL        799/BNE        810/B
    STLOOP2
            780/BLE        783-STW
    STLOOP4
            797/BE         811-RES
    STLOOP5
            791/BE         793/BE         795/BE         805-RES
    STLOOP6
            801/BEZ        807-RES        815/B
    STSTSYMB
            850/IS        2031-RES
    SUBLINE
             60/REF         62/EQU
    SUBSYMB
            891-IS        2375/LI
    SWAPLOC
           1792/B         1932/B         2252-RES
    SWPL1
           2278/BANZ      2282-RES
    SWPL2
           2276/BGE       2279-RES
    SYMBOL
            831/IS         832/IS         835/IS         837/IS         842/IS         843/IS         844/IS
            845/IS         847/IS         849/IS         850/IS         884/IS        2380-RES
    SYMBUF
            288-EQU       3511/STH
    SYMB1
           2391-RES       2399/BIR
    SYMB2
           2390/B         2393-RES
    SYMB3
           2395/BANZ      2401-RES       2409/BANZ
    SYMB4
           2403/BIR       2406-RES
    SYMB5
           2416-RES       2421/B
    SYMB6
           2414/BLE       2422-RES
    SYMB7
           2418/BAZ       2424-RES
    SYMIOUT
           3471/BAL       3500-RES
    SYMIOUT3
           3507-LH        3515/BL
    SYMIOUT4
           3365/BAL       3506/B         3508-RES       3523/B
    SYMIOUT5
           3510/BGE       3517-STW
    SYMLMT
            248-RES        675/STW       3013/CW        3015/CW        3017/LW        3057/LW        3394/SW
           3714/SW        3920/SW        3980/SW
    SYMLMTM1
            249-RES        677/STW       1738/CW        2962/CW
    SYMLMTM18
            250-RES        679/STW       3008/CW
    SYMOUT
           1707/B         2028/B         2301-RES
    SYMTLMT
            251-RES        673/STW       3050/LW        3756/CW        3763/LW        3774/SW        3778/AW
           3785/LW        3791/AW
    SYMTOUT
           3323-RES
    SYMTOUT2
           3327-RES       3344/B         3357/B
    SYMTOUT4
           3341/BEZ       3345-BAL       3359/BGEZ
    SYMTOUT6
           3354/BEZ       3358-AI
    SYMTYPE
            324-EQU        555/EQU        556/EQU        557/EQU        558/EQU        559/EQU        560/EQU
            561/EQU        562/EQU       1199/AI        2302/AI
    SYM1
            407-EQU        750/STD       1064/STB       1067/STB       1078/STB       1089/LH        2042/LB
           2043/STB       2049/STB       2053/LW        2058/LW        2067/STW       2070/STB       2088/CB
           2091/LB        2103/STB       2105/LI        2107/LB        2118/LB        2157/STW       2185/LD
           2190/STW       2191/LW        2192/LW        2194/STW       2195/LD        2200/STD       2205/STW
           2209/LH        2387/STW       2388/STW       2398/STB       2402/STB       2419/STB       2872/LW
           3093/LW        3094/STW       3437/STB       3443/STB       3445/LB        3448/STB       3501/LB
           3507/LH        3830/LW        4015/LW        4016/STW
    SYN
            368-EQU        382/EQU        771/LI         784/LI         973/LW         980/LW         982/LH
            999/AI        1000/LH        1007/AI        1010/LW        1013/LH        1016/AW        1017/LH
           1030/LW        1034/AI        2311/AI        2312/LH        2997/STD       3293/LD        3975/STD
           4027/LD
    SYNERR
            308-EQU        836/IS        1227/LI        1770/LI        2018/LI
    SYNTAX
            161/ISGEN      433/HALF       771/LI         784/LI         818-ORG        982/LH        1000/LH
           1013/LH        1017/LH        2312/LH        2375/LI
    SYSCODE
           2071/LB        2143-RES
    SYSTEM
            437/HALF       850-IS
    SYSTEM#
            466-ISYM
    SYSTEM15
           2042-LB        2048/BDR
    SYSTEM20
           2057-RES
    SYSTEM25
           2060-RES       2063/BDR
    SYSTEM40
           2062/BE        2065-RES
    SYSTEM50
           2051/BG        2056/BNE       2064/B         2074-RES
    SYSTEM52
           2083-LW        2097/BGZ
    SYSTEM55
           2090-AI        2094/BDR
    SYSTEM60
           2089/BNE       2093/BNE       2096-MTW
    SYSTEM75
           2076/BNEZ      2079/BEZ       2099-RES
    SYSTEM77
           2101/BEZ       2104-RES
    SYSTEM85
           2095/B         2112/BEZ       2114-RES
    TAB
            361-EQU       1725/CI        1767/CI        2238/CI
    TCOR#
            550-ISYM
    TERM
            859/IS         861-IS         882/IS
    TEXT#
            503-ISYM
    TEXTC#
            504-ISYM
    TITLE#
            505-ISYM
    TREE
            853/IS         854/IS         855-IS
    TRUE
            996/BE        1006-RES       1022/B         1031/B         1113/BE        1120/BE        1124/BLE
           1127/B         1209/B         1213/BOL       1220/BNE       1240/B         1291/B         1352/B
           1392/B         1403/B         1782/B         1916/BE        1918/B         1944/BANZ      1975/B
           2021/B         2223/BNEZ      2229/B         2304/B         2313/LI        2429/B
    TRUE1
            981-RES       1008/B         1035/B
    TRUNERR
            307-EQU       1903/LI
    TYPE
            342-EQU        987/CI
    TYPESIZE
            341-EQU        342/EQU
    TYPE1OR
           1018/CI        1040-EQU
    TYPE1REPEAT
           1002/CI        1039-EQU
    U
            381-EQU       2867/LI        2868/STW       2882/LW        2998/AI        3099/LW        3102/LW
           3139/LW        3142/AI        3143/STS       3149/LW        3153/LW        3157/LW        3182/LW
           3185/AI        3187/STS       3197/LW        3201/AI        3202/STS       3215/LW        3219/AI
           3220/STS       3236/LW        3237/CI        3239/LW        3240/AND       3243/LW        3247/STS
           3814/LI        3815/STW
    UNEQLOP
            313-EQU        868/IS         871/IS
    UPDATE%LINE%COUNT
             82/REF        701/STW
    USECT#
            506-ISYM
    V
            382-EQU       3099/LW        3100/CI        3102/LW        3103/AND       3105/LW        3108/LW
           3111/LW        3117/AW        3134/LW        3145/LW        3158/LW        3161/STS       3164/STS
           3172/STS       3197/LW        3198/LW        3204/LW        3215/LW        3216/LW        3224/LW
           3230/STS       3257/LW
    VAL%S:IVAL
             69/REF        637/STW       2073/STW
    VWX
            385-EQU       3122/LW        3131/LW        3176/LW        3177/CI        3179/LW        3180/AND
           3249/LW        3253/LW        3257/LW        3264/LW        3269/STS       3271/LW
    W
            383-EQU       3105/LW        3106/CI        3108/LW        3109/AND       3122/LW        3126/LW
           3129/LW        3135/CS        3138/LW        3146/LW        3149/LW        3150/STS       3153/LW
           3154/STS       3167/LW        3189/LW        3194/STS       3206/LW        3212/STS       3222/LW
           3249/LW        3250/CI        3253/LW        3260/AND       3271/LW        3274/LW        3277/LW
           3277/LW        3280/LW        3280/LW
    WA
            160/DO
    WA#
            535-ISYM
    WDCTWD
            408-EQU       3010/LB        3083/LW        3091/LB        3287/LB        3982/LB        4004/LW
           4013/LB        4024/LB
    WDOUT
            968/BAL        971/BAL       1086/BAL       1090/BAL       1147/BAL       1149/BAL       1151/BAL
           1202/BAL       1328/CALL      1349/CALL      1400/CALL      1402/CALL      1631/BAL       1632/BAL
           1650/BAL       1653/BAL       1771/BAL       1774/BAL       1874/BAL       1876/BAL       1879/BAL
           1882/BAL       1899/BAL       1904/BAL       2020/BAL       2116/BAL       2303/BAL       2318-RES
           2374/BAL       2648/BAL
    WDOUTRTN
            252-RES       2319/STW       2324/B*        2362/B*
    WDOUT1
           2321/BGE       2325-RES
    WDOUT3
           2341-RES       2347/BL
    WDOUT7
           2357-AWM       2360/BL
    WDOUT9
           2361-LW
    WDX1SIZE
             51/REF       3625/CI        3683/CI
    WDX3SIZE
             56/REF       1516/STB       1547/STB
    WRICONST
           1084-RES       2216/B
    WRISYM
           3345/BAL       3417-RES
    WRISYMBOL
            835/IS        2297-RES       2368/BNE
    WRISYM10
           3436-LB        3441/BLE
    WRISYM20
           3444-AI        3447/BE
    WRISYM30
           3459-LW        3485/B
    WRISYM31
           3460-LW        3489/B
    WRISYM35
           3475-LW        3488/BANZ
    WRISYM40
           3458/B         3486-LW
    WRITE
            167/SET        828/IS         834/IS         834/IS         835/IS         836/IS         837/IS
            838/IS         839/IS         840/IS         852/IS         854/IS         855/IS         856/IS
            856/IS         858/IS         858/IS         859/IS         859/IS         860/IS         860/IS
            864/IS         864/IS         866/IS         868/IS         868/IS         869/IS         869/IS
            870/IS         870/IS         871/IS         873/IS         873/IS         875/IS         875/IS
            876/IS         878/IS         879/IS         879/IS         880/IS         881/IS         881/IS
            883/IS         887/IS         891/IS        2310-RES
    WRITELO
             52/REF       1389/BAL       3562/BAL       3577/BAL
    WRITELOCALCT
            847/IS         848/IS        1992-RES
    WRITESTD
             57/REF       3659/BAL       3668/BAL       3674/BAL       3691/BAL
    WRITEX1
             55/REF       3532/BAL
    WRITEX3
             53/REF       3547/BAL
    WRITEX5
             54/REF       3056/BAL       3769/BAL
    X
            384-EQU       3126/LW        3127/CI        3129/LW        3130/AND       3131/LW        3167/LW
           3176/LW        3179/LW        3186/LW        3193/LW        3196/LW        3205/STS       3207/STS
           3211/LW        3214/LW        3223/STS       3225/STS       3231/STS       3233/CW        3236/LW
           3239/LW
    XAPD1
             84-DSECT
    XOROP
            310-EQU        864/IS         880/IS         883/IS
    XT
            365-EQU        656/LW         665/SW         667/STW        668/AI         669/CW         671/LW
            673/STW        674/AI         675/STW        676/AI         677/STW        678/AI         679/STW
            735/LB         736/AI         737/SLS        738/STB        742/LB         743/CI         786/LW
            787/CLM        790/CI         792/CI         794/CI         796/CI         798/CI         803/LI
            804/STW        808/LI         809/STW       1052/LI        1053/STW       1063/AI        1064/STB
           1067/STB       1068/CW        1074/AI        1075/CI        1078/STB       1079/AI        1083/SLS
           1085/AW        1092/BDR       1340/LB        1341/CV        1343/LV        1344/STS
           1347/SHIFT     1348/AW        1362/LH        1363/CI        1370/LW        1371/STB       1373/LI
           1374/STW       1462/LI        1464/CW        1466/BDR       1469/AWM       1470/LCW       1470/LCW
           1471/CW        1474/BIR       1476/SLS       1477/AI        1484/BIR       1486/LB        1497/BIR
           1499/LB        1503/BIR       1505/LB        1737/LW        1738/CW        1740/AI        1745/STW
           1750/STW       1751/STH       1754/LW        1784/LW        1845/LI        1861/SAD       1912/LI
           1913/STW       1914/LW        1915/CW        1922/LW        1925/LW        1926/LW        1929/STW
           1948/LW        1949/STW       1971/STW       1977/LW        1978/LW        1979/STW       1980/AI
           1981/CW        1984/AI        1985/STW       2005/LI        2023/LB        2032/LI        2033/STW
           2034/STW       2036/LB        2037/SLS       2038/STW       2039/STW       2040/AI        2042/LB
           2047/AI        2059/LI        2061/CW        2063/BDR       2071/LB        2077/LW        2078/AND
           2080/STW       2081/LI        2082/STW       2083/LW        2084/LB        2087/LW        2090/AI
           2092/CB        2118/LB        2156/LI        2157/STW       2158/BIR       2160/LI        2163/LI
           2204/OR        2206/LI        2209/LH        2211/BIR       2214/AW        2215/LCW       2215/LCW
           2225/LW        2226/STW       2227/LI        2228/STW       2258/LW        2269/LW        2274/LW
           2284/STS       2287/STS       2290/AI        2326/STW       2327/LI        2343/STH       2345/AI
           2348/STH       2349/AI        2350/STW       2353/LI        2354/STW       2355/LW        2356/AI
           2357/AWM       2358/AI        2359/CW        2361/LW        2385/LI        2398/STB       2399/BIR
           2402/STB       2403/BIR       2405/LI        2412/AI        2413/CI        2417/CI        2419/STB
           2420/AI        2423/AI        2425/SLS       2426/STB       2879/LW        2880/CI        2885/LI
           2886/CW        2897/AI        2898/LW        2899/CS        2919/LI        2930/LW        2934/CI
           2936/LW        3001/LW        3008/CW        3011/AW        3013/CW        3017/LW        3018/STW
           3034/LI        3035/STW       3036/LI        3037/STW       3038/LI        3039/STW       3040/LI
           3041/STW       3047/LI        3048/STW       3049/STW       3057/LW        3058/AI        3059/STW
           3060/LW        3062/AND       3072/AI        3073/STW       3074/LW        3080/STS       3085/STW
           3089/STW       3094/STW       3095/AI        3580/LI        3581/STW       3608/LH        3609/LW
           3610/STW       3611/BDR       3614/LW        3617/STW       3618/AI        3619/CW        3652/LI
           3653/LW        3655/AI        3656/CW        3661/LW        3662/LW        3664/AI        3665/CW
           3670/LW        3675/BDR       3704/LW        3705/AND       3706/STW       3707/LW        3708/STW
           3713/LW        3714/SW        3715/AND       3716/CI        3720/LW        3721/STH       3724/LW
           3727/LW        3728/STW       3730/LW        3731/STW       3831/LI        3832/CW        3846/AI
           3847/LW        3848/CS        3874/LI        3883/LW        3892/IF        3893/LW        3979/LW
           3980/SW        3981/AND       3983/AW        3988/SW        3993/LW        3994/STS       4000/LW
           4001/AI        4006/STW       4011/STW       4016/STW       4017/AI
    XTSAVE
            255-RES       2082/STW       2083/LW        2085/AWM       2086/MTW       2087/LW        2326/STW
           2361/LW        3518/STW       3520/LW
    X1
            390-EQU
    X1BUF
             78/REF        284/EQU       3545/LI
    X2
            391-EQU       1436/LI        1445/STB       1446/AI
    X3
            392-EQU
    X3BUF
             78/REF        286/EQU       3541/LI
    X4
            393-EQU       1437/LI        1442/LI        1443/DW        1444/AI        1445/STB
    X5
            394-EQU       1438/LW        1440/LW        1447/AI        3391/LW        3392/SW        3393/AW
           3394/SW        3395/AI        3405/LW        3406/SW
    X6
            395-EQU       3396/LI        3407/LI
    X7
            396-EQU       1365/BAL       1430/BAL       3378/BAL       3386/BAL       3397/BAL       3408/BAL
           3410/BAL
    ZERO
            266-DATA      2520/LD        2521/LD        2640/LD        2711/LD
    7FDPWORD
           2066/LW        2122-TEXT
    %
            206/RES        230/RES        704/BDR        818/ORG        893/ORG       1156/BNE       1186/BEZ
           1450/EQU       1466/BDR       1484/BIR       1497/BIR       1503/BIR       1788/BEZ       1814/BNOV
           1817/BNOV      1820/BNOV      1859/BL        1924/BEZ       2045/BNE       2121/EQU       2158/BIR
           2187/BL        2718/BAZ       2789/BNE       2793/BNE       2942/BANZ      3078/BAZ       3101/BAZ
           3107/BAZ       3128/BAZ       3141/BAZ       3178/BAZ       3184/BAZ       3200/BAZ       3218/BAZ
           3238/BANZ      3245/BAZ       3266/BANZ      3462/BANZ      3465/BAZ       3468/BAZ       3611/BDR
    %%#
            525-ISYM
    %#
            524-ISYM
    #BLANKS
             81/REF        695/STW
    #SYSITEM
            203-RES        682/STW       2080/STW       2096/MTW
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APNCD'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APNCD                   %%%%%
         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   02 00000                 NCDP     CSECT    1                 PROCEDURE & STATIC DATA
        34                            *
        35                                     SYSTEM   AP%IL
        36                            *
        37                                     DEF      NCDP              (FOR MAP)
        38                                     DEF      NCDR              ENTRY POINT
        39                                     DEF      NCDREND           END OF ENCODER PROCEDURE
        40                                     DEF      CNTERM
        41                                     DEF      LINK
        42                                     REF      ABORT
        43                                     REF      DC%FLAG
        44                                     REF      DEDIT             BINARY TO EBCDIC DECIMAL CONVERSION
        45                                     REF      HWX1SIZE
        46                                     REF      OPENX5            OPEN THE SYMT SPILL FILE
        47                                     REF      POSITIONX3
        48                                     REF      READX5
        49                                     REF      REWX3
        50                                     REF      SDFCON
        51                                     REF      WDX1SIZE
        52                                     REF      WRITELO
        53                                     REF      WRITEX3
        54                                     REF      WRITEX5
        55                                     REF      READX1,WRITEX1,REWX1,POSITIONX1
        56                                     REF      BYX3SIZE,HWX3SIZE,WDX3SIZE
        57                                     REF      READSTD,WRITESTD,REWSTD
        58                                     REF      NEXTST,NXSYMB
        59                                     REF      EOF%FLAG
        60                                     REF      MAJLINE,SUBLINE   ASSEMBLY LINE NUMBER
        61         EXT                IM@MAJOR EQU      MAJLINE
        62         EXT                IM@MINOR EQU      SUBLINE
        63                                     REF      ND%FLAG
        64                                     REF      PD%FLAG
        65                                     REF      LS%FLAG
        66                                     REF      ENDCORE
        67                                     REF      LOWCORE
        68                                     REF      SAVAREA
        69                                     REF      VAL%S:IVAL        VALUE OF S:IVAL (FROM SYSTEM)
        70                                     REF      BUFSI
        71                                     REF      FIN%X1
        72                                     REF      IM@READ
        73                                     REF      IM@NAME,IM@COPY
        74                                     REF      IM@SYS
        75                                     REF      IM@END
        76                                     REF      NIVO
        77                                     REF      READC
        78                                     REF      X1BUF,X3BUF
        79                                     REF      LSTBF,CLRLSTBF
        80                                     REF      ROOTRTN
        81                                     REF      CIREC#,#BLANKS,LAST%UPDATE,NEXT%UPDATE
        82                                     REF      SKIP%COUNT,UPDATE%LINE%COUNT,PLUS,COMPTE%CI
        83                                     REF      CIRDREGS,CO%BUF,CO%REGI
        84   03 00000                 XAPD1    DSECT    0
        85                            *
        86                            *    'I S'   P R O C E D U R E
        87                            *
        88                            *        GENERATES THE SYNTAX TABLE, ONE STATEMENT (EQUATION) AT A TIME
        89                            *
        90                            *        ITEMS ARE SEPARATED BY COMMAS, AND MUST BE ONE OF THE FOLLOWING
        91                            *
        92                            *             (A)  A CHARACTER.  SPECIFIED AS A CHARACTER CONSTANT, OR
        93                            *                  A HEX OR INTEGER CONSTANT LESS THAN 256.
        94                            *
        95                            *             (B)  REFERENCE TO SYNTAX STATEMENT. WRITE THE NAME OF
        96                            *                  THE STATEMENT.
        97                            *
        98                            *             (C)  REFERENCE TO A SEMANTIC ROUTINE.  WRITE THE NAME OF
        99                            *                  THE SEMANTIC ROUTINE.
       100                            *
       101                            *        FORMAT OF EACH GENERATED SYNTAX ELEMENT:
       102                            *             TYPE: 2 BITS
       103                            *                00=CHARACTER
       104                            *                01=SEMANTIC ROUTINE REFERENCE
       105                            *                10=SYNTAX EQUATION REFERENCE
       106                            *             'OR' INCREMENT: 4 BITS
       107                            *                CONTAINS NO. OF SYNTAX ENTRIES FROM HERE TO THE
       108                            *                NEXT 'OR' OR 'ENDEQN' ENTRY
       109                            *
       110                            *             ADDRESS: 10 BITS
       111                            *                 FOR TYPE 00 - THE CHARACTER
       112                            *                 FOR TYPE 01 - OFFSET FROM LOCATION 'SEMANBAS' (WORDS)
       113                            *                 FOR TYPE 10 - OFFSET FROM LOCATION 'SYNTAX' (HALF-WDS)
       114                            *
       115                            *             EXCEPTION: THE ELEMENT FOLLOWING A 'WRITE' ELEMENT IS
       116                            *                 GENERATED AS A 16-BIT VALUE, SO THAT ALL 16 BITS
       117                            *                 MAY BE OUTPUT BY THE WRITE ROUTINE.
       118                            *
       119                            *             ALL OF THE SYNTAX STATEMENTS MUST RESIDE IN LOWER CORE
       120                            *                 THAN SEMANTIC ROUTINES, OR THE PROC WILL NOT GENERATE
       121                            *                 THE CORRECT RESULTS.
       122                            *
       123         00000002           PASS     SET      S:UFV(PASS)+1     SET A PASS SWITCH
       124         00000000           IS       CNAME
       125                                     PROC
       126                                     ERROR,0,NUM(LF)=0   'MISSING LABEL'
       127                            LF       RES,2    0                 DEFINE THE LABEL
       128                                     DO       PASS=1
       129                                     RES,2    NUM(AF)+1
       130                                     ELSE
       131                            IND      SET      1                 INDICATOR TO INDICATE 1ST GROUP
       132                            GNUM     SET      1                 TOTAL NUMBER OF GROUPS
       133                            GRPCT    SET      0                 SET ALL GROUP COUNTS TO ZERO
       134                            * NOW COUNT THE GROUPS, AND THE NUMBER OF ELEMENTS IN EACH
       135                            * A GROUP IS ZERO OR MORE SYNTAX ELEMENTS, TERMINATED BY AN 'OR'
       136                            *   ELEMENT OR THE END OF THE EQUATION.
       137                            I        DO       NUM(AF)
       138                                     DO       SCOR(AF(I),OR)
       139                            IND      SET      IND**4            SHIFT INDICATOR FOR NEXT GROUP
       140                            GNUM     SET      GNUM+1            BUMP NUMBER OF GROUPS
       141                                     ELSE
       142                            GRPCT    SET      GRPCT+IND         ADD TO COUNT IN CURRENT GROUP
       143                                     FIN
       144                                     FIN
       145                            * GROUPS ARE COUNTED, AND SO ARE THE ELEMENTS IN EACH GROUP
       146                            * NOW TO GENERATE FOR EACH ITEM
       147                            I        SET      1                 TO SEQUENCE THRU ARGUMENT FIELD
       148                            A        SET      0                 LAST-ELEMENT-IS-'WRITE',FLAG
       149                                     ERROR,3,GNUM>16  'TOO MANY ''OR'' ELEMENTS'
       150                                     DO       GNUM              GNUM CONTAINS NUMBER OF GROUPS
       151                            II       SET      GRPCT&15          II CONTAINS ELEMENTS IN EACH GROUP
       152                            GRPCT    SET      GRPCT**(-4)       SHIFT FOR NEXT GROUP
       153                                     DO       II
       154                                     DO       A
       155                                     DATA,2   AF(I)             PREVIOUS ELEMENT WAS 'WRITE'
       156                                     ELSE
       157                                     DO       CS(S:UFV(AF(I)))=0   IS ELEMENT A CHARACTER
       158                                     ISGEN    0,II,AF(I)        CHARACTER
       159                                     ELSE
       160                                     DO       S:UFV(WA(AF(I))<SEMANBAS)
       161                                     ISGEN    2,II,AF(I)-SYNTAX   SYNTAX EQUATION REFERENCE
       162                                     ELSE
       163                                     ISGEN    1,II,AF(I)-SEMANBAS SEMANTIC ROUTINE REFERENCE
       164                                     FIN
       165                                     FIN
       166                                     FIN
       167                            A        SET      SCOR(AF(I),WRITE)
       168                            II       SET      II-1
       169                            I        SET      I+1
       170                                     FIN
       171                            * THAT'S THE END OF A GROUP. NOW OUTPUT THE 'OR' OR 'ENDEQN' ELEMENT
       172                            *
       173                                     DO       I>NUM(AF)
       174                                     ISGEN    1,0,ENDEQN-SEMANBAS
       175                                     ELSE
       176                                     ISGEN    1,0,OR-SEMANBAS
       177                            I        SET      I+1
       178                                     FIN
       179                                     FIN
       180                                     FIN
       181                                     PEND
       182         00000000           ISGEN    CNAME
       183                                     PROC
       184                                     GEN,2,4,10  AF(1),AF(2),AF(3)
       185                                     PEND
       186                            *
       187                                     CLOSE    A,GNUM,GRPCT,I,II,IND,PASS
       188                            *
       189                            *  EQUATES FOR ABORT
       190                            *
       191         00000000           AR       EQU      0                 ABORT REGISTER
       192         00000003           ABORT3   EQU      3
       193         00000004           ABORT4   EQU      4
       194         00000015           ABORT21  EQU      21                STATEMENT TOO LONG         /27493/*D-NCD
1
       196                            *
       197                            *  STORAGE
       198   03 00000                 DRIVEREXIT  RES   1
       199   03 00001                 LASTCMND RES      1                 COMMAND ON LAST LINE
       200   03 00002                 LASTIN   RES      1                 INDEX TO LAST INPUT CHARACTER
       201   03 00003                 LOCX     RES      1                 LOCATION FOR NEXT LOCAL SYMBOL
       202   03 00004                 SDFCONNCDR  RES   1                 ADDRESS OF SYSTEM NAME TABLE
       203   03 00005                 #SYSITEM RES      1                 NUMBER OF SYSTEM NAMES
       204   03 00006                 PLOC     RES      1                 ORIGIN OF PROC LEVEL LOCAL TABLE
       205   03 00007                 PROCLV   RES      1                 NON-ZERO BETWEEN PROC AND PEND
       206   03 00008                          RES      ABSVAL(%)&1       BOUND 4 WITH NO DATA GENERATED
       207   03 00008                 HED      RES      20                ROOT OF BALANCED TREE SYM TAB
       208   03 0001C                 GET2REGS RES      8                 MUST BE ON DBL. WORD BOUND
       209   03 00024                 NSRTR1   RES      2                 TEMP IN INSERT
       210         03 00025           NSRTR2   EQU      NSRTR1+1
       211   03 00026                 ALFLAG   RES      1                 NON-ZERO WHEN IN A TEXT STRING
       212   03 00027                 BUFPTR   RES      1
       213   03 00028                 CARDADDR RES      1
       214   03 00029                 CHARTEMP RES      1                 TEMP IN CHAR
       215   03 0002A                 CMPCHAR  RES      1                 TEMP IN READCARD
       216   03 0002B                 CNCTRL   RES      1                 NZ = READING CN CONTROLS
       217   03 0002C                 CONTIN%ERROR  RES 1                 NZ FOR ERROR IN CONTINUATION
       218   03 0002D                 CREATE1STV  RES   1                 ENTRY TO CREATE1ST
       219   03 0002E                 CRE8XIT  RES      1                 XTRA XIT IN SEARCH/CREATE1ST
       220   03 0002F                 CURRCMND RES      1                 COMMAND ON CURRENT LINE
       221   03 00030                 CURLOCNT RES      1                 LOCALS ON CURRENT LINE
       222   03 00031                 DIR      RES      1                 DIR FLAG IN SPILL MODE
       223   03 00032                 DSLNCTRL RES      1                 FLAG FOR  LINE PRINT UNDER .DS CN CTL
       224   03 00033                 FIRSTREC RES      1
       225   03 00034                 FND      RES      1                 FOUND ADDRESS IN SEARCH
       226   03 00035                 INBUF    RES      1                 ADDRESS OF INPUT BUFFER ORIGIN
       227   03 00036                 INBUFLMT RES      1                 FIXED BUF START FOR DISK SPILL LOGIC
       228   03 00037                 INCOREB# RES      1                 BLOCK # OF SPILLED SYMT IN CORE
       229   03 00038                 INCOREBMAX  RES   1                 MAX BLOCK EVER WRITTEN
       230   03 00039                          RES      ABSVAL(%)&1
       231   03 0003A                 INCORELH RES      0                 VIRTUAL ADDRESS BOUNDS
       232   03 0003A                 INCOREL  RES      1                 LO VIRTUAL ADDR OF SPILLED PAGE
       233   03 0003B                 INCOREH  RES      1                 HI VIRTUAL ADDR OF SPILLED PAGE
       234   03 0003C                 INCORESF RES      1                 NZ = CORE PAGE STORED INTO
       235   03 0003D                 INSERTV  RES      1                 ENTRY TO INSERT ITEM IN SYMT
       236   03 0003E                 LVLBASE  RES      1
       237   03 0003F                 M0       RES      1                 TEMP IN SEARCH AND INSERT
       238   03 00040                 M1SAVE   RES      1                 TEMP IN MAP%ADDR
       239   03 00041                 NEWENTRYV   RES   1                 ENTRY TO NEWENTRY
       240   03 00042                 NEXTLINE#  RES    1                 OUTBUF INDEX FOR NEXT LINE NUMBER
       241   03 00043                 NUMRECX3 RES      1                 NUM REC IN X3
       242   03 00044                 NXTLOC   RES      1                 NUMBER OF ACTIVE LOCALS
       243   03 00045                 SEARCHV  RES      1                 ENTRY TO SEARCH SYMT
       244   03 00046                 SIGFLAG  RES      1                 TEMP IN SYSTEM
       245   03 00047                 SLOC     RES      1                 ORIGIN OF SOURCE LEVEL LOCAL TABLE
       246   03 00048                 SPILLFLG RES      1                 NZ = SYMT-SPILL MODE
       247   03 00049                 SRCHXIT  RES      1                 EXIT ADDRESS FOR VARIOUS SYMT RTNS.
       248   03 0004A                 SYMLMT   RES      1                 OFF SET OF SPILL PAGE
       249   03 0004B                 SYMLMTM1 RES      1                 OFFSET OF SPILL PAGE (-1)
       250   03 0004C                 SYMLMTM18   RES   1                 OFFSET OF SPILL PAGE (-18)
       251   03 0004D                 SYMTLMT  RES      1                 ADDRESS OF SPILLED SYMT PAGE
       252   03 0004E                 WDOUTRTN RES      1
       253   03 0004F                 NUMRECX1 RES      1                 NUM REC IN X1
       254   03 00050                 FIRSTST  RES      1                 1ST SYMBOL TABLE LOC
       255   03 00051                 XTSAVE   RES      1
       256   03 00052                 OVFLAG   RES      1                 OVERFLOW FLAG
       257   03 00053                 OUTSAVE  RES      1                 START OF ENCODED LINE
       258   03 00054                 CMPOUTSV RES      1                 START OF COMP IMAGE
1
       260                            *
       261                            *   STATIC DATA
       262                            *
       263   03 00055                          USECT NCDP
       264                            *
       265                                     BOUND    8
       266   02 00000    00000000 A   ZERO     DATA     0,0
             02 00001    00000000 A
       267   02 00002    00000001 A   P1       DATA     1,2
             02 00003    00000002 A
       268                            RNG%DFN%DIR       ;
       269   02 00004    00004014 A            DATA     CNAMEDIR,FNAMEDIR
             02 00005    0000401D A
       270                            RNG%SPC%DIR       ;                 SPECIAL DIRECTIVE #'S IN STLOOP
       271   02 00006    00004006 A            DATA     PENDDIR,FNAMEDIR
             02 00007    0000401D A
       272                            RNG%SYN%DIR       ;
       273   02 00008    00004001 A            DATA     CLOSEDIR,PAGEDIR
             02 00009    0000400D A
       274   02 0000A    04C2C54B A   ACUMSPCH TEXTC    'BE..'
             02 0000B    4B404040 A
1
       276                            *
       277                            *   MISCELLANEOUS EQUATES
       278                            *
       279         03 0000A           FFFSAVE  EQU      HED+2             12 WORDS OF TEMP IN FLT PT
       280         03 0003F           ACUMLNK  EQU      M0                RETURN FROM ACUM
       281         03 00024           SIGNLNK  EQU      NSRTR1            RETURN FROM SIGN
       282         03 00025           FFFGNCLNK  EQU    NSRTR2            RETURN FROM FFFGNC
       283         00000000           LVLTBL   EQU      0
       284         EXT                OUTBUF   EQU      X1BUF             ENCODED OUTPUT BUFFER
       285         EXT                OUTSIZE  EQU      HWX1SIZE          SIZE OF OUTBUF (IN HALFWORDS)
       286         EXT                SIBUF    EQU      X3BUF             COMPRESSED SOURCE RECORD BUFFER
       287         EXT                CF1BUF   EQU      SIBUF
       288         EXT                SYMBUF   EQU      OUTBUF
       289         EXT                FIRSTSTSDF  EQU   OUTBUF            STD DEF FILE FIRSTST
       290         00000001  S        NEXTSTSDF   EQU   OUTBUF+1          STD DEF FILE NEXTST
       291         00000002  S        NXSYMBSDF   EQU   OUTBUF+2          STD DEF FILE NXSYMB
       292         00000003  S        HEDSDF      EQU   OUTBUF+3          STD DEF FILE HED
       293         00000004  S        SDFCONSDF   EQU   OUTBUF+4          STD DEF FILE SDFCON
1
       295                            *
       296                            *  EQUATES FOR THE SYNTAX EQUATIONS FOLLOWING A 'WRITE'
       297                            *
       298         000020FF           ENDBUF     EQU    X'20FF'           END OF BUFFER
       299         00000000           ENDLN      EQU    0                 END OF LINE
       300         00000002           ENDLIST    EQU    2                 END LIST
       301         00000003           ENDSBSYM   EQU    3                 END SUBSCRIPTED SYMBOL
       302         00000004           ENDEXP     EQU    4                 END EXPRESSION
       303         00000005           BLANKEXP   EQU    5                 BLANK EXPRESSION
       304         00000006           BEGINLIST   EQU   X'6'              BEGIN LIST
       305         00000007           BEGINEXP EQU      X'7'              BEGIN EXPRESSION
       306         00000008           INDIROP  EQU      X'8'              INDIRECT OPERATOR
       307         00000009           TRUNERR  EQU      X'9'              TRUNCATION ERROR
       308         0000000A           SYNERR   EQU      X'A'              SYNTAX ERROR
       309         00000020           OROP       EQU    32
       310         00000021           XOROP      EQU    33
       311         00000022           ANDOP      EQU    34
       312         00000023           EQUALOP    EQU    35
       313         00000024           UNEQLOP    EQU    36
       314         00000025           GTEQOP     EQU    37
       315         00000026           LTEQOP     EQU    38
       316         00000027           GRTROP     EQU    39
       317         00000028           LESSOP     EQU    40
       318         00000029           MINUSOP    EQU    41
       319         0000002A           PLUSOP     EQU    42
       320         0000002B           DIVOP      EQU    43
       321         0000002C           INCLDIV    EQU    44
       322         0000002D           MPYOP      EQU    45
       323         0000002E           SCALEOP    EQU    46
       324         00004000           SYMTYPE    EQU    X'4000'           SYMBOL
       325         00008000           SBSYM      EQU    X'8000'           SUBSCRIPTED SYMBOL
       326         0000C000           SMALLINT   EQU    X'C000'           SMALL INTEGER
       327         0000E000           LARGEINT   EQU    X'E000'
       328                            *  LARGE INTEGER CONVERSION TYPES
       329         00000100           CT1      EQU      X'100'
       330         00000200           CT2      EQU      X'200'
       331         00000300           CT3      EQU      X'300'
       332         00000400           CT4      EQU      X'400'
       333         00000500           CT5      EQU      X'500'
       334         00000012           ENCTLOB  EQU      2+16              ENCODED TYPE FIELD LOB
       335         0000E000           ENCTYPE    EQU    X'E000'           ENCODE TYPE FIELD
       336         00001FFF           ENCVAL     EQU    X'1FFF'           VALUE FIELD
       337         0000000A           ADDRSIZE EQU      10
       338         000003FF           ADDRESS  EQU      1**ADDRSIZE-1
       339         00000004           INCRSIZE EQU      4
       340         00003C00           INCR     EQU      (1**INCRSIZE-1)**ADDRSIZE
       341         00000002           TYPESIZE EQU      2
       342         0000C000           TYPE     EQU      (1**TYPESIZE-1)**(INCRSIZE+ADDRSIZE)
       343         0000C3FF           NOTINCR  EQU      X'C3FF'
       344                            *
       345                            *   CN PROCESSING
       346                            *
       347         00FE0000           CNFLGFLD EQU      X'00FE0000'       ALL INTERESTING CN FLAGS
       348         00020000           CNDSFLG  EQU      X'020000'
       349         00000006           CNDSMODE EQU      6
       350         00004000           CNERR    EQU      2**(31-ENCTLOB)
       351         00800000           CNIOFLG  EQU      X'00800000'       .IO
       352         00400000           CNIOFLG1 EQU      X'00400000'       .IO NAME-LIST
       353         00000003           CNIOMODE EQU      3
       354         00080000           CNOSFLG  EQU      X'00080000'       .OS
       355         00000005           CNOSMODE EQU      5
       356         00200000           CNSSFLG  EQU      X'00200000'       .SS
       357         00100000           CNSSFLG1 EQU      X'00100000'       .SS NAME-LIST
       358         00000004           CNSSMODE EQU      4
       359                            *
       360                            *   MISCELLANEOUS
       361         00000005           TAB      EQU      5
       362                            *
       363                            * REGISTER ASSIGNMENTS
       364                            *
       365         00000001           XT       EQU      1                 TEMP
       366         00000002           IN       EQU      2                 INDEX TO INBUF (BYTE)
       367         00000003           OUT      EQU      3                 INDEX TO OUTBUF (HALFWORD)
       368         00000004           SYN      EQU      4                 INDEX TO SYNTAX TBL (HALFWORD)
       369         00000005           LVL      EQU      5                 INDEX TO SYNTAX LEVEL TBL (WORD)
       370         00000006           N        EQU      6                 TEMP
       371         00000006           LL       EQU      6                 SYMBOL TABLE LINK
       372         00000007           CRG      EQU      7                 CONTAINS CURRENT INPUT CHARACTER
       373         00000008           RT1      EQU      8                 TEMP
       374         00000009           RT2      EQU      9                 TEMP
       375         0000000A           RT3      EQU      10                TEMP
       376         0000000B           RT4      EQU      11                TEMP
       377         0000000D           LINK     EQU      13                LINK REG FOR INPUT MODULE.
       378         0000000E           CT       EQU      14                TEMP
       379         0000000F           RL       EQU      15                LINK REG FOR SUBROUTINE CALLS
       380         0000000F           RT5      EQU      RL                TEMP IN SEARCH
       381         00000006           U        EQU      N                 SEARCH AND INSERT
       382         00000004           V        EQU      SYN               SEARCH AND INSERT
       383         00000005           W        EQU      LVL               SEARCH AND INSERT
       384         00000007           X        EQU      7                 SRCHIST
       385         00000001           VWX      EQU      1                 SRCHIST
       386         00000007           M1       EQU      7                 SRCHIST
       387         00000008           SR1      EQU      8                 ************************************
       388         00000009           SR2      EQU      9                 ************************************
       389         0000000A           SR3      EQU      10
       390         00000001           X1       EQU      1
       391         00000002           X2       EQU      2
       392         00000003           X3       EQU      3
       393         00000004           X4       EQU      4
       394         00000005           X5       EQU      5
       395         00000006           X6       EQU      6
       396         00000007           X7       EQU      7
       397         00000008           IOADD    EQU      8                 I/O BUFFER ADDRESS
       398         00000009           IOSIZE   EQU      9                 I/O BUFFER SIZE
       399         0000000A           IORL     EQU      10                I/O RETURN LINK REGISTER
1
       401                            *
       402                            * FIELDS AND MASKS FOR THE BALANCED TREE SYMBOL TABLE
       403                            *
       404         00040000           DIRFLD   EQU      X'40000'          DIRECTION FIELD
       405         03 00008           LLWD     EQU      HED               WORD CONTAINING LESSER LINK
       406         03 00009           GLWD     EQU      HED+1             WORD CONTAINING GREATER LINK
       407         03 0000A           SYM1     EQU      HED+2             1ST WORD CONTAINING CHARACTERS
       408         03 00008           WDCTWD   EQU      HED               WORD CONTAINING WDCT FIELD
       409         03 00008           BALWD    EQU      HED               WORD CONTAINING BALANCE FIELD
       410         03 00008           DIRWD    EQU      HED               WORD CONTAINING DIRECTION FIELD
       411         00030000           BALFLD   EQU      X'30000'          BALANCE FIELD
       412         03 00009           SNWD     EQU      HED+1             WORD CONTAINING SYMBOL NUMBER
       413         03 00008           PTRWD    EQU      HED               WORD CONTAINING PTR FIELD
       414         00000009           PTRLOB   EQU      9                 PTR FIELD POSITION
       415         00400000           PTRFLD   EQU      1**(31-PTRLOB)    PTR FIELD
       416         00200000           CLOFLD   EQU      X'200000'         CLO FIELD
       417         00100000           DSSYMBIT EQU      X'00100000'       SYMT FLAG FOR .DS CN NAME
       418         00800000           CF1FLD   EQU      X'800000'         CF1 FIELD
       419         0000FFFF           GLFLD    EQU      X'FFFF'           GREATER LINK FIELD
       420         0000FFFF           LLFLD    EQU      X'FFFF'           LESSER LINK FIELD
       421         DPI                SNFLD      EQU    X'FFFF0000'
       422         00000000           BOFFSET    EQU    BALWD-HED
       423         00000000           DOFFSET    EQU    DIRWD-HED
       424         00000001           GLOFFSET   EQU    GLWD-HED
       425         00000000           LLOFFSET   EQU    LLWD-HED
       426         00000000           PTROFFSET  EQU    PTRWD-HED
       427         00000001           SNOFFSET   EQU    SNWD-HED
1
       429                            *
       430                            *   D I R E C T I V E   B R A N C H   T A B L E
       431                            *
       432   02 0000C                 DIRBR    RES      0
       433   02 0000C    0000     A            HALF,SYNTAX              0 COMMENT
       434   02 0000C 2  0082     A            HALF     CLOSE           1
       435   02 0000D    008E     A            HALF     LOCAL           2
       436   02 0000D 2  0076     A            HALF     OPEN            3
       437   02 0000E    009F     A            HALF     SYSTEM          4
       438   02 0000E 2  0072     A            HALF     PROC            5
       439   02 0000F    0000     A            HALF     0               6 PEND
       440   02 0000F 2  0000     A            HALF     0               7 END
       441   02 00010    0000     A            HALF     0               8 DATA
       442   02 00010 2  00A3     A            HALF     SKIP%OPERAND    9 ASECT
       443   02 00011    00A3     A            HALF     SKIP%OPERAND    A SOCW
       444   02 00011 2  00A3     A            HALF     SKIP%OPERAND    B ELSE
       445   02 00012    00A3     A            HALF     SKIP%OPERAND    C FIN
       446   02 00012 2  00A3     A            HALF     SKIP%OPERAND    D PAGE
       447                                     BOUND    8
       448                            *
       449                            *   I N T R I N S I C   S Y M B O L   T A B L E
       450                            *
       451         00000000           I:#      SET      0                 INTRINSIC SYMBOL #
       452                            *
       453         00000000           ISYM     CNAME
       454                                     PROC
       455                            I:#      SET      I:#+1             TO NEXT #
       456                            LF       EQU      I:#               DEFINE A POSSIBLE LABEL
       457                                     TEXTC    AF(1)
       458                                     PEND
       459                            *
       460                                     BOUND    4
       461   02 00014                 INTBLO   RES      0
       462         00000000           COMNT#   EQU      I:#               COMMENT 'DIRECTIVE'
       463   02 00014    05C3D3D6 A   CLOSE#   ISYM     'CLOSE'
             02 00015    E2C54040 A
       464   02 00016    05D3D6C3 A   LOCAL#   ISYM     'LOCAL'
             02 00017    C1D34040 A
       465   02 00018    04D6D7C5 A   OPEN#    ISYM     'OPEN'
             02 00019    D5404040 A
       466   02 0001A    06E2E8E2 A   SYSTEM#  ISYM     'SYSTEM'
             02 0001B    E3C5D440 A
       467   02 0001C    04D7D9D6 A   PROC#    ISYM     'PROC'
             02 0001D    C3404040 A
       468   02 0001E    04D7C5D5 A   PEND#    ISYM     'PEND'
             02 0001F    C4404040 A
       469   02 00020    03C5D5C4 A   END#     ISYM     'END'
       470   02 00021    04C4C1E3 A   DATA#    ISYM     'DATA'
             02 00022    C1404040 A
       471   02 00023    05C1E2C5 A   ASECT#   ISYM     'ASECT'
             02 00024    C3E34040 A
       472   02 00025    04E2D6C3 A   SOCW#    ISYM     'SOCW'
             02 00026    E6404040 A
       473   02 00027    04C5D3E2 A   ELSE#    ISYM     'ELSE'
             02 00028    C5404040 A
       474   02 00029    03C6C9D5 A   FIN#     ISYM     'FIN'
       475   02 0002A    04D7C1C7 A   PAGE#    ISYM     'PAGE'
             02 0002B    C5404040 A
       476   02 0002C    03D7C3C3 A   PCC#     ISYM     'PCC'
       477   02 0002D    03C4C5C6 A   DEF#     ISYM     'DEF'
       478   02 0002E    03D9C5C6 A   REF#     ISYM     'REF'
       479   02 0002F    04E2D9C5 A   SREF#    ISYM     'SREF'
             02 00030    C6404040 A
       480   02 00031    03D7E2D9 A   PSR#     ISYM     'PSR'
       481   02 00032    05C2D6E4 A   BOUND#   ISYM     'BOUND'
             02 00033    D5C44040 A
       482   02 00034    05C3D5C1 A   CNAME#   ISYM     'CNAME'
             02 00035    D4C54040 A
       483   02 00036    03C3D6D4 A   COM#     ISYM     'COM'
       484   02 00037    05C3E2C5 A   CSECT#   ISYM     'CSECT'
             02 00038    C3E34040 A
       485   02 00039    04C4C9E2 A   DISP#    ISYM     'DISP'
             02 0003A    D7404040 A
       486   02 0003B    02C4D640 A   DO#      ISYM     'DO'
       487   02 0003C    03C4D6F1 A   DO1#     ISYM     'DO1'
       488   02 0003D    05C4E2C5 A   DSECT#   ISYM     'DSECT'
             02 0003E    C3E34040 A
       489   02 0003F    03C5D8E4 A   EQU#     ISYM     'EQU'
       490   02 00040    05C5D9D9 A   ERROR#   ISYM     'ERROR'
             02 00041    D6D94040 A
       491   02 00042    05C6D5C1 A   FNAME#   ISYM     'FNAME'
             02 00043    D4C54040 A
       492   02 00044    03C7C5D5 A   GEN#     ISYM     'GEN'
       493   02 00045    04C7D6E3 A   GOTO#    ISYM     'GOTO'
             02 00046    D6404040 A
       494   02 00047    04D3C9E2 A   LIST#    ISYM     'LIST'
             02 00048    E3404040 A
       495   02 00049    03D3D6C3 A   LOC#     ISYM     'LOC'
       496   02 0004A    03D6D9C7 A   ORG#     ISYM     'ORG'
       497   02 0004B    05D7E2C5 A   PSECT#   ISYM     'PSECT'
             02 0004C    C3E34040 A
       498   02 0004D    04D7E2E8 A   PSYS#    ISYM     'PSYS'
             02 0004E    E2404040 A
       499   02 0004F    03D9C5E2 A   RES#     ISYM     'RES'
       500   02 00050    05E27AE2 A   S:SIN#   ISYM     'S:SIN'
             02 00051    C9D54040 A
       501   02 00052    03E2C5E3 A   SET#     ISYM     'SET'
       502   02 00053    05E2D7C1 A   SPACE#   ISYM     'SPACE'
             02 00054    C3C54040 A
       503   02 00055    04E3C5E7 A   TEXT#    ISYM     'TEXT'
             02 00056    E3404040 A
       504   02 00057    05E3C5E7 A   TEXTC#   ISYM     'TEXTC'
             02 00058    E3C34040 A
       505   02 00059    05E3C9E3 A   TITLE#   ISYM     'TITLE'
             02 0005A    D3C54040 A
       506   02 0005B    05E4E2C5 A   USECT#   ISYM     'USECT'
             02 0005C    C3E34040 A
       507                            *
       508   02 0005D    05E27AC1 A   S:AAD#   ISYM     'S:AAD'
             02 0005E    C1C44040 A
       509   02 0005F    03E27AC3 A   S:C#     ISYM     'S:C'
       510   02 00060    03E27AC4 A   S:D#     ISYM     'S:D'
       511   02 00061    05E27AC4 A   S:DPI#   ISYM     'S:DPI'
             02 00062    D7C94040 A
       512   02 00063    05E27AC5 A   S:EXT#   ISYM     'S:EXT'
             02 00064    E7E34040 A
       513   02 00065    04E27AC6 A   S:FL#    ISYM     'S:FL'
             02 00066    D3404040 A
       514   02 00067    04E27AC6 A   S:FR#    ISYM     'S:FR'
             02 00068    D9404040 A
       515   02 00069    04E27AC6 A   S:FS#    ISYM     'S:FS'
             02 0006A    E2404040 A
       516   02 0006B    04E27AC6 A   S:FX#    ISYM     'S:FX'
             02 0006C    E7404040 A
       517   02 0006D    05E27AC9 A   S:INT#   ISYM     'S:INT'
             02 0006E    D5E34040 A
       518   02 0006F    05E27AD3 A   S:LFR#   ISYM     'S:LFR'
             02 00070    C6D94040 A
       519   02 00071    06E27AD3 A   S:LIST#  ISYM     'S:LIST'
             02 00072    C9E2E340 A
       520   02 00073    05E27AD9 A   S:RAD#   ISYM     'S:RAD'
             02 00074    C1C44040 A
       521   02 00075    05E27AE2 A   S:SUM#   ISYM     'S:SUM'
             02 00076    E4D44040 A
       522                            *
       523   02 00077    06E27AC9 A   S:IVAL#  ISYM     'S:IVAL'
             02 00078    E5C1D340 A
       524   02 00079    015B4040 A   %#       ISYM     '%'
       525   02 0007A    025B5B40 A   %%#      ISYM     '%%'
       526                            *
       527   02 0007B    02C1C640 A   AF#      ISYM     'AF'
       528   02 0007C    03C1C6C1 A   AFA#     ISYM     'AFA'
       529   02 0007D    02C3C640 A   CF#      ISYM     'CF'
       530   02 0007E    02D3C640 A   LF#      ISYM     'LF'
       531   02 0007F    04D5C1D4 A   NAME#    ISYM     'NAME'
             02 00080    C5404040 A
       532                            *
       533   02 00081    02C2C140 A   BA#      ISYM     'BA'
       534   02 00082    02C8C140 A   HA#      ISYM     'HA'
       535   02 00083    02E6C140 A   WA#      ISYM     'WA'
       536   02 00084    02C4C140 A   DA#      ISYM     'DA'
       537   02 00085    06C1C2E2 A   ABSVAL#  ISYM     'ABSVAL'
             02 00086    E5C1D340 A
       538   02 00087    02C3E240 A   CS#      ISYM     'CS'
       539   02 00088    03D5E4D4 A   NUM#     ISYM     'NUM'
       540   02 00089    05E27AC9 A   S:IFR#   ISYM     'S:IFR'
             02 0008A    C6D94040 A
       541   02 0008B    06E27AD5 A   S:NUMC#  ISYM     'S:NUMC'
             02 0008C    E4D4C340 A
       542   02 0008D    04E27AD7 A   S:PT#    ISYM     'S:PT'
             02 0008E    E3404040 A
       543   02 0008F    05E27AE4 A   S:UFV#   ISYM     'S:UFV'
             02 00090    C6E54040 A
       544   02 00091    04E27AE4 A   S:UT#    ISYM     'S:UT'
             02 00092    E3404040 A
       545                            *
       546   02 00093    01D34040 A   L#       ISYM     'L'
       547         00000050           I:#      SET      I:#+1             '=' OPERATOR
       548   02 00094    06E27AD2 A   S:KEYS#  ISYM     'S:KEYS'
             02 00095    C5E8E240 A
       549   02 00096    04E2C3D6 A   SCOR#    ISYM     'SCOR'
             02 00097    D9404040 A
       550   02 00098    04E3C3D6 A   TCOR#    ISYM     'TCOR'
             02 00099    D9404040 A
       551   02 0009A                 INTBLE   RES      0
       552                            *
       553                            *  MISCELLANEOUS PARAMETERIZATION OF INTRINSIC SYMBOLS
       554                            *
       555         00004001           CLOSEDIR EQU      SYMTYPE+CLOSE#
       556         00004014           CNAMEDIR EQU      SYMTYPE+CNAME#
       557         00004000           COMNTDIR EQU      SYMTYPE+COMNT#
       558         00004015           COMDIR   EQU      SYMTYPE+COM#
       559         00004007           ENDDIR   EQU      SYMTYPE+END#
       560         0000401D           FNAMEDIR EQU      SYMTYPE+FNAME#
       561         0000400D           PAGEDIR  EQU      SYMTYPE+PAGE#
       562         00004006           PENDDIR  EQU      SYMTYPE+PEND#
       563         0000804F           SBLSYM   EQU      L#+SBSYM          BEGIN LITERAL FUNCTION
1
       565                            *
       566                            *    C H A R A C T E R   C L A S S   T A B L E
       567                            *
       568                            *        THIS TABLE IS USED TO CLASSIFY INPUT CHARACTERS AS
       569                            *          HEX (BIT 0), OCTAL (BIT 1), DECIMAL (BIT 2),
       570                            *          AND ALPHABETIC (BIT 3).  BITS 4 THRU 7 CONTAIN THE
       571                            *          NUMERIC EQUIVALENT OF HEX CHARACTERS.
       572                            *
       573         00000010           ALPH     EQU      16                BIT THREE
       574         00000020           DEC      EQU      32                BIT TWO
       575         00000080           HEX      EQU      128               BIT ZERO
       576         00000040           OCT      EQU      64                BIT ONE
       577                            *
       578   02 0009A                 CONVTBL  RES      0
       579   02 0009A                          DO1      X'58'/4
       580   02 0009A    00000000 A            DATA     0               00 THRU X'57'
             02 0009B    00000000 A
             02 0009C    00000000 A
             02 0009D    00000000 A
             02 0009E    00000000 A
             02 0009F    00000000 A
             02 000A0    00000000 A
             02 000A1    00000000 A
             02 000A2    00000000 A
             02 000A3    00000000 A
             02 000A4    00000000 A
             02 000A5    00000000 A
             02 000A6    00000000 A
             02 000A7    00000000 A
             02 000A8    00000000 A
             02 000A9    00000000 A
             02 000AA    00000000 A
             02 000AB    00000000 A
             02 000AC    00000000 A
             02 000AD    00000000 A
             02 000AE    00000000 A
             02 000AF    00000000 A
       581   02 000B0    00000010 A            DATA     ALPH              X'5B' IS DOLLAR SIGN
       582   02 000B1                          DO1      (X'6C'-X'5C')/4
       583   02 000B1    00000000 A            DATA     0
             02 000B2    00000000 A
             02 000B3    00000000 A
             02 000B4    00000000 A
       584   02 000B5    00100000 A            DATA     ALPH**16          X'6D' IS BREAK
       585   02 000B6                          DO1      (X'78'-X'70')/4
       586   02 000B6    00000000 A            DATA     0
             02 000B7    00000000 A
       587   02 000B8    00001010 A            DATA     ALPH**8+ALPH      X'7A' IS COLON, X'7B' IS POUND
       588   02 000B9    10000000 A            DATA     ALPH**24          X'7C' IS AT SIGN
       589   02 000BA                          DO1      (X'C0'-X'80')/4
       590   02 000BA    00000000 A            DATA     0
             02 000BB    00000000 A
             02 000BC    00000000 A
             02 000BD    00000000 A
             02 000BE    00000000 A
             02 000BF    00000000 A
             02 000C0    00000000 A
             02 000C1    00000000 A
             02 000C2    00000000 A
             02 000C3    00000000 A
             02 000C4    00000000 A
             02 000C5    00000000 A
             02 000C6    00000000 A
             02 000C7    00000000 A
             02 000C8    00000000 A
             02 000C9    00000000 A
       591   02 000CA    00       A            DATA,1   0                 X'C0'
       592         00000006           I        DO       6                 X'C1' THRU X'C7'  A THRU F
       593   02 000CA 1  9A       A            DATA,1   ALPH+HEX+I+9
       594                                     FIN
             02 000CA 2  9B       A
             02 000CA 3  9C       A
             02 000CB    9D       A
             02 000CB 1  9E       A
             02 000CB 2  9F       A
       595   02 000CB 3                        DO1      3
       596   02 000CB 3  10       A            DATA,1   ALPH              G,H,AND I
             02 000CC    10       A
             02 000CC 1  10       A
       597   02 000CC 2                        DO1      X'D1'-X'CA'
       598   02 000CC 2  00       A            DATA,1   0
             02 000CC 3  00       A
             02 000CD    00       A
             02 000CD 1  00       A
             02 000CD 2  00       A
             02 000CD 3  00       A
             02 000CE    00       A
       599   02 000CE 1                        DO1      X'DA'-X'D1'       J THRU R
       600   02 000CE 1  10       A            DATA,1   ALPH
             02 000CE 2  10       A
             02 000CE 3  10       A
             02 000CF    10       A
             02 000CF 1  10       A
             02 000CF 2  10       A
             02 000CF 3  10       A
             02 000D0    10       A
             02 000D0 1  10       A
       601   02 000D0 2                        DO1      X'E2'-X'DA'
       602   02 000D0 2  00       A            DATA,1   0
             02 000D0 3  00       A
             02 000D1    00       A
             02 000D1 1  00       A
             02 000D1 2  00       A
             02 000D1 3  00       A
             02 000D2    00       A
             02 000D2 1  00       A
       603   02 000D2 2                        DO1      X'EA'-X'E2'       S THRU Z
       604   02 000D2 2  10       A            DATA,1   ALPH
             02 000D2 3  10       A
             02 000D3    10       A
             02 000D3 1  10       A
             02 000D3 2  10       A
             02 000D3 3  10       A
             02 000D4    10       A
             02 000D4 1  10       A
       605   02 000D4 2                        DO1      X'F0'-X'EA'
       606   02 000D4 2  00       A            DATA,1   0
             02 000D4 3  00       A
             02 000D5    00       A
             02 000D5 1  00       A
             02 000D5 2  00       A
             02 000D5 3  00       A
       607         00000008           I        DO       8                 0 THRU 7
       608   02 000D6    E0       A            DATA,1   HEX+OCT+DEC+I-1
       609                                     FIN
             02 000D6 1  E1       A
             02 000D6 2  E2       A
             02 000D6 3  E3       A
             02 000D7    E4       A
             02 000D7 1  E5       A
             02 000D7 2  E6       A
             02 000D7 3  E7       A
       610   02 000D8    A8       A            DATA,1   HEX+DEC+8,HEX+DEC+9
             02 000D8 1  A9       A
       611   02 000D8 2                        DO1      X'100'-X'FA'
       612   02 000D8 2  00       A            DATA,1   0
             02 000D8 3  00       A
             02 000D9    00       A
             02 000D9 1  00       A
             02 000D9 2  00       A
             02 000D9 3  00       A
       613                                     BOUND    4
       614                            CNERR1%MSG        ;
       615   02 000DA    405C5C40 A            TEXT     ' ** NO ''.'' IN COL 1 - CN SCAN TERMINATED'
             02 000DB    D5D6407D A
             02 000DC    4B7D40C9 A
             02 000DD    D540C3D6 A
             02 000DE    D340F140 A
             02 000DF    6040C3D5 A
             02 000E0    40E2C3C1 A
             02 000E1    D540E3C5 A
             02 000E2    D9D4C9D5 A
             02 000E3    C1E3C5C4 A
       616                            SPILL%MSG         ;
       617   02 000E4    40C5D5C3 A            TEXT     ' ENCODER SPILL TO RAD STORAGE   '
             02 000E5    D6C4C5D9 A
             02 000E6    40E2D7C9 A
             02 000E7    D3D340E3 A
             02 000E8    D640D9C1 A
             02 000E9    C440E2E3 A
             02 000EA    D6D9C1C7 A
             02 000EB    C5404040 A
       618                            SPILL%MSG%REQ     ;
       619   02 000EC    40E3D6E3 A            TEXT     ' TOTAL SPACE REQUIRED IS        '
             02 000ED    C1D340E2 A
             02 000EE    D7C1C3C5 A
             02 000EF    40D9C5D8 A
             02 000F0    E4C9D9C5 A
             02 000F1    C440C9E2 A
             02 000F2    40404040 A
             02 000F3    40404040 A
       620                            SPILL%MSG%AVL     ;
       621   02 000F4    40E3D6E3 A            TEXT     ' TOTAL SPACE AVAILABLE IS       '
             02 000F5    C1D340E2 A
             02 000F6    D7C1C3C5 A
             02 000F7    40C1E5C1 A
             02 000F8    C9D3C1C2 A
             02 000F9    D3C540C9 A
             02 000FA    E2404040 A
             02 000FB    40404040 A
       622   02 000FC    FFFFFFEC A   CIREGS   DATA     -20,'    ',0,0,0,0
             02 000FD    40404040 A
             02 000FE    00000000 A
             02 000FF    00000000 A
             02 00100    00000000 A
             02 00101    00000000 A
       623   02 00102    3800006C A   INIT%CO%WORD DATA X'3800006C'
       624   02 00103    00000020 A   CO%REGS  DATA     32,-26,0
             02 00104    FFFFFFE6 A
             02 00105    00000000 A
1
       626                            *
       627                            *   N C D R
       628                            *        THIS IS THE TRANSFER POINT TO BEGIN EXECUTION OF THE PROGRAM
       629                            *
       630   02 00106                 NCDR     RES      0
       631   02 00106    35A00000 X            STW,10   ROOTRTN           SAVE RETURN ADDRESS TO ROOT
       632   02 00107    6AA00000 X            BAL,IORL REWX1
       633   02 00108    6AA00000 X            BAL,IORL REWX3
       634   02 00109    226FFFFF N            LI,N     -(BYX3SIZE+1)     INITIALIZE
       635   02 0010A    35600054 03           STW,N    CMPOUTSV          COMPRESSED OUT INDEX
       636   02 0010B    2260001F A            LI,N     31                SET S:IVAL TO ALLOW SIG9P OPS
       637   02 0010C    35600000 X            STW,N    VAL%S:IVAL
       638                            *
       639                            *   INITIALIZE NON-SPILL SYMT MANAGEMENT ENTRY POINTS
       640                            *
       641   02 0010D    22600495              LI,N     CREATE1ST
       642   02 0010E    3560002D 03           STW,N    CREATE1STV
       643   02 0010F    226007F2              LI,N     INSERT
       644   02 00110    3560003D 03           STW,N    INSERTV
       645   02 00111    226007CB              LI,N     NEWENTRY
       646   02 00112    35600041 03           STW,N    NEWENTRYV
       647   02 00113    22600788              LI,N     SEARCH
       648   02 00114    35600045 03           STW,N    SEARCHV
       649                            *
       650                            *        PRESET THE TEST LIMITS FOR POSSIBLE SPILL.  BASICALLY,
       651                            *        WE WANT TO HOLD OUT 4 PAGES FOR INBUF, LEVEL TABLE, LOCAL
       652                            *        TABLE, AND SYSTEM NAME TABLE.  IF NOT ENOUGH ROOM, HOWEVER,
       653                            *        LEAVE ONE FIXED PAGE FOR THE SYMBOL TABLE, AND HOLD OUT THE
       654                            *        REST.
       655                            *
       656   02 00115    32100000 X            LW,XT    ENDCORE
       657   02 00116    32600000 X            LW,N     ENDCORE
       658   02 00117    38600000 X            SW,N     LOWCORE           AVAILABLE WORD COUNT
       659   02 00118    4B600AE2              AND,N    L(-512)           CONVERT TO INTEGRAL # PAGES
       660   02 00119    206FFE00 A            AI,N     -512              RESERVE 1 PAGE FOR FIXED AREA
       661         001F0000                    IF,GZ
             02 0011A    6820011F
       662         001F0100                    IF,G     2048,N
             02 0011B    21600800 A
             02 0011C    6820011E
       663   02 0011D    22600800 A            LI,N     2048
       664         00F10100                    FI
       665   02 0011E    38100006 A            SW,XT    N
       666         00F10000                    FI
       667   02 0011F    35100036 03           STW,XT   INBUFLMT
       668   02 00120    201FFE00 A            AI,XT    -512
       669   02 00121    31100000 X            CW,XT    LOWCORE
       670         001F0000                    IF,L
             02 00122    68100124
       671   02 00123    32100000 X            LW,XT    LOWCORE
       672         00F10000                    FI
       673   02 00124    3510004D 03           STW,XT   SYMTLMT           ADDRESS OF SPILL PAGE
       674   02 00125    201FFFF8 N            AI,XT    -HED
       675   02 00126    3510004A 03           STW,XT   SYMLMT            OFF SET OF SPILL PAGE
       676   02 00127    201FFFFF A            AI,XT    -1
       677   02 00128    3510004B 03           STW,XT   SYMLMTM1          OFFSET OF SPILL PAGE (-1)
       678   02 00129    201FFFEF A            AI,XT    -17
       679   02 0012A    3510004C 03           STW,XT   SYMLMTM18         OFFSET OF SPILL PAGE (-18)
       680   02 0012B    22600000 A            LI,N     0
       681   02 0012C    35600008 03           STW,N    HED               CLEAR ENTRY POINT TO SYMBOL TABLE
       682   02 0012D    35600005 03           STW,N    #SYSITEM          NUMBER OF SYSTEM NAMES
       683   02 0012E    3560004F 03           STW,N    NUMRECX1          NUMBER OF RECORDS IN X1
       684   02 0012F    3560002B 03           STW,N    CNCTRL            CN CONTROL CARD FLAG
       685   02 00130    35600033 03           STW,N    FIRSTREC
       686   02 00131    35600043 03           STW,N    NUMRECX3          NUMBER OF RECORDS IN X3
       687   02 00132    3560002F 03           STW,N    CURRCMND          CURRENT COMMAND
       688   02 00133    35600044 03           STW,N    NXTLOC            NUMBER OF ACTIVE LOCAL SYMBOLS
       689   02 00134    35600026 03           STW,N    ALFLAG            WITHIN A TEXT STRING FLAG
       690   02 00135    35600007 03           STW,N    PROCLV            WITHIN A PROC DEFINITION FLAG
       691   02 00136    35600048 03           STW,N    SPILLFLG          SYMT SPILL FLAG
       692                            *  PRESET STORAGE FOR THE INPUT MODULE
       693   02 00137    35600000 X            STW,N    CIREC#            NEXT CI RECORD NUMBER
       694   02 00138    35600000 X            STW,N    EOF%FLAG          END-OF-FILE FLAG
       695   02 00139    35600000 X            STW,N    #BLANKS           # BLANKS FOR CI
       696   02 0013A    35600000 X            STW,N    IM@MAJOR          MAJOR PART OF LINE NUMBER
       697   02 0013B    35600000 X            STW,N    IM@MINOR          MINOR PART OF LINE NUMBER
       698   02 0013C    35600000 X            STW,N    LAST%UPDATE       FOR '+' CARDS
       699   02 0013D    35600000 X            STW,N    NEXT%UPDATE       FOR '+' CARDS
       700   02 0013E    35600000 X            STW,N    SKIP%COUNT        FOR '+' CARDS
       701   02 0013F    35600000 X            STW,N    UPDATE%LINE%COUNT FOR '+' CARDS
       702   02 00140    2250001D A            LI,LVL   29
       703   02 00141    356A0000 X            STW,N    CO%BUF,LVL        CLEAR FIRST 'CO' RECORD
       704   02 00142    64500141              BDR,LVL  %-1
       705   02 00143    32500102              LW,LVL   INIT%CO%WORD
       706   02 00144    35500000 X            STW,LVL  CO%BUF            I.D. WORD FOR 1ST CO RECORD
       707   02 00145    02200030 A            LCI      +3
       708   02 00146    2A800103              LM,SR1   CO%REGS
       709   02 00147    2B800000 X            STM,SR1  CO%REGI           INITIAL CO REGISTERS
       710   02 00148    02200060 A            LCI      +6
       711   02 00149    2A8000FC              LM,SR1   CIREGS
       712   02 0014A    2B800000 X            STM,SR1  CIRDREGS          INITIAL CI READ REGISTERS
       713   02 0014B    22600001 A            LI,N     1
       714   02 0014C    35600000 X            STW,N    PLUS              '+' CARD REQUIRED FLAG
       715   02 0014D    35600000 X            STW,N    COMPTE%CI
       716   02 0014E    35600032 03           STW,N    DSLNCTRL          .DS CN CTRL LINE-PRINT TOGGLE
       717   02 0014F    35600000 X            STW,N    NXSYMB            NEXT SYMBOL NUMBER TO ASSIGN
       718                            *
       719   02 00150    32800000 X            LW,SR1   ENDCORE           LAST CORE LOCATION (+1)
       720   02 00151    208FFFFE A            AI,SR1   -2
       721   02 00152    35800047 03           STW,SR1  SLOC
       722   02 00153    35800003 03           STW,SR1  LOCX              ************************************
       723   02 00154    35800035 03           STW,SR1  INBUF             SET FOR OVERFLOW TEST IN INSERT
       724   02 00155    32900000 X            LW,SR2   LOWCORE
       725   02 00156    209FFFF8 N            AI,SR2   -HED
       726   02 00157    35900000 X            STW,SR2  NEXTST
       727   02 00158    35900050 03           STW,SR2  FIRSTST           SAVE FIRST SYM TAB LOC
       728   02 00159    33000000 X            MTW,0    ND%FLAG           READ STANDARD DEF FILE
       729   02 0015A    6930015D              BNEZ     INIT0             NO
       730   02 0015B    6A5009A8              BAL,LVL  RDSDF             YES
       731   02 0015C    68000174              B        STLOOP
       732   02 0015D                 INIT0    RES      0
       733   02 0015D    22200014              LI,IN    INTBLO            ORIGIN OF INTRINSICS
       734   02 0015E                 INIT1    RES      0
       735   02 0015E    F2100002 A            LB,XT    *IN
       736   02 0015F    20100003 A            AI,XT    3
       737   02 00160    2510007E A            SLS,XT   -2                STORE WORD COUNT OF NAME AFTER
       738   02 00161    75100008 03           STB,XT   HED                 ITS MOVED
       739   02 00162    B2800002 A            LW,RT1   *IN               GET CHAR COUNT & 1ST 3 CHARS
       740   02 00163    20200001 A            AI,IN    1                 BUMP ADDRESS
       741   02 00164    32900AE3              LW,RT2   ='    '
       742   02 00165    72100008 A            LB,XT    RT1               COMPUTE WORD COUNT IN TEXTC FORMAT
       743   02 00166    21100003 A            CI,XT    3                 IF TEXTC CONTAINS A SECOND WORD
       744   02 00167    6820016A              BLE      INIT2               GET THAT WORD
       745   02 00168    B2900002 A            LW,RT2   *IN               2ND WORD OF ANME
       746   02 00169    20200001 A            AI,IN    1                 BUMP SOURCE ADDRESS
       747   02 0016A                 INIT2    RES      0
       748   02 0016A    25800108 A            SLD,RT1  8                 SHIFT OFF THE CHARACTER COUNT
       749   02 0016B    20900040 A            AI,RT2   ' '               INSERT A TRAILING BLANK
       750   02 0016C    1580000A 03           STD,RT1  SYM1
       751   02 0016D    EAF00045 03           CALL     *SEARCHV
       752   02 0016E    EAF0003D 03           CALL     *INSERTV          INSERT THE INTRINSIC SYMBOL
       753   02 0016F    2160004F A            CI,N     L#
       754         001F0000                    IF,EQ
             02 00170    69300172
       755   02 00171    33100000 X            MTW,+1   NXSYMB            L#+1 IS DUMMY FOR '=' OPERATOR
       756         00F10000                    FI
       757   02 00172    2120009A              CI,IN    INTBLE            TEST FOR END OF INTRINSIC TABLE
       758   02 00173    6910015E              BL       INIT1
       759                            *
       760   02 00174    22300000 A   STLOOP   LI,OUT   0                 SET OUT TO ZERO 1ST TIME
       761   02 00175    53000000 X            MTH,0    DC%FLAG
       762   02 00176    68300180              BEZ      STLOOP1
       763                            *
       764                            *   'CN' OPTION WAS SPECIFIED - PROCESS CONCORDANCE CONTROLS
       765                            *        BEFORE GOING ON TO PROGRAM STATEMENTS.
       766   02 00177    3310002B 03           MTW,+1   CNCTRL            INDICATE CN CONTROLS TO BE READ
       767   02 00178                 CNLOOP   RES      0
       768   02 00178    22600048 A            LI,N     72
       769   02 00179    35600002 03           STW,N    LASTIN
       770   02 0017A    35300053 03           STW,OUT  OUTSAVE           SAVE 1ST OUT LOCATION
       771   02 0017B    22400000 A            LI,SYN   CNSYN-SYNTAX
       772   02 0017C    6AF00279              CALL     DRIVER            ENCODE THE CN CONTROL
       773   02 0017D    3300002B 03           MTW,0    CNCTRL
       774   02 0017E    69300178              BNEZ     CNLOOP            (TURNED OFF BY .END, EOF, ETC)
       775                            *
       776   02 0017F    22300000 A            LI,OUT   0                 SET OUT TO ZERO 1ST TIME
       777   02 00180    22600048 A   STLOOP1  LI,N     72
       778   02 00181    35600002 03           STW,N    LASTIN
       779   02 00182    213FFFF4 N            CI,OUT   OUTSIZE-12        5 WDS LEFT IN OUTBUF
       780   02 00183    68200186              BLE      STLOOP2           YES,
       781   02 00184    6AF00989              BAL,RL   IO%X1             NO, WRITE OUTBUF
       782   02 00185    22300000 A            LI,OUT   0                 RESET OUT
       783   02 00186    35300053 03  STLOOP2  STW,OUT  OUTSAVE           SAVE 1ST OUT LOCATION
       784   02 00187    2240003F A            LI,SYN   LINE-SYNTAX       ENTRY TO PROGRAM SYNTAX EQUATIONS
       785   02 00188    6AF00279              BAL,RL   DRIVER            ENCODE A STATEMENT.
       786   02 00189    3210002F 03           LW,XT    CURRCMND          TEST FOR A SPECIAL DIRECTIVE
       787   02 0018A    19100006              CLM,XT   RNG%SPC%DIR
       788   02 0018B    69900180              BOL      STLOOP1           BRIF NOT INTERESTING
       789                            *
       790   02 0018C    21104014 A            CI,XT    CNAMEDIR
       791   02 0018D    6830019B              BE       STLOOP5
       792   02 0018E    2110401D A            CI,XT    FNAMEDIR
       793   02 0018F    6830019B              BE       STLOOP5
       794   02 00190    21104015 A            CI,XT    COMDIR            TEST FOR COM
       795   02 00191    6830019B              BE       STLOOP5
       796   02 00192    21104007 A            CI,XT    ENDDIR            TEST FOR END
       797   02 00193    6830019F              BE       STLOOP4
       798   02 00194    21104006 A            CI,XT    PENDDIR           TEST FOR PEND
       799   02 00195    69300180              BNE      STLOOP1           NO.  IT'S NOT SPECIAL
       800   02 00196    33000007 03           MTW,0    PROCLV            IGNORE PEND IF NOT
       801   02 00197    6830019C              BEZ      STLOOP6             WITHIN A PROC
       802   02 00198    6AF00518              BAL,RL   LCLDL1            DELETE PROC LOCAL TABLE
       803   02 00199    22100000 A            LI,XT    0
       804   02 0019A    35100007 03           STW,XT   PROCLV            RESET 'WITHIN PROC' FLAG
       805   02 0019B                 STLOOP5  RES      0
       806   02 0019B    6AF004B7              BAL,RL   EXCHS1            RE-INSTATE SOURCE LEVEL LOCALS
       807   02 0019C                 STLOOP6  RES      0
       808   02 0019C    22100000 A            LI,XT    0
       809   02 0019D    3510002F 03           STW,XT   CURRCMND          RESET COMMAND ON THIS LINE
       810   02 0019E    68000180              B        STLOOP1
       811   02 0019F                 STLOOP4  RES      0
       812   02 0019F    33000000 X            MTW,0    NIVO              WITHIN A SYSTEM
       813   02 001A0    683008D0              BEZ      ENDIRCTV          NO, GO TO 'END' PROCESSING
       814   02 001A1    6AD00000 X            BAL,LINK IM@END            CLOSE CURRENT SYSTEM
       815   02 001A2    6800019C              B        STLOOP6
1
       817                            *    XAP SYNTAX EQUATIONS
       818   02 001A3                 SYNTAX   ORG,2    %
             02 001A3
       819   02 001A3    084B     A   CNSYN    IS       '.',CNCMND,OR,CNERR1,CNTERM
             02 001A3 2  8406     A
             02 001A4    4001     A
             02 001A4 2  48C9     A
             02 001A5    44B9     A
             02 001A5 2  4000     A
       820                            CNCMND   IS       'I','O',CNIOCMND,OR,;
       821                                              'S','S',CNSSCMND,OR,;
       822                                              'O','S',CNOSCMND,OR,;
       823                                              'D','S',CNDSCMND,OR,;
       824                                              'E','N','D',RESETOUT,CNTERM,OR,;
       825   02 001A6    0CC9     A                     CNERR2
             02 001A6 2  08D6     A
             02 001A7    841E     A
             02 001A7 2  4001     A
             02 001A8    0CE2     A
             02 001A8 2  08E2     A
             02 001A9    8422     A
             02 001A9 2  4001     A
             02 001AA    0CD6     A
             02 001AA 2  08E2     A
             02 001AB    8426     A
             02 001AB 2  4001     A
             02 001AC    0CC4     A
             02 001AC 2  08E2     A
             02 001AD    842C     A
             02 001AD 2  4001     A
             02 001AE    14C5     A
             02 001AE 2  10D5     A
             02 001AF    0CC4     A
             02 001AF 2  4881     A
             02 001B0    44B9     A
             02 001B0 2  4001     A
             02 001B1    44D4     A
             02 001B1 2  4000     A
       826   02 001B2    4C83     A   CNIOCMND IS       SETCNIO,OPTNLIST,ENDCNIO
             02 001B2 2  8830     A
             02 001B3    44A0     A
             02 001B3 2  4000     A
       827   02 001B4    4C86     A   CNSSCMND IS       SETCNSS,OPTNLIST,ENDCNSS
             02 001B4 2  8830     A
             02 001B5    44A2     A
             02 001B5 2  4000     A
       828   02 001B6    548C     A   CNOSCMND IS       SETCNOS,CNLIST,WRITE,ENDLN,EXITSYN
             02 001B6 2  9035     A
             02 001B7    4F74     A
             02 001B7 2  0000     A
             02 001B8    4406     A
             02 001B8 2  4000     A
       829   02 001B9    4C92     A   CNDSCMND IS       SETCNDS,CNLIST,ENDCNDS
             02 001B9 2  8835     A
             02 001BA    449A     A
             02 001BA 2  4000     A
       830   02 001BB    8435     A   OPTNLIST IS       CNLIST,OR,BLANK,RESETOUT
             02 001BB 2  4001     A
             02 001BC    4829     A
             02 001BC 2  4481     A
             02 001BD    4000     A
       831   02 001BD 2  5429     A   CNLIST   IS       BLANK,SYMBOL,CNSYM,NTHCNSYM,REPEAT
             02 001BE    53A9     A
             02 001BE 2  4CAB     A
             02 001BF    883B     A
             02 001BF 2  4404     A
             02 001C0    4000     A
       832   02 001C0 2  0C6B     A   NTHCNSYM IS       ',',SYMBOL,CNSYM
             02 001C1    4BA9     A
             02 001C1 2  44AB     A
             02 001C2    4000     A
       833   02 001C2 2  8C43     A   LINE     IS       LABEL,COMMAND,OPERAND
             02 001C3    885B     A
             02 001C3 2  84A6     A
             02 001C4    4000     A
       834   02 001C4 2  844B     A   LABEL    IS       STDLABEL,OR,WRITE,BEGINLIST,ANYLABEL,WRITE,ENDLIST
             02 001C5    4001     A
             02 001C5 2  5774     A
             02 001C6    0006     A
             02 001C6 2  8C53     A
             02 001C7    4B74     A
             02 001C7 2  0002     A
             02 001C8    4000     A
       835   02 001C8 2  4C3F     A   STDLABEL IS       BLNKLBL,WRITE,BLANKEXP,OR,SYMBOL,BLANK,WRISYMBOL
             02 001C9    4B74     A
             02 001C9 2  0005     A
             02 001CA    4001     A
             02 001CA 2  4FA9     A
             02 001CB    4829     A
             02 001CB 2  476F     A
             02 001CC    4000     A
       836   02 001CC 2  88AD     A   ANYLABEL IS       GF,BLANK,OR,SKIPNB,BLANK,WRITE,SYNERR
             02 001CD    4429     A
             02 001CD 2  4001     A
             02 001CE    5346     A
             02 001CE 2  4C29     A
             02 001CF    4B74     A
             02 001CF 2  000A     A
             02 001D0    4000     A
       837                            COMMAND  IS       SYMBOL,COM1,OR,WRITE,BEGINLIST,CMNDERR,;
       838   02 001D0 2  4BA9     A                     SKIPNB,BLANK16,WRITE,ENDLIST
             02 001D1    8466     A
             02 001D1 2  4001     A
             02 001D2    5F74     A
             02 001D2 2  0006     A
             02 001D3    547F     A
             02 001D3 2  5346     A
             02 001D4    4C2B     A
             02 001D4 2  4B74     A
             02 001D5    0002     A
             02 001D5 2  4000     A
       839                            COM1     IS       BLANK16,CF1SYM,OR,WRITE,BEGINLIST,CF1SYM,;
       840   02 001D6    482B     A                     GFN,REPEAT,BLANK16,WRITE,ENDLIST
             02 001D6 2  4458     A
             02 001D7    4001     A
             02 001D7 2  6374     A
             02 001D8    0006     A
             02 001D8 2  5858     A
             02 001D9    94B1     A
             02 001D9 2  5004     A
             02 001DA    4C2B     A
             02 001DA 2  4B74     A
             02 001DB    0002     A
             02 001DB 2  4000     A
       841   02 001DC    4F3E     A   PROC     IS       SETPROCLV,EXCHSLOC,SKIP%OPERAND
             02 001DC 2  49F3     A
             02 001DD    84A3     A
             02 001DD 2  4000     A
       842   02 001DE    57A9     A   OPEN     IS       SYMBOL,OPENSYM,NTHOPEN,REPEAT,ENDLINE,OR,ENDLINE
             02 001DE 2  5298     A
             02 001DF    8C7E     A
             02 001DF 2  4804     A
             02 001E0    45E7     A
             02 001E0 2  4001     A
             02 001E1    45E7     A
             02 001E1 2  4000     A
       843   02 001E2    0C6B     A   NTHOPEN  IS       ',',SYMBOL,OPENSYM
             02 001E2 2  4BA9     A
             02 001E3    4698     A
             02 001E3 2  4000     A
       844   02 001E4    57A9     A   CLOSE    IS       SYMBOL,CLOSESYM,NTHCLOSE,REPEAT,ENDLINE,OR,ENDLINE
             02 001E4 2  51BF     A
             02 001E5    8C8A     A
             02 001E5 2  4804     A
             02 001E6    45E7     A
             02 001E6 2  4001     A
             02 001E7    45E7     A
             02 001E7 2  4000     A
       845   02 001E8    0C6B     A   NTHCLOSE IS       ',',SYMBOL,CLOSESYM
             02 001E8 2  4BA9     A
             02 001E9    45BF     A
             02 001E9 2  4000     A
       846   02 001EA    4A4F     A   LOCAL    IS       LCLDLTE,LOCAL1
             02 001EA 2  8491     A
             02 001EB    4000     A
       847                            LOCAL1   IS       SYMBOL,LOCALSYM,NTHLOCAL,REPEAT,WRITELOCALCT,;
       848   02 001EB 2  5BA9     A                     ENDLINE,OR,WRITELOCALCT,ENDLINE
             02 001EC    5661     A
             02 001EC 2  909B     A
             02 001ED    4C04     A
             02 001ED 2  4A91     A
             02 001EE    45E7     A
             02 001EE 2  4001     A
             02 001EF    4A91     A
             02 001EF 2  45E7     A
             02 001F0    4000     A
       849   02 001F0 2  0C6B     A   NTHLOCAL IS       ',',SYMBOL,LOCALSYM
             02 001F1    4BA9     A
             02 001F1 2  4661     A
             02 001F2    4000     A
       850   02 001F2 2  4FA9     A   SYSTEM   IS       SYMBOL,STSTSYMB,ENDLINE
             02 001F3    4AA4     A
             02 001F3 2  45E7     A
             02 001F4    4000     A
       851   02 001F4 2  4BCF     A   SKIP%OPERAND  IS  RESETCHT,ENDLINE
             02 001F5    45E7     A
             02 001F5 2  4000     A
       852   02 001F6    88AD     A   OPERAND  IS       GF,ENDLINE,OR,WRITE,BLANKEXP,ENDLINE
             02 001F6 2  45E7     A
             02 001F7    4001     A
             02 001F7 2  4F74     A
             02 001F8    0005     A
             02 001F8 2  45E7     A
             02 001F9    4000     A
       853   02 001F9 2  8CB8     A   GF       IS       TREE,GFN,REPEAT
             02 001FA    88B1     A
             02 001FA 2  4404     A
             02 001FB    4000     A
       854   02 001FB 2  086B     A   GFN      IS       ',',TREE,OR,',',WRITE,BLANKEXP
             02 001FC    84B8     A
             02 001FC 2  4001     A
             02 001FD    0C6B     A
             02 001FD 2  4B74     A
             02 001FE    0005     A
             02 001FE 2  4000     A
       855                            TREE     IS       '*',EXPR,WRITE,INDIROP,OR,EXPR,OR,'*',;
       856   02 001FF    105C     A                     WRITE,BLANKEXP,WRITE,INDIROP
             02 001FF 2  8CC5     A
             02 00200    4B74     A
             02 00200 2  0008     A
             02 00201    4001     A
             02 00201 2  84C5     A
             02 00202    4001     A
             02 00202 2  145C     A
             02 00203    5374     A
             02 00203 2  0005     A
             02 00204    4B74     A
             02 00204 2  0008     A
             02 00205    4000     A
       857                            EXPR     IS       PRIM1,DELIM,OR,LIST,OR,;
       858                                              '=',WRITE,SBLSYM+1,EXPR,WRITE,ENDSBSYM,OR,;
       859   02 00205 2  8974     A                     WRITE,BEGINEXP,TERM,WRITE,ENDEXP
             02 00206    45CB     A
             02 00206 2  4001     A
             02 00207    84D7     A
             02 00207 2  4001     A
             02 00208    187E     A
             02 00208 2  5774     A
             02 00209    8050     A
             02 00209 2  8CC5     A
             02 0020A    4B74     A
             02 0020A 2  0003     A
             02 0020B    4001     A
             02 0020B 2  5774     A
             02 0020C    0007     A
             02 0020C 2  8CE0     A
             02 0020D    4B74     A
             02 0020D 2  0004     A
             02 0020E    4000     A
       860   02 0020E 2  204D     A   LIST     IS       '(',WRITE,BEGINLIST,GF,')',DELIM,WRITE,ENDLIST
             02 0020F    5F74     A
             02 0020F 2  0006     A
             02 00210    94AD     A
             02 00210 2  105D     A
             02 00211    4DCB     A
             02 00211 2  4B74     A
             02 00212    0002     A
             02 00212 2  4000     A
       861   02 00213    8CF4     A   TERM     IS       FA5,CL6,REPEAT
             02 00213 2  88E4     A
             02 00214    4404     A
             02 00214 2  4000     A
       862   02 00215    88E7     A   CL6      IS       ORCHAR,CL6A
             02 00215 2  84EB     A
             02 00216    4000     A
       863   02 00216 2  044F     A   ORCHAR   IS       '|',OR,X'B4'
             02 00217    4001     A
             02 00217 2  04B4     A
             02 00218    4000     A
       864   02 00218 2  90E7     A   CL6A     IS       ORCHAR,FA5,WRITE,XOROP,OR,FA5,WRITE,OROP
             02 00219    8CF4     A
             02 00219 2  4B74     A
             02 0021A    0021     A
             02 0021A 2  4001     A
             02 0021B    8CF4     A
             02 0021B 2  4B74     A
             02 0021C    0020     A
             02 0021C 2  4000     A
       865   02 0021D    8CFD     A   FA5      IS       FA4,CL5,REPEAT
             02 0021D 2  88F8     A
             02 0021E    4404     A
             02 0021E 2  4000     A
       866   02 0021F    1050     A   CL5      IS       '&',FA4,WRITE,ANDOP
             02 0021F 2  8CFD     A
             02 00220    4B74     A
             02 00220 2  0022     A
             02 00221    4000     A
       867   02 00221 2  8D28     A   FA4      IS       FA3,CL4,REPEAT
             02 00222    8901     A
             02 00222 2  4404     A
             02 00223    4000     A
       868                            CL4      IS       '=',FA3,WRITE,EQUALOP,OR,'~','=',FA3,WRITE,UNEQLOP,;
       869                                              OR,'>','=',FA3,WRITE,GTEQOP,OR,'>',FA3,WRITE,GRTROP,;
       870                                              OR,'<','=',FA3,WRITE,LTEQOP,OR,'<',FA3,WRITE,LESSOP,;
       871   02 00223 2  107E     A                     OR,X'B5','=',FA3,WRITE,UNEQLOP
             02 00224    8D28     A
             02 00224 2  4B74     A
             02 00225    0023     A
             02 00225 2  4001     A
             02 00226    145F     A
             02 00226 2  107E     A
             02 00227    8D28     A
             02 00227 2  4B74     A
             02 00228    0024     A
             02 00228 2  4001     A
             02 00229    146E     A
             02 00229 2  107E     A
             02 0022A    8D28     A
             02 0022A 2  4B74     A
             02 0022B    0025     A
             02 0022B 2  4001     A
             02 0022C    106E     A
             02 0022C 2  8D28     A
             02 0022D    4B74     A
             02 0022D 2  0027     A
             02 0022E    4001     A
             02 0022E 2  144C     A
             02 0022F    107E     A
             02 0022F 2  8D28     A
             02 00230    4B74     A
             02 00230 2  0026     A
             02 00231    4001     A
             02 00231 2  104C     A
             02 00232    8D28     A
             02 00232 2  4B74     A
             02 00233    0028     A
             02 00233 2  4001     A
             02 00234    14B5     A
             02 00234 2  107E     A
             02 00235    8D28     A
             02 00235 2  4B74     A
             02 00236    0024     A
             02 00236 2  4000     A
       872   02 00237    8D36     A   FA3      IS       FA2,CL3,REPEAT
             02 00237 2  892C     A
             02 00238    4404     A
             02 00238 2  4000     A
       873   02 00239    104E     A   CL3      IS       '+',FA2,WRITE,PLUSOP,OR,'-',FA2,WRITE,MINUSOP
             02 00239 2  8D36     A
             02 0023A    4B74     A
             02 0023A 2  002A     A
             02 0023B    4001     A
             02 0023B 2  1060     A
             02 0023C    8D36     A
             02 0023C 2  4B74     A
             02 0023D    0029     A
             02 0023D 2  4000     A
       874   02 0023E    8D4A     A   FA2      IS       FA1,CL2,REPEAT
             02 0023E 2  893A     A
             02 0023F    4404     A
             02 0023F 2  4000     A
       875                            CL2      IS       '*',FA1,WRITE,MPYOP,OR,'/','/',FA1,WRITE,INCLDIV,;
       876   02 00240    105C     A                     OR,'/',FA1,WRITE,DIVOP
             02 00240 2  8D4A     A
             02 00241    4B74     A
             02 00241 2  002D     A
             02 00242    4001     A
             02 00242 2  1461     A
             02 00243    1061     A
             02 00243 2  8D4A     A
             02 00244    4B74     A
             02 00244 2  002C     A
             02 00245    4001     A
             02 00245 2  1061     A
             02 00246    8D4A     A
             02 00246 2  4B74     A
             02 00247    002B     A
             02 00247 2  4000     A
       877   02 00248    8D54     A   FA1      IS       PRIMARY,CL1,REPEAT
             02 00248 2  894E     A
             02 00249    4404     A
             02 00249 2  4000     A
       878   02 0024A    145C     A   CL1      IS       '*','*',PRIMARY,WRITE,SCALEOP
             02 0024A 2  105C     A
             02 0024B    8D54     A
             02 0024B 2  4B74     A
             02 0024C    002E     A
             02 0024C 2  4000     A
       879                            PRIMARY    IS     PRIM1,OR,'-',WRITE,SMALLINT,PRIMARY,WRITE,MINUSOP,;
       880                                              OR,'~',MINUS%ONE,PRIMARY,WRITE,XOROP,;
       881                                              OR,'+',WRITE,SMALLINT,PRIMARY,WRITE,PLUSOP,;
       882                                              OR,'(',TERM,')',;
       883   02 0024D    8574     A                     OR,X'B5',MINUS%ONE,PRIMARY,WRITE,XOROP
             02 0024D 2  4001     A
             02 0024E    1860     A
             02 0024E 2  5774     A
             02 0024F    C000     A
             02 0024F 2  8D54     A
             02 00250    4B74     A
             02 00250 2  0029     A
             02 00251    4001     A
             02 00251 2  145F     A
             02 00252    5219     A
             02 00252 2  8D54     A
             02 00253    4B74     A
             02 00253 2  0021     A
             02 00254    4001     A
             02 00254 2  184E     A
             02 00255    5774     A
             02 00255 2  C000     A
             02 00256    8D54     A
             02 00256 2  4B74     A
             02 00257    002A     A
             02 00257 2  4001     A
             02 00258    0C4D     A
             02 00258 2  88E0     A
             02 00259    045D     A
             02 00259 2  4001     A
             02 0025A    14B5     A
             02 0025A 2  5219     A
             02 0025B    8D54     A
             02 0025B 2  4B74     A
             02 0025C    0021     A
             02 0025C 2  4000     A
       884                            PRIM1    IS       SYMBOL,ATTRIBCK,OR,INTEGER,OR,'X','''',HEXC,;
       885                                              '''',OR,OPTNLC,'''',ALF,'''',OR,'F',FXDORFLT,;
       886                                              OR,'O','''',OCTC,'''',OR,'D','''',PKDEC,'''',;
       887   02 0025D    4BA9     A                     OR,COMMACK,WRITE,BLANKEXP
             02 0025D 2  47A0     A
             02 0025E    4001     A
             02 0025E 2  45FD     A
             02 0025F    4001     A
             02 0025F 2  10E7     A
             02 00260    0C7D     A
             02 00260 2  4A1D     A
             02 00261    047D     A
             02 00261 2  4001     A
             02 00262    91A3     A
             02 00262 2  0C7D     A
             02 00263    4807     A
             02 00263 2  047D     A
             02 00264    4001     A
             02 00264 2  08C6     A
             02 00265    8594     A
             02 00265 2  4001     A
             02 00266    10D6     A
             02 00266 2  0C7D     A
             02 00267    4A94     A
             02 00267 2  047D     A
             02 00268    4001     A
             02 00268 2  10C4     A
             02 00269    0C7D     A
             02 00269 2  4B0C     A
             02 0026A    047D     A
             02 0026A 2  4001     A
             02 0026B    4DC7     A
             02 0026B 2  4B74     A
             02 0026C    0005     A
             02 0026C 2  4000     A
       888                            FXDORFLT IS       'X','''',FXC,'''',OR,'S','''',FSC,'''',OR,;
       889   02 0026D    10E7     A                     'L','''',FLC,''''
             02 0026D 2  0C7D     A
             02 0026E    4BD1     A
             02 0026E 2  047D     A
             02 0026F    4001     A
             02 0026F 2  10E2     A
             02 00270    0C7D     A
             02 00270 2  4BD7     A
             02 00271    047D     A
             02 00271 2  4001     A
             02 00272    10D3     A
             02 00272 2  0C7D     A
             02 00273    4BD4     A
             02 00273 2  047D     A
             02 00274    4000     A
       890   02 00274 2  04C3     A   OPTNLC   IS       'C',OR
             02 00275    4001     A
             02 00275 2  4000     A
       891   02 00276    90AD     A   SUBSYMB  IS       GF,')',WRITE,ENDSBSYM
             02 00276 2  0C5D     A
             02 00277    4B74     A
             02 00277 2  0003     A
             02 00278    4000     A
       892                                     BOUND    4
       893   02 00279                          ORG,4    %                 GO BACK TO WORD RESOLUTION
             02 00279
1
       895                            *    D R I V E R .    S Y N T A X   T A B L E   D R I V E R
       896                            *        THIS ROUTINE CONTROLS THE SYNTAX ANALYSIS PROCESS, UNDER
       897                            *          CONTROL OF THE SYNTAX TABLE AND THE INPUT TO BE ANALYZED.
       898                            *
       899                            *        THE SYNTAX TABLE CONTAINS THE ACCEPTABLE SYNTAX OF THE LANGUAGE
       900                            *          BEING ANALYZED AS A SEQUENCE OF 16 BIT ENTRIES.  SEE 'IS'
       901                            *          PROC FOR THE FORMAT OF EACH ITEM.  A SYNTAX ITEM IS ONE OF
       902                            *          THE FOLLOWING:
       903                            *             (A) A (LITERAL) CHARACTER. THE NEXT INPUT CHARACTER IS
       904                            *                 MATCHED WITH THIS CHARACTER. IF EQUAL, ANALYSIS
       905                            *                 PROCEEDS; OTHERWISE IT FAILS, AND AN ALTERNATE IS
       906                            *                 INSPECTED IF PRESENT.
       907                            *             (B) REFERENCE TO A SYNTAX ELEMENT.  AN ENTRY IN THE
       908                            *                 RECURSIVE 'LEVEL' TABLE IS MADE, AND SYNTAX ANALYSIS
       909                            *                 PROCEEDS WITH THE REFERENCED SYNTAX ELEMENT.
       910                            *             (C) REFERENCE TO A SEMANTIC ROUTINE.  THE DRIVER BRANCHES
       911                            *                 TO THE SEMANTIC (ASSEMBLY CODE) ROUTINE WHICH CAN
       912                            *                 GENERATE OUTPUT, CHECK SYNTAX, OR WHATEVER. THESE
       913                            *                 ROUTINES RETURN TO THE DRIVER AT LOCATION 'TRUE',
       914                            *                 OR 'FALSE' AS APPROPRIATE
       915                            *
       916                            *                 SEMANTIC ROUTINE 'ENDEQN' DOES THE PROCESSING WHEN
       917                            *                 AN ENTIRE SYNTAX STATEMENT (OR EQUATION) IS TRUE.
       918                            *                 IT DELETES THE CURRENT LEVEL TABLE ENTRY, AND
       919                            *                 CONTINUES PROCESSING AT THE NEXT OUTER LEVEL.
       920                            *
       921                            *                 SEMANTIC ROUTINE 'REPEAT' CAUSES THE PREVIOUS SYNTAX
       922                            *                 ENTRY (WHICH MUST BE A REFERENCE TO A SYNTAX ELEMENT)
       923                            *                 TO BE REPEATED UNTIL IT BECOMES FALSE.  WHEN THIS
       924                            *                 OCCURS, ANALYSIS PROCEEDS WITH THE NEXT SYNTAX
       925                            *                 ELEMENT AS IF THE REPEATED ELEMENT TERMINATED AS TRUE.
       926                            *
       927                            *                 EXIT FROM THE DRIVER IS MADE (AT ANY SYNTAX LEVEL)
       928                            *                 BY REFERENCING SEMANTIC ROUTINE 'EXITSYN'.
1
       930                            *
       931   02 00279                 DRIVER   RES      0
       932   02 00279    35F00000 03           STW,RL   DRIVEREXIT
       933   02 0027A    22200000 A            LI,IN    0                 CLEAR INPUT INDEX
       934   02 0027B    3520002C 03           STW,IN   CONTIN%ERROR      CONTINUATION ERROR FLAG
       935   02 0027C    32500003 03           LW,LVL   LOCX
       936   02 0027D    205FFFF6 A            AI,LVL   -10
       937   02 0027E    3550003E 03           STW,LVL  LVLBASE           LEVEL TABLE BASE
       938   02 0027F    205FFFFC A            AI,LVL   -4                START OF 1ST ENTRY
       939                            *
       940                            *        SET INPUT BUFFER START MIDWAY BETWEEN END OF SYMBOL TABLE AND
       941                            *        START OF LEVEL TABLE, BUT NOT ABOVE PRE-DETERMINED BOUNDARY
       942                            *        OF AREA TO BE HELD OUT IF DISK SPILL INVOKED.
       943                            *
       944   02 00280    32F00000 X            LW,RL    NEXTST
       945   02 00281    20F00008 03           AI,RL    HED
       946   02 00282    30F00005 A            AW,RL    LVL
       947   02 00283    25F0007F A            SLS,RL   -1
       948   02 00284    31F00036 03           CW,RL    INBUFLMT
       949         001F0000                    IF,G
             02 00285    68200287
       950   02 00286    32F00036 03           LW,RL    INBUFLMT
       951         00F10000                    FI
       952   02 00287    35F00035 03           STW,RL   INBUF             FIXED BUFFER START
       953   02 00288    35F00027 03           STW,RL   BUFPTR            LAST RECORD START
       954   02 00289    6AF0039B              BAL,RL   READCARD          READ A RECORD.
       955   02 0028A    32600000 X            LW,N     IM@MAJOR
       956   02 0028B    33000000 X            MTW,0    NIVO              WITHIN A SYSTEM
       957   02 0028C    69300290              BNEZ     DRIVR1            BRANCH IF YES. USE IM@MAJOR
       958   02 0028D    33000000 X            MTW,0    IM@MINOR          IS THIS AN INSERTED LINE
       959   02 0028E    68300290              BEZ      DRIVR1            BRANCH IF NO. USE IM@MAJOR
       960   02 0028F    22600000 A            LI,N     0                 USE ZERO FOR AN INSERT
       961   02 00290                 DRIVR1   RES      0
       962   02 00290    21601FFF A            CI,N     8191              WILL LINE # FIT AS A SMALL INT
       963   02 00291    69200294              BG       DRIVR2            BRANCH IF NO
       964   02 00292    2060C000 A            AI,N     SMALLINT
       965   02 00293    68000297              B        DRIVR3
       966   02 00294                 DRIVR2   RES      0
       967   02 00294    2260E001 A            LI,N     LARGEINT+1
       968   02 00295    6AF00639              BAL,RL   WDOUT
       969   02 00296    32600000 X            LW,N     IM@MAJOR
       970   02 00297                 DRIVR3   RES      0
       971   02 00297    6AF00639              BAL,RL   WDOUT
       972   02 00298    35300042 03           STW,OUT  NEXTLINE#         INDEX TO CONTINUATION LINE #
       973   02 00299    32600004 A            LW,N     SYN
       974   02 0029A                 NEXTLEVEL  RES    0
       975   02 0029A    31500027 03           CW,LVL   BUFPTR            LEVEL TABLE OVERFLOW
       976   02 0029B    682008CE              BLE      OVERFLOW          YES
       977   02 0029C    02200030 A            LCI      3                 SAVE IN, OUT, AND SYN
       978   02 0029D    2B2A0000 A            STM,IN   LVLTBL,LVL          IN THE SYNTAX LEVEL TABLE
       979   02 0029E    205FFFFD A            AI,LVL   -3
       980   02 0029F    32400006 A            LW,SYN   N
       981   02 002A0                 TRUE1    RES      0
       982   02 002A0    526801A3              LH,N     SYNTAX,SYN        NEXT SYNTAX ELEMENT
       983   02 002A1    692002A4              BGZ      NOTSYNREF         NOT A REFERENCE TO A SYNTAX EQN
       984   02 002A2    4B600AE4              AND,N    =ADDRESS          TRIM ADDRESS AND BRANCH
       985   02 002A3    6800029A              B        NEXTLEVEL         TO BEGIN A NEW SYNTAX LEVEL
       986   02 002A4                 NOTSYNREF  RES    0
       987   02 002A4    2160C000 A            CI,N     TYPE              TEST FOR A CHARACTER
       988   02 002A5    684002A8              BAZ      CHARACTEREF         OR SEMANTIC ROUTINE REFERENCE
       989   02 002A6    4B600AE4              AND,N    =ADDRESS
       990   02 002A7    680C02C2              B        SEMANBAS,N        BRANCH TO THE SEMANTIC ROUTINE
       991                            *    SYNTAX ELEMENT IS A CHARACTER
       992   02 002A8                 CHARACTEREF  RES  0
       993   02 002A8    4B600AE4              AND,N    =ADDRESS
       994   02 002A9    6AF00425              BAL,RL   CHAR              GET NEXT INPUT CHARACTER (IN 'CRG')
       995   02 002AA    31600007 A            CW,N     CRG
       996   02 002AB    683002B3              BE       TRUE
       997                            *    A SYNTAX ELEMENT IS FALSE
       998   02 002AC                 FALSE    RES      0
       999   02 002AC    20400001 A            AI,SYN   1                 ADVANCE TO NEXT SYNTAX ELEMENT
      1000   02 002AD    526801A3              LH,N     SYNTAX,SYN
      1001   02 002AE    4B600AE5              AND,N    =NOTINCR          CLEAR INCREMENT FIELD
      1002   02 002AF    21604004 A            CI,N     TYPE1REPEAT       IS THIS ELEMENT 'REPEAT'
      1003   02 002B0    693002B8              BNE      FALSE1              NO
      1004   02 002B1    02200020 A            LCI      2                 RESET 'IN' AND 'OUT' FROM THIS
      1005   02 002B2    2A2A0000 A            LM,IN    LVLTBL,LVL          SYNTAX LEVEL
      1006   02 002B3                 TRUE     RES      0
      1007   02 002B3    20400001 A            AI,SYN   1                 GO TO NEXT SYNTAX ELEMENT
      1008   02 002B4    680002A0              B        TRUE1
      1009   02 002B5    20500003 A   FALSE2   AI,LVL   3                 BACK-UP ONE SYNTAX LEVEL
      1010   02 002B6    324A0002 A            LW,SYN   LVLTBL+2,LVL      REPLACE NEXT SYN. EQN. ADDRESS
      1011   02 002B7    680002AC              B        FALSE
      1012   02 002B8                 FALSE1   RES      0
      1013   02 002B8    526801A3              LH,N     SYNTAX,SYN        ADVANCE SYNTAX TABLE POINTER TO
      1014   02 002B9    4B600AE6              AND,N    =INCR               THE NEXT 'OR' OR 'ENDEQN'
      1015   02 002BA    25600076 A            SLS,N    -ADDRSIZE           ELEMENT
      1016   02 002BB    30400006 A            AW,SYN   N
      1017   02 002BC    526801A3              LH,N     SYNTAX,SYN
      1018   02 002BD    21604001 A            CI,N     TYPE1OR           IS THE ELEMENT AN 'OR'
      1019   02 002BE    693002B5              BNE      FALSE2              NO
      1020   02 002BF    02200020 A            LCI      2                 YES. RESET REG'S 'IN' AND 'OUT'
      1021   02 002C0    2A2A0003 A            LM,IN    LVLTBL+3,LVL        TO RE-START AFTER THE 'OR' ON
      1022   02 002C1    680002B3              B        TRUE                THE SAME LEVEL
      1023                            *
      1024   02 002C2                 SEMANBAS RES      0
      1025                            *
      1026                            *    THE ENTIRE SYNTAX EQUATION IS TRUE
      1027   02 002C2    02000000 A   ENDEQN   NOP      0
      1028   02 002C3                 OR       RES      0
      1029   02 002C3    20500003 A            AI,LVL   3                 BACK-UP ONE SYNTAX LEVEL
      1030   02 002C4    324A0002 A            LW,SYN   LVLTBL+2,LVL
      1031   02 002C5    680002B3              B        TRUE
      1032                            *    REPEAT THE PREVIOUS SYNTAX ELEMENT (MUST BE A SYNTAX EQUATION)
      1033   02 002C6                 REPEAT   RES      0
      1034   02 002C6    204FFFFF A            AI,SYN   -1                BACK-UP SYNTAX TABLE POINTER
      1035   02 002C7    680002A0              B        TRUE1
      1036                            *    EXIT FROM THE SYNTAX DRIVER
      1037   02 002C8                 EXITSYN  RES      0
      1038   02 002C8    E8000000 03           B        *DRIVEREXIT
      1039         00004004           TYPE1REPEAT    EQU     X'4000'+(REPEAT-SEMANBAS)
      1040         00004001           TYPE1OR        EQU     X'4000'+(OR-SEMANBAS)
1
      1042                            *
      1043                            *    A L F
      1044                            *        CONCATINATE THE CHARACTERS OF AN ALPHANUMERIC CONSTANT.
      1045                            *        CONSTANT IS TERMINATED BY A SINGLE PRIME (') CHARACTER.
      1046                            *        TWO CONSECUTIVE PRIMES CAUSE A SINGLE PRIME TO BE ENTERED
      1047                            *        IN THE CONSTANT.  CHARACTERS ARE PACKED FOUR/WORD,AND
      1048                            *        OUTPUT BY THIS ROUTINE AS MULTIPLE WORD INTEGERS. THE LAST
      1049                            *        CHARACTERS ARE LEFT-ADJUSTED.
      1050                            *
      1051   02 002C9                 ALF      RES      0
      1052   02 002C9    22100000 A            LI,XT    0
      1053   02 002CA    35100052 03           STW,XT   OVFLAG            CLEAR TRUNCATION FLAG
      1054   02 002CB    33100026 03           MTW,1    ALFLAG            SET FOR NO CONTINUATION
      1055   02 002CC                 ALF1     RES      0
      1056   02 002CC    6AF00425              BAL,RL   CHAR              NEXT CHARACTER
      1057   02 002CD    2170007D A            CI,CRG   ''''
      1058   02 002CE    693002D2              BNE      ALF2
      1059   02 002CF    6AF00425              BAL,RL   CHAR              TEST FOR DOUBLE PRIME
      1060   02 002D0    2170007D A            CI,CRG   ''''
      1061   02 002D1    693002D5              BNE      ALF5              BRANCH IF ONLY SINGLE PRIME
      1062   02 002D2                 ALF2     RES      0
      1063   02 002D2    20100001 A            AI,XT    1
      1064   02 002D3    7572000A 03           STB,CRG  SYM1,XT           NO, STORE CHAR
      1065   02 002D4    680002CC              B        ALF1
      1066   02 002D5                 ALF5     RES      0
      1067   02 002D5    7510000A 03           STB,XT   SYM1
      1068   02 002D6    31100002 03           CW,XT    LASTIN
      1069   02 002D7    691002D9              BL       ALF3              BRANCH IF STILL WITHIN CURR LINE
      1070   02 002D8    33100052 03           MTW,+1   OVFLAG            TRAILING PRIME IS MISSING
      1071   02 002D9                 ALF3     RES      0
      1072   02 002D9    202FFFFF A            AI,IN    -1
      1073   02 002DA    2260E200 A            LI,N     LARGEINT+CT2      LARGE INTEGER, CONVERSION TYPE 2
      1074   02 002DB    20100001 A            AI,XT    1
      1075   02 002DC    21100001 A            CI,XT    1                 TEST CHARACTER COUNT
      1076   02 002DD    684002E1              BAZ      ALF4              BRANCH IF EVEN
      1077   02 002DE    22700040 A            LI,CRG   ' '                 AND STORE A TRAILING BLANK
      1078   02 002DF    7572000A 03           STB,CRG  SYM1,XT
      1079   02 002E0    20100001 A            AI,XT    1                 MAKE CHARACTER COUNT EVEN
      1080   02 002E1                 ALF4     RES      0
      1081   02 002E1    22700000 A            LI,CRG   0
      1082   02 002E2    35700026 03           STW,CRG  ALFLAG            RESET ALFLAG
      1083   02 002E3    2510007F A            SLS,XT   -1
      1084   02 002E4                 WRICONST RES      0
      1085   02 002E4    30600001 A            AW,N     XT                ADD HALFWORD COUNT TO CONTROL ITEM
      1086   02 002E5    6AF00639              BAL,RL   WDOUT             OUTPUT THE TYPE 7 CONTROL ITEM
      1087                            * OUTPUT EACH SIGNIFICANT HALFWORD OF THE CONVERTED CONSTANT
      1088   02 002E6                 ALF7     RES      0
      1089   02 002E6    526E000A 03           LH,N     SYM1,CRG
      1090   02 002E7    6AF00639     ALF6     BAL,RL   WDOUT
      1091   02 002E8    20700001 A            AI,CRG   1
      1092   02 002E9    641002E6              BDR,XT   ALF7
      1093   02 002EA    6800050C              B        HEXC11
      1094                            *
      1095                            *    B L A N K   A N D   B L A N K 1 6
      1096                            *        BLANK ROUTINES.  SKIP FROM 1 THROUGH 70 BLANKS.
      1097                            *          EXIT IS TO 'TRUE' IF ONE OR MORE BLANKS IS SKIPPED,
      1098                            *          ELSE EXIT TO 'FALSE'.
      1099                            *
      1100                            *        BLANK16 IS THE ENTRY WHICH SKIPS UP TO 16 BLANKS INSTEAD OF 70.
      1101                            *
      1102   02 002EB                 BLANK    RES      0
      1103   02 002EB    22600045 A            LI,N     69
      1104   02 002EC    680002EE              B        BLNK1
      1105   02 002ED                 BLANK16  RES      0
      1106   02 002ED    2260000E A            LI,N     14
      1107   02 002EE                 BLNK1    RES      0
      1108   02 002EE    6AF00425              BAL,RL   CHAR              FIRST CHARACTER
      1109   02 002EF    21700040 A            CI,CRG   ' '
      1110   02 002F0    683002F4              BE       BLNK2             YES, CONTINUE SCAN
      1111   02 002F1                 BLNKLBL2 RES      0
      1112   02 002F1    21700005 A            CI,CRG   X'05'             NO, TAB
      1113   02 002F2    683002B3              BE       TRUE              YES
      1114   02 002F3    680002AC              B        FALSE             NO
      1115   02 002F4                 BLNK2    RES      0
      1116   02 002F4    F1740035 03           CB,CRG   *INBUF,IN         IS NEXT CHAR. BLANK
      1117   02 002F5    683002FE              BE       BLNK3             YES
      1118   02 002F6    6AF00425              BAL,RL   CHAR              INSPECT CHARACTER PAST LAST BLANK
      1119   02 002F7    21700005 A            CI,CRG   X'05'             NO, IS IT A TAB
      1120   02 002F8    683002B3              BE       TRUE              YES
      1121   02 002F9    202FFFFF A            AI,IN    -1
      1122   02 002FA                 BLNK4    RES      0
      1123   02 002FA    31200002 03           CW,IN    LASTIN            IF 'IN' IS OFF END OF CARD,
      1124   02 002FB    682002B3              BLE      TRUE                RESET BACK TO END
      1125                            *
      1126   02 002FC    32200002 03           LW,IN    LASTIN
      1127   02 002FD    680002B3              B        TRUE
      1128                            *
      1129   02 002FE                 BLNK3    RES      0
      1130   02 002FE    20200001 A            AI,IN    1
      1131   02 002FF    646002F4              BDR,N    BLNK2             CHECK NEXT CHAR
      1132   02 00300    680002FA              B        BLNK4             COUNT EXHAUSTED
      1133                            *
      1134                            *    B L N K L B L
      1135                            *
      1136   02 00301                 BLNKLBL  RES      0
      1137   02 00301    32700AE3              LW,CRG   L('    ')
      1138   02 00302    B1700035 03           CW,CRG   *INBUF            ARE 1ST 4 CHARS BLANK
      1139   02 00303    68300311              BE       BLNKLBL3          YES
      1140   02 00304    F2700035 03           LB,CRG   *INBUF            NO, IS 1ST CHAR BLANK
      1141   02 00305    22200001 A            LI,IN    1
      1142   02 00306    21700040 A            CI,CRG   ' '
      1143   02 00307    68300316              BE       BLNKLBL5          YES
      1144   02 00308    2170005C A            CI,CRG   '*'               NO, FIRST CHAR = '*'
      1145   02 00309    693002F1              BNE      BLNKLBL2          NO
      1146   02 0030A    22600005 A            LI,N     BLANKEXP          YES, COMMENT DIRECTIVE
      1147   02 0030B    6AF00639              BAL,RL   WDOUT
      1148   02 0030C    22604000 A            LI,N     COMNTDIR
      1149   02 0030D    6AF00639              BAL,RL   WDOUT
      1150   02 0030E    22600000 A            LI,N     ENDLN
      1151   02 0030F    6AF00639              BAL,RL   WDOUT
      1152   02 00310    680002C8              B        EXITSYN
      1153   02 00311    22200004 A   BLNKLBL3 LI,IN    4
      1154   02 00312    22600001 A            LI,N     1
      1155   02 00313    B17C0035 03           CW,CRG   *INBUF,N          ARE 2ND 4 CHARS BLANK
      1156   02 00314    69300316              BNE      %+2               NO
      1157   02 00315    22200008 A            LI,IN    8                 YES
      1158   02 00316                 BLNKLBL5   RES    0
      1159   02 00316    22600046 A            LI,N     70
      1160   02 00317    38600002 A            SW,N     IN
      1161   02 00318    22700040 A            LI,CRG   ' '
      1162   02 00319    680002F4              B        BLNK2
      1163                            *
      1164                            *   C F 1 S Y M
      1165                            *        PROCESS THE COMMAND SYMBOL
      1166                            *
      1167                            *        THE FIRST SYMBOL IN THE COMMAND FIELD HAS BEEN READ AND
      1168                            *          STORED IN THE ITEM BEGINNING AT HED.  THE SYMBOL TABLE
      1169                            *          IS SEARCHED, A SYMBOL ITEM IS OUTPUT, AND THE CF1 BIT
      1170                            *          IS SET IN THE SYMBOL TABLE.  THE OUTPUT COMMAND IS STORED
      1171                            *          IN CURRCMND.
      1172                            *
      1173   02 0031A                 CF1SYM   RES      0
      1174   02 0031A    32A0002F 03           LW,RT3   CURRCMND
      1175   02 0031B    35A00001 03           STW,RT3  LASTCMND
      1176   02 0031C    EAF00045 03           CALL     *SEARCHV
      1177   02 0031D    6800032B              B        CF1S7             NOT FOUND IN SYMBOL TABLE
      1178   02 0031E    21602000 A            CI,N     8192              IS IT LOCAL
      1179   02 0031F    6910032C              BL       CF1S8               NO
      1180                            *  GET THE NON-LOCAL SYMBOL NUMBER FROM THE APPROPRIATE LOCAL TABLE
      1181                            *    ADDRESS = ORIGIN - 2*(LOCAL-SYMBOL-NUMBER)
      1182   02 00320    4B600AE7              AND,N    =ENCVAL           SAVE LOCAL-SYMBOL-NUMBER
      1183   02 00321    25600001 A            SLS,N    1                 MPY BY 2
      1184   02 00322    32700047 03           LW,M1    SLOC              USE PROC LOCAL TABLE IF WITHIN
      1185   02 00323    32E00007 03           LW,CT    PROCLV              A PROC; OTHERWISE USE SOURCE
      1186   02 00324    68300326              BEZ      %+2                 LOCAL TABLE
      1187   02 00325    32700006 03           LW,M1    PLOC
      1188   02 00326    38700006 A            SW,M1    N
      1189   02 00327    326E0001 A            LW,N     SNOFFSET,M1
      1190   02 00328    4B600AE7              AND,N    =ENCVAL           TRIM THE SYMBOL NUMBER
      1191   02 00329    33F0003C 03           MTW,-1   INCORESF          DON'T LET LOCAL STORE CAUSE WRITE
      1192   02 0032A    6800032C              B        CF1S8
      1193   02 0032B                 CF1S7    RES      0
      1194   02 0032B    EAF0003D 03           CALL     *INSERTV
      1195   02 0032C                 CF1S8    RES      0
      1196   02 0032C    32900AE8              LW,RT1|1  =CF1FLD          SET THE CF1 BIT ON
      1197   02 0032D    479E0000 A            STS,RT1|1  PTROFFSET,M1
      1198   02 0032E    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      1199   02 0032F    20604000 A            AI,N     SYMTYPE           MAKE IT A SYMBOL
      1200   02 00330                 CF1S2    RES      0
      1201   02 00330    3560002F 03           STW,N    CURRCMND
      1202   02 00331    6AF00639              BAL,RL   WDOUT             OUTPUT THE COMMAND
      1203   02 00332    19600008              CLM,N    RNG%SYN%DIR       COULD THIS HAVE A SPECIAL
      1204         001F0000                    IF,IL                 -50-   SYNTAX EQUATION?
             02 00333    69900338
      1205   02 00334    4B600AE7              AND,N    L(ENCVAL)         GET LOCATION OF APPROPRIATE
      1206   02 00335    526C000C              LH,N     DIRBR,N             SYNTAX EQUATION
      1207   02 00336    6930029A              BNEZ     NEXTLEVEL
      1208                            *
      1209   02 00337    680002B3              B        TRUE
      1210                            *
      1211         00F10000                    FI                    -50-
      1212   02 00338    19600004              CLM,N    RNG%DFN%DIR
      1213   02 00339    699002B3              BOL      TRUE
      1214                            *
      1215   02 0033A    21604015 A            CI,N     COMDIR            IF THIS IS 'COM', 'CNAME', OR
      1216   02 0033B    683004B5              BE       EXCHSLOC            'FNAME' ,  DELETE THE
      1217   02 0033C    21604014 A            CI,N     CNAMEDIR            CURRENT LOCAL TABLE
      1218   02 0033D    683004B5              BE       EXCHSLOC            ON THE SOURCE LEVEL
      1219   02 0033E    2160401D A            CI,N     FNAMEDIR
      1220   02 0033F    693002B3              BNE      TRUE
      1221   02 00340    680004B5              B        EXCHSLOC
      1222                            *
      1223                            *  C M N D E R R
      1224                            *        HERE TO OUTPUT A SYNTAX ERROR FOR THE COMMAND FIELD
      1225                            *
      1226   02 00341                 CMNDERR  RES      0
      1227   02 00341    2260000A A            LI,N     SYNERR
      1228   02 00342    68000330              B        CF1S2             GO STORE & SET CURRCMND
1
      1230                            *
      1231                            *   SEMANTIC ROUTINES FOR CONCORDANCE CONTROL COMMAND PROCESSING
      1232                            *
      1233                            *
      1234                            *   R E S E T O U T
      1235                            *        DELETE THE DUMMY CN LINE NUMBER BY BACKING UP
      1236                            *        THE OUTPUT INDEX.
      1237                            *
      1238   02 00343                 RESETOUT RES      0
      1239   02 00343    32300053 03           LW,OUT   OUTSAVE           INDEX AT START OF LINE
      1240   02 00344    680002B3              B        TRUE
      1241                            *
      1242                            *   S E T C N I O
      1243                            *        NOTE BEGINNING OF .IO CONCORDANCE COMMAND
      1244                            *
      1245   02 00345                 SETCNIO  RES      0
      1246   02 00345    22800003 A            LV,RT1   CNIOMODE
      1247   02 00346    32900AE8              LV,RT2   CNIOFLG
      1248   02 00347    68000356              B        SETCNCOM
      1249                            *
      1250                            *
      1251                            *   S E T C N S S
      1252                            *        NOTE BEGINNING OF .SS CONCORDANCE COMMAND
      1253                            *
      1254   02 00348                 SETCNSS  RES      0
      1255   02 00348    3280002B 03           LW,RT1   CNCTRL
      1256   02 00349    31800AE9              CV,RT1   CNOSFLG           CANNOT HAVE HAD PREVIOUS .OS
      1257   02 0034A    69400396              BANZ     CNERR2
      1258                            *
      1259   02 0034B    22800004 A            LV,RT1   CNSSMODE
      1260   02 0034C    32900AEA              LV,RT2   CNSSFLG
      1261   02 0034D    68000356              B        SETCNCOM
      1262                            *
      1263                            *
      1264                            *   S E T C N O S
      1265                            *        NOTE BEGINNING OF .OS CONCORDANCE COMMAND
      1266                            *
      1267   02 0034E                 SETCNOS  RES      0
      1268   02 0034E    3280002B 03           LW,RT1   CNCTRL
      1269   02 0034F    31800AEA              CV,RT1   CNSSFLG           CANNOT HAVE HAD PREVIOUS .SS
      1270   02 00350    69400396              BANZ     CNERR2
      1271                            *
      1272   02 00351    22800005 A            LV,RT1   CNOSMODE
      1273   02 00352    32900AE9              LV,RT2   CNOSFLG
      1274   02 00353    68000356              B        SETCNCOM
      1275                            *
      1276                            *
      1277                            *   S E T C N D S
      1278                            *        NOTE BEGINNING OF .DS CONCORDANCE COMMAND
      1279                            *
      1280   02 00354                 SETCNDS  RES      0
      1281   02 00354    22800006 A            LV,RT1   CNDSMODE
      1282   02 00355    22920000 A            LV,RT2   CNDSFLG
      1283                            *        (FALL THROUGH)
      1284                            *
      1285   02 00356                 SETCNCOM RES      0
      1286   02 00356    3260002B 03           LW,N     CNCTRL
      1287   02 00357    4B600AEB              AND,N    L(CNFLGFLD)       SAVE OLD FLAGS
      1288   02 00358    49600009 A            OR,N     RT2               MERGE NEW FLAGS
      1289   02 00359    75800006 A            STB,RT1  N                 SET TYPE CODE
      1290   02 0035A    3560002B 03           STW,N    CNCTRL
      1291   02 0035B    680002B3              B        TRUE
      1292                            *
      1293                            *
      1294                            *   E N D C N D S
      1295                            *        FINISH PROCESSING OF .DS CONCORDANCE COMMAND
      1296                            *
      1297   02 0035C                 ENDCNDS  RES      0
      1298   02 0035C    22600001 A            LI,N     1
      1299   02 0035D    55600000 X            STH,N    LS%FLAG           OVERRIDE LS OPTION IF SPECIFIED
      1300   02 0035E    22600000 A            LI,N     0
      1301   02 0035F    35600032 03           STW,N    DSLNCTRL
      1302   02 00360    32300053 03           LW,OUT   OUTSAVE           DELETE DUMMY LINE NUMBER
      1303   02 00361    680002C8              B        EXITSYN
      1304                            *
      1305                            *
      1306                            *   E N D C N I O
      1307                            *        FINISH PROCESSING OF .IO CONCORDANCE COMMAND
      1308                            *
      1309   02 00362                 ENDCNIO  RES      0
      1310   02 00362    32800AEC              LV,RT1   CNIOFLG1
      1311   02 00363    68000365              B        ENDCNCOM
      1312                            *
      1313                            *
      1314                            *   E N D C N S S
      1315                            *        FINISH PROCESSING OF .SS CONCORDANCE COMMAND
      1316                            *
      1317   02 00364                 ENDCNSS  RES      0
      1318   02 00364    32800AED              LV,RT1   CNSSFLG1
      1319                            *        (FALL THROUGH)
      1320                            *
      1321   02 00365                 ENDCNCOM RES      0
      1322   02 00365    3260002B 03           LW,N     CNCTRL
      1323   02 00366    2160FFFF A            CV,N     X'FFFF'
      1324         001F0000                    IF,ANZ
             02 00367    6840036C
      1325   02 00368    49600008 A            OR,N     RT1               SET USE FLAG
      1326   02 00369    3560002B 03           STW,N    CNCTRL
      1327   02 0036A    22600000 A            LV,N     ENDLN
      1328   02 0036B    6AF00639              CALL     WDOUT
      1329         00F10000                    FI
      1330   02 0036C    680002C8              B        EXITSYN           GET OUT OF EQUATIONS
      1331                            *
      1332                            *
      1333                            *   C N S Y M
      1334                            *        PROCESS THE SYMBOL SPECIFIED IN A CONCORDANCE CONTROL
      1335                            *        COMMAND NAME LIST.
      1336                            *
      1337   02 0036D                 CNSYM    RES      0
      1338   02 0036D    EAF00045 03           CALL     *SEARCHV
      1339   02 0036E    EAF0003D 03           CALL     *INSERTV
      1340   02 0036F    7210002B 03           LB,XT    CNCTRL            GET ID CODE FOR OPTION IN PROGRESS
      1341   02 00370    21100006 A            CV,XT    CNDSMODE
      1342         001F0000                    IF,EQ                      .DS JUST SETS A BIT IN THE SYMT
             02 00371    69300376
      1343   02 00372    32100AED              LV,XT    DSSYMBIT
      1344   02 00373    C7100034 03           STS,XT   *FND
      1345   02 00374    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      1346         000E0000                    ELS                        ALL OTHERS GO OUT TO ENCODED BUFFER
             02 00375    68000379
      1347   02 00376    2510000D A            SHIFT,XT 31,16+2
      1348   02 00377    30600001 A            AW,N     XT
      1349   02 00378    6AF00639              CALL     WDOUT
      1350         00F10000                    FI
      1351   02 00379    3310002B 03           MTW,+1   CNCTRL            TALLY NAME-LIST SYMBOL
      1352   02 0037A    680002B3              B        TRUE
      1353                            *
      1354                            *
      1355                            *   C N T E R M
      1356                            *        WRAP UP CONCORDANCE CONTROL COMMAND PROCESSING
      1357                            *
      1358   02 0037B                 CNTERM   RES      0
      1359         001F0000                    IF,G     1,OUT             DON'T WRITE AN EMPTY BUFFER
             02 0037B    21300001 A
             02 0037C    6820037E
      1360   02 0037D    6AF0098E              CALL     IO%X3             WRITE ANYTHING IN THE BUFFER
      1361         00F10000                    FI
      1362   02 0037E    52100000 X            LH,XT    DC%FLAG
      1363   02 0037F    21100002 A            CI,XT    2                 DID CN CONTROLS COME FROM X1?
      1364         001F0000                    IF,EQ
             02 00380    69300382
      1365   02 00381    6A700000 X            BAL,X7   FIN%X1            REWIND X1
      1366         00F10000                    FI
      1367   02 00382    3260002B 03           LW,N     CNCTRL
      1368   02 00383    4B600AEB              AND,N    L(CNFLGFLD)       SAVE OPTION & NAME-LIST FLAGS
      1369   02 00384    20610000 A            AI,N     1**16
      1370   02 00385    32100043 03           LW,XT    NUMRECX3
      1371   02 00386    75100006 A            STB,XT   N                 SAVE X3 RECORD COUNT
      1372   02 00387    35600000 X            STW,N    DC%FLAG
      1373   02 00388    22100000 A            LI,XT    0
      1374   02 00389    3510002B 03           STW,XT   CNCTRL            CLEAR CN CONTROL TOGGLE
      1375   02 0038A    680002C8              B        EXITSYN           GET OUT OF EQUATIONS
      1376                            *
      1377                            *
      1378                            *   C N E R R 1
      1379                            *        READ A NON-'.' CARD WHILE ACCESSING CN CONTROLS
      1380                            *
      1381   02 0038B                 CNERR1   RES      0
      1382   02 0038B    022000F0 A            LCI      15
      1383   02 0038C    2B100000 X            STM,1    SAVAREA           SAVE REGS
      1384   02 0038D    022000A0 A            LCI      10
      1385   02 0038E    2A1000DA              LM,1     CNERR1%MSG
      1386   02 0038F    2B100000 X            STM,1    LSTBF              (WRITELO MAY TRY TO MODIFY BUFFER)
      1387   02 00390    22800000 N            LI,IOADD LSTBF
      1388   02 00391    22900028 A            LI,IOSIZE   40
      1389   02 00392    6AA00000 X            BAL,IORL WRITELO
      1390   02 00393    022000F0 A            LCI      15
      1391   02 00394    2A100000 X            LM,1     SAVAREA            RESTOTE REGS
      1392   02 00395    680002B3              B        TRUE
      1393                            *
      1394                            *
      1395                            *   C N E R R 2
      1396                            *        ERROR IN PROCESSING A CN CONTROL
      1397                            *
      1398   02 00396                 CNERR2   RES      0
      1399   02 00396    22604000 A            LV,N     CNERR             ERROR CODE
      1400   02 00397    6AF00639              CALL     WDOUT
      1401   02 00398    22600000 A            LV,N     ENDLN
      1402   02 00399    6AF00639              CALL     WDOUT
      1403   02 0039A    680002B3              B        TRUE
1
      1405                            *
      1406                            *    R E A D C A R D
      1407                            *        READ NEXT RECORD AND MOVE TO INBUF.
      1408                            *        COMPRESS RECORD AND PUT IN SIBUF.
      1409                            *
      1410   02 0039B                 READCARD RES      0
      1411   02 0039B    3300002B 03           MTW,0    CNCTRL
      1412         001F0000                    IF,NZ                      CN CONTROL COMMANDS BEING SCANNED
             02 0039C    6830039F
      1413   02 0039D    6AA00000 X            BAL,IORL READC             GET NEXT CN CONTROL
      1414   02 0039E    68000416              B        RCMOVE            TRANSFER BUFSI TO INPUT AREA
      1415                            *
      1416         00F10000                    FI
      1417   02 0039F    6AD00000 X            BAL,LINK IM@READ           READ A RECORD.
      1418                            * 15 SAVED REGISTERS ARE STILL IN SAVAREA
      1419   02 003A0    33000000 X            MTW,0    LS%FLAG           SHALL WE PRINT LS?
      1420   02 003A1    683003BC              BEZ      AFTER%LS          BRANCH IF NO.
      1421   02 003A2    33000000 X            MTW,0    NIVO              DON'T OUTPUT IF
      1422   02 003A3    693003BC              BNEZ     AFTER%LS            WITHIN A SYSTEM
      1423                            *
      1424   02 003A4    33000033 03           MTW,0    FIRSTREC
      1425         001F0000                    IF,EZ
             02 003A5    693003A8
      1426   02 003A6    33100033 03           MTW,+1   FIRSTREC
      1427         000E0000                    ELS
             02 003A7    680003A9
      1428   02 003A8    6AF0099C              CALL     CHK%PRNT          PRINT LAST LINE IF NEEDS BE
      1429         00F10000                    FI
      1430   02 003A9    6A700000 X            BAL,X7   CLRLSTBF
      1431   02 003AA    022000A0 A            LCI      10                MOVE CARD
      1432   02 003AB    2A100000 X            LM,1     BUFSI             TO
      1433   02 003AC    2B100005 N            STM,1    LSTBF+5           LISTING
      1434   02 003AD    2A10000A N            LM,1     BUFSI+10          PRINT
      1435   02 003AE    2B10000F N            STM,1    LSTBF+15          BUFFER
      1436   02 003AF    22200007 A            LI,X2    7
      1437   02 003B0    2240005C A            LI,X4    '*'
      1438   02 003B1    32500000 X            LW,X5    IM@MINOR          GET
      1439   02 003B2    693003B8              BNEZ     LS#3              LINE
      1440   02 003B3    32500000 X            LW,X5    IM@MAJOR          NUMBER,
      1441   02 003B4    680003B9              B        LS#5              EDIT LINE
      1442   02 003B5    22400000 A   LS#4     LI,X4    0                 NUMBER
      1443   02 003B6    36400AEE              DW,X4    =10               TO
      1444   02 003B7    204000F0 A            AI,X4    X'F0'             EBCDIC,
      1445   02 003B8    75440002 N   LS#3     STB,X4   LSTBF+2,X2        INSERT ASTERISK
      1446   02 003B9    202FFFFF A   LS#5     AI,X2    -1                IF
      1447   02 003BA    20500000 A            AI,X5    0                 LINE IS
      1448   02 003BB    693003B5              BNEZ     LS#4              FROM UPDATE PACKET, THEN PRINT LINE
      1449                            *
      1450         02 003BC           AFTER%LS EQU      %
      1451   02 003BC    22200000 N            LI,IN    BUFSI             SAVE ADDRESS
      1452   02 003BD    35200028 03           STW,IN   CARDADDR            OF CARD IMAGE
      1453                            *
      1454                            *        COMPRESS A SOURCE RECORD
      1455                            *
      1456                                     OPEN     RT1,RL,LINK       RESOLVE A REGISTER CONFLICT
      1457         00000004           RL       EQU      4
      1458         00000005           LINK     EQU      5
      1459         00000002           RT1      EQU     2
      1460   02 003BE    32300054 03           LW,OUT   CMPOUTSV
      1461   02 003BF    22E00021 A            LI,CT    X'21'
      1462   02 003C0    22100013 A            LI,XT    19
      1463   02 003C1    32600AE3              LW,N     L('    ')
      1464   02 003C2    31620000 X            CW,N     BUFSI,XT          SEARCH FOR TRAILING BLANKS
      1465   02 003C3    693003C7              BNE      CMP15
      1466   02 003C4    641003C2              BDR,XT   %-2
      1467   02 003C5    31600000 X            CW,N     BUFSI             IS ENTIRE RECORD BLANK
      1468   02 003C6    68300413              BE       CMPEND25          YES, WRITE END RECORD ITEM
      1469   02 003C7    66100028 03  CMP15    AWM,XT   CARDADDR          NO
      1470   02 003C8    3A100001 A            LCW,XT   XT
      1471   02 003C9    B1620028 03  CMP16    CW,N     *CARDADDR,XT      SEARCH FOR LEADING BLANKS
      1472   02 003CA    693003CD              BNE      CMP17
      1473   02 003CB    20E00004 A            AI,CT    4
      1474   02 003CC    651003C9              BIR,XT   CMP16
      1475   02 003CD    33100028 03  CMP17    MTW,+1   CARDADDR
      1476   02 003CE    25100002 A            SLS,XT   2
      1477   02 003CF    201FFFFB A            AI,XT    -5
      1478   02 003D0    21E00021 A            CI,CT    X'21'             ANY LEADING BLANKS
      1479   02 003D1    683003D6              BE       CMP25             NO
      1480   02 003D2    20EFFFFF A            AI,CT    -1                YES
      1481   02 003D3    22200040 A            LI,RT1   ' '               SET REPEAT CHAR = ' '
      1482   02 003D4    3520002A 03           STW,RT1  CMPCHAR
      1483   02 003D5    680003E9              B        CMP46             GO OUTPUT
      1484   02 003D6    651003D8     CMP25    BIR,XT   %+2               GET
      1485   02 003D7    68000404              B        CMPEND                A
      1486   02 003D8    F2220028 03           LB,RT1   *CARDADDR,XT            CHAR.
      1487   02 003D9    3520002A 03  CMP26    STW,RT1  CMPCHAR           SAVE
      1488   02 003DA    2120003F A            CI,RT1   X'3F'             IS IT A SPECIAL CHAR
      1489   02 003DB    692003E3              BG       CMP35             NO
      1490   02 003DC    21200020 A            CI,RT1   X'20'
      1491   02 003DD    691003E3              BL       CMP35             NO
      1492   02 003DE    22600021 A            LI,N     X'21'             YES, WRITE X'21' SPEC. CHAR
      1493   02 003DF    6A40040D              BAL,RL   CMPOUT
      1494   02 003E0    32600002 A            LW,N     RT1
      1495   02 003E1    6A40040D              BAL,RL   CMPOUT            WRITE SPECIAL CHAR
      1496   02 003E2    680003D6              B        CMP25
      1497   02 003E3    651003E5     CMP35    BIR,XT   %+2               GET
      1498   02 003E4    68000404              B        CMPEND                A
      1499   02 003E5    F2220028 03           LB,RT1   *CARDADDR,XT            CHAR.
      1500   02 003E6    3120002A 03           CW,RT1   CMPCHAR           SAME AS LAST CHAR
      1501   02 003E7    693003F0              BNE      CMP55             NO,
      1502   02 003E8    20E00001 A   CMP45    AI,CT    1                 ADD 1 TO REPEAT COUNT
      1503   02 003E9    651003EB     CMP46    BIR,XT   %+2               GET
      1504   02 003EA    68000404              B        CMPEND                A
      1505   02 003EB    F2220028 03           LB,RT1   *CARDADDR,XT            CHAR.
      1506   02 003EC    3120002A 03           CW,RT1   CMPCHAR           SAME AS LAST CHAR
      1507   02 003ED    683003E8              BE       CMP45             YES
      1508   02 003EE    6A5003F6     CMP50    BAL,LINK CMPRPT
      1509   02 003EF    680003D9              B        CMP26
      1510   02 003F0    3260002A 03  CMP55    LW,N     CMPCHAR
      1511   02 003F1    653003F4              BIR,OUT  CMP60             BRANCH IF SIBUF NOT FULL
      1512                            *
      1513   02 003F2    6AF0098E              CALL     IO%X3
      1514   02 003F3    22300000 N            LI,OUT   -BYX3SIZE         RESET OUT
      1515   02 003F4                 CMP60    RES      0
      1516   02 003F4    75660000 F            STB,N    SIBUF+WDX3SIZE,OUT
      1517   02 003F5    680003D9              B        CMP26
      1518   02 003F6    21E0003F A   CMPRPT   CI,CT    X'3F'             IS COUNT > X'3F'
      1519   02 003F7    692003FE              BG       CMPRPT5           YES
      1520   02 003F8    3260000E A            LW,N     CT                NO, WRITE REPETITION CONTROL
      1521   02 003F9    6A40040D              BAL,RL   CMPOUT
      1522   02 003FA    3260002A 03           LW,N     CMPCHAR
      1523   02 003FB    6A40040D              BAL,RL   CMPOUT            WRITE CHARACTER
      1524   02 003FC    22E00021 A            LI,CT    X'21'
      1525   02 003FD    680A0000 A            EXIT     LINK
      1526   02 003FE    20EFFFE1 A   CMPRPT5  AI,CT    -31
      1527   02 003FF    2260003F A            LI,N     X'3F'
      1528   02 00400    6A40040D              BAL,RL   CMPOUT            WRITE REPEAT ITEM
      1529   02 00401    3260002A 03           LW,N     CMPCHAR
      1530   02 00402    6A40040D              BAL,RL   CMPOUT            WRITE CHAR
      1531   02 00403    680003F6              B        CMPRPT
      1532   02 00404    21200040 A   CMPEND   CI,RT1   X'40'             LAST CHAR = ' '
      1533   02 00405    68300413              BE       CMPEND25          YES
      1534   02 00406    69200409              BG       CMPEND15          NO, > X'40'
      1535   02 00407    21200020 A            CI,RT1   X'20'             NO, SPECIAL
      1536   02 00408    68100413              BGE      CMPEND25          YES
      1537   02 00409    21E00021 A   CMPEND15 CI,CT    X'21'             NO
      1538   02 0040A    69200412              BG       CMPEND20          YES
      1539   02 0040B    32600002 A            LW,N     RT1
      1540   02 0040C    22400413              LI,RL    CMPEND25
      1541   02 0040D                 CMPOUT   RES      0
      1542   02 0040D    65300410              BIR,OUT  CMPOUT3           BUFFER FULL - NO
      1543                            *
      1544   02 0040E    6AF0098E              CALL     IO%X3
      1545   02 0040F    22300000 N            LI,OUT   -BYX3SIZE         RESET OUT
      1546   02 00410                 CMPOUT3  RES      0
      1547   02 00410    75660000 F            STB,N    SIBUF+WDX3SIZE,OUT  MOVE CHARACTER
      1548   02 00411    68080000 A            EXIT     RL
      1549   02 00412    6A5003F6     CMPEND20 BAL,LINK CMPRPT
      1550   02 00413    22600020 A   CMPEND25 LI,N     X'20'
      1551   02 00414    6A40040D              BAL,RL   CMPOUT            WRITE END OF RECORD ITEM
      1552   02 00415    35300054 03           STW,OUT  CMPOUTSV          SAVE OUT INDEX
      1553                                     CLOSE    RT1,RL,LINK       END OF REGISTER CONFLICT AREA
      1554                            *
      1555                            *  MOVE 18 WORDS FROM THE BUFSI AREA TO THE NEXT
      1556                            *    18 WORDS IN THE INBUF AREA AND STORE A SPECIAL FLAG
      1557                            *    WORD AFTER THE NEXT WORD.
      1558                            *
      1559   02 00416                 RCMOVE   RES      0
      1560   02 00416    32100027 03           LW,1     BUFPTR
      1561   02 00417    32200AEF              LW,2     =' ;  '           BLANK,SEMICOLON,BLANK,BLANK
      1562   02 00418    35220012 A            STW,2    18,1
      1563   02 00419    02200090 A            LCI      +9
      1564   02 0041A    2A200000 X            LM,2     BUFSI
      1565   02 0041B    2B220000 A            STM,2    0,1
      1566   02 0041C    2A200009 N            LM,2     BUFSI+9
      1567   02 0041D    2B220009 A            STM,2    9,1
      1568   02 0041E    20100012 A            AI,1     18                UPDATE BUFPTR FOR NEXT RECORD
      1569   02 0041F    35100027 03           STW,1    BUFPTR
      1570   02 00420    022000F0 A            LCI      15                RESTORE REGISTERS
      1571   02 00421    2A100000 X            LM,1     SAVAREA
      1572   02 00422    31500027 03           CW,LVL   BUFPTR
      1573   02 00423    E920000F A            BG       *RL
      1574   02 00424    680008CE              B        OVERFLOW
      1575                            *
      1576                            *    C H A R
      1577                            *        GET THE NEXT INPUT CHARACTER
      1578                            *        THE CHARACTER IS MADE AVAILABLE IN REGISTER  'CRG', AND
      1579                            *        THE INPUT POINTER IS BUMPED.
      1580                            *
      1581   02 00425                 CHAR     RES      0
      1582   02 00425    F2740035 03           LB,CRG   *INBUF,IN         NEXT INPUT CHARACTER
      1583   02 00426    20200001 A            AI,IN    1                 BUMP INDEX TO INBUF
      1584   02 00427    2170005E A            CI,CRG   ';'               TEST FOR CONTINUATION CHARACTER
      1585   02 00428    E930000F A            BNE      *RL               NO.
      1586   02 00429    31200002 03           CW,IN    LASTIN            IS CHAR BEYOND END OF INBUF
      1587   02 0042A    68200430              BLE      CHAR1             BRANCH IF WITHIN INBUF
      1588   02 0042B    22700040 A            LI,CRG   ' '               RETURN A BLANK IF NOT IN TEXT
      1589   02 0042C    33000026 03           MTW,+0   ALFLAG
      1590   02 0042D    E830000F A            BEZ      *RL
      1591   02 0042E    2270007D A            LI,CRG   ''''              OTHERWISE RETURN A PRIME
      1592   02 0042F    E800000F A            EXIT RL
      1593   02 00430                 CHAR1    RES      0
      1594   02 00430    33000026 03           MTW,0    ALFLAG            IF WITHIN A TEXT STRING,
      1595   02 00431    E930000F A            BNEZ     *RL                 DON'T ALLOW CONTINUATION
      1596                            * HERE TO PROCESS CONTINUATION
      1597   02 00432    35F00029 03           STW,RL   CHARTEMP          SAVE EXIT
      1598   02 00433                 CHAR5    RES      0
      1599   02 00433    32F00002 A            LW,RL    IN                IF THE NEXT CHARACTER HAS ALREADY
      1600   02 00434    20F00048 A            AI,RL    72                  BEEN INPUT, DON'T RE-READ
      1601   02 00435    31F00002 03           CW,RL    LASTIN
      1602   02 00436    68200467              BLE      CHAR2
      1603   02 00437    6AF0039B              BAL,RL   READCARD          READ THE CONTINUATION LINE
      1604   02 00438    22600002 A            LI,N     2                 SET # HALFWORDS TO 2
      1605   02 00439    32D00000 X            LW,LINK  IM@MAJOR          GET LINE NUMBER
      1606   02 0043A    33000000 X            MTW,+0   NIVO              USE IM@MAJOR IF WITHIN
      1607   02 0043B    6930043F              BNEZ     LINE#1              A SYSTEM
      1608   02 0043C    33000000 X            MTW,+0   IM@MINOR          USE ZERO IF THIS IS AN INSERT
      1609   02 0043D    6830043F              BEZ      LINE#1            BRANCH IF NOT AN INSERT
      1610   02 0043E    22D00000 A            LI,LINK  0
      1611   02 0043F                 LINE#1   RES      0
      1612   02 0043F    21D01FFF A            CI,LINK  X'1FFF'           WILL LINE # FIT AS SMALL INTEGER
      1613   02 00440    69200443              BG       LINE#2            BRANCH IF NO
      1614   02 00441    20D0C000 A            AI,LINK  SMALLINT
      1615   02 00442    22600001 A            LI,N     1
      1616                            *  ADD SIZE OF INSERT LINE NUMBER TO EACH 'OUT' ENTRY IN LVLTBL
      1617   02 00443                 LINE#2   RES      0
      1618   02 00443    32200005 A            LW,IN    LVL
      1619   02 00444    20200003 A            AI,IN    3                 LVL POINTS TO NEXT AVAILABLE
      1620   02 00445                 LINE#6   RES      0
      1621   02 00445    66640001 A            AWM,N    LVLTBL+1,IN       ADD SIZE TO 'OUT' ENTRY
      1622   02 00446    20200003 A            AI,IN    3                 ADVANCE ADDRESS BY LVLTBL SIZE
      1623   02 00447    3120003E 03           CW,IN    LVLBASE
      1624   02 00448    69100445              BL       LINE#6
      1625   02 00449                 LINE#7   RES      0
      1626   02 00449    32200003 A            LW,IN    OUT
      1627   02 0044A    30200006 A            AW,IN    N
      1628   02 0044B    35200002 N            STW,IN   SAVAREA-1+OUT     STORE FINAL ADDRESS OF OUT
      1629   02 0044C    21200000 N            CI,IN    OUTSIZE           WILL THE LINE NUMBER FIT IN OUTBUF
      1630   02 0044D    69100452              BL       LINE#3            BRANCH IF YES
      1631   02 0044E    6AF00639              BAL,RL   WDOUT             TERMINATE OUTBUF BY OUTPUTTING
      1632   02 0044F    6AF00639              BAL,RL   WDOUT               TWO DUMMY ENTRIES
      1633   02 00450    203FFFFE A            AI,OUT   -2                DELETE THE DUMMY ENTRIES
      1634   02 00451    68000449              B        LINE#7
      1635   02 00452                 LINE#3   RES      0
      1636   02 00452    32F00003 A            LW,RL    OUT               PUT SIZE OF LINE IN RL
      1637   02 00453    38F00042 03           SW,RL    NEXTLINE#
      1638   02 00454    6830045A              BEZ      LINE#8            NO ENTRIES TO MOVE
      1639   02 00455                 LINE#4   RES      0
      1640   02 00455    202FFFFF A            AI,IN    -1                MOVE OUTBUF DOWN TO MAKE
      1641   02 00456    203FFFFF A            AI,OUT   -1                  ROOM FOR THE INSERT
      1642   02 00457    52B60000 X            LH,RT4   OUTBUF,OUT          LINE NUMBER
      1643   02 00458    55B40000 X            STH,RT4  OUTBUF,IN
      1644   02 00459    64F00455              BDR,RL   LINE#4
      1645   02 0045A                 LINE#8   RES      0
      1646   02 0045A    66600042 03           AWM,N    NEXTLINE#         BUMP ADDRESS FOR NEXT LINE NUMBER
      1647   02 0045B    21600001 A            CI,N     1                 IS LINE # A SINGLE HALFWORD
      1648   02 0045C    6830045F              BE       LINE#5              YES
      1649   02 0045D    2260E001 A            LI,N     LARGEINT+1        NO. OUTPUT LARGE INTEGER CONTROL
      1650   02 0045E    6AF00639              BAL,RL   WDOUT
      1651   02 0045F                 LINE#5   RES      0
      1652   02 0045F    3260000D A            LW,N     LINK              OUTPUT LAST HALFWORD OF LINE #
      1653   02 00460    6AF00639              BAL,RL   WDOUT
      1654   02 00461    022000F0 A            LCI      +15               RESTORE ALL REGISTERS
      1655   02 00462    2A100000 X            LM,1     SAVAREA
      1656   02 00463    32200002 03           LW,IN    LASTIN
      1657   02 00464    22F00048 A            LI,RL    72
      1658   02 00465    66F00002 03           AWM,RL   LASTIN
      1659   02 00466    6800046C              B        CHAR6
      1660   02 00467                 CHAR2    RES      0
      1661   02 00467    32F00002 A            LW,RL    IN
      1662   02 00468    22200000 A            LI,IN    0
      1663   02 00469                 CHAR4    RES      0
      1664   02 00469    20200048 A            AI,IN    72
      1665   02 0046A    3120000F A            CW,IN    RL
      1666   02 0046B    69100469              BL       CHAR4
      1667   02 0046C                 CHAR6    RES      0
      1668   02 0046C    F2740035 03           LB,CRG   *INBUF,IN         THE FIRST CHARACTER OF A
      1669   02 0046D    21700040 A            CI,CRG   ' '                 CONTINUED RECORD SHOULD BE BLANK
      1670   02 0046E    68300477              BE       CHAR7
      1671   02 0046F    21700005 A            CI,CRG   X'05'             IT COULD ALSO BE 'TAB'
      1672   02 00470    68300477              BE       CHAR7
      1673                            *
      1674   02 00471    2170005C A            CI,CRG   '*'               IS IT A COMMENT
      1675   02 00472    69300475              BNE      CHAR8             NO
      1676   02 00473    20200001 A            AI,IN    1
      1677   02 00474    68000433              B        CHAR5             GO READ NEXT LINE
      1678   02 00475                 CHAR8    RES      0
      1679   02 00475    3310002C 03           MTW,+1   CONTIN%ERROR      SET CONTINUATION ERROR FLAG
      1680   02 00476    6800047F              B        CHAR9
      1681                            * ELIMINATE LEADING BLANKS ON THE CONTINUED RECORD
      1682   02 00477                 CHAR7    RES      0
      1683   02 00477    20200001 A            AI,IN    1
      1684   02 00478    31200002 03           CW,IN    LASTIN            BAD IF ENTIRE RECORD IS BLANK
      1685   02 00479    68300475              BE       CHAR8
      1686   02 0047A    F2740035 03           LB,CRG   *INBUF,IN
      1687   02 0047B    21700040 A            CI,CRG   ' '
      1688   02 0047C    68300477              BE       CHAR7
      1689                            *
      1690   02 0047D    21700005 A            CI,CRG   X'05'             CHECK FOR 'TAB'
      1691   02 0047E    68300477              BE       CHAR7
      1692   02 0047F                 CHAR9    RES      0
      1693   02 0047F    32F00029 03           LW,RL    CHARTEMP
      1694   02 00480    68000425              B        CHAR
      1695                            *
      1696                            *   C L O S E S Y M
      1697                            *        'CLOSE' THE NEXT SYMBOL OF A CLOSE DIRECTIVE
      1698                            *
      1699   02 00481                 CLOSESYM RES      0
      1700   02 00481    EAF00045 03           CALL     *SEARCHV
      1701   02 00482    EAF0003D 03           CALL     *INSERTV
      1702   02 00483    21602000 A            CI,N     8192              ERROR IF THE SYMBOL IS LOCAL
      1703   02 00484    6940055E              BANZ     OPENSYM1
      1704   02 00485    32900AEA              LW,RT2   =CLOFLD           SET THE CLOSE BIT ON
      1705   02 00486    479E0000 A            STS,RT2  PTROFFSET,M1
      1706   02 00487    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      1707   02 00488    68000633              B        SYMOUT
      1708                            *
      1709                            *   C O M M A C K
      1710                            *
      1711   02 00489                 COMMACK  RES      0
      1712   02 00489    6AF00425              BAL,RL   CHAR
      1713   02 0048A                 COMMACK1 RES      0
      1714   02 0048A    2170006B A            CI,CRG   ','
      1715   02 0048B    68300691              BE       RESETCHT
      1716   02 0048C    680002AC              B        FALSE
      1717                            *
      1718                            *   D E L I M
      1719                            *        CHECK FOR A DELIMITER. (COMMA,BLANK, OR RT. PAREN.)
      1720                            *
      1721   02 0048D                 DELIM    RES      0
      1722   02 0048D    6AF00425              BAL,RL   CHAR
      1723   02 0048E    21700040 A            CI,CRG   ' '
      1724   02 0048F    68300691              BE       RESETCHT
      1725   02 00490    21700005 A            CI,CRG   TAB
      1726   02 00491    68300691              BE       RESETCHT
      1727   02 00492    2170005D A            CI,CRG   ')'
      1728   02 00493    6930048A              BNE      COMMACK1
      1729   02 00494    68000691              B        RESETCHT
      1730                            *
      1731                            *   C R E A T E 1 S T
      1732                            *
      1733                            *        CREATE A SYMBOL TABLE ENTRY LINKED TO THE MAIN ENTRY
      1734                            *          LOCATION OF THE ENTRY TO BE LINKED IS IN M1
      1735                            *
      1736   02 00495                 CREATE1ST  RES    0
      1737   02 00495    32100000 X            LW,XT    NEXTST
      1738   02 00496    3110004B 03           CW,XT    SYMLMTM1
      1739         001F0000                    IF,EQ                      DOIF 2-WD ENTRY WOULD BRIDGE
             02 00497    6930049A
      1740   02 00498    20100001 A            AI,XT    1                   SPILL PAGE BOUNDARY.
      1741   02 00499    33100000 X            MTW,+1   NEXTST
      1742         00F10000                    FI
      1743   02 0049A    32EE0000 A            LW,CT    PTROFFSET,M1
      1744   02 0049B    4BE00AF0              AND,CT   =PTRFLD+CLOFLD+CF1FLD
      1745   02 0049C    35E20008 03           STW,CT   PTRWD,XT
      1746   02 0049D    32800AEC              LW,RT1   =PTRFLD
      1747   02 0049E    32900AF0              LW,RT2   =PTRFLD+CLOFLD+CF1FLD
      1748   02 0049F    478E0000 A            STS,RT1  PTROFFSET,M1
      1749   02 004A0    328E0001 A            LW,RT1   SNOFFSET,M1
      1750   02 004A1    35820009 03           STW,RT1  SNWD,XT
      1751   02 004A2    55100008 A            STH,XT   RT1
      1752   02 004A3    32900AF1              LW,RT2   =SNFLD
      1753   02 004A4    478E0001 A            STS,RT1  SNOFFSET,M1
      1754   02 004A5    32700001 A            LW,M1    XT
      1755   02 004A6    20700008 03           AI,M1    HED
      1756   02 004A7    33200000 X            MTW,2    NEXTST
      1757   02 004A8    E800000F A            EXIT     RL
      1758                            *
      1759                            *   E N D L I N E
      1760                            *
      1761   02 004A9                 ENDLINE  RES      0
      1762   02 004A9    32F0002C 03           LW,RL    CONTIN%ERROR      ARE THERE CONTINUATION ERRORS
      1763   02 004AA    693004B0              BNEZ     ENDLINE2          BRANCH IF YES
      1764   02 004AB    6AF00425              BAL,RL   CHAR
      1765   02 004AC    21700040 A            CI,CRG   ' '
      1766   02 004AD    683004B2              BE       ENDLINE1
      1767   02 004AE    21700005 A            CI,CRG   TAB
      1768   02 004AF    683004B2              BE       ENDLINE1
      1769   02 004B0                 ENDLINE2    RES   0
      1770   02 004B0    2260000A A            LI,N     SYNERR
      1771   02 004B1    6AF00639              BAL,RL   WDOUT             OUTPUT THE SYNTAX ERROR
      1772   02 004B2                 ENDLINE1 RES      0
      1773   02 004B2    22600000 A            LI,N     ENDLN
      1774   02 004B3    6AF00639              BAL,RL   WDOUT
      1775   02 004B4    680002C8              B        EXITSYN
      1776                            *
      1777                            *   E X C H S L O C
      1778                            *        EXCHANGE SOURCE LEVEL LOCAL TABLE TABLE WITH SYMBOL TABLE
      1779                            *
      1780   02 004B5                 EXCHSLOC RES      0
      1781   02 004B5    6AF004B7              BAL,RL   EXCHS1
      1782   02 004B6    680002B3              B        TRUE
      1783   02 004B7                 EXCHS1   RES      0
      1784   02 004B7    32100047 03           LW,XT    SLOC
      1785                            *  COMPUTE NUMBER OF ENTRIES IN SOURCE LEVEL LOCAL TABLE
      1786   02 004B8    3AE00003 03           LCW,CT   LOCX              USE SLOC-LOCX IF ON SOURCE LEVEL
      1787   02 004B9    33000007 03           MTW,0    PROCLV
      1788   02 004BA    683004BC              BEZ      %+2
      1789   02 004BB    3AE00006 03           LCW,CT   PLOC              USE SLOC-PLOC IF WITHIN A PROC
      1790   02 004BC    30E00047 03           AW,CT    SLOC              ADD BASE ADDRESS OF SOURCE TABLE
      1791   02 004BD    25E0007F A            SLS,CT   -1
      1792   02 004BE    6800060E              B        SWAPLOC           SWAP LOCAL TABLES AND RETURN
      1793                            *
      1794                            *    I N T E G E R
      1795                            *        CONVERT THE DIGITS OF A DECIMAL INTEGER.  AFTER THE FIRST
      1796                            *        NON-DECIMAL CHARACTER IS FOUND, EXIT TO NUMOUT TO OUTPUT
      1797                            *        THE CONVERTED NUMBER AND BACK-UP THE INPUT POINTER.
      1798                            *
      1799   02 004BF                 INTEGER  RES      0
      1800   02 004BF    6AF00425              BAL,RL   CHAR              FIRST CHARACTER MUST BE
      1801   02 004C0    729E009A              LB,RT2   CONVTBL,CRG         DECIMAL, OR EXIT TO FALSE
      1802   02 004C1    21900020 A            CI,RT2   DEC
      1803   02 004C2    684002AC              BAZ      FALSE
      1804   02 004C3    4B900AF2              AND,RT2  L(X'F')
      1805   02 004C4    22800000 A            LI,RT1   0
      1806   02 004C5    35800052 03           STW,RT1  OVFLAG            RESET OVERFLOW FLAG
      1807   02 004C6    6AF00425     INTGR1   BAL,RL   CHAR              GET NEXT CHARACTER
      1808   02 004C7    727E009A              LB,CRG   CONVTBL,CRG       IF NOT DECIMAL
      1809   02 004C8    21700020 A            CI,CRG   DEC                 EXIT TO NUMOUT TO OUTPUT THE
      1810   02 004C9    684004F5              BAZ      NUMOUT              CONVERTED NUMBER
      1811   02 004CA    4B700AF2              AND,CRG  L(X'F')           CLEAN DIGIT
      1812   02 004CB    25800501 A            SAD,RT1  1                 MULTIPLY ACCUMULATED INTEGER
      1813   02 004CC    1580000A A            STD,RT1  RT3                 BY 10 AND ADD CURRENT DIGIT
      1814   02 004CD    684004CF              BNOV     %+2
      1815   02 004CE    33100052 03           MTW,1    OVFLAG
      1816   02 004CF    25800502 A            SAD,RT1  2
      1817   02 004D0    684004D2              BNOV     %+2
      1818   02 004D1    33100052 03           MTW,1    OVFLAG
      1819   02 004D2    1080000A A            AD,RT1   RT3
      1820   02 004D3    684004D5              BNOV     %+2
      1821   02 004D4    33100052 03           MTW,1    OVFLAG
      1822   02 004D5    30900007 A            AW,RT2   CRG
      1823   02 004D6    68800425              BNC      CHAR
      1824   02 004D7    20800001 A            AI,RT1   1
      1825   02 004D8    68400425              BNOV     CHAR
      1826   02 004D9    33100052 03           MTW,1    OVFLAG
      1827   02 004DA    68000425              B        CHAR
      1828                            *
      1829                            *   M I N U S % O N E
      1830                            *        OUTPUT AN ENCODED MINUS ONE
      1831                            *
      1832   02 004DB                 MINUS%ONE   RES   0
      1833   02 004DB    20200001 A            AI,IN    1                 ADJUST FOR SUBTRACT AT RESETCHT
      1834   02 004DC    228FFFFF A            LI,RT1   -1
      1835   02 004DD    229FFFFF A            LI,RT2   -1
      1836   02 004DE    680004F5              B        NUMOUT
1
      1838                            *
      1839                            *    H E X I N T
      1840                            *        READ AND CONVERT THE CHARACTERS OF A HEXADECIMAL INTEGER
      1841                            *        SAME GROUND RULES AS OCTINT
      1842                            *
      1843   02 004DF                 HEXC     RES      0
      1844   02 004DF    22E00080 A            LI,CT    HEX               INDICATOR BIT FOR HEX
      1845   02 004E0    22100004 A            LI,XT    4                 SHIFT AMOUNT FOR HEX
      1846   02 004E1    32800AF3              LW,RT1   =X'10000000'      TRUNCATION TEST MASK
      1847   02 004E2                 HEXC1    RES      0
      1848   02 004E2    3580003F 03           STW,RT1  M0                SAVE TRUNCATION TEST MASK
      1849   02 004E3    22800000 A            LI,RT1   0                 CLEAR CONVERTED NUMBER
      1850   02 004E4    22900000 A            LI,RT2   0
      1851   02 004E5    35800052 03           STW,RT1  OVFLAG            CLEAR TRUNCATION FLAG
      1852   02 004E6    6AF00425              BAL,RL   CHAR              FIRST CHARACTER
      1853   02 004E7    727E009A              LB,CRG   CONVTBL,CRG
      1854   02 004E8    3170000E A            CW,CRG   CT                MUST BE HEX (OR OCTAL)
      1855   02 004E9    694004EF              BANZ     HEXC3             IT IS
      1856   02 004EA    680002AC              B        FALSE
      1857   02 004EB                 HEXC2    RES      0
      1858   02 004EB    3180003F 03           CW,RT1   M0                TEST FOR TRUNCATION
      1859   02 004EC    691004EE              BL       %+2               NO
      1860   02 004ED    33100052 03           MTW,+1   OVFLAG            SET TRUNCATION FLAG
      1861   02 004EE    25820500 A            SAD,RT1  0,XT              SHIFT LEFT 3 OR 4
      1862   02 004EF                 HEXC3    RES      0
      1863   02 004EF    4B700AF2              AND,CRG  L(X'F')
      1864   02 004F0    49900007 A            OR,RT2   CRG                 AND INSERT IT IN CONSTANT
      1865   02 004F1    6AF00425              BAL,RL   CHAR              NEXT CHARACTER
      1866   02 004F2    727E009A              LB,CRG   CONVTBL,CRG
      1867   02 004F3    3170000E A            CW,CRG   CT
      1868   02 004F4    694004EB              BANZ     HEXC2             BRANCH IF HEX (OR OCTAL)
      1869                            * FINISHED WITH CONVERSION. NOW OUTPUT THE CONSTANT
      1870   02 004F5                 NUMOUT   RES      0
      1871   02 004F5    21800000 A            CI,RT1   0                 IS HIGH ORDER 32 BITS ZERO
      1872   02 004F6    68300501              BEZ      HEXC6             YES
      1873   02 004F7    2260E004 A            LI,N     LARGEINT+4
      1874   02 004F8    6AF00639              BAL,RL   WDOUT             TYPE 7 CONTROL WORD
      1875   02 004F9    52600008 A   NUMOUT1  LH,N     RT1
      1876   02 004FA    6AF00639              BAL,RL   WDOUT             HIGH ORDER 16 BITS,M.S. WORD
      1877   02 004FB    32600008 A            LW,N     RT1
      1878   02 004FC                 HEXC5    RES      0
      1879   02 004FC    6AF00639              BAL,RL   WDOUT             LOW 16 BITS, M.S. WORD
      1880   02 004FD                 NUMOUT2  RES      0
      1881   02 004FD    52600009 A            LH,N     RT2
      1882   02 004FE    6AF00639     HEXC8    BAL,RL   WDOUT             HIGH 16 BITS, L.S. WORD
      1883   02 004FF    32600009 A            LW,N     RT2
      1884   02 00500    6800050B              B        HEXC10
      1885   02 00501                 HEXC6    RES      0
      1886   02 00501    52600009 A            LH,N     RT2               TEST HIGH 16 BITS OF L.S. WORD
      1887   02 00502    68300505              BEZ      HEXC7
      1888   02 00503    2260E002 A            LI,N     LARGEINT+2
      1889   02 00504    680004FC              B        HEXC5
      1890   02 00505                 HEXC7    RES      0
      1891   02 00505    21901FFF A            CI,RT2   8191              WILL CONSTANT FIT IN 13 BITS
      1892   02 00506    68200509              BLE      HEXC9             YES. OUTPUT AS A TYPE 6 CONSTANT
      1893   02 00507    2260E001 A            LI,N     LARGEINT+1
      1894   02 00508    680004FE              B        HEXC8
      1895   02 00509                 HEXC9    RES      0
      1896   02 00509    2260C000 A            LI,N     SMALLINT
      1897   02 0050A    30600009 A            AW,N     RT2
      1898   02 0050B                 HEXC10   RES      0
      1899   02 0050B    6AF00639              BAL,RL   WDOUT
      1900   02 0050C                 HEXC11   RES      0
      1901   02 0050C    32600052 03           LW,N     OVFLAG            IS TRUNCATION FLAG SET
      1902   02 0050D    68300691              BEZ      RESETCHT          NO, IT'S NOT
      1903   02 0050E    22600009 A            LI,N     TRUNERR
      1904   02 0050F    6AF00639              BAL,RL   WDOUT
      1905   02 00510    68000691              B        RESETCHT
      1906                            *
      1907                            *   L C L D L T E
      1908                            *        DELETE THE CURRENT LOCAL TABLE. DON'T DELETE IF CURRENT
      1909                            *          COMMAND AND LAST COMMAND ARE LOCAL DIRECTIVES
      1910                            *
      1911   02 00511                 LCLDLTE  RES      0
      1912   02 00511    22100000 A            LI,XT    0
      1913   02 00512    35100030 03           STW,XT   CURLOCNT          CLEAR CURRENT LOCAL COUNT
      1914   02 00513    32100001 03           LW,XT    LASTCMND
      1915   02 00514    3110002F 03           CW,XT    CURRCMND
      1916   02 00515    683002B3              BE       TRUE
      1917   02 00516    6AF00518              BAL,RL   LCLDL1
      1918   02 00517    680002B3              B        TRUE
      1919   02 00518                 LCLDL1   RES      0
      1920                            *  DELETE THE SOURCE LEVEL LOCAL TABLE IF NOT WITHIN A PROC;
      1921                            *    OTHERWISE DELETE THE PROC LEVEL LOCAL TABLE
      1922   02 00518    32100047 03           LW,XT    SLOC
      1923   02 00519    32800007 03           LW,RT1   PROCLV
      1924   02 0051A    6830051C              BEZ      %+2
      1925   02 0051B    32100006 03           LW,XT    PLOC
      1926   02 0051C    32E00001 A            LW,CT    XT                COMPUTE NUMBER OF LOCALS
      1927   02 0051D    38E00003 03           SW,CT    LOCX                IN THE LOCAL TABLE
      1928   02 0051E    25E0007F A            SLS,CT   -1
      1929   02 0051F    35100003 03           STW,XT   LOCX              RESET LOCATION FOR NEXT LOCAL
      1930   02 00520    22800000 A            LI,RT1   0
      1931   02 00521    35800044 03           STW,RT1  NXTLOC            CLEAR NEXT LOCAL NUMBER
      1932   02 00522    6800060E              B        SWAPLOC           SWAP LOCAL TABLES AND RETURN
      1933                            *
      1934                            *   L O C A L S Y M
      1935                            *        ENTER A SYMBOL IN THE CURRENT LOCAL SYMBOL TABLE
      1936                            *
      1937   02 00523                 LOCALSYM RES      0
      1938   02 00523    32F00003 03           LW,RL    LOCX              IS THERE ENOUGN ROOM
      1939   02 00524    31F0003E 03           CW,RL    LVLBASE             FOR ANOTHER LOCAL SYMBOL
      1940   02 00525    68200547              BLE      LVLMOVE           NO
      1941   02 00526    EAF00045 03           CALL     *SEARCHV
      1942   02 00527    EAF0003D 03           CALL     *INSERTV
      1943   02 00528    21602000 A            CI,N     8192              IGNORE THIS SYMBOL IF IT'S
      1944   02 00529    694002B3              BANZ     TRUE
      1945   02 0052A    207FFFF8 N            AI,M1    -HED
      1946   02 0052B    32FE0008 03           LW,RL    PTRWD,M1
      1947   02 0052C    32AE0009 03           LW,RT3   SNWD,M1
      1948   02 0052D    32100003 03           LW,XT    LOCX
      1949   02 0052E    35F20000 A            STW,RL   PTROFFSET,XT      MOVE FLAGS TO LOCAL FLAGS
      1950   02 0052F    32800044 03           LW,RT1   NXTLOC
      1951   02 00530    218000FF A            CI,RT1   255               TOO MANY LOCAL SYMBOLS
      1952   02 00531    6920055E              BG       OPENSYM1          YES
      1953   02 00532    20802000 A            AI,RT1   8192
      1954   02 00533    32900AF4              LW,RT2   L(GLFLD)
      1955   02 00534    31F00AEC              CW,RL    L(PTRFLD)         TEST PTR BIT TO FIND WHERE SN IS
      1956   02 00535    69400538              BANZ     LOCSYM1
      1957   02 00536    25A00070 A            SLS,RT3  -16
      1958   02 00537    25800110 A            SLD,RT1  16
      1959   02 00538                 LOCSYM1  RES      0
      1960   02 00538    478E0009 03           STS,RT1  GLWD,M1           STORE LOCAL SYMBOL NUMBER
      1961   02 00539    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      1962   02 0053A    32900AF5              LW,RT2   =CF1FLD+CLOFLD
      1963   02 0053B    22800000 A            LI,RT1   0                 SET SYMBOL TABLE FLAGS
      1964   02 0053C    478E0008 03           STS,RT1  PTRWD,M1            TO LOCAL
      1965   02 0053D    33000048 03           MTW,0    SPILLFLG
      1966         001F0000                    IF,NZ                      DOIF IN SYMT SPILL MODE
             02 0053E    68300541
      1967   02 0053F    32700040 03           LW,M1    M1SAVE            GET VIRTUAL OFFSET, RATHER THAN REAL
      1968   02 00540    207FFFF8 N            AI,M1    -HED
      1969         00F10000                    FI
      1970   02 00541    5570000A A            STH,M1   RT3
      1971   02 00542    35A20001 A            STW,RT3  GLOFFSET,XT       STORE SN & GL FIELDS IN LOCAL TABLE
      1972   02 00543    33100044 03           MTW,1    NXTLOC            BUMP NUMBER OF LOCALS
      1973   02 00544    33100030 03           MTW,1    CURLOCNT          ADD 1 TO CURRENT LOCAL COUNT
      1974   02 00545    33E00003 03           MTW,-2   LOCX              ADVANCE LOCAL TABLE ADDRESS
      1975   02 00546    680002B3              B        TRUE
      1976   02 00547                 LVLMOVE  RES      0
      1977   02 00547    32100005 A            LW,XT    LVL
      1978   02 00548    32F20000 A   LVLMOVE2 LW,RL    0,XT              MOVE A WORD
      1979   02 00549    35F3FFEC A            STW,RL   -20,XT              IN LEVEL TABLE
      1980   02 0054A    20100001 A            AI,XT    1
      1981   02 0054B    3110003E 03           CW,XT    LVLBASE           FINISHED
      1982   02 0054C    68200548              BLE      LVLMOVE2          NO
      1983   02 0054D    205FFFEC A            AI,LVL   -20               YES, RESET LVL
      1984   02 0054E    201FFFEB A            AI,XT    -21
      1985   02 0054F    3510003E 03           STW,XT   LVLBASE           RESET LEVEL BASE
      1986   02 00550    31500027 03           CW,LVL   BUFPTR
      1987   02 00551    682008CE              BLE      OVERFLOW
      1988   02 00552    68000523              B        LOCALSYM
      1989                            *
      1990                            *    W R I T E L O C A L C T
      1991                            *
      1992   02 00553                 WRITELOCALCT   RES  0
      1993   02 00553    2260C000 A            LI,N     SMALLINT
      1994   02 00554    30600030 03           AW,N     CURLOCNT          ADD LOCAL COUNT
      1995   02 00555    6800055F              B        OPENSYM4
      1996                            *
      1997                            *   O C T I N T
      1998                            *        READ AND CONVERT THE CHARACTERS OF AN OCTAL INTEGER.
      1999                            *          AFTER THE FIRST NON-OCTAL CHARACTER IS FOUND, THE ROUTINE
      2000                            *          BRANCHES TO NUMOUT TO OUTPUT THE CONVERTED NUMBER
      2001                            *          AND BACK-UP THE INPUT POINTER.
      2002                            *
      2003   02 00556                 OCTC     RES      0
      2004   02 00556    22E00040 A            LI,CT    OCT               INDICATOR BIT FOR OCTAL
      2005   02 00557    22100003 A            LI,XT    3                 SHIFT AMOUNT FOR OCTAL
      2006   02 00558    32800AF6              LW,RT1   =X'20000000'      TRUNCATION TEST MASK
      2007   02 00559    680004E2              B        HEXC1
      2008                            *
      2009                            *   O P E N S Y M
      2010                            *        'OPEN' THE NEXT SYMBOL OF AN OPEN DIRECTIVE
      2011                            *
      2012   02 0055A                 OPENSYM  RES      0
      2013   02 0055A    EAF00045 03           CALL     *SEARCHV
      2014   02 0055B    68000632              B        OPENSYM3          NOT FOUND.  INSERT AND LEAVE
      2015   02 0055C    21602000 A            CI,N     8192
      2016   02 0055D    68400561              BAZ      OPENSYM2
      2017   02 0055E                 OPENSYM1 RES      0
      2018   02 0055E    2260000A A            LI,N     SYNERR
      2019   02 0055F                 OPENSYM4 RES      0
      2020   02 0055F    6AF00639              BAL,RL   WDOUT
      2021   02 00560    680002B3              B        TRUE
      2022   02 00561                 OPENSYM2 RES      0
      2023   02 00561    F2100007 A            LB,XT    *M1
      2024         001F0000                    IF,NZ
             02 00562    68300564
      2025   02 00563    EAF0002D 03           CALL     *CREATE1STV
      2026         00F10000                    FI
      2027   02 00564    EAF00041 03           CALL     *NEWENTRYV
      2028   02 00565    68000633              B        SYMOUT
      2029                            *    S T S T S Y M B
      2030                            *
      2031   02 00566                 STSTSYMB RES      0
      2032   02 00566    22100000 A            LI,XT    0
      2033   02 00567    35100052 03           STW,XT   OVFLAG            CLEAR TRUNCATION FLAG
      2034   02 00568    35100046 03           STW,XT   SIGFLAG           TEMP
      2035   02 00569    22B0C000 A            LI,RT4   SMALLINT          INIT TEXT CONTROL WORD
      2036   02 0056A    72100008 03           LB,XT    HED               CALCULATE BYTE COUNT OF
      2037   02 0056B    25100002 A            SLS,XT   2                   SYS NAME TO NEAREST WD
      2038   02 0056C    35100006 A            STW,XT   LL
      2039   02 0056D    35100009 A            STW,XT   RT2
      2040   02 0056E    201FFFFF A            AI,XT    -1
      2041                            *        PUT SYSTEM NAME IN TEXTC FORMAT
      2042   02 0056F    7282000A 03  SYSTEM15 LB,RT1   SYM1,XT           MOVE A BYTE
      2043   02 00570    758C000A 03           STB,RT1  SYM1,LL
      2044   02 00571    21800040 A            CI,RT1   ' '               COUNT NUMBER OF
      2045   02 00572    69300574              BNE      %+2                 CHAR IN SYS N NAME
      2046   02 00573    209FFFFF A            AI,RT2   -1
      2047   02 00574    201FFFFF A            AI,XT    -1
      2048   02 00575    6460056F              BDR,LL   SYSTEM15
      2049   02 00576    7590000A 03           STB,RT2  SYM1              STORE CHAR COUNT
      2050   02 00577    21900007 A            CI,RT2   7                 DON'T COMPARE IF THERE'S MORE
      2051   02 00578    6920058B              BG       SYSTEM50            THAN 7 CHARACTERS
      2052                            *
      2053   02 00579    3280000A 03           LW,RT1   SYM1              1ST WORD OF SYSTEM NAME
      2054   02 0057A    32900AF7              LW,RT2   L(X'FFFFFF')
      2055   02 0057B    45800AF8              CS,RT1   L(' SIG')         IS IT 'SIG'
      2056   02 0057C    6930058B              BNE      SYSTEM50          NO
      2057   02 0057D                 SYSTEM20 RES      0
      2058   02 0057D    3280000B 03           LW,RT1   SYM1+1            GET 2ND WORD
      2059   02 0057E    22100014 A            LI,XT    SIGTABEND-(SIGTAB+1)     # OF SUBSETS
      2060   02 0057F                 SYSTEM25 RES      0
      2061   02 0057F    318205B3              CW,RT1   SIGTAB,XT         CHECK WHICH SIG
      2062   02 00580    68300583              BE       SYSTEM40
      2063   02 00581    6410057F              BDR,XT   SYSTEM25
      2064   02 00582    6800058B              B        SYSTEM50
      2065   02 00583                 SYSTEM40 RES      0
      2066   02 00583    32A005B4              LW,RT3   7FDPWORD
      2067   02 00584    35A0000B 03           STW,RT3  SYM1+1            FORCE SIG7FDP
      2068   02 00585    22A00003 A            LI,RT3   3
      2069   02 00586    75A00046 03           STB,RT3  SIGFLAG           SET 'SIG' FLAG ON
      2070   02 00587    75A0000A 03           STB,RT3  SYM1
      2071   02 00588    728205C8              LB,RT1   SYSCODE,XT        GET S:IVAL VALUE
      2072   02 00589    30B00008 A            AW,RT4   RT1               PUT VALUE IN TEXT WD
      2073   02 0058A    35800000 X            STW,RT1  VAL%S:IVAL
      2074   02 0058B                 SYSTEM50 RES      0
      2075   02 0058B    33000000 X            MTW,0    ND%FLAG           WAS STD DEF FILE READ
      2076   02 0058C    693005A2              BNEZ     SYSTEM75          NO, DONT LOOK FOR SYS
      2077   02 0058D    B2100004 03           LW,XT    *SDFCONNCDR       GET COUNT OF # OF ITEMS
      2078   02 0058E    4B100AF4              AND,XT   L(X'FFFF')        CLEAN IT AND CHECK FOR 0
      2079   02 0058F    683005A2              BEZ      SYSTEM75          YES, ZERO
      2080   02 00590    35100005 03           STW,XT   #SYSITEM          SAVE COUNT
      2081   02 00591    22100004 A            LI,XT    4
      2082   02 00592    35100051 03           STW,XT   XTSAVE
      2083   02 00593    32100051 03  SYSTEM52 LW,XT    XTSAVE            GET INDEX TO NEXT SYS NAME
      2084   02 00594    F2620004 03           LB,LL    *SDFCONNCDR,XT
      2085   02 00595    66600051 03           AWM,LL   XTSAVE            SET INDEX TO NEXT
      2086   02 00596    33100051 03           MTW,1    XTSAVE              SYS NAME
      2087   02 00597    32100051 03           LW,XT    XTSAVE            POINT TO LAST CHAR+1 OF NAME
      2088   02 00598    7160000A 03           CB,LL    SYM1              ARE NAMES SAME LENGTH
      2089   02 00599    693005A0              BNE      SYSTEM60          NO
      2090   02 0059A    201FFFFF A   SYSTEM55 AI,XT    -1
      2091   02 0059B    728C000A 03           LB,RT1   SYM1,LL           ARE NAMES
      2092   02 0059C    F1820004 03           CB,RT1   *SDFCONNCDR,XT      THE SAME
      2093   02 0059D    693005A0              BNE      SYSTEM60          NO
      2094   02 0059E    6460059A              BDR,LL   SYSTEM55
      2095   02 0059F    680005AF              B        SYSTEM85
      2096   02 005A0    33F00005 03  SYSTEM60 MTW,-1   #SYSITEM          FINISHED LOOKING FOR SYS NAMES
      2097   02 005A1    69200593              BGZ      SYSTEM52          NO
      2098                            *        SET UP BYTE POINTER TO SYSTEM NAME
      2099   02 005A2                 SYSTEM75 RES      0
      2100   02 005A2    33000046 03           MTW,0    SIGFLAG           'SIG' TYPE SYS
      2101   02 005A3    683005A6              BEZ      SYSTEM77          NO
      2102   02 005A4    22800007 A            LI,RT1   7                 YES, SET LENGTH
      2103   02 005A5    7580000A 03           STB,RT1  SYM1                TO 7
      2104   02 005A6                 SYSTEM77 RES      0
      2105   02 005A6    22800029 03           LI,RT1   BA(SYM1)+1
      2106   02 005A7    35800000 X            STW,RT1  IM@NAME
      2107   02 005A8    7280000A 03           LB,RT1   SYM1              GET COUNT
      2108   02 005A9    75800000 X            STB,RT1  IM@NAME
      2109   02 005AA    6AD00000 X            BAL,LINK IM@COPY           OPEN SYSTEM FILE & BUMP SYS LEVEL
      2110   02 005AB    20B00400 A            AI,RT4   X'400'
      2111   02 005AC    33000000 X            MTW,0    IM@SYS            WAS SYSTEM FOUND
      2112   02 005AD    683005AF              BEZ      SYSTEM85          NO, LEAVE TYPE = 1
      2113   02 005AE    20B00400 A            AI,RT4   X'400'            YES, CONVERT TYPE TO 2
      2114   02 005AF                 SYSTEM85 RES      0
      2115   02 005AF    3260000B A            LW,N     RT4
      2116   02 005B0    6AF00639              BAL,RL   WDOUT             WRITE SYSTEM FLAG WORD
      2117   02 005B1    20200002 A            AI,IN    2
      2118   02 005B2    7210000A 03           LB,XT    SYM1
      2119   02 005B3    680002D9              B        ALF3              GO WRITE SYSTEM NAME
      2120                            *
      2121         02 005B3           SIGTAB   EQU      %-1
      2122   02 005B4    F7C6C4D7 A   7FDPWORD TEXT     '7FDP'
      2123   02 005B5    F7C6C440 A            TEXT     '7FD'
      2124   02 005B6    F7C6D740 A            TEXT     '7FP'
      2125   02 005B7    F7C4D740 A            TEXT     '7DP'
      2126   02 005B8    F7C44040 A            TEXT     '7D'
      2127   02 005B9    F7C64040 A            TEXT     '7F'
      2128   02 005BA    F7D74040 A            TEXT     '7P'
      2129   02 005BB    F5C6D740 A            TEXT     '5FP'
      2130   02 005BC    F5D74040 A            TEXT     '5P'
      2131   02 005BD    F5C64040 A            TEXT     '5F'
      2132   02 005BE    F7404040 A            TEXT     '7'
      2133   02 005BF    F5404040 A            TEXT     '5'
      2134   02 005C0    F6C6D740 A            TEXT     '6FP'
      2135   02 005C1    F6C64040 A            TEXT     '6F'
      2136   02 005C2    F6D74040 A            TEXT     '6P'
      2137   02 005C3    F6404040 A            TEXT     '6'
      2138   02 005C4    F8D74040 A            TEXT     '8P'
      2139   02 005C5    F8404040 A            TEXT     '8'
      2140   02 005C6    F9D74040 A            TEXT     '9P'
      2141   02 005C7    F9404040 A            TEXT     '9'
      2142   02 005C8                 SIGTABEND  RES    0
      2143   02 005C8                 SYSCODE  RES      0
      2144   02 005C8    00       A            DATA,1   0,15,14,13,11,10,12,9,5,1,4,8,0
             02 005C8 1  0F       A
             02 005C8 2  0E       A
             02 005C8 3  0D       A
             02 005C9    0B       A
             02 005C9 1  0A       A
             02 005C9 2  0C       A
             02 005C9 3  09       A
             02 005CA    05       A
             02 005CA 1  01       A
             02 005CA 2  04       A
             02 005CA 3  08       A
             02 005CB    00       A
      2145   02 005CB 1  0F       A            DATA,1   15,14,11,10
             02 005CB 2  0E       A
             02 005CB 3  0B       A
             02 005CC    0A       A
      2146   02 005CC 1  1D       A            DATA,1   29,28             SIG8 HAS NO DECIMAL INSTS.
             02 005CC 2  1C       A
      2147   02 005CC 3  1F       A            DATA,1   31,30
             02 005CD    1E       A
      2148                                     BOUND    4
      2149                            *
      2150                            *   P K D E C
      2151                            *        READ, PACK, AND OUTPUT THE CHARACTERS OF A PACKED DECIMAL CONSTANT
      2152                            *
      2153   02 005CE                 PKDEC    RES      0
      2154   02 005CE    22900000 A            LI,RT2   0                 CLEAR THE CONVERTED CONSTANT
      2155   02 005CF    35900052 03           STW,RT2  OVFLAG            CLEAR TRUNCATION FLAG
      2156   02 005D0    221FFFFC A            LI,XT    -4
      2157   02 005D1    3592000E 03           STW,RT2  SYM1+4,XT
      2158   02 005D2    651005D1              BIR,XT   %-1
      2159   02 005D3    6AF00425              BAL,RL   CHAR              GET THE FIRST CHARACTER
      2160   02 005D4    2210000C A            LI,XT    X'C'              SIGN IS PLUS UNLESS CONSTANT
      2161   02 005D5    21700060 A            CI,CRG   '-'                 IS PRECEDED BY '-'
      2162   02 005D6    693005D9              BNE      PKDEC1
      2163   02 005D7    2210000D A            LI,XT    X'D'              SET SIGN MINUS
      2164   02 005D8    680005DB              B        PKDEC2
      2165   02 005D9                 PKDEC1   RES      0
      2166   02 005D9    2170004E A            CI,CRG   '+'
      2167   02 005DA    693005DC              BNE      PKDEC3
      2168   02 005DB                 PKDEC2   RES      0
      2169   02 005DB    6AF00425              BAL,RL   CHAR              GET FIRST NUMERIC DIGIT
      2170   02 005DC                 PKDEC3   RES      0
      2171   02 005DC    72EE009A              LB,CT    CONVTBL,CRG       THIS CHARACTER MUST BE NUMERIC
      2172   02 005DD    21E00020 A            CI,CT    DEC
      2173   02 005DE    694005E4              BANZ     PKDEC4
      2174   02 005DF    680002AC              B        FALSE
      2175   02 005E0                 PKDEC5   RES      0
      2176   02 005E0    6AF00425              BAL,RL   CHAR              GET NEXT CHARACTER
      2177   02 005E1    72EE009A              LB,CT    CONVTBL,CRG       TEST FOR DECIMAL
      2178   02 005E2    21E00020 A            CI,CT    DEC
      2179   02 005E3    684005F5              BAZ      PKDEC7            NO. END OF CONSTANT
      2180                            *
      2181                            * SHIFT THE PARTIALLY CONVERTED CONSTANT LEFT 1 DIGIT AND CHECK
      2182                            *   FOR TRUNCATION
      2183                            *
      2184   02 005E4                 PKDEC4   RES      0
      2185   02 005E4    1280000A 03           LD,RT1   SYM1
      2186   02 005E5    31800AF3              CW,RT1   =X'10000000'      TEST FOR TRUNCATION
      2187   02 005E6    691005E8              BL       %+2               NO
      2188   02 005E7    33100052 03           MTW,+1   OVFLAG            SET TRUNCATION FLAG
      2189   02 005E8    25800504 A            SAD,RT1  4
      2190   02 005E9    3580000A 03           STW,RT1  SYM1
      2191   02 005EA    3280000B 03           LW,RT1   SYM1+1
      2192   02 005EB    3290000C 03           LW,RT2   SYM1+2
      2193   02 005EC    25800104 A            SLD,RT1  4
      2194   02 005ED    3580000B 03           STW,RT1  SYM1+1
      2195   02 005EE    1280000C 03           LD,RT1   SYM1+2
      2196   02 005EF    25800104 A            SLD,RT1  4
      2197   02 005F0    4BE00AF2              AND,CT   L(X'F')
      2198   02 005F1    25E00004 A            SLS,CT   4
      2199   02 005F2    4990000E A            OR,RT2   CT
      2200   02 005F3    1580000C 03           STD,RT1  SYM1+2
      2201   02 005F4    680005E0              B        PKDEC5
      2202                            * NUMBER IS CONVERTED. NOW INSERT THE SIGN
      2203   02 005F5                 PKDEC7   RES      0
      2204   02 005F5    49900001 A            OR,RT2   XT                INSERT THE SIGN
      2205   02 005F6    3590000D 03           STW,RT2  SYM1+3
      2206   02 005F7    221FFFF8 A            LI,XT    -8
      2207   02 005F8    2260E100 A            LI,N     LARGEINT+CT1
      2208   02 005F9                 PKDEC8   RES      0
      2209   02 005F9    52E2000E 03           LH,CT    SYM1+4,XT
      2210   02 005FA    693005FC              BNEZ     PKDEC9
      2211   02 005FB    651005F9              BIR,XT   PKDEC8
      2212   02 005FC                 PKDEC9   RES      0
      2213   02 005FC    22700008 A            LI,CRG   8
      2214   02 005FD    30700001 A            AW,CRG   XT
      2215   02 005FE    3A100001 A            LCW,XT   XT
      2216   02 005FF    680002E4              B        WRICONST
      2217                            *
      2218                            *   S E T P R O C L V
      2219                            *        SPECIAL PROCESSING FOR THE 'PROC' DIRECTIVE
      2220                            *
      2221   02 00600                 SETPROCLV  RES    0
      2222   02 00600    33000007 03           MTW,0    PROCLV            IGNORE IF ALREADY
      2223   02 00601    693002B3              BNEZ     TRUE                WITHIN A PROC
      2224   02 00602    33100007 03           MTW,1    PROCLV            NON-ZERO TO 'WITHIN PROC' FLAG
      2225   02 00603    32100003 03           LW,XT    LOCX              STORE ORIGIN OF PROC LEVEL
      2226   02 00604    35100006 03           STW,XT   PLOC                LOCAL TABLE
      2227   02 00605    22100000 A            LI,XT    0
      2228   02 00606    35100044 03           STW,XT   NXTLOC            CLEAR NUMBER OF CURRENT LOCALS
      2229   02 00607    680002B3              B        TRUE
      2230                            *
      2231                            *   S K I P N B
      2232                            *        SKIP NON-BLANK CHARACTERS
      2233                            *
      2234   02 00608                 SKIPNB   RES      0
      2235   02 00608    6AF00425              BAL,RL   CHAR
      2236   02 00609    21700040 A            CI,CRG   ' '
      2237   02 0060A    68300691              BE       RESETCHT
      2238   02 0060B    21700005 A            CI,CRG   TAB
      2239   02 0060C    69300608              BNE      SKIPNB
      2240   02 0060D    68000691              B        RESETCHT
      2241                            *
      2242                            *   S W A P L O C
      2243                            *        EXCHANGE SYMBOL NUMBERS BETWEEN THE LOCAL SYMBOL TABLE
      2244                            *          AND THE MAIN SYMBOL TABLE.
      2245                            *        CALLED FROM PROC, PEND, END, COM, AND LOCAL DIRECTIVES
      2246                            *
      2247                            *         INPUT:  XT CONTAINS ORIGIN ADDRESS OF LOCAL TABLE
      2248                            *                 CT CONTAINS NUMBER OF ENTRIES IN THE LOCAL TABLE
      2249                            *
      2250                                     LOCAL    %10                                          /27466/*D-NCD
      2251                            *                                                              /27466/*D-NCD
      2252   02 0060E                 SWAPLOC  RES      0
      2253   02 0060E    35F00049 03           STW,RL   SRCHXIT           SAVE RETURN                /27466/*D-NCD
      2254   02 0060F                 %10      RES      0                                            /27466/*D-NCD
      2255   02 0060F    21E00000 A            CI,CT    0
      2256   02 00610    E8200049 03           BLEZ     *SRCHXIT          BRIF DONE                  /27466/*D-NCD
      2257                            *                                                              /27466/*D-NCD
      2258   02 00611    32820001 A            LW,RT1   SNOFFSET,XT
      2259   02 00612    52600008 A            LH,N     RT1               SYMBOL TABLE POINTER TO REG N
      2260   02 00613    4B600AF4              AND,N    =GLFLD            TRIM TO DROP SIGN EXTENSION
      2261   02 00614    33000048 03           MTW,0    SPILLFLG          IN RAD-SPILL MODE?         /27466/*D-NCD
      2262         001F0000                    IF,NZ                      DOIF WE ARE                /27466/*D-NCD
             02 00615    6830061D
      2263   02 00616    32700006 A            LW,M1    N                                            /27466/*D-NCD
      2264   02 00617    20700008 03           AI,M1    HED               GET VIRTUAL ADDRESS        /27466/*D-NCD
      2265   02 00618    6AF00A22              CALL     MAP%ADDR          MAKE SURE IT'S IN          /27466/*D-NCD
      2266   02 00619    207FFFF8 N            AI,M1    -HED              GET REAL (TO US) OFFSET    /27466/*D-NCD
      2267   02 0061A    35700006 A            STW,M1   N                                            /27466/*D-NCD
      2268   02 0061B    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG        /27466/*D-NCD
      2269   02 0061C    32820001 A            LW,RT1   SNOFFSET,XT       RESTORE CLOBBERED REGISTER /27466/*D-NCD
      2270         00F10000                    FI                                                    /27466/*D-NCD
      2271   02 0061D    2290FFFF A            LI,RT2   GLFLD
      2272   02 0061E    32AC0009 03           LW,RT3   SNWD,N
      2273   02 0061F    22B0FFFF A            LI,RT4   GLFLD
      2274   02 00620    32720000 A            LW,CRG   PTROFFSET,XT
      2275   02 00621    31700AF9              CW,CRG   L(X'01000000')    IF MAIN SYMBOL TABLE ENTRY
      2276   02 00622    68100625              BGE      SWPL2               SWAP WITH SN FIELD
      2277   02 00623    31700AEC              CW,CRG   =PTRFLD
      2278   02 00624    69400627              BANZ     SWPL1
      2279   02 00625                 SWPL2    RES      0
      2280   02 00625    25A00070 A            SLS,RT3  -16
      2281   02 00626    25800110 A            SLD,RT1  16
      2282   02 00627                 SWPL1    RES      0
      2283   02 00627    478C0009 03           STS,RT1  GLWD,N
      2284   02 00628    47A20001 A            STS,RT3  GLOFFSET,XT
      2285   02 00629    328C0008 03           LW,RT1   PTRWD,N
      2286   02 0062A    32900AF0              LW,RT2   =PTRFLD+CF1FLD+CLOFLD
      2287   02 0062B    47820000 A            STS,RT1  PTROFFSET,XT
      2288   02 0062C    32800007 A            LW,RT1   CRG
      2289   02 0062D    478C0008 03           STS,RT1  PTRWD,N
      2290   02 0062E    201FFFFE A            AI,XT    -2
      2291   02 0062F    20EFFFFF A            AI,CT    -1
      2292   02 00630    6800060F              B        %10                                          /27466/*D-NCD
      2293                            *
      2294                            *   W R I S Y M B O L
      2295                            *        SEARCH-INSERT THE LAST INPUT SYMBOL, AND OUTPUT IT.
      2296                            *
      2297   02 00631                 WRISYMBOL  RES    0
      2298   02 00631    EAF00045 03           CALL     *SEARCHV
      2299   02 00632                 OPENSYM3 RES      0
      2300   02 00632    EAF0003D 03           CALL     *INSERTV
      2301   02 00633                 SYMOUT   RES      0
      2302   02 00633    20604000 A            AI,N     SYMTYPE           SYMBOL CONTROL TYPE
      2303   02 00634    6AF00639              BAL,RL   WDOUT
      2304   02 00635    680002B3              B        TRUE
      2305                            *
      2306                            *    W R I T E
      2307                            *        WRITE THE NEXT SYNTAX ELEMENT IN THE OUTPUT STRING
      2308                            *          AND SKIP THAT ELEMENT
      2309                            *
      2310   02 00636                 WRITE    RES      0
      2311   02 00636    20400001 A            AI,SYN   1                 ADVANCE SYNTAX POINTER
      2312   02 00637    526801A3              LH,N     SYNTAX,SYN        GET THE SYNTAX ELEMENT
      2313   02 00638    22F002B3              LI,RL    TRUE              SET EXIT AND FALL THROUGH TO WDOUT
      2314                            *
      2315                            *    W D O U T
      2316                            *        WRITE AN ELEMENT IN THE OUTPUT STRING
      2317                            *
      2318   02 00639                 WDOUT    RES      0
      2319   02 00639    35F0004E 03           STW,RL   WDOUTRTN          SAVE RETURN ADDRESS
      2320   02 0063A    213FFFFF N            CI,OUT   OUTSIZE-1         IS OUTPUT BUFFER FULL
      2321   02 0063B    6810063F              BGE      WDOUT1            YES,
      2322   02 0063C    55660000 X            STH,N    OUTBUF,OUT        NO, PUT ENCODED ITEM
      2323   02 0063D    20300001 A            AI,OUT   1                   IN ENCODED TEXT BUFFER
      2324   02 0063E    E800004E 03           B        *WDOUTRTN         EXIT
      2325   02 0063F                 WDOUT1   RES      0
      2326   02 0063F    35100051 03           STW,XT   XTSAVE
      2327   02 00640    22100001 A            LI,XT    1
      2328   02 00641    32300053 03           LW,OUT   OUTSAVE
      2329         001F0000                    IF,EZ                      DOIF FULL BUFFER           /27493/*D-NCD
             02 00642    69300645
      2330   02 00643    22000015 A            ABORT    ABORT21           (STATEMENT TOO LONG)       /27493/*D-NCD
             02 00644    68000000 X
      2331         00F10000                    FI                                                    /27493/*D-NCD
      2332   02 00645    52B60000 X            LH,RT4   OUTBUF,OUT        SAVE 1ST WORD OF LINE
      2333   02 00646    3300002B 03           MTW,0    CNCTRL
      2334         001F0000                    IF,NZ                      IN CN CONTROLS
             02 00647    6830064A
      2335   02 00648    6AF0098E              CALL     IO%X3
      2336         000E0000                    ELS                        IN PROGRAM
             02 00649    6800064B
      2337   02 0064A    6AF00989              BAL,RL   IO%X1             WRITE OUTBUF
      2338         00F10000                    FI
      2339   02 0064B    55B00000 X            STH,RT4  OUTBUF            MOVE 1ST WORD OF LINE
      2340   02 0064C    20300001 A            AI,OUT   1
      2341   02 0064D                 WDOUT3   RES      0
      2342   02 0064D    52A60000 X            LH,RT3   OUTBUF,OUT        MOVE AN ENCODED ITEM
      2343   02 0064E    55A20000 X            STH,RT3  OUTBUF,XT           ITEM
      2344   02 0064F    20300001 A            AI,OUT   1
      2345   02 00650    20100001 A            AI,XT    1
      2346   02 00651    213FFFFF N            CI,OUT   OUTSIZE-1         FINISHED
      2347   02 00652    6910064D              BL       WDOUT3            NO,
      2348   02 00653    55620000 X            STH,N    OUTBUF,XT         YES, MOVE LAST WORD
      2349   02 00654    20100001 A            AI,XT    1
      2350   02 00655    35100003 A            STW,XT   OUT               SET OUT TO NEW VALUE
      2351   02 00656    3A800053 03           LCW,RT1  OUTSAVE           SAVE OUT OFFSET
      2352   02 00657    66800042 03           AWM,RT1  NEXTLINE#         BUMP ADDRESS FOR NEXT LINE NUMBER
      2353   02 00658    22100000 A            LI,XT    0
      2354   02 00659    35100053 03           STW,XT   OUTSAVE           RESET OUTSAVE
      2355   02 0065A    32100005 A            LW,XT    LVL
      2356   02 0065B    20100003 A            AI,XT    3
      2357   02 0065C    66820001 A   WDOUT7   AWM,RT1  LVLTBL+1,XT       MODIFY OUT ENTRIES
      2358   02 0065D    20100003 A            AI,XT    3
      2359   02 0065E    3110003E 03           CW,XT    LVLBASE           FINISHED
      2360   02 0065F    6910065C              BL       WDOUT7            NO
      2361   02 00660    32100051 03  WDOUT9   LW,XT    XTSAVE
      2362   02 00661    E800004E 03           B        *WDOUTRTN         YES, EXIT
      2363                            *
      2364                            *    A T T R I B C K
      2365                            *
      2366   02 00662                 ATTRIBCK RES      0
      2367   02 00662    2170004D A            CI,CRG   '('               LAST CHAR = '('
      2368   02 00663    69300631              BNE      WRISYMBOL
      2369                            *
      2370   02 00664    20200001 A            AI,IN    1
      2371   02 00665    EAF00045 03           CALL     *SEARCHV          NO
      2372   02 00666    EAF0003D 03           CALL     *INSERTV
      2373   02 00667    20608000 A            AI,N     SBSYM             SUBSCRIPTED SYMBOL
      2374   02 00668    6AF00639              BAL,RL   WDOUT
      2375   02 00669    226001A6 A            LI,N     SUBSYMB-SYNTAX    GO TO SUBSYMB
      2376   02 0066A    6800029A              B        NEXTLEVEL           EQUATION
      2377                            *
      2378                            *    S Y M B O L
      2379                            *
      2380   02 0066B                 SYMBOL   RES      0
      2381   02 0066B    6AF00425              BAL,RL   CHAR
      2382   02 0066C    22900030 A            LI,RT2   ALPH+DEC          TEST FIRST CHARACTER
      2383   02 0066D    719E009A              CB,RT2   CONVTBL,CRG         FOR ALPHANUMERIC
      2384   02 0066E    684002AC              BAZ      FALSE
      2385   02 0066F    221FFFC0 A            LI,XT    -64               INDEX TO SYM1 CHARACTERS
      2386   02 00670    32600AE3              LW,N     ='    '           SET FIRST 8 CHARACTERS
      2387   02 00671    3560000A 03           STW,N    SYM1                TO BLANKS
      2388   02 00672    3560000B 03           STW,N    SYM1+1
      2389   02 00673    22800010 A            LI,RT1   ALPH              ALPHA FLAG
      2390   02 00674    68000676              B        SYMB2
      2391   02 00675                 SYMB1    RES      0
      2392   02 00675    6AF00425              BAL,RL   CHAR
      2393   02 00676                 SYMB2    RES      0
      2394   02 00676    718E009A              CB,RT1   CONVTBL,CRG       BRANCH IF ALPHABETIC
      2395   02 00677    6940067D              BANZ     SYMB3
      2396   02 00678    719E009A              CB,RT2   CONVTBL,CRG       BRANCH IF NON-ALPHANUMERIC
      2397   02 00679    684002AC              BAZ      FALSE
      2398   02 0067A    7572001A 03           STB,CRG  SYM1+16,XT        STORE LEADING NUMERIC DIGIT
      2399   02 0067B    65100675              BIR,XT   SYMB1
      2400   02 0067C    680002AC              B        FALSE             64 NUMERIC DIGITS
      2401   02 0067D                 SYMB3    RES      0
      2402   02 0067D    7572001A 03           STB,CRG  SYM1+16,XT        STORE ALPHANUMERIC CHARACTER
      2403   02 0067E    65100681              BIR,XT   SYMB4
      2404   02 0067F    3310002C 03           MTW,+1   CONTIN%ERROR      SET CONTINUATION ERROR FLAG
      2405   02 00680    221FFFFF A            LI,XT    -1
      2406   02 00681                 SYMB4    RES      0
      2407   02 00681    6AF00425              BAL,RL   CHAR
      2408   02 00682    719E009A              CB,RT2   CONVTBL,CRG       BRANCH IF ALPHANUMERIC
      2409   02 00683    6940067D              BANZ     SYMB3
      2410   02 00684    2170007D A            CI,CRG   ''''              RETURN TO FALSE
      2411   02 00685    683002AC              BE       FALSE               IF TERMINATOR IS A PRIME
      2412   02 00686    20100040 A            AI,XT    64
      2413   02 00687    21100008 A            CI,XT    8
      2414   02 00688    6820068E              BLE      SYMB6
      2415                            * STORE BLANKS IN TRAILING CHARACTER POSITIONS OF THE CURRENT WORD
      2416   02 00689                 SYMB5    RES      0
      2417   02 00689    21100003 A            CI,XT    3
      2418   02 0068A    6840068F              BAZ      SYMB7
      2419   02 0068B    7562000A 03           STB,N    SYM1,XT
      2420   02 0068C    20100001 A            AI,XT    1
      2421   02 0068D    68000689              B        SYMB5
      2422   02 0068E                 SYMB6    RES      0
      2423   02 0068E    20100003 A            AI,XT    3
      2424   02 0068F                 SYMB7    RES      0
      2425   02 0068F    2510007E A            SLS,XT   -2                STORE WORD COUNT
      2426   02 00690    75100008 03           STB,XT   HED
      2427   02 00691                 RESETCHT RES      0
      2428   02 00691    202FFFFF A            AI,IN    -1
      2429   02 00692    680002B3              B        TRUE
1
      2431                            *
      2432                            ******** SUBROUTINES FXC AND FSC AND FLC ******
      2433                            *
      2434                            *        INPUTS   R1-POSITION OF 1ST BYTE IN CONSTANT (BLDFBA)
      2435                            *                 BYTP-POSITION OF LAST BYTE (') MINUS 1 (BLDLBA)
      2436                            *
      2437                            *        OUTPUTS  CON3,CON4 -SINGLE OR DOUBLE WORD CONSTANT.
      2438                            *
      2439                            *        FUNCTION CONVERT THE CONSTANT AT IBYT FROM ITS EBCDIC VALUE
      2440                            *                 INTO A LONG FLOATING POINT NUMBER.  IF FXC IS USED,
      2441                            *                 FIX THIS FLOATING POINT NUMBER ACCORDING TO THE
      2442                            *                 BINARY SCALE FACTOR.  IF FSC IS USED, DISCARD THE
      2443                            *                 LOW-ORDER 32 BITS OF THE NUMBER.
      2444                            *
      2445                            *
      2446                            *********THE FLGS (R12) ARE SET AS FOLLOWS:
      2447                            *
      2448                            *            FLGS               MEANING
      2449                            *          ********   **********************************
      2450                            *          000000XX    SIGN OF INT0,INT1 (+=EVEN,-=ODD)
      2451                            *          00001000    FXC ENTRY USED
      2452                            *          00002000    FLC ENTRY USED
      2453                            *          20000000    B FOUND
      2454                            *          40000000    E FOUND
      2455                            *          80000000    DECIMAL POINT FOUND
      2456                            *
      2457                            *
      2458                                     LOCAL    R1,R2,R3,R13,R14,R15,LNKR,WAY,CC,WRK0,WRK1,DEXP,CNT,;
      2459                                              PNTR,INT0,INT1,FLGS,BIAS,LINK,CNTR,TMP0,TMP1,ESGN,;
      2460                                              HEXP,TMP2,FXFL,FLFL,EFLG,BFLG,DPFL
      2461                            *
      2462         00000001           R1       EQU      1
      2463         00000002           R2       EQU      2
      2464         00000003           R3       EQU      3
      2465         00000008           LNKR     EQU      8
      2466         0000000D           R13      EQU      13
      2467         0000000E           R14      EQU      14
      2468         0000000E           WAY      EQU      14
      2469         0000000F           R15      EQU      15
      2470                            *
      2471         00000002           CC       EQU      2
      2472         00000004           WRK0     EQU      4
      2473         00000005           WRK1     EQU      5
      2474         00000006           DEXP     EQU      6
      2475         00000007           CNT      EQU      7
      2476         00000009           PNTR     EQU      9
      2477         0000000A           INT0     EQU      10
      2478         0000000B           INT1     EQU      11
      2479         0000000C           FLGS     EQU      12
      2480         0000000D           BIAS     EQU      13
      2481         0000000F           LINK     EQU      15
      2482                            *
      2483         00000001           CNTR     EQU      1
      2484         00000002           TMP0     EQU      2
      2485         00000003           TMP1     EQU      3
      2486         00000007           ESGN     EQU      7
      2487         00000009           HEXP     EQU      9
      2488         0000000E           TMP2     EQU      14
      2489                            *
      2490         00001000           FXFL     EQU      X'1000'           FX ENTRY
      2491         00002000           FLFL     EQU      X'2000'
      2492         00000004           EFLG     EQU      4                 E FOUND
      2493         00000002           BFLG     EQU      2                 B FOUND
      2494         00000008           DPFL     EQU      8                 DEC PT FOUND
      2495                            *
      2496                            *
      2497                            *********PART 1 - ACCUMULATION OF EBCDIC DIGITS
      2498                            *
      2499                            *            THIS PART GENERATES:
      2500                            *              INT0,INT1-A HEXIDECIMAL INTEGER REPRESENTING THE CONSTANT
      2501                            *              DEXP-THE DECIMAL EXPONENT OF INT0,INT1 (SIGNED)
      2502                            *              BIAS-THE BINARY SCALE FACTOR OF AN FX CONSTANT (SIGNED)
      2503                            *              FLGS-THE SIGN OF INT0,INT1
      2504                            *
      2505                            *
      2506                            *
      2507   02 00693    22F01000 A   FXC      LI,R15   FXFL              SET FX ENTRY FLAG
      2508   02 00694    2260E302 A            LI,N     LARGEINT+CT3+2
      2509   02 00695    6800069B              B        FC1
      2510   02 00696    22F02000 A   FLC      LI,R15   FLFL              SET FL ENTRY FLAG
      2511   02 00697    2260E504 A            LI,N     LARGEINT+CT5+4
      2512   02 00698    6800069B              B        FC1
      2513   02 00699    22F00000 A   FSC      LI,R15   0                 SET FS ENTRY FLAG
      2514   02 0069A    2260E402 A            LI,N     LARGEINT+CT4+2
      2515   02 0069B    35F0000C A   FC1      STW,R15  FLGS              SET FLAGS PER ENTRY
      2516   02 0069C    02200060 A            LCI      6
      2517   02 0069D    2B20000A 03           STM,2    FFFSAVE
      2518   02 0069E    6AF0075E              BAL,R15  SIGN              GET SIGN OF CONSTANT
      2519   02 0069F    49C0000E A            OR,FLGS  WAY               SAVE SIGN IN FLGS
      2520   02 006A0    12600000              LD,DEXP  ZERO              SET DEXP=CNT=0
      2521   02 006A1    12A00000              LD,INT0  ZERO              SET INT0,INT1=0
      2522   02 006A2    35600052 03           STW,DEXP OVFLAG            CLEAR TRUNCATION FLAG
      2523   02 006A3    6AF006FF              BAL,LINK ACUM              ACCUMULATE DIGITS TO 1ST NON-DIGIT
      2524   02 006A4    70300002 A            LCF      CC                LOAD CC WITH NON-DIGIT CODE
      2525   02 006A5    688006A8              BCR,DPFL FC2               TEST IF NON-DIGIT IS A DEC PT
      2526   02 006A6    49C00002 A            OR,FLGS  CC                YES, SET DEC PT FLAG IN FLGS
      2527   02 006A7    6AF006FF              BAL,LINK ACUM              ACCUMULATE DIGITS TO NEXT NON-DIGIT
      2528   02 006A8    21700000 A   FC2      CI,CNT   0                 TEST IF >0 DIGITS ACCUMULATED
      2529   02 006A9    683006F7              BE       BLDCONE6          NO,ILLEGAL FORM
      2530   02 006AA    49C00002 A            OR,FLGS  CC                SET E FOUND OR B FOUND FLAG IN FLGS
      2531   02 006AB    70300002 A            LCF      CC                LOAD CC WITH NON-DIGIT CODE
      2532   02 006AC    684006AF              BCR,EFLG FC3               TEST IF NON-DIGIT IS AN E
      2533   02 006AD    6A80072A              BAL,LNKR GET2              YES, GET DIGITS AFTER E AND RETURN
      2534                            *                                    /WITH CC OF NEXT NON-DIGIT
      2535   02 006AE    30600005 A            AW,DEXP  WRK1              ADD EXPONENT TO DEXP
      2536   02 006AF    21C01000 A   FC3      CI,FLGS  FXFL              TEST IF FX ENTRY WAS USED
      2537   02 006B0    684006BB              BAZ      FC4               NO, ANY B IS ILLEGAL
      2538   02 006B1    70300002 A            LCF      CC                YES, LOAD CC WITH NON-DIGIT CODE
      2539   02 006B2    682006F7              BCR,BFLG BLDCONE6          TEST IF NON-DIGIT IS A B (IF NOT AN
      2540                            *                                    /ERROR SINCE FX CONSTS MUST HAVE B)
      2541   02 006B3    6A80072A              BAL,LNKR GET2              YES, GET DIGITS AFTER B AND RETURN
      2542                            *                                    /WITH CC OF NEXT NON-DIGIT
      2543   02 006B4    3550000D A            STW,WRK1 BIAS              SAVE BINARY SCALE FACTOR IN BIAS
      2544   02 006B5    7030000C A            LCF      FLGS              PUT PREVIOUSLY SET FLAGS IN CC
      2545   02 006B6    694006BB              BCS,EFLG FC4               TEST IF A PREVIOUS E WAS FOUND
      2546   02 006B7    70300002 A            LCF      CC                IF NOT, LOAD CC WITH NON-DIGIT CODE
      2547   02 006B8    684006BB              BCR,EFLG FC4               TEST IF NON-DIGIT IS AN E
      2548   02 006B9    6A80072A              BAL,LNKR GET2              YES, GET DIGITS AFTER E
      2549   02 006BA    30600005 A            AW,DEXP  WRK1              ADD EXPONENT TO DEXP
      2550   02 006BB                 FC4      RES      0
      2551                            *
      2552                            *
      2553                            *********PART 2 - BUILDING OF THE FLOATING POINT CONSTANT
      2554                            *
      2555                            *            THIS PART USES INT0,INT1, DEXP, BIAS, AND FLGS FROM
      2556                            *            PART 1 AND GENERATES:
      2557                            *              INT0,INT1-A DOUBLEWORD FLOATING POINT NUMBER FOR FSC AND
      2558                            *                        FLC OR AN INTEGER FOR FXC (IN INT0)
      2559                            *            THIS DOUBLEWORD IS RETURNED IN MAC1 AND MAC1+1.
      2560                            *
      2561                            *            FIXED POINT CALCULATIONS ARE CARRIED OUT BY MUL AND DIV.
      2562                            *            BOTH EXPECT ARG1 IN INT0,INT1 AND GET ARG2 FROM CTBL.
      2563                            *            THE INTERNAL FORMAT OF FLOATING POINT NUMBERS IS:
      2564                            *                     0.(60 BITS OF SIGNIFICANCE)000       (64 BITS)
      2565                            *            WHERE THE HEXIDECIMAL POINT IS AT BIT 0.  THE HEXIDECIMAL
      2566                            *            EXPONENT IS KEPT IN HEXP.
      2567                            *
      2568   02 006BB    1230000A A            LD,TMP1  INT0              TEST IF INTEGER IS ZERO
      2569   02 006BC    683006E7              BEZ      EXITS             YES, EXIT
      2570   02 006BD    72700006 A            LB,ESGN  DEXP              SET ESGN=0 IF DEXP>=0 OR
      2571   02 006BE    25700079 A            SLS,ESGN -7                 /SET ESGN=1 IF DEXP<0
      2572   02 006BF    3B600006 A            LAW,DEXP DEXP              MAKE DEXP POSITIVE
      2573   02 006C0    22900050 A            LI,HEXP  X'50'             SET HEX EXPONENT TO 16
      2574   02 006C1    25A00303 A            SCD,INT0 3                 NORMALIZE INTEGER TO INTERNAL F.P.
      2575   02 006C2    6AF00759              BAL,LINK NM1                /FORMAT, NAMELY 0.(63 BITS)
      2576   02 006C3    4BA00AFA              AND,INT0 L(X'7FFFFFFF')    SET SIGN-BIT TO ZERO (PLUS)
      2577                            *
      2578                            *            AT THIS POINT WE ARE READY TO PROCESS THE DEC EXPONENT, AS
      2579                            *            FOLLOWS:
      2580                            *             1) FOR DEXP>13, MULT/DIV BY 10**13 AND DECREMENT DEXP BY
      2581                            *                13 UNTIL DEXP<=13.
      2582                            *             2) FOR DEXP<=13, DO ONE MULT/DIV BY THIS POWER.
      2583                            *
      2584   02 006C4    206FFFF3 A            AI,DEXP  -13               DECR DEXP BY -13
      2585   02 006C5    691006CC              BLZ      MF2               TEST IF DEXP<13
      2586   02 006C6    32E00006 A            LW,TMP2  DEXP              NO, DEXP>=13; SO SAVE DEXP IN TMP2
      2587   02 006C7    2260000C A            LI,DEXP  12                 /AND SET DEXP=12
      2588   02 006C8    670E076B     MF1      EXU      BTBL,ESGN         DO A MUL/DIV BY 10**13
      2589   02 006C9    20EFFFF3 A            AI,TMP2  -13               DECR OLD DEXP BY 13
      2590   02 006CA    692006C8              BGZ      MF1               IF DEXP>13, REPEAT MUL/DIV BY 10**13
      2591   02 006CB    3260000E A            LW,DEXP  TMP2              IF DEXP<=13, RESET DEXP TO NEW VALUE
      2592   02 006CC    2060000C A   MF2      AI,DEXP  12                RECOVER DEXP-1
      2593   02 006CD    691006CF              BLZ      MF3               TEST IF DEXP=0 (IF YES, RESULT OK)
      2594   02 006CE    670E076B              EXU      BTBL,ESGN         NO,SO DO A MUL/DIV BY 10**(DEXP+1)
      2595   02 006CF                 MF3      RES      0
      2596   02 006CF    21C01000 A            CI,FLGS  FXFL
      2597   02 006D0    694006ED              BANZ     DOFX              TEST IF FXC ENTRY WAS USED
      2598   02 006D1    21C02000 A            CI,FLGS  FLFL              TEST IF FLC ENTRY WAS USED
      2599   02 006D2    694006DA              BANZ     MF4               YES, DON'T ROUND
      2600   02 006D3    20A00040 A            AI,INT0  X'40'             ROUND FS CONSTANTS TO 24 BITS
      2601   02 006D4    684006DA              BNOV     MF4               TEST IF OVER-FLOW ON ROUND
      2602   02 006D5    32A00AFA              LW,INT0  =X'7FFFFFFF'      CONSTANT FOR NO-ROUND CASE
      2603   02 006D6    2190007F A            CI,HEXP  X'7F'             CAN NUMBER BE ROUNDED
      2604   02 006D7    683006DA              BE       MF4               CAN'T ROUND
      2605   02 006D8    32A00AF3              LW,INT0  =X'10000000'
      2606   02 006D9    20900001 A            AI,HEXP  1                  /AND EXPONENT
      2607   02 006DA                 MF4      RES      0
      2608   02 006DA    2190007F A            CI,HEXP  X'7F'             TEST FOR
      2609   02 006DB    692006F7              BG       BLDCONE6          EXPONENT
      2610   02 006DC    21900000 A            CI,HEXP  0                 OVERFLOW
      2611   02 006DD    691006F7              BL       BLDCONE6          OR UNDERFLOW
      2612   02 006DE    25A00179 A            SLD,INT0 -7                CHANGE RESULT TO STANDARD F.P.
      2613   02 006DF    7590000A A            STB,HEXP INT0               /FORMAT, NAMELY 'CCMMMMMMMMMMMMMM'
      2614   02 006E0    21C00001 A            CI,FLGS  1
      2615   02 006E1    684006E7              BAZ      EXITS             TEST SIGN OF CONSTANT
      2616   02 006E2    21C02000 A            CI,FLGS  FLFL              COMPLEMENT SINGLE OR DOUBLE
      2617   02 006E3    684006E6              BAZ      MF5               SINGLE
      2618   02 006E4    1AA0000A A            LCD,INT0 INT0
      2619   02 006E5    680006E7              B        EXITS
      2620   02 006E6                 MF5      RES      0
      2621   02 006E6    3AA0000A A            LCW,INT0 INT0
      2622   02 006E7    21C02000 A   EXITS    CI,FLGS  FLFL
      2623   02 006E8    684006EB              BAZ      EXS1              TEST IF FLC ENTRY WAS USED
      2624   02 006E9    46A0000B A            XW,INT0  INT1              YES, SO FLIP INT0 AND INT1
      2625   02 006EA    35B00008 A            STW,INT1 RT1               UPPER TO RT1
      2626   02 006EB    35A00009 A   EXS1     STW,INT0 RT2               LOWER TO RT2
      2627   02 006EC    680006F9              B        BLDCONX1          EXIT
      2628   02 006ED    21C00001 A   DOFX     CI,FLGS  1
      2629   02 006EE    684006F0              BAZ      DF1               TEST SIGN OF RESULT
      2630   02 006EF    1AA0000A A            LCD,INT0 INT0              NEGATIVE, SO COMPLIMENT RESULT
      2631   02 006F0    209FFFC0 A   DF1      AI,HEXP  -X'40'            CALCULATE NUMBER OF POSITIONS
      2632   02 006F1    25900002 A            SLS,HEXP 2                  /TO SHIFT SO AS TO ALLIGN HEX POINT
      2633   02 006F2    3890000D A            SW,HEXP  BIAS               /ACCORDING TO BINARY SCALE FACTOR
      2634   02 006F3    4B900AFB              AND,HEXP L(X'FF')          PREPARE SHIFT INST.
      2635   02 006F4    20900500 A            AI,HEXP  X'500'
      2636   02 006F5    A5A00009 A            S,INT0   *HEXP             SHIFT (SAD)
      2637   02 006F6    684006E7              BNOV     EXITS             IF NO OVERFLOW-EXIT
      2638   02 006F7                 BLDCONE6 RES      0
      2639   02 006F7    33100052 03           MTW,+1   OVFLAG            SET TRUNCATION FLAG
      2640   02 006F8    12800000              LD,RT1   ZERO
      2641                            *
      2642                            *
      2643                            *
      2644                            *  NORMAL  EXIT ROUTINE
      2645                            *
      2646   02 006F9    02200060 A   BLDCONX1 LCI      6                 RESTORE REGISTERS.
      2647   02 006FA    2A20000A 03           LM,2     FFFSAVE
      2648   02 006FB    6AF00639              BAL,RL   WDOUT             WRITE CONSTANT TYPE.
      2649   02 006FC    21C02000 A            CI,FLGS  FLFL              FL CONSTANT
      2650   02 006FD    694004F9              BANZ     NUMOUT1           YES, GEN 4 HALF-WDS
      2651   02 006FE    680004FD              B        NUMOUT2           NO, GEN 2 HALF-WDS
      2652                            *
      2653                            *        SUBROUTINE TO ACCUMULATE DIGITS IN INT0,INT1
      2654                            *
      2655   02 006FF    35F0003F 03  ACUM     STW,LINK ACUMLNK           SAVE LINK
      2656   02 00700    6AF00720     ACUM1    BAL,LINK FFFGNC            GET NEXT CHAR.
      2657   02 00701    7226009A              LB,R2    CONVTBL,R3        GET CHAR CODE.
      2658   02 00702    21200020 A            CI,R2    DEC               DIGIT
      2659   02 00703    68400719              BAZ      ACUMX             NO
      2660   02 00704    4B300AF2              AND,R3   L(X'F')           YES,CLEAN IT
      2661   02 00705    20700001 A            AI,CNT   1                 KEEP COUNT OF NUMBER OF DIGITS
      2662   02 00706    15A00004 A            STD,INT0 WRK0              START MULTIPLYING CURRENT
      2663   02 00707    25400103 A            SLD,WRK0 3                  /INTEGER BY 10
      2664   02 00708    69400715              BOV      AOV2              IF OVERFLOW, JUST INCR DEXP
      2665   02 00709    25A00101 A            SLD,INT0 1                 DO 2ND STEP OF MULTIPLY
      2666   02 0070A    10A00004 A            AD,INT0  WRK0
      2667   02 0070B    69400713              BOV      AOV1              IF OVERFLOW, RECOVER AND INCR DEXP
      2668   02 0070C    22200000 A            LI,R2    0
      2669   02 0070D    10A00002 A            AD,INT0  R2                ADD ON NEW DIGIT
      2670   02 0070E    69400713              BOV      AOV1              IF OVERFLOW, RECOVER AND INCR DEXP
      2671   02 0070F    7030000C A            LCF      FLGS
      2672   02 00710    68800700              BCR,DPFL ACUM1             TEST IF DEC PT HAS BEEN ENCOUNTERED
      2673   02 00711    206FFFFF A            AI,DEXP  -1                YES, THEN DECR DEXP (I.E.,COUNT
      2674   02 00712    68000700              B        ACUM1             CONTINUE    /DIGITS AFTER DEC PT)
      2675   02 00713    2540017D A   AOV1     SLD,WRK0 -3                RECOVER PREVIOUS RESULT
      2676   02 00714    12A00004 A            LD,INT0  WRK0
      2677   02 00715    7020000C A   AOV2     LC       FLGS
      2678   02 00716    69800700              BCS,DPFL ACUM1             TEST IF DEC PT HAS BEEN ENCOUNTERED
      2679   02 00717    20600001 A            AI,DEXP  1                 YES, THEN INCR DEXP ONLY (SINCE AT
      2680   02 00718    68000700              B        ACUM1             CONTINUE /MAX SIGNIFICANCE ALREADY)
      2681   02 00719    22200004 A   ACUMX    LI,R2    4
      2682   02 0071A    7134000A     ACUMX1   CB,R3    ACUMSPCH,R2       FIND B,E,.
      2683   02 0071B    6930071E              BNE      ACUMX2
      2684   02 0071C    2520001D A            SLS,R2   29                FOUND,SHIFT TO CC. 2=B,4=E,8=.
      2685   02 0071D    E800003F 03           B        *ACUMLNK          EXIT
      2686   02 0071E    6420071A     ACUMX2   BDR,R2   ACUMX1            NOT FOUND, CC=0
      2687   02 0071F    E800003F 03           B        *ACUMLNK          EXIT
      2688                            *
      2689                            *        THIS SUBROUTINE SAVES REGISTERS, BRANCHES TO 'CHAR' TO
      2690                            *          GET THE NEXT CHARACTER, RESTORES REGISTERS, AND EXITS
      2691                            *
      2692   02 00720                 FFFGNC   RES      0
      2693   02 00720    35F00025 03           STW,LINK FFFGNCLNK         SAVE LINK
      2694   02 00721    02200060 A            LCI      6
      2695   02 00722    2B200010 03           STM,2    FFFSAVE+6         SAVE CONVERT REGISTERS.
      2696   02 00723    2A20000A 03           LM,2     FFFSAVE           RESTORE ENCODE REGISTERS.
      2697   02 00724    6AF00425              BAL,RL   CHAR              GET NEXT CHAR.
      2698   02 00725    02200060 A            LCI      6
      2699   02 00726    2B20000A 03           STM,2    FFFSAVE           SAVE ENCODE REGISTERS.
      2700   02 00727    2A200010 03           LM,2     FFFSAVE+6         RESTORE CONVERT REGISTERS.
      2701   02 00728    3230000F 03           LW,R3    FFFSAVE+5         LOAD NEXT CHAR.
      2702   02 00729    E8000025 03           B        *FFFGNCLNK        EXIT
      2703                            *
      2704                            *        SUBROUTINE TO ACCUMULATE DIGITS AFTER A B OR E (THE RESULT
      2705                            *          IS A SIGNED INTEGER RETURNED IN WRK1)
      2706                            *
      2707   02 0072A    02200080 A   GET2     LCI      8                 SAVE 6-13
      2708   02 0072B    2B60001C 03           STM,DEXP GET2REGS
      2709   02 0072C    6AF0075E              BAL,R15  SIGN              GET SIGN OF EXPONENT (IN WAY)
      2710   02 0072D    35E0000D A            STW,WAY  R13               SAVE SIGN
      2711   02 0072E    12A00000              LD,INT0  ZERO              SET INT0,INT=0
      2712   02 0072F    22700000 A            LI,CNT   0                 SET CNT=0
      2713   02 00730    6AF006FF              BAL,LINK ACUM              ACCUMULATE DIGITS OF EXPONENT
      2714   02 00731    19700002              CLM,CNT  P1                TEST IF 0<CNT<3 (I.E.,IF EXP IS 1
      2715   02 00732    699006F7              BCS,9    BLDCONE6          IF NOT ERROR         /OR 2 DIGITS)
      2716   02 00733    35B00005 A            STW,INT1 WRK1              PUT RESULT IN WRK1
      2717   02 00734    21D00001 A            CI,R13   1
      2718   02 00735    68400737              BAZ      %+2               TEST SIGN OF EXP
      2719   02 00736    3A500005 A            LCW,WRK1 WRK1              NEGATIVE, SO COMPLIMENT RESULT
      2720   02 00737    02200080 A            LCI      8                 RESTORE
      2721   02 00738    2A60001C 03           LM,DEXP  GET2REGS          6-13
      2722   02 00739    E8000008 A            B        *LNKR             EXIT
      2723                            *
      2724                            *        MULTIPLY SUBROUTINE (USING INTERNAL FORMAT)
      2725                            *
      2726   02 0073A    3230000A A   MUL      LW,TMP1  INT0              SET UP 1ST MULTIPLY (UPPER 31 BITS)
      2727   02 0073B    372C076D              MW,TMP0  CTBL,DEXP         DO 1ST MULTIPLY (BY 10**(DEXP+1))
      2728   02 0073C    25B0007F A            SLS,INT1 -1                SET UP 2ND MULTIPLY (LOWER 31 BITS)
      2729   02 0073D    37AC076D              MW,INT0  CTBL,DEXP         DO 2ND MULTIPLY (BY 10**(DEXP+1))
      2730   02 0073E    25A00161 A            SLD,INT0 -31               SCALE RESULT
      2731   02 0073F    10A00002 A            AD,INT0  TMP0              ADD TOGETHER THE TWO PRODUCTS
      2732   02 00740    5A1C0781              LCH,CNTR STBL,DEXP         GET SHIFT COUNT TO CORRECTLY SCALE
      2733   02 00741    25A20101 A            SLD,INT0 1,CNTR            SCALE            /RESULTANT PRODUCT
      2734   02 00742    6AF00758              BAL,LINK NORM              NORMALIZE RESULT
      2735   02 00743    509C077A              AH,HEXP  ETBL,DEXP         ADD EXPONENT OF 10**(DEXP+1) TO HEXP
      2736   02 00744    20900001 A            AI,HEXP  1                  /AND THEN ADD ONE MORE
      2737   02 00745    E8000008 A            B        *LNKR             RETURN
      2738                            *
      2739                            *        DIVIDE SUBROUTINE (USING INTERNAL FORMAT)
      2740                            *
      2741   02 00746    25A0057E A   DIV      SAD,INT0 -2                SETUP 1ST DIVIDE
      2742   02 00747    36AC076D              DW,INT0  CTBL,DEXP         DO 1ST DIVIDE (BY 10**(DEXP+1))
      2743   02 00748    35B00003 A            STW,INT1 TMP1              SAVE RESULTANT QUOTIENT
      2744   02 00749    22B00000 A            LI,INT1  0                 SET UP 2ND DIVIDE,
      2745   02 0074A    25A0057F A            SAD,INT0 -1                 /NAMELY: REMAINDER/10**(DEXP+1)
      2746   02 0074B    36AC076D              DW,INT0  CTBL,DEXP         DO 2ND DIVIDE
      2747   02 0074C    32A00003 A            LW,INT0  TMP1              CONSTRUCT FINAL QUOTIENT
      2748   02 0074D    25B00001 A            SLS,INT1 1                  .
      2749   02 0074E    589C077A              SH,HEXP  ETBL,DEXP         SUBT EXPON OF 10**(DEXP+1) FROM HEXP
      2750   02 0074F    521C0781              LH,CNTR  STBL,DEXP         GET SHIFT COUNT TO CORRECTLY SCALE
      2751                            *                                    /THE RESULTANT QUOTIENT
      2752   02 00750    25320201 A            SCS,TMP1 1,CNTR            DO A TEST SCALING ON THE
      2753   02 00751    68400754              BNOV     DV1                /DUPLICATE QUOTIENT
      2754   02 00752    25A2017D A            SLD,INT0 -3,CNTR           IF OVERFLOW, SCALE THE ACTUAL
      2755                            *                                    /QUOTIENT BY A RIGHT SHIFT
      2756   02 00753    E8000008 A            B        *LNKR             RETURN
      2757   02 00754    25A20101 A   DV1      SLD,INT0 1,CNTR            IF NO OVERFLOW, SCALE THE ACTUAL
      2758                            *                                    /QUOTIENT BY A LEFT SHIFT
      2759   02 00755    6AF00758              BAL,LINK NORM              BE SURE THE RESULT IS NORMALIZED
      2760   02 00756    209FFFFF A            AI,HEXP  -1                DECREMENT HEX EXPONENT BY 1
      2761   02 00757    E8000008 A            B        *LNKR             RETURN
      2762                            *
      2763                            *        SUBROUTINE TO NORMALIZE TO INTERNAL F.P. FORMAT
      2764                            *
      2765   02 00758    25A00304 A   NORM     SCD,INT0 4                 ATTEMPT TO NORMALIZE
      2766   02 00759    6940075C     NM1      BOV      NM2               TEST IF NUMBER WAS ALREADY NORMAL-
      2767   02 0075A    209FFFFF A            AI,HEXP  -1                NO, SO DECREMENT HEX EXP     /IZED
      2768   02 0075B    68000758              B        NORM               /AND REPEAT NORMALIZATION PROCESS
      2769   02 0075C    25A0037C A   NM2      SCD,INT0 -4                NORMALIZED, SO RECOVER RESULT
      2770   02 0075D    E800000F A            B        *LINK              /AND EXIT
      2771                            *
      2772                            ******** SUBROUTINE SIGN ***********   * * EXAMPLE USAGE
      2773                            *                                      * *    BAL,R15   SIGN
      2774                            *        INPUTS   BYTP                 * *    CI,WAY    1
      2775                            *                                      * *    BL        NOSIGN
      2776                            *        OUTPUTS  BYTP                 * *    BCR,4     PLUS
      2777                            *                 WAY   0=NO SIGN      * *----ITS NEGATIVE----
      2778                            *                       ODD=NEGATIVE
      2779                            *                       EVEN=POSITIVE
      2780                            *
      2781                            *        CALL     BAL,R15    GETSIGN
      2782                            *
      2783                            *        FUNCTION COLLECT CONSECUTIVE SIGNS LEAVING RESULT IN WAY
      2784                            *
      2785   02 0075E    22E00000 A   SIGN     LI,WAY   0
      2786   02 0075F    35F00024 03           STW,R15  SIGNLNK           SAVE LINK
      2787   02 00760    6AF00720     SIGN1    BAL,LINK FFFGNC            GET NEXT CHAR.
      2788   02 00761    2130004E A            CI,R3    '+'               CHAR = '+'
      2789   02 00762    69300765              BNE      %+3               NO
      2790   02 00763    20E00002 A            AI,WAY   2                 YES, ADD 2
      2791   02 00764    68000760              B        SIGN1
      2792   02 00765    21300060 A            CI,R3    '-'               CHAR = '-'
      2793   02 00766    69300769              BNE      %+3               NO
      2794   02 00767    20E00001 A            AI,WAY   1                 YES, ADD 1
      2795   02 00768    68000760              B        SIGN1
      2796   02 00769    33F0000A 03           MTW,-1   FFFSAVE           BACKUP 1 CHAR.
      2797   02 0076A    E8000024 03           B        *SIGNLNK          EXIT
D
      2799                            *
      2800                            *        DATA AND TABLES
      2801                            *
      2802   02 0076B    6A80073A     BTBL     BAL,LNKR MUL               BRANCH TABLE
      2803   02 0076C    6A800746              BAL,LNKR DIV
      2804                            *
      2805   02 0076D    50000000 A   CTBL     DATA     X'50000000'       CONSTANT TABLE     10**1
      2806   02 0076E    64000000 A            DATA     X'64000000'                          10**2
      2807   02 0076F    7D000000 A            DATA     X'7D000000'                          10**3
      2808   02 00770    4E200000 A            DATA     X'4E200000'                          10**4
      2809   02 00771    61A80000 A            DATA     X'61A80000'                          10**5
      2810   02 00772    7A120000 A            DATA     X'7A120000'                          10**6
      2811   02 00773    4C4B4000 A            DATA     X'4C4B4000'                          10**7
      2812   02 00774    5F5E1000 A            DATA     X'5F5E1000'                          10**8
      2813   02 00775    77359400 A            DATA     X'77359400'                          10**9
      2814   02 00776    4A817C80 A            DATA     X'4A817C80'                          10**10
      2815   02 00777    5D21DBA0 A            DATA     X'5D21DBA0'                          10**11
      2816   02 00778    746A5288 A            DATA     X'746A5288'                          10**12
      2817   02 00779    48C27395 A            DATA     X'48C27395'                          10**13
      2818                            *
      2819                                     BOUND    4
      2820   02 0077A    0000     A   ETBL     DATA,2   0                 EXPONENT TABLE     10**1
      2821   02 0077A 2  0001     A            DATA,2   1                                    10**2
      2822   02 0077B    0002     A            DATA,2   2                                    10**3
      2823   02 0077B 2  0003     A            DATA,2   3                                    10**4
      2824   02 0077C    0004     A            DATA,2   4                                    10**5
      2825   02 0077C 2  0004     A            DATA,2   4                                    10**6
      2826   02 0077D    0005     A            DATA,2   5                                    10**7
      2827   02 0077D 2  0006     A            DATA,2   6                                    10**8
      2828   02 0077E    0007     A            DATA,2   7                                    10**9
      2829   02 0077E 2  0008     A            DATA,2   8                                    10**10
      2830   02 0077F    0009     A            DATA,2   9                                    10**11
      2831   02 0077F 2  0009     A            DATA,2   9                                    10**12
      2832   02 00780    000A     A            DATA,2   10                                   10**13
      2833                            *
      2834                                     BOUND    4
      2835   02 00781    0000     A   STBL     DATA,2   0                 SHIFT TABLE        10**1
      2836   02 00781 2  0001     A            DATA,2   1                                    10**2
      2837   02 00782    0002     A            DATA,2   2                                    10**3
      2838   02 00782 2  0002     A            DATA,2   2                                    10**4
      2839   02 00783    0003     A            DATA,2   3                                    10**5
      2840   02 00783 2  0000     A            DATA,2   0                                    10**6
      2841   02 00784    0000     A            DATA,2   0                                    10**7
      2842   02 00784 2  0001     A            DATA,2   1                                    10**8
      2843   02 00785    0002     A            DATA,2   2                                    10**9
      2844   02 00785 2  0002     A            DATA,2   2                                    10**10
      2845   02 00786    0003     A            DATA,2   3                                    10**11
      2846   02 00786 2  0000     A            DATA,2   0                                    10**12
      2847   02 00787    0000     A            DATA,2   0                                    10**13
      2848                                     BOUND    4
1
      2850                            *
      2851                            *    S E A R C H
      2852                            *
      2853                            *        SEARCH THE BALANCED TREE SYMBOL TABLE.  THE SEARCH ARGUMENT
      2854                            *          IS CONTAINED IN THE ITEM STARTING AT HED, IN THE SAME
      2855                            *          FORMAT AS EACH ITEM IN THE SYMBOL TABLE.
      2856                            *
      2857                            *          OUTPUT: FND CONTAINS THE ADDRESS (17 BITS, FULL ADDRESS)
      2858                            *                  OF THE FOUND SYMBOL TABLE ENTRY, IF IT IS FOUND.
      2859                            *                  N  CONTAINS THE SYMBOL NUMBER AND LOCAL BIT
      2860                            *                  M1 CONTAINS THE LOCATION OF THE LAST OPEN SYMBOL
      2861                            *                    TABLE ENTRY.
      2862                            *                 EXIT TO CALLING ROUTINE + 1 IF NOT FOUND,
      2863                            *                   OR TO CALLING ROUTINE + 2 IF FOUND.
      2864                            *
      2865   02 00788                 SEARCH   RES      0
      2866   02 00788    35F00049 03           STW,RL   SRCHXIT           SAVE EXIT
      2867   02 00789    22600008 03           LI,U     HED
      2868   02 0078A    3560003F 03           STW,U    M0
      2869   02 0078B    22A00000 A            LI,RT3   0
      2870   02 0078C    22B40000 A            LI,RT4   DIRFLD
      2871   02 0078D    32700008 03           LW,M1    LLWD              LL(HED) TO (M1)
      2872   02 0078E    32F0000A 03           LW,RT5   SYM1              KEEP SYM1 IN A REGISTER
      2873   02 0078F    229FFFFF A            LI,RT2   -1                KEEP A MASK IN A REGISTER
      2874   02 00790    680007EC              B        SRCH8
      2875                            *  IF BALANCE AT M1 NE 0, MOVE M0 TO U
      2876   02 00791                 SRCH1    RES      0
      2877   02 00791    20700008 03           AI,M1    HED
      2878   02 00792    35700034 03           STW,M1   FND
      2879   02 00793    321E0000 A            LW,XT    BOFFSET,M1
      2880   02 00794    21130000 A            CI,XT    BALFLD
      2881   02 00795    68400797              BAZ      SRCH2
      2882   02 00796    3260003F 03           LW,U     M0
      2883                            * COMPARE THE 1ST WORD OF THE SYMBOL
      2884   02 00797                 SRCH2    RES      0
      2885   02 00797    22100002 A            LI,XT    2
      2886   02 00798    B1F20034 03           CW,RT5   *FND,XT
      2887   02 00799    693007E8              BNE      SRCH3             BRANCH IF 1ST WORD DOESN'T COMPARE
      2888                            * CHOOSE THE SMALLER WORD COUNT TO TERMINATE THE COMPARE LOOP
      2889   02 0079A    72E00008 03           LB,CT    HED
      2890   02 0079B    F1E00034 03           CB,CT    *FND
      2891   02 0079C    6820079E              BLE      SRCH4
      2892   02 0079D    F2E00034 03           LB,CT    *FND
      2893   02 0079E                 SRCH4    RES      0
      2894   02 0079E    64E007A0              BDR,CT   SRCH5             BRANCH IF MORE THAN ONE WORD SYMBOL
      2895   02 0079F    680007A5              B        SRCH6
      2896   02 007A0                 SRCH5    RES      0
      2897   02 007A0    20100001 A            AI,XT    1
      2898   02 007A1    32820008 03           LW,RT1   HED,XT            COMPARE THE NEXT WORD
      2899   02 007A2    C5820034 03           CS,RT1   *FND,XT
      2900   02 007A3    693007E8              BNE      SRCH3             NOT THIS SYMBOL
      2901   02 007A4    64E007A0              BDR,CT   SRCH5
      2902                            * THE NAMES COMPARE, BUT THEIR SIZES MAY DIFFER
      2903   02 007A5                 SRCH6    RES      0
      2904   02 007A5    72E00008 03           LB,CT    HED
      2905   02 007A6    F1E00034 03           CB,CT    *FND
      2906   02 007A7    693007E8              BNE      SRCH3             NOT THE SAME LENGTH
      2907   02 007A8    33100049 03           MTW,1    SRCHXIT           CHANGE TO TAKE 'FOUND' EXIT
      2908   02 007A9    326E0001 A            LW,N     GLOFFSET,M1
      2909   02 007AA    25600070 A            SLS,N    -16
      2910   02 007AB    32EE0000 A            LW,CT    PTROFFSET,M1
      2911   02 007AC    32F00AED              LV,RL    DSSYMBIT          SAVE .DS CN BIT IN CASE WE NEED IT
      2912   02 007AD    4BF0000E A            AND,RL   CT
      2913   02 007AE    47F00032 03           STS,RL   DSLNCTRL
      2914   02 007AF    31E00AFC              CW,CT    =PTRFLD+CLOFLD    EXIT IF THIS FIELD IS OPEN AND
      2915   02 007B0    E8400049 03           BAZ      *SRCHXIT            NOT A POINTER
      2916   02 007B1    31E00AEA              CW,CT    =CLOFLD
      2917   02 007B2    694007C9              BANZ     SRCH12
      2918   02 007B3    32700006 A            LW,M1    N
      2919   02 007B4    22100000 A            LI,XT    0                 CLEAR 'FOUND LOCATION' FLAG
      2920   02 007B5    680007B8              B        SRCH11
      2921                            * FOLLOW THE POINTER TO THE LAST OPEN SYMBOL TABLE ENTRY
      2922   02 007B6                 SRCH9    RES      0
      2923   02 007B6    327E0001 A            LW,M1    SNOFFSET,M1
      2924   02 007B7    25700070 A            SLS,M1   -16
      2925   02 007B8                 SRCH11   RES      0
      2926   02 007B8    20700008 03           AI,M1    HED
      2927   02 007B9    32EE0000 A            LW,CT    PTROFFSET,M1
      2928   02 007BA    31E00AEA              CW,CT    =CLOFLD
      2929   02 007BB    694007BD              BANZ     SRCH10            THIS ENTRY IS CLOSED
      2930   02 007BC    32100007 A            LW,XT    M1                MOVE LAST OPEN ADDRESS TO M1
      2931   02 007BD                 SRCH10   RES      0
      2932   02 007BD    31E00AEC              CW,CT    =PTRFLD
      2933   02 007BE    694007B6              BANZ     SRCH9             NOT END OF POINTER CHAIN
      2934   02 007BF    21100000 A            CI,XT    0
      2935   02 007C0    683007CA              BEZ      SRCH13
      2936   02 007C1    32700001 A            LW,M1    XT
      2937   02 007C2    32EE0000 A            LW,CT    PTROFFSET,M1
      2938   02 007C3    326E0001 A            LW,N     GLOFFSET,M1       SAVE SYMBOL NUMBER OF LAST OPEN SYM
      2939                            *    SYMBOL NUMBER IS IN 'SN' FIELD IF PTR=0; OTHERWISE SYNBOL NUMBER
      2940                            *      IS IN THE 'GL' FIELD.
      2941   02 007C4    31E00AEC              CW,CT    L(PTRFLD)
      2942   02 007C5    694007C7              BANZ     %+2
      2943   02 007C6    25600070 A            SLS,N    -16
      2944   02 007C7    4B600AF4              AND,N    L(GLFLD)
      2945   02 007C8    E8000049 03           B        *SRCHXIT
      2946   02 007C9                 SRCH12   RES      0
      2947   02 007C9    6AF00495              BAL,RL   CREATE1ST
      2948   02 007CA                 SRCH13   RES      0
      2949   02 007CA    32F00049 03           LW,RL    SRCHXIT
      2950   02 007CB                 NEWENTRY RES      0
      2951   02 007CB    329E0000 A            LW,RT2   PTROFFSET,M1
      2952   02 007CC    31900AEC              CW,RT2   =PTRFLD
      2953   02 007CD    694007E4              BANZ     NEWEN1
      2954   02 007CE    32900AEC              LW,RT2   =PTRFLD
      2955   02 007CF    479E0000 A            STS,RT2  PTROFFSET,M1
      2956   02 007D0    32900000 X            LW,RT2   NEXTST
      2957   02 007D1    328E0001 A            LW,RT1   SNOFFSET,M1
      2958   02 007D2    25800070 A            SLS,RT1  -16
      2959   02 007D3    55900008 A            STH,RT2  RT1
      2960   02 007D4    358E0001 A            STW,RT1  SNOFFSET,M1
      2961   02 007D5    32700009 A            LW,M1    RT2
      2962   02 007D6    3170004B 03           CW,M1    SYMLMTM1
      2963         001F0000                    IF,EQ                      DOIF 2-WD ENTRY WOULD BRIDGE
             02 007D7    693007DA
      2964   02 007D8    20700001 A            AI,M1    1                   SPILL PAGE BOUNDARY.
      2965   02 007D9    33100000 X            MTW,+1   NEXTST
      2966         00F10000                    FI
      2967   02 007DA    33200000 X            MTW,2    NEXTST
      2968   02 007DB    20700008 03           AI,M1    HED
      2969   02 007DC    22600000 A            LI,N     0
      2970   02 007DD    356E0000 A            STW,N    PTROFFSET,M1
      2971   02 007DE    32600000 X            LW,N     NXSYMB
      2972   02 007DF    25600010 A            SLS,N    16
      2973   02 007E0    356E0001 A            STW,N    SNOFFSET,M1
      2974   02 007E1    33100000 X            MTW,1    NXSYMB
      2975   02 007E2    25600070 A            SLS,N    -16
      2976   02 007E3    E800000F A            EXIT     RL
      2977   02 007E4                 NEWEN1   RES      0
      2978   02 007E4    327E0001 A            LW,M1    SNOFFSET,M1
      2979   02 007E5    25700070 A            SLS,M1   -16
      2980   02 007E6    20700008 03           AI,M1    HED
      2981   02 007E7    680007CB              B        NEWENTRY
      2982                            * SYMBOLS NOT EQUAL. TAKE LESSER OR GREATER LINK
      2983   02 007E8                 SRCH3    RES      0
      2984   02 007E8    3570003F 03           STW,M1   M0
      2985   02 007E9    692007EF              BG       SRCH7
      2986   02 007EA    47AE0000 A            STS,RT3  DOFFSET,M1        CLEAR DIRECTION FIELD
      2987   02 007EB    327E0000 A            LW,M1    LLOFFSET,M1
      2988   02 007EC                 SRCH8    RES      0
      2989   02 007EC    4B700AF4              AND,M1   =LLFLD            SAVE LESSER- OR GREATER-LINK
      2990   02 007ED    69300791              BNEZ     SRCH1
      2991   02 007EE    E8000049 03           B        *SRCHXIT          EXIT. NOT FOUND
      2992   02 007EF                 SRCH7    RES      0
      2993   02 007EF    47BE0000 A            STS,RT4  DOFFSET,M1        SET DIRECTION FIELD TO 1
      2994   02 007F0    327E0001 A            LW,M1    GLOFFSET,M1
      2995   02 007F1    680007EC              B        SRCH8
      2996   02 007F2                 INSERT   RES      0
      2997   02 007F2    15400024 03           STD,SYN  NSRTR1            SAVE REGS. SYN AND LVL
      2998   02 007F3    206FFFF8 N            AI,U     -HED
      2999   02 007F4    2290FFFF A            LI,RT2   LLFLD             MASK FOR GL OR LL FIELD
      3000                            * MOVE (NEXTST) TO FWD(SYMT,M0)
      3001   02 007F5    32100000 X            LW,XT    NEXTST
      3002                            *
      3003                            *        IF THIS ENTRY WOULD CROSS INTO THE SPILL PAGE, MOVE IT
      3004                            *        UP TO START AT THE BEGINNING OF THE SPILL PAGE (ENTRIES MUST
      3005                            *        NOT BE SPLIT ACCROSS PAGE BOUNDARIES ONCE WE GO INTO
      3006                            *        SPILL MODE).
      3007                            *
      3008   02 007F6    3110004C 03           CW,XT    SYMLMTM18
      3009         001F0000                    IF,G
             02 007F7    68200825
      3010   02 007F8    72700008 03           LB,M1    WDCTWD            # WORDS IN NAME
      3011   02 007F9    30700001 A            AW,M1    XT
      3012   02 007FA    20700002 A            AI,M1    2                 PLUS THE 2 CONTROL WORDS
      3013   02 007FB    3110004A 03           CW,XT    SYMLMT
      3014         001F0100                    IF,L
             02 007FC    68100802
      3015   02 007FD    3170004A 03           CW,M1    SYMLMT
      3016         001F0200                    IF,G
             02 007FE    68200801
      3017   02 007FF    3210004A 03           LW,XT    SYMLMT
      3018   02 00800    35100000 X            STW,XT   NEXTST            START AT SPILL PAGE
      3019         00F10200                    FI
      3020         000E0100                    ELS
             02 00801    68000825
      3021   02 00802    20700008 03           AI,M1    HED               MAKE ADDRESS FROM OFFSET
      3022   02 00803    31700036 03           CW,M1    INBUFLMT
      3023         001F0200                    IF,GE
             02 00804    69100825
      3024                            *
      3025                            *        ENTER SYMBOL-TABLE SPILL MODE
      3026                            *
      3027   02 00805    33000000 X            MTW,0    PD%FLAG
      3028   02 00806    693008CE              BNEZ     OVERFLOW          CANNOT SPILL SYMT IN PD MODE
      3029                            *
      3030   02 00807    33100048 03           MTW,+1   SPILLFLG          SET SPILL-MODE INDICATOR
      3031                            *
      3032                            *        CHANGE BRANCH VECTORS
      3033                            *
      3034   02 00808    22100A04              LI,XT    CREATE1STS
      3035   02 00809    3510002D 03           STW,XT   CREATE1STV
      3036   02 0080A    22100AB5              LI,XT    INSERTS
      3037   02 0080B    3510003D 03           STW,XT   INSERTV
      3038   02 0080C    22100A87              LI,XT    NEWENTS
      3039   02 0080D    35100041 03           STW,XT   NEWENTRYV
      3040   02 0080E    22100A43              LI,XT    SEARCHS
      3041   02 0080F    35100045 03           STW,XT   SEARCHV
      3042                            *
      3043                            *        SET PARAMETERS FOR CALL TO INSERTS SUCH THAT CURRENT
      3044                            *        BUFFER WILL BE WRITTEN, AND THE NEXT ONE READ.
      3045                            *
      3046   02 00810    6AA00000 X            BAL,IORL OPENX5
      3047   02 00811    22100000 A            LI,XT    0
      3048   02 00812    35100037 03           STW,XT   INCOREB#          PAGE KEY CURRENTLY IN
      3049   02 00813    35100038 03           STW,XT   INCOREBMAX
      3050   02 00814    3280004D 03           LW,IOADD SYMTLMT           BUFFER
      3051   02 00815    3580003A 03           STW,IOADD   INCOREL        CURRENT LO ADDR IN CORE
      3052   02 00816    208001FF A            AI,IOADD 511
      3053   02 00817    3580003B 03           STW,IOADD   INCOREH        CURRENT HI ADDR IN CORE
      3054   02 00818    22900001 A            LI,IOSIZE   1              DUMMY BLOCK NUMBER
      3055   02 00819    3590003C 03           STW,IOSIZE   INCORESF      SET FLAG TO FORCE WRITE
      3056   02 0081A    6AA00000 X            BAL,IORL WRITEX5           JUST TO GET PROPER KEY
      3057   02 0081B    3210004A 03           LW,XT    SYMLMT
      3058   02 0081C    20100200 A            AI,XT    512
      3059   02 0081D    35100000 X            STW,XT   NEXTST            PLACE TO INSERT
      3060   02 0081E    3210003F 03           LW,XT    M0
      3061   02 0081F    22E40000 A            LV,CT    DIRFLD
      3062   02 00820    4BE20000 A            AND,CT   DOFFSET,XT
      3063         001F0300                    IF,NZ
             02 00821    68300823
      3064   02 00822    22E00001 A            LI,CT    1
      3065         00F10300                    FI
      3066   02 00823    35E00031 03           STW,CT   DIR
      3067   02 00824    68000AB5              B        INSERTS
      3068                            *
      3069         00F10200                    FI
      3070         00F10100                    FI
      3071         00F10000                    FI
      3072   02 00825    20100008 03           AI,XT    HED               SAVE ACTUAL ADDRESS OF ENTRY
      3073   02 00826    35100034 03           STW,XT   FND
      3074   02 00827    32100000 X            LW,XT    NEXTST
      3075   02 00828    3270003F 03           LW,M1    M0
      3076   02 00829    32EE0000 A            LW,CT    DOFFSET,M1
      3077   02 0082A    21E40000 A            CI,CT    DIRFLD
      3078   02 0082B    6840082D              BAZ      %+2
      3079   02 0082C    20700001 A            AI,M1    1
      3080   02 0082D    471E0000 A            STS,XT   LLOFFSET,M1
      3081                            * CLEAR LL(SYMT,NEXTST)  CLEAR FLAGS(SYMT,NEXTST)
      3082                            * MOVE WDCT(HED) TO WDCT(SYMT,NEXTST)
      3083   02 0082E    32700008 03           LW,M1    WDCTWD
      3084   02 0082F    4B700AFD              AND,M1   =X'FF000000'
      3085   02 00830    35720008 03           STW,M1   LLWD,XT
      3086                            *  MOVE (NXSYMB) TO SN(SYMT,NEXTST)  CLEAR GL(SYMT,NEXTST)
      3087   02 00831    32E00000 X            LW,CT    NXSYMB
      3088   02 00832    25E00010 A            SLS,CT   16
      3089   02 00833    35E20009 03           STW,CT   SNWD,XT
      3090                            * MOVE SYMBOL(SYMT) TO SYMBOL(SYMT,NEXTST)
      3091   02 00834    72800008 03           LB,RT1   WDCTWD            NUMBER OF WORDS CONTAINING NAME
      3092   02 00835                 INS1     RES      0
      3093   02 00835    32EE000A 03           LW,CT    SYM1,M1
      3094   02 00836    35E2000A 03           STW,CT   SYM1,XT
      3095   02 00837    20100001 A            AI,XT    1
      3096   02 00838    20700001 A            AI,M1    1
      3097   02 00839    64800835              BDR,RT1  INS1
      3098                            * MOVE FWD(SYMT,U) TO (V)
      3099   02 0083A    324C0008 03           LW,V     LLWD,U
      3100   02 0083B    21440000 A            CI,V     DIRFLD
      3101   02 0083C    6840083E              BAZ      %+2
      3102   02 0083D    324C0009 03           LW,V     GLWD,U
      3103   02 0083E    4B400AF4              AND,V    =LLFLD
      3104                            * MOVE FWD(SYMT,V) TO (W)
      3105   02 0083F    32580008 03           LW,W     LLWD,V
      3106   02 00840    21540000 A            CI,W     DIRFLD
      3107   02 00841    68400843              BAZ      %+2
      3108   02 00842    32580009 03           LW,W     GLWD,V
      3109   02 00843    4B500AF4              AND,W    =LLFLD
      3110                            * IF BAL(SYMT,V) EQ 0  GOTO NS1
      3111   02 00844    32E80008 03           LW,CT    BALWD,V
      3112   02 00845    21E30000 A            CI,CT    BALFLD
      3113   02 00846    684008B3              BAZ      NS1
      3114                            * IF DIR(SYMT,V) PLUS BAL(SYMT,V) EQ 2 GOTO NS2
      3115   02 00847    4BE00AFE              AND,CT   =DIRFLD
      3116   02 00848    25E0007E A            SLS,CT   -2
      3117   02 00849    30E80008 03           AW,CT    BALWD,V
      3118   02 0084A    4BE00AFF              AND,CT   =BALFLD
      3119   02 0084B    21E20000 A            CI,CT    X'20000'
      3120   02 0084C    6830084F              BE       NS2
      3121                            * MOVE (W) TO (VWX)  GOTO NS4
      3122   02 0084D    32100005 A            LW,VWX   W
      3123   02 0084E    68000870              B        NS4
      3124                            *NS2 MOVE FWD(SYMT,W) TO (X) MOVE (X) TO (VWX)
      3125   02 0084F                 NS2      RES      0
      3126   02 0084F    327A0008 03           LW,X     LLWD,W
      3127   02 00850    21740000 A            CI,X     DIRFLD
      3128   02 00851    68400853              BAZ      %+2
      3129   02 00852    327A0009 03           LW,X     GLWD,W
      3130   02 00853    4B700AF4              AND,X    =LLFLD
      3131   02 00854    32100007 A            LW,VWX   X
      3132                            *  IF DIR(SYMT,V) NE DIR(SYMT,W)  GOTO NS3
      3133   02 00855    22B40000 A            LI,RT4   DIRFLD
      3134   02 00856    32A80008 03           LW,RT3   DIRWD,V
      3135   02 00857    45AA0008 03           CS,RT3   DIRWD,W
      3136   02 00858    69300874              BNE      NS3
      3137                            * MOVE (W) TO FWD(SYMT,U)
      3138   02 00859    32800005 A            LW,RT1   W
      3139   02 0085A    32AC0008 03           LW,RT3   DIRWD,U
      3140   02 0085B    21A40000 A            CI,RT3   DIRFLD
      3141   02 0085C    6840085E              BAZ      %+2
      3142   02 0085D    20600001 A            AI,U     1
      3143   02 0085E    478C0008 03           STS,RT1  LLWD,U
      3144                            * SAVE REV(SYMT,W)  MOVE (V) TO REV(SYMT,W)
      3145   02 0085F    32800004 A            LW,RT1   V
      3146   02 00860    32EA0008 03           LW,CT    DIRWD,W
      3147   02 00861    21E40000 A            CI,CT    DIRFLD
      3148   02 00862    68400866              BAZ      INS5
      3149   02 00863    326A0008 03           LW,U     LLWD,W
      3150   02 00864    478A0008 03           STS,RT1  LLWD,W
      3151   02 00865    68000868              B        INS6
      3152   02 00866                 INS5     RES      0
      3153   02 00866    326A0009 03           LW,U     GLWD,W
      3154   02 00867    478A0009 03           STS,RT1  GLWD,W
      3155   02 00868                 INS6     RES      0
      3156                            *  MOVE REV(SYMT,W) TO FWD(SYMT,V)
      3157   02 00868    32800006 A            LW,RT1   U                 U CONTAINS REV(SYMT,W)
      3158   02 00869    32E80008 03           LW,CT    DIRWD,V
      3159   02 0086A    21E40000 A            CI,CT    DIRFLD
      3160   02 0086B    6840086E              BAZ      INS7
      3161   02 0086C    47880009 03           STS,RT1  GLWD,V
      3162   02 0086D    6800086F              B        INS8
      3163   02 0086E                 INS7     RES      0
      3164   02 0086E    47880008 03           STS,RT1  LLWD,V
      3165   02 0086F                 INS8     RES      0
      3166                            * MOVE (X) TO (W)
      3167   02 0086F    32500007 A            LW,W     X
      3168                            *NS4  CLEAR BAL(SYMT,V) GOTO NS9
      3169   02 00870                 NS4      RES      0
      3170   02 00870    22A00000 A            LI,RT3   0
      3171   02 00871    22B30000 A            LI,RT4   BALFLD
      3172   02 00872    47A80008 03           STS,RT3  BALWD,V
      3173   02 00873    680008BE              B        NS9
      3174                            *NS3  MOVE FWD(SYMT,X) TO (VWX)
      3175   02 00874                 NS3      RES      0
      3176   02 00874    321E0008 03           LW,VWX   LLWD,X
      3177   02 00875    21140000 A            CI,VWX   DIRFLD
      3178   02 00876    68400878              BAZ      %+2
      3179   02 00877    321E0009 03           LW,VWX   GLWD,X
      3180   02 00878    4B100AF4              AND,VWX  =LLFLD
      3181                            *  MOVE (X) TO FWD(SYMT,U)
      3182   02 00879    32EC0008 03           LW,CT    DIRWD,U
      3183   02 0087A    21E40000 A            CI,CT    DIRFLD
      3184   02 0087B    6840087D              BAZ      %+2
      3185   02 0087C    20600001 A            AI,U     1
      3186   02 0087D    32800007 A            LW,RT1   X
      3187   02 0087E    478C0008 03           STS,RT1  LLWD,U
      3188                            *  IF DIR(SYMT,W) EQ 1 GOTO NS7
      3189   02 0087F    32EA0008 03           LW,CT    DIRWD,W
      3190   02 00880    21E40000 A            CI,CT    DIRFLD
      3191   02 00881    69400890              BANZ     NS7
      3192                            * MOVE GL(SYMT,X) TO LL(SYMT,W)
      3193   02 00882    328E0009 03           LW,RT1   GLWD,X
      3194   02 00883    478A0008 03           STS,RT1  LLWD,W
      3195                            * MOVE LL(SYMT,X) TO FWD(SYMT,V)
      3196   02 00884    328E0008 03           LW,RT1   LLWD,X
      3197   02 00885    32600004 A            LW,U     V
      3198   02 00886    32E80008 03           LW,CT    DIRWD,V
      3199   02 00887    21E40000 A            CI,CT    DIRFLD
      3200   02 00888    6840088A              BAZ      %+2
      3201   02 00889    20600001 A            AI,U     1
      3202   02 0088A    478C0008 03           STS,RT1  LLWD,U
      3203                            * MOVE (V) TO LL(SYMT,X)  MOVE (W) TO GL(SYMT,X)  GOTO NS49
      3204   02 0088B    32800004 A            LW,RT1   V
      3205   02 0088C    478E0008 03           STS,RT1  LLWD,X
      3206   02 0088D    32800005 A            LW,RT1   W
      3207   02 0088E    478E0009 03           STS,RT1  GLWD,X
      3208   02 0088F    6800089D              B        NS49
      3209                            *NS7 MOVE LL(SYMT,X) TO GL(SYMT,W)
      3210   02 00890                 NS7      RES      0
      3211   02 00890    328E0008 03           LW,RT1   LLWD,X
      3212   02 00891    478A0009 03           STS,RT1  GLWD,W
      3213                            *  MOVE GL(SYMT,X) TO FWD(SYMT,V)
      3214   02 00892    328E0009 03           LW,RT1   GLWD,X
      3215   02 00893    32600004 A            LW,U     V
      3216   02 00894    32E80008 03           LW,CT    DIRWD,V
      3217   02 00895    21E40000 A            CI,CT    DIRFLD
      3218   02 00896    68400898              BAZ      %+2
      3219   02 00897    20600001 A            AI,U     1
      3220   02 00898    478C0008 03           STS,RT1  LLWD,U
      3221                            *  MOVE (W) TO LL(SYMT,X)  MOVE (V) TO GL(SYMT,X)
      3222   02 00899    32800005 A            LW,RT1   W
      3223   02 0089A    478E0008 03           STS,RT1  LLWD,X
      3224   02 0089B    32800004 A            LW,RT1   V
      3225   02 0089C    478E0009 03           STS,RT1  GLWD,X
      3226                            *NS49  CLEAR BAL(SYMT,V)  CLEAR BAL(SYMT,X)
      3227   02 0089D                 NS49     RES      0
      3228   02 0089D    22A00000 A            LI,RT3   0
      3229   02 0089E    22B30000 A            LI,RT4   BALFLD
      3230   02 0089F    47A80008 03           STS,RT3  BALWD,V
      3231   02 008A0    47AE0008 03           STS,RT3  BALWD,X
      3232                            * IF (X) EQ (NEXTST)  GOTO NS6
      3233   02 008A1    31700000 X            CW,X     NEXTST
      3234   02 008A2    683008C5              BE       NS6
      3235                            *  REV(SYMT,X) TO (U)
      3236   02 008A3    326E0008 03           LW,U     LLWD,X
      3237   02 008A4    21640000 A            CI,U     DIRFLD
      3238   02 008A5    694008A7              BANZ     %+2
      3239   02 008A6    326E0009 03           LW,U     GLWD,X
      3240   02 008A7    4B600AF4              AND,U    =LLFLD
      3241                            *  MOVE 1 TO BAL(SYMT,U)  IF DIR(SYMT,U) EQ 1 MOVE 2 TO BAL(SYMT,U)
      3242   02 008A8    22A10000 A            LI,RT3   X'10000'
      3243   02 008A9    32EC0008 03           LW,CT    DIRWD,U
      3244   02 008AA    21E40000 A            CI,CT    DIRFLD
      3245   02 008AB    684008AD              BAZ      %+2
      3246   02 008AC    22A20000 A            LI,RT3   X'20000'
      3247   02 008AD    47AC0008 03           STS,RT3  BALWD,U
      3248                            *  FWD(SYMT,VWX) TO (W)  GOTO NS5
      3249   02 008AE    32520008 03           LW,W     LLWD,VWX
      3250   02 008AF    21540000 A            CI,W     DIRFLD
      3251   02 008B0    684008B4              BAZ      NS5
      3252                            *
      3253   02 008B1    32520009 03           LW,W     GLWD,VWX
      3254   02 008B2    680008B4              B        NS5
      3255                            *NS1 MOVE (V) TO (VWX)
      3256   02 008B3                 NS1      RES      0
      3257   02 008B3    32100004 A            LW,VWX   V
      3258                            *NS5  IF (W) EQ 0 GOTO NS6
      3259   02 008B4                 NS5      RES      0
      3260   02 008B4    4B500AF4              AND,W    =LLFLD
      3261   02 008B5    683008C5              BE       NS6
      3262                            * MOVE 1 TO BAL(SYMT,VWX) IF DIR(SYMT,VWX) EQ 0  MOVE 2 TO BAL(SYMT,VWX)
      3263   02 008B6    22A10000 A            LI,RT3   X'10000'
      3264   02 008B7    32E20008 03           LW,CT    DIRWD,VWX
      3265   02 008B8    21E40000 A            CI,CT    DIRFLD
      3266   02 008B9    694008BB              BANZ     %+2
      3267   02 008BA    22A20000 A            LI,RT3   X'20000'
      3268   02 008BB    22B30000 A            LI,RT4   BALFLD
      3269   02 008BC    47A20008 03           STS,RT3  BALWD,VWX
      3270                            * MOVE (W) TO (VWX)
      3271   02 008BD    32100005 A            LW,VWX   W
      3272                            *NS9  MOVE FWD(SYMT,W) TO (W)  GOTO NS5
      3273   02 008BE                 NS9      RES      0
      3274   02 008BE    32EA0008 03           LW,CT    DIRWD,W
      3275   02 008BF    21E40000 A            CI,CT    DIRFLD
      3276   02 008C0    684008C3              BAZ      NS10
      3277   02 008C1    325A0009 03           LW,W     GLWD,W
      3278   02 008C2    680008B4              B        NS5
      3279   02 008C3                 NS10     RES      0
      3280   02 008C3    325A0008 03           LW,W     LLWD,W
      3281   02 008C4    680008B4              B        NS5
      3282                            *NS6 MOVE (NEXTST) TO (M1) ADD WDCT(HED) PLUS 2 TO (NEXTST)
      3283   02 008C5                 NS6      RES      0
      3284   02 008C5    32700000 X            LW,M1    NEXTST
      3285   02 008C6    20700008 03           AI,M1    HED               EXIT WITH FOUND ADDRESS IN M1
      3286   02 008C7    32600000 X            LW,N     NXSYMB            AND SYMBOL NUMBER IN N.
      3287   02 008C8    72E00008 03           LB,CT    WDCTWD
      3288   02 008C9    20E00002 A            AI,CT    2
      3289   02 008CA    66E00000 X            AWM,CT   NEXTST
      3290                            *  ADD 1 TO (NXSYMB)
      3291   02 008CB    33100000 X            MTW,1    NXSYMB
      3292                            *  RESTORE REGISTERS AND EXIT
      3293   02 008CC    12400024 03           LD,SYN   NSRTR1            RESTORE REGS. SYN AND LVL
      3294   02 008CD    E800000F A            EXIT
      3295                            *
      3296   02 008CE                 OVERFLOW RES      0
      3297   02 008CE    22000003 A            ABORT    ABORT3            ENCODER SPACE OVERFLOW
             02 008CF    68000000 X
      3298                            *
      3299                            *    E N D   P R O C E S S I N G
      3300                            *
      3301                                     LOCAL    XT,IN,OUT,OUT1,OUT2,LL,XR7,RL1
      3302         00000001           XT       EQU      1
      3303         00000002           IN       EQU      2
      3304         00000003           OUT      EQU      3
      3305         00000004           OUT1     EQU      4
      3306         00000005           OUT2     EQU      5
      3307         00000006           LL       EQU      6
      3308         00000007           XR7      EQU      7
      3309         0000000E           RL1      EQU      14
      3310   02 008D0                 ENDIRCTV RES      0
      3311   02 008D0    6AF0099C              CALL     CHK%PRNT          PRINT LAST LINE IF NEEDED
      3312   02 008D1    6AF00518              BAL,RL   LCLDL1            DELETE LOCAL REGION
      3313   02 008D2    6AF00989              BAL,RL   IO%X1             WRITE OUTBUF
      3314   02 008D3    6AF0098E              CALL     IO%X3
      3315   02 008D4    6AD00000 X            BAL,LINK IM@END
      3316   02 008D5    3210004F 03           LW,XT    NUMRECX1          SAVE ENCODED RECORD NUMBER
      3317   02 008D6    35100052 03           STW,XT   OVFLAG
      3318   02 008D7    22300000 A            LI,OUT   0                 SET SYMBUF INDEX
      3319   02 008D8    22400000 A            LI,OUT1  0                 SET CF1BUF INDEX
      3320   02 008D9    22100000 A            LI,XT    0                 SET SORTBL INDEX
      3321   02 008DA    3510004F 03           STW,XT   NUMRECX1          CLEAR TO COUNT SYMBOL TBL RECORDS
      3322   02 008DB    35100043 03           STW,XT   NUMRECX3          CLEAR TO COUNT CF1 TABLE RECORDS
      3323   02 008DC                 SYMTOUT  RES      0
      3324   02 008DC    32600008 03           LW,LL    HED               PUT L.L. OF SYMBOL
      3325   02 008DD    4B600AF4              AND,LL   L(LLFLD)            TABLE CENTER IN SORTBL
      3326   02 008DE    B5600035 03           STW,LL   *INBUF            USE DYNAMIC FOR SORT TABLE
      3327   02 008DF                 SYMTOUT2 RES      0
      3328   02 008DF    33000048 03           MTW,0    SPILLFLG
      3329         001F0000                    IF,NZ                      DOIF SPILLING SYMT
             02 008E0    683008E6
      3330   02 008E1    32700006 A            LW,M1    LL
      3331   02 008E2    20700008 03           AI,M1    HED
      3332   02 008E3    6AF00A22              CALL     MAP%ADDR          GET CORRECT PAGE IN CORE
      3333   02 008E4    207FFFF8 N            AI,M1    -HED
      3334   02 008E5    35700006 A            STW,M1   LL
      3335         00F10000                    FI
      3336   02 008E6    32200006 A            LW,IN    LL
      3337   02 008E7    326C0008 03           LW,LL    HED,LL
      3338   02 008E8    4B600B00              AND,LL   L(~DSSYMBIT)      TURN OFF POSSIBLE .DS CN FLAG
      3339   02 008E9    35640008 03           STW,LL   HED,IN
      3340   02 008EA    4B600AF4              AND,LL   L(LLFLD)
      3341   02 008EB    683008EF              BEZ      SYMTOUT4          L.L. = 0, YES
      3342   02 008EC    20100001 A            AI,XT    1                 NO, BUMP INDEX
      3343   02 008ED    B5620035 03           STW,LL   *INBUF,XT         MOVE L.L. TO SORTBL
      3344   02 008EE    680008DF              B        SYMTOUT2          GET NEXT L.L.
      3345   02 008EF    6AF00928     SYMTOUT4 BAL,RL   WRISYM            OUTPUT SYMBOL
      3346   02 008F0    B2720035 03           LW,M1    *INBUF,XT
      3347   02 008F1    20700008 03           AI,M1    HED
      3348   02 008F2    33000048 03           MTW,0    SPILLFLG
      3349         001F0000                    IF,NZ                      DOIF SPILLING SYMT
             02 008F3    683008F5
      3350   02 008F4    6AF00A22              CALL     MAP%ADDR          GET CORRECT PAGE IN CORE
      3351         00F10000                    FI
      3352   02 008F5    326E0001 A            LW,LL    GLOFFSET,M1
      3353   02 008F6    4B600AF4              AND,LL   L(GLFLD)
      3354   02 008F7    683008FA              BEZ      SYMTOUT6          G.L. = 0, YES
      3355                            *
      3356   02 008F8    B5620035 03           STW,LL   *INBUF,XT           NO
      3357   02 008F9    680008DF              B        SYMTOUT2          YES
      3358   02 008FA    201FFFFF A   SYMTOUT6 AI,XT    -1                DECR INDEX
      3359   02 008FB    681008EF              BGEZ     SYMTOUT4          FINISHED, NO
      3360   02 008FC    229FFFFF A            LI,RT2   -1                YES, WRITE END ITEM
      3361   02 008FD    6AE0096C              BAL,RL1  CF1OUT              IN TABLES
      3362   02 008FE    22AFFFFF A            LI,RT3   -1
      3363   02 008FF    227FFFFF A            LI,XR7   -1
      3364   02 00900    22B00000 A            LI,RT4   0
      3365   02 00901    6AE0097A              BAL,RL1  SYMIOUT4          WRITE -1 AS LAST SYMBOL NUMBER
      3366   02 00902    6AF0098B              BAL,RL   IO%X1A            WRITE SYMBUF
      3367   02 00903    6AF0098E              CALL     IO%X3             WRITE THE LAST CF(1) RECORD
      3368   02 00904    3A900043 03           LCW,IOSIZE  NUMRECX3       BACKSPACE TO BEGINNING
      3369   02 00905    6AA00000 X            BAL,IORL POSITIONX3        OF THE CF1 RECORDS
      3370   02 00906    33000000 X            MTW,0    PD%FLAG           IS STD DEF FILE REQUIRED
      3371   02 00907    693009D4              BNEZ     PRODSDF           BRIF YES.
      3372                            *
      3373   02 00908    33000048 03           MTW,0    SPILLFLG
      3374         001F0000                    IF,NZ                      NOTE THAT SPILL OCCURRED
             02 00909    68300927
      3375                            *
      3376                            *        WRITE HEADER MESSAGE
      3377                            *
      3378   02 0090A    6A700000 X            BAL,X7   CLRLSTBF
      3379   02 0090B    02200080 A            LCI      8
      3380   02 0090C    2A1000E4              LM,1     SPILL%MSG
      3381   02 0090D    2B100000 X            STM,1    LSTBF
      3382   02 0090E    6AF00998              CALL     PRINT
      3383                            *
      3384                            *        WRITE NUMBER OF WORDS THAT WOULD HAVE BEEN NEEDED
      3385                            *
      3386   02 0090F    6A700000 X            BAL,X7   CLRLSTBF
      3387   02 00910    6AF00998              CALL     PRINT
      3388   02 00911    02200080 A            LCI      8
      3389   02 00912    2A1000EC              LM,1     SPILL%MSG%REQ
      3390   02 00913    2B100000 X            STM,1    LSTBF
      3391   02 00914    32500000 X            LW,X5    ENDCORE
      3392   02 00915    38500000 X            SW,X5    LOWCORE
      3393   02 00916    30500000 X            AW,X5    NEXTST
      3394   02 00917    3850004A 03           SW,X5    SYMLMT
      3395   02 00918    20500200 A            AI,X5    512
      3396   02 00919    2260001E A            LI,X6    30
      3397   02 0091A    6A700000 X            BAL,X7   DEDIT
      3398   02 0091B    6AF00998              CALL     PRINT
      3399                            *
      3400                            *        WRITE OUT THE NUMBER OF WORDS WE HAD
      3401                            *
      3402   02 0091C    02200080 A            LCI      8
      3403   02 0091D    2A1000F4              LM,1     SPILL%MSG%AVL     ;
      3404   02 0091E    2B100000 X            STM,1    LSTBF
      3405   02 0091F    32500000 X            LW,X5    ENDCORE
      3406   02 00920    38500000 X            SW,X5    LOWCORE
      3407   02 00921    2260001E A            LI,X6    30
      3408   02 00922    6A700000 X            BAL,X7   DEDIT
      3409   02 00923    6AF00998              CALL     PRINT
      3410   02 00924    6A700000 X            BAL,X7   CLRLSTBF
      3411   02 00925    6AF00998              CALL     PRINT
      3412   02 00926    6AF00998              CALL     PRINT
      3413         00F10000                    FI
      3414   02 00927    E8000000 X            B        *ROOTRTN          EXIT ENCODER PHASE
1
      3416                            *
      3417   02 00928                 WRISYM   RES      0
      3418   02 00928    35F00049 03           STW,RL   SRCHXIT
      3419   02 00929    22500001 A            LI,OUT2  1
      3420   02 0092A    B2220035 03           LW,IN    *INBUF,XT         LINK TO SYMBOL
      3421   02 0092B    33000048 03           MTW,0    SPILLFLG
      3422         001F0000                    IF,NZ                      DOIF SPILLING SYMT
             02 0092C    68300932
      3423   02 0092D    32700002 A            LW,M1    IN
      3424   02 0092E    20700008 03           AI,M1    HED
      3425   02 0092F    6AF00A22              CALL     MAP%ADDR          GET CORRECT PAGE IN CORE
      3426   02 00930    207FFFF8 N            AI,M1    -HED
      3427   02 00931    35700002 A            STW,M1   IN
      3428         00F10000                    FI
      3429   02 00932    32840008 03           LW,RT1   HED,IN
      3430   02 00933    4B800AEC              AND,RT1  L(PTRFLD)         EXTRACT PTR FLAG
      3431   02 00934    25800077 A            SHIFT,RT1   PTRLOB,2+16    POSITION TO SORTED-SYMBOL MULTIPLE-
      3432   02 00935    3580003F 03           STW,RT1  M0                  OCCURRENCE (OPEN/CLOSE) FLAG.
      3433   02 00936    25200002 A            SLS,IN   2                 BYTE OFFSET
      3434   02 00937    72B40008 03           LB,RT4   HED,IN            GET WORD COUNT
      3435   02 00938    25B00002 A            SLS,RT4  2                 SHIFT TO BYTE COUNT
      3436   02 00939    7284000A 03  WRISYM10 LB,RT1   HED+2,IN          MOVE A CHAR
      3437   02 0093A    758A000A 03           STB,RT1  SYM1,OUT2
      3438   02 0093B    20200001 A            AI,IN    1
      3439   02 0093C    20500001 A            AI,OUT2  1
      3440   02 0093D    3150000B A            CW,OUT2  RT4               FINISHED
      3441   02 0093E    68200939              BLE      WRISYM10          NO,
      3442   02 0093F    22800040 A            LI,RT1   ' '               STORE A TRAILING BLANK
      3443   02 00940    758A000A 03           STB,RT1  SYM1,OUT2
      3444   02 00941    205FFFFF A   WRISYM20 AI,OUT2  -1                YES,
      3445   02 00942    728A000A 03           LB,RT1   SYM1,OUT2         ADJUST COUNT FOR
      3446   02 00943    21800040 A            CI,RT1   ' '                 TRAILING BLANKS
      3447   02 00944    68300941              BE       WRISYM20
      3448   02 00945    7550000A 03           STB,OUT2 SYM1              STORE COUNT AS 1ST BYTE
      3449   02 00946    B2220035 03           LW,IN    *INBUF,XT         LINK TO SYMBOL
      3450   02 00947    33000048 03           MTW,0    SPILLFLG
      3451         001F0000                    IF,NZ                      DOIF SPILLING SYMT
             02 00948    6830094E
      3452   02 00949    32700002 A            LW,M1    IN
      3453   02 0094A    20700008 03           AI,M1    HED
      3454   02 0094B    6AF00A22              CALL     MAP%ADDR          GET CORRECT PAGE IN CORE
      3455   02 0094C    207FFFF8 N            AI,M1    -HED
      3456   02 0094D    35700002 A            STW,M1   IN
      3457         00F10000                    FI
      3458   02 0094E    68000968              B        WRISYM40          1ST TIME SPECIAL
      3459   02 0094F    32840008 03  WRISYM30 LW,RT1   HED,IN
      3460   02 00950    32940009 03  WRISYM31 LW,RT2   HED+1,IN
      3461   02 00951    31800AEC              CW,RT1   L(PTRFLD)         POINTER FLAG ON
      3462   02 00952    69400954              BANZ     %+2               YES,
      3463   02 00953    25900070 A            SLS,RT2  -16
      3464   02 00954    31800AE8              CW,RT1   L(CF1FLD)         CF1 FLAG ON
      3465   02 00955    68400957              BAZ      %+2               NO,
      3466   02 00956    6AE0096C              BAL,RL1  CF1OUT            YES, S.N. TO CF1 TABLE
      3467   02 00957    31800AEA              CW,RT1   L(CLOFLD)         CLOSE FLAG ON
      3468   02 00958    6840095A              BAZ      %+2
      3469   02 00959    49900B01              OR,RT2   L(X'4000')        TURN CLOSE FLAG ON
      3470   02 0095A    4990003F 03           OR,RT2   M0                MERGE MULTIPLE-OCCURRENCE FLAG
      3471   02 0095B    6AE00973              BAL,RL1  SYMIOUT           SYMBOL TO SYMBOL TABLE
      3472   02 0095C    31800AEC              CW,RT1   L(PTRFLD)         WAS POINTER FLAG ON
      3473   02 0095D    E8400049 03           BAZ      *SRCHXIT
      3474                            *
      3475   02 0095E    32240009 03  WRISYM35 LW,IN    HED+1,IN          YES, GET NEXT LINK
      3476   02 0095F    25200070 A            SLS,IN   -16
      3477   02 00960    33000048 03           MTW,0    SPILLFLG
      3478         001F0000                    IF,NZ                      DOIF SPILLING SYMT
             02 00961    68300967
      3479   02 00962    32700002 A            LW,M1    IN
      3480   02 00963    20700008 03           AI,M1    HED
      3481   02 00964    6AF00A22              CALL     MAP%ADDR          GET CORRECT PAGE IN CORE
      3482   02 00965    207FFFF8 N            AI,M1    -HED
      3483   02 00966    35700002 A            STW,M1   IN
      3484         00F10000                    FI
      3485   02 00967    6800094F              B        WRISYM30          GO PROCESS
      3486   02 00968    32840008 03  WRISYM40 LW,RT1   HED,IN
      3487   02 00969    31800AEC              CW,RT1   L(PTRFLD)         POINTER FLAG ON
      3488   02 0096A    6940095E              BANZ     WRISYM35          YES,
      3489   02 0096B    68000950              B        WRISYM31          NO,
      3490   02 0096C                 CF1OUT   RES      0
      3491   02 0096C    21400000 N            CI,OUT1  HWX3SIZE          TEST FOR END OF X3 BUFFER
      3492   02 0096D    69100970              BL       CF1OUT1           BRANCH IF NOT END
      3493                            *
      3494   02 0096E    6AF0098E              CALL     IO%X3             WRITE A RECORD OF CF(1)'S
      3495   02 0096F    22400000 A            LI,OUT1  0                 RESET INDEX
      3496   02 00970                 CF1OUT1  RES      0
      3497   02 00970    55980000 X            STH,RT2  CF1BUF,OUT1
      3498   02 00971    20400001 A            AI,OUT1  1
      3499   02 00972    E800000E A            B        *RL1
      3500   02 00973                 SYMIOUT  RES      0
      3501   02 00973    72B0000A 03           LB,RT4   SYM1              BYTE COUNT OF SYMBOL
      3502   02 00974    25B0007F A            SLS,RT4  -1                CONVERT TO HALF-WD COUNT
      3503   02 00975    20B00001 A            AI,RT4   1                 # HALF-WDS PER ENTRY - 1
      3504   02 00976    227FFFFF A            LI,XR7   -1
      3505   02 00977    32A00009 A            LW,RT3   RT2
      3506   02 00978    6800097A              B        SYMIOUT4
      3507   02 00979    52AE000A 03  SYMIOUT3 LH,RT3   SYM1,XR7          MOVE A HALF-WD
      3508   02 0097A                 SYMIOUT4 RES      0
      3509   02 0097A    21300000 N            CI,OUT   HWX1SIZE          TEST FOR BUFFER FULL
      3510   02 0097B    68100982              BGE      SYMIOUT5          BRANCH IF YES
      3511   02 0097C    55A60000 X            STH,RT3  SYMBUF,OUT
      3512   02 0097D    20300001 A            AI,OUT   1
      3513   02 0097E    20700001 A            AI,XR7   1
      3514   02 0097F    3170000B A            CW,XR7   RT4               FINISHED
      3515   02 00980    69100979              BL       SYMIOUT3          NO,
      3516   02 00981    E800000E A            B        *RL1              YES
      3517   02 00982    35F00003 A   SYMIOUT5 STW,RL   OUT               SAVE RETURN
      3518   02 00983    35A00051 03           STW,RT3  XTSAVE
      3519   02 00984    6AF0098B              BAL,RL   IO%X1A            WRITE SYMBUF
      3520   02 00985    32A00051 03           LW,RT3   XTSAVE
      3521   02 00986    32F00003 A            LW,RL    OUT               RESTORE RETURN ADDRESS
      3522   02 00987    22300000 A            LI,OUT   0                 RESET OUT
      3523   02 00988    6800097A              B        SYMIOUT4
      3524                                     LOCAL
      3525                            *
      3526                            *    I O % X 1
      3527                            *
      3528   02 00989                 IO%X1    RES      0
      3529   02 00989    22A020FF A            LI,IORL  ENDBUF            END-OF-BUFFER
      3530   02 0098A    55A60000 X            STH,IORL OUTBUF,OUT
      3531   02 0098B                 IO%X1A   RES      0
      3532   02 0098B    6AA00000 X            BAL,IORL WRITEX1
      3533   02 0098C    3310004F 03           MTW,1    NUMRECX1          COUNT NUM OF REC IN X1
      3534   02 0098D    E800000F A            B        *RL
      3535                            *
      3536                            *    I O % X 3
      3537                            *
      3538   02 0098E                 IO%X3    RES      0
      3539   02 0098E    3300002B 03           MTW,0    CNCTRL
      3540         001F0000                    IF,EZ
             02 0098F    69300992
      3541   02 00990    22800000 N            LI,IOADD X3BUF             IN PROGRAM - WRITE CONDENSED SOURCE
      3542         000E0000                    ELS
             02 00991    68000995
      3543   02 00992    22A020FF A            LV,IORL  ENDBUF            END-OF-BUFFER
      3544   02 00993    55A60000 X            STH,IORL OUTBUF,OUT
      3545   02 00994    22800000 N            LI,IOADD X1BUF             IN CN CONTROLS - WRITE ENCODED
      3546         00F10000                    FI
      3547   02 00995    6AA00000 X            BAL,IORL WRITEX3
      3548   02 00996    33100043 03           MTW,+1   NUMRECX3          TALLY RECORDS WRITTEN
      3549   02 00997    E800000F A            EXIT
1
      3551                            *
      3552                            *   P R I N T
      3553                            *        WRITE 'LSTBF' AREA TO THE LISTING OUTPUT FILE
      3554                            *
      3555                            *        USES:    IOADD
      3556                            *                 IOSIZE
      3557                            *        IORL
      3558                            *
      3559   02 00998                 PRINT    RES      0
      3560   02 00998    22800000 N            LI,IOADD LSTBF             BUFFER
      3561   02 00999    22900064 A            LI,IOSIZE   100            SIZE
      3562   02 0099A    6AA00000 X            BAL,IORL WRITELO
      3563   02 0099B    E800000F A            EXIT
      3564                            *
      3565                            *   C H K % P R N T
      3566                            *        CONTROL PRINTING OF ENCODER SOURCE LINES.  IF THERE WAS
      3567                            *        ANY POSSIBILITY FOR PRINT, 'READCARD' EDITED THE LINE
      3568                            *        IMAGE INTO 'LSTBF'.
      3569                            *
      3570   02 0099C                 CHK%PRNT RES      0
      3571   02 0099C    33000000 X            MTW,0    LS%FLAG
      3572         001F0000                    IF,NZ                      EITHER LS OR .DS WAS SPECIFIED
             02 0099D    683009A7
      3573   02 0099E    33000032 03           MTW,0    DSLNCTRL
      3574         001F0100                    IF,NZ                      EITHER LS ONLY OR .DS SYM IN STMT
             02 0099F    683009A7
      3575   02 009A0    22800000 N            LI,IOADD LSTBF
      3576   02 009A1    22900064 A            LI,IOSIZE   100
      3577   02 009A2    6AA00000 X            BAL,IORL WRITELO           WRITE LAST LINE
      3578   02 009A3    53000000 X            MTH,0    LS%FLAG
      3579         001F0200                    IF,NZ                      .DS IS CONTROLLING PRINT
             02 009A4    683009A7
      3580   02 009A5    22100000 A            LI,XT    0
      3581   02 009A6    35100032 03           STW,XT   DSLNCTRL          RESET TO NOT PRINT
      3582         00F10200                    FI
      3583         00F10100                    FI
      3584         00F10000                    FI
      3585   02 009A7    E800000F A            EXIT
      3586                            *
      3587                            *    R D S D F
      3588                            *        READ STANDARD DEFINITION FILE
      3589   02 009A8                 RDSDF    RES      0
      3590   02 009A8    6AA00000 X            BAL,IORL REWSTD            REWIND F:STD
      3591   02 009A9    22800000 N            LI,IOADD OUTBUF
      3592   02 009AA    6AA00000 X            BAL,IORL READSTD
      3593   02 009AB    32800050 03           LW,RT1   FIRSTST
      3594   02 009AC    31800000 X            CW,RT1   FIRSTSTSDF        IS FILE COMPATIBLE
      3595   02 009AD    693009C8              BNE      RDSDFERR          NO
      3596   02 009AE    32800001 N            LW,RT1   NEXTSTSDF         YES, RESTORE NEXTST
      3597   02 009AF    35800000 X            STW,RT1  NEXTST
      3598   02 009B0    32800002 N            LW,RT1   NXSYMBSDF         RESTORE NXSYMB
      3599   02 009B1    35800000 X            STW,RT1  NXSYMB
      3600   02 009B2    32800003 N            LW,RT1   HEDSDF            RESTORE HED
      3601   02 009B3    35800008 03           STW,RT1  HED
      3602   02 009B4    5A800004 N            LCH,RT1  SDFCONSDF         GET WD COUNT OF SYS NAME TABLE
      3603   02 009B5    30800003 03           AW,RT1   LOCX                AND CALCULATE START
      3604   02 009B6    35800004 03           STW,RT1  SDFCONNCDR
      3605   02 009B7    208FFFFE A            AI,RT1   -2
      3606   02 009B8    35800003 03           STW,RT1  LOCX              STORE NEW START OF LOCAL TABLE
      3607   02 009B9    35800047 03           STW,RT1  SLOC
      3608   02 009BA    52100004 N            LH,XT    SDFCONSDF
      3609   02 009BB    32820004 N            LW,RT1   SDFCONSDF,XT      MOVE SYSTEM NAME TABLE
      3610   02 009BC    B5820004 03           STW,RT1  *SDFCONNCDR,XT
      3611   02 009BD    641009BB              BDR,XT   %-2               FINISHED
      3612   02 009BE    32800004 N            LW,RT1   SDFCONSDF         YES, MOVE CONTROL WD
      3613   02 009BF    B5800004 03           STW,RT1  *SDFCONNCDR         FOR TABLE
      3614   02 009C0    32100050 03           LW,XT    FIRSTST           SET SYM TAB INDEX TO 1ST VALUE
      3615   02 009C1    2220FFFF A            LI,IN    X'FFFF'           FORCE 1ST READ
      3616   02 009C2    6AF009CA     RDSDF15  BAL,RL   RDSYMTAB          GET NEXT SYM TAB WORD
      3617   02 009C3    35820008 03           STW,RT1  HED,XT            MOVE TO SYM TAB
      3618   02 009C4    20100001 A            AI,XT    1
      3619   02 009C5    31100000 X            CW,XT    NEXTST            FINISHED
      3620   02 009C6    691009C2              BL       RDSDF15           NO
      3621   02 009C7    680A0000 A            EXIT     LVL
      3622   02 009C8                 RDSDFERR RES      0
      3623   02 009C8    22000004 A            ABORT    ABORT4            STD DEF FILE INCOMPATIBLE
             02 009C9    68000000 X
      3624   02 009CA                 RDSYMTAB RES      0
      3625   02 009CA    21200000 N            CI,IN    WDX1SIZE          READ THE NEXT RECORD
      3626   02 009CB    681009CF              BGE      RDSYMT10          YES
      3627   02 009CC    32840000 X            LW,RT1   OUTBUF,IN         NO, GET WORD
      3628   02 009CD    20200001 A            AI,IN    1
      3629   02 009CE    E800000F A            B        *RL               RETURN
      3630   02 009CF                 RDSYMT10   RES    0
      3631   02 009CF    22800000 N            LI,IOADD OUTBUF
      3632   02 009D0    6AA00000 X            BAL,IORL READSTD
      3633   02 009D1    22200001 A            LI,IN    1                 RESET IN
      3634   02 009D2    32800000 X            LW,RT1   OUTBUF            GET WORD
      3635   02 009D3    E800000F A            EXIT     RL
      3636                            *
      3637                            *    P R O D S D F
      3638                            *        PRODUCE STANDARD DEFINITION FILE
      3639                            *
      3640   02 009D4                 PRODSDF  RES      0
      3641   02 009D4    6AA00000 X            BAL,IORL REWSTD
      3642   02 009D5    22300000 A            LI,OUT   0                 SET OUT INDEX TO ZERO
      3643   02 009D6    32800050 03           LW,RT1   FIRSTST           WRITE FIRST SYM TAB LOC
      3644   02 009D7    6AF009F9              BAL,RL   SDFOUT
      3645   02 009D8    32800000 X            LW,RT1   NEXTST            WRITE NEXT SYM TAB LOCATION
      3646   02 009D9    6AF009F9              BAL,RL   SDFOUT
      3647   02 009DA    32800000 X            LW,RT1   NXSYMB            WRITE NEXT SYMBOL NUMBER
      3648   02 009DB    6AF009F9              BAL,RL   SDFOUT
      3649   02 009DC    32800008 03           LW,RT1   HED               WRITE ROOT OF SYM TAB
      3650   02 009DD    6AF009F9              BAL,RL   SDFOUT
      3651   02 009DE    52900000 X            LH,RT2   SDFCON            GET TABLE LENGTH
      3652   02 009DF    22100000 A            LI,XT    0
      3653   02 009E0    32820000 X   PRSDF15  LW,RT1   SDFCON,XT         WRITE SYSTEM NAME TABLE
      3654   02 009E1    6AF009F9              BAL,RL   SDFOUT
      3655   02 009E2    20100001 A            AI,XT    1
      3656   02 009E3    31100009 A            CW,XT    RT2               FINISHED
      3657   02 009E4    682009E0              BLE      PRSDF15           NO
      3658   02 009E5    22800000 N            LI,IOADD OUTBUF
      3659   02 009E6    6AA00000 X            BAL,IORL WRITESTD          WRITE CONTROL CARD
      3660   02 009E7    22300000 A            LI,OUT   0                 RESET OUT INDEX
      3661   02 009E8    32100050 03           LW,XT    FIRSTST           FIRST SYM TAB LOC
      3662   02 009E9    32820008 03  PRSDF20  LW,RT1   HED,XT            WRITE SYMBOL TABLE
      3663   02 009EA    6AF009F9              BAL,RL   SDFOUT
      3664   02 009EB    20100001 A            AI,XT    1
      3665   02 009EC    31100000 X            CW,XT    NEXTST            FINISHED
      3666   02 009ED    691009E9              BL       PRSDF20           NO
      3667   02 009EE    22800000 N            LI,IOADD OUTBUF
      3668   02 009EF    6AA00000 X            BAL,IORL WRITESTD          WRITE SYMBOL TABLE RECORD
      3669   02 009F0    6AA00000 X            BAL,IORL REWX1
      3670   02 009F1    32100052 03           LW,XT    OVFLAG            SAVED ENCODED RECORD NUMBER
      3671   02 009F2                 PRSDF25  RES      0
      3672   02 009F2    22800000 N            LI,IOADD OUTBUF
      3673   02 009F3    6AA00000 X            BAL,IORL READX1
      3674   02 009F4    6AA00000 X            BAL,IORL WRITESTD
      3675   02 009F5    641009F2              BDR,XT   PRSDF25
      3676   02 009F6    3290004F 03           LW,IOSIZE  NUMRECX1        SKIP SYMBOL TABLE RECORDS
      3677   02 009F7    6AA00000 X            BAL,IORL POSITIONX1          AFTER PRODUCING STD DEF FILE
      3678   02 009F8    E8000000 X            B        *ROOTRTN          RETURN TO THE ROOT
      3679                            *
      3680                            *    S D F O U T
      3681                            *
      3682   02 009F9                 SDFOUT   RES      0
      3683   02 009F9    21300000 N            CI,OUT   WDX1SIZE          IS OUTPUT BUFFER FULL
      3684   02 009FA    681009FE              BGE      SDFOUT3           YES
      3685   02 009FB    35860000 X            STW,RT1  OUTBUF,OUT        NO, MOVE ITEM
      3686   02 009FC    20300001 A            AI,OUT   1
      3687   02 009FD    E800000F A            B        *RL               RETURN
      3688   02 009FE                 SDFOUT3  RES      0
      3689   02 009FE    32300008 A            LW,OUT   IOADD             SAVE IOADD
      3690   02 009FF    22800000 N            LI,IOADD OUTBUF
      3691   02 00A00    6AA00000 X            BAL,IORL WRITESTD          WRITE BUFFER
      3692   02 00A01    35300000 X            STW,OUT  OUTBUF            MOVE ITEM TO FIRST WORD OF OUTBUF
      3693   02 00A02    22300001 A            LI,OUT   1
      3694   02 00A03    E800000F A            EXIT     RL
1
      3696                            *
      3697                            *   C R E A T E 1 S T S
      3698                            *
      3699                            *        CREATE A SYMBOL TABLE ENTRY LINKED TO THE MAIN ENTRY
      3700                            *          LOCATION OF THE ENTRY TO BE LINKED IS IN M1
      3701                            *
      3702   02 00A04                 CREATE1STS   RES  0
      3703   02 00A04    35F0002E 03           STW,RL   CRE8XIT           SAVE RETURN
      3704   02 00A05    321E0000 A            LW,XT    PTROFFSET,M1
      3705   02 00A06    4B100AF0              AND,XT   L(PTRFLD|CLOFLD|CF1FLD)
      3706   02 00A07    35100000 X            STW,XT   SAVAREA           SAVE FLAGS (WDCT=0, LL=0)
      3707   02 00A08    321E0001 A            LW,XT    SNOFFSET,M1
      3708   02 00A09    35100001 N            STW,XT   SAVAREA+1         SAVE SN
      3709   02 00A0A    32800AEC              LW,RT1   =PTRFLD
      3710   02 00A0B    32900AF0              LW,RT2   =PTRFLD+CLOFLD+CF1FLD
      3711   02 00A0C    478E0000 A            STS,RT1  PTROFFSET,M1
      3712   02 00A0D    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      3713   02 00A0E    32100000 X            LW,XT    NEXTST
      3714   02 00A0F    3810004A 03           SW,XT    SYMLMT
      3715   02 00A10    4B100B02              AND,XT   L(X'1FF')
      3716   02 00A11    211001FF A            CI,XT    X'1FF'
      3717         001F0000                    IF,EQ
             02 00A12    69300A14
      3718   02 00A13    33100000 X            MTW,+1   NEXTST            ROUND TO SPILL PAGE BOUND
      3719         00F10000                    FI
      3720   02 00A14    32100000 X            LW,XT    NEXTST
      3721   02 00A15    55100008 A            STH,XT   RT1
      3722   02 00A16    32900AF1              LW,RT2   =SNFLD
      3723   02 00A17    478E0001 A            STS,RT1  SNOFFSET,M1
      3724   02 00A18    32700001 A            LW,M1    XT
      3725   02 00A19    20700008 03           AI,M1    HED
      3726   02 00A1A    6AF00A22              CALL     MAP%ADDR          GET NEW PAGE
      3727   02 00A1B    32100000 X            LW,XT    SAVAREA
      3728   02 00A1C    351E0000 A            STW,XT   PTROFFSET,M1
      3729   02 00A1D    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      3730   02 00A1E    32100001 N            LW,XT    SAVAREA+1
      3731   02 00A1F    351E0001 A            STW,XT   SNOFFSET,M1
      3732   02 00A20    33200000 X            MTW,2    NEXTST
      3733   02 00A21    E800002E 03           B        *CRE8XIT          RETURN
1
      3735                            *
      3736                            *   M A P % A D D R
      3737                            *
      3738                            *        CALLED WHEN IN SYMBOL TABLE SPILL MODE.  ENSURES THAT
      3739                            *        REQUESTED ADDRESS IS IN CORE.
      3740                            *
      3741                            *        INPUT:   M1 IS VIRTUAL (WORD) ADDRESS OF CELL TO BE ACCESSED.
      3742                            *                 INCORELH IS LO-HI VIRTUAL ADDRESS BOUNDS IN CORE.
      3743                            *                 INCORESF SET IF CURRENT PAGE IS DIRTY (STORED INTO).
      3744                            *
      3745                            *        OUTPUT:  M1 IS REAL CORE ADDRESS OF REQUIRED CELL.
      3746                            *                 M1SAVE IS VIRTUAL (ENTRY) ADDRESS OF REQUIRED CELL.
      3747                            *                 INCOREL, INCOREH, INCOREB# UPDATED IF NECESSARY.
      3748                            *
      3749                            *        USES:    M1
      3750                            *                 IOADD
      3751                            *                 IOSIZE
      3752                            *                 IORL
      3753                            *
      3754   02 00A22                 MAP%ADDR RES      0
      3755   02 00A22    35700040 03           STW,M1   M1SAVE
      3756   02 00A23    3170004D 03           CW,M1    SYMTLMT
      3757   02 00A24    E910000F A            EXIT,L                     RETURN IF < SPILLED AREA
      3758                            *
      3759   02 00A25    1970003A 03           CLM,M1   INCORELH
      3760         001F0000                    IF,OL                      DOIF VIRTUAL PAGE NOT ALREADY IN
             02 00A26    68900A40
      3761   02 00A27    3300003C 03           MTW,0    INCORESF
      3762         001F0100                    IF,NZ                      DOIF STORE OCCURRED INTO OLD PAGE
             02 00A28    68300A32
      3763   02 00A29    3280004D 03           LW,IOADD SYMTLMT
      3764   02 00A2A    32900037 03           LW,IOSIZE   INCOREB#
      3765   02 00A2B    31900038 03           CW,IOSIZE   INCOREBMAX
      3766         001F0200                    IF,G
             02 00A2C    68200A2E
      3767   02 00A2D    35900038 03           STW,IOSIZE   INCOREBMAX
      3768         00F10200                    FI
      3769   02 00A2E    6AA00000 X            BAL,IORL WRITEX5           WRITE CURRENT BUFFER BACK TO BULK
      3770   02 00A2F    22700000 A            LI,M1    0
      3771   02 00A30    3570003C 03           STW,M1   INCORESF          CLEAR STORE-FLAG
      3772   02 00A31    32700040 03           LW,M1    M1SAVE
      3773         00F10100                    FI
      3774   02 00A32    3870004D 03           SW,M1    SYMTLMT
      3775   02 00A33    25700077 A            SLS,M1   -9
      3776   02 00A34    35700037 03           STW,M1   INCOREB#          SAVE NEW BLOCK NUMBER
      3777   02 00A35    25700009 A            SLS,M1   9
      3778   02 00A36    3070004D 03           AW,M1    SYMTLMT
      3779   02 00A37    3570003A 03           STW,M1   INCOREL           LOW VIRTUAL ADDRESS TO BE READ IN
      3780   02 00A38    207001FF A            AI,M1    511
      3781   02 00A39    3570003B 03           STW,M1   INCOREH           HI VIRTUAL ADDRESS TO BE READ IN
      3782   02 00A3A    32900037 03           LW,IOSIZE   INCOREB#
      3783   02 00A3B    31900038 03           CW,IOSIZE   INCOREBMAX
      3784         001F0100                    IF,LE
             02 00A3C    69200A3F
      3785   02 00A3D    3280004D 03           LW,IOADD SYMTLMT
      3786   02 00A3E    6AA00000 X            BAL,IORL READX5            READ THE RECORD
      3787         00F10100                    FI
      3788   02 00A3F    32700040 03           LW,M1    M1SAVE
      3789         00F10000                    FI
      3790   02 00A40    3870003A 03           SW,M1    INCOREL           OFFSET INTO BUFFER
      3791   02 00A41    3070004D 03           AW,M1    SYMTLMT           PLUS BUFFER START
      3792   02 00A42    E800000F A            EXIT                       M1 IS MAPPED TO REAL ADDRESS
1
      3794                            *
      3795                            *    S E A R C H S
      3796                            *
      3797                            *        SEARCH THE SPILLED SYMBOL TABLE.  THE SEARCH ARGUMENT
      3798                            *          IS CONTAINED IN THE ITEM STARTING AT HED, IN THE SAME
      3799                            *          FORMAT AS EACH ITEM IN THE SYMBOL TABLE.
      3800                            *
      3801                            *          OUTPUT: FND CONTAINS THE ADDRESS (17 BITS, FULL ADDRESS)
      3802                            *                  OF THE FOUND SYMBOL TABLE ENTRY, IF IT IS FOUND.
      3803                            *                  N  CONTAINS THE SYMBOL NUMBER AND LOCAL BIT
      3804                            *                  M1 CONTAINS THE LOCATION OF THE LAST OPEN SYMBOL
      3805                            *                    TABLE ENTRY.
      3806                            *                 EXIT TO CALLING ROUTINE + 1 IF NOT FOUND,
      3807                            *                   OR TO CALLING ROUTINE + 2 IF FOUND.
      3808                            *
      3809                                     LOCAL    SRCH1,SRCH3,SRCH5,SRCH11
      3810                                     LOCAL    %40                                          /27466/*D-NCD
      3811                            *
      3812   02 00A43                 SEARCHS  RES      0
      3813   02 00A43    35F00049 03           STW,RL   SRCHXIT           SAVE EXIT
      3814   02 00A44    22600008 03           LI,U     HED
      3815   02 00A45    3560003F 03           STW,U    M0
      3816   02 00A46    22B40000 A            LI,RT4   DIRFLD
      3817   02 00A47    32700008 03           LW,M1    LLWD              LL(HED) TO (M1)
      3818   02 00A48                 SRCH1    RES      0
      3819   02 00A48    4B700AF4              AND,M1   =LLFLD            SAVE LESSER- OR GREATER-LINK
      3820         001F0000                    IF,EZ
             02 00A49    69300A4B
      3821   02 00A4A    E8000049 03           B        *SRCHXIT          EXIT. NOT FOUND
      3822                            *
      3823         00F10000                    FI
      3824   02 00A4B    20700008 03           AI,M1    HED
      3825   02 00A4C    6AF00A22              CALL     MAP%ADDR
      3826   02 00A4D    35700034 03           STW,M1   FND
      3827                            *
      3828                            * COMPARE THE 1ST WORD OF THE SYMBOL
      3829                            *
      3830   02 00A4E    32F0000A 03           LW,RT5   SYM1              KEEP SYM1 IN A REGISTER
      3831   02 00A4F    22100002 A            LI,XT    2
      3832   02 00A50    B1F20034 03           CW,RT5   *FND,XT
      3833         001F0000                    IF,EQ                      DOIF 1ST WORDS COMPARE
             02 00A51    69300AAB
      3834                            *
      3835                            * CHOOSE THE SMALLER WORD COUNT TO TERMINATE THE COMPARE LOOP
      3836                            *
      3837   02 00A52    72E00008 03           LB,CT    HED
      3838   02 00A53    F1E00034 03           CB,CT    *FND
      3839         001F0100                    IF,G
             02 00A54    68200A56
      3840   02 00A55    F2E00034 03           LB,CT    *FND
      3841         00F10100                    FI
      3842   02 00A56    229FFFFF A            LI,RT2   -1                KEEP A MASK IN A REGISTER
      3843   02 00A57    20EFFFFF A            AI,CT    -1
      3844         001F0100                    IF,GZ                      DOIF MORE THAN ONE-WORD SYMBOL
             02 00A58    68200A5E
      3845   02 00A59                 SRCH5    RES      0
      3846   02 00A59    20100001 A            AI,XT    1
      3847   02 00A5A    32820008 03           LW,RT1   HED,XT            COMPARE THE NEXT WORD
      3848   02 00A5B    C5820034 03           CS,RT1   *FND,XT
      3849   02 00A5C    69300000 F            BNE      SRCH3
      3850                            *
      3851   02 00A5D    64E00A59              BDR,CT   SRCH5
      3852                            *
      3853         00F10100                    FI
      3854                            *
      3855                            * THE NAMES COMPARE, BUT THEIR SIZES MAY DIFFER
      3856                            *
      3857   02 00A5E    72E00008 03           LB,CT    HED
      3858   02 00A5F    F1E00034 03           CB,CT    *FND
      3859         001F0100                    IF,EQ                      DOIF SAME LENGTH
             02 00A60    69300AAB
      3860   02 00A61    33100049 03           MTW,1    SRCHXIT           CHANGE TO TAKE 'FOUND' EXIT
      3861   02 00A62    326E0001 A            LW,N     GLOFFSET,M1
      3862   02 00A63    25600070 A            SLS,N    -16
      3863   02 00A64    32EE0000 A            LW,CT    PTROFFSET,M1
      3864   02 00A65    32F00AED              LV,RL    DSSYMBIT          SAVE .DS CN BIT IN CASE WE NEED IT
      3865   02 00A66    4BF0000E A            AND,RL   CT
      3866   02 00A67    47F00032 03           STS,RL   DSLNCTRL
      3867   02 00A68    31E00AFC              CW,CT    =PTRFLD+CLOFLD    EXIT IF THIS FIELD IS OPEN AND
      3868   02 00A69    E8400049 03           BAZ      *SRCHXIT            NOT A POINTER
      3869                            *
      3870         001F0200                    IF,FNZ   CLOFLD,CT
             02 00A6A    31E00AEA
             02 00A6B    68400A6E
      3871   02 00A6C    6AF00A04              CALL     CREATE1STS
      3872         000E0200                    ELS
             02 00A6D    68000A86
      3873   02 00A6E    32700006 A            LW,M1    N
      3874   02 00A6F    22100000 A            LI,XT    0                 CLEAR 'FOUND LOCATION' FLAG
      3875                            *
      3876                            * FOLLOW THE POINTER TO THE LAST OPEN SYMBOL TABLE ENTRY
      3877                            *
      3878   02 00A70                 SRCH11   RES      0
      3879   02 00A70    20700008 03           AI,M1    HED
      3880   02 00A71    6AF00A22              CALL     MAP%ADDR
      3881   02 00A72    32EE0000 A            LW,CT    PTROFFSET,M1
      3882         001F0300                    IF,FZ    CLOFLD,CT         DOIF ENTRY NOT CLOSED
             02 00A73    31E00AEA
             02 00A74    69400A76
      3883   02 00A75    32100040 03           LW,XT    M1SAVE            LAST OPEN (REAL) ADDR      /27466/*D-NCD
      3884         00F10300                    FI
      3885         001F0300                    IF,FNZ   PTRFLD,CT         DOIF NOT END OF POINTER CHAIN
             02 00A76    31E00AEC
             02 00A77    68400A7B
      3886   02 00A78    327E0001 A            LW,M1    SNOFFSET,M1
      3887   02 00A79    25700070 A            SLS,M1   -16
      3888   02 00A7A    68000A70              B        SRCH11
      3889                            *
      3890         00F10300                    FI
      3891                            *
      3892         001F0300                    IF,NE    0,XT
             02 00A7B    21100000 A
             02 00A7C    68300A86
      3893   02 00A7D    32700001 A            LW,M1    XT
      3894   02 00A7E    6AF00A22              CALL     MAP%ADDR          GET LAST OPEN IN           /27466/*D-NCD
      3895   02 00A7F    32EE0000 A            LW,CT    PTROFFSET,M1
      3896   02 00A80    326E0001 A            LW,N     GLOFFSET,M1       SAVE SYMBOL NUMBER OF LAST OPEN SYM
      3897                            *
      3898                            *    SYMBOL NUMBER IS IN 'SN' FIELD IF PTR=0; OTHERWISE SYMBOL NUMBER
      3899                            *      IS IN THE 'GL' FIELD.
      3900                            *
      3901         001F0400                    IF,FZ    PTRFLD,CT
             02 00A81    31E00AEC
             02 00A82    69400A84
      3902   02 00A83    25600070 A            SLS,N    -16
      3903         00F10400                    FI
      3904   02 00A84    4B600AF4              AND,N    L(GLFLD)
      3905   02 00A85    E8000049 03           B        *SRCHXIT
      3906                            *
      3907         00F10300                    FI
      3908         00F10200                    FI
      3909   02 00A86    32F00049 03           LW,RL    SRCHXIT
      3910                            *
      3911   02 00A87                 NEWENTS  RES      0
      3912   02 00A87    35F00049 03           STW,RL   SRCHXIT           SAVE RETURN
      3913   02 00A88                 %40      RES      0                                            /27466/*D-NCD
      3914   02 00A88    329E0000 A            LW,RT2   PTROFFSET,M1
      3915         001F0200                    IF,FZ    PTRFLD,RT2
             02 00A89    31900AEC
             02 00A8A    69400AA6
      3916   02 00A8B    32900AEC              LW,RT2   =PTRFLD
      3917   02 00A8C    479E0000 A            STS,RT2  PTROFFSET,M1
      3918   02 00A8D    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      3919   02 00A8E    32900000 X            LW,RT2   NEXTST
      3920   02 00A8F    3890004A 03           SW,RT2   SYMLMT
      3921   02 00A90    4B900B02              AND,RT2  L(X'1FF')
      3922   02 00A91    219001FF A            CI,RT2   X'1FF'
      3923         001F0300                    IF,EQ
             02 00A92    69300A94
      3924   02 00A93    33100000 X            MTW,+1   NEXTST            ROUND TO SPILL PAGE BOUND
      3925         00F10300                    FI
      3926   02 00A94    32900000 X            LW,RT2   NEXTST
      3927   02 00A95    328E0001 A            LW,RT1   SNOFFSET,M1
      3928   02 00A96    25800070 A            SLS,RT1  -16
      3929   02 00A97    55900008 A            STH,RT2  RT1
      3930   02 00A98    358E0001 A            STW,RT1  SNOFFSET,M1
      3931   02 00A99    32700000 X            LW,M1    NEXTST
      3932   02 00A9A    33200000 X            MTW,2    NEXTST
      3933   02 00A9B    20700008 03           AI,M1    HED
      3934   02 00A9C    6AF00A22              CALL     MAP%ADDR          GET (POSSIBLY) NEW PAGE
      3935   02 00A9D    22600000 A            LI,N     0
      3936   02 00A9E    356E0000 A            STW,N    PTROFFSET,M1
      3937   02 00A9F    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      3938   02 00AA0    32600000 X            LW,N     NXSYMB
      3939   02 00AA1    25600010 A            SLS,N    16
      3940   02 00AA2    356E0001 A            STW,N    SNOFFSET,M1
      3941   02 00AA3    33100000 X            MTW,1    NXSYMB
      3942   02 00AA4    25600070 A            SLS,N    -16
      3943   02 00AA5    E8000049 03           B        *SRCHXIT
      3944                            *
      3945         00F10200                    FI
      3946   02 00AA6    327E0001 A            LW,M1    SNOFFSET,M1
      3947   02 00AA7    25700070 A            SLS,M1   -16
      3948   02 00AA8    20700008 03           AI,M1    HED
      3949   02 00AA9    6AF00A22              CALL     MAP%ADDR          GET (POSSIBLY) NEW PAGE
      3950   02 00AAA    68000A88              B        %40               FIND END OF CHAIN          /27466/*D-NCD
      3951                            *
      3952         00F10100                    FI
      3953         00F10000                    FI
      3954                            *
      3955                            * SYMBOLS NOT EQUAL. TAKE LESSER OR GREATER LINK
      3956                            *
      3957   02 00AAB                 SRCH3    RES      0
      3958   02 00AAB    3570003F 03           STW,M1   M0
      3959         001F0000                    IF,LE
             02 00AAC    69200AB1
      3960   02 00AAD    22A00000 A            LI,RT3   0
      3961   02 00AAE    35A00031 03           STW,RT3  DIR
      3962   02 00AAF    327E0000 A            LW,M1    LLOFFSET,M1
      3963   02 00AB0    68000A48              B        SRCH1
      3964                            *
      3965         00F10000                    FI
      3966   02 00AB1    22A00001 A            LI,RT3   1
      3967   02 00AB2    35A00031 03           STW,RT3  DIR
      3968   02 00AB3    327E0001 A            LW,M1    GLOFFSET,M1
      3969   02 00AB4    68000A48              B        SRCH1
1
      3971                            *
      3972                                     LOCAL    INS1
      3973   02 00AB5                 INSERTS  RES      0
      3974   02 00AB5    35F00049 03           STW,RL   SRCHXIT           SAVE RETURN
      3975   02 00AB6    15400024 03           STD,SYN  NSRTR1            SAVE REGS. SYN AND LVL
      3976                            *
      3977                            *        ENSURE THAT THIS ENTRY WILL FIT ENTIRELY WITHIN ONE PAGE.
      3978                            *
      3979   02 00AB7    32100000 X            LW,XT    NEXTST
      3980   02 00AB8    3810004A 03           SW,XT    SYMLMT
      3981   02 00AB9    4B100B02              AND,XT   L(X'1FF')         XT IS 0 - 511
      3982   02 00ABA    72700008 03           LB,M1    WDCTWD            GET # WORDS IN NAME
      3983   02 00ABB    30700001 A            AW,M1    XT
      3984   02 00ABC    20700002 A            AI,M1    2                 PLUS 2 CONTROL WORDS
      3985   02 00ABD    21700200 A            CI,M1    512
      3986         001F0000                    IF,G                       MUST MOVE UP TO NEXT PAGE
             02 00ABE    68200AC2
      3987   02 00ABF    22700200 A            LI,M1    512
      3988   02 00AC0    38700001 A            SW,M1    XT
      3989   02 00AC1    66700000 X            AWM,M1   NEXTST
      3990         00F10000                    FI
      3991   02 00AC2    3270003F 03           LW,M1    M0
      3992   02 00AC3    30700031 03           AW,M1    DIR
      3993   02 00AC4    32100000 X            LW,XT    NEXTST            OFFSET
      3994   02 00AC5    471E0000 A            STS,XT   LLOFFSET,M1
      3995   02 00AC6    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      3996   02 00AC7    32700000 X            LW,M1    NEXTST
      3997   02 00AC8    20700008 03           AI,M1    HED
      3998   02 00AC9    6AF00A22              CALL     MAP%ADDR          GET (POSSIBLY) NEW PAGE
      3999   02 00ACA    35700034 03           STW,M1   FND
      4000   02 00ACB    32100007 A            LW,XT    M1
      4001   02 00ACC    201FFFF8 N            AI,XT    -HED
      4002                            * CLEAR LL(SYMT,NEXTST)  CLEAR FLAGS(SYMT,NEXTST)
      4003                            * MOVE WDCT(HED) TO WDCT(SYMT,NEXTST)
      4004   02 00ACD    32700008 03           LW,M1    WDCTWD
      4005   02 00ACE    4B700AFD              AND,M1   =X'FF000000'
      4006   02 00ACF    35720008 03           STW,M1   LLWD,XT
      4007   02 00AD0    3310003C 03           MTW,+1   INCORESF          SET DIRTY-PAGE FLAG
      4008                            *  MOVE (NXSYMB) TO SN(SYMT,NEXTST)  CLEAR GL(SYMT,NEXTST)
      4009   02 00AD1    32E00000 X            LW,CT    NXSYMB
      4010   02 00AD2    25E00010 A            SLS,CT   16
      4011   02 00AD3    35E20009 03           STW,CT   SNWD,XT
      4012                            * MOVE SYMBOL(SYMT) TO SYMBOL(SYMT,NEXTST)
      4013   02 00AD4    72800008 03           LB,RT1   WDCTWD            NUMBER OF WORDS CONTAINING NAME
      4014   02 00AD5                 INS1     RES      0
      4015   02 00AD5    32EE000A 03           LW,CT    SYM1,M1
      4016   02 00AD6    35E2000A 03           STW,CT   SYM1,XT
      4017   02 00AD7    20100001 A            AI,XT    1
      4018   02 00AD8    20700001 A            AI,M1    1
      4019   02 00AD9    64800AD5              BDR,RT1  INS1
      4020                            *
      4021   02 00ADA    32700034 03           LW,M1    FND               EXIT WITH FOUND ADDRESS IN M1
      4022   02 00ADB    32600000 X            LW,N     NXSYMB              AND SYMBOL NUMBER IN N.
      4023   02 00ADC    33100000 X            MTW,+1   NXSYMB
      4024   02 00ADD    72E00008 03           LB,CT    WDCTWD
      4025   02 00ADE    20E00002 A            AI,CT    2
      4026   02 00ADF    66E00000 X            AWM,CT   NEXTST
      4027   02 00AE0    12400024 03           LD,SYN   NSRTR1
      4028   02 00AE1    E8000049 03           B        *SRCHXIT
      4029                            *
      4030                            NCDREND  END
             02 00AE2    FFFFFE00 A
             02 00AE3    40404040 A
             02 00AE4    000003FF A
             02 00AE5    0000C3FF A
             02 00AE6    00003C00 A
             02 00AE7    00001FFF A
             02 00AE8    00800000 A
             02 00AE9    00080000 A
             02 00AEA    00200000 A
             02 00AEB    00FE0000 A
             02 00AEC    00400000 A
             02 00AED    00100000 A
             02 00AEE    0000000A A
             02 00AEF    405E4040 A
             02 00AF0    00E00000 A
             02 00AF1    FFFF0000 A
             02 00AF2    0000000F A
             02 00AF3    10000000 A
             02 00AF4    0000FFFF A
             02 00AF5    00A00000 A
             02 00AF6    20000000 A
             02 00AF7    00FFFFFF A
             02 00AF8    40E2C9C7 A
             02 00AF9    01000000 A
             02 00AFA    7FFFFFFF A
             02 00AFB    000000FF A
             02 00AFC    00600000 A
             02 00AFD    FF000000 A
             02 00AFE    00040000 A
             02 00AFF    00030000 A
             02 00B00    FFEFFFFF A
             02 00B01    00004000 A
             02 00B02    000001FF A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00B03   PT 1     03 00055   PT 0
1
  *    SYMBOL VALUES
           ABORT21/00000015         ABORT3/00000003          ABORT4/00000004          ABSVAL#/00000047
           ACUM/02 006FF            ACUMLNK/03 0003F         ACUMSPCH/02 0000A        ACUMX/02 00719
           ACUMX1/02 0071A          ACUMX2/02 0071E          ACUM1/02 00700           ADDRESS/000003FF
           ADDRSIZE/0000000A        AF#/0000003E             AFA#/0000003F            AFTER%LS/02 003BC
           ALF/02 002C9             ALFLAG/03 00026          ALF1/02 002CC            ALF2/02 002D2
           ALF3/02 002D9            ALF4/02 002E1            ALF5/02 002D5            ALF6/02 002E7
           ALF7/02 002E6            ALPH/00000010            ANDOP/00000022           ANYLABEL/02 001CC
           AOV1/02 00713            AOV2/02 00715            AR/00000000              ASECT#/00000009
           ATTRIBCK/02 00662        BA#/00000043             BALFLD/00030000          BALWD/03 00008
           BEGINEXP/00000007        BEGINLIST/00000006       BLANK/02 002EB           BLANKEXP/00000005
           BLANK16/02 002ED         BLDCONE6/02 006F7        BLDCONX1/02 006F9        BLNKLBL/02 00301
           BLNKLBL2/02 002F1        BLNKLBL3/02 00311        BLNKLBL5/02 00316        BLNK1/02 002EE
           BLNK2/02 002F4           BLNK3/02 002FE           BLNK4/02 002FA           BOFFSET/00000000
           BOUND#/00000013          BTBL/02 0076B            BUFPTR/03 00027          CARDADDR/03 00028
           CF#/00000040             CF1BUF/EXT               CF1FLD/00800000          CF1OUT/02 0096C
           CF1OUT1/02 00970         CF1SYM/02 0031A          CF1S2/02 00330           CF1S7/02 0032B
           CF1S8/02 0032C           CHAR/02 00425            CHARACTEREF/02 002A8
           CHARTEMP/03 00029        CHAR1/02 00430           CHAR2/02 00467           CHAR4/02 00469
           CHAR5/02 00433           CHAR6/02 0046C           CHAR7/02 00477           CHAR8/02 00475
           CHAR9/02 0047F           CHK%PRNT/02 0099C        CIREGS/02 000FC          CLOFLD/00200000
           CLOSE/02 001E4           CLOSE#/00000001          CLOSEDIR/00004001        CLOSESYM/02 00481
           CL1/02 0024A             CL2/02 00240             CL3/02 00239             CL4/02 00223
           CL5/02 0021F             CL6/02 00215             CL6A/02 00218            CMNDERR/02 00341
           CMPCHAR/03 0002A         CMPEND/02 00404          CMPEND15/02 00409        CMPEND20/02 00412
           CMPEND25/02 00413        CMPOUT/02 0040D          CMPOUTSV/03 00054        CMPOUT3/02 00410
           CMPRPT/02 003F6          CMPRPT5/02 003FE         CMP15/02 003C7           CMP16/02 003C9
           CMP17/02 003CD           CMP25/02 003D6           CMP26/02 003D9           CMP35/02 003E3
           CMP45/02 003E8           CMP46/02 003E9           CMP50/02 003EE           CMP55/02 003F0
           CMP60/02 003F4           CNAME#/00000014          CNAMEDIR/00004014        CNCMND/02 001A6
           CNCTRL/03 0002B          CNDSCMND/02 001B9        CNDSFLG/00020000         CNDSMODE/00000006
           CNERR/00004000           CNERR1/02 0038B          CNERR1%MSG/02 000DA      CNERR2/02 00396
           CNFLGFLD/00FE0000        CNIOCMND/02 001B2        CNIOFLG/00800000         CNIOFLG1/00400000
           CNIOMODE/00000003        CNLIST/02 001BD          CNLOOP/02 00178          CNOSCMND/02 001B6
           CNOSFLG/00080000         CNOSMODE/00000005        CNSSCMND/02 001B4        CNSSFLG/00200000
           CNSSFLG1/00100000        CNSSMODE/00000004        CNSYM/02 0036D           CNSYN/02 001A3
           CO%REGS/02 00103         COM#/00000015            COMDIR/00004015          COMMACK/02 00489
           COMMACK1/02 0048A        COMMAND/02 001D0         COMNT#/00000000          COMNTDIR/00004000
           COM1/02 001D6            CONTIN%ERROR/03 0002C                             CONVTBL/02 0009A
           CREATE1ST/02 00495       CREATE1STS/02 00A04      CREATE1STV/03 0002D      CRE8XIT/03 0002E
           CRG/00000007             CS#/00000048             CSECT#/00000016          CT/0000000E
           CTBL/02 0076D            CT1/00000100             CT2/00000200             CT3/00000300
           CT4/00000400             CT5/00000500             CURLOCNT/03 00030        CURRCMND/03 0002F
           DA#/00000046             DATA#/00000008           DEC/00000020             DEF#/0000000F
           DELIM/02 0048D           DF1/02 006F0             DIR/03 00031             DIRBR/02 0000C
           DIRFLD/00040000          DIRWD/03 00008           DISP#/00000017           DIV/02 00746
           DIVOP/0000002B           DO#/00000018             DOFFSET/00000000         DOFX/02 006ED
           DO1#/00000019            DRIVER/02 00279          DRIVEREXIT/03 00000      DRIVR1/02 00290
           DRIVR2/02 00294          DRIVR3/02 00297          DSECT#/0000001A          DSLNCTRL/03 00032
           DSSYMBIT/00100000        DV1/02 00754             ELSE#/0000000B           ENCTLOB/00000012
           ENCTYPE/0000E000         ENCVAL/00001FFF          END#/00000007            ENDBUF/000020FF
           ENDCNCOM/02 00365        ENDCNDS/02 0035C         ENDCNIO/02 00362         ENDCNSS/02 00364
           ENDDIR/00004007          ENDEQN/02 002C2          ENDEXP/00000004          ENDIRCTV/02 008D0
           ENDLINE/02 004A9         ENDLINE1/02 004B2        ENDLINE2/02 004B0        ENDLIST/00000002
           ENDLN/00000000           ENDSBSYM/00000003        EQU#/0000001B            EQUALOP/00000023
           ERROR#/0000001C          ETBL/02 0077A            EXCHSLOC/02 004B5        EXCHS1/02 004B7
           EXITS/02 006E7           EXITSYN/02 002C8         EXPR/02 00205            EXS1/02 006EB
           FALSE/02 002AC           FALSE1/02 002B8          FALSE2/02 002B5          FA1/02 00248
           FA2/02 0023E             FA3/02 00237             FA4/02 00221             FA5/02 0021D
           FC1/02 0069B             FC2/02 006A8             FC3/02 006AF             FC4/02 006BB
           FFFGNC/02 00720          FFFGNCLNK/03 00025       FFFSAVE/03 0000A         FIN#/0000000C
           FIRSTREC/03 00033        FIRSTST/03 00050         FIRSTSTSDF/EXT           FLC/02 00696
           FNAME#/0000001D          FNAMEDIR/0000401D        FND/03 00034             FSC/02 00699
           FXC/02 00693             FXDORFLT/02 0026D        GEN#/0000001E            GET2/02 0072A
           GET2REGS/03 0001C        GF/02 001F9              GFN/02 001FB             GLFLD/0000FFFF
           GLOFFSET/00000001        GLWD/03 00009            GOTO#/0000001F           GRTROP/00000027
           GTEQOP/00000025          HA#/00000044             HED/03 00008             HEDSDF/00000003  S
           HEX/00000080             HEXC/02 004DF            HEXC1/02 004E2           HEXC10/02 0050B
           HEXC11/02 0050C          HEXC2/02 004EB           HEXC3/02 004EF           HEXC5/02 004FC
           HEXC6/02 00501           HEXC7/02 00505           HEXC8/02 004FE           HEXC9/02 00509
           I/00000008               I:#/00000053             IM@MAJOR/EXT             IM@MINOR/EXT
           IN/00000002              INBUF/03 00035           INBUFLMT/03 00036        INCLDIV/0000002C
           INCOREB#/03 00037        INCOREBMAX/03 00038      INCOREH/03 0003B         INCOREL/03 0003A
           INCORELH/03 0003A        INCORESF/03 0003C        INCR/00003C00            INCRSIZE/00000004
           INDIROP/00000008         INIT%CO%WORD/02 00102                             INIT0/02 0015D
           INIT1/02 0015E           INIT2/02 0016A           INSERT/02 007F2          INSERTS/02 00AB5
           INSERTV/03 0003D         INS1/02 00835            INS5/02 00866            INS6/02 00868
           INS7/02 0086E            INS8/02 0086F            INTBLE/02 0009A          INTBLO/02 00014
           INTEGER/02 004BF         INTGR1/02 004C6          IO%X1/02 00989           IO%X1A/02 0098B
           IO%X3/02 0098E           IOADD/00000008           IORL/0000000A            IOSIZE/00000009
           L#/0000004F              LABEL/02 001C4           LARGEINT/0000E000        LASTCMND/03 00001
           LASTIN/03 00002          LCLDLTE/02 00511         LCLDL1/02 00518          LESSOP/00000028
           LF#/00000041             LINE/02 001C2            LINE#1/02 0043F          LINE#2/02 00443
           LINE#3/02 00452          LINE#4/02 00455          LINE#5/02 0045F          LINE#6/02 00445
           LINE#7/02 00449          LINE#8/02 0045A          LIST/02 0020E            LIST#/00000020
           LL/00000006              LLFLD/0000FFFF           LLOFFSET/00000000        LLWD/03 00008
           LOC#/00000021            LOCAL/02 001EA           LOCAL#/00000002          LOCALSYM/02 00523
           LOCAL1/02 001EB          LOCSYM1/02 00538         LOCX/03 00003            LS#3/02 003B8
           LS#4/02 003B5            LS#5/02 003B9            LTEQOP/00000026          LVL/00000005
           LVLBASE/03 0003E         LVLMOVE/02 00547         LVLMOVE2/02 00548        LVLTBL/00000000
           MAP%ADDR/02 00A22        MF1/02 006C8             MF2/02 006CC             MF3/02 006CF
           MF4/02 006DA             MF5/02 006E6             MINUS%ONE/02 004DB       MINUSOP/00000029
           MPYOP/0000002D           MUL/02 0073A             M0/03 0003F              M1/00000007
           M1SAVE/03 00040          N/00000006               NAME#/00000042           NEWENTRY/02 007CB
           NEWENTRYV/03 00041       NEWENTS/02 00A87         NEWEN1/02 007E4          NEXTLEVEL/02 0029A
           NEXTLINE#/03 00042       NEXTSTSDF/00000001  S    NM1/02 00759             NM2/02 0075C
           NORM/02 00758            NOTINCR/0000C3FF         NOTSYNREF/02 002A4       NSRTR1/03 00024
           NSRTR2/03 00025          NS1/02 008B3             NS10/02 008C3            NS2/02 0084F
           NS3/02 00874             NS4/02 00870             NS49/02 0089D            NS5/02 008B4
           NS6/02 008C5             NS7/02 00890             NS9/02 008BE             NTHCLOSE/02 001E8
           NTHCNSYM/02 001C0        NTHLOCAL/02 001F0        NTHOPEN/02 001E2         NUM#/00000049
           NUMOUT/02 004F5          NUMOUT1/02 004F9         NUMOUT2/02 004FD         NUMRECX1/03 0004F
           NUMRECX3/03 00043        NXSYMBSDF/00000002  S    NXTLOC/03 00044          OCT/00000040
           OCTC/02 00556            OPEN/02 001DE            OPEN#/00000003           OPENSYM/02 0055A
           OPENSYM1/02 0055E        OPENSYM2/02 00561        OPENSYM3/02 00632        OPENSYM4/02 0055F
           OPERAND/02 001F6         OPTNLC/02 00274          OPTNLIST/02 001BB        OR/02 002C3
           ORCHAR/02 00216          ORG#/00000022            OROP/00000020            OUT/00000003
           OUTBUF/EXT               OUTSAVE/03 00053         OUTSIZE/EXT              OVERFLOW/02 008CE
           OVFLAG/03 00052          PAGE#/0000000D           PAGEDIR/0000400D         PCC#/0000000E
           PEND#/00000006           PENDDIR/00004006         PKDEC/02 005CE           PKDEC1/02 005D9
           PKDEC2/02 005DB          PKDEC3/02 005DC          PKDEC4/02 005E4          PKDEC5/02 005E0
           PKDEC7/02 005F5          PKDEC8/02 005F9          PKDEC9/02 005FC          PLOC/03 00006
           PLUSOP/0000002A          PRIMARY/02 0024D         PRIM1/02 0025D           PRINT/02 00998
           PROC/02 001DC            PROC#/00000005           PROCLV/03 00007          PRODSDF/02 009D4
           PRSDF15/02 009E0         PRSDF20/02 009E9         PRSDF25/02 009F2         PSECT#/00000023
           PSR#/00000012            PSYS#/00000024           PTRFLD/00400000          PTRLOB/00000009
           PTROFFSET/00000000       PTRWD/03 00008           P1/02 00002              RCMOVE/02 00416
           RDSDF/02 009A8           RDSDFERR/02 009C8        RDSDF15/02 009C2         RDSYMTAB/02 009CA
           RDSYMT10/02 009CF        READCARD/02 0039B        REF#/00000010            REPEAT/02 002C6
           RES#/00000025            RESETCHT/02 00691        RESETOUT/02 00343        RL/0000000F
           RNG%DFN%DIR/02 00004                              RNG%SPC%DIR/02 00006
           RNG%SYN%DIR/02 00008                              RT1/00000008             RT2/00000009
           RT3/0000000A             RT4/0000000B             RT5/0000000F             S:AAD#/0000002D
           S:C#/0000002E            S:D#/0000002F            S:DPI#/00000030          S:EXT#/00000031
           S:FL#/00000032           S:FR#/00000033           S:FS#/00000034           S:FX#/00000035
           S:IFR#/0000004A          S:INT#/00000036          S:IVAL#/0000003B         S:KEYS#/00000051
           S:LFR#/00000037          S:LIST#/00000038         S:NUMC#/0000004B         S:PT#/0000004C
           S:RAD#/00000039          S:S/FUNC                 S:SIN#/00000026          S:SUM#/0000003A
           S:UFV#/0000004D          S:UT#/0000004E           SBLSYM/0000804F          SBSYM/00008000
           SCALEOP/0000002E         SCOR#/00000052           SDFCONNCDR/03 00004      SDFCONSDF/00000004  S
           SDFOUT/02 009F9          SDFOUT3/02 009FE         SEARCH/02 00788          SEARCHS/02 00A43
           SEARCHV/03 00045         SEMANBAS/02 002C2        SET#/00000027            SETCNCOM/02 00356
           SETCNDS/02 00354         SETCNIO/02 00345         SETCNOS/02 0034E         SETCNSS/02 00348
           SETPROCLV/02 00600       SIBUF/EXT                SIGFLAG/03 00046         SIGN/02 0075E
           SIGNLNK/03 00024         SIGN1/02 00760           SIGTAB/02 005B3          SIGTABEND/02 005C8
           SKIP%OPERAND/02 001F4                             SKIPNB/02 00608          SLOC/03 00047
           SMALLINT/0000C000        SNFLD/DPI                SNOFFSET/00000001        SNWD/03 00009
           SOCW#/0000000A           SPACE#/00000028          SPILL%MSG/02 000E4       SPILL%MSG%AVL/02 000F4
           SPILL%MSG%REQ/02 000EC                            SPILLFLG/03 00048        SRCHXIT/03 00049
           SRCH1/02 00791           SRCH10/02 007BD          SRCH11/02 007B8          SRCH12/02 007C9
           SRCH13/02 007CA          SRCH2/02 00797           SRCH3/02 007E8           SRCH4/02 0079E
           SRCH5/02 007A0           SRCH6/02 007A5           SRCH7/02 007EF           SRCH8/02 007EC
           SRCH9/02 007B6           SREF#/00000011           SR1/00000008             SR2/00000009
           SR3/0000000A             STBL/02 00781            STDLABEL/02 001C8        STLOOP/02 00174
           STLOOP1/02 00180         STLOOP2/02 00186         STLOOP4/02 0019F         STLOOP5/02 0019B
           STLOOP6/02 0019C         STSTSYMB/02 00566        SUBSYMB/02 00276         SWAPLOC/02 0060E
           SWPL1/02 00627           SWPL2/02 00625           SYMBOL/02 0066B          SYMBUF/EXT
           SYMB1/02 00675           SYMB2/02 00676           SYMB3/02 0067D           SYMB4/02 00681
           SYMB5/02 00689           SYMB6/02 0068E           SYMB7/02 0068F           SYMIOUT/02 00973
           SYMIOUT3/02 00979        SYMIOUT4/02 0097A        SYMIOUT5/02 00982        SYMLMT/03 0004A
           SYMLMTM1/03 0004B        SYMLMTM18/03 0004C       SYMOUT/02 00633          SYMTLMT/03 0004D
           SYMTOUT/02 008DC         SYMTOUT2/02 008DF        SYMTOUT4/02 008EF        SYMTOUT6/02 008FA
           SYMTYPE/00004000         SYM1/03 0000A            SYN/00000004             SYNERR/0000000A
           SYNTAX/02 001A3          SYSCODE/02 005C8         SYSTEM/02 001F2          SYSTEM#/00000004
           SYSTEM15/02 0056F        SYSTEM20/02 0057D        SYSTEM25/02 0057F        SYSTEM40/02 00583
           SYSTEM50/02 0058B        SYSTEM52/02 00593        SYSTEM55/02 0059A        SYSTEM60/02 005A0
           SYSTEM75/02 005A2        SYSTEM77/02 005A6        SYSTEM85/02 005AF        TAB/00000005
           TCOR#/00000053           TERM/02 00213            TEXT#/00000029           TEXTC#/0000002A
           TITLE#/0000002B          TREE/02 001FF            TRUE/02 002B3            TRUE1/02 002A0
           TRUNERR/00000009         TYPE/0000C000            TYPESIZE/00000002        TYPE1OR/00004001
           TYPE1REPEAT/00004004                              U/00000006               UNEQLOP/00000024
           USECT#/0000002C          V/00000004               VWX/00000001             W/00000005
           WA#/00000045             WDCTWD/03 00008          WDOUT/02 00639           WDOUTRTN/03 0004E
           WDOUT1/02 0063F          WDOUT3/02 0064D          WDOUT7/02 0065C          WDOUT9/02 00660
           WRICONST/02 002E4        WRISYM/02 00928          WRISYMBOL/02 00631       WRISYM10/02 00939
           WRISYM20/02 00941        WRISYM30/02 0094F        WRISYM31/02 00950        WRISYM35/02 0095E
           WRISYM40/02 00968        WRITE/02 00636           WRITELOCALCT/02 00553
           X/00000007               XOROP/00000021           XT/00000001              XTSAVE/03 00051
           X1/00000001              X2/00000002              X3/00000003              X4/00000004
           X5/00000005              X6/00000006              X7/00000007              ZERO/02 00000
           7FDPWORD/02 005B4        %%#/0000003D             %#/0000003C              #SYSITEM/03 00005
  *    EXTERNAL DEFINITIONS
           CNTERM/02 0037B          LINK/0000000D            NCDP/02 00000            NCDR/02 00106
           NCDREND/02 00B03         XAPD1/03 00000
  *    PRIMARY REFERENCES
           ABORT          BUFSI          BYX3SIZE       CIRDREGS       CIREC#         CLRLSTBF       CO%BUF
           CO%REGI        COMPTE%CI      DC%FLAG        DEDIT          ENDCORE        EOF%FLAG       FIN%X1
           HWX1SIZE       HWX3SIZE       IM@COPY        IM@END         IM@NAME        IM@READ        IM@SYS
           LAST%UPDATE    LOWCORE        LS%FLAG        LSTBF          MAJLINE        ND%FLAG
           NEXT%UPDATE    NEXTST         NIVO           NXSYMB         OPENX5         PD%FLAG        PLUS
           POSITIONX1     POSITIONX3     READC          READSTD        READX1         READX5         REWSTD
           REWX1          REWX3          ROOTRTN        SAVAREA        SDFCON         SKIP%COUNT     SUBLINE
           UPDATE%LINE%COUNT             VAL%S:IVAL     WDX1SIZE       WDX3SIZE       WRITELO        WRITESTD
           WRITEX1        WRITEX3        WRITEX5        X1BUF          X3BUF          #BLANKS
  * NO SECONDARY REFERENCES
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
