BANNER TELEFILE,AP H00,APDG.
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     DDDDDDDDDDD       GGGGGGGGGGG
                                  AAAAAAAAAAAAA    PPPPPPPPPPPPP    DDDDDDDDDDDD     GGGGGGGGGGGGG
                                  AA         AA    PP         PP    DD         DD    GG         GG
                                  AA         AA    PP         PP    DD         DD    GG         GG
                                  AA         AA    PP         PP    DD         DD    GG
                                  AAAAAAAAAAAAA    PPPPPPPPPPPPP    DD         DD    GG
                                  AAAAAAAAAAAAA    PPPPPPPPPPPP     DD         DD    GG      GGGG
                                  AA         AA    PP               DD         DD    GG      GGGGG
                                  AA         AA    PP               DD         DD    GG         GG
                                  AA         AA    PP               DD         DD    GG        GGG
                                  AA         AA    PP               DDDDDDDDDDDD     GGGGGGGGGGGGG
                                  AA         AA    PP               DDDDDDDDDDD       GGGGGGGGG GG




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     DDDDDDDDDDD       GGGGGGGGGGG
                                  AAAAAAAAAAAAA    PPPPPPPPPPPPP    DDDDDDDDDDDD     GGGGGGGGGGGGG
                                  AA         AA    PP         PP    DD         DD    GG         GG
                                  AA         AA    PP         PP    DD         DD    GG         GG
                                  AA         AA    PP         PP    DD         DD    GG
                                  AAAAAAAAAAAAA    PPPPPPPPPPPPP    DD         DD    GG
                                  AAAAAAAAAAAAA    PPPPPPPPPPPP     DD         DD    GG      GGGG
                                  AA         AA    PP               DD         DD    GG      GGGGG
                                  AA         AA    PP               DD         DD    GG         GG
                                  AA         AA    PP               DD         DD    GG        GGG
                                  AA         AA    PP               DDDDDDDDDDDD     GGGGGGGGGGGGG
                                  AA         AA    PP               DDDDDDDDDDD       GGGGGGGGG GG




ASSIGN M:CI,(FILE,CI:APDG,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APDG,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    ABORT
             58/REF
    ABORT0
           7790/ABORT
    ABORT2
           6710/ABORT
    ADDFLD
            214/CV        3231/LV        3929/AND       5154/CV        5429/AND       5453/CV        6690/AND
           6694/AND       6869/CV
    ADDLOB
           5430/SHIFT
    ADDRET
           4984/LV        5171/LV        5367/CV        5435/CV        5477/LV
    ADFLD
           5457/BFNZ      5466/AND       6342/EOR       6735/LV        6736/LV        6867/CV
    ADJKLINE
             80/REF       2867/BAL
    ADV%ITM
             81/REF       4945/BAL       4953/BAL       5004/BAL       5012/BAL       5030/BAL       6018/BAL
           6088/CALL
    AEDIT
             86/REF       1531/BAL       2072/BAL
    AF
           2938/COM       2989/COM       4402/COM
    AFSSYM
           4515/CV
    AFSYM
           4511/CV
    ANZ
           2041/IF        5138/IF
    ARFLD
           3230/LV        3918/AND       4750/AND       5421/LV        5447/AND       5468/LV        5500/AND
           5546/AND       6814/LV        6873/LV
    ARG
           1099/LW        1148/LW*       1173/STW       1176/LW*       1179/LW*       1190/STW       1232/LW
           1248/STW       1262/STS*      1270/LW*       1343/STW       1512/STW       1522/LW        1525/MTW
           1540/LW        1542/AWM       1933/LW*       1935/LW        1951/LW*       1967/STS*      1971/LW*
           3227/LW        3250/LW*       3257/LW*       3273/MTW       3276/LB*       3285/LB*       3294/STW
           3578/STW       3769/LW*       3773/LW*       4706/STW       5518/STW       7050/STW
    ARGSAVE
           1100/STW       1172/LW        1189/LW
    ARLOB
            196/SHIFT     3919/SHIFT     4243/SHIFT     5420/SHIFT     5448/SHIFT     5501/SHIFT
           5516/SHIFT
    ASDLR
            192-RES       4981/BAL
    ASDLR1
            206-RES        215/BG         218/BGE
    ASDLR2
            205/BCR        213-RES
    ASECT
            159-RES       2949/DIR
    ASSMBDLR
            190-RES       1339/BAL
    ASTFLD
           2023/BFZ       4763/LV        5121/LV        7162/BFZ       7271/BFNZ
    ASTFLG
           4761/CV        5049/CV        6052/IF        6106/CI        6187/CI
    ASTMSG
            149-TEXT      1530/LI        2071/LI
    ASTRIG
           2005/STW       2024/MTW       2054/MTW       2068/LW
    AZ
           5246/IF
    BA
            369/LI         376/LI         379/LI        1530/LI        2071/LI        4407/EQU       4407/EQU
           7851/LI
    BASE
           1192/STW       1244/CW        1393/STW       1396/LB        1399/LW*       1402/STW*      1404/MTW
    BEDIT
             87/REF        370/CALL       377/BAL        380/BAL
    BEGINLIST
           1108/CV        1630/CI        1685/CI        1690/CI        1865/CI        2686/CI        2717/CI
           3018/CI        3026/CI        6001/CI        6062/CI        7378/CI        7533/CI
    BLANC
             59/REF       1494/CW        1907/LD
    BLANK
           2277/CV
    BLANKET
           3656/LV        5318/CS        5714/CV        6911/CV
    BLANKEXP
           1105/CI        2684/CI        4580/CI        6025/CI
    BLANKITM
           3658/AV
    BLDPLT
            243-RES       4972/BAL
    BLDPLTXIT
            244/STW        272/B*         710/STW
    BLDPLT1
            245-RES        720/B
    BNDEXIT
            354/STW        391/B*
    BND1
            356/BEZ        388-RES
    BO%FLAG
             60/REF       7410/STH
    BO%SIZE
             61/REF       7413/STW
    BOBUF
             34/DEF       7436/LB
    BOCT
           7411/STW       7440/MTW
    BOMAX
           7414/STW
    BOUND
            288-RES       2959/DIR
    BOUNDN
            297/BAL        346-RES
    BOUND1
            291/BLEZ       293/BG         296/BNEZ       299-RES
    BOUND4
             39/DEF        300/BAL        317-RES        789/BAL       4382/BAL       7828/BAL
    BYTE2FLD
           4925/LV
    BYTE2LOB
           4921/CV        4923/CV        4927/SHIFT     4932/SHIFT
    BYTE3FLD
           4934/AND
    BYTE3LOB
           4932/SHIFT
    CCFLD
           5804/BFZ       6243/AND       7689/BFNZ      7916/AND
    CCLOB
           4927/SHIFT     5641/AV        6245/SHIFT     6288/AV        6290/AV        7918/SHIFT
    CERR
             88/REF       7963/BAL
    CHCT
           5663/LI        5680/CI        5685/AI        5686/CI        5694/STB       5695/STB       6277/CI
           6279/CI        6285/CI        6295/LI
    CHSTR
           1067/THEF      3270/CV        6209/AV        7955/CV
    CK%PREF
            408-RES        667/BAL       4964/BAL
    CLN%EXP
            433-RES        941/BAL       5736/BAL       5971/BAL
    CLOSE
           2912-RES       2941/DIR
    CLOSEDIR
           1696/CV        7597/CI
    CMND
            768/LW        1577/LW        3021/STW       4466/LW
    CMNDASN
            460-RES        620/BAL        763/BAL       4334/BAL
    CMNDASN1
            470-RES        478/B
    CMNDASN2
            467/BE         475-RES
    CMNDASN3
            464/BFNZ       472/BEZ        479-RES
    CMNDASN4
            482/BFNZ       484-RES
    CMNDCW
            466/CW         488/LW         509/STW        523/CW         757/MTH       1341/STD       1342/LI
           4326/AWM
    CMNDDEF
            508-RES        618/BAL        737/BAL       4313/BAL
    CMNDDEF1
            550/BNE        586-RES
    CMNDDEF8
            541-RES        573/BE
    CMNDLIST
            614/MTW        739/MTW        918/MTW       2006/CW        2115/MTW       2488/MTW       2646/LW
           3023/STW       3028/MTW       3165/MTW       4268/MTW       4314/MTW       4467/AW        6953/MTW
           7108/MTW       7224/MTW
    CMNDLSN
            461/LW         521/STW
    CMNDNAME
            612/LV         780/DATA      4312/LV
    CMPLXSUM
           2825/CV        5568/CS        6727/LV
    CNAME
            611-RES       2960/DIR
    CNAMECOMT
            612/LV
    CNAMEREF
            665-RES       2994/COMT
    CNAMEREF%COMREF
            668/BAL        709-RES        816/BAL
    CNAME1
            622/B          633-RES
    CNAME2
            613-RES       2375/B
    CNAME3
            615/BEZ        617-RES
    CODE
           7846/STW
    COM
            735-RES       2961/DIR
    COMBASE
            129-RES       2904/B         2989/COM
    COMDFLD
            545/BFNZ
    COMDLOB
            546/AV
    COMMENT
           2910-RES       2940/DIR
    COMREF
            815-RES       2992/COMT
    COMREF3
            822-RES       4064/BEZ       4066/B
    COMREF4
            788-RES       2991/COMT
    COMT
           2989-COM
    COMTABLE
           2903/LH        2990-RES
    COMTFLD
           2901/AND
    COMTLOB
           2902/SHIFT
    COM0%CW
            736/LW         780-DATA
    COM0COMT
            780/DATA
    COM1
            625/BAL        770-RES
    COM1COMT
            756/ERROR      757/MTH
    CONSTANT
           1060/CV        2272/CV        3268/CV        3290/LV        4869/AV        5583/AV        6145/AV
           6209/AV        7955/CV
    COUNT
           5961-EQU       6154/MTW       6178/MTW
    CPTRFLD
            468/LV         537/BFZ       1151/BFZ
    CPTRLOB
            469/SHIFT      483/SHIFT      538/SHIFT     2895/SHIFT
    CS
            837/STW       1729/STW       3740/AW
    CSECT
            834-RES       1724/B         2962/DIR
    CSECT1
            836-RES       4154/B
    CSFLD
           3231/LV        3925/AND       5156/CV        5385/AND       5432/AND       5455/CV        5546/AND
           5795/BFNZ      6692/AND       6694/AND       6871/CV
    CSLOB
            220/AV         221/SHIFT     3926/SHIFT     5156/CV        5159/SLS       5386/SHIFT
           5443/SHIFT     5462/SHIFT     6693/SHIFT     6871/CV        6875/SHIFT
    CSNAME
           1726/STW       1731/LW        1738/LW
    CSTBLSIZE
           3722/LI        3729/AI        3734/MI
    CSTLOB
           3739/SHIFT     3741/SHIFT
    CSTYPE
            835/LI
    CS0LOC
           3702/LW
    CS16LOC
           3726/STW       3728/LW
    CT
           1376/LW        1377/SW        1380/LW        1407/BDR       1409/LW        1410/AI        1411/STW
           1412/AW        1413/STW       1414/SW        1415/AI        1421/BIR       1423/LW        1424/SW
           1426/AI        1427/SW        1428/STW       1429/AW        1430/STW       3412/LW        3413/SW
           3418/BDR       4947/SW        5340/AW        5636/CI        5646/BDR       5678/CI        5697/BDR
           6067/LW        6097/LI        6166/OR        6167/STW       6246/LW        6248/SW        6255/LB
    CTELEMENTS
            862-RES       1505/BAL       5195/BAL       6969/BAL
    CTFLD
           3408/AND       4860/AND
    CTLOB
           3409/SHIFT     4861/SHIFT
    CTYPEFLD
           1066/AND       2271/AND       3265/LV        7954/AND
    CTYPELOB
           4867/SHIFT
    DATA
            915-RES       2948/DIR
    DATAGEN
            194/AWM       3703/LW        3706/MTW
    DATA1
            922/BLZ        929-RES
    DATA2
            919/BEZ        931-RES       2909/B
    DATA3
            925/BLE        928/B          934-RES
    DATA4
            938-RES        957/BNE
    DATA5
            944-RES        955/BGZ
    DBLONE
            148-DATA      6454/LD        6486/SD
    DD%TYPE
           1516/LW        3643/STW       3657/STW       4085/STS       4740/STW       4769/AWM       4820/STW
           4822/LW        4865/STW       4890/STW       4985/STW       5108/STW       5173/STW       5260/LW
           5480/STW       5530/STW       5934/STW       6149/STW       6387/STW       6524/AW        6856/STW
           7075/STW       7179/STS       7668/STW
    DDLRCS
           3627/LW        3856/STW       7017/STW       8033/STW
    DDLRRS
           3860/STW       7023/STW       8042/STS
    DDLRVAL
            389/AWM       3630/LW        3858/STW       4283/AWM       7020/STW       7837/AWM       8038/STS
    DDRS
           5409/STW       5419/LW        5449/SW        5502/SW        5515/LW        7184/STW
    DECLRNUM
           1032/AW        1033/MTW
    DEF
            984-RES       2955/DIR
    DEFEXT
            985/LV        1020/CV        1053/CV        1736/LV        1740/LV
    DEFFLD
            712/AND       1030/BFNZ      1049/BFNZ      1261/LV        1948/BFZ       1955/LV        2207/AND
           2502/LV        3290/LV        3903/AND       4378/AND       4750/AND       4781/AND       4960/AND
           5363/AND       5468/LV        5553/LV        5671/LV        5789/AND       6237/LV        6291/LV
           6681/LV        6884/AND       6977/AND       7910/LV        8027/AND
    DEFGEN
             35/DEF       1079-RES
    DEFGEN2
           1081-RES       1887/B
    DEFHEXLBL
             40/DEF        165/CALL       840/CALL       917/CALL      1321-RES       1673/CALL      1735/CALL
           1906/CALL      2487/CALL      2907/CALL      3362/CALL      4267/CALL      8020/CALL
    DEFINE
           1097-RES       1344/BAL       6983/BAL       7053/B
    DEFINE2
             41/DEF       1133-RES
    DEFLBL
           1337-RES       4385/BAL       7831/BAL
    DEFLBLXIT
           1338/STW       1346/BNEZ*     1348/B*
    DEFLOB
            780/DATA      1295/LV        3231/LV        3238/LV        3298/LV        4312/LV        4339/OR
           4722/OR        5158/OR        5165/LV        6735/LV
    DEFLOC
           1183/BAL       1373-RES       4709/BAL
    DEFLOCXIT
           1374/STW       1432/B*
    DEFLOC1
           1378/BNEZ      1382-RES
    DEFLOC2
           1384-RES       1407/BDR
    DEFLOC3
           1398-RES       1405/BDR
    DEFLOC4
           1400/BFNZ      1403-RES
    DEFLOC5
           1397/BEZ       1406-RES
    DEFLOC6
           1417-RES       1421/BIR
    DEFLOC8
           1381/B         1425-RES
    DEFSUB
           1007/BAL       1012-RES       1739/BAL
    DEFSUB1
           1021/BNE       1028-RES
    DEF1
            987-RES       4245/B
    DEF10
           1040/BNEZ      1045-RES
    DEF11
           1046/BFZ       1048-RES
    DEF12
           1049/BFNZ      1051-RES
    DEF2
            991-RES       1005/B         1008/B
    DEF3
           1000/BCR       1003-RES
    DEF4
            998/BE        1006-RES
    DEF7
           1034-RES       1054/BNE
    DEF8
           1016/BFNZ      1038-RES
    DEF9
           1030/BFNZ      1041-RES
    DELETE%DO
           1438-RES       1828/BAL       2701/BAL       4058/BAL
    DELETEXP
             42/DEF        270/BAL       1471-RES       2866/BAL
    DERR
             89/REF        531/BAL        544/BAL        585/BAL       1047/BAL       1960/BAL       1964/BAL
           4629/BAL       4686/BAL
    DESTIN
           1411/STW       1419/STW*      2076/LW        7848/LW*       7853/MTW       7904/STW       7925/STB*
           7938/STB*      7945/STB*      8000/LW*
    DFNE
           1115-RES       1128/BNE
    DFNEXIT
           1013/STW       1023/BGEZ*     1027/B*        1037/B*        1044/B*        1056/BFNZ      1061/BNE*
           1065/BE*       1070/BGE*      1074/B*        1098/STW       1120/B*        1134/STW
    DFNE1
           1106/BE        1117-RES       1163/B         1181/B         1184/B         1961/B         1978/B
    DFNE10
           1126/BE        1185-BAL
    DFNE11
           1132/B         1188-RES
    DFNE12
           1198-RES       1216/BGZ
    DFNE13
           1222/BEZ       1227-RES       1294/BLEZ
    DFNE14
           1217-RES       1277/BE
    DFNE16
           1242-RES       1263/B
    DFNE17
           1253-RES       1259/BGZ
    DFNE18
           1202/BNE       1264-RES
    DFNE2
           1151/BFZ       1178-RES
    DFNE20
           1230/BGZ       1266-RES
    DFNE21
           1212/BG        1278-RES
    DFNE22
           1285/BE        1292-RES       1298/B
    DFNE23
           1245/BG        1299-RES
    DFNE24
           1302/BE        1304-RES
    DFNE27
           1219/BGZ       1268-RES
    DFNE3
           1156/BFZ       1158-RES
    DFNE4
           1109/BE        1121-RES
    DFNE5
           1149/BFZ       1152-RES
    DFNE6
           1112/BE        1135-RES       1307/BAZ
    DFNE7
           1114/BE        1164-RES       1308/B
    DFNE8
           1168/BE        1174-RES
    DFNE9
           1177/BFZ       1182-RES
    DG
             36/DEF        130-RES
    DGD
             37/DEF        125-EQU
    DGPROC
             33-CSECT      127/USECT
    DIR
           2938-COM
    DIRBASE
            128-RES       2889/B         2938/COM
    DIRTBL
           2888/LH        2939-RES
    DISP
           1486-RES       2963/DIR
    DISP1
           1495/BE        1497-RES
    DISP2
           1499/BGZ       1504-RES
    DISP3
           1503/BNE       1507-RES
    DISP4
           1513-RES       1526/B         1543/B
    DISP5
           1527-RES       1539/BEZ
    DISP6
           1518/BNE       1536-RES
    DLISTET
            871/CS        3642/LV
    DLRCS
            162/STW        193/LW         209/LW         216/LW        3747/STW       3830/LW        3855/LW
           3914/STW       3927/STW       7016/LW        7452/STW       8032/STW
    DLRRS
            195/LW         201/LCW       3832/LW        3859/LW        3897/STW       3933/LW        7022/STW
           8041/STS
    DLRVAL
            199/LW         349/AND        353/AWM       1904/XW        1911/STW       3835/LS        3857/LW
           3942/STW       4282/AWM       7019/STW       7836/AWM       8037/STS
    DO
           1556-RES       2964/DIR
    DOCFLD
           1777/AND       1784/AND
    DOCOUNT
           1609/LW        1637/LW        1643/LW        1835/LW        2693/LW        2695/MTW       2746/OR
           7338/STW       7556/MTW       7561/MTW
    DOCT
            259/STW       1439/MTW       1605/MTW       1764/LW        1893/LW        2696/LW        4055/LW
    DOCWD
           1586/STW       1775/LW        1782/MTW       1783/LW
    DODIR
           7554/CI
    DOLOC
           1440/LW        1446/STW       1591/AW        1594/STW       1766/LW        1781/LW        1790/LW
    DOOWD
           1593/STW       1823/LW
    DOPFLD
           1445/AND
    DOPWD
           1592/STW
    DOSKIP
           1608/BAL       1623-RES       1833/BAL
    DOSKIPXIT
           1624/STW       1653/B*
    DOSKP10
           1628-RES       1641/B
    DOSKP20
           1638/BL        1645-RES
    DOSLOB
           1590/SHIFT
    DOSWD
           1442/LW
    DO1
           1671-RES       2965/DIR
    DO1CT
            260/STW       1679/STW       2917/LW        2919/MTW       3783/LW        3787/STW
    DO1LBL
           1676/STW       2920/LW
    DPI
           3301/LV        4888/AV
    DPIET
           4889/LV        6376/LV
    DPIFLAG
           5962/EQU       6305/STW       6496/MTW       6633/MTW       6782/MTW
    DPIMASK
           6377/LV
    DSECT
           1717-RES       2966/DIR
    DSECT1
           1722/BE        1725-RES
    DSNUM
           1734/STS
    DSNUMFLD
           1733/LV
    DSNUMLOB
           1732/SHIFT
    DSTYPE
           1728/LI
    DUPFLD
            543/EXIT      1042/LV        1046/BFZ       1953/BFZ       1958/OR        1963/BFZ       1966/LV
           4628/IF        4684/CV        4750/AND       5468/LV        6735/LV
    DUPLOB
            587/LV
    ECSFLD
           5380/AND       6866/AND
    ECSLOB
           5381/SHIFT     6693/SHIFT     6705/SHIFT     6875/SHIFT     6887/SHIFT
    ECT
            265/LW         438/STW        864/LW         877/SW         878/STW       1191/LW        1240/LW
           1297/MTW       1473/STW       2540/LW        3544/SW        3574/LW        4396/LW        4451/LW
           4568/LW        4800/LW        5086/MTW       5087/LW        5119/LW        5134/LW        5146/MTW
           5204/LW        5222/LW        5230/SW        5242/STW       5251/LW        5309/STW       5333/STW
           5355/MTW       5487/LW        5595/MTW       5708/SW        5709/STW       5876/MTW       5877/LW
           5879/SW        5924/AWM       6192/LW        6301/MTW       6320/MTW       6322/MTW       6519/LW
           6526/MTW       6551/MTW       6552/LW        6561/LW        6906/SW        7114/AWM       7174/AWM
           8025/STW
    ECTEXPR1
           2021/LW
    ECTEXPR2
           2015/LW
    ECTHW
           4221/CW        4455/STW
    ECTORG
            266/STW       1472/LW
    EDIT
             90/REF       7852/BAL
    EDITDDLR
             91/REF       3367/BAL
    EDITDLR
             92/REF       1347/BAL       3365/BAL
    EDITV
             93/REF        639/BAL       1561/BAL       2651/BAL       4346/BAL       6982/BAL
    EDITV1
             94/REF       1514/BAL
    EDNFLD
           4750/AND
    EERR
             95/REF        302/BAL        616/BAL        778/BAL        926/BAL        930/BAL       2013/BAL
           2128/BAL       2202/BAL       2220/BAL       2251/BAL       2280/BAL       2527/BAL       2554/BAL
           3938/BAL       4273/BAL       4322/BAL       5084/BAL       5214/BAL       5925/BAL       6058/BAL
           6086/BAL       6108/BAL       6161/BAL       6356/BAL       6618/BAL       6980/BAL       7116/BAL
           7168/BAL       7172/BAL       7226/BAL       7275/BAL       7695/BAL
    EFLD
           1770/BFZ
    ELEM
            895/STW       1249/LW        4757/LW        4808/LW        5267/CW
    ELSE
           1755-RES       2951/DIR
    ELSEDIR
           1635/CI
    ELSEFLG
           1761/STW       1767/LW        1830/LW
    ELSE1
           1794/BEZ       1798/BL        1801/BLE       1806-RES
    ELSE2
           1792/BNEZ      1811/BEZ       1822-RES
    ENC%
            135/DATA      4980/AI
    ENC%%
            135/DATA
    ENCHOB
           4885/CI
    ENCITEM
           3064/AND       4510/AND       4579/AND       4883/CV        4938/LV        5732/AND
    ENCLSSYM
           5245/CI
    ENCLSYM
           2737/CS        6074/CS
    ENCSSYM
            137/DATA       137/DATA       139/DATA       139/DATA       143/DATA       143/DATA      4634/AI
           5237/AI        5245/CI
    ENCSYM
            516/CI         997/CI        1111/CI        1721/CS        2659/CS        2881/CI        5740/LV
           5755/AV        5792/LV        5796/LV        5801/LV        5805/LV        5833/BYTE      5841/BYTE
           5852/BYTE      6072/CS
    ENCTYPE1
            999/AI        2721/AV        3140/AI        7382/AI
    ENCTYPE2
           3086/AI
    ENC0
           3065/CI
    END
           1869-RES       2947/DIR
    END%ERR
           1856-RES       4446/B         4479/B
    END%ERR1
           1858-RES       7550/BL
    ENDADDR
           1903/LW
    ENDBUF
           3062/CI
    ENDDIR
           1694/CV        4434/CV        4475/ELSF      7547/CI
    ENDLINE
           2663/CI        3134/CI        4465/IF        5078/LV        6008/CI        6896/CI
    ENDLIST
           1301/CV        2712/CI        6098/CI        7373/CI
    ENDSBSYM
           4954/CV        5009/CV        5027/CV        5730/CV        6010/CI        6057/IF        6116/CI
    ENDSSYM1
           5224-RES       5228/BNE
    ENDSSYM4
           5255-RES       5281/BGZ
    ENDSSYM5
           5258-RES       5289/B
    ENDSSYM7
           5264/BNE       5284-RES
    END0
           1876/BEZ       1888-RES
    ENTER1
           1143/BAL       1175/BAL       1930-RES
    ENTEXIT
           1931/STW       1970/BNE*      1975/BE*
    ENT1
           1934/BFNZ      1937-RES
    ENT2
           1941/BFNZ      1944-RES
    ENT3
           1972/BFNZ      1976-RES
    ENT4
           1947/BFZ       1949-RES
    ENT5
           1948/BFZ       1953/BFZ       1963/BFZ       1965-RES
    ENT7
           1950/BFZ       1952/BFZ       1954-RES
    ENT8
           1957/BNE       1962-RES
    EQ
            350/EXIT       579/EXIT      1067/THEF      3135/EXIT      3784/EXIT      4465/IF        4469/IF
           4475/ELSF      4482/ELSF      4494/ELSF      5199/IF        5213/EXIT      5416/IF        5417/IF
           5418/IF        6023/IF        6026/IF        6052/IF        6057/IF        6073/IF        6075/IF
           6244/EXIT      6278/EXIT      7590/EXIT      7626/EXIT      7628/EXIT
    EQU
           1988-RES       2967/DIR
    EQUALOP
           6351/CI
    ER
            302/BAL        412/BAL        518/BAL        531/BAL        544/BAL        585/BAL        616/BAL
            778/BAL        881/BAL        926/BAL        930/BAL       1004/BAL       1047/BAL       1050/BAL
           1073/BAL       1116/BAL       1303/BAL       1570/BAL       1648/BAL       1723/BAL       1772/BAL
           1859/BAL       1895/BAL       1960/BAL       1964/BAL       2013/BAL       2037/BAL       2042/BAL
           2128/BAL       2162/BAL       2202/BAL       2220/BAL       2251/BAL       2280/BAL       2361/LW
           2362/AW        2363/CW        2513/BAL       2527/BAL       2554/BAL       2560/BAL       2672/BAL
           2698/BAL       2779/LB        2791/BDR       2794/BAL       2906/BAL       3088/LW        3089/STW
           3091/LW        3092/STW       3131/BAL       3303/BAL       3712/BAL       3785/BAL       3938/BAL
           4057/BAL       4113/BAL       4129/LW        4130/SLS       4131/STW       4132/LW        4273/BAL
           4322/BAL       4331/BAL       4492/BAL       4495/BAL       4522/BAL       4629/BAL       4686/BAL
           4737/BAL       5084/BAL       5181/BAL       5187/BAL       5214/BAL       5338/BAL       5634/BAL
           5665/BAL       5682/BAL       5774/BAL       5925/BAL       6058/BAL       6086/BAL       6108/BAL
           6131/BAL       6161/BAL       6244/EXIT      6253/EXIT      6260/AI        6261/EXIT      6356/BAL
           6479/BAL       6485/BAL       6488/BAL       6492/BAL       6498/BAL       6618/BAL       6648/BAL
           6660/BAL       6784/BAL       6980/BAL       7116/BAL       7168/BAL       7172/BAL       7226/BAL
           7275/BAL       7423/BAL       7443/BAL       7467/BAL       7579/BAL       7592/BAL       7695/BAL
           7948/BAL       7963/BAL       7966/BAL
    ERRD20
           2012/BL        2020-RES
    ERRD30
           2007/BEZ       2028-RES
    ERRD40
           2081-RES       2086/BDR
    ERRD50
           2079/BEZ       2088-RES
    ERROR
           2002-RES       2968/DIR
    ERRSEV
           2004/STW       2027/STW       2040/LW        2052/MTW       2061/STW       2074/LW
    ERRTRIG
           2056/MTW       2075/STH       4063/MTW
    ETFLD
            866/LV        1500/LV        2210/LV        2552/LV        3581/LV        4803/LV        5092/AND
           5139/AND       5197/AND       5223/LV        5316/LV        6565/AND       6964/LV        7178/LV
    ETLOB
           4688/SHIFT     4864/SHIFT     5744/SHIFT     6579/SHIFT     6911/CV
    EV%CLN%OPRND
            619/CALL      1489/CALL      1913/CALL      4051/CALL      4557-RES       6961/CALL      7832/CALL
           7978/CALL
    EVALAR
           2113-RES       3893/BAL       4242/BAL
    EVALARXIT
           2114/STW       2133/B*
    EVALAR1
           2119/BLEZ      2127-RES
    EVALAR2
           2116/BEZ       2129-RES
    EVALAR3
           2121/BL        2123/BE        2126/BE        2131-RES
    EVALPT
            838/BAL       1727/BAL       2154-RES
    EVALPTXIT
           2155/STW       2166/B*
    EVALPT1
           2158/BLZ       2161-RES
    EVALPT2
           2160/BLE       2164-RES
    EVALUATE%AND%CLEAN
            741/BAL       2008/BAL       2029/BAL       2196/BAL       2529/BAL       3895/BAL       4562-RES
           7110/BAL
    EVAL1EXP
            920/BAL       2117/BAL       2194-RES       2248/BAL       3167/CALL      4270/BAL       4278/BAL
           4327/BAL       6955/CALL
    EVAL1INT
           2246-RES       2648/BAL       4316/BAL
    EVEXPXIT
           2195/STW       2233/B*
    EVT
            256/LW         436/STW        886/STW        888/LW        1272/LW        1279/LW        1477/STW
           2221/LW        5147/MTW       5243/STW       5310/STW       5334/STW       5356/MTW       5592/MTW
           5593/LW        5706/STW       5753/LW        5770/LW        5889/MTW       5890/LW        5892/SW
           5981/MTW       5982/LW        6028/MTW       6138/STW       6197/LW        6213/LW        6293/MTW
           6523/LW        6532/LW        6537/AWM       6555/STW       6718/LW
    EVTLOC
           5954-EQU       5985/STW       6024/LW*       6034/STW*      6078/CW*       6129/LW*       6134/LW
           6170/STW*
    EV1OPRNDEXP
            289/CALL      1560/CALL      1675/CALL      2156/CALL      2190-RES       3198/CALL      7489/CALL
    EWD
           1769/LW
    EXP%ERR
            301-RES       8029/BNE       8031/BL
    EXPET
           5093/CV        5107/LV
    EXPFLD
           2552/LV        3581/LV        3582/CS        5090/OR        5137/CV        5148/LV        5207/AND
           5490/OR
    EXPR%DEF
           6307/STW       6388/OR        6576/AND       6577/STW       6728/OR        6877/OR        6886/OR
    EXTET
           4752/LV        5416/IF
    EXTFLD
           1016/BFNZ      1741/LV        1966/LV        3231/LV        4743/AND
    EXTRACTCON
           2017/BAL       2026/BAL       2264-RES       5975/BAL
    EXTRC1
           2266/BFZ       2270-RES
    EXTRC2
           2273/BNE       2276-RES
    EXTRC3
           2267/BFZ       2279-RES
    EXTRC4
           2278/BE        2281-RES
    EXTREF
           4751/OR
    EZ
           2055/IF        2069/IF        2623/IF        7396/IF        7421/IF        7464/IF
    E1INTXIT
           2247/STW       2250/BNEZ*     2252/B*
    FCSFLD
           3912/AND       5391/AND       5442/AND       5800/BFZ       6704/AND
    FCSLOB
            210/SHIFT     3913/SHIFT     5167/SLS       5392/SHIFT     5443/SHIFT     5462/SHIFT
           6705/SHIFT     6887/SHIFT
    FIN
           1758-RES       2952/DIR
    FINDIR
           7559/CI
    FINDLSPC
           1375/BAL       2285-RES       3477/BAL
    FINDSPC
           1153/BAL       1584/BAL       2311-RES       2617/BAL       3589/BAL       3724/BAL
    FINDSPCXIT
           2286/STW       2312/STW       2329/B*        2345/B*        2367/BLE*      2370/STB       2371/B*
           2399/STW       2446/BNE*      2451/B*        4506/STW
    FINDSPC1
           2317-RES       2338/B
    FINDSPC2
           2322/BEZ       2346-RES
    FINDSPC3
           2324/BNEZ      2330-RES
    FINDSPC4
           2331/BL        2333/BGE       2336-RES
    FINDSPC5
           2339-RES       2348/BNE
    FINDSPC7
           2290/B         2354-RES       2406/B         4507/B
    FINDSPC8
           2364/BL        2368-RES
    FIN1
           1765/BLEZ      1771-RES
    FLAGWD
           5962-EQU       5980/STW       6031/AND       6112/AND       6124/AND
    FLDCNT
            950/STW       2492/STW       2526/MTW       2544/STW       7156/STW       7281/STW
    FLDPTR
            948/STW       2493/STW       2545/STW       7157/STW       7278/STW
    FNAME
           2373-RES       2969/DIR
    FND
           1015/LW*       1018/STW*      1036/STW*      1043/STS*      1069/CB*       1144/LW        1159/LW
           1194/LW        1196/AW        1199/LW*       1203/LW        1206/MTW       1207/LW*       1209/MTW
           1224/LW        1226/AWM       1235/LW        1237/SW        1282/LW*       1413/STW       1418/LW*
           1430/STW       1441/STW       1585/LW        1742/STS*      1940/LW*       1942/LW        1946/LW*
           1959/STW*      1973/LW        2325/STW       2335/STW       2340/LW        2344/AWM       2350/STW
           2400/LW        2414/CW        2421/LW        2427/STW*      2441/LW*       2444/AW        2445/CS*
           2448/STS*      2450/AWM*      2612/STW       2618/LW        2626/STW*      2785/STW       3431/STW
           3592/STW*      3593/LW        3596/MTW       3603/STW       3678/LW        3680/AWM       3725/LW
           3770/STW*      3774/STW*      4627/LW*       4680/LW        4697/LW*       4710/LW*       4720/STW*
           4731/STS*      4756/LW        4758/MTW       4766/LW        4771/AWM       4959/LW*       4971/LW
           5152/LW        5256/LW*       5265/LW        5266/MTW       5274/LW        5276/AWM       6199/STW
           7621/LW
    FNZ
           4628/IF
    FREEAFLD
           2319/AND       2326/LV        2418/AND       2422/LV
    FREELFLD
           2321/AND       2341/LV        2412/AND       2430/AND       2437/AND       2442/AND       2449/AND
    FREELIST
           2313/LI        2408/LI        2409/LW
    FREELLOB
           2315/SHIFT     2316/LV        2343/SHIFT     2347/CV        2425/SHIFT     2431/SHIFT
           2443/SHIFT
    FREESPC
           1147/BAL       1447/B         2398-RES
    FREESPC1
           2403/BNE       2407-RES
    FREESPC2
           2410-RES       2419/B
    FREESPC3
           2413/BEZ       2415/BG        2420-RES
    FREESPC4
           2428-RES       2439/B
    FREESPC5
           2434/BNE       2440-RES
    FUNCET
           4640/CV
    FUNCNAME
            465/LV         522/LV         572/CV        2374/LV
    FWDNUM
           4701/AW        4703/MTW       5519/LW        5523/LW        5532/MTW
    FZ
            543/EXIT       564/IF         565/EXIT      4814/IF
    G
           2045/IF        4472/IF
    GEN
           2459-RES       2970/DIR
    GENCOMXIT
           2486/STW       2536/B*        2558/B*
    GENCOM1
           2496-RES       2517/BGZ
    GENCOM2
           2509/BGE       2514-RES       2555/B         2561/B
    GENCOM3
           2521/BEZ       2528-RES       2546/B
    GENCOM5
           2489/BEZ       2537-RES
    GENCOM6
           2500/BFZ       2501/BFZ       2547-RES
    GENCOM7
           2519/BEZ       2556-RES
    GENCOM8
           2504/BNE       2559-RES
    GENERATE
             96/REF        953/BAL       2535/BAL
    GENERATE1
             97/REF       7186/BAL       7282/BAL
    GENERATE2
             98/REF       1171/BAL       5521/BAL
    GENORCOM
            821/BAL       2460/BAL       2485-RES
    GENR
            298/B          303/B          640/B          841/B          958/B         1492/BEZ       1538/BLZ
           1606/B         1610/BLZ       1743/B         1773/B         1825/B         1831/BEZ       1836/BLZ
           2031/BEZ       2090/B         2461/B         2673/B         2916-RES       3178/B         3364/BNEZ
           3369/B         3982/BNE       3985/B         4124/B         4142/BEZ       4284/B         4342/B
           4347/B         4498/BNEZ      4505/LI        6984/B         7187/B         7283/B         7507/BNEZ
           7513/B         7838/B         7841/BE        7856/B         7982/BEZ       8043/B
    GENR1
           1680/B         2854-RES       2918/BEZ
    GETCSADD
             99/REF       3628/BAL       3748/BAL       3831/BAL       8034/BAL
    GETPLOC
            823/BAL       2576-RES       4068/BAL
    GETPLOC1
             43/DEF       2578-RES
    GLBLADD
           1014/BAL       1142/BAL       1187/BAL       2600-RES       4625/CALL      4678/BAL       5247/BAL
    GLBLADD0
           2597-RES       4623/CALL
    GLBLADD1
           2606/BLZ       2611-RES
    GLBLADD2
           2608/BEZ       2614-RES
    GLBLAXIT
           2601/STW       2613/B*        2622/MTB       2627/B*
    GOARG
           2688/BAL       2711/BAL       2735-RES
    GOARG%1
           2738/BNE       2742-RES
    GOSRCH
           2682-RES       2705/B
    GOSRCH1
           2687/BE        2706-RES
    GOSRCH10
           2709-RES       2722/BCR       2725/B
    GOSRCH20
           2685/BE        2690-RES       2715/BEZ
    GOSRCH30
           2726-RES       2748/BEZ       7593/B
    GOTO
           2642-RES       2971/DIR
    GOTOARG
           1627/STW       2655/STW       2666/STW       2670/LW        2743/CW        7573/LW
    GOTO10
           2647/BEZ       2652-RES
    GOTO15
           2654-RES       2677/B
    GOTO20
           2656-RES       2676/BNEZ
    GOTO30
           2671/BNEZ      2678-RES
    GZ
           5923/IF
    HEXVAL
            382/STW       7849/STW       7851/LI
    HI%DIR
            529/CI        2886/CI
    HI%INT%FUNC
            133/DATA       139/DATA
    HI%PREFIX%FUNC
            137/DATA
    HI%VAL%FUNC
            143/DATA
    HILIMIT
            100/REF        271/BAL       2289/BAL
    HILIMIT4
            101/REF       3546/B         4222/BG        6522/BL        6536/BG        6799/BG
    IERR
            102/REF       2906/BAL       3712/BAL       7423/BAL       7443/BAL       7467/BAL
    IL
           4622/IF        4633/IF        5236/IF
    IN
           6196/STW       6233/MTW       6234/LW*
    INBASE
           5703/LW        6194/STW
    INBUF
            124-EQU       3339/LI        3796/LI
    INDICWD
           5955-EQU       5987/STW       6049/STW       6067/LW        6183/LW        6185/STW
    INTET
           2213/CS        5586/LV        6148/LV        6399/LV
    IOADD
           3796/LI        3797/STW
    IORL
           1080/STW       1814/LH        1816/BAL       1819/BAL       1885/BAL       3801/BAL       3804/BAL
    IOSIZE
           1807/LW        1808/AND       1809/SHIFT     1810/SW        1812/AI        1813/AWM       1884/LCW
    KERR
            103/REF        412/BAL       1648/BAL       1772/BAL       1859/BAL       1895/BAL       2698/BAL
           3785/BAL       4057/BAL       4113/BAL       4492/BAL       4495/BAL       7579/BAL       7592/BAL
    KEYERR
           5968/BEZ       5977/BL        5979/BG        6160-RES
    KLINE
            257/AW         267/SW         437/SW         439/AW         745/LW*        869/LW*        870/AND*
            874/STS*       884/LW*        893/AW        1246/LW*       1247/AW        1274/AWM*      1280/AW
           1389/AW        1475/SW        1511/AW        1534/LW*       2016/AW        2022/AW        2206/LW*
           2216/LW*       2224/STW*      2229/LW*       2363/CW        2366/CW        2498/AW        2541/AW
           2580/AW        3343/LW        3415/SW        3417/LW*       3419/AW        3543/SW        3576/LW*
           3577/AW        3901/AW        4070/AW        4083/AW        4397/AW        4452/AW        4801/AW
           4806/AW        5088/AW        5122/STS*      5136/LW*       5140/STW*      5205/AW        5226/LW*
           5234/LW*       5253/AW        5317/LW*       5322/LW*       5323/AND*      5488/AW        5594/AW
           5597/AW        5599/AW        5704/LW*       5738/AW        5754/AW        5771/AW        5878/AW
           5891/AW        5944/AW        5974/AW        5983/AW        5995/AW        6137/SW        6195/AW
           6198/AW        6214/AW        6235/AW        6520/AW        6533/AW        6553/LW*       6562/AW
           6567/AW        6719/AW        6904/AW        6975/STS*      6976/LW*       7164/MTW*      7177/AW
           7686/LW*       7903/AW        7908/AW        8023/SW
    L
            369/LI         376/LI         411/EXIT      1138/AND       4471/AND       4664/AND       4668/OR
           4735/OR        4738/LW        4747/AND       4750/AND       4751/OR        5139/AND       5429/AND
           5447/AND       5496/CS        5524/OR        6565/AND       6566/AND       6722/AND       6725/AND
           6861/CS
    LABELLOC
           4449/STW       4460/LW
    LARG
           1386/SW        1391/AW        1401/SW        1412/AW        1424/SW        1583/STW       1589/LW
           1938/STW       1968/LW        2287/LCW       2314/LW        2351/AW        2616/STW       3229/STW
           3246/CW        3281/STW       3291/AW        3295/LW        3476/STW       3478/LW        3588/MTW
           3590/MTW       3723/STW       3767/LW        4708/STW
    LARGR
           2314/LW        2315/SHIFT     2323/SW        2409/LW        2411/LW*       2414/CW        2416/LW
           2417/LW        2417/LW*       2418/AND       2426/AW
    LAST
           1197/STW       1236/LW        1395/STW       1414/SW        1423/LW
    LASTVAL
            390/AWM
    LBL
            512/LW        1102/LW        1578/SW        1597/LW        1718/LW        1788/STW       2727/LW
           2926/LW        3016/STW       4428/LW        7322/STW       7325/STW
    LBX
           1528/LI        2068/LW        2083/STB       2085/AI
    LCLADD1
           3416-RES       3418/BDR
    LCLADD2
           3414/BEZ       3420-RES
    LCLADD3
           3427/BFNZ      3430-RES
    LCLDLTE
             44/DEF       2772-RES       3463/BAL       4053/BAL
    LCLDLTE1
           2781-RES       2791/BDR
    LCLDLTE2
           2788/BNE       2793-RES
    LCLDLTE3
           2783/BFNZ      2789-RES
    LCLDLXIT
           2773/STW       2780/BEZ*      2792/B*        2795/B*
    LCLFWD
           4700/LV        7625/CV
    LCLFWDET
           4717/CV        5417/IF
    LCLFWDHD
           5520/AV        5524/OR        7627/CV
    LCLSBSYM
           1127/CV        1306/CV        4526/CS
    LCLSTA1
           3462/BEZ       3467-RES
    LCLSTA2
           3480-RES       3482/BDR
    LCLSTA3
           3470/BEZ       3483-RES
    LE
            530/IF        2887/IF        3545/EXIT      7541/EXIT
    LENGTH
             45/DEF       1195/BAL       1225/BAL       1233/BAL       1255/BAL       1541/BAL       1936/BAL
           1943/BAL       2813-RES       3228/BAL       3245/BAL       3679/BAL       4086/BAL       4770/BAL
           4825/BAL       5275/CALL      5617/BAL       5652/BAL       5717/BAL       7180/BAL
    LENGTHFLD
           1062/LV        1261/LV        2828/LV        3298/LV        3908/AND       4747/AND       5372/AND
           5466/AND       5495/LV        5570/AND       6338/AND       6645/AND       6703/AND       6722/AND
           6725/AND       6809/LV        6814/LV        6846/AND       6884/AND
    LENGTH1
           2816-RES       2826/BG
    LENGTH2
           2815/BFZ       2819-RES
    LENGTH3
           2822/BNE       2827-RES
    LERR
            104/REF        518/BAL       1116/BAL       1303/BAL       1723/BAL
    LESSOP
           6353/CI
    LFLD
           1001/AND       2723/AND       3142/AND       3406/LI        4530/LV        4854/LV        7384/AND
    LFND
           1444/STW       1945/STW       1969/CW        2401/AW        2404/LCW       2424/LW        3224/STW
           3240/LW*       3243/STW       3595/STW*
    LFSUMSZ
           6726/STW       6759/CW        6767/CW
    LFSYM
            767/LV
    LFWDFLG
           4573/STW       4704/MTW       5132/XW
    LFWDHET
           4715/CV        5418/IF        5529/LV
    LINE
           1084/B         2860-RES
    LINE%FLDS
             46/DEF        820/BAL       2871/BAL       3014-RES
    LINE%1
           2865-RES       2927/B         2932/BEZ
    LINE%2
           2870-RES       2934/B
    LINENUM
           2864/BAL       3058-RES       7321/BAL
    LINENUMXIT
           3059/STW       3087/BCR*
    LINENUM1
           3060-RES       3095/B         3098/B
    LINENUM2
           3066/BNE       3073-RES
    LINENUM3
           3075/BNE       3078-RES
    LINENUM4
           3077/B         3080-RES
    LINENUM5
           3069/BEZ       3072/B         3084-RES
    LINENUM6
           3063/BE        3096-RES
    LINEORG
           4450/STW       4538/LW
    LINESKIP
            716/BAL        762/BAL       1640/BAL       1652/BAL       1763/BAL       2557/BAL       2669/BAL
           2703/BAL       2915/BAL       3119-RES       3952/BAL       4110/BAL
    LINEXIT
           3015/STW       3027/BNE*      3033/B*
    LINE10
            714/BNE       2882/BNE       2897/BLE       2905-RES       4380/BNE
    LINE2
           2730/B         2923-RES
    LINE3
            669/B         2856/BNEZ      2925/BNEZ      2929-RES       4974/B
    LINE5
            166/B          593/B          666/LI         824/B          923/BEZ        993/BE        1695/BG
           1698/B         1872/BGE       2019/BLEZ      2650/BLEZ      2914-RES       3383/B         4437/BNEZ
           4439/B         4442/B         4445/BGEZ      7404/BNEZ      7424/B         7454/B         7468/B
           7580/B         7768/BEZ       7787/B
    LIST
           2972/DIR       3164-RES
    LISTCT
           2009/LW        2708/STW       2714/MTW       2719/MTW
    LISTET
            873/LS        1201/CV        1502/CS        1517/CV        4804/CS        5198/CV        5263/CV
           5618/CV        6966/CS
    LISTFLD
           3176/LV        3954/LV        7505/LV
    LISTLOB
           3175/SHIFT
    LISTS
            892/AV        1059/IF        3644/LV        4816/CV
    LISTSUB
           3170/BAL       3196-RES       3978/BAL       4172/BAL       4195/BAL
    LISTXIT
           3197/STW       3201/BEZ*      3203/B*
    LITCS
           5153/LW
    LITERROR
           4755/BAL       5200/BAL       5211-RES
    LITFLAG
           4574/STW       4712/MTW       4995/MTW       5131/STW       5212/MTW
    LITORG
           3601/LW
    LITSRCH
             47/DEF       3221-RES       3585/BAL
    LITSRCHXIT
           3222/STW       3241/BEZ*      3252/BE*
    LITSRCH1
           3235/BFZ       3236/BFZ       3239-RES       3255/B         3269/BNE       3300/BL        3304/B
    LITSRCH2
           3249-RES       3263/B
    LITSRCH3
           3247/BNE       3253-RES       3259/BNE       3262/BNE
    LITSRCH4
           3248/BDR       3256-RES       3260/BDR
    LITSRCH5
           3234/BNE       3264-RES
    LITSRCH6
           3284-RES       3288/BDR
    LITSRCH7
           3277/BEZ       3289-RES
    LITSRCH8
           3271/BNE       3296-RES
    LITTABLE
           3223/LI
    LNGTH1
           6381/AV
    LNGTH2
            207/LV         465/LV         522/LV         612/LV         780/DATA      1064/CV        2374/LV
           3909/CV        4312/LV        5433/LV        6145/AV        6209/AV        6885/AV
    LNGTH3
           5373/CV
    LNSKP1
           3121/BE        3129/BNEZ      3132-RES       3141/BCR       3144/B
    LNSKP4
           3127-RES       3137/BE
    LNSKP5
           3125-RES       3139/BE
    LO%INT%FUNC
            133/DATA
    LO%PREFIX%FUNC
            137/DATA      4634/AI
    LO%VAL%FUNC
            139/DATA       143/DATA      5237/AI
    LOADABS
            105/REF        385/BAL       7850/BAL
    LOADXM
             48/DEF       1598/BAL       3316-RES       5997/BAL
    LOADXW
             49/DEF        254/BAL       1103/BAL       1119/BAL       1824/BAL       3123/B         3336-LI
           4080/BAL       5077/BAL
    LOADXWRTN
           3338/STW       3345/B*
    LOADXW1
           3319/B         3338-STW
    LOADXW2
           3340/BCR       3342/BCS       3344-STW
    LOBFLD
           5439/AND
    LOC
           2973/DIR       3359-RES
    LOCAL
           2942/DIR       3381-RES
    LOCALADD
           1131/BAL       1165/BAL       3405-RES       4696/BAL       5249/BAL
    LOCALCT
           3466/STS       3471/LW        3475/STW
    LOCALCTFLD
           3465/LV
    LOCALDIR
           7564/CI
    LOCALFLG
           2874/MTW       2911/MTW       3461/LW        3485/STW       7341/STW
    LOCALORG
            264/STW       1385/LW        1387/STW       2774/LW        3421/LW
    LOCALORGFLD
           1394/AND       2777/AND       3422/AND
    LOCALSTA
           3382/BAL       3459-RES       7570/BAL
    LOCALSYM
           1113/CI        2661/CS        4524/CS
    LOCALXIT
           3460/STW       3486/B*
    LOCFLD
            435/AND        885/AND        890/AND       4084/LV        5233/AND       5705/AND       6236/AND
           6554/AND       6566/AND
    LOC1
           3361-RES       3861/B
    LOLIMIT
           2353/BAL       3541-RES       4341/BAL       4504/BAL
    LOWD
           2316/LV        2332/CW        2334/LW        2341/LV        2342/STS       2343/SHIFT     2344/AWM
           2347/CV        2408/LI        2416/LW        2423/STS*      2429/LW*       2432/AW        2433/CS*
           2436/STS*      2438/AWM*
    LPTR
           6316/STW       6724/LW*       6733/AW*       6744/LW*       6756/LW*       6794/AWM*      6795/LW
           6811/CS*       6820/CS*       6824/LW*
    LPTRFLD
            476/LV         477/AND        482/BFNZ       565/EXIT       566/LV        1154/LV        2607/AND
    LSRCH
           3572-RES       5144/BAL
    LSRCHXIT
           3573/STW       3604/B*
    LSRCH1
           3580/BGZ       3584-RES
    LSRCH2
           3583/BE        3598-RES
    LSRCH3
           3587/BNE       3600-RES
    LSTBF
             62/REF       1493/LW        1908/STW       1909/STD       2083/STB
    LSTCT
            752/MTW        954/MTW       1215/MTW       1218/MTW       1229/MTW       1498/MTW       1509/STW
           1519/LI        1524/STW       1535/STW       1537/MTW       2197/LW        2249/MTW       2491/LW
           2516/MTW       2531/LW        3898/MTW       4089/MTW       5232/STW       5280/MTW       5287/MTW
           5320/MTW       5327/OR        5343/MTW       5648/MTW       5699/MTW       5741/MTW       6914/STW
           6962/MTW       7111/LW        7166/LW        7272/MTW       7900/LW        7930/MTW
    LSTLVL
           5957-EQU       6064/MTW       6093/LW        6102/STW       6171/LW        6174/MTW
    LVAL
           3275/STW       3286/STB       3292/STW       3293/LI        3302/AWM       3647/STD       3648/LI
           4702/STW       4705/LI        5007/STW       5015/CW        5166/STW       5169/STW       5175/LI
           5584/STD       5954/EQU       5955/EQU       5956/EQU       5957/EQU       5958/EQU       5959/EQU
           5960/EQU       5961/EQU       6312/STM       6315/LI        6363/STD       6366/LD        6417/LD
           6788/LW        6826/STD       6853/STD       6889/STD
    LVL
            253/STW        256/LW         265/LW         267/SW         268/STW        269/LW         436/STW
            438/STW        512/LW         630/LW         717/STW        768/LW         864/LW         877/SW
            878/STW        886/STW        888/LW         990/LW        1102/LW        1191/LW        1240/LW
           1272/LW        1279/LW        1297/MTW       1383/LW        1439/MTW       1472/LW        1473/STW
           1474/LW        1477/STW       1577/LW        1578/SW        1597/LW        1605/MTW       1679/STW
           1718/LW        1764/LW        1788/STW       1868/STW       1893/LW        2192/LW        2221/LW
           2540/LW        2579/LW        2579/LW        2580/AW        2581/AND       2696/LW        2727/LW
           2774/LW        2869/STW       2908/LW        2917/LW        2919/MTW       2926/LW        3016/STW
           3021/STW       3025/STW       3030/XW        3120/MTW       3122/LW        3411/LW        3466/STS
           3471/LW        3475/STW       3544/SW        3574/LW        3783/LW        3787/STW       4046/MTW
           4048/MTB*      4055/LW        4061/MTB*      4078/STW       4396/LW        4428/LW        4451/LW
           4466/LW        4559/LW        4568/LW        4800/LW        4965/XW        4973/MTB*      5074/MTW
           5076/LW        5086/MTW       5087/LW        5119/LW        5134/LW        5146/MTW       5147/MTW
           5204/LW        5222/LW        5230/SW        5242/STW       5243/STW       5251/LW        5309/STW
           5310/STW       5333/STW       5334/STW       5355/MTW       5356/MTW       5487/LW        5592/MTW
           5593/LW        5595/MTW       5706/STW       5708/SW        5709/STW       5753/LW        5770/LW
           5876/MTW       5877/LW        5879/SW        5889/MTW       5890/LW        5892/SW        5924/AWM
           5981/MTW       5982/LW        5994/LW        6028/MTW       6138/STW       6192/LW        6197/LW
           6213/LW        6293/MTW       6301/MTW       6320/MTW       6322/MTW       6519/LW        6523/LW
           6526/MTW       6532/LW        6537/AWM       6551/MTW       6552/LW        6555/STW       6561/LW
           6718/LW        6906/SW        7114/AWM       7174/AWM       7322/STW       7325/STW       7342/STW
           7713/MTW       7734/MTW       8025/STW
    LVLSIZE
           1476/AI
    LVLT
           3411/LW        3415/SW        3417/LW        3417/LW        3419/AW        3421/LW
    LZ
           4477/IF
    MAIN
           1024/LW        1145/CW        1150/LW*       1155/LW*       1161/STS*      1180/STW*      1428/STW*
           1974/CW        2604/STW       2620/STS*      2776/STW       2779/LB        2782/LW*       2790/MTW
           3425/STW       4733/LW
    MAJLINE
             63/REF       1881/STW       3081/STW
    MATCHES
           5959-EQU       6139/LW        6168/MTW
    MAXCSECT
           3709/LW        3731/MTW       3733/LW        3746/LW
    MAXDD
           3631/CS        3633/STS       3737/STW
    MAXDDFLD
            200/AND       3629/LV        3834/LV
    MAXLOC
             50/DEF       3625-RES       3829/BAL       4266/BAL
    MAXLOCXIT
           3626/STW       3632/BLE*      3634/B*
    MAXPREF
            410/CI
    MAXSEV
           2044/CB        2046/STB
    MAXX
           5958-EQU       6016/MTW       6022/CW        6027/MTW       6070/LW        6109/LW        6126/LW
           6135/AWM       6153/MTW       6156/LW*
    MINUSOP
           6329/CI
    MOVEBLANK
           1296/BAL       3655-RES       4614/BAL
    MOVESYMITEM
           1214/BAL       1288/BAL       3672-RES
    MOVESYMXIT
           3673/STW       3677/BLZ*
    MULTINT
           3074/CI        4528/CS
    MV:LIST
           1269/BAL       1487/BAL       3641-RES       5101/BAL       6960/BAL
    MVSYM1
           3675-RES       3682/B
    NAMELINK
            626/LW         629/STW        634/LW         638/STW       4120/XW
    NAMELOC
            253/STW
    NAMESSYM
           4517/CV
    NAMESYM
           4513/CV
    NBYTES
            368/LI         375/LI         378/LI        1529/LI        2070/LI        2078/LW        2086/BDR
    NCDITEM
            940/STW        956/LW
    NE
            517/IF         524/IF        1059/IF        2744/EXIT      4219/EXIT      6253/EXIT      6954/IF
           6991/EXIT      6995/EXIT      6997/EXIT      7568/EXIT      7598/EXIT
    NEWCSECT
            839/BAL       1730/BAL       3699-RES
    NEWCSXIT
           3700/STW       3713/B*        3750/B*
    NEWCS1
           3704/BNEZ      3708-RES
    NEWCS2
           3711/BL        3714-RES
    NEWCS4
           3717/BG        3719/BNEZ      3727-RES
    NEWCS6
           3716/BL        3730-RES
    NEWCS7
           3707/B         3732-RES
    NEWENTRY
           1162/BAL       1431/BAL       1977/BAL       3597/BAL       3766-RES
    NEWENT1
           3769-LW        3772/BDR
    NEWENT2
           3768/B         3771-RES
    NEXT%TEXT
           5338/BAL       5634/BAL       5665/BAL       6232-RES
    NEXTXW
           4079/LW        4967/STW
    NLITS
           3599/MTW
    NOBYTES
            366/STW        371/MTW        384/STW       7844/STW
    NOINC
            513/NXTENC     992/NXTENC    1300/NXTENC    1864/NXTENC    3085/NXTENC    3468/NXTENC
           4470/NXTENC    4760/NXTENC    5729/NXTENC    5767/NXTENC    6036/NXTENC    6051/NXTENC
           6055/NXTENC    6069/NXTENC    6092/NXTENC    6186/NXTENC    7538/NXTENC
    NOLIST
           1878/MTW       1900/AND       1901/STW       3177/STS       3955/AND       4004/STS       4008/STS
           7319/STB       7506/AND       7719/STS       7733/STS
    NOTDO1
           1557/BAL       1674/BAL       1762/BAL       1870/BAL       2643/BAL       3782-RES       4043/BAL
           4109/BAL       7765/BAL
    NSAVES
           4071/LI        4073/LW        4969/LI
    NUMCINTRINSIC
           5300/HALF      5332-RES
    NUMCSS1
           5337-RES       5344/BGZ
    NUMCSS2
           5339/B         5342-RES
    NUMINTRINSIC
           5298/HALF      5308-RES
    NUMINT1
           5314/BNE       5319/BNE       5321-RES       5325/BDR
    NXT%TXT1
           6242/BNE       6251-RES
    NXT%TXT2
           6250/B         6258-RES
    NXTL
           1383/LW        1385/LW        1387/STW       1388/LW        1388/LW        1389/AW        1390/AND
    NXTLOCAL
            262/LW        1380/LW        1409/LW        2288/AWM       2355/LW        2358/LW        2778/STW
           3481/STW*      6535/CW        6798/CW
    NXTRCRD1
           3800/BEZ       3803-RES
    NXTRECRD
             51/DEF       1083/BAL       1821/BAL       3097/BAL       3794-RES
    NXTSYMT
            480/LW         486/LW         487/MTW        771/LW        2349/LW        2352/STW       2356/AW
           2359/SW        2402/CW        2405/AWM       3542/LW        4126/LW        4503/STW       6521/CW
    NZ
            360/IF         540/IF         570/IF        1137/IF        1890/IF        2053/IF        3166/IF
           4491/IF        5133/IF        7441/IF        7466/IF
    OFFSET
           3226/STW       3254/MTW       3602/AW
    OFFSETFLD
           3921/AND       5439/AND       5559/AND       6701/AND       6882/CV
    OFFSETLOB
           5440/SHIFT
    OL
            562/IF        5734/IF
    OLDCSECT
             52/DEF        160/BAL       3744/BAL       3827-RES       3892/BAL       7450/CALL      8022/BAL
    OLDCSXIT
           3828/STW       3838/B*
    ONEWDADD
           5378/CS        5506/CV        5575/CS        6695/AV        6702/AV        6861/CS
    OPEN
           2913-RES       2943/DIR
    OPENDIR
           7595/CI
    OPER
           3089/STW       3091/LW        6302/STW       6324/LW
    OPRND
            630/LW         990/LW        1868/STW       2192/LW        2908/LW        3025/STW       3030/XW
           4078/STW       4559/LW        4965/XW        5996/LW
    OPRNDORG
           4077/LW        4966/STW
    OR
           2053/IF        5416/IF        5417/IF        6073/IF
    ORG
           2974/DIR       3853-RES
    ORGLOCXIT
           3891/STW       3943/B*
    ORGLOC10
           3924/BFNZ      3931-RES
    ORGLOC4
           3899/BEZ       3939-RES
    ORGLOC5
           3916-RES       3930/B
    ORGLOC6
           3905/BNE       3910/BNE       3937-RES
    ORGLOC7
           3922/B         3936/BLE       3941-RES
    ORGLOC8
           3907/BFNZ      3923-RES
    ORGORLOC
           3360/BAL       3854/BAL       3890-RES
    ORIGIN
            106/REF        358/BAL       7842/BAL
    OUTBASE
           5707/LW        6193/STW
    PAGE
           2953/DIR       3951-RES
    PAGE1
           3953-RES       7503/BGE       7999/BLZ
    PARTIC
             82/REF        819/BAL       2933/BAL
    PARWD
           5960-EQU       5993/MTW       6041/STW       6053/MTW       6095/MTW       6176/LW
    PASS
            355/MTW        471/MTW        539/MTW        569/MTW       1039/MTW       1491/MTW       1889/LW
           2030/MTW       3579/MTW       3718/MTW       4132/LW        4218/LW        4386/MTW       5150/MTW
           7395/MTW       7834/MTW       7981/LW
    PASSDEF
            197/AW         713/CW         865/LW        1035/OR        1241/LW        1956/CS        2208/CW
           2223/AW        2503/CS        2549/AW        3645/AW        3904/CW        4128/LW        4344/LW
           4379/CW        4613/LW        4666/OR        4782/OR        4870/AW        4961/CW        5311/LW
           5336/LW        5525/OR        5615/OR        5785/LW        5790/CW        6144/LW        6306/LW
           6978/CW        7047/AW        7664/AW        7912/CW        8028/CW
    PCC
           2954/DIR       3977-RES
    PCCSUB
           3172/BAL       3984/BAL       4000-RES       7499/BAL
    PCCTRIG
           3980/STW       4002/LW
    PCCTRIGFLD
           4003/LV        4007/LV
    PCCTRIGLOB
           3979/SHIFT
    PCCXIT
           4001/STW       4009/B*
    PCC1
           3956/BNEZ      3959/B         3983-RES       4174/B         4198/B
    PEND
           2946/DIR       4042-RES
    PENDDIR
           4436/AV        4482/ELSF      7587/CI
    PEND1
           4049/BEZ       4052-RES
    PEND2
           4056/BEZ       4060-RES
    PEND3
           4054-RES       4059/B
    PEND4
           4062/BNEZ      4067-RES
    PEND5
           4072-RES       4076/BDR
    PEND6
           4081-RES       4090/BGZ
    PGLINES
             64/REF       3958/STW       7502/CW
    PLOC
            268/STW       1388/LW        2579/LW        4048/MTB*      4061/MTB*      4973/MTB*      5994/LW
    PLOCFLD
           1390/AND       2581/AND
    PLUSOP
           6327/CI
    PLVL
           1377/SW        3410/STW       3413/SW
    PLVLLOB
           2740/SHIFT
    POSITIONSTD
             65/REF       1816/BAL       1885/BAL
    POSITIONX1
             66/REF       1819/BAL
    PRESENCE
           5956-EQU       5991/STW       6141/LW        6146/STW       6147/LI        6166/OR        6167/STW
    PRINT
            107/REF       1496/BAL       1515/BAL       1532/BAL       2089/BAL       3366/BAL       3368/BAL
           4065/BAL       7510/BAL
    PRINTC
            108/REF       2858/CALL      3090/BAL       3173/CALL      7315/BAL       7500/CALL
    PRINTC1
            109/REF       1780/BAL       2922/BAL       4005/BAL       7712/BAL
    PRINTC2
            110/REF       2065/BAL       7730/BAL
    PROC
           2945/DIR       4108-RES
    PROCCOUNT
           1646/LW        2745/LW        7339/STW       7567/LW        7584/MTW       7589/MTW
    PROCDIR
           4494/ELSF      7582/CI
    PROCLOC
            636/STW       4134/LW
    PROCLV
           2872/LW        4118/STW       4438/STW       4489/SW        4490/STW       4497/LW
    PROCREF
            255/MTW        409/LW         510/MTW       1345/LW        1376/LW        1791/LW        2577/MTW
           2739/LW        2855/LW        2924/LW        3128/MTW       3363/MTW       3412/LW        4044/MTW
           4111/LW        5967/LW        6990/LW        7313/LW
    PROTYPE
           2165/STW       3738/LW
    PSECT
           2975/DIR       4152-RES
    PSR
           2958/DIR       4171-RES
    PSRTRIG
           4173/STW
    PSTRIG
           4197/STW       7731/LW
    PSTRIGFLD
           3954/LV        7505/LV        7718/LV        7732/LV
    PSTRIGLOB
           4196/SHIFT
    PSTYPE
           4153/LI
    PSYS
           2976/DIR       4194-RES
    PTLOB
           3739/SHIFT
    PUT1
           4217-RES       4459/BAL       4464/CALL      4534/BAL
    RD%STD
             67/REF       1814/LH        1875/MTH       1877/MTH       3799/MTH
    READSTD
             68/REF       3801/BAL
    READX1
             69/REF       3804/BAL
    REF
           2956/DIR       4237-RES
    REFADD
            711/LW*        719/LW        2899/STW       4393/LW*       7072/LW
    REFEXT
           4238/LV
    REFORSREF
           5544/CV
    REF1
           4240-RES       7645/B
    REPEAT
            305-EQU        376/LI
    RES
           2977/DIR       4265-RES
    RES0
           4269/BEZ       4274-RES
    RES1
           4272/BGZ       4276-RES
    RES2
           4281-RES       4391/B
    RL
            160/BAL        163/BAL        212/EXIT       224/EXIT       244/STW        254/BAL        270/BAL
            271/BAL        297/BAL        300/BAL        350/EXIT       354/STW        358/BAL        377/BAL
            380/BAL        385/BAL        411/EXIT       440/EXIT       474/EXIT       490/B          553/EXIT
            579/EXIT       618/BAL        620/BAL        625/BAL        639/BAL        667/BAL        668/BAL
            710/STW        716/BAL        737/BAL        741/BAL        761/BAL        762/BAL        763/BAL
            769/LI         776/EXIT       789/BAL        816/BAL        819/BAL        820/BAL        821/BAL
            823/BAL        838/BAL        839/BAL        863/STW        920/BAL        937/BAL        939/BAL
            941/BAL        953/BAL       1007/BAL       1013/STW       1014/BAL       1019/LW        1020/CV
           1024/LW        1025/SW        1026/STW       1052/LW        1053/CV        1057/LV        1058/AND
           1059/IF        1060/CV        1062/LV        1063/AND       1064/CV        1083/BAL       1098/STW
           1103/BAL       1119/BAL       1129/BAL       1131/BAL       1134/STW       1142/BAL       1143/BAL
           1147/BAL       1153/BAL       1162/BAL       1165/BAL       1166/BAL       1171/BAL       1175/BAL
           1183/BAL       1185/BAL       1187/BAL       1195/BAL       1200/BAL       1205/BAL       1210/BAL
           1214/BAL       1225/BAL       1233/BAL       1234/BAL       1239/BAL       1255/BAL       1269/BAL
           1275/BAL       1288/BAL       1296/BAL       1338/STW       1339/BAL       1344/BAL       1345/LW
           1347/BAL       1374/STW       1375/BAL       1431/BAL       1478/EXIT      1487/BAL       1496/BAL
           1505/BAL       1514/BAL       1515/BAL       1521/BAL       1531/BAL       1532/BAL       1533/BAL
           1541/BAL       1557/BAL       1559/BAL       1561/BAL       1566/BAL       1584/BAL       1598/BAL
           1608/BAL       1624/STW       1625/BAL       1629/BAL       1632/BAL       1634/BAL       1640/BAL
           1652/BAL       1674/BAL       1683/BAL       1684/BAL       1687/BAL       1727/BAL       1730/BAL
           1739/BAL       1762/BAL       1763/BAL       1780/BAL       1789/BAL       1821/BAL       1824/BAL
           1828/BAL       1829/BAL       1833/BAL       1834/BAL       1867/BAL       1870/BAL       1871/BAL
           1931/STW       1936/BAL       1943/BAL       1977/BAL       2008/BAL       2017/BAL       2026/BAL
           2029/BAL       2032/BAL       2065/BAL       2072/BAL       2089/BAL       2114/STW       2117/BAL
           2155/STW       2195/STW       2196/BAL       2206/LW        2207/AND       2208/CW        2222/LV
           2223/AW        2224/STW       2247/STW       2248/BAL       2269/EXIT      2275/EXIT      2283/EXIT
           2286/STW       2289/BAL       2312/STW       2353/BAL       2399/STW       2460/BAL       2486/STW
           2490/BAL       2525/BAL       2529/BAL       2535/BAL       2542/BAL       2557/BAL       2582/EXIT
           2598/MTB       2601/STW       2617/BAL       2643/BAL       2648/BAL       2651/BAL       2669/BAL
           2679/BAL       2683/BAL       2688/BAL       2691/BAL       2701/BAL       2703/BAL       2704/BAL
           2711/BAL       2744/EXIT      2749/EXIT      2773/STW       2786/BAL       2818/EXIT      2830/EXIT
           2864/BAL       2866/BAL       2867/BAL       2871/BAL       2915/BAL       2922/BAL       2933/BAL
           3015/STW       3020/BAL       3029/BAL       3059/STW       3090/BAL       3097/BAL       3135/EXIT
           3170/BAL       3172/BAL       3197/STW       3222/STW       3228/BAL       3245/BAL       3265/LV
           3266/AND       3270/CV        3285/LB        3286/STB       3338/STW       3339/LI        3341/LW
           3343/LW        3344/STW       3360/BAL       3365/BAL       3366/BAL       3367/BAL       3368/BAL
           3382/BAL       3432/EXIT      3460/STW       3463/BAL       3472/LB        3473/AW        3474/STB
           3477/BAL       3479/LV        3481/STW       3545/EXIT      3573/STW       3585/BAL       3589/BAL
           3597/BAL       3626/STW       3628/BAL       3673/STW       3679/BAL       3681/BAL       3700/STW
           3724/BAL       3744/BAL       3748/BAL       3749/BAL       3775/EXIT      3784/EXIT      3788/EXIT
           3802/EXIT      3805/EXIT      3828/STW       3829/BAL       3831/BAL       3854/BAL       3891/STW
           3892/BAL       3893/BAL       3895/BAL       3952/BAL       3978/BAL       3984/BAL       4001/STW
           4005/BAL       4043/BAL       4053/BAL       4058/BAL       4065/BAL       4068/BAL       4069/BAL
           4073/LW        4074/STW       4080/BAL       4086/BAL       4087/BAL       4109/BAL       4110/BAL
           4128/LW        4138/STS       4172/BAL       4195/BAL       4219/EXIT      4225/EXIT      4242/BAL
           4266/BAL       4270/BAL       4278/BAL       4313/BAL       4316/BAL       4327/BAL       4333/BAL
           4334/BAL       4341/BAL       4346/BAL       4382/BAL       4385/BAL       4441/BAL       4444/BAL
           4459/BAL       4504/BAL       4505/LI        4506/STW       4534/BAL       4567/STW       4614/BAL
           4639/BAL       4678/BAL       4687/BAL       4689/LB        4690/B         4696/BAL       4709/BAL
           4714/BAL       4745/BAL       4755/BAL       4768/BAL       4770/BAL       4772/BAL       4773/BAL
           4798/STW       4821/BAL       4824/BAL       4825/BAL       4826/BAL       4862/LW        4866/LW
           4872/CI        4875/CI        4904/BAL       4915/BAL       4930/STB       4945/BAL       4953/BAL
           4964/BAL       4970/BAL       4972/BAL       4981/BAL       5004/BAL       5012/BAL       5017/LW
           5020/LH        5023/AI        5030/BAL       5077/BAL       5101/BAL       5109/BAL       5144/BAL
           5145/BAL       5195/BAL       5196/BAL       5200/BAL       5213/EXIT      5215/EXIT      5238/LH
           5239/B         5247/BAL       5249/BAL       5257/BAL       5259/BAL       5335/BAL       5352/BAL
           5354/BAL       5360/STW       5361/BAL       5377/LV        5411/BAL       5414/STW       5415/BAL
           5433/LV        5444/LW        5457/BFNZ      5465/LW        5471/BAL       5474/LV        5477/LV
           5480/STW       5481/BAL       5521/BAL       5522/BAL       5531/BAL       5539/BAL       5565/BAL
           5571/LW        5573/AI        5574/LW        5577/CI        5585/BAL       5608/BAL       5611/LV
           5612/AWM       5617/BAL       5632/BAL       5644/BAL       5652/BAL       5653/BAL       5656/BAL
           5662/BAL       5669/BAL       5691/BAL       5701/BAL       5716/BAL       5717/BAL       5718/BAL
           5726/BAL       5735/BAL       5736/BAL       5743/BAL       5764/BAL       5799/LW        5800/BFZ
           5942/STW       5943/BAL       5947/LW        5948/STW       5969/BAL       5970/BAL       5971/BAL
           5972/BAL       5975/BAL       5997/BAL       6015/BAL       6018/BAL       6140/BAL       6151/BAL
           6158/BAL       6173/BAL       6181/BAL       6201/EXIT      6240/BAL       6278/EXIT      6296/EXIT
           6308/BAL       6309/BAL       6321/BAL       6323/BAL       6364/BAL       6511/STW       6512/BAL
           6513/BAL       6527/EXIT      6545/EXIT      6556/EXIT      6569/EXIT      6606/BAL       6616/EXIT
           6687/EXIT      6729/BAL       6734/BAL       6751/BAL       6757/BAL       6764/BAL       6770/BAL
           6778/BAL       6802/EXIT      6809/LV        6960/BAL       6969/BAL       6982/BAL       6983/BAL
           6991/EXIT      6995/EXIT      6997/EXIT      6999/EXIT      7024/EXIT      7106/STW       7107/BAL
           7110/BAL       7120/BAL       7150/BAL       7151/BAL       7153/LI        7157/STW       7159/BAL
           7180/BAL       7181/BAL       7185/BAL       7186/BAL       7228/BAL       7229/BAL       7231/LI
           7268/BAL       7269/BAL       7282/BAL       7312/STW       7315/BAL       7321/BAL       7343/EXIT
           7376/EXIT      7499/BAL       7510/BAL       7541/EXIT      7545/EXIT      7557/EXIT      7562/EXIT
           7568/EXIT      7569/STW       7570/BAL       7571/LI        7572/XW        7585/EXIT      7590/EXIT
           7598/EXIT      7602/EXIT      7626/EXIT      7628/EXIT      7631/EXIT      7699/EXIT      7709/STW
           7712/BAL       7729/STW       7730/BAL       7765/BAL       7775/LB        7776/STB       7782/BDR
           7786/BAL       7828/BAL       7831/BAL       7833/BAL       7842/BAL       7850/BAL       7852/BAL
           7899/STW       7910/LV        7911/AND       7912/CW        7924/LB        7925/STB       7932/LW
           7944/AI        7945/STB       7946/CI        7985/BAL       8022/BAL       8026/BAL       8034/BAL
    RNG%INT%FUNC#
            132-DATA       561/CLM
    RNG%LOC%CTR
            134-DATA      4675/CLM
    RNG%PREFIX%FUNC
            136-DATA      4632/CLM
    RNG%STD%FUNC
            138-DATA      4621/CLM
    RNG%TCOR%SYM
            140-DATA      5733/CLM
    RNG%VAL%FUNC
            142-DATA      5235/CLM
    ROOTRTN
             70/REF       1080/STW       1914/B*
    RPTR
           5362/LW*       5371/LW*       5375/MTW       5376/LW*       5384/LW*       5389/MTW       5390/LW*
           5422/STS*      5428/LW*       5431/LW*       5438/LW*       5441/LW*       5444/LW*       5446/LW*
           5469/LS*       5494/LW*       5499/LW*       5504/LW*       5508/MTW       5509/LW*       5511/STW*
           5512/MTW       5517/XW        5526/OR        5540/LW        6337/LW*       6341/LW*       6343/STW*
           6347/LCW*      6348/STW*      6568/STW       6574/LW        6684/STW       6721/LW*       6732/LW*
           6743/LW*       6769/LW*       6789/AWM*      6790/LW        6810/LS*       6819/LW*       6827/LW*
    RSFLD
           3836/LV        8040/LV
    RSLOB
           3742/AV        3833/SHIFT     8039/SHIFT     8040/LV
    RTSUMSZ
           6723/STW       6740/CW        6753/CW        6772/CW
    RVAL
           5011/STW       5014/SW        5018/LW        5464/STW       5470/STW       5472/LI        6311/LM
           6313/CI        6333/LCD       6334/STD       6382/STW       6386/STW       6389/STW       6390/LI
           6439/OR        6440/OR        6443/EOR       6444/EOR       6447/AND       6448/AND       6451/CD
           6457/CD        6461/CD        6465/CD        6469/CD        6473/CD        6476/SD        6481/AD
           6483/AD        6490/DW        6499/MW        6501/LW        6503/LAW       6615/STD       6677/STW
           6678/STW       6680/STW       6682/STS       6683/LI        6793/LW        6829/STD
    R8
           2327/LW        2328/STS
    R9
           2326/LV
    S:AADSYM
            141/DATA      5796/LV        5836/BYTE
    S:CSYM
           5805/LV        5846/BYTE
    S:DPISYM
           5850/BYTE
    S:DSYM
           5845/BYTE
    S:EXTSYM
           5835/BYTE      5838/BYTE
    S:FLSYM
           5849/BYTE
    S:FRSYM
           5792/LV        5833/BYTE
    S:FSSYM
           5848/BYTE
    S:FXSYM
           5847/BYTE
    S:INTSYM
           5842/BYTE      5843/BYTE      5844/BYTE
    S:KEYS10
           5990-RES       5992/BDR
    S:KEYS20
           5999-RES       6019/B
    S:KEYS21
           6063/BNE       6066-RES
    S:KEYS22
           6077-RES       6080/BDR
    S:KEYS23
           6079/BE        6165-RES
    S:KEYS30
           6002/BNE       6007-RES
    S:KEYS31
           6094/BEZ       6105-RES
    S:KEYS40
           6006/B         6012-RES
    S:KEYS41
           6017-RES
    S:KEYS50
           6009/BE        6011/BE        6020-RES
    S:KEYS60
           6044/BG        6048-RES
    S:KEYS69
           6059/B         6119-RES
    S:KEYS70
           6039/BNE       6115-RES
    S:KEYS71
           6128-RES       6132/BDR
    S:KEYS72
           6125/BNEZ      6127/BEZ       6133-RES
    S:KEYS74
           6152-RES       6159/B
    S:KEYS76
           6143/BAZ       6157-RES
    S:LFRSYM
           5839/BYTE      5840/BYTE
    S:LISTSYM
           5740/LV        5851/BYTE
    S:PTSETUP
           5335/BAL       5632/BAL       5662/BAL       6191-RES
    S:RADSYM
           5801/LV        5834/BYTE
    S:SIN
           2978/DIR       4311-RES
    S:SINCOMT
           4312/LV
    S:SINREF
           2993/COMT      4376-RES
    S:SIN0
           4330/BE        4332-RES
    S:SIN1
            765/B         4336/B         4343-RES
    S:SIN2
           4315/BE        4318/BL        4321-RES
    S:SIN3
           4320/BLE       4324-RES
    S:SUMSYM
            141/DATA      5837/BYTE
    SAMP
            717/STW       2869/STW       3120/MTW       3122/LW        5074/MTW       5076/LW        7342/STW
    SAMPLIN
           2873/BNE       4427-RES
    SAMPL1
           4433/BE        4440-RES
    SAMPL10
           4430/BNEZ      4447-RES
    SAMPL2
           4435/BE        4443-RES
    SAMPL20
            632/B          769/LI        4449-STW
    SAVDLR
           3743/STW       3837/STS
    SAVDLRFLD
           3836/LV        8036/LV
    SAVEORG
           4074/STW       4968/LI
    SAVEXW
           1101/STW       1118/LW
    SBLBLSYM
           1123/STW       1130/LW        1186/LW        1305/LW
    SBSYM
           1125/CV        1306/CV
    SCADDSUM
           6328/BE        6335/B         6349/B         6714-RES
    SCADSM20
           6746/BL        6750-RES
    SCADSM23
           6755-RES       6760/BL
    SCADSM25
           6741/BGE       6759-CW
    SCADSM3
           6743-LW        6754/BL        6768/BL
    SCADSM30
           6747/BG        6762-RES
    SCADSM31
           6742/B         6766-RES
    SCADSM33
           6769-LW        6773/BL
    SCADSM40
           6737-RES       6749/BNE
    SCADSM50
           6761/B         6774-RES
    SCADSM60
           6777-RES       6791/B         6796/B
    SCADSM70
           6717/BNE       6782-MTW
    SCADSM80
           6787/BANZ      6792-RES
    SCAN
             53/DEF       1129/BAL       1185/BAL       2490/BAL       4561-RES       7269/BAL
    SCANEXIT
           4567/STW       5936/LI        5948/STW       6915/B*
    SCANOPRND
           4389/CALL      4555-RES       7160/CALL      8021/CALL
    SCANXS
           4569/STW       6903/LW        6905/LW
    SCAN1
            939/BAL       4565-LI        5735/BAL       5970/BAL
    SCAN2
           4564/B         4566-STW
    SCARG
           4572/STW       4587/MTW       4590/MTW       5047/MTW       5112/STW
    SCBEGINEXP
           5065/HALF      5106-RES
    SCBLNK
           4598/BYTE      4612-RES       5268/BG        5286/BNEZ      5710/BEZ
    SCBLNKSYM
           4780-RES       4839/BYTE
    SCCMPSM1
           6818/BE        6823-RES
    SCCMPSM3
           6815-RES       6821/BE
    SCCMPSUM
           6354/BLE       6806-RES
    SCCON
           4582/BFZ       5042-RES
    SCCON5
           5044/BEZ       5046/BNEZ      5048/BEZ       5051-RES
    SCCS
           5352/BAL       5359-RES       8026/BAL
    SCDEL1
           5410/CALL      5538/CALL      5871-RES
    SCDIR
           5059/HALF      5063/HALF      5808/B         6709-RES
    SCENDEXP
           5062/HALF      5085-RES
    SCENDLIST
           5060/HALF      5192-RES
    SCENDSSYM
           5061/HALF      5219-RES
    SCGSSYM
           4602/BYTE      4619-RES
    SCGSYM
           4600/BYTE      4674-RES
    SCGSYM1
           4682-RES       4713/BEZ       4718/BNE       4723/B
    SCGSYM2
           4679-RES       5282/B         5288/BEZ
    SCINT
           4605/BYTE      4853-RES
    SCLITF
           4653/HALF      4654/HALF      4994-RES
    SCLOOP
           4091/B         4575-RES       4615/B         4746/B         4776/B         4917/BLEZ      5096/B
           5114/B         5123/B         5182/B         5188/B         5201/B         5209/B         5412/B
           5543/BFNZ      5545/BANZ      5552/BNE       5569/BNE       5576/BNE       5602/BE        6155/BLZ
    SCLOOP25
           4581/BE        4583-MTW
    SCLOOP30
           4586/BLEZ      4589-RES
    SCLOOP35
           4584/BGZ       4591-LV
    SCLOOP40
           4588/BGZ       5050/BL        6895-RES
    SCLSSYM
           4603/BYTE      4646-RES       4997/B
    SCLSYM
           4601/BYTE      4695-RES
    SCLSYM1
           4699/BNE       4711-RES
    SCLSYM7
           4716/BE        4721-RES
    SCLVL
           4571/STW       4576/MTW       4583/MTW       4649/MTW       5045/MTW       5095/MTW       5113/MTW
           5193/MTW       5220/MTW
    SCMAP
           6309/BAL       6323/BAL       6573-RES
    SCMAPAB
           6585/BYTE      6591/BYTE      6602/BYTE      6708-RES
    SCMAPADD
           6586/BYTE      6698-RES
    SCMAPBL
           6593/BYTE      6619-RES
    SCMAPD
           6595/BYTE      6643-RES
    SCMAPDPI
           6600/BYTE      6626-RES
    SCMAPERR
           6601/BYTE      6617-RES
    SCMAPEXT
           6588/BYTE      6672-RES
    SCMAPFL
           6599/BYTE      6630-RES
    SCMAPFS
           6598/BYTE      6636-RES
    SCMAPFX
           6597/BYTE      6637-RES
    SCMAPI
           6594/BYTE      6638-RES
    SCMAPLF
           6589/BYTE      6590/BYTE      6673-RES
    SCMAPSPA
           6584/BYTE      6688-RES
    SCMAPSPI
           6592/BYTE      6610-RES
    SCMAPSUM
           6587/BYTE      6685-RES
    SCMAPTXT
           6596/BYTE      6655-RES
    SCMAPTX2
           6663-RES       6671/B
    SCMAPU
           6583/BYTE      6605-RES
    SCMAPU1
           4608/B         4962/BNE       6607-RES
    SCMAP1
           6612-RES       6625/B         6640/BGEZ      6652/BLEZ
    SCMAP2
           6614-RES       6621/B         6634/B         6642/B         6654/B         6665/BEZ       6669/BLZ
    SCMAP3
           6623-RES       6628/BAZ
    SCMAP4
           6676-RES       6697/B         6707/B
    SCNOLIST
           5143/CALL      5351/CALL      5921-RES
    SCOPAND
           6423/BYTE      6446-RES
    SCOPCQ
           6433/BYTE      6483-AD
    SCOPDPI
           6375-RES       6394/BL
    SCOPDVD
           6432/BYTE      6489-RES
    SCOPEND
           6362-RES       6441/B         6445/B         6449/B         6455/B         6478/BNOV      6480/B
           6495/B         6500/B         6505/BLE
    SCOPEND1
           6365-RES       6854/B
    SCOPEND2
           6380/BE        6385-RES       6402/B         6411/B
    SCOPEND3
           6367/BLZ       6392-RES
    SCOPEOR
           6422/BYTE      6442-RES
    SCOPEQ
           6424/BYTE      6450-RES
    SCOPG
           6428/BYTE      6468-RES
    SCOPGE
           6426/BYTE      6460-RES
    SCOPL
           6429/BYTE      6472-RES
    SCOPLE
           6427/BYTE      6464-RES
    SCOPMLT
           6434/BYTE      6496-MTW
    SCOPMNS
           6430/BYTE      6476-SD
    SCOPMNS1
           6477-RES       6482/B
    SCOPNE
           6425/BYTE      6456-RES
    SCOPOR
           6421/BYTE      6438-RES
    SCOPPLS
           6431/BYTE      6481-AD
    SCOPPRC
           6326/BEZ       6416-RES       6830/B
    SCOPSHFT
           6435/BYTE      6501-LW
    SCOPSMI
           6369/BL        6406-RES
    SCOPSPI
           6371/BL        6398-RES
    SCOPTRUE
           6453-RES       6459/B         6463/B         6467/B         6471/B         6475/B
    SCOP1
           6314/BNE       6317-RES
    SCOP2
           6332/BANZ      6336-RES
    SCOP3
           6340-RES       6346/BG
    SCOP4
           6330/BNE       6350-RES
    SCOP5
           6352/BL        6355-RES
    SCOP6
           6357-RES       6452/BNE       6458/BE        6462/BL        6466/BG        6470/BLE       6474/BGE
           6506/B         6808/BNE       6812/BNE       6822/B
    SCPPRTN
           6511/STW       6514/B*
    SCPSHC
           5109/BAL       6512/BAL       6518-RES
    SCPSHV
           1234/BAL       1239/BAL       3681/BAL       4915/BAL       5691/BAL       6015/BAL       6181/BAL
           6513/BAL       6531-RES
    SCPSHV1
           6539-RES       6544/BDR
    SCPULL
           1533/BAL       4069/BAL       4821/BAL       5145/BAL       5354/BAL       5471/BAL       5522/BAL
           5565/BAL       5585/BAL       5943/BAL       6364/BAL       6550-RES       6606/BAL       6778/BAL
    SCPUSH
           1205/BAL       1521/BAL       3650/B         3661/B         4087/BAL       4745/BAL       4772/BAL
           4826/BAL       4904/BAL       4970/BAL       5481/BAL       5531/BAL       5644/BAL       5653/BAL
           5718/BAL       5937/B         6151/BAL       6215/B         6510-RES       7077/B         7181/BAL
           7670/B
    SCPUSHTX1
           6729/BAL       6734/BAL       6751/BAL       6757/BAL       6764/BAL       6770/BAL       6797-RES
    SCRESTORE
           5764/BAL       5941-RES       5972/BAL
    SCRESTOREXIT
           5942/STW       5951/B*        5952-EQU
    SCRESTORE1
           5946-RES       5950/BDR
    SCRET
           4577/BLZ       5079/B         5194/BLZ       5221/BLZ       6902-RES
    SCRET3
           6908/BNE       6912/BNE       6914-STW
    SCRS
           5411/BAL       5413-RES       7185/BAL
    SCRSRTN
           5360/STW       5395/B*        5398/B*        5414/STW       5423/B*        5486/BNE*      5492/B*
           5503/BE*       5533/B*
    SCS:KEYS
           4655/HALF      5966-RES
    SCS:PT
           5301/HALF      5661-RES
    SCS:PT%JOIN
           5650/B         5702-RES
    SCS:PT1
           5664-RES       5700/BGZ
    SCS:PT10
           5666/B         5713-RES
    SCS:PT2
           5677-RES       5697/BDR
    SCS:PT3
           5679/BE        5683/B         5698-RES       5715/BE        5720/B
    SCS:PT4
           5668/BNE       5670-RES
    SCS:PT5
           5681/BL        5684-RES
    SCS:PT6
           5687/BANZ      5692-RES
    SCS:UT
           5303/HALF      5631-RES
    SCS:UT1
           5633-RES       5649/BGZ
    SCS:UT2
           5647-RES       5654/B         5657/B
    SCS:UT3
           5637/BE        5655-RES
    SCS:UT4
           5635/B         5651-RES
    SCS:UT6
           5638-RES       5646/BDR
    SCSAVE
           5726/BAL       5932-RES       5969/BAL
    SCSCOR
           4656/HALF      5001-RES
    SCSCOR10
           5010/BE        5032-LI
    SCSCOR11
           5028/BE        5033-LW
    SCSCOR3
           5008-AI        5016/BNE       5022/BNE
    SCSCOR5
           5019-RES       5025/BDR
    SCSCOR7
           5029-RES       6164/B
    SCSCOR9
           5026-RES       5031/B         5768/B
    SCSETUPR
           5361/BAL       5415/BAL       5539/BAL       6308/BAL       6321/BAL       6560-RES
    SCSINT
           4604/BYTE      4662-RES
    SCSINT1
           4665-RES       4895/B         4936/B         4940/B         5035/B
    SCSINT3
           4667-RES       4963/LI        5328/B         5346/B         5566/B
    SCSQESUM
           6779/B         6843-RES
    SCSQSM3
           6848/BNE       6855-LV
    SCSQSM5
           6868/BANZ      6870/BG        6872/BG        6881-RES
    SCSYML1
           4762/BNE       4765-RES       4775/BDR       5712/B
    SCTCOR
           4657/HALF      5725-RES
    SCTCOR%BASE
           5746/B         5782-RES       5810/BYTE
    SCTCOR%JMP
           5745/LB        5809-RES
    SCTCOR%TBL
           5787/LB        5832-RES
    SCTCOR1
           5728-RES       5781/B
    SCTCOR10
           5784-RES       5810/BYTE      5816/BYTE      5817/BYTE
    SCTCOR20
           5786-RES       5795/BFNZ      5800/BFZ       5804/BFZ       5812/BYTE      5814/BYTE      5815/BYTE
           5820/BYTE      5821/BYTE      5822/BYTE      5823/BYTE      5824/BYTE      5825/BYTE      5826/BYTE
           5827/BYTE      5828/BYTE
    SCTCOR25
           5788-RES       5797/B         5802/B         5806/B
    SCTCOR30
           5794-RES       5811/BYTE
    SCTCOR4
           5742/BGZ       5757-RES       5791/BE        5793/B
    SCTCOR40
           5798-RES       5813/BYTE
    SCTCOR5
           5763-RES       5776/B
    SCTCOR50
           5803-RES       5819/BYTE
    SCTCOR60
           5807-RES       5818/BYTE      5829/BYTE
    SCTCOR7
           5731/BE        5769-RES
    SCTCOR8
           5759/BEZ       5777-RES
    SCTCOR9
           5761/BNE       5779-RES
    SCUND
           4736-RES       6609/B
    SCUNDGLBL
           4727-RES       4829/BYTE      5261/BEZ
    SCUNDSYM
           4599/BYTE      4607-RES
    SC1%BASE
           4595/B         4596-RES       4598/BYTE
    SC1%JUMP
           4594/LB        4597-RES
    SC2%BASE
           4690/B         4691-RES       4829/BYTE
    SC2%JUMP
           4689/LB        4828-RES
    SC3%BASE
           5055/B         5056-RES       5058/HALF
    SC3%JUMP
           5054/LH        5057-RES
    SC4%BASE
           6419/B         6421/BYTE      6437-RES
    SC4%JUMP
           6418/LB        6420-RES
    SC5%BASE
           6581/B         6583/BYTE      6604-RES
    SC5%JUMP
           6580/LB        6582-RES
    SC6%BASE
           4636/B         4653/HALF      4990-RES
    SC6%JUMP
           4635/LH        4652-RES
    SC7%BASE
           5125-RES       5239/B         5292/HALF
    SC7%JUMP
           5238/LH        5291-RES
    SD%FLAG
             71/REF       1136/MTW
    SD%TYPE
           1139/LW        1324/STW       4384/STW       6959/STW       7052/STW       7830/STW
    SDHEXC
           1323/LV        6952/LV        7051/LV
    SDINSTC
           4383/LV
    SDTEXTC
           7829/LV
    SDTLOB
           6957/SHIFT
    SDTT
           1140/STB*
    SERR
            111/REF       1004/BAL       2672/BAL       3126/LI        3131/BAL       4522/BAL       5187/BAL
           5774/BAL
    SET
           2979/DIR       6941-RES
    SET%PARTIC%FLAG
           4514/BLE       4518/BLE       4525/BE        4527/BE        4537-RES
    SET%SF
           1829/BAL       1834/BAL       2704/BAL       6989-RES
    SET%SKIP%TRIG
           4114/B         4122-RES
    SETDLRS
            163/BAL       3749/BAL       7015-RES       7453/CALL
    SETFLD
           1271/AND       1950/BFZ       1952/BFZ       4750/AND       5468/LV        6735/LV        6973/LV
    SETLABEL
           1559/BAL       1566/BAL       1789/BAL       7045-RES
    SETLOB
           6942/LV        7046/AV
    SETSKIPTRIG
            532/B          536/BFNZ       537/BFZ        545/BFNZ       591-RES
    SETVALUE
           6945/STW       6974/LW        7048/STW       7049/LI
    SET1
           1990/B         6944-RES
    SET2
           6963/BGZ       6968-RES
    SET3
           6979/BE        6981-RES
    SET4
           6967/BNE       6971-RES
    SF
           1793/XW        1886/MTW       2862/LW        3093/LW        6998/MTW       7316/LW
    SIMPADD
           3909/CV        5165/LV        5433/LV        5556/CS        6702/AV        6885/AV
    SINADDR
           7190/SPIECT    7235/SPIECT    7297-SPECINT
    SINAST
           7194/SPIECT    7238/SPIECT    7293-SPECINT
    SINBASE
           4400/B         4402/COM       7147-RES
    SINBROP
           7237/SPIECT    7298-SPECINT
    SINCOUNT
           4407-EQU
    SINIMOP
           7288/SPIECT    7299-SPECINT
    SINIMVAL
           7286/SPIECT    7300-SPECINT
    SININDEX
           7191/SPIECT    7236/SPIECT    7296-SPECINT
    SINOP
           7071-RES       7107/BAL       7229/BAL
    SINOPCODE
           7193/SPIECT    7294-SPECINT
    SINREF2
           4387/BNEZ      4392-RES
    SINREG
           7192/SPIECT    7287/SPIECT    7295-SPECINT
    SINSUB
           7105-RES       7151/BAL       7268/BAL
    SINSUBXIT
           7106/STW       7113/BLEZ*     7117/B*
    SINSUB1
           7109/BEZ       7118-RES
    SINSUB2
           7115-RES       7121/B
    SINT
           4402-COM
    SINTABLE
           4399/LB        4403-RES       4407/EQU
    SINTFLD
           4394/AND
    SINTLOB
           4325/SHIFT     4395/SHIFT
    SIN0
           4404/SINT      7149-RES
    SIN0FLDCT
           7152/LI        7153/LI        7195-EQU
    SIN0FLDS
           7153/LI        7189-RES       7195/EQU
    SIN01
           7154-RES       7232/B
    SIN02
           7162/BFZ       7165-RES
    SIN03
           7171/BE        7173-RES
    SIN04
           7170/BL        7182-RES
    SIN1
           4405/SINT      7223-RES
    SIN1FLDCT
           7230/LI        7231/LI        7239-EQU
    SIN1FLDS
           7231/LI        7234-RES       7239/EQU
    SIN2
           4406/SINT      7267-RES
    SIN2FLDCT
           7277/LI        7279/LI        7289-EQU
    SIN2FLDS
           7277/LI        7285-RES       7289/EQU
    SIN20
           7271/BFNZ      7274-RES
    SIN21
           7273/BEZ       7276-RES
    SKEYS1
           6032/BEZ       6035-RES       6188/BNE       6190/B
    SKEYS20
           6061-RES       6117/BNE
    SKEYS3
           6091-RES       6104/B
    SKEYS4
           6068-RES       6099/BNE
    SKEYS5
           6114/B         6172/BEZ       6175-RES
    SKEYS6
           6113/BEZ       6177/BEZ       6182-RES
    SKGLF1XIT
           7312/STW       7329/B*
    SKIPCMND
           1867/BAL       3029/BAL       7369-RES
    SKIPGETLF1
           1629/BAL       1684/BAL       2683/BAL       7311-RES
    SKIPINIT
           1625/BAL       1683/BAL       2679/BAL       7336-RES
    SKIPLABEL
           1632/BAL       1687/BAL       3020/BAL       6173/BAL       7368-RES
    SKIPTRIG
            592/MTW       1651/STW       1837/MTW       1861/STW       1880/STW       1897/STW       2729/STW
           3088/LW        3092/STW       4123/MTW       4431/MTW       7320/MTW       7569/STW       7572/XW
           7601/STW
    SKPCMND1
           7371-RES       7375/BDR       7383/BCR       7386/B
    SKPCMND2
           7374/BNE       7377-RES
    SKPCMND3
           7379/BNE       7381-RES
    SMINT
           4458/LV        4540/LV        6038/CS
    SMIUPBND
            147-DATA      6368/CD
    SMPRCD
           1797/CW        1803/STW       6994/CW
    SMPWD
           1800/CW        1804/STW       6996/CW
    SOCW
           2950/DIR       7394-RES
    SOCW%CHK
            989/CALL      3701/CALL      7462-RES
    SOCW%FLG
            359/MTW       7402/LW        7409/MTW       7420/MTW       7465/MTW
    SOCW2LAT
           7403/OR        7427/MTW       7430/MTW       7463/MTW       7471/MTW
    SOURCE
           1902/MTW       2863/STW       3068/LW        3094/STW       7317/STW
    SOURCEONLY
           1898/STW       3168/STW
    SPACE
           2980/DIR       7487-RES
    SPACE1
           7491/BGE       7493-RES
    SPACE2
           7495/BLE       7497-RES
    SPACE5
           7509-RES       7512/BG
    SPADDRET
           5162/LV        5365/CV        5426/CV        5474/LV
    SPAFLD
            464/BFNZ       536/BFNZ       564/IF         578/CW         746/BFZ       1056/BFNZ      1149/BFZ
           1156/BFZ       1169/LV        1177/BFZ       1284/CW        1400/BFNZ      1934/BFNZ      1941/BFNZ
           1947/BFZ       1972/BFNZ      2266/BFZ       2500/BFZ       2621/LV        2783/BFNZ      2815/BFZ
           3230/LV        3235/BFZ       3237/LV        3297/LV        3427/BFNZ      3479/LV        3907/BFNZ
           4698/CV        4735/OR        4814/IF        5158/OR        5364/OR        5459/AV        5476/BFNZ
           5542/BFZ       5613/LV        5641/AV        6290/AV        6408/LV        6694/AND       6879/OR
           7623/BFNZ      7624/AND       7687/BFZ       7914/BFZ
    SPALOB
            220/AV        2222/LV        2548/LV        7046/AV        7663/AV
    SPCD1
            511/BNEZ      4045/BEZ       4047/BNEZ      7578-RES
    SPCD10
           7588/BNE       7594-RES
    SPCD20
           1697/BGE       7591-RES
    SPCD5
           7565/BNE       7581-RES
    SPEC%TEXT%ITEM
           5701/BAL       5716/BAL       6276-RES
    SPEC%TEXT%1
           6286/BE        6289-RES
    SPEC%TEXT%2
           6280/BG        6294-RES
    SPECDIR
           1634/BAL       2691/BAL       7531-RES       7534/BE
    SPI
           2272/CV        3290/LV        3301/LV        4888/AV        6145/AV
    SPILWBND
            145-DATA      6393/CD
    SPIMASK
           6400/LV
    SPINT
           4668/OR
    SPINT%ET
           2551/LV        7667/LV
    SPINTET
           2211/CS        2225/AV        4669/LV        5357/LV        5611/LV        6241/CV        6407/LV
           7074/LV
    SPINTFLD
            577/OR         578/CW         747/BFZ       1031/AND       1283/OR        1284/CW        2267/BFZ
           2501/BFZ       2624/AV        3230/LV        3236/BFZ       3237/LV        3297/LV        3924/BFNZ
           4730/LV        5364/OR        5543/BFNZ      5613/LV        5641/AV        6290/AV        6408/LV
           7688/BFZ       7915/BFZ
    SPINTLOB
           2222/LV        2548/LV        7046/AV        7663/AV
    SPITEMP
           4338/LW        7665/STW       7666/LI
    SPIUPBND
            146-DATA      6370/CD
    SRCLCLFD
           1166/BAL       2786/BAL       7620-RES
    SRCLCL1
           7623/BFNZ      7629-RES
    SREF
           2957/DIR       7643-RES
    SREFEXT
           7644/LV
    SSYMA1
           5273-RES       5278/BDR
    SSYMA2
           5271/B         5277-RES
    SSYMFUNC
           4641/BE        4950-RES
    SSYMFUNC1
           4952-RES       4955/BNE
    STACKSPI
            761/BAL        937/BAL       2525/BAL       2542/BAL       4333/BAL       6140/BAL       6158/BAL
           7120/BAL       7150/BAL       7159/BAL       7228/BAL       7662-RES
    STO
            246/LW         627/STW        635/XW         773/STW       4137/LW        4139/STW       4340/STW
    STORESAMP
            775/STW       4119/STW       4131/STW       4220/LW        4224/MTW       4429/LW        4499/XW
    STYPEFLD
           2823/LV        3908/AND       5377/LV        5466/AND       5505/AND       5555/LV        6814/LV
           6860/LV        6884/AND       7624/AND
    STYPELOB
           4719/AV
    SUB#
           1250/STW       1258/MTW       1289/LW        1291/STW       1293/MTW       5270/LW        5285/MTW
           7698/STW
    SUBLINE
             72/REF       1882/STW       3071/MTW       3083/STW
    SUBLOC
           1193/STW       5254/STW       7684/LW*       7685/MTW
    SUBSYMET
           4647/LV        5227/CS
    SUBVAL
             54/DEF       1210/BAL       1275/BAL       5259/BAL       7683-RES
    SUM%FLAG
           6304/STW       6318/LW        6319/AWM       6325/LW        6686/MTW       6715/LW
    SUMET
           5369/CV        5483/CV        6855/LV
    SYMBOL
            207/LV        2821/CV        3909/CV        4700/LV        4751/OR        5165/LV        5433/LV
           5524/OR        5551/CS        6695/AV        6727/LV        7625/CV        7627/CV
    SYMFUNC
           4848/BYTE      4942-RES
    SYMFUNC1
           4944-RES       4948/B
    SYMFUNC2
           4946/BEZ       4958-RES
    SYMLIST
           4754-RES       4847/BYTE
    SYMT
            249/SW         263/SW         463/LW*        473/AW         481/SW         485/STS*       535/LW*
            542/LW*        547/STW*       563/LW*        568/LW*        588/STS*       628/SW         637/SW
            772/SW        1025/SW        1160/SW        1392/AW        1427/SW        1429/AW        1785/SW
           2603/AW        2610/AW        2619/SW        2775/AW        2784/AW        2894/LW*       2898/AW
           3242/AW        3341/LW        3423/AW        3429/AW        3594/SW        4127/SW        4136/AW
           4223/STH*      4453/SW        4502/AW        4541/STH*      4734/SW
    SYMTBASE
            248/AV         252/AV        1787/AV
    SYNERR
           3126/LI        3131/BAL       3136/CI        4520/CV
    SYSCOUNT
           2747/OR        7318/LW        7340/STW       7542/MTW       7549/MTW       7552/LW
    SYSEND
           1871/BAL       4444/BAL       4476/CALL      7708-RES
    SYSEND1
           7711/BEZ       7714-RES
    SYSEXIT
           7709/STW       7716/BNEZ*     7720/B*        7729/STW       7736/B*
    SYSLEVEL
             73/REF       1857/MTW       1874/MTW       4116/LW        4487/LW        7710/MTW       7715/MTW
           7735/MTW       7771/LW
    SYSLVL
            261/STW       4046/MTW       7713/MTW       7734/MTW
    SYSNAME
             74/REF       7776/STB       7781/STB
    SYSSUB
           4441/BAL       4473/CALL      7728-RES       7786/BAL
    SYSTEM
           2944/DIR       7764-RES
    SYSTEMDIR
           4432/CV        4469/IF        7536/CI
    SYSTEM2
           7777-RES       7782/BDR
    SYSTEM3
           7772/BNEZ      7785-RES
    SYSTEM4
           7770/BE        7788-RES
    SYSTYPEFLD
           4471/AND       7539/AND       7767/AND
    SYSTYPELOB
           4472/IF        7540/CI        7769/CI
    TCORFLG
           1488/MTW       1490/MTW       4728/MTW       5727/MTW       5765/MTW
    TEMP
            198/STW        203/STW        208/STS        211/STS        222/AW         223/STS        290/LW
            295/AND        319/STW        347/LW         351/SW         357/STW        365/LW         379/LI
            387/LW         921/LW         943/STW        947/LW         988/STW       1017/AW        1019/LW
           1052/LW        1340/LD        1562/LW        1737/STW       2118/LW        2157/LW        2232/STW
           2645/STW       2649/LW        2675/MTW       3171/STW       3174/LW        3200/MTW       3674/STW
           3676/MTW       4271/LW        4280/MW        4317/LW        4329/CW        4620/STW       4631/LW
           4642/LW        4982/LW        4986/LI        4996/LW        6956/LW        7498/STW       7501/LW
           7511/MTW
    TEMPO
            935/STW        952/LW        1564/STW       1567/LW        1905/STW       1910/LW        2495/STW
           2506/AWM       2508/CW        2510/SW        2511/AWM       2518/LW        2524/AWM       2533/LW
           2539/STW       3894/STW       3896/LW        4241/STW       4244/AW        4277/STW       4279/LW
    TERR
            112/REF        881/BAL       1073/BAL       1570/BAL       2037/BAL       2042/BAL       2162/BAL
           2513/BAL       3126/LI        3303/BAL       4331/BAL       5181/BAL       5682/BAL       6479/BAL
           6485/BAL       6488/BAL       6492/BAL       6498/BAL       6648/BAL       6660/BAL       6784/BAL
           7948/BAL
    TEXT
           2981/DIR       7801-RES
    TEXT%ITEM
           5656/BAL       5669/BAL       6208-RES
    TEXTC
           2982/DIR       7824-RES
    TEXTCT
           1576/LW        1796/LW        1810/SW        1813/AWM       1883/XW        3795/MTW       6993/LW
    TEXTC1
           7803/B         7826-RES
    TEXTC2
           7835/BNEZ      7839-RES
    TEXTC3
           7847-RES       7855/BGZ
    TEXTET
           6252/CV
    TEXTEXIT
           7899/STW       7952/B*
    TEXTGEN
           7833/BAL       7898-RES
    TEXTGEN1
           7906-RES       7931/BGZ
    TEXTGEN2
           7922-RES       7927/BDR       7961/B
    TEXTGEN3
           7928-RES       7960/BEZ       7964/B         7967/B
    TEXTGEN4
           7933-RES       7940/B
    TEXTGEN5
           7936/BEZ       7941-RES
    TEXTGEN6
           7901/BEZ       7943/BEZ       7947/BLE       7950-RES
    TEXTGEN7
           7914/BFZ       7953-RES
    TEXTGEN8
           7915/BFZ       7917/BEZ       7956/BNE       7962-RES
    TEXTGEN9
           7913/BNE       7965-RES
    TEXTMRGE
           2032/BAL       7895-RES       7985/BAL
    TFLD
            514/LI         995/LI        1107/LI        1720/LI        2658/LI        2736/LV        2875/LI
           4523/LV        4582/BFZ       4591/LV        6037/LI        6071/LI
    TITLE
           2983/DIR       7976-RES
    TITLEBUF
             75/REF        123/EQU       8001/STW
    TITLENUM
           7979/LW        7984/MTW
    TITLEPG
            123-EQU       7989/STW
    TLOB
           4593/SHIFT
    TMP
           1399/LW        1400/BFNZ      1401/SW        1402/STW       1418/LW        1419/STW
    TMP
           4548/OPEN      4549-EQU       4648/LW        4663/STW       4664/AND       4666/OR        4668/OR
           4683/LW        4730/LV        4731/STS       4733/LW        4734/SW        4735/OR        4742/LI
           4743/AND       4750/AND       4751/OR        4781/AND       4782/OR        4856/LW        4857/AI
           4858/SLS       4859/AI        4868/AW        4869/AV        4870/AW        4888/AV
           4893/NXTENC    4894/STH       4903/LI        4906/STH       4913/STH       4914/LI        4925/LV
           4926/AND       4927/SHIFT     4930/STB       4935/OR        4938/LV        4939/AND       4959/LW
           4960/AND       4961/CW        4982/LW        5002/LI        5008/AI        5032/LI        5149/LV
           5152/LW        5154/CV        5158/OR        5160/OR        5168/OR        5229/LW        5230/SW
           5231/AI        5232/STW       5313/CI        5325/BDR       5326/LW        5327/OR        5336/LW
           5341/AND       5345/AW        5362/LW        5363/AND       5364/OR        5394/AW        5523/LW
           5524/OR        5525/OR        5526/OR        5527/LI        5547/LW        5553/LV        5554/AND
           5563/AW        5582/LW        5639/LB        5640/OR        5641/AV        5642/LI        5762/LW
           5775/LI        5922/AI        5924/AWM       6000/LH        6001/CI        6004/LH        6008/CI
           6010/CI        6014/LI        6163/LI        6608/LV        6720/STW       6775/SW        6776/AWM*
           6790/LW        6795/LW        6844/LW        6873/LV        6874/AND       6876/OR        6877/OR
           6878/OR        6879/OR        6918/CLOSE
    TOTALCT
           2034/CW        2036/STW       2078/LW        7854/MTW       7951/STW       7991/LW
    TRUNERR
           3138/CI
    TR0
           1252/LI        1257/AW        1260/AW        1262/STS       3250/LW        3251/CS        3257/LW
           3258/CS        3261/CW        4757/LW        4775/BDR       4871/NXTENC    4883/CV        4885/CI
           4894/STH       4900/LI        4906/STH       4918/NXTENC    4921/CV        4923/CV        4926/AND
           4930/STB       4931/NXTENC    4932/SHIFT     4934/AND       4935/OR        4939/AND       5341/AND
           5640/OR        5672/CS        5674/STS       5675/LW        5676/AI        5694/STB*      5695/STB*
           5707/LW        5708/SW        6192/LW        6193/STW       6209/AV        6211/LI        6237/LV
           6238/AND       6282/LW        6283/AND       6284/SLS       6287/SLS       6288/AV        6290/AV
           6292/STS
    TR1
           1261/LV        3230/LV        3237/LV        3297/LV        5671/LV        6210/LW        6291/LV
           8027/AND       8028/CW
    TXTCTFLD
           1808/AND
    TXTCTLOB
           1587/SHIFT     1809/SHIFT
    TXTCTWD
           1588/STW       1807/LW
    TXTFLG
           7827/STW       7897/STW       7905/LW        7942/MTW
    TX1
           4547/OPEN      4550-EQU       4889/LV        4890/STW       4984/LV        4985/STW       5005/LW
           5006/SW        5007/STW       5013/LW        5014/SW        5015/CW        5025/BDR       5165/LV
           5166/STW       5419/LW        5420/SHIFT     5422/STS       5431/LW        5432/AND       5441/LW
           5442/AND       5443/SHIFT     5455/CV        5458/AW        5462/SHIFT     5463/AW        5475/LW
           5476/BFNZ      5489/LW        5490/OR        5491/STW       5504/LW        5505/AND       5506/CV
           5509/LW        5510/SAS       5511/STW       5529/LV        5530/STW       5593/LW        5594/AW
           5601/CW        6311/LM        6312/STM       6333/LCD       6334/STD       6358/LD        6363/STD
           6366/LD        6368/CD        6370/CD        6379/CI        6383/LW        6393/CD        6417/LD
           6439/OR        6443/EOR       6447/AND       6451/CD        6454/LD        6457/CD        6461/CD
           6465/CD        6469/CD        6473/CD        6476/SD        6481/AD        6483/AD        6486/SD
           6490/DW        6493/LW        6494/SAD       6499/MW        6502/SLD       6523/LW        6524/AW
           6525/STW       6563/LW        6564/STW       6566/AND       6567/AW        6568/STW       6575/LW
           6576/AND       6577/STW       6666/LB        6667/STB       6675/LW        6678/STW       6682/STS
           6691/LW        6694/AND       6695/AV        6696/AW        6699/LW        6700/LW        6704/AND
           6705/SHIFT     6706/AW        6721/LW        6722/AND       6723/STW       6724/LW        6725/AND
           6726/STW       6727/LV        6728/OR        6732/LW        6733/AW        6743/LW        6745/CS
           6748/CS        6756/LW        6763/STW       6769/LW        6788/LW        6789/AWM       6793/LW
           6794/AWM       6800/STW       6819/LW        6820/CS        6824/LW        6825/SAD       6826/STD
           6827/LW        6828/SAD       6829/STD       6849/LI        6852/LI        6853/STD       6855/LV
           6856/STW       6859/LW        6861/CS        6867/CV        6874/AND       6884/AND       6885/AV
           6886/OR        6889/STD       6905/LW        6906/SW        6907/CI        6913/AI        6914/STW
           6917/CLOSE
    TX2
           4547/OPEN      4551-EQU       4759/LI        4763/LV        4769/AWM       4774/LI        5020/LH
           5021/CH        5421/LV        5711/LI        6382/STW       6383/LW        6386/STW       6409/OR
           6440/OR        6444/EOR       6448/AND       6493/LW        6519/LW        6520/AW        6521/CW
           6525/STW*      6532/LW        6533/AW        6534/AW        6535/CW        6538/SW        6541/STW*
           6543/AI        6681/LV        6683/LI        6684/STW       6735/LV        6814/LV        6850/LW
           6860/LV        6863/LW        6869/CV        6878/OR        6882/CV        6888/OR        6909/LB
           6910/SLS       6911/CV        6917/CLOSE
    TX3
           4547/OPEN      4552-EQU       4954/CV        5009/CV        5027/CV        5153/LW        5156/CV
           5159/SLS       5160/OR        5167/SLS       5168/OR        5169/STW       5171/LV        5173/STW
           5582/LW        5583/AV        5584/STD       5586/LV        5767/NXTENC    6341/LW        6342/EOR
           6343/STW       6347/LCW       6348/STW       6377/LV        6381/AV        6388/OR        6389/STW
           6400/LV        6408/LV        6409/OR        6540/LW        6541/STW       6613/LI        6615/STD
           6620/LD        6631/LW        6641/LI        6653/LW        6661/LD        6667/STB       6674/LI
           6677/STW       6689/LW        6690/AND       6700/LW        6701/AND       6744/LW        6745/CS
           6748/CS        6763/STW       6865/LW        6866/AND       6871/CV        6875/SHIFT     6876/OR
           6887/SHIFT     6888/OR        6917/CLOSE
    TX4
           4547/OPEN      4553-EQU       5311/LW        5323/AND       5326/LW        5340/AW        5345/AW
           5558/LW        5559/AND       5561/CV        5563/AW        5579/LW        5667/CI        5672/CS*
           5674/STS*      5675/LW        5688/MTW*      5719/LI        6200/LI        6213/LW        6214/AW
           6281/LW        6313/CI        6315/LI        6316/STW       6578/LW        6611/AND       6624/LW
           6627/CI        6632/LW        6639/LW        6644/LW        6650/LW        6675/LW        6679/LV
           6680/STW       6689/LW        6691/LW        6692/AND       6693/SHIFT     6696/AW        6702/AV
           6703/AND       6706/AW        6736/LV        6917/CLOSE
    TYPE
            113/REF       1200/BAL       4639/BAL       4687/BAL       4714/BAL       4768/BAL       4824/BAL
           5257/BAL       5608/BAL       5743/BAL       6240/BAL
    TYPEFLD
            571/AND       1057/LV        2271/AND       2820/AND       3267/AND       3298/LV        3908/AND
           4815/AND       5466/AND       5550/LV        6814/LV        7624/AND       7954/AND
    T1
           1576/LW        1587/SHIFT     1588/STW       1589/LW        1590/SHIFT     1591/AW        1592/STW
           1611/LI
    T2
           1574/LI        1575/STH       1586/STW       1612/LI
    T3
           1580/STW       1604/BDR
    UERR
            114/REF       1050/BAL       2560/BAL       2794/BAL       4737/BAL       6131/BAL       7966/BAL
    UFVINTRINSIC
           5299/HALF      5302/HALF      5591-RES
    UFVINT1
           5610/BNE       5614-RES
    UFVINT2
           5600-RES       5624/B
    UFVINT3
           5619/BNE       5621-RES       5627/B
    UGLBLET
           3582/CS        4738/LW        5148/LV        5485/CV        5609/CV        5611/LV
    UNDITM
           5149/LV        6608/LV
    USECT
           2984/DIR       8018-RES
    V%B
           5066/HALF      5118-RES
    V%C
           5129-RES       5304/HALF      5305/HALF
    V%C%3
           4744-RES       4748/B         4988/B         5176/B         6391/B         6858/BNE       6862/BNE
           6864/BLZ       6883/BG
    V%C%4
           5172-RES       5587/B
    V%C%5
           5155/BG        5157/BG        5164-RES
    V%C%6
           4983/BLZ       5161-RES       6880/B
    V%C%7
           5170-RES       6890/B
    V%E
           5297/HALF      5350-RES
    V%F
           5292/HALF      5405-RES
    V%OPERATOR
           5053/BGE       6300-RES
    V%0
           5058/HALF      5073-RES       6897/BE
    V%01
           5075/BEZ       5079-B
    V%10
           5293/HALF      5406-RES
    V%11
           5294/HALF      5407-RES
    V%12
           5295/HALF      5408-RES
    V%13
           5296/HALF      5537-RES
    V%13%1
           5572-RES       5578/BG
    V%14
           5067/HALF      5180-RES
    V%15
           5068/HALF      5186-RES
    V%4
           5083-RES       5094/BNE
    V%8
           5064/HALF      5100-RES
    V%9
           5102/B         5110-RES
    VALCNT
            951/STW       2532/STW       7155/STW       7280/STW
    VALFLD
            748/AND       2230/AND       2268/AND       2505/AND       3238/LV        3932/AND       4328/AND
           4883/CV        5561/CV        6142/CW        6611/AND       7690/AND
    VALPTR
            946/STW       2530/STW       4398/STW       7163/LW*
    VFLD
            520/AND       1138/AND       2602/AND       2877/AND       2931/AND       3079/AND       3469/AND
           4664/AND       6042/AND
    WDRES
           4700/LV        5158/OR        5165/LV
    WDRS
           3742/AV        7021/LI        7183/LV
    XAPDATA
            125/EQU
    XM
           3318/LC
    XMBASE
           1600/LH*       3317/LI        6000/LH*       6004/LH*
    XS
            434/LW         437/SW         438/STW        439/AW         744/LW         751/AI         942/AI
            943/STW        945/AI         946/STW       1193/STW       1240/LW        1243/AI        1244/CW
           1246/LW        1501/LW        1506/AI        1510/LW        1597/LW        1600/LH        1601/AI
           2015/LW        2021/LW        2205/LW        2226/STW       2493/STW       2497/LW        2515/AI
           2530/STW       2540/LW        2541/AW        2545/STW       2553/STS       3900/LW        4082/LW
           4088/AI        4568/LW        4569/STW       4943/LW        4947/SW        4951/LW        4956/AI
           4957/XW        4965/XW        4966/STW       5003/LW        5005/LW        5011/STW       5013/LW
           5033/LW        5596/LW        5597/AW        5603/LW        5605/STW       5606/AI        5612/AWM
           5737/LW        5766/LW        5877/LW        5878/AW        5880/LW        5882/AI        5884/XW
           5890/LW        5891/AW        5893/LW        5895/AI        5896/XW        5973/LW        5996/LW
           6000/LH        6003/AI        6004/LH        6005/AI        6070/LW        6078/CW        6080/BDR
           6087/LW        6089/LW        6101/LI        6102/STW       6109/LW        6110/AI        6162/LW
           6170/STW       6179/LI        6903/LW        6904/AW        6909/LB*       6965/LW        6970/AI
           6972/LW        7161/LW        7175/LW        7176/STW       7270/LW        7902/LW        7907/LW
           7929/AI        8023/SW        8024/AI        8025/STW
    XT
            161/LI         162/STW        193/LW         194/AWM        195/LW         196/SHIFT      197/AW
            198/STW        199/LW         200/AND        202/SCS        203/STW        204/LC         214/CV
            246/LW         249/SW         250/AI         251/SLS        252/AV         253/STW        256/LW
            257/AW         259/STW        260/STW        261/STW        264/STW        266/STW        268/STW
            269/LW         290/LW         292/CI         294/AI         295/AND        318/LI         319/STW
            347/LW         348/AI         349/AND        351/SW         352/LCW        352/LCW        353/AWM
            357/STW        365/LW         366/STW        387/LW         389/AWM        390/AWM        409/LW
            410/CI         434/LW         435/AND        436/STW        463/LW         464/BFNZ
            469/SHIFT      473/AW         477/AND        480/LW         481/SW         483/SHIFT      485/STS
            486/LW         489/STW        509/STW        512/LW         513/NXTENC     513/NXTENC     515/AND
            520/AND        521/STW        529/CI         535/LW         535/LW         536/BFNZ       537/BFZ
            538/SHIFT      542/LW         547/STW        549/CI         561/CLM        563/LW         566/LV
            567/AND        568/LW         588/STS        612/LV         627/STW        628/SW         629/STW
            635/XW         637/SW         638/STW        719/LW         736/LW         738/LI         742/LI
            749/AW         754/CI         758/AI         760/SLS        773/STW        818/LI         835/LI
            837/STW        864/LW         868/AI         869/LW         874/STS        875/AI         876/LW
            877/SW         879/CI         882/LI         883/SW         894/STW        895/STW        921/LW
            924/CI         927/LI         933/LI         935/STW        936/SLS        940/STW        947/LW
            948/STW        949/LI         950/STW        951/STW        952/LW         956/LW         985/LV
            988/STW        996/AND        999/AI        1001/AND       1002/AW        1068/LI        1069/CB
           1069/CB        1099/LW        1100/STW       1105/CI        1108/CV        1110/AND       1123/STW
           1124/AND       1130/LW        1138/AND       1140/STB       1144/LW        1145/CW        1148/LW
           1149/BFZ       1150/LW        1151/BFZ       1155/LW        1156/BFZ       1159/LW        1160/SW
           1161/STS       1169/LV        1170/XW        1172/LW        1173/STW       1176/LW        1177/BFZ
           1179/LW        1180/STW       1186/LW        1189/LW        1190/STW       1191/LW        1192/STW
           1194/LW        1203/LW        1207/LW        1208/STW       1211/CW        1213/AI        1224/LW
           1228/LI        1232/LW        1235/LW        1246/LW        1247/AW        1248/STW       1249/LW
           1251/AI        1254/AND       1256/AW        1265/LI        1267/STW       1270/LW        1271/AND
           1274/AWM       1276/CI        1281/STW       1282/LW        1283/OR        1284/CW        1287/LW
           1289/LW        1290/SW        1291/STW       1301/CV        1305/LW        1306/CV        1323/LV
           1324/STW       1340/LD        1341/STD       1342/LI        1343/STW       1440/LW        1441/STW
           1442/LW        1472/LW        1473/STW       1474/LW        1475/SW        1476/AI        1477/STW
           1493/LW        1494/CW        1501/LW        1502/CS        1508/LI        1509/STW       1510/LW
           1511/AW        1512/STW       1516/LW        1517/CV        1519/LI        1522/LW        1523/LW
           1523/LW        1524/STW       1534/LW        1534/LW        1535/STW       1540/LW        1558/LI
           1562/LW        1564/STW       1565/LI        1567/LW        1568/CI        1571/LI        1575/STH
           1577/LW        1578/SW        1580/STW       1581/SLS       1582/AI        1583/STW       1600/LH
           1602/STH       1609/LW        1626/LI        1627/STW       1630/CI        1635/CI        1637/LW
           1643/LW        1646/LW        1650/LI        1651/STW       1677/AI        1679/STW       1685/CI
           1690/CI        1694/CV        1696/CV        1721/CS        1726/STW       1728/LI        1729/STW
           1731/LW        1732/SHIFT     1734/STS       1738/LW        1740/LV        1742/STS       1756/LI
           1759/LI        1761/STW       1764/LW        1766/LW        1769/LW        1775/LW        1783/LW
           1784/AND       1790/LW        1807/LW        1823/LW        1830/LW        1835/LW        1865/CI
           1879/LI        1880/STW       1881/STW       1882/STW       1883/XW        1884/LCW       1889/LW
           1893/LW        1896/LI        1897/STW       1898/STW       1899/LI        1900/AND       1901/STW
           1903/LW        1904/XW        1905/STW       1907/LD        1908/STW       1909/STD       1910/LW
           1911/STW       1933/LW        1934/BFNZ      1935/LW        1940/LW        1941/BFNZ      1942/LW
           1946/LW        1947/BFZ       1948/BFZ       1950/BFZ       1953/BFZ       1956/CS        1958/OR
           1959/STW       1963/BFZ       1967/STS       1968/LW        1969/CW        1971/LW        1972/BFNZ
           1973/LW        1974/CW        1989/LI        2003/LI        2004/STW       2005/STW       2006/CW
           2009/LW        2010/CI        2015/LW        2016/AW        2021/LW        2022/AW        2023/BFZ
           2033/LI        2034/CW        2036/STW       2040/LW        2041/IF        2044/CB        2046/STB
           2057/LI        2059/LI        2061/STW       2074/LW        2075/STH       2076/LW        2077/SLS
           2082/LB        2084/AI        2118/LW        2120/CI        2122/CI        2124/AI        2125/CI
           2130/LI        2132/SLS       2157/LW        2159/CI        2163/LI        2165/STW       2197/LW
           2199/CI        2205/LW        2206/LW        2211/CS        2213/CS        2215/AI        2216/LW
           2216/LW        2221/LW        2224/STW       2225/AV        2226/STW       2229/LW        2229/LW
           2230/AND       2232/STW       2265/LW        2274/LW        2287/LCW       2288/AWM       2313/LI
           2318/LW        2328/STS       2337/LW        2340/LW        2342/STS       2349/LW        2350/STW
           2351/AW        2352/STW       2355/LW        2356/AW        2357/SLS       2361/LW        2365/SW
           2366/CW        2369/LI        2370/STB       2374/LV        2400/LW        2401/AW        2402/CW
           2404/LCW       2405/AWM       2411/LW        2412/AND       2421/LW        2423/STS       2424/LW
           2425/SHIFT     2426/AW        2427/STW       2429/LW        2430/AND       2431/SHIFT     2432/AW
           2433/CS        2435/LW        2435/LW*       2436/STS       2437/AND       2438/AWM       2441/LW
           2442/AND       2443/SHIFT     2444/AW        2445/CS        2447/LW        2447/LW*       2448/STS
           2449/AND       2450/AWM       2491/LW        2492/STW       2494/LI        2495/STW       2499/LW
           2500/BFZ       2501/BFZ       2503/CS        2505/AND       2506/AWM       2522/LI        2523/SW
           2524/AWM       2531/LW        2532/STW       2533/LW        2534/SLS       2538/LI        2539/STW
           2543/LI        2544/STW       2548/LV        2549/AW        2550/STW       2551/LV        2553/STS
           2602/AND       2603/AW        2604/STW       2605/LW        2609/LW        2610/AW        2612/STW
           2615/LI        2616/STW       2644/LI        2645/STW       2646/LW        2653/LI        2655/STW
           2659/CS        2661/CS        2663/CI        2665/LI        2666/STW       2670/LW        2684/CI
           2686/CI        2693/LW        2696/LW        2707/LI        2708/STW       2712/CI        2717/CI
           2721/AV        2723/AND       2724/AW        2728/LI        2729/STW       2737/CS        2741/OR
           2743/CW        2774/LW        2775/AW        2776/STW       2777/AND       2778/STW       2782/LW
           2783/BFNZ      2784/AW        2785/STW       2814/LW        2824/LS        2829/LS        2855/LW
           2862/LW        2863/STW       2868/LI        2869/STW       2876/AND       2877/AND       2886/CI
           2888/LH        2888/LH        2889/B         2894/LW        2894/LW        2895/SHIFT     2896/CI
           2898/AW        2899/STW       2900/LW        2917/LW        2924/LW        2931/AND       3018/CI
           3022/LI        3023/STW       3026/CI        3062/CI        3064/AND       3065/CI        3068/LW
           3074/CI        3079/AND       3081/STW       3082/LI        3083/STW       3086/AI        3093/LW
           3094/STW       3126/LI        3131/BAL       3134/CI        3136/CI        3138/CI        3140/AI
           3142/AND       3143/AW        3168/STW       3171/STW       3174/LW        3175/SHIFT     3177/STS
           3199/LI        3202/LI        3223/LI        3224/STW       3225/LI        3226/STW       3227/LW
           3232/LW        3232/LW        3235/BFZ       3236/BFZ       3240/LW        3242/AW        3243/STW
           3244/AI        3251/CS        3258/CS*       3261/CW        3266/AND       3267/AND       3268/CV
           3274/LI        3275/STW       3276/LB        3278/LW        3285/LB        3288/BDR       3290/LV
           3291/AW        3292/STW       3293/LI        3294/STW       3301/LV        3302/AWM       3317/LI
           3336/LI        3344/STW*      3407/AND       3408/AND       3409/SHIFT     3410/STW       3421/LW
           3422/AND       3423/AW        3424/SW        3425/STW       3426/LW        3428/LW        3429/AW
           3431/STW       3461/LW        3464/LI        3466/STS       3469/AND       3473/AW        3476/STW
           3478/LW        3481/STW       3482/BDR       3542/LW        3543/SW        3544/SW        3574/LW
           3575/AI        3576/LW        3576/LW        3577/AW        3578/STW       3582/CS        3586/CI
           3591/LI        3592/STW       3593/LW        3594/SW        3595/STW       3601/LW        3602/AW
           3603/STW       3630/LW        3631/CS        3633/STS       3642/LV        3643/STW       3644/LV
           3645/AW        3647/STD       3648/LI        3656/LV        3657/STW       3660/LI        3674/STW
           3678/LW        3703/LW        3709/LW        3710/CI        3715/CI        3722/LI        3723/STW
           3725/LW        3726/STW       3736/LI        3737/STW       3738/LW        3739/SHIFT     3740/AW
           3741/SHIFT     3742/AV        3743/STW       3767/LW        3769/LW        3770/STW       3772/BDR
           3773/LW        3774/STW       3783/LW        3786/LI        3787/STW       3832/LW
           3833/SHIFT     3835/LS        3837/STS       3855/LW        3856/STW       3857/LW        3858/STW
           3859/LW        3860/STW       3894/STW       3896/LW        3897/STW       3902/LW        3903/AND
           3904/CW        3906/LW        3907/BFNZ      3908/AND       3909/CV        3911/LW        3912/AND
           3913/SHIFT     3914/STW       3915/LW        3920/SCS       3921/AND       3924/BFNZ      3925/AND
           3926/SHIFT     3927/STW       3928/LW        3929/AND       3932/AND       3934/SLS       3935/CV
           3940/LI        3942/STW       3954/LV        3955/AND       3958/STW       3979/SHIFT     3980/STW
           3981/CI        4002/LW        4004/STS       4006/LI        4008/STS       4055/LW        4070/AW
           4073/LW        4075/AI        4077/LW        4078/STW       4082/LW        4083/AW        4085/STS
           4111/LW        4119/STW       4120/XW        4136/AW        4137/LW        4138/STS       4139/STW
           4141/LW        4153/LI        4173/STW       4196/SHIFT     4197/STW       4223/STH       4238/LV
           4241/STW       4243/SHIFT     4244/AW        4271/LW        4275/LI        4277/STW       4280/MW
           4312/LV        4317/LW        4319/CI        4323/LI        4325/SHIFT     4326/AWM       4328/AND
           4329/CW        4340/STW       4345/STS       4377/LW        4383/LV        4384/STW       4393/LW
           4394/AND       4395/SHIFT     4399/LB        4432/CV        4434/CV        4436/AV        4438/STW
           4451/LW        4452/AW        4453/SW        4454/SLS       4455/STW       4458/LV        4460/LW
           4465/IF        4469/IF        4471/AND       4472/IF        4475/ELSF      4482/ELSF      4487/LW
           4488/AI        4489/SW        4490/STW       4497/LW        4499/XW        4500/AI        4501/SLS
           4502/AW        4503/STW       4510/AND       4511/CV        4513/CV        4515/CV        4517/CV
           4520/CV        4524/CS        4526/CS        4528/CS        4531/AND       4563/LI        4565/LI
           4566/STW       4570/LI        4571/STW       4572/STW       4573/STW       4574/STW       4579/AND
           4580/CI        4582/BFZ       4592/AND       4620/STW       4621/CLM       4631/LW        4632/CLM
           4634/AI        4635/LH        4642/LW        4648/LW        4663/STW       4675/CLM       4680/LW
           4681/LW        4742/LI        4756/LW        4757/LW        4766/LW        4767/LW        4800/LW
           4801/AW        4802/LW        4802/LW        4804/CS        4806/AW        4808/LW        4812/AI
           4813/LW        4820/STW       4822/LW        4823/LW        4855/AND       4860/AND
           4861/SHIFT     4862/LW        4863/AI        4864/SHIFT     4865/STW       4903/LI        4907/LI
           4913/STH       4914/LI        4968/LI        4971/LW        4979/LW        4986/LI        4996/LW
           5049/CV        5052/CI        5054/LH        5078/LV        5089/LW        5090/OR        5091/XW
           5092/AND       5093/CV        5107/LV        5108/STW       5119/LW        5120/AI        5122/STS
           5130/LI        5131/STW       5132/XW        5134/LW        5135/AI        5136/LW        5140/STW
           5175/LI        5197/AND       5198/CV        5204/LW        5205/AW        5206/LW        5208/AWM
           5222/LW        5225/AI        5226/LW        5229/LW        5242/STW       5244/LW        5251/LW
           5252/AI        5253/AW        5254/STW       5267/CW        5274/LW        5309/STW       5312/AI
           5317/LW        5322/LW        5324/AI        5333/STW       5365/CV        5367/CV        5369/CV
           5416/IF        5417/IF        5418/IF        5426/CV        5428/LW        5429/AND
           5430/SHIFT     5435/CV        5438/LW        5439/AND       5440/SHIFT     5450/SCS       5452/STB
           5453/CV        5458/AW        5459/AV        5463/AW        5464/STW       5465/LW        5466/AND
           5469/LS        5470/STW       5472/LI        5475/LW        5483/CV        5485/CV        5494/LW
           5496/CS        5498/LI        5499/LW        5504/LW        5515/LW        5516/SHIFT     5517/XW
           5518/STW       5519/LW        5520/AV        5527/LI        5541/LW        5542/BFZ       5543/BFNZ
           5544/CV        5546/AND       5547/LW        5551/CS        5554/AND       5556/CS        5568/CS
           5570/AND       5571/LW        5574/LW        5575/CS        5596/LW        5598/LW        5599/AW
           5601/CW        5607/LW        5616/STW       5622/AI        5625/LW        5626/STW       5642/LI
           5690/LI        5693/LB        5694/STB       5703/LW        5704/LW        5709/STW       5730/CV
           5732/AND       5733/CLM       5737/LW        5738/AW        5739/LW        5752/LW        5753/LW
           5754/AW        5758/MTW       5760/CW        5762/LW        5770/LW        5771/AW        5772/MTW
           5778/STW       5780/MTW       5799/LW        5879/SW        5885/BDR       5933/LI        5934/STW
           5936/LI        5944/AW        5947/LW        5949/AI        5967/LW        5973/LW        5974/AW
           5982/LW        5983/AW        5984/AI        5985/STW       5986/LW        5987/STW       5988/LI
           5991/STW       5994/LW        5995/AW        5996/LW        6014/LI        6021/LI        6022/CW
           6024/LW        6031/AND       6034/STW       6038/CS        6042/AND       6043/CI        6046/LCW
           6046/LCW       6047/SLS       6052/IF        6062/CI        6072/CS        6074/CS        6078/CW
           6098/CI        6106/CI        6111/LI        6112/AND       6116/CI        6123/LI        6124/AND
           6126/LW        6129/LW        6132/BDR       6134/LW        6135/AWM       6136/AI        6137/SW
           6138/STW       6139/LW        6141/LW        6142/CW        6144/LW        6145/AV        6146/STW
           6147/LI        6156/LW        6169/LI        6170/STW       6171/LW        6176/LW        6179/LI
           6183/LW        6184/SLS       6185/STW       6187/CI        6194/STW       6195/AW        6196/STW
           6197/LW        6198/AW        6199/STW       6211/LI        6234/LW        6235/AW        6236/AND
           6238/AND       6239/LW        6247/SLS       6248/SW        6249/AI        6254/AI        6255/LB*
           6256/SLS       6257/AI        6259/LW        6302/STW       6303/LI        6304/STW       6305/STW
           6306/LW        6307/STW       6318/LW        6319/AWM       6324/LW        6327/CI        6329/CI
           6351/CI        6353/CI        6376/LV        6387/STW       6390/LI        6399/LV        6407/LV
           6418/LB        6418/LB        6419/B         6540/LW        6542/AI        6552/LW        6553/LW
           6553/LW        6554/AND       6555/STW       6564/STW       6565/AND       6579/SHIFT     6580/LB
           6580/LB        6581/B         6644/LW        6645/AND       6646/CI        6649/AI        6650/LW
           6651/AI        6653/LW        6657/LB        6658/CI        6664/CI        6666/LB        6670/AI
           6715/LW        6716/CI        6730/LI        6732/LW        6733/AW        6738/AI        6740/CW
           6743/LW        6752/AI        6753/CW        6769/LW        6771/AI        6772/CW        6786/CI
           6844/LW        6845/LW        6850/LW        6859/LW        6863/LW        6865/LW        6896/CI
           6942/LV        6945/STW       6952/LV        6956/LW        6957/SHIFT     6959/STW       6965/LW
           6966/CS        6974/LW        6975/STS       6976/LW        6977/AND       6978/CW        6990/LW
           6993/LW        6994/CW        7016/LW        7017/STW       7018/LI        7019/STW       7020/STW
           7021/LI        7022/STW       7023/STW       7046/AV        7047/AW        7048/STW       7049/LI
           7050/STW       7051/LV        7052/STW       7072/LW        7073/AI        7111/LW        7112/AI
           7114/AWM       7119/LI        7152/LI        7155/STW       7156/STW       7158/LI        7161/LW
           7162/BFZ       7177/AW        7179/STS       7183/LV        7184/STW       7227/LI        7230/LI
           7270/LW        7271/BFNZ      7277/LI        7278/STW       7279/LI        7280/STW       7281/STW
           7313/LW        7316/LW        7317/STW       7318/LW        7319/STB       7337/LI        7338/STW
           7339/STW       7340/STW       7341/STW       7342/STW       7373/CI        7378/CI        7382/AI
           7384/AND       7385/AW        7402/LW        7403/OR        7410/STH       7411/STW       7412/LI
           7413/STW       7414/STW       7435/LI        7436/LB        7451/LI        7452/STW       7490/CI
           7492/LI        7494/CI        7496/LI        7498/STW       7501/LW        7502/CW        7505/LV
           7506/AND       7533/CI        7536/CI        7544/LI        7547/CI        7554/CI        7559/CI
           7564/CI        7582/CI        7587/CI        7595/CI        7597/CI        7622/LW        7623/BFNZ
           7624/AND       7625/CV        7627/CV        7644/LV        7663/AV        7664/AW        7665/STW
           7666/LI        7684/LW        7686/LW        7686/LW        7687/BFZ       7688/BFZ       7689/BFNZ
           7690/AND       7692/CI        7696/LI        7698/STW       7717/LI        7719/STS       7731/LW
           7733/STS       7767/AND       7769/CI        7771/LW        7780/AI        7781/STB       7789/LW
           7802/LI        7825/LI        7827/STW       7829/LV        7830/STW       7843/LI        7844/STW
           7845/LI        7846/STW       7848/LW        7849/STW       7896/LI        7897/STW       7902/LW
           7903/AW        7904/STW       7907/LW        7908/AW        7909/LW        7919/SLS       7920/AI
           7921/SW        7923/AI        7924/LB        7934/LI        7935/AND       7937/LI        7938/STB
           7957/SLS       7958/AI        7959/LB        7979/LW        7981/LW        7986/LW        7989/STW
           7991/LW        7992/CI        7994/LI        7996/SLS       7998/AI        8000/LW        8001/STW
           8035/LW        8037/STS       8038/STS       8039/SHIFT     8041/STS       8042/STS
    XT1
            201/LCW        202/SCS        207/LV         208/STS        209/LW         210/SHIFT      211/STS
            216/LW         217/CI         220/AV         221/SHIFT      222/AW         223/STS        258/LI
            259/STW        260/STW        261/STW        262/LW         263/SW         264/STW        265/LW
            266/STW        369/LI         376/LI         379/LI         381/LI         382/STW        383/LI
            384/STW        413/EXIT       462/LI         465/LV         466/CW         468/LV         476/LV
            482/BFNZ       488/LW         489/STW        542/LW         543/EXIT       545/BFNZ       546/AV
            547/STW        563/LW         564/IF         565/EXIT       567/AND        568/LW         571/AND
            572/CV         577/OR         578/CW         587/LV         588/STS        626/LW         627/STW
            631/LI         634/LW         635/XW         636/STW        666/LI         711/LW         712/AND
            713/CW         744/LW         745/LW         745/LW         746/BFZ        747/BFZ        748/AND
            749/AW         771/LW         772/SW         773/STW        774/SLS        775/STW        865/LW
            870/AND        891/AW         892/AV         896/STW        995/LI         996/AND        997/CI
           1015/LW        1016/BFNZ      1017/AW        1018/STW       1030/BFNZ      1031/AND       1032/AW
           1035/OR        1036/STW       1042/LV        1043/STS       1046/BFZ       1049/BFNZ      1056/BFNZ
           1058/AND       1063/AND       1066/AND       1067/THEF      1107/LI        1110/AND       1111/CI
           1113/CI        1124/AND       1125/CV        1127/CV        1139/LW        1140/STB       1154/LV
           1157/LI        1167/CI        1170/XW        1196/AW        1197/STW       1199/LW        1204/LI
           1226/AWM       1236/LW        1237/SW        1249/LW        1250/STW       1256/AW        1257/AW
           1272/LW        1273/AI        1274/AWM       1279/LW        1280/AW        1281/STW       1385/LW
           1386/SW        1387/STW       1391/AW        1392/AW        1393/STW       1394/AND       1395/STW
           1396/LB        1405/BDR       1416/LI        1418/LW        1419/STW       1420/AI        1443/LB
           1444/STW       1500/LV        1520/LI        1530/LI        1542/AWM       1720/LI        1733/LV
           1736/LV        1737/STW       1741/LV        1767/LW        1769/LW        1770/BFZ       1775/LW
           1776/SH        1776/SH        1777/AND       1781/LW        1782/MTW       1783/LW        1785/SW
           1786/SLS       1787/AV        1788/STW       1791/LW        1793/XW        1796/LW        1797/CW
           1803/STW       1860/LI        1861/STW       1862/LI        1863/AW        1864/NXTENC    1932/LI
           1938/STW       1939/LI        1945/STW       1951/LW        1952/BFZ       1955/LV        1966/LV
           2018/AI        2027/STW       2071/LI        2082/LB        2083/STB       2210/LV        2265/LW
           2266/BFZ       2267/BFZ       2268/AND       2271/AND       2272/CV        2274/LW        2277/CV
           2282/LI        2318/LW        2319/AND       2320/LW        2325/STW       2327/LW        2335/STW
           2337/LW        2358/LW        2359/SW        2360/SLS       2362/AW        2365/SW        2422/LV
           2502/LV        2507/LI        2508/CW        2510/SW        2511/AWM       2512/AWM       2518/LW
           2520/AND       2523/SW        2552/LV        2605/LW        2607/AND       2609/LW        2618/LW
           2619/SW        2620/STS       2621/LV        2624/AV        2626/STW       2649/LW        2658/LI
           2736/LV        2739/LW        2740/SHIFT     2741/OR        2745/LW        2746/OR        2747/OR
           2787/CI        2814/LW        2815/BFZ       2817/LI        2820/AND       2821/CV        2823/LV
           2824/LS        2825/CV        2828/LV        2829/LS        2872/LW        2875/LI        2876/AND
           2881/CI        2903/LH        2904/B         3176/LV        3229/STW       3233/CI        3246/CW
           3248/BDR       3257/LW        3258/CS        3260/BDR       3278/LW        3279/AI        3280/SLS
           3281/STW       3282/SLS       3283/AI        3286/STB       3287/AI        3295/LW        3299/CI
           3406/LI        3407/AND       3424/SW        3426/LW        3427/BFNZ      3428/LW        3465/LV
           3471/LW        3472/LB        3474/STB       3475/STW       3484/LI        3485/STW       3581/LV
           3629/LV        3646/LI        3649/LI        3659/LI        3680/AWM       3733/LW        3734/MI
           3735/AW        3769/LW        3770/STW       3834/LV        3836/LV        3917/LW        3918/AND
           3919/SHIFT     3920/SCS       3933/LW        3934/SLS       4003/LV        4007/LV        4071/LI
           4074/STW       4076/BDR       4084/LV        4116/LW        4117/AI        4118/STW       4126/LW
           4127/SW        4129/LW        4134/LW        4139/STW       4218/LW        4220/LW        4221/CW
           4223/STH       4279/LW        4282/AWM       4283/AWM       4338/LW        4339/OR        4340/STW
           4344/LW        4345/STS       4377/LW        4378/AND       4379/CW        4390/LI        4396/LW
           4397/AW        4398/STW       4399/LB        4400/B         4429/LW        4450/STW       4456/CI
           4466/LW        4467/AW        4468/NXTENC    4470/NXTENC    4478/LW        4523/LV        4538/LW
           4541/STH       4594/LB        4595/B         4627/LW        4628/IF        4635/LH        4636/B
           4681/LW        4683/LW        4684/CV        4697/LW        4698/CV        4700/LV        4701/AW
           4702/STW       4710/LW        4719/AV        4720/STW       4722/OR        4741/LI        4747/AND
           4760/NXTENC    4761/CV        4767/LW        4771/AWM       4803/LV        4808/LW        4809/CI
           4813/LW        4814/IF        4815/AND       4816/CV        4823/LW        4866/LW
           4867/SHIFT     4868/AW        4902/LI        4912/LI        4913/STH       4963/LI        4969/LI
           4987/LI        5018/LW        5021/CH        5024/AI        5054/LH        5055/B         5087/LW
           5088/AW        5089/LW        5091/XW        5111/LI        5112/STW       5121/LV        5122/STS
           5136/LW        5137/CV        5139/AND       5140/STW       5174/LI        5206/LW        5207/AND
           5208/AWM       5234/LW        5235/CLM       5237/AI        5238/LH        5244/LW        5245/CI
           5256/LW        5260/LW        5263/CV        5276/AWM       5322/LW        5323/AND       5409/STW
           5437/LI        5438/LW        5441/LW        5446/LW        5447/AND       5448/SHIFT     5449/SW
           5450/SCS       5451/LI        5452/STB       5468/LV        5473/LI        5478/LI        5487/LW
           5488/AW        5489/LW        5491/STW       5495/LV        5499/LW        5500/AND
           5501/SHIFT     5502/SW        5510/SAS       5528/LI        5550/LV        5555/LV        5603/LW
           5604/AI        5605/STW       5607/LW        5613/LV        5615/OR        5616/STW       5620/LI
           5623/BDR       5643/LI        5689/LI        5704/LW        5705/AND       5706/STW       5739/LW
           5785/LW        5789/AND       5790/CW        5795/BFNZ      5804/BFZ       5880/LW        5883/AI
           5884/XW        5893/LW        5896/XW        5935/LI        5945/LI        5948/STW       5950/BDR
           5976/CI        5978/CI        5980/STW       5989/LI        5991/STW       5992/BDR       6013/LI
           6024/LW        6025/CI        6033/LI        6034/STW       6037/LI        6071/LI        6093/LW
           6129/LW        6148/LV        6149/STW       6150/LI        6180/LI        6212/LI        6239/LW
           6243/AND       6245/SHIFT     6246/LW        6378/LI        6384/LI        6401/LI        6410/LI
           6534/AW        6537/AWM       6538/SW        6544/BDR       6662/LI        6667/STB       6668/AI
           6731/LI        6739/AI        6744/LW        6756/LW        6758/AI        6759/CW        6765/AI
           6767/CW        6785/LI        6789/AWM       6794/AWM       6845/LW        6846/AND       6847/CI
           6857/CI        6964/LV        6973/LV        7074/LV        7075/STW       7076/LI        7163/LW
           7164/MTW       7166/LW        7169/CI        7174/AWM       7175/LW        7176/STW       7178/LV
           7370/LI        7375/BDR       7380/AI        7436/LB        7437/CI        7538/NXTENC    7539/AND
           7540/CI        7552/LW        7567/LW        7573/LW        7574/SLS       7575/CI        7600/LI
           7601/STW       7621/LW        7622/LW        7630/LI        7667/LV        7668/STW       7669/LI
           7718/LV        7732/LV        7851/LI        7909/LW        7911/AND       7914/BFZ       7915/BFZ
           7916/AND       7918/SHIFT     7921/SW        7927/BDR       7954/AND       7955/CV        7959/LB
           7987/LI        7989/STW       7990/BIR       8000/LW        8001/STW       8036/LV        8040/LV
    XT2
            191/LI         195/LW         199/LW         201/LCW        209/LW         216/LW         461/LW
            463/LW         485/STS        514/LI         515/AND        516/CI         522/LV         523/CW
            767/LV         869/LW         870/AND        871/CS         873/LS         874/STS        889/SW
            893/AW         895/STW        896/STW       1201/CV        1241/LW        1254/AND       1260/AW
           1295/LV        1442/LW        1443/LB        1445/AND       1446/STW       1585/LW        1586/STW
           1588/STW       1592/STW       1593/STW       1594/STW       1595/SLS       1596/AI        1602/STH
           1603/AI        1734/STS       2320/LW        2321/AND       2323/SW        2332/CW        2334/LW
           2497/LW        2498/AW        2499/LW        2512/AWM       2550/STW       2900/LW        2901/AND
           2902/SHIFT     2903/LH        3627/LW        3631/CS        3633/STS       3658/AV        3660/LI
           3702/LW        3728/LW        3729/AI        3735/AW        3737/STW       3743/STW       3746/LW
           3747/STW       3830/LW        3837/STS       3900/LW        3901/AW        3902/LW        3906/LW
           3911/LW        3915/LW        3917/LW        3928/LW        4137/LW        4141/LW
           4448/NXTENC    4449/STW       4530/LV        4531/AND       4535/BDR       4540/LV        4541/STH
           4591/LV        4592/AND       4593/SHIFT     4594/LB        4613/LW        4640/CV        4647/LV
           4669/LV        4688/SHIFT     4689/LB        4705/LI        4706/STW       4707/LI        4708/STW
           4715/CV        4717/CV        4738/LW        4740/STW       4752/LV        4854/LV        4855/AND
           4856/LW        4880/CI        4896/CI        4898/AI        4908/AI        4916/AI        4928/CI
           4979/LW        4980/AI        5148/LV        5162/LV        5226/LW        5227/CS        5233/AND
           5234/LW        5243/STW       5265/LW        5267/CW        5270/LW        5278/BDR       5310/STW
           5317/LW        5318/CS        5334/STW       5357/LV        5371/LW        5372/AND       5373/CV
           5376/LW        5378/CS        5380/AND       5381/SHIFT     5384/LW        5385/AND
           5386/SHIFT     5390/LW        5391/AND       5392/SHIFT     5394/AW        5397/LI        5540/LW
           5541/LW        5558/LW        5574/LW*       5579/LW        5598/LW        5609/CV        5618/CV
           5625/LW        5626/STW       5639/LB        5645/AI        5693/LB        5696/AI        5714/CV
           5740/LV        5744/SHIFT     5745/LB        5752/LW        5755/AV        5760/CW        5778/STW
           5787/LB        5787/LB        5792/LV        5796/LV        5801/LV        5805/LV        5892/SW
           5897/BIR       6040/LI        6041/STW       6045/LW        6047/SLS       6049/STW       6241/CV
           6252/CV        6259/LW        6281/LW        6282/LW        6292/STS       6325/LW        6331/CI
           6337/LW        6338/AND       6339/AI        6341/LW        6343/STW       6344/AI        6345/CI
           6347/LCW       6348/STW       6501/LW        6502/SLD       6503/LAW       6504/CI        6561/LW
           6562/AW        6563/LW        6574/LW        6575/LW        6578/LW        6624/LW        6631/LW
           6632/LW        6639/LW        6650/LW*       6653/LW*       6656/AI        6657/LB*       6666/LB*
           6699/LW        6718/LW        6719/AW        6720/STW       6775/SW        6776/AWM       6798/CW
           6800/STW       6801/AI        6807/CI        6810/LS        6811/CS        6816/AI        6817/CI
           6819/LW        6820/CS        6824/LW        6827/LW        6972/LW        6975/STS       6976/LW
           7779/LB        7781/STB       7836/AWM       7837/AWM       7840/CI        7900/LW        7905/LW
           7925/STB       7926/AI        7932/LW        7935/AND       7938/STB       7939/AI        7949/LI
           7951/STW       8030/CI        8032/STW       8033/STW       8035/LW
    XT3
            866/LV         876/LW         878/STW        883/SW         884/LW         884/LW         885/AND
            886/STW        888/LW         889/SW         890/AND        891/AW        5223/LV        5316/LV
           5745/LB        5746/B
    XW
            246/LW         247/SLS        248/AV         630/LW         717/STW        768/LW         817/AI
            990/LW         994/AI        1002/AW        1101/STW       1102/LW        1118/LW        1593/STW
           1676/STW       1718/LW        1800/CW        1804/STW       1823/LW        1863/AW        1868/STW
           2192/LW        2668/AI        2724/AW        2727/LW        2908/LW        2920/LW        2926/LW
           3016/STW       3021/STW       3025/STW       3030/XW        3122/LW        3143/AW        3337/LC
           3798/LI        4079/LW        4428/LW        4478/LW        4559/LW        4760/NXTENC    4764/AI
           4899/AI        4943/LW        4951/LW        4957/XW        4967/STW       5003/LW        5006/SW
           5017/LW        5033/LW        5034/AI        5076/LW        5756/AI        5766/LW        6050/AI
           6054/AI        6065/AI        6076/AI        6087/LW        6089/LW        6103/AI        6122/AI
           6162/LW        6189/AI        6898/AI        6996/CW        7322/STW       7325/STW       7326/AI
           7385/AW        7773/AI        7774/SLS       7775/LB        7778/AI        7779/LB        7783/SLS
           7784/AI
    XWBASE
           3336/LI        3797/STW       5020/LH*       5021/CH*       7775/LB*       7779/LB*       7789/LW
    X1BUF
             76/REF        124/EQU
    ZERO
            131-DATA      6358/LD        6620/LD        6661/LD
    1ARG
           4566/STW       4585/MTW       5043/MTW
    1ELEM%1
           4799-RES       4827/B
    1ELEM%2
           4807-RES       4817/BE
    1ELEMENT%TEST
           4773/BAL       4797-RES       5196/BAL
    1ELEMXIT
            863/STW        897/B*        4798/STW       4805/BNE*      4810/BNE*      5952/EQU
    1STDEF
           1022/MTW       1026/STW
    3WDSUM
           6679/LV
    %
           1146/BE        1238/BLEZ      1866/BNE       1894/BEZ       3019/BNE       4407/EQU       4521/BNE
           4685/BAZ       5623/BDR       5673/BGE       5773/BGZ       6096/BNEZ      6107/BNE       6130/BEZ
           6484/BNOV      6487/BNOV      6491/BNOV      6497/BEZ       6647/BLE       6659/BLE       6783/BEZ
           6851/BGEZ      7167/BNEZ      7195/EQU       7225/BEZ       7239/EQU       7289/EQU
    %1000
           4676/BIL       4978-RES
    %45
           4729/BNEZ      4732-RES
    %55
           4650/B         4670/B         4739-RES       4753/B         5151/BEZ       5163/B         5358/B
    %75
           4749-RES       4831/BYTE
    %84
           4882/BG        4887-RES
    #ELEM
            894/STW       1208/STW       1211/CW        1221/MTW       1267/STW       1287/LW        1290/SW
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APDG'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APDG                    %%%%%
         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                 DGPROC   CSECT    1                 PROCEDURE
        34                                     DEF      BOBUF
        35                                     DEF      DEFGEN
        36                                     DEF      DG
        37                                     DEF      DGD
        38                            *
        39                                     DEF      BOUND4
        40                                     DEF      DEFHEXLBL
        41                                     DEF      DEFINE2
        42                                     DEF      DELETEXP
        43                                     DEF      GETPLOC1
        44                                     DEF      LCLDLTE
        45                                     DEF      LENGTH
        46                                     DEF      LINE%FLDS
        47                                     DEF      LITSRCH
        48                                     DEF      LOADXM
        49                                     DEF      LOADXW
        50                                     DEF      MAXLOC
        51                                     DEF      NXTRECRD
        52                                     DEF      OLDCSECT
        53                                     DEF      SCAN
        54                                     DEF      SUBVAL
        55                            *
        56                            *   ROOT MODULE
        57                            *
        58                                     REF      ABORT
        59                                     REF      BLANC
        60                                     REF      BO%FLAG           BINARY OUTPUT OPTION FLAG
        61                                     REF      BO%SIZE           BINARY RECORD SIZE
        62                                     REF      LSTBF
        63                                     REF      MAJLINE           ASSEMBLY LINE NUMBER
        64                                     REF      PGLINES
        65                                     REF      POSITIONSTD
        66                                     REF      POSITIONX1
        67                                     REF      RD%STD
        68                                     REF      READSTD
        69                                     REF      READX1
        70                                     REF      ROOTRTN
        71                                     REF      SD%FLAG
        72                                     REF      SUBLINE           ASSEMBLY UPDATE LINE NUMBER
        73                                     REF      SYSLEVEL
        74                                     REF      SYSNAME
        75                                     REF      TITLEBUF
        76                                     REF      X1BUF
        77                            *
        78                            *   PARTICULARIZATION SEGMENT
        79                            *
        80                                     REF      ADJKLINE
        81                                     REF      ADV%ITM
        82                                     REF      PARTIC
        83                            *
        84                            *   ASSEMBLER COMMON MODULE
        85                            *
        86                                     REF      AEDIT
        87                                     REF      BEDIT
        88                                     REF      CERR
        89                                     REF      DERR
        90                                     REF      EDIT
        91                                     REF      EDITDDLR
        92                                     REF      EDITDLR
        93                                     REF      EDITV
        94                                     REF      EDITV1
        95                                     REF      EERR
        96                                     REF      GENERATE
        97                                     REF      GENERATE1
        98                                     REF      GENERATE2
        99                                     REF      GETCSADD
       100                                     REF      HILIMIT
       101                                     REF      HILIMIT4
       102                                     REF      IERR
       103                                     REF      KERR
       104                                     REF      LERR
       105                                     REF      LOADABS
       106                                     REF      ORIGIN
       107                                     REF      PRINT
       108                                     REF      PRINTC
       109                                     REF      PRINTC1
       110                                     REF      PRINTC2
       111                                     REF      SERR
       112                                     REF      TERR
       113                                     REF      TYPE
       114                                     REF      UERR
       115                            *
       116                                     SYSTEM   AP%IL
       117                                     SYSTEM   AP%DG
  C00
1
       119                            *
       120                            *   STORAGE
       121                            *
       122                            *
       123         00000018  S        TITLEPG  EQU      TITLEBUF+24       FOLLOWS LAST WORD OF TITLE CHARS
       124         EXT                INBUF    EQU      X1BUF             BUFFER FOR ENCODED INPUT
       125         04 00000           DGD      EQU      XAPDATA
1
       127   04 000BE                          USECT    DGPROC
       128   02 00000                 DIRBASE  RES      0
       129   02 00000                 COMBASE  RES      0
       130   02 00000                 DG       RES      0
       131   02 00000    00000000 A   ZERO     DATA,8   0                 DOUBLE WORD OF ZERO
                         00000000
       132                            RNG%INT%FUNC#     ;                 INTRINSIC FUNCTION NUMBERS
       133   02 00002    0000003B A            DATA     LO%INT%FUNC,HI%INT%FUNC
             02 00003    00000053 A
       134                            RNG%LOC%CTR       ;                 % AND %% SYMBOLS
       135   02 00004    0000403C A            DATA     ENC%,ENC%%
             02 00005    0000403D A
       136                            RNG%PREFIX%FUNC   ;                 FUNCS W/ ACTION PRIOR TO ARG EVAL.
       137   02 00006    0000804F A            DATA     LO%PREFIX%FUNC+ENCSSYM,HI%PREFIX%FUNC+ENCSSYM
             02 00007    00008053 A
       138                            RNG%STD%FUNC      ;                 FUNCS NOT REQ VALUE
       139   02 00008    00008043 A            DATA     LO%VAL%FUNC|ENCSSYM,HI%INT%FUNC|ENCSSYM
             02 00009    00008053 A
       140                            RNG%TCOR%SYM      ;                 SPECIAL SYMBOLS IN 'TCOR' FUNCTION
       141   02 0000A    0000402D A            DATA     S:AADSYM,S:SUMSYM
             02 0000B    0000403A A
       142                            RNG%VAL%FUNC      ;                 FUNCTIONS EVALUATED IN SCAN
       143   02 0000C    00008043 A            DATA     LO%VAL%FUNC+ENCSSYM,HI%VAL%FUNC+ENCSSYM
             02 0000D    00008050 A
       144                            *
       145   02 0000E    FFFFFFFF A   SPILWBND DATA,8   X'FFFFFFFF80000000'  SINGLE PRECISION LOWER BOUND
                         80000000
       146   02 00010    00000000 A   SPIUPBND DATA,8   X'80000000'       SINGLE PRECISION UPPER BOUND
                         80000000
       147   02 00012    00000000 A   SMIUPBND DATA,8   X'400000'         SMALL INTEGER UPPER BOUND
                         00400000
       148   02 00014    00000000 A   DBLONE   DATA,8   1                 DOUBLE WORD OF ONE
                         00000001
       149   02 00016    405C5C5C A   ASTMSG   TEXT     ' ****   '
             02 00017    5C404040 A
1
       151                            *
       152                            *   A S E C T
       153                            *        PROCESSES THE ASECT DIRECTIVE.
       154                            *
       155                            *        USES REGISTERS
       156                            *                 RL
       157                            *                 XT
       158                            *
       159   02 00018                 ASECT    RES      0
       160   02 00018    6A7007E1              BAL,RL   OLDCSECT          SAVE CURRENT CONTROL SECTION INFO.
       161   02 00019    22400000 A            LI,XT    0
       162   02 0001A    3540000A 03           STW,XT   DLRCS             SET TO CONTROL SECTION ZERO
       163   02 0001B    6A700FF1              BAL,RL   SETDLRS           SET CONTROL SECTION, RESOLUTION, AND
       164                            *                                     CLEAR VALUES FOR % AND %%
       165   02 0001C    6A700298              CALL     DEFHEXLBL         DEFINE LABEL FIELD ENTRY
       166   02 0001D    68000642              B        LINE5             SKIP REST OF ASECT DIRECTIVE
1
       168                            *
       169                            *   A S S M B D L R
       170                            *        ASSEMBLE EXECUTION LOCATION COUNTER INTO A SPECIAL ADDRESS
       171                            *          OR SYMBOL ITEM
       172                            *        A SPECIAL ADDRESS ITEM IS BUILT IF THE ADDRESS OFFSET WILL
       173                            *           FIT IN 17 BITS WITH INTRINSIC RESOLUTION, THE LOW ORDER
       174                            *           BITS ARE 0, AND CONTROL SECTION NUMBER IS LESS THAN 32;
       175                            *           OTHERWISE, A SYMBOLIC ITEM OF LENGTH 2 IS BUILT.
       176                            *        THE ITEM IS BUILT IN A TEMP AREA.
       177                            *        DLRVAL, DLRCS, AND DLRRS CONTAIN THE VALUE, CONTROL SECTION,
       178                            *           AND INTRINSIC RESOLUTION RESPECTIVELY.
       179                            *
       180                            *        OUTPUT:  TEMP AND TEMP+1 (IF NEEDED) CONTAIN THE ITEM BUILT.
       181                            *
       182                            *        CALL:    BAL,RL  ASSMBDLR
       183                            *
       184                            *        USES REGISTERS
       185                            *                 XT
       186                            *                 XT1
       187                            *                 XT2
       188                            *                 RL
       189                            *
       190   02 0001E                 ASSMBDLR RES      0
       191   02 0001E    22600000 A            LI,XT2   0
       192   02 0001F                 ASDLR    RES      0
       193   02 0001F    3240000A 03           LW,XT    DLRCS
       194   02 00020    66400009 03           AWM,XT   DATAGEN           INDICATE % OR %% REFERENCED
       195   02 00021    324C000C 03           LW,XT    DLRRS,XT2         GET RESOLUTION
       196   02 00022    25400278 A            SHIFT,XT 31,ARLOB          POSITION RESOLUTION
       197   02 00023    304000A5 04           AW,XT    PASSDEF           VALUE FOR DEF FIELD
       198   02 00024    35400046 04           STW,XT   TEMP              STORE SPA,DUP,SET,DEF,AR, AND EXT.
       199   02 00025    324C000E 03           LW,XT    DLRVAL,XT2        LOCATION COUNTER VALUE
       200   02 00026    4B4011DD              AND,XT   =MAXDDFLD        TRIM LOCATION COUNTER
       201   02 00027    3A5C000C 03           LCW,XT1  DLRRS,XT2         LOCATION COUNTER RESOLUTION
       202   02 00028    254A0200 A            SCS,XT   0,XT1             SHIFT DLRVAL TO SPECIFIED RESOLUTION
       203   02 00029    35400047 04           STW,XT   TEMP+1               WITH LOW ORDER BIT(S) TO XT(0-2)
       204   02 0002A    70200004 A            LC       XT
       205   02 0002B    68E00032              BCR,14   ASDLR2            LOW ORDER BIT(S)ARE ZERO
       206   02 0002C                 ASDLR1   RES      0                 BUILD A 2 WORD SYMBOL ITEM
       207   02 0002C    22518002 A            LV,XT1   SYMBOL+LNGTH2
       208   02 0002D    47500046 04           STS,XT1  TEMP              STORE AD,STYPE,TYPE, AND LENGTH
       209   02 0002E    325C000A 03           LW,XT1   DLRCS,XT2         LOCATION COUNTER CONTROL SECTION
       210   02 0002F    25500276 A            SHIFT,XT1 31,FCSLOB        POSITION IT
       211   02 00030    47500047 04           STS,XT1  TEMP+1            STORE FCS.
       212   02 00031    680E0000 A            EXIT     RL
       213   02 00032                 ASDLR2   RES      0
       214   02 00032    2141FFFF A            CV,XT    ADDFLD            ADDRESS FIELD
       215   02 00033    6920002C              BG       ASDLR1            LARGE ADDRESS REQUIRES TWO WORDS
       216   02 00034    325C000A 03           LW,XT1   DLRCS,XT2         LOCATION COUNTER CONTROL SECTION
       217   02 00035    21500020 A            CI,XT1   32
       218   02 00036    6810002C              BGE      ASDLR1            REQUIRES TWO WORD ITEM
       219                            *        BUILD A ONE WORD SPECIAL ADDRESS ITEM
       220   02 00037    20504000 A            AV,XT1   1**(CSLOB-SPALOB) SET SPA TO ONE
       221   02 00038    25500271 A            SHIFT,XT1 31,CSLOB         POSITION SPA AND CS FIELDS
       222   02 00039    30500047 04           AW,XT1   TEMP+1            ADD IN ADDRESS
       223   02 0003A    47500046 04           STS,XT1  TEMP              STORE SPA,CS, AND ADD. FIELDS
       224   02 0003B    680E0000 A            EXIT     RL
1
       226                            *
       227                            *   B L D P L T
       228                            *        THIS SUBROUTINE BUILDS A PROCEDURE LEVEL TABLE.  THE OFFSET
       229                            *          TO THE PREVIOUS PROCEDURE LEVEL TABLE IS STORED IN THE PLOC
       230                            *          ENTRY IN THIS TABLE AND VARIOUS ENTRIES ARE INITIALIZED.
       231                            *
       232                            *        INPUT:   LVL CONTAINS THE ADDRESS OF THE CURRENT PROCEDURE
       233                            *                   LEVEL TABLE
       234                            *                 XT CONTAINS THE ADDRESS OF THE CONTROL WORD FOR THE
       235                            *                   COMMAND ENTRY
       236                            *
       237                            *        OUTPUT:  LVL CONTAINS THE ADDRESS OF THE NEW (AND NOW CURRENT)
       238                            *                   PROCEDURE LEVEL TABLE.
       239                            *
       240                            *        USES REGISTERS
       241                            *                 RL, XT, XT1, LVL
       242                            *
       243   02 0003C                 BLDPLT   RES      0
       244   02 0003C    3570006A 04           STW,RL   BLDPLTXIT         SAVE RETURN ADDRESS
       245   02 0003D                 BLDPLT1  RES      0
       246   02 0003D    32280001 A            LW,XW    STO,XT            GET INDEX TO SAMPLE STORAGE
       247   02 0003E    25200001 A            SLS,XW   1                 MAKE IT A HALFWORD INDEX
       248   02 0003F    302011DE              AV,XW    SYMTBASE          INDICATE IT'S A SYMT BASE ADDRESS
       249   02 00040    38400037 03           SW,XT    SYMT
       250   02 00041    20400002 A            AI,XT    2
       251   02 00042    25400001 A            SLS,XT   1
       252   02 00043    304011DE              AV,XT    SYMTBASE
       253   02 00044    3546000B A            STW,XT   NAMELOC,LVL       SAVE INDEX FOR 'NAME' REFERENCES
       254   02 00045    6A700717              BAL,RL   LOADXW            SET ENCODED TEXT BASE ADDRESS
       255   02 00046    33100021 03           MTW,1    PROCREF           INCREMENT PROCEDURE REFERENCE LEVEL
       256   02 00047    32460001 A            LW,XT    EVT,LVL           INDEX TO NEXT EVT ENTRY BECOMES THE
       257   02 00048    30400035 03           AW,XT    KLINE               ADDRESS OF NEW PROC LEVEL TABLE
       258   02 00049    22500000 A            LI,XT1   0
       259   02 0004A    35580006 A            STW,XT1  DOCT,XT           INITIALIZE DO COUNT TO ZERO
       260   02 0004B    35580007 A            STW,XT1  DO1CT,XT          INITIALIZE DO1 COUNT TO ZERO
       261   02 0004C    3558000A A            STW,XT1  SYSLVL,XT         INITIALIZE SYSTEM LEVEL COUNT TO 0
       262   02 0004D    3250009F 04           LW,XT1   NXTLOCAL
       263   02 0004E    38500037 03           SW,XT1   SYMT              INITIALIZE LOCAL COUNT TO ZERO,
       264   02 0004F    35580009 A            STW,XT1  LOCALORG,XT         AND LOCAL ORIGIN INDEX
       265   02 00050    32560002 A            LW,XT1   ECT,LVL           END OF ECT AT PREVIOUS LEVEL BECOMES
       266   02 00051    3558000C A            STW,XT1  ECTORG,XT           ORIGIN OF ECT AT THIS LEVEL
       267   02 00052    38300035 03           SW,LVL   KLINE             STORE INDEX TO PREVIOUS PROCEDURE
       268   02 00053    35380000 A            STW,LVL  PLOC,XT             LEVEL TABLE
       269   02 00054    32300004 A            LW,LVL   XT                NOW LVL POINTS TO THIS PLT
       270   02 00055    6A7002DF              BAL,RL   DELETEXP          TO INITIALIZE ECT,LVL AND EVT,LVL
       271   02 00056    6A700000 X            BAL,RL   HILIMIT           MAKE SURE THERE'S ROOM FOR THIS PLT
       272   02 00057    E800006A 04           B        *BLDPLTXIT        RETURN
1
       274                            *
       275                            *   B O U N D
       276                            *        THIS ROUTINE PROCESSES THE BOUND DIRECTIVE.  EVAL1EXP IS
       277                            *          CALLED TO EVALUATE THE OPERAND FIELD.  THE VALUE RETURNED
       278                            *          SHOULD BE 1 TO 2048 AND A POSITIVE POWER OF TWO.  IF NOT,
       279                            *          AN ERROR IS MARKED AND BOUND CALLS BOUND4 (ASSUMES A VALUE
       280                            *          OF 4) AND THEN BRANCHES TO GENR IN MAIN CONTROL.   OTHERWISE
       281                            *          BOUNDN IS CALLED AND BOUND BRANCHES TO GENR.
       282                            *
       283                            *        USES REGISTERS
       284                            *                 RL
       285                            *                 XT
       286                            *                 ER
       287                            *
       288   02 00058                 BOUND    RES      0
       289   02 00058    6A70049D              CALL     EV1OPRNDEXP       EVALUATE ONE OPERAND EXPRESSION
       290   02 00059    32400046 04           LW,XT    TEMP
       291   02 0005A    68200062              BLEZ     BOUND1            NEGATIVE OR ZERO IS ERROR
       292   02 0005B    21408000 A            CI,XT    X'8000'
       293   02 0005C    69200062              BG       BOUND1            GREATER THAN 32K IS ERROR
       294   02 0005D    204FFFFF A            AI,XT    -1
       295   02 0005E    4B400046 04           AND,XT   TEMP
       296   02 0005F    69300062              BNEZ     BOUND1            NOT A POWER OF TWO
       297   02 00060    6A700067              BAL,RL   BOUNDN            ADVANCE LOCATION COUNTERS N BYTES
       298   02 00061    68000643              B        GENR              BACK TO MAIN CONTROL
       299   02 00062                 BOUND1   RES      0
       300   02 00062    6A700065               BAL,RL  BOUND4            ADVANCE LOCATION COUNTERS 4 BYTES
       301   02 00063                 EXP%ERR   RES     0
       302   02 00063    6AF00000 X             BAL,ER  EERR              ILLEGAL OPERAND
       303   02 00064    68000643              B        GENR
       304                            *
       305         0000000F           REPEAT   EQU      15                CONTROL BYTE FOR A REPEAT LOAD
1
       307                            *
       308                            *   B O U N D 4
       309                            *        IS AN ENTRY POINT TO THE CLOSED SUBROUTINE BOUNDN. IT PREPARES
       310                            *          A 4 BYTE BOUNDRY BY SETTING TEMP TO 4 AND THEN BRANCHES TO
       311                            *          BOUNDN.
       312                            *
       313                            *        INPUT:   NONE
       314                            *
       315                            *        OUTPUT:  TEMP IS SET TO 4
       316                            *
       317   02 00065                 BOUND4   RES      0
       318   02 00065    22400004 A            LI,XT    4
       319   02 00066    35400046 04           STW,XT   TEMP
       320                            *
       321                            *   B O U N D N
       322                            *        ADVANCES THE LOCATION COUNTERS TO THE BYTE BOUNDARY SPECIFIED
       323                            *          IN TEMP IF NOT ALREADY AT THAT BOUNDRY.  IF DLRVAL IS AT THE
       324                            *          SPECIFIED BOUNDARY, THIS ROUTINE EXITS.  OTHERWISE, BOTH
       325                            *          LOCATION COUNTERS ARE ADVANCED TO THE SAME BOUNDARY, AND
       326                            *          ZEROS ARE GENERATED IN THE OBJECT MODULE FOR THE BYTES
       327                            *          ADVANCED.
       328                            *
       329                            *        INPUT:   TEMP CONTAINS THE BYTE BOUNDRY TO ADVANCE TO
       330                            *                 DLRVAL AND DDLRVAL CONTAIN THE CURRENT BYTE ADDRESSES
       331                            *                   OF THE EXECUTION AND LOAD LOCATION COUNTERS.
       332                            *                 LASTVAL CONTAINS THE BYTE ADDRESS OF THE LAST LOAD
       333                            *                   LOCATION COUNTER OUPUT TO THE OBJECT MODULE.
       334                            *
       335                            *        OUTPUT:  DLRVAL, DDLRVAL, AND LASTVAL ARE SET TO THE SPECIFIED
       336                            *                   BOUNDRY IF NOT ALREADY THERE.
       337                            *
       338                            *        USES REGISTERS
       339                            *                 XT
       340                            *                 RL
       341                            *                 NBYTES
       342                            *                 XT1
       343                            *
       344                                     LOCAL    %10
       345                            *
       346   02 00067                 BOUNDN   RES      0
       347   02 00067    32400046 04           LW,XT    TEMP              BOUNDARY
       348   02 00068    204FFFFF A            AI,XT    -1
       349   02 00069    4B40000E 03           AND,XT   DLRVAL            IF EXECUTION LOCATION COUNTER IS
       350   02 0006A    683E0000 A            EXIT,EQ  RL                  AT THE SPECIFIED BOUNDARY,EXIT
       351   02 0006B    38400046 04           SW,XT    TEMP
       352   02 0006C    3A400004 A            LCW,XT   XT                NUMBER OF BYTES TO ADVANCE
       353   02 0006D    6640000E 03           AWM,XT   DLRVAL            ADVANCES % TO PROPER BOUNDARY
       354   02 0006E    35700069 04           STW,RL   BNDEXIT           SAVE RETURN ADDRESS
       355   02 0006F    33000006 03           MTW,0    PASS
       356   02 00070    68300089              BEZ      BND1              DEFINITION PASS
       357   02 00071    35400046 04           STW,XT   TEMP
       358   02 00072    6A700000 X            BAL,RL   ORIGIN            GENERATE ORIGIN IF REQUIRED
       359   02 00073    33000007 03           MTW,0    SOCW%FLG
       360         001F0000                    IF,NZ
             02 00074    6830007D
       361                            *
       362                            *   UNDER SOCW CONTROL, IT IS NECESSARY TO ACTUALLY GENERATE ALL
       363                            *        REQUIRED DATA BYTES OF ZERO, RATHER THAN USING A REPEAT-LOAD.
       364                            *
       365   02 00075    32400046 04           LW,XT    TEMP                                                *D-DG
       366   02 00076    3540009D 04           STW,XT   NOBYTES           # ZERO BYTES REQUIRED             *D-DG
       367   02 00077                 %10      RES      0
       368   02 00077    22800001 A            LI,NBYTES   1
       369   02 00078    2250477C              LI,XT1   BA(L(0))
       370   02 00079    6A700000 N            CALL     BEDIT
       371   02 0007A    33F0009D 04           MTW,-1   NOBYTES           DECREMENT
       372   02 0007B    69200077              BGZ      %10
       373                            *
       374         000E0000                    ELS
             02 0007C    68000088
       375   02 0007D    22800001 A            LI,NBYTES 1
       376   02 0007E    22504783              LI,XT1   BA(L(REPEAT))+3
       377   02 0007F    6A700000 X            BAL,RL   BEDIT             GENERATE 'REPEAT' CONTROL CODE
       378   02 00080    22800002 A            LI,NBYTES 2
       379   02 00081    2250011A 04           LI,XT1   BA(TEMP)+2
       380   02 00082    6A700000 X            BAL,RL   BEDIT             GENERATE REPEAT COUNT
       381   02 00083    22500000 A            LI,XT1   0
       382   02 00084    35500079 04           STW,XT1  HEXVAL
       383   02 00085    22500001 A            LI,XT1   1
       384   02 00086    3550009D 04           STW,XT1  NOBYTES
       385   02 00087    6A700000 X            BAL,RL   LOADABS           OUTPUT AN ABSOLUTE ZERO
       386         00F10000                    FI
       387   02 00088    32400046 04           LW,XT    TEMP
       388   02 00089                 BND1     RES      0
       389   02 00089    6640000F 03           AWM,XT   DDLRVAL           ADVANCE LOAD LOCATION COUNTER
       390   02 0008A    66400016 03           AWM,XT   LASTVAL             AND LAST LOCATION OUTPUT TO OBJECT
       391   02 0008B    E8000069 04           B        *BNDEXIT
1
       393                            *
       394                            *   C K % P R E F
       395                            *        IF THE PROCEDURE REFERENCE LEVEL IS NOT LESS THAN THE MAXIMUM
       396                            *          ALLOWED, AN ERROR IS REPORTED, AND THE COMMAND REFERENCE
       397                            *          OR FUNCTION REFERENCE IS IGNORED.
       398                            *
       399                            *        INPUT:   XT1 CONTAINS THE ADDRESS TO RETURN TO IF THE
       400                            *                   PROCEDURE REFERENCE LEVEL EXCEEDS THE MAXIMUM
       401                            *
       402                            *        OUTPUT:  RETURN IS TO CALLING ADDRESS IF NO ERROR
       403                            *                 RETURN TO ADDRESS SPECIFIED IN XT1 IF ERROR
       404                            *
       405                            *        USES REGISTERS
       406                            *                 RL, XT, XT1
       407                            *
       408   02 0008C                 CK%PREF  RES      0
       409   02 0008C    32400021 03           LW,XT    PROCREF
       410   02 0008D    2140001F A            CI,XT    MAXPREF           RETURN IF PROCEDURE REFERENCE
       411   02 0008E    691E0000 A            EXIT,L   RL                  LEVEL IS LESS THAN MAXIMUM
       412   02 0008F    6AF00000 X            BAL,ER   KERR              PROCS NESTED TOO DEEP
       413   02 00090    680A0000 A            EXIT     XT1               ERROR RETURN
1
       415                            *
       416                            *   C L N % E X P
       417                            *        THIS SUBROUTINE 'DELETES' THE ECT AND EVT ENTRIES PRODUCED BY
       418                            *          THE LAST CALL TO SCAN.
       419                            *
       420                            *        INPUT:   XS CONTAINS A POINTER TO THE 1ST ECT ENTRY
       421                            *                 ECT POINTS TO THE WORD BEYOND ITS LAST ENTRY
       422                            *                 EVT POINTS TO THE WORD BEYOND ITS LAST ENTRY
       423                            *
       424                            *        OUTPUT:  XS IS UNCHANGED
       425                            *                 ECT POINTS TO ITS 1ST ENTRY
       426                            *                 EVT POINTS TO ITS 1ST ENTRY
       427                            *
       428                            *        CALL:    BAL,RL  CLN%EXP
       429                            *
       430                            *        USES REGISTERS
       431                            *                 XS, XT, RL
       432                            *
       433   02 00091                 CLN%EXP  RES      0
       434   02 00091    32420000 A            LW,XT    0,XS              BACKUP
       435   02 00092    4B4011E1              AND,XT   =LOCFLD             EVT
       436   02 00093    35460001 A            STW,XT   EVT,LVL             TO ITS '1ST' ENTRY
       437   02 00094    38100035 03           SW,XS    KLINE             BACKUP
       438   02 00095    35160002 A            STW,XS   ECT,LVL             ECT
       439   02 00096    30100035 03           AW,XS    KLINE               TO ITS
       440   02 00097    680E0000 A            EXIT     RL                  '1ST' ENTRY
1
       442                            *
       443                            *   C M N D A S N
       444                            *        THIS SUBROUTINE ASSIGNS A COMMAND WHOSE DEFINITION HAS ALREADY
       445                            *          BEEN CHECKED BY CMNDDEF.
       446                            *
       447                            *        INPUT:   CMNDCW CONTAINS THE CONTROL WORD FOR THE COMMAND
       448                            *                 CMNDLSN CONTAINS THE SYMBOL NUMBER OF THE COMMAND'S
       449                            *                   LABEL FIELD ENTRY
       450                            *
       451                            *        OUTPUT:  XT CONTAINS THE ADDRESS OF THE COMMAND ENTRY
       452                            *                 RETURN IS TO THE BAL + 1 FOR THE DEFINITION PASS
       453                            *                   AND TO BAL + 2 FOR THE GENERATION PASS
       454                            *
       455                            *        CALL:    BAL,RL  CMNDASN
       456                            *
       457                            *        USES REGISTERS
       458                            *                 XT, XT1, XT2, RL
       459                            *
       460   02 00098                 CMNDASN  RES      0
       461   02 00098    32600049 04           LW,XT2   CMNDLSN           GET SYMBOL # OF COMMAND LABEL
       462   02 00099    225FFFFF A            LI,XT1   -1                MASK FOR ENTIRE WORD
       463   02 0009A    B24C0037 03           LW,XT    *SYMT,XT2         GET CONTROL WORD FROM FIXED TABLE
       464   02 0009B    691000A8              BFNZ,XT  SPAFLD,CMNDASN3   BRANCH IF IT'S A ONE WORD ENTRY
       465   02 0009C    22530002 A            LV,XT1   FUNCNAME+LNGTH2
       466   02 0009D    31500048 04           CW,XT1   CMNDCW
       467   02 0009E    683000A5              BE       CMNDASN2          BRANCH IF PROCESSING FUNCTION NAME
       468   02 0009F    325011E2              LV,XT1   CPTRFLD           MASK FOR CPTR FIELD
       469   02 000A0    25400070 A            SHIFT,XT CPTRLOB,31        RIGHT JUSTIFY CPTR
       470   02 000A1                 CMNDASN1 RES      0
       471   02 000A1    33000006 03           MTW,0    PASS
       472   02 000A2    683000A8              BEZ      CMNDASN3          BRANCH IF THIS IS DEFINITION PASS
       473   02 000A3    30400037 03           AW,XT    SYMT              RETURN WITH ADDRESS OF COMMAND
       474   02 000A4    680E0000 A            EXIT     RL                  CONTROL WORD IN XT
       475   02 000A5                 CMNDASN2 RES      0
       476   02 000A5    2250FFFF A            LV,XT1   LPTRFLD           MASK FOR LPTR FIELD
       477   02 000A6    4B4011E3              AND,XT   =LPTRFLD          CLEAN LPTR RIGHT JUSTIFIED
       478   02 000A7    680000A1              B        CMNDASN1
       479   02 000A8                 CMNDASN3 RES      0
       480   02 000A8    324000A0 04           LW,XT    NXTSYMT           CONVERT THE ADDRESS FOR THE COMMAND
       481   02 000A9    38400037 03           SW,XT    SYMT                ENTRY TO AN OFFSET
       482   02 000AA    2150FFFF A            BFNZ,XT1,1  LPTRFLD,CMNDASN4  POSITION THE OFFSET TO EITHER
             02 000AB    694000AD
       483   02 000AC    25400010 A            SHIFT,XT 31,CPTRLOB             THE LPTR OR THE CPTR FIELD
       484   02 000AD                 CMNDASN4 RES      0
       485   02 000AD    C74C0037 03           STS,XT   *SYMT,XT2         STORE OFFSET TO COMMAND ENTRY
       486   02 000AE    324000A0 04           LW,XT    NXTSYMT           GET 2 WORDS OF TABLE SPACE FOR
       487   02 000AF    332000A0 04           MTW,2    NXTSYMT             THE COMMAND ENTRY
       488   02 000B0    32500048 04           LW,XT1   CMNDCW            STORE THE COMMAND CONTROL WORD IN
       489   02 000B1    35580000 A            STW,XT1  0,XT                THE FIRST WORD AND EXIT TO
       490   02 000B2    680E0001 A            B        1,RL                THE BAL INSTRUCTION +2
1
       492                            *
       493                            *   C M N D D E F
       494                            *        THIS SUBROUTINE CHECKS A COMMAND DEFINITION TO INSURE THAT IT
       495                            *          IS BOTH CORRECT AND REFERENCED.  THE SUBROUTINE DOES NOT
       496                            *          RETURN TO THE CALLING ROUTINE IF THE COMMAND IS SKIPPED.
       497                            *
       498                            *        INPUT:   XT CONTAINS A SKELETON CONTROL WORD
       499                            *
       500                            *        OUTPUT:  CMNDCW CONTAINS THE CONTROL WORD FOR THE COMMAND
       501                            *                 CMNDLSN CONTAINS THE SYMBOL NUMBER OF THE COMMAND'S
       502                            *                   LABEL FIELD ENTRY
       503                            *
       504                            *        CALL:    BAL,RL  CMNDDEF
       505                            *
       506                            *        USES REGISTERS
       507                            *                 XT XT1 XT2 RL ER LVL
       508   02 000B3                 CMNDDEF  RES      0
       509   02 000B3    35400048 04           STW,XT   CMNDCW            STORE COMMAND CONTROL WORD
       510   02 000B4    33000021 03           MTW,0    PROCREF
       511   02 000B5    693010EE              BNEZ     SPCD1             ERROR IF WITHIN A PROC
       512   02 000B6    32460003 A            LW,XT    LBL,LVL           INDEX TO ENCODED LABEL FIELD
       513   02 000B7    D24800BA 04           NXTENC,XT   XT,NOINC       GET LABEL FIELD ITEM
       514   02 000B8    2260E000 A            LI,XT2   TFLD              MASK FOR ENCODED TYPE FIELD
       515   02 000B9    4B600004 A            AND,XT2  XT
       516   02 000BA    21604000 A            CI,XT2   ENCSYM
       517         001F0000                    IF,NE                 -10- DOIF LABEL IS NOT A SYMBOL
             02 000BB    683000BE
       518   02 000BC    6AF00000 X            BAL,ER   LERR
       519         000E0000                    ELS                    10.
             02 000BD    680000EF
       520   02 000BE    4B4011E4              AND,XT   =VFLD             GET CLEAN SYMBOL NUMBER
       521   02 000BF    35400049 04           STW,XT   CMNDLSN           SAVE SYMBOL # OF COMMAND LABEL
       522   02 000C0    22630002 A            LV,XT2   FUNCNAME+LNGTH2
       523   02 000C1    31600048 04           CW,XT2   CMNDCW
       524         001F0100                    IF,NE                 -20- DOIF NOT FNAME
             02 000C2    683000DA
       525                            *
       526                            *        HERE WE ARE ABOUT TO DEFINE A COMMAND NAME - MAKE SURE IT
       527                            *        IS NOT A DIRECTIVE.  IF IT IS, JUST KICK IT OUT.
       528                            *
       529   02 000C3    2140002C A            CI,XT    HI%DIR
       530         001F0200                    IF,LE                 -30- DOIF ATTEMPTING TO DEFINE DIRECTIVE
             02 000C4    692000C7
       531   02 000C5    6AF00000 X            BAL,ER   DERR
       532   02 000C6    680000EF              B        SETSKIPTRIG
       533                            *
       534         00F10200                    FI                    -30-
       535   02 000C7    B2480037 03           LW,XT    *SYMT,XT          LOAD FIXED SYMBOL TABEL ENTRY
       536   02 000C8    691000EF              BFNZ,XT  SPAFLD,SETSKIPTRIG  BRANCH IF NOT A CPTR ENTRY
       537   02 000C9    314011E2              BFZ,XT   CPTRFLD,SETSKIPTRIG  BRANCH IF COMMAND NOT REF'ED
             02 000CA    684000EF
       538   02 000CB    25400070 A            SHIFT,XT CPTRLOB,31        RIGHT JUSTIFY CPTR
       539   02 000CC    33000006 03           MTW,0    PASS
       540         001F0200                    IF,NZ                 -40- DOIF GENERATION PASS
             02 000CD    683000D7
       541   02 000CE                 CMNDDEF8 RES      0
       542   02 000CE    B2580037 03           LW,XT1   *SYMT,XT          LOAD COMMAND CONTROL WORD
       543         0FF00300                    EXIT,FZ  DUPFLD,XT1        EXIT IF DUP NOT SET
             02 000CF    315011E5
             02 000D0    684E0000 A
       544   02 000D1    6AF00000 X            BAL,ER   DERR              DUPLICATE DEFINITION ERROR
       545   02 000D2    315011E6              BFNZ,XT1,1  COMDFLD,SETSKIPTRIG     SKIP THIS DEFINITION IF
             02 000D3    694000EF
       546   02 000D4    305011E6              AV,XT1   1**(31-COMDLOB)              COMMAND IS ALREADY
       547   02 000D5    B5580037 03           STW,XT1  *SYMT,XT                     DEFINED FOR THIS PASS
       548         000E0200                    ELS                    40. DOIF DEFINITION PASS
             02 000D6    680000D9
       549   02 000D7    21400001 A            CI,XT    1
       550   02 000D8    693000ED              BNE      CMNDDEF1          COMMAND IS ALREADY DEFINED
       551                            *
       552         00F10200                    FI                    -40-
       553         0FF00200                    EXIT     RL
             02 000D9    680E0000 A
       554                            *
       555         00F10100                    FI                    -20-
       556                            *
       557                            *        HERE WE ARE ABOUT TO DEFINE A FUNCTION NAME - MAKE SURE IT
       558                            *        IS NOT AN INTRINSIC FUNCTION (OR VALUED SYMBOL).  IF IT IS,
       559                            *        TREAT AS NORMAL DUPLICATE FUNCTION DEFINITION.
       560                            *
       561   02 000DA    19400002              CLM,XT   RNG%INT%FUNC#
       562         001F0100                    IF,OL                 -60- DOIF NOT INTRINSIC FUNCTION NUMBER
             02 000DB    689000EC
       563   02 000DC    B2580037 03           LW,XT1   *SYMT,XT          LOAD FIXED SYMBOL TABLE ENTRY
       564         001F0200                    IF,FZ    SPAFLD,XT1        DOIF NOT ONE WORD ENTRY
             02 000DD    315011E7
             02 000DE    694000E9
       565         0FF00300                    EXIT,FZ  LPTRFLD,XT1       EXIT IF NO LPTR EXISTS
             02 000DF    2150FFFF A
             02 000E0    684E0000 A
       566   02 000E1    2240FFFF A            LV,XT    LPTRFLD
       567   02 000E2    4B400005 A            AND,XT   XT1               CLEAN INDEX TO DYNAMIC TABLE
       568   02 000E3    B2580037 03           LW,XT1   *SYMT,XT          LOAD CONTROL WORD FROM DYNAMIC TBL
       569   02 000E4    33000006 03           MTW,0    PASS
       570         001F0300                    IF,NZ                      DOIF GENERATION PASS
             02 000E5    683000E9
       571   02 000E6    4B5011E8              AND,XT1  =TYPEFLD
       572   02 000E7    21530000 A            CV,XT1   FUNCNAME
       573   02 000E8    683000CE              BE       CMNDDEF8          BRANCH IF ENTRY IS A FUNCTION
       574                            *
       575         00F10300                    FI
       576         00F10200                    FI
       577   02 000E9    495011DE              OR,XT1   =SPINTFLD         EXIT IF SYMBOL TABLE ENTRY CONTAINS
       578   02 000EA    315011E9              CW,XT1   =SPAFLD+SPINTFLD    THE INITIALIZATION VALUE,
       579         0FF00200                    EXIT,EQ  RL                  OR THE UNDEFINED VALUE
             02 000EB    683E0000 A
       580                            *
       581         00F10100                    FI                    -60-
       582                            *
       583                            *        HAVE AN ATTEMPT AT DUPLICATE FUNCTION DEFINITION
       584                            *
       585   02 000EC    6AF00000 X            BAL,ER   DERR              REPORT A DUPLICATE DEFINITION ERROR
       586   02 000ED                 CMNDDEF1 RES      0
       587   02 000ED    325011E5              LV,XT1   1**(31-DUPLOB)
       588   02 000EE    C7580037 03           STS,XT1  *SYMT,XT          SET DUPLICATE BIT
       589         00F10000                    FI                    -10-
       590                            *                                     S:SIN DIRECTIVE
       591   02 000EF                 SETSKIPTRIG   RES  0
       592   02 000EF    33100025 03           MTW,1    SKIPTRIG          SET SKIP INDICATOR
       593   02 000F0    68000642              B        LINE5
1
       595                            *
       596                            *  C N A M E
       597                            *        PROCESS THE CNAME DIRECTIVE
       598                            *
       599                            *        A TWO-WORD CONTROL ITEM IS STORED FOLLOWED BY THE VALUE IN
       600                            *          THE OPERAND FIELD.
       601                            *        THE CONTROL ITEM CONSISTS OF THE CNAME CONTROL WORD FOLLOWED
       602                            *          BY THE SAMPLE TABLE ORIGIN (STO FIELD) OF THE PROCEDURE
       603                            *          BODY.
       604                            *        THE STO FIELD IS USED TEMPORARILY BY CNAME TO LINK CNAME
       605                            *          CONTROL ITEMS.  THE START OF THE LINK IS CONTAINED IN
       606                            *          NAMELINK, AND TERMINATED BY A ZERO LINK.  THE LINK IS
       607                            *          UNTHREADED BY THE PROC DIRECTIVE, WHERE IT'S REPLACED BY
       608                            *          THE SAMPLE TABLE ORIGIN.  THREADING IS DONE IN BOTH THE
       609                            *          DEF AND GEN PASSES.
       610                            *
       611   02 000F1                 CNAME    RES      0
       612   02 000F1    324011EA              LV,XT    CMNDNAME+CNAMECOMT+LNGTH2  COMMAND NAME CONTROL WORD
       613   02 000F2                 CNAME2   RES      0
       614   02 000F2    3300004B 04           MTW,0    CMNDLIST          BRANCH IF THERE ARE
       615   02 000F3    683000F5              BEZ      CNAME3            NO COMMAND FIELD ENTRIES
       616   02 000F4    6AF00000 X            BAL,ER   EERR              REPORT ILLEGAL ENTRIES
       617   02 000F5                 CNAME3   RES      0
       618   02 000F5    6A7000B3              BAL,RL   CMNDDEF           CHECK COMMAND DEFINITION
       619   02 000F6    6A70094A              CALL     EV%CLN%OPRND      EVALUATE THE OPERAND FIELD
       620   02 000F7    6A700098              BAL,RL   CMNDASN           MAKE COMMAND ASSIGNMENT
       621                            *   CMNDASN RETURNS HERE DURING THE GENERATION PASS
       622   02 000F8    68000101              B        CNAME1            RETURN FOR GEN PASS
       623                            *   CMNDASN RETURNS HERE DURING THE DEFINITION PASS
       624                            * STORE TWO WORD CONTROL ENTRY FOLLOWED BY THE OPERAND EXPRESSION
       625   02 000F9    6A700132              BAL,RL   COM1              STORE CONTROL AND STO WORDS
       626   02 000FA    3250001B 03           LW,XT1   NAMELINK
       627   02 000FB    35580001 A            STW,XT1  STO,XT            STORE NAMELINK
       628   02 000FC    38400037 03           SW,XT    SYMT
       629   02 000FD    3540001B 03           STW,XT   NAMELINK
       630   02 000FE    32260005 A            LW,XW    OPRND,LVL         OPERAND FIELD INDEX
       631   02 000FF    22500000 A            LI,XT1   0
       632   02 00100    680008EF              B        SAMPL20           STORE ENCODED 'NAME'
       633   02 00101                 CNAME1   RES      0                 HERE FOR GEN PASS, XT CONTAINS INDEX
       634   02 00101    3250001B 03           LW,XT1   NAMELINK          NAMELINK TO STO
       635   02 00102    46580001 A            XW,XT1   STO,XT
       636   02 00103    355000A7 04           STW,XT1  PROCLOC           OLD SYMBOL TABLE NAMELINK
       637   02 00104    38400037 03           SW,XT    SYMT
       638   02 00105    3540001B 03           STW,XT   NAMELINK
       639   02 00106    6A700000 X            BAL,RL   EDITV             EDIT OPERAND VALUE INTO LISTING
       640   02 00107    68000643              B        GENR
1
       642                            *
       643                            *   C N A M E R E F
       644                            *        THIS ROUTINE PROCESSES A REFERENCE TO A CNAME DEFINITION.
       645                            *          CK%PREF IS CALLED TO INSURE THAT THE LEVEL OF PROCEDURE
       646                            *          REFERENCES IS LESS THAN THE MAXIMUM ALLOWED.
       647                            *          CNAMEREF%COMREF IS
       648                            *          CALLED  TO COMPLETE THE CURRENT PROCEDURE LEVEL TABLE,
       649                            *          INCREASE THE PROCEDURE LEVEL BY ONE, AND BUILD A NEW
       650                            *          PROCEDURE LEVEL TABLE.
       651                            *
       652                            *        INPUT:   REFADD CONTAINS THE SYMBOL TABLE ADDRESS OF THE CNAME
       653                            *                   ENTRY BEING REFERENCED.
       654                            *
       655                            *        OUTPUT:  LVL CONTAINS THE ADDRESS OF THE NEWLY FORMED
       656                            *                   PROCEDURE LEVEL TABLE
       657                            *                 PROCREF HAS BEEN INCREASED BY ONE
       658                            *                 XW CONTAINS AN INDEX TO THE ENCODED TEXT SAVED IN A
       659                            *                   SAMPLE STORAGE AREA BY THE PROCEDURE ASSOCIATED
       660                            *                   WITH THE CNAME BEING REFERENCED.
       661                            *        USES REGISTERS
       662                            *                 XT
       663                            *                 RL
       664                            *
       665   02 00108                 CNAMEREF RES      0
       666   02 00108    22500642              LI,XT1   LINE5             IGNORE THIS CNAME REFERENCE IF
       667   02 00109    6A70008C              BAL,RL   CK%PREF             PROC REF LEVEL EXCEEDS THE MAX
       668   02 0010A    6A70010C              BAL,RL   CNAMEREF%COMREF   CREATE AN INNER PROC LEVEL
       669   02 0010B    6800064C              B        LINE3
1
       671                            *
       672                            *   C N A M E R E F % C O M R E F
       673                            *        THIS ROUTINE PROCESSES LOGIC COMMON TO BOTH CNAMEREF AND
       674                            *          COMREF. AN ERROR IS REPORTED IF THE COMMAND ENTRY IN THE
       675                            *          SYMBOL TABLE IS NOT DEFINED FOR THE CURRENT PASS, AND THIS
       676                            *          ROUTINE WILL BRANCH TO LINE1 TO GENERATE A WORD OF ZERO.
       677                            *          --TO BE PROPERLY DEFINED, A COM DIRECTIVE MUST OCCUR BEFORE
       678                            *          ANY REFERENCE TO IT AND BOTH THE CNAME AND PROC DIRECTIVES
       679                            *          MUST OCCUR BEFORE ANY REFERENCE TO THE CNAME--  IF NO ERROR
       680                            *          IS DETECTED, THE ENCODED TEXT POINTER (XW) IS ADVANCED TO
       681                            *          THE START OF THE LINE FOLLOWING THE COMMAND REFERENCE LINE,
       682                            *          AND IS SAVED IN THE CURRENT PROCEDURE LEVEL TABLE; THE
       683                            *          CURRENT PROCEDURE LEVEL TABLE IS COMPLETED; PROCREF IS
       684                            *          INCREASED BY ONE; A NEW PROCEDURE LEVEL TABLE IS BUILT; AND
       685                            *          THE ENCODED TEXT POINTER (XW) IS SET TO THE PROCEDURE SAMPLE
       686                            *          ASSOCIATED WITH THE COMMAND BEING REFERENCED.
       687                            *
       688                            *        INPUT:   REFADD CONTAINS THE SYMBOL TABLE ADDRESS OF THE
       689                            *                   COMMAND ENTRY BEING REFERENCED.
       690                            *                 LVL CONTAINS THE ADDRESS OF THE CURRENT PROCEDURE
       691                            *                   LEVEL TABLE
       692                            *                 PROCREF CONTAINS THE PROCEDURE REFERENCE LEVEL OF THE
       693                            *                   COMMAND REFERENCE
       694                            *                 XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM
       695                            *                   FOLLOWING THE CF(1) FIELD
       696                            *
       697                            *        OUTPUT:  LVL CONTAINS THE ADDRESS OF THE NEWLY FORMED PROCEDURS
       698                            *                   LEVEL  ABLE.
       699                            *                 PROCREF HAS BEEN INCREASED BY ONE
       700                            *                 XW CONTAINS AN INDEX TO THE FIRST ENCODED TEXT ITEM
       701                            *                   IN THE PROCEDURE SAMPLE STORAGE FOR THIS COMMAND
       702                            *                   DEFINITION.
       703                            *
       704                            *        CALL:    BAL,RL CNAMEREF%COMREF
       705                            *
       706                            *        USES REGISTERS
       707                            *                 RL, XT, XT1, ER, XW, LVL
       708                            *
       709   02 0010C                 CNAMEREF%COMREF   RES   0
       710   02 0010C    3570006A 04           STW,RL   BLDPLTXIT
       711   02 0010D    B25000A9 04           LW,XT1   *REFADD
       712   02 0010E    4B5011EB              AND,XT1  =DEFFLD           GET DEF ASSIGNMENT FOR COMMAND
       713   02 0010F    315000A5 04           CW,XT1   PASSDEF
       714   02 00110    6930063D              BNE      LINE10            REFERENCE OCCURRED BEFORE DEFINITION
       715                            *   HERE IF COMMAND IS DEFINED FOR THE CURRENT PASS
       716   02 00111    6A7006A2              BAL,RL   LINESKIP          SKIP REST OF LINE
       717   02 00112    35260008 A            STW,XW   SAMP,LVL          SAVE INDEX TO ENCODED LINE FOLLOWING
       718                            *                                     COMMAND REFERENCE LINE.
       719   02 00113    324000A9 04           LW,XT    REFADD            ADDRESS OF COMMAND ENTRY
       720   02 00114    6800003D              B        BLDPLT1           BUILD A PROCEDURE LEVEL TABLE
1
       722                            *
       723                            *  C O M
       724                            *        PROCESS THE COM DIRECTIVE
       725                            *
       726                            *        A COM TYPE 0 CONTROL WORD IS STORED IN THE SYMBOL TABLE IF
       727                            *          EITHER THERE'S NO COMMAND LIST, OR THEIR VALUES SUM = 32;
       728                            *          OTHERWISE A COM TYPE 1 CONTROL WORD IS STORED.  THE CONTROL
       729                            *          WORD IS FOLLOWED BY THE SAMPLE TABLE ORIGIN OF THE COM LINE.
       730                            *        THE COM LINE IS STORED IN SAMPLE, WITH ITS LABEL REPLACED
       731                            *          BY THE INTRINSIC SYMBOL 'LF'.
       732                            *        SAMPLIN IS USED TO STORE THE COM LINE (ENTRY AT SAMPL20)
       733                            *
       734                                     LOCAL    %10,%20,%30,%40
       735   02 00115                 COM      RES      0
       736   02 00115    3240013A              LW,XT    COM0%CW           CONTROL WORD FOR COM0
       737   02 00116    6A7000B3              BAL,RL   CMNDDEF           CHECK COMMAND DEFINITION
       738   02 00117    22400020 A            LI,XT    32
       739   02 00118    3300004B 04           MTW,0    CMNDLIST          IF NO COMMAND FIELD EXPRESSION,
       740   02 00119    68300000 F            BEZ      %30                 USE COM TYPE ZERO
       741   02 0011A    6A70094B              BAL,RL   EVALUATE%AND%CLEAN  EVALUATE COMMAND EXPRESSIONS
       742   02 0011B    22400000 A            LI,XT    0                CLEAR PARTIAL SUM
       743   02 0011C                 %10      RES      0
       744   02 0011C    32520000 A            LW,XT1   0,XS             NEXT EVT ENTRY
       745   02 0011D    B25A0035 03           LW,XT1   *KLINE,XT1
       746   02 0011E    68100000 F            BFZ,XT1  SPAFLD,%40       IT SHOULD BE A
       747   02 0011F    315011DE              BFZ,XT1  SPINTFLD,%40       SPECIAL INTEGER
             02 00120    68400000 F
       748   02 00121    4B5011EC              AND,XT1  =VALFLD          KEEP VALUE
       749   02 00122    30400005 A            AW,XT    XT1              ADD IT TO PARTIAL SUM
       750   02 00123                 %20      RES      0
       751   02 00123    201FFFFF A            AI,XS    -1
       752   02 00124    33F00097 04           MTW,-1   LSTCT
       753   02 00125    6920011C              BGZ      %10
       754   02 00126    21400020 A            CI,XT    32
       755   02 00127    68300000 F            BE       %30               BRANCH IF EXPRESSION SUM IS 32
       756                                     ERROR,3,(COM1COMT&X'70000')=0   'TRUNCATION'
       757   02 00128    53400048 04           MTH,COM1COMT**-16   CMNDCW    CHANGE CONTROL WORD TO COM1
       758   02 00129    20400007 A            AI,XT    7
       759   02 0012A                 %30      RES      0
       760   02 0012A    2540007D A            SLS,XT   -3                 TO NUMBER OF BYTES
       761   02 0012B    6A70110D              BAL,RL   STACKSPI         PUT SPECIAL INTEGER IN EVT
       762   02 0012C    6A7006A2              BAL,RL   LINESKIP          SKIP REMAINDER OF COM LINE
       763   02 0012D    6A700098              BAL,RL   CMNDASN           MAKE COMMAND ASSIGNMENT
       764                            *   CMNDASN RETURNS HERE DURING THE GENERATION PASS
       765   02 0012E    680008C2              B        S:SIN1            GEN PASS EXIT
       766                            *   CMNDASN RETURNS HERE DURING THE DEFINITION PASS
       767   02 0012F    22604041 A            LV,XT2   LFSYM             SYMBOL LF TO LABEL FOR SAMPLIN
       768   02 00130    32260004 A            LW,XW    CMND,LVL          SET XW TO COMMAND FIELD
       769   02 00131    227008EF              LI,RL    SAMPL20           SAMPLIN WILL STORE THE COM LINE
       770   02 00132                 COM1     RES      0
       771   02 00132    325000A0 04           LW,XT1   NXTSYMT
       772   02 00133    38500037 03           SW,XT1   SYMT
       773   02 00134    35580001 A            STW,XT1  STO,XT            STORE INDEX TO SAMPLE LINE
       774   02 00135    25500001 A            SLS,XT1  1                 MAKE IT A HALFWORD INDEX
       775   02 00136    3550002A 03           STW,XT1  STORESAMP           FOR SAMPLIN
       776   02 00137    680E0000 A            EXIT     RL
       777   02 00138                 %40      RES      0
       778   02 00138    6AF00000 X            BAL,ER   EERR              ILLEGAL CF ENTRY
       779   02 00139    68000123              B        %20
       780   02 0013A    04028002 A   COM0%CW  DATA     1**(31-DEFLOB)+COM0COMT+CMNDNAME+LNGTH2
1
       782                            *
       783                            *   C O M R E F 4
       784                            *        THIS ROUTINE PROCESSES A REFERENCE TO A COMMAND DEFINED BY A
       785                            *          32 BIT COM DIRECTIVE.  BOTH LOCATION COUNTERS ARE ADVANCED
       786                            *          TO A WORD BOUNDARY, AND THE ROUTINE GOES TO COMREF.
       787                            *
       788   02 0013B                 COMREF4  RES      0
       789   02 0013B    6A700065              BAL,RL   BOUND4            ADVANCE LOCATION COUNTERS TO
       790                            *                                     A WORD BOUNDARY
       791                            *
       792                            *   C O M R E F
       793                            *        THIS ROUTINE PROCESSES A REFERENCE TO A COMMAND DEFINED BY A
       794                            *          COM DIRECTIVE.  CNAMEREF%COMREF IS CALLED TO COMPLETE THE
       795                            *          CURRENT PROCEDURE LEVEL TABLE, INCREASE THE LEVEL BY ONE,
       796                            *          AND BUILD A NEW PROCEDURE LEVEL TABLE. THEN PARAMETER
       797                            *          SUBSTITUTION IS PERFORMED BY CALLING PARTIC. THE NEWLY FORMED
       798                            *          ENCODED TEXT IN THE PARTICULARIZATION BUFFER IS THEN
       799                            *          PROCESSED BY CALLING GENORCOM. FINALLY, THE PROCEDURE
       800                            *          REFERENCE LEVEL IS DECREMENTED BY ONE AND THE PREVIOUS
       801                            *          PROCEDURE LEVEL IS REINSTATED.
       802                            *
       803                            *        INPUT:   REFADD CONTAINS THE SYMBOL TABLE ADDRESS OF THE COM
       804                            *                   ENTRY BEING REFERENCED.
       805                            *
       806                            *        OUTPUT:  XW CONTAINS AN INDEX TO THE BEGINNING OF THE ENCODED
       807                            *                   LINE FOLLOWING THE COM REFERENCE LINE.
       808                            *
       809                            *        USES REGISTERS
       810                            *                 XT
       811                            *                 RL
       812                            *                 XW
       813                            *                 LVL
       814                            *
       815   02 0013C                 COMREF   RES      0
       816   02 0013C    6A70010C              BAL,RL   CNAMEREF%COMREF   COMMON LOGIC
       817   02 0013D    20200001 A            AI,XW    1                 SKIP THE 'PARTIC' FLAG
       818   02 0013E    22400000 A            LI,XT    0                 SET 'NAME' FLAG FOR PARTIC
       819   02 0013F    6A700000 X            BAL,RL   PARTIC            PARAMETER SUBSTITUTION
       820   02 00140    6A70066B              BAL,RL   LINE%FLDS         SET LBL, CMND, OPRND POINTERS
       821   02 00141    6A700541              BAL,RL   GENORCOM
       822   02 00142                 COMREF3  RES      0
       823   02 00142    6A700587              BAL,RL   GETPLOC           RE-INSTATE PREVIOUS PROC LVL TBL
       824   02 00143    68000642              B        LINE5             RE-INSTATE XW
1
       826                            *
       827                            *   C S E C T
       828                            *        PROCESSES THE CSECT DIRECTIVE
       829                            *
       830                            *        USES REGISTERS
       831                            *                 RL
       832                            *                 XT
       833                            *
       834   02 00144                 CSECT    RES      0
       835   02 00144    2240000C A            LI,XT    CSTYPE
       836   02 00145                 CSECT1   RES      0
       837   02 00145    35400062 04           STW,XT   CS
       838   02 00146    6A700493              BAL,RL   EVALPT            EVALUATE PROTECTION TYPE
       839   02 00147    6A70079F              BAL,RL   NEWCSECT          SAVE LOC. COUNTERS & ASSIGN NEW C.S.
       840   02 00148    6A700298              CALL     DEFHEXLBL         DEFINE LABEL FIELD
       841   02 00149    68000643              B        GENR              BACK TO MAIN CONTROL
1
       843                            *
       844                            *  C T E L E M E N T S
       845                            *        COUNT THE NUMBER OF ELEMENTS IN THE LAST LIST IN EVT,ECT
       846                            *          AND COMPLETE THE LIST CONTROL ITEM IN THE EVT.
       847                            *
       848                            *          INPUT: ECT,LVL POINTS TO THE NEXT AVAILABLE ECT ENTRY
       849                            *                 THE ECT CONTAINS A DUMMY LIST ITEM WHICH POINTS TO
       850                            *                   THE INCOMPLETE EVT LIST CONTROL ITEM.
       851                            *
       852                            *         OUTPUT: ECT,LVL IS CHANGED TO REFLECT DELETION OF THE
       853                            *                   INDIVIDUAL LIST ENTRIES
       854                            *                 THE DUMMY LIST ITEM IN ECT IS CHANGED TO A LIST
       855                            *                 THE LIST CONTROL ITEM IN THE EVT CONTAINS THE
       856                            *                   LENGTH & NUMBER OF ELEMENTS IN THE LIST.
       857                            *                 #ELEM CONTAINS THE NUMBER OF ELEMENTS IN THE LIST
       858                            *
       859                            *        REGISTERS USED:  XT,XT1,XT2,XT3
       860                            *
       861                                     LOCAL    %1,%2
       862   02 0014A                 CTELEMENTS  RES   0
       863   02 0014A    357000BC 04           STW,RL   1ELEMXIT
       864   02 0014B    32460002 A            LW,XT    ECT,LVL
       865   02 0014C    325000A5 04           LW,XT1   PASSDEF           TO RETAIN LOWEST DEF FIELD
       866   02 0014D    327011ED              LV,XT3   ETFLD             ET FIELD MASK
       867   02 0014E                 %1       RES      0
       868   02 0014E    20400001 A            AI,XT    1
       869   02 0014F    B2680035 03           LW,XT2   *KLINE,XT         SEARCH FOR THE
       870   02 00150    CB5C0035 03           AND,XT1  *KLINE,XT2        UPDATE LOWEST DEF FIELD
       871   02 00151    456011ED              CS,XT2   =DLISTET            DUMMY LIST ET
       872   02 00152    6930014E              BNE      %1                NOT FOUND
       873   02 00153    4A6011EE              LS,XT2   =LISTET           CHANGE THE DUMMY LIST ET
       874   02 00154    C7680035 03           STS,XT2  *KLINE,XT           TO A LIST ET
       875   02 00155    204FFFFF A            AI,XT    -1                MODIFY TO POINT TO 1ST ELEMENT
       876   02 00156    32700004 A            LW,XT3   XT
       877   02 00157    38460002 A            SW,XT    ECT,LVL           # ELEMENTS IN THE ECT
       878   02 00158    35760002 A            STW,XT3  ECT,LVL           DELETE ECT ELEMENTS
       879   02 00159    21400100 A            CI,XT    256               TEST FOR TOO MANY ELEMENTS
       880   02 0015A    69100000 F            BL       %2
       881   02 0015B    6AF00000 X            BAL,ER   TERR              TOO MANY LIST ELEMENTS
       882   02 0015C    224000FF A            LI,XT    255               SET TO MAX # ELEMENTS
       883   02 0015D    38700004 A            SW,XT3   XT                LOCATE ECT OF LAST ELEMENT
       884   02 0015E    B27E0035 03           LW,XT3   *KLINE,XT3        DELETE EXTRA EVT ELEMENTS
       885   02 0015F    4B7011E1              AND,XT3  =LOCFLD
       886   02 00160    35760001 A            STW,XT3  EVT,LVL
       887   02 00161                 %2       RES      0
       888   02 00161    32760001 A            LW,XT3   EVT,LVL           COMPUTE LIST LENGTH
       889   02 00162    38700006 A            SW,XT3   XT2
       890   02 00163    4B7011E1              AND,XT3  =LOCFLD
       891   02 00164    30500007 A            AW,XT1   XT3               INSERT LENGTH
       892   02 00165    20508000 A            AV,XT1   LISTS             LIST TYPE FIELD
       893   02 00166    30600035 03           AW,XT2   KLINE
       894   02 00167    354000BD 04           STW,XT   #ELEM             STORE NUMBER OF LIST ELEMENTS
       895   02 00168    354C0001 A            STW,XT   ELEM,XT2
       896   02 00169    355C0000 A            STW,XT1  0,XT2             STORE EVT CONTROL WORD
       897   02 0016A    E80000BC 04           B        *1ELEMXIT
1
       899                            *
       900                            *   D A T A
       901                            *        THIS ROUTINE PROCESSES THE DATA DIRECTIVE.  FIRST THE LABEL IS
       902                            *          DEFINED. THEN THE CF(2) FIELD DETERMINES THE LENGTH OF EACH
       903                            *          OPERAND. THIS LENGTH IS STORED IN THE EXPRESSION VALUE TABLE
       904                            *          AS A BIT LENGTH. SCAN1 IS CALLED TO EVALUATE ONE OPERAND AT
       905                            *          A TIME, AND GENERATE IS CALLED TO OUTPUT THE VALUE.
       906                            *
       907                            *        USES REGISTERS
       908                            *                 RL
       909                            *                 XT
       910                            *                 LVL
       911                            *                 XW
       912                            *                 XT1
       913                            *                 ER
       914                            *
       915   02 0016B                 DATA     RES      0
       916                            *
       917   02 0016B    6A700298              CALL     DEFHEXLBL         DEFINE LABEL FIELD
       918   02 0016C    3300004B 04           MTW,0    CMNDLIST
       919   02 0016D    68300178              BEZ      DATA2             NO CF(2) SPECIFIED
       920   02 0016E    6A70049E              BAL,RL   EVAL1EXP          EVALUATE CF(2) FIELD
       921   02 0016F    32400046 04           LW,XT    TEMP
       922   02 00170    69100177              BLZ      DATA1             INVALID CF(2) FIELD
       923   02 00171    68300642              BEZ      LINE5             SKIP DATA IF CF(2) IS ZERO
       924   02 00172    21400010 A            CI,XT    16
       925   02 00173    68200179              BLE      DATA3             VALID CF(2) VALUE
       926   02 00174    6AF00000 X            BAL,ER   EERR              CF(2) FIELD TOO LARGE
       927   02 00175    22400010 A            LI,XT    16                USE MAX
       928   02 00176    68000179              B        DATA3
       929   02 00177                 DATA1    RES      0
       930   02 00177    6AF00000 X            BAL,ER   EERR              ILLEGAL CF(2) VALUE
       931   02 00178                 DATA2    RES      0
       932                            *   HERE FROM LINE10 FOR UNKNOWN COMMANDS
       933   02 00178    22400004 A            LI,XT    4                 USE A CF(2) VALUE OF 4
       934   02 00179                 DATA3    RES      0
       935   02 00179    35400061 04           STW,XT   TEMPO             SAVE VALUE OF CF(2)
       936   02 0017A    25400003 A            SLS,XT   3                 CHANGE BYTE LENGTH TO BIT LENGTH
       937   02 0017B    6A70110D              BAL,RL   STACKSPI          SPECIAL INTEGER TO EXPRESSION STACKS
       938   02 0017C                 DATA4    RES      0
       939   02 0017C    6A70094D              BAL,RL   SCAN1             EVALUATE ONE EXPRESSION
       940   02 0017D    3540009B 04           STW,XT   NCDITEM           SAVE ENCODED ITEM
       941   02 0017E    6A700091              BAL,RL   CLN%EXP           REMOVE 'VALUES' BUT LEAVE LENGTH
       942   02 0017F    20100001 A            AI,XS    1
       943   02 00180    35100046 04           STW,XS   TEMP              SAVE POINTER TO FIELD LENGTH
       944   02 00181                 DATA5    RES      0
       945   02 00181    201FFFFF A            AI,XS    -1                POINTER TO NEXT VALUE
       946   02 00182    35100064 04           STW,XS   VALPTR            SAVE POINTER TO VALUE
       947   02 00183    32400046 04           LW,XT    TEMP
       948   02 00184    35400052 04           STW,XT   FLDPTR            POINTER TO FIELD SIZE
       949   02 00185    22400001 A            LI,XT    1
       950   02 00186    35400051 04           STW,XT   FLDCNT            NUMBER OF FIELD SIZE ENTRIES
       951   02 00187    35400063 04           STW,XT   VALCNT            NUMBER OF VALUE ENTRIES
       952   02 00188    32400061 04           LW,XT    TEMPO             NUMBER OF BYTES TO GENERATE
       953   02 00189    6A700000 X            BAL,RL   GENERATE          GENERATE OBJECT DATA
       954   02 0018A    33F00097 04           MTW,-1   LSTCT             DECREMENT LIST COUNT
       955   02 0018B    69200181              BGZ      DATA5             BRANCH IF MORE ITEMS IN LIST
       956   02 0018C    3240009B 04           LW,XT    NCDITEM           LOAD ENCODED ITEM SAVED ABOVE
       957   02 0018D    6930017C              BNE      DATA4             NOT END-OF-LINE,PROCESS NEXT OPERAND
       958   02 0018E    68000643              B        GENR              BACK TO MAIN CONTROL
1
       960                            *
       961                            *   D E F
       962                            *        THIS ROUTINE PROCESSES THE DEF,REF, AND SREF DIRECTIVES.
       963                            *          EACH OPERAND FIELD ENTRY MUST BE A NON-LOCAL SYMBOL OR A
       964                            *          SYNTAX ERROR IS MARKED AND THE ENTRY IS SKIPPED.  THE SYMBOL
       965                            *          TABLE ENTRY FOR EACH SYMBOL IS SET TO THE APPROPRIATE
       966                            *          EXTERNAL TYPE.  AN ERROR IS REPORTED FOR ANY DUPLICATIONS
       967                            *          FOUND FOR DEF,REF,AND SREF. AN ATTEMPT TO DEF AN UNDEFINED
       968                            *          SYMBOL WILL ALSO REPORT AN ERROR. REF AND SREF CAUSE THE
       969                            *          SYMBOL TO BE DEFINED AS WELL AS SETTING IT EXTERNAL.
       970                            *
       971                            *        INPUT:   XT CONTAINS THE VALUE TO BE ASSIGNED TO THE EXTERNAL
       972                            *                   FIELD OF EACH SYMBOL PROCESSED.
       973                            *
       974                            *        OUTPUT:  DEF BRANCHES TO GENR IN MAIN CONTROL AFTER THE LINE
       975                            *                   HAS BEEN PROCESSED.
       976                            *
       977                            *        USES REGISTERS
       978                            *                 XT
       979                            *                 XT1
       980                            *                 XW
       981                            *                 ER
       982                            *                 RL
       983                            *
       984   02 0018F                 DEF      RES      0
       985   02 0018F    324011EF              LV,XT    DEFEXT            ASSIGNMENT FOR EXTERNAL DEFINITION
       986                            *   HERE FROM DEF, REF, OR SREF. XT CONTAINS THE EXTERNAL TYPE.
       987   02 00190                 DEF1     RES      0
       988   02 00190    35400046 04           STW,XT   TEMP              SAVE VALUE FOR EXT FIELD
       989   02 00191    6A7010AB              CALL     SOCW%CHK          SOCW AND EXTERNALS DON'T MIX
       990   02 00192    32260005 A            LW,XW    OPRND,LVL         GET INDEX TO OPERAND FIELD
       991   02 00193                 DEF2     RES      0
       992   02 00193    D24400BA 04           NXTENC   ,NOINC           GET NEXT ENCODED ITEM
       993   02 00194    68300642              BE       LINE5            END OF LINE, GO TO MAIN CONTROL
       994   02 00195    20200001 A            AI,XW    1                INCREMENT ENCODED TEXT INDEX
       995   02 00196    2250E000 A            LI,XT1   TFLD
       996   02 00197    4B500004 A            AND,XT1  XT                EXTRACT ENCODED TYPE FIELD
       997   02 00198    21504000 A            CI,XT1   ENCSYM
       998   02 00199    683001A0              BE       DEF4              ENCODED ITEM IS A NON-LOCAL SYMBOL
       999   02 0019A    20402000 A            AI,XT    ENCTYPE1          ADD 1 TO ENCODED TYPE FIELD
      1000   02 0019B    6880019E              BCR,8    DEF3              NOT A MULTIWORD INTEGER
      1001   02 0019C    4B4011F0              AND,XT   =LFLD             CLEAN THE LENGTH FIELD
      1002   02 0019D    30200004 A            AW,XW    XT                SKIP THE MULTIWORD INTEGER
      1003   02 0019E                 DEF3     RES      0
      1004   02 0019E    6AF00000 X            BAL,ER   SERR              SYNTAX ERROR
      1005   02 0019F    68000193              B        DEF2
      1006   02 001A0                 DEF4     RES      0
      1007   02 001A0    6A7001A2              BAL,RL   DEFSUB            ASSIGN THE EXT FIELD
      1008   02 001A1    68000193              B        DEF2
      1009                            *
      1010                            *   D E F S U B
      1011                            *
      1012   02 001A2                 DEFSUB   RES      0
      1013   02 001A2    3570004D 04           STW,RL  DFNEXIT           SAVE RETURN ADDRESS
      1014   02 001A3    6A70058D              BAL,RL   GLBLADD           FIND THE SYMT ADDRESS
      1015   02 001A4    B2500086 04           LW,XT1   *FND              SET EXTERNAL FIELD
      1016   02 001A5    315011F1              BFNZ,XT1 EXTFLD,DEF8       BRANCH IF SYMBOL IS ALREADY EXTERNAL
             02 001A6    694001BA
      1017   02 001A7    30500046 04           AW,XT1   TEMP
      1018   02 001A8    B5500086 04           STW,XT1  *FND              STORE BACK WITH EXTERNAL ASSIGNMENT
      1019   02 001A9    32700046 04           LW,RL    TEMP
      1020   02 001AA    317011EF              CV,RL    DEFEXT
      1021   02 001AB    693001B2              BNE      DEFSUB1           BRANCH IF EXT. ASSIGN. IS REF OR SREF
      1022   02 001AC    33000038 03           MTW,0    1STDEF
      1023   02 001AD    E810004D 04           BGEZ     *DFNEXIT          EXIT IF THIS IS NOT FIRST DEF
      1024   02 001AE    32700098 04           LW,RL    MAIN
      1025   02 001AF    38700037 03           SW,RL    SYMT
      1026   02 001B0    35700038 03           STW,RL   1STDEF            SAVE SYMBOL NUMBER OF 1ST DEF
      1027   02 001B1    E800004D 04           B        *DFNEXIT
      1028   02 001B2                 DEFSUB1  RES      0
      1029                            *   HERE IF SYMBOL IS A REF OR SREF
      1030   02 001B2    315011EB              BFNZ,XT1 DEFFLD,DEF9       BRANCH IF SYMBOL ALREADY DEFINED.
             02 001B3    694001BC
      1031   02 001B4    4B5011F2              AND,XT1  =~SPINTFLD
      1032   02 001B5    30500000 03           AW,XT1   DECLRNUM
      1033   02 001B6    33100000 03           MTW,1    DECLRNUM          INCREMENT DECLARATION NUMBER
      1034   02 001B7                 DEF7     RES      0
      1035   02 001B7    495000A5 04           OR,XT1   PASSDEF           DEFINE SYMBOL FOR REF OR SREF
      1036   02 001B8    B5500086 04           STW,XT1  *FND
      1037   02 001B9    E800004D 04           B        *DFNEXIT          EXIT
      1038   02 001BA                 DEF8     RES      0
      1039   02 001BA    33000006 03           MTW,0    PASS
      1040   02 001BB    693001BF              BNEZ     DEF10             GENERATION PASS
      1041   02 001BC                 DEF9     RES      0
      1042   02 001BC    325011E5              LV,XT1   DUPFLD
      1043   02 001BD    C7500086 04           STS,XT1  *FND              SET DUP BIT
      1044   02 001BE    E800004D 04           B        *DFNEXIT
      1045   02 001BF                 DEF10    RES      0
      1046   02 001BF    315011E5              BFZ,XT1  DUPFLD,DEF11      BRANCH IF DUPLICATE BIT NOT SET
             02 001C0    684001C2
      1047   02 001C1    6AF00000 X            BAL,ER   DERR              DUPLICATION ERROR
      1048   02 001C2                 DEF11    RES      0
      1049   02 001C2    315011EB              BFNZ,XT1 DEFFLD,DEF12      BRANCH IF SYMBOL IS DEFINED
             02 001C3    694001C5
      1050   02 001C4    6AF00000 X            BAL,ER   UERR              UNDEFINED SYMBOL
      1051   02 001C5                 DEF12    RES      0
      1052   02 001C5    32700046 04           LW,RL    TEMP
      1053   02 001C6    317011EF              CV,RL    DEFEXT
      1054   02 001C7    693001B7              BNE      DEF7              EXTERNAL ASSIGNMENT IS REF OR SREF
      1055                            *   CHECK FOR A VALID DEF ASSIGNMENT
      1056   02 001C8    315011E7              BFNZ,XT1,1  SPAFLD,*DFNEXIT  EXIT IF ONE WORD ASSIGNMENT
             02 001C9    E940004D 04
      1057   02 001CA    22738000 A            LV,RL    TYPEFLD
      1058   02 001CB    4B700005 A            AND,RL   XT1               GET TYPE
      1059         001F0000                    IF,NE    LISTS,RL          SCREEN OUT BAD VALUES HERE        *D-DG
             02 001CC    21708000 A
             02 001CD    683001DA
      1060   02 001CE    21710000 A            CV,RL    CONSTANT
      1061   02 001CF    E930004D 04           BNE      *DFNEXIT          NOT A CONSTANT
      1062   02 001D0    22707FFF A            LV,RL    LENGTHFLD
      1063   02 001D1    4B700005 A            AND,RL   XT1               GET ITEM'S LENGTH
      1064   02 001D2    21700002 A            CV,RL    LNGTH2
      1065   02 001D3    E830004D 04           BE       *DFNEXIT          CONSTANT IS 32 BITS OR LESS
      1066   02 001D4    4B5011F3              AND,XT1  =CTYPEFLD         GET TYPE OF CONSTANT
      1067         00AF0000                    THEF,EQ  CHSTR,XT1         ONLY TEXT MIGHT STILL FIT         *D-DG
             02 001D5    315011F4
             02 001D6    693001DA
      1068   02 001D7    22400004 A            LI,XT    4                 COMPARE NUMBER OF CHARACTERS
      1069   02 001D8    F1480086 04           CB,XT    *FND,XT             FOR 4 OR LESS
      1070   02 001D9    E810004D 04           BGE      *DFNEXIT
      1071                            *                                                                     *D-DG
      1072         00F10000                    FI                                                           *D-DG
      1073   02 001DA    6AF00000 X            BAL,ER   TERR              TRUNCATION ERROR
      1074   02 001DB    E800004D 04           B        *DFNEXIT
1
      1076                            *
      1077                            *   D E F G E N     * * *  B E G I N   A S S E M B L Y  * * *
      1078                            *
      1079   02 001DC                 DEFGEN   RES      0
      1080   02 001DC    35A00000 X            STW,IORL ROOTRTN           SAVE RETURN ADDRESS TO ROOT
      1081   02 001DD                 DEFGEN2  RES      0
      1082                            *   READ FIRST ENCODED TEXT RECORD AND BEGIN CURRENT PASS
      1083   02 001DD    6A7007D7              BAL,RL   NXTRECRD
      1084   02 001DE    6800061E              B        LINE
1
      1086                            *
      1087                            *   D E F I N E
      1088                            *        ENTERS A VALUE IN THE SYMBOL TABLE.  THE LBL ENTRY IN THE
      1089                            *          PROCEDURE LEVEL TABLE CONTAINS A POINTER TO THE LABEL FIELD.
      1090                            *        ARG CONTAINS A POINTER TOTHE VALUE TO BE STORED.
      1091                            *        IF THE 'SD' OPTION IS IN EFFECT, 'SD%TYPE' IS EXPECTED TO
      1092                            *           HOLD THE TYPE CODE FOR THE GLOBAL SYMBOL TO BE DEFINED.
      1093                            *
      1094                            *        USES REGISTERS
      1095                            *                 RL, LVL, XT, XT1, XT2, XW, TR0, TR1
      1096                            *
      1097   02 001DF                 DEFINE   RES      0
      1098   02 001DF    3570004D 04           STW,RL   DFNEXIT           SAVE RETURN
      1099   02 001E0    32400066 04           LW,XT    ARG               SAVE ARG IN A CELL THAT
      1100   02 001E1    3540004A 04           STW,XT   ARGSAVE             IS NOT USED BY SCAN
      1101   02 001E2    35200058 04           STW,XW   SAVEXW            SAVE CURRENT XW
      1102   02 001E3    32260003 A            LW,XW    LBL,LVL           GET LABEL POINTER
      1103   02 001E4    6A700717              BAL,RL   LOADXW            LOAD APPROPRIATE XWBASE
      1104   02 001E5    D24400BA 04           NXTENC                     GET 1ST LABEL FIELD ITEM
             02 001E6    20200001 A
      1105   02 001E7    21400005 A            CI,XT    BLANKEXP
      1106   02 001E8    683001F2              BE       DFNE1             LABEL FIELD IS BLANK
      1107   02 001E9    2250E000 A            LI,XT1   TFLD              ENCODED TYPE FIELD MASK
      1108   02 001EA    21400006 A            CV,XT    BEGINLIST         BRANCH IF LABEL STARTS WITH
      1109   02 001EB    683001F5              BE       DFNE4               A BEGIN LIST
      1110   02 001EC    4B500004 A            AND,XT1  XT                ENCODED TYPE
      1111   02 001ED    21504000 A            CI,XT1   ENCSYM
      1112   02 001EE    68300202              BE       DFNE6             LABEL IS A NON-LOCAL SYMBOL
      1113   02 001EF    21506000 A            CI,XT1   LOCALSYM
      1114   02 001F0    6830021C              BE       DFNE7             LABEL IS A LOCAL SYMBOL
      1115   02 001F1                 DFNE     RES      0
      1116   02 001F1    6AF00000 X            BAL,ER   LERR              LABEL ERROR
      1117   02 001F2                 DFNE1    RES      0
      1118   02 001F2    32200058 04           LW,XW    SAVEXW            RESTORE XW
      1119   02 001F3    6A700717              BAL,RL   LOADXW            LOAD XWBASE
      1120   02 001F4    E800004D 04           B        *DFNEXIT
      1121   02 001F5                 DFNE4    RES      0
      1122   02 001F5    D24400BA 04           NXTENC                     ITEM FOLLOWING BEGINLIST
             02 001F6    20200001 A
      1123   02 001F7    35400056 04           STW,XT   SBLBLSYM          SAVE ENCODED ITEM
      1124   02 001F8    4B500004 A            AND,XT1  XT                ENCODED TYPE TO XT1
      1125   02 001F9    21508000 A            CV,XT1   SBSYM             BRANCH IF LABEL IS A
      1126   02 001FA    6830022D              BE       DFNE10              SUBSCRIPTED SYMBOL
      1127   02 001FB    2150A000 A            CV,XT1   LCLSBSYM          BRANCH IF LABEL IS NOT
      1128   02 001FC    693001F1              BNE      DFNE                A LOCAL SUBSCRIPTED SYMBOL
      1129   02 001FD    6A70094B              BAL,RL   SCAN              EVALUATE SUBSCRIPTS
      1130   02 001FE    32400056 04           LW,XT    SBLBLSYM          RESTORE LOCAL SYMBOL NUMBER
      1131   02 001FF    6A70072C              BAL,RL   LOCALADD          GET LOCAL SYMBOL'S ADDRESS
      1132   02 00200    68000230              B        DFNE11
      1133   02 00201                 DEFINE2  RES      0
      1134   02 00201    3570004D 04           STW,RL   DFNEXIT           SAVE RETURN
      1135   02 00202                 DFNE6    RES      0
      1136   02 00202    33000000 X            MTW,0    SD%FLAG
      1137         001F0000                    IF,NZ                      DOIF SD
             02 00203    68300207
      1138   02 00204    4B4011E4              AND,XT   L(VFLD)           CLEAN SYMBOL NUMBER
      1139   02 00205    325000AF 04           LW,XT1   SD%TYPE
      1140   02 00206    F5580036 03           STB,XT1  *SDTT,XT          SAVE TYPE IN SD BYTE-TABLE
      1141         00F10000                    FI
      1142   02 00207    6A70058D              BAL,RL   GLBLADD           GET GLOBAL SYMBOL'S ADDRESS
      1143   02 00208    6A70040E              BAL,RL   ENTER1            ENTER  VALUE IN SYMBOL TABLE
      1144   02 00209    32400086 04           LW,XT    FND
      1145   02 0020A    31400098 04           CW,XT    MAIN              BRANCH IF FND IS POINTING TO
      1146   02 0020B    6830020D              BE       %+2                 THE FIXED SYMT AREA
      1147   02 0020C    6A70050F              BAL,RL   FREESPC           FREE DYNAMIC TABLE SPACE
      1148   02 0020D    B2400066 04           LW,XT    *ARG
      1149   02 0020E    68100212              BFZ,XT   SPAFLD,DFNE5      NOT A SPECIAL ADDRESS ITEM
      1150   02 0020F    B2400098 04           LW,XT    *MAIN
      1151   02 00210    314011E2              BFZ,XT   CPTRFLD,DFNE2     SYMBOL NOT USED AS A COMMAND
             02 00211    68400228
      1152   02 00212                 DFNE5    RES      0
      1153   02 00212    6A7004D8              BAL,RL   FINDSPC           OBTAIN SPACE IN DYNAMIC AREA
      1154   02 00213    2250FFFF A            LV,XT1   LPTRFLD           MASK FOR LPTR FIELD
      1155   02 00214    B2400098 04           LW,XT    *MAIN
      1156   02 00215    68100217              BFZ,XT   SPAFLD,DFNE3      ENTRY IS CPTR,LPTR TYPE
      1157   02 00216    225FFFFF A            LI,XT1   -1                MASK FOR ENTIRE WORD
      1158   02 00217                 DFNE3    RES      0
      1159   02 00217    32400086 04           LW,XT    FND
      1160   02 00218    38400037 03           SW,XT    SYMT              UPDATE LPTR WITH INDEX TO
      1161   02 00219    C7400098 04           STS,XT   *MAIN               ENTRY TO BE STORED
      1162   02 0021A    6A7007C9              BAL,RL   NEWENTRY          STORE VALUE INTO   SYMBOL TABLE
      1163   02 0021B    680001F2              B        DFNE1
      1164   02 0021C                 DFNE7    RES      0
      1165   02 0021C    6A70072C              BAL,RL   LOCALADD          GET LOCAL SYMBOL'S ADDRESS
      1166   02 0021D    6A701101              BAL,RL   SRCLCLFD          LOOK FOR LOCAL FORWARD OR LOCAL
      1167   02 0021E    21500000 A            CI,XT1   0                   FORWARD AND HOLD
      1168   02 0021F    68300225              BE       DFNE8             IT'S NEITHER
      1169   02 00220    324011E7              LV,XT    SPAFLD
      1170   02 00221    464A0000 A            XW,XT    0,XT1
      1171   02 00222    6A700000 X            BAL,RL   GENERATE2      GENERATE A FORWARD REFERENCE DEFINITION
      1172   02 00223    3240004A 04           LW,XT    ARGSAVE
      1173   02 00224    35400066 04           STW,XT   ARG               RESTORE ARG AFTER GENERATE
      1174   02 00225                 DFNE8    RES      0
      1175   02 00225    6A70040E              BAL,RL   ENTER1            ENTER  VALUE IN SYMBOL TABLE
      1176   02 00226    B2400066 04           LW,XT    *ARG
      1177   02 00227    6810022B              BFZ,XT   SPAFLD,DFNE9      NOT A SPECIAL ADDRESS ITEM
      1178   02 00228                 DFNE2    RES      0
      1179   02 00228    B2400066 04           LW,XT    *ARG              MOVE ITEM POINTED TO BY ARG
      1180   02 00229    B5400098 04           STW,XT   *MAIN               INTO FIXED SYMBOL TABLE
      1181   02 0022A    680001F2              B        DFNE1
      1182   02 0022B                 DFNE9    RES      0
      1183   02 0022B    6A7002A5              BAL,RL   DEFLOC            DEFINE LOCAL SYMBOL
      1184   02 0022C    680001F2              B        DFNE1
      1185   02 0022D    6A70094B     DFNE10   BAL,RL   SCAN              EVALUATE SUBSCRIPTS
      1186   02 0022E    32400056 04           LW,XT    SBLBLSYM          RESTORE SYMBOL NUMBER
      1187   02 0022F    6A70058D              BAL,RL   GLBLADD           GET GLOBAL SYMBOL'S ADDRESS
      1188   02 00230                 DFNE11   RES      0
      1189   02 00230    3240004A 04           LW,XT    ARGSAVE
      1190   02 00231    35400066 04           STW,XT   ARG               RESTORE ARG FOLLOWING CALL TO SCAN
      1191   02 00232    32460002 A            LW,XT    ECT,LVL           SAVE ECT OFFSET TO START OF NEW
      1192   02 00233    35400068 04           STW,XT   BASE                LIST STRUCTURE TO BE CREATED
      1193   02 00234    351000B4 04           STW,XS   SUBLOC            ADDRESS OF 1ST SUBSCRIPT IN ECT
      1194   02 00235    32400086 04           LW,XT    FND               SYMBOL TABLE ADDRESS OF LABEL
      1195   02 00236    6A70060D              BAL,RL   LENGTH            GET LENGTH OF LABEL
      1196   02 00237    30500086 04           AW,XT1   FND               SAVE ADDRESS OF WORD FOLLOWING LAST
      1197   02 00238    3550008D 04           STW,XT1  LAST                WORD OF SYMBOL TABLE ENTRY
      1198   02 00239                 DFNE12   RES      0
      1199   02 00239    B2500086 04           LW,XT1   *FND              GET NEXT ENTRY IN SYMBOL TABLE
      1200   02 0023A    6A700000 X            BAL,RL   TYPE              GET ENTRIES TYPE
      1201   02 0023B    316011EE              CV,XT2   LISTET
      1202   02 0023C    69300273              BNE      DFNE18            BRANCH IF ENTRY IS NOT A LIST
      1203   02 0023D    32400086 04           LW,XT    FND
      1204   02 0023E    22500002 A            LI,XT1   2                 PUSH THE 2 WORD LIST CONTROL
      1205   02 0023F    6A700EA3              BAL,RL   SCPUSH              ITEM OUTO ECT AND EVT
      1206   02 00240    33100086 04           MTW,1    FND
      1207   02 00241    B2400086 04           LW,XT    *FND              GET NUMBER OF ELEMENTS
      1208   02 00242    354000BD 04           STW,XT   #ELEM               IN THIS LIST
      1209   02 00243    33100086 04           MTW,1    FND
      1210   02 00244    6A701115              BAL,RL   SUBVAL            GET NEXT SUBSCRIPT FROM EVT
      1211   02 00245    314000BD 04           CW,XT    #ELEM             BRANCH IF THE NUMBER OF ELEMENTS IN
      1212   02 00246    6920027E              BG       DFNE21              SYMT IS LESS THAN THE SUBSCRIPT
      1213   02 00247    204FFFFF A            AI,XT    -1
      1214   02 00248    6A700796              BAL,RL   MOVESYMITEM       MOVE SUB#-1 ITEMS FROM SYMT TO EVT
      1215   02 00249    33F00097 04           MTW,-1   LSTCT             DECREMENT SUBSCRIPT COUNT
      1216   02 0024A    69200239              BGZ      DFNE12            BRANCH IF THERE ARE MORE SUBSCRIPTS
      1217   02 0024B                 DFNE14   RES      0
      1218   02 0024B    33F00097 04           MTW,-1   LSTCT             DECREMENT SUBSCRIPT COUNT
      1219   02 0024C    69200275              BGZ      DFNE27
      1220                            *
      1221   02 0024D    330000BD 04           MTW,0    #ELEM             BRANCH IF THERE IS NO ITEM IN
      1222   02 0024E    68300252              BEZ      DFNE13              SYMT TO BE REPLACED
      1223                            *
      1224   02 0024F    32400086 04           LW,XT    FND               SKIP THE ITEM IN
      1225   02 00250    6A70060D              BAL,RL   LENGTH              SYMT TO BE
      1226   02 00251    66500086 04           AWM,XT1  FND                 REPLACED BY ARG
      1227   02 00252                 DFNE13   RES      0
      1228   02 00252    22400000 A            LI,XT    0
      1229   02 00253    33F00097 04           MTW,-1   LSTCT             DECREMENT SUBSCRIPT COUNT
      1230   02 00254    69200274              BGZ      DFNE20            BRANCH IF THERE ARE MORE SUBSCRIPTS
      1231                            *
      1232   02 00255    32400066 04           LW,XT    ARG               PUSH ARG INTO EVT. ITS THE LAST
      1233   02 00256    6A70060D              BAL,RL   LENGTH              THING THAT WILL CHANGE IN THE
      1234   02 00257    6A700EB0              BAL,RL   SCPSHV              NEWLY GENERATED LIST STRUCTURE
      1235   02 00258    32400086 04           LW,XT    FND               IF THERE IS ANYTHING
      1236   02 00259    3250008D 04           LW,XT1   LAST                LEFT IN SYMT,
      1237   02 0025A    38500086 04           SW,XT1   FND                 PUSH IT INTO
      1238   02 0025B    6820025D              BLEZ     %+2                 EVT BEHIND THE
      1239   02 0025C    6A700EB0              BAL,RL   SCPSHV              NEWLY CREATED LIST
      1240   02 0025D    32160002 A            LW,XS    ECT,LVL
      1241   02 0025E    326000A5 04           LW,XT2   PASSDEF
      1242   02 0025F                 DFNE16   RES      0
      1243   02 0025F    20100001 A            AI,XS    1
      1244   02 00260    31100068 04           CW,XS    BASE              BRANCH IF ALL LISTS
      1245   02 00261    69200290              BG       DFNE23              HAVE BEEN PROCESSED
      1246   02 00262    B2420035 03           LW,XT    *KLINE,XS         GET ADDRESS OF NEXT LIST CONTROL
      1247   02 00263    30400035 03           AW,XT    KLINE               ITEM IN EVT
      1248   02 00264    35400066 04           STW,XT   ARG
      1249   02 00265    32580001 A            LW,XT1   ELEM,XT           GET NUMBER OF
      1250   02 00266    355000B3 04           STW,XT1  SUB#                ELEMENTS IN THE LIST
      1251   02 00267    20400002 A            AI,XT    2                 SKIP LIST CONTROL ITEM
      1252   02 00268    22800002 A            LI,TR0   2                 INITIALIZE LIST SIZE
      1253   02 00269                 DFNE17   RES      0
      1254   02 00269    4B680000 A            AND,XT2  0,XT              PROPOGATE 'LOWEST' DEF VALUE
      1255   02 0026A    6A70060D              BAL,RL   LENGTH            GET LENGTH OF ITEM
      1256   02 0026B    30400005 A            AW,XT    XT1               ADD LENGTH TO FIND NEXT LIST ITEM
      1257   02 0026C    30800005 A            AW,TR0   XT1               ADD LENGTH TO SIZE
      1258   02 0026D    33F000B3 04           MTW,-1   SUB#              DECREMENT NUMBER OF ELEMENTS
      1259   02 0026E    69200269              BGZ      DFNE17            BRANCH IF MORE
      1260   02 0026F    30800006 A            AW,TR0   XT2
      1261   02 00270    329011F5              LV,TR1   DEFFLD+LENGTHFLD
      1262   02 00271    C7800066 04           STS,TR0  *ARG              STORE DEF VALUE AND LENGTH
      1263   02 00272    6800025F              B        DFNE16
      1264   02 00273                 DFNE18   RES      0
      1265   02 00273    22400001 A            LI,XT    1
      1266   02 00274                 DFNE20   RES      0
      1267   02 00274    354000BD 04           STW,XT   #ELEM             # OF ELEMENTS TO MOVE FROM SYMT
      1268   02 00275                 DFNE27   RES      0
      1269   02 00275    6A700787              BAL,RL   MV:LIST           CREATE AND PUSH A 2 WORD LIST
      1270   02 00276    B2400066 04           LW,XT    *ARG                CONTROL ITEM ONTO ECT AND EVT
      1271   02 00277    4B4011F6              AND,XT   =SETFLD             AND STORE THE SET FIELD OF
      1272   02 00278    32560001 A            LW,XT1   EVT,LVL             ARG INTO THE
      1273   02 00279    205FFFFE A            AI,XT1   -2                  SET FIELD OF
      1274   02 0027A    E64A0035 03           AWM,XT   *KLINE,XT1          THE NEW LIST CONTROL ITEM
      1275   02 0027B    6A701115              BAL,RL   SUBVAL            GET NEXT SUBSCRIPT FROM EVT
      1276   02 0027C    21400001 A            CI,XT    1                 BRANCH IF ELEMENT TO BE REPLACED
      1277   02 0027D    6830024B              BE       DFNE14              IS THE 1ST ONE
      1278   02 0027E                 DFNE21   RES      0
      1279   02 0027E    32560001 A            LW,XT1   EVT,LVL
      1280   02 0027F    30500035 03           AW,XT1   KLINE             STORE NUMBER OF ELEMENTS IN THIS
      1281   02 00280    354BFFFF A            STW,XT   -1,XT1              LIST INTO ELEMENT WORD IN EVT
      1282   02 00281    B2400086 04           LW,XT    *FND              IF ITEM CONTAINS THE INITIALIZATION
      1283   02 00282    494011DE              OR,XT    =SPINTFLD           VALUE, OR IS ONLY REFERENCED,
      1284   02 00283    314011E9              CW,XT    =SPAFLD+SPINTFLD    REPLACE THE ITEM
      1285   02 00284    6830028A              BE       DFNE22              WITH IMPLICIT BLANK(S)
      1286                            *
      1287   02 00285    324000BD 04           LW,XT    #ELEM
      1288   02 00286    6A700796              BAL,RL   MOVESYMITEM       MOVE ITEMS FROM SYMT TO EVT
      1289   02 00287    324000B3 04           LW,XT    SUB#
      1290   02 00288    384000BD 04           SW,XT    #ELEM             COMPUTE NUMBER OF
      1291   02 00289    354000B3 04           STW,XT   SUB#                BLANKS REQUIRED
      1292   02 0028A                 DFNE22   RES      0
      1293   02 0028A    33F000B3 04           MTW,-1   SUB#              DECREMENT NUMBER OF BLANKS
      1294   02 0028B    68200252              BLEZ     DFNE13            BRANCH IF NO MORE BLANKS REQUIRED
      1295   02 0028C    326011EB              LV,XT2   3**(31-DEFLOB)    DEF VALUE FOR GEN PASS
      1296   02 0028D    6A700790              BAL,RL   MOVEBLANK         MOVE A BLANK TO EVT
      1297   02 0028E    33160002 A            MTW,1    ECT,LVL             AND REMOVE IT FROM ECT
      1298   02 0028F    6800028A              B        DFNE22
      1299   02 00290                 DFNE23   RES      0
      1300   02 00290    D24400BA 04           NXTENC   ,NOINC            GET ITEM FOLLOWING ENDSUBSYM
      1301   02 00291    21400002 A            CV,XT    ENDLIST           IF IT IS NOT
      1302   02 00292    68300294              BE       DFNE24              AN END OF LIST,
      1303   02 00293    6AF00000 X            BAL,ER   LERR                THE LABEL FIELD CONSISTS OF
      1304   02 00294                 DFNE24   RES      0                   MORE THAN A SINGLE LABEL
      1305   02 00294    32400056 04           LW,XT    SBLBLSYM
      1306   02 00295    21402000 A            CV,XT    LCLSBSYM-SBSYM    BRANCH IF ENCODED ITEM WAS
      1307   02 00296    68400202              BAZ      DFNE6               SUBSCRIPTED GLOBAL SYMBOL
      1308   02 00297    6800021C              B        DFNE7             HAD TO BE SUBSCRIPTED LOCAL SYMBOL
1
      1310                            *
      1311                            *   D E F H E X L B L
      1312                            *        USED FOR DEFAULT SETTING OF SD TYPE CODE.  SETS 'SD%TYPE'
      1313                            *           TO HEX, AND ENTERS 'DEFLBL'
      1314                            *
      1315                            *        CALL:    BAL,RL  DEFHEXLBL
      1316                            *
      1317                            *        USES REGISTERS
      1318                            *                 XT
      1319                            *                 (RL IS PASSED ON, AS LINK FOR 'DEFLBL')
      1320                            *
      1321   02 00298                 DEFHEXLBL  RES    0
      1322                            *
      1323   02 00298    22400030 A            LV,XT    SDHEXC            DEFAULT CODE IS HEX
      1324   02 00299    354000AF 04           STW,XT   SD%TYPE
      1325                            *
      1326                            *
      1327                            *   D E F L B L
      1328                            *        EQUATES THE LABEL FIELD TO THE CURRENT VALUE OF THE
      1329                            *           EXECUTION LOCATION COUNTER.
      1330                            *
      1331                            *        CALL:    BAL,RL  DEFLBL
      1332                            *
      1333                            *        USES REGISTERS
      1334                            *                 RL
      1335                            *                 XT
      1336                            *
      1337   02 0029A                 DEFLBL   RES      0
      1338   02 0029A    3570004C 04           STW,RL   DEFLBLXIT         SAVE RETURN
      1339   02 0029B    6A70001E              BAL,RL   ASSMBDLR          CREATE A VALUE ITEM
      1340   02 0029C    12400046 04           LD,XT    TEMP
      1341   02 0029D    15400048 04           STD,XT   CMNDCW
      1342   02 0029E    22400048 04           LI,XT    CMNDCW
      1343   02 0029F    35400066 04           STW,XT   ARG               POINTER TO CREATED VALUE
      1344   02 002A0    6A7001DF              BAL,RL   DEFINE            ENTER VALUE IN SYMBOL TABLE
      1345   02 002A1    32700021 03           LW,RL    PROCREF          DON'T EDIT THE LOCATION COUNTER
      1346   02 002A2    E930004C 04           BNEZ     *DEFLBLXIT         IF WITHIN A PROC
      1347   02 002A3    6A700000 X            BAL,RL   EDITDLR           EDIT LOCATION COUNTER FOR LISTING
      1348   02 002A4    E800004C 04           B        *DEFLBLXIT        RETURN
1
      1350                            *
      1351                            *   D E F L O C
      1352                            *        ENTERS A DEFINITION INTO THE APPROPRIATE LOCAL SYMBOL TABLE.
      1353                            *
      1354                            *        INPUT:   PROCREF CONTAINS THE PROCEDURE REFERENCE LEVEL
      1355                            *                 PLVL CONTAINS THE PROCEDURE LEVEL OF THE LOCAL SYMBOL
      1356                            *                    BEING DEFINED.
      1357                            *                 LVL CONTAINS A POINTER TO THE CURRENT PROCEDURE
      1358                            *                    LEVEL TABLE
      1359                            *                 LARG CONTAINS THE LENGTH OF THE LOCAL SYMBOL.
      1360                            *
      1361                            *        OUTPUT:  NXTLOCAL CONTAINS THE ADDRESS OF THE NEXT AVAILABLE
      1362                            *                   ENTRY OF THE LOCAL SYMBOL TABLE AREA.
      1363                            *
      1364                            *        CALL:    BAL,RL  DEFLOC
      1365                            *
      1366                            *        USES REGISTERS
      1367                            *                 CT
      1368                            *                 XT1
      1369                            *                 TMP
      1370                            *                 LVL
      1371                            *                 NXTL
      1372                            *
      1373   02 002A5                 DEFLOC   RES      0
      1374   02 002A5    35700071 04           STW,RL   DEFLOCXIT
      1375   02 002A6    6A7004D3              BAL,RL   FINDLSPC          FIND LOCAL TABLE SPACE
      1376   02 002A7    32E00021 03           LW,CT    PROCREF           PROC. REFERENCE LEVEL -  PROC LEVEL
      1377   02 002A8    38E000A6 04           SW,CT    PLVL                OF LOCAL SYMBOL IS THE NUMBER OF
      1378   02 002A9    693002AC              BNEZ     DEFLOC1             LOCAL SYMBOL TABLES TO BE MOVED
      1379                            *                 SYMBOL IS BEING DEFINED ON THE CURRENT PROC LEVEL
      1380   02 002AA    32E0009F 04           LW,CT    NXTLOCAL          ENTRY ADDRESS IS LARG WORDS BELOW
      1381   02 002AB    680002CF              B        DEFLOC8
      1382   02 002AC                 DEFLOC1  RES      0
      1383   02 002AC    32400003 A            LW,NXTL  LVL               ADDRESS OF CURRENT PROC LEVEL TABLE
      1384   02 002AD                 DEFLOC2  RES      0
      1385   02 002AD    32580009 A            LW,XT1   LOCALORG,NXTL     LOAD LOCALCT AND LOCALORG
      1386   02 002AE    3850008C 04           SW,XT1   LARG              PRECESS LOCAL ORIGIN BY (LARG)
      1387   02 002AF    35580009 A            STW,XT1  LOCALORG,NXTL       WORDS AND STORE BACK
      1388   02 002B0    32480000 A            LW,NXTL  PLOC,NXTL         INDEX TO PREVIOUS PROC LEVEL TABLE
      1389   02 002B1    30400035 03           AW,NXTL  KLINE             BECOMES POINTER TO PROC LEVEL TABLE
      1390   02 002B2    4B4011F7              AND,NXTL =PLOCFLD
      1391   02 002B3    3050008C 04           AW,XT1   LARG
      1392   02 002B4    30500037 03           AW,XT1   SYMT
      1393   02 002B5    35500068 04           STW,XT1  BASE
      1394   02 002B6    4B5011F7              AND,XT1  =LOCALORGFLD      CLEAR LOCALCT FIELD           /10761/B-08773
      1395   02 002B7    3550008D 04           STW,XT1  LAST              POINTER TO LOCAL SYMBOL TABLE ORIGIN
      1396   02 002B8    72500068 04           LB,XT1   BASE              NUMBER OF LOCAL SYMBOLS IN TABLE 761/B-08773
      1397   02 002B9    683002C0              BEZ      DEFLOC5           NO SYMBOLS IN THIS TABLE
      1398   02 002BA                 DEFLOC3  RES      0
      1399   02 002BA    B2600068 04           LW,TMP   *BASE
      1400   02 002BB    691002BE              BFNZ,TMP SPAFLD,DEFLOC4    BRANCH IF ENTRY IS A SPECIAL ADDRESS
      1401   02 002BC    3860008C 04           SW,TMP   LARG              ADJUST LPTR BY AMOUNT TO BE MOVED
      1402   02 002BD    B5600068 04           STW,TMP  *BASE               AND STORE BACK
      1403   02 002BE                 DEFLOC4  RES      0
      1404   02 002BE    33F00068 04           MTW,-1   BASE              ADDRESS OF NEXT ENTRY IN LOCAL TABLE
      1405   02 002BF    645002BA              BDR,XT1  DEFLOC3           CONTINUE THRU THIS TABLE
      1406   02 002C0                 DEFLOC5  RES      0
      1407   02 002C0    64E002AD              BDR,CT   DEFLOC2           DECREMENT NUMBER OF LEVELS TO DO
      1408                            *   NOW AT LEVEL OF THE LOCAL SYMBOL BEING DEFINED
      1409   02 002C1    32E0009F 04           LW,CT    NXTLOCAL          ADDRESS OF NEXT AVAILABLE LOCAL
      1410   02 002C2    20E00001 A            AI,CT    1                   INSERTED IS ADDRESS TO BEGIN
      1411   02 002C3    35E00072 04           STW,CT   DESTIN              MOVING TO
      1412   02 002C4    30E0008C 04           AW,CT    LARG
      1413   02 002C5    35E00086 04           STW,CT   FND               ADDRESS TO BEGIN MOVING FROM
      1414   02 002C6    38E0008D 04           SW,CT    LAST
      1415   02 002C7    20EFFFFF A            AI,CT    -1                NUMBER OF WORDS TO BE MOVED
      1416   02 002C8    22500000 A            LI,XT1   0
      1417   02 002C9                 DEFLOC6  RES      0
      1418   02 002C9    B26A0086 04           LW,TMP   *FND,XT1          PRECESS LOCAL SYMBOL TABLE BY (LARG)
      1419   02 002CA    B56A0072 04           STW,TMP  *DESTIN,XT1         WORDS. THE AREA PRECESSED IS FROM
      1420   02 002CB    20500001 A            AI,XT1   1                   THE END OF THE TABLE(NXTLOC) TO
      1421   02 002CC    65E002C9              BIR,CT   DEFLOC6             THE BEGINNING OF THE TABLE AT THE
      1422                            *                                     LEVEL OF THE SYMBOL BEING DEFINED
      1423   02 002CD    32E0008D 04           LW,CT    LAST
      1424   02 002CE    38E0008C 04           SW,CT    LARG              ADDRESS TO MOVE DEFINITION TO
      1425   02 002CF                 DEFLOC8  RES      0
      1426   02 002CF    20E00001 A            AI,CT    1
      1427   02 002D0    38E00037 03           SW,CT    SYMT              CONVERT ADDRESS TO A SYMT INDEX
      1428   02 002D1    B5E00098 04           STW,CT   *MAIN             INDEX TO DEFINITION TO LPTR FIELD
      1429   02 002D2    30E00037 03           AW,CT    SYMT
      1430   02 002D3    35E00086 04           STW,CT   FND               ADDRESS OF DEFINITION ENTRY
      1431   02 002D4    6A7007C9              BAL,RL   NEWENTRY          MOVE DEFINITION TO LOCAL TABLE
      1432   02 002D5    E8000071 04           B        *DEFLOCXIT
1
      1434                            *
      1435                            *  D E L E T E % D O
      1436                            *        DELETE THE CURRENT DO TABLE RECORD
      1437                            *
      1438   02 002D6                 DELETE%DO  RES    0
      1439   02 002D6    33F60006 A            MTW,-1   DOCT,LVL          DECREASE ACTIVE DO'S ON THIS LEVEL
      1440   02 002D7    32400011 03           LW,XT    DOLOC
      1441   02 002D8    35400086 04           STW,XT   FND               ADDRESS OF THIS DO RECORD
      1442   02 002D9    32680000 A            LW,XT2   DOSWD,XT          PUT SIZE OF THIS DO RECORD
      1443   02 002DA    72500006 A            LB,XT1   XT2                 IN LFND
      1444   02 002DB    3550008F 04           STW,XT1  LFND
      1445   02 002DC    4B6011F7              AND,XT2  =DOPFLD           STORE ADDR. OF PREVIOUS DO RECORD
      1446   02 002DD    35600011 03           STW,XT2  DOLOC
      1447   02 002DE    6800050F              B        FREESPC           GO FREE SPACE FOR THIS RECORD
1
      1449                            *
      1450                            *   D E L E T E X P
      1451                            *        THIS SUBROUTINE 'DELETES' ALL ENTRIES FROM BOTH EXPRESSION
      1452                            *          TABLES. THE DELETE IS PERFORMED BY SETTING THE ECT AND
      1453                            *          EVT POINTERS TO THE START OF THEIR RESPECTIVE TABLES.
      1454                            *
      1455                            *        INPUT:   PROCREF CONTAINS THE PROCEDURE REFERENCE LEVEL.
      1456                            *                 LVL CONTAINS THE ADDRESS OF THE CURRENT PROCEDURE
      1457                            *                   LEVEL TABLE
      1458                            *
      1459                            *        OUTPUT:  ECT ENTRY IN THE CURRENT PROCEDURE LEVEL TABLE
      1460                            *                   CONTAINS AN OFFSET TO THE START OF THE EXPRESSION
      1461                            *                   CONTROL TABLE
      1462                            *                 EVT ENTRY IN THE CURRENT PROCEDURE LEVEL TABLE
      1463                            *                   CONTAINS AN OFFSET TO THE START OF THE EXPRESSION
      1464                            *                   VALUE TABLE.
      1465                            *
      1466                            *        CALL:    BAL,RL  DELETEXP
      1467                            *
      1468                            *        USES REGISTERS
      1469                            *                 XT, XT1, XT2, ER, RL
      1470                            *
      1471   02 002DF                 DELETEXP RES      0
      1472   02 002DF    3246000C A            LW,XT    ECTORG,LVL
      1473   02 002E0    35460002 A            STW,XT   ECT,LVL           STORE OFFSET TO START OF ECT
      1474   02 002E1    32400003 A            LW,XT    LVL               DETERMINE THE END OF THE CURRENT
      1475   02 002E2    38400035 03           SW,XT    KLINE               PROCEDURE LEVEL TABLE
      1476   02 002E3    2040000D A            AI,XT    LVLSIZE
      1477   02 002E4    35460001 A            STW,XT   EVT,LVL           STORE OFFSET TO START OF EVT
      1478   02 002E5    680E0000 A            EXIT     RL
1
      1480                            *
      1481                            *  D I S P
      1482                            *        PROCESS THE DISPLAY DIRECTIVE.
      1483                            *
      1484                            *        AF CONTAINS THE VALUE(S) TO BE PRINTED
      1485                            *
      1486   02 002E6                 DISP     RES      0
      1487   02 002E6    6A700787              BAL,RL   MV:LIST           MOVE DUMMY LIST TO ECT AND EVT
      1488   02 002E7    3310002D 03           MTW,1    TCORFLG           DON'T REPORT 'U' ERRORS
      1489   02 002E8    6A70094A              CALL     EV%CLN%OPRND      EVALUATE THE OPERAND FIELD
      1490   02 002E9    33F0002D 03           MTW,-1   TCORFLG           RESET TCOR FLAG
      1491   02 002EA    33000006 03           MTW,0    PASS
      1492   02 002EB    68300643              BEZ      GENR              RETURN IF IN THE DEF PASS
      1493   02 002EC    32400004 N            LW,XT    LSTBF+4
      1494   02 002ED    31400000 X            CW,XT    BLANC
      1495   02 002EE    683002F0              BE       DISP1             NOTHING GENERATED IN LIST BUFFER
      1496   02 002EF    6A700000 X            BAL,RL   PRINT
      1497   02 002F0                 DISP1    RES      0
      1498   02 002F0    33F00097 04           MTW,-1   LSTCT             BRANCH IF MORE THAN ONE
      1499   02 002F1    692002F6              BGZ      DISP2               ITEM IN OPERAND FIELD
      1500   02 002F2    325011ED              LV,XT1   ETFLD             MASK FOR ET FIELD
      1501   02 002F3    32420000 A            LW,XT    0,XS              GET NEXT ECT ENTRY
      1502   02 002F4    454011EE              CS,XT    =LISTET
      1503   02 002F5    693002F8              BNE      DISP3             BRANCH IF ECT ENTRY IS NOT A LIST
      1504   02 002F6                 DISP2    RES      0
      1505   02 002F6    6A70014A              BAL,RL   CTELEMENTS        COMPLETE THE LIST STRUCTURE
      1506   02 002F7    20100001 A            AI,XS    1                 ADDRESS OF NEXT LIST ENTRY IN ECT
      1507   02 002F8                 DISP3    RES      0
      1508   02 002F8    22400000 A            LI,XT    0
      1509   02 002F9    35400097 04           STW,XT   LSTCT             ZERO LIST COUNT
      1510   02 002FA    32420000 A            LW,XT    0,XS
      1511   02 002FB    30400035 03           AW,XT    KLINE
      1512   02 002FC    35400066 04           STW,XT   ARG               ADDRESS OF FIRST EXPRESSION
      1513   02 002FD                 DISP4    RES      0
      1514   02 002FD    6A700000 X            BAL,RL   EDITV1            EDIT AND PRINT THE VALUE
      1515   02 002FE    6A700000 X            BAL,RL   PRINT
      1516   02 002FF    32400060 04           LW,XT    DD%TYPE
      1517   02 00300    314011EE              CV,XT    LISTET            BRANCH IF CURRENT ECT ITEM
      1518   02 00301    69300312              BNE      DISP6               IS NOT A LIST
      1519   02 00302    22400097 04           LI,XT    LSTCT
      1520   02 00303    22500001 A            LI,XT1   1
      1521   02 00304    6A700EA3              BAL,RL   SCPUSH            SAVE LSTCT IN ECT AND EVT
      1522   02 00305    32400066 04           LW,XT    ARG
      1523   02 00306    32480001 A            LW,XT    1,XT              GET NUMBER OF ELEMENTS
      1524   02 00307    35400097 04           STW,XT   LSTCT               IN THIS LIST
      1525   02 00308    33200066 04           MTW,2    ARG               SKIP THE LIST CONTROL ITEM
      1526   02 00309    680002FD              B        DISP4
      1527   02 0030A                 DISP5    RES      0
      1528   02 0030A    22600012 A            LI,LBX   18                END
      1529   02 0030B    22800004 A            LI,NBYTES 4                    OF
      1530   02 0030C    22500059              LI,XT1   BA(ASTMSG)+1             LIST
      1531   02 0030D    6A700000 X            BAL,RL   AEDIT             EDIT '****' INTO THE LIST BUFFER
      1532   02 0030E    6A700000 X            BAL,RL   PRINT
      1533   02 0030F    6A700EBD              BAL,RL   SCPULL
      1534   02 00310    B2480035 03           LW,XT    *KLINE,XT         RESTORE LIST COUNT SAVED WHEN
      1535   02 00311    35400097 04           STW,XT   LSTCT               LIST ITEM WAS PROCESSED
      1536   02 00312                 DISP6    RES      0
      1537   02 00312    33F00097 04           MTW,-1   LSTCT             DECREMENT LIST COUNT
      1538   02 00313    69100643              BLZ      GENR              NEGATIVE MEANS DONE
      1539   02 00314    6830030A              BEZ      DISP5             ZERO MEANS END OF LIST
      1540   02 00315    32400066 04           LW,XT    ARG               ADDRESS OF CURRENT ITEM
      1541   02 00316    6A70060D              BAL,RL   LENGTH            GET LENGTH OF CURRENT ITEM
      1542   02 00317    66500066 04           AWM,XT1  ARG               SET ARG TO ADDRESS OF NEXT
      1543   02 00318    680002FD              B        DISP4               ITEM IN THE LIST
1
      1545                            *  D O
      1546                            *        PROCESS THE DO DIRECTIVE
      1547                            *        THE LABEL IS RE-DEFINEABLE.  IT IS SET TO 0 IF EXP NG 0, OR 1
      1548                            *
      1549                            *        FORM OF THE DIRECTIVE:
      1550                            *        LBL   DO     EXP
      1551                            *                 IF EXP NG 0, SKIP TO ELSE OR FIN AND ASSEMBLE TO FIN
      1552                            *                 IF EXP GT 0, ASSEMBLE TO ELSE OR FIN EXP TIMES;
      1553                            *                   THEN SKIP TO FIN
      1554                            *
      1555                                     LOCAL    %1,%2,%3,%4,%5
      1556   02 00319                 DO       RES      0
      1557   02 00319    6A7007D1              BAL,RL   NOTDO1
      1558   02 0031A    22400000 A            LI,XT    0
      1559   02 0031B    6A700FFA              BAL,RL   SETLABEL          SET LABEL TO ZERO
      1560   02 0031C    6A70049D              CALL     EV1OPRNDEXP       EVALUATE ONE OPERAND EXPRESSION
      1561   02 0031D    6A700000 X            BAL,RL   EDITV             EDIT THE OPERAND VALUE
      1562   02 0031E    32400046 04           LW,XT    TEMP              SKIP TO 'ELSE' OR 'FIN' IF EXP NG 0
      1563   02 0031F    68200000 F            BLEZ     %5
      1564   02 00320    35400061 04           STW,XT   TEMPO             SAVE IN CASE SCAN IS CALLED
      1565   02 00321    22400001 A            LI,XT    1                 SET VALUE OF LABEL TO ONE
      1566   02 00322    6A700FFA              BAL,RL   SETLABEL
      1567   02 00323    32400061 04           LW,XT    TEMPO             TEST EXPRESSION SIZE
      1568   02 00324    21408000 A            CI,XT    X'8000'
      1569   02 00325    69100000 F            BL       %1
      1570   02 00326    6AF00000 X            BAL,ER   TERR              TRUNCATION
      1571   02 00327    22400001 A            LI,XT    1
      1572                            * GENERATE THE 'DO' TABLE RECORD
      1573   02 00328                 %1       RES      0
      1574   02 00328    22C00001 A            LI,T2    1                 SET DOC FIELD TO 1
      1575   02 00329    5540000C A            STH,XT   T2                DOC AND DOI FIELDS
      1576   02 0032A    32B0002E 03           LW,T1    TEXTCT
      1577   02 0032B    32460004 A            LW,XT    CMND,LVL          COMPUTE SIZE OF
      1578   02 0032C    38460003 A            SW,XT    LBL,LVL             LABEL FIELD (IN HALFWORDS)
      1579   02 0032D                 %2       RES      0
      1580   02 0032D    3540000D A            STW,XT   T3                SAVE COUNT IN REG. T3
      1581   02 0032E    2540007F A            SLS,XT   -1                CONVERT TO WORDS
      1582   02 0032F    20400004 A            AI,XT    4                 ADD NO. WDS. IN FIXED PART
      1583   02 00330    3540008C 04           STW,XT   LARG              STORE LENGTH OF DO RECORD
      1584   02 00331    6A7004D8              BAL,RL   FINDSPC           FIND SPACE
      1585   02 00332    32600086 04           LW,XT2   FND
      1586   02 00333    35CC0001 A            STW,T2   DOCWD,XT2         STORE DOI AND DOC
      1587   02 00334    25B00010 A            SHIFT,T1 31,TXTCTLOB
      1588   02 00335    35BC0003 A            STW,T1   TXTCTWD,XT2       STORE EFLD & TXTCTFLD
      1589   02 00336    32B0008C 04           LW,T1    LARG
      1590   02 00337    25B00278 A            SHIFT,T1 31,DOSLOB
      1591   02 00338    30B00011 03           AW,T1    DOLOC
      1592   02 00339    35BC0000 A            STW,T1   DOPWD,XT2         LABEL SIZE & PREV. DO ADDR.
      1593   02 0033A    352C0002 A            STW,XW   DOOWD,XT2         ORIGIN OF THIS DO LOOP
      1594   02 0033B    35600011 03           STW,XT2  DOLOC             SET ORIGIN OF THIS DO RECORD
      1595   02 0033C    25600001 A            SLS,XT2  1                 COMPUTE HALFWORD OFFSET
      1596   02 0033D    20600007 A            AI,XT2   7                   OF LABEL
      1597   02 0033E    32160003 A            LW,XS    LBL,LVL
      1598   02 0033F    6A700714              BAL,RL   LOADXM            SET TO LABEL FIELD, THIS LINE
      1599   02 00340                 %3       RES      0
      1600   02 00340    D24200BB 04           LH,XT    *XMBASE,XS        MOVE NEXT LABEL
      1601   02 00341    20100001 A            AI,XS    1                   FIELD ITEM
      1602   02 00342    554C0000 A            STH,XT   0,XT2               TO THE SYMBOL TABLE
      1603   02 00343    20600001 A            AI,XT2   1
      1604   02 00344    64D00340              BDR,T3   %3                DECREASE COUNT AND RETURN
      1605   02 00345    33160006 A            MTW,1    DOCT,LVL
      1606   02 00346    68000643              B        GENR
      1607   02 00347                 %5       RES      0
      1608   02 00347    6A70034D              BAL,RL   DOSKIP            SKIP TO 'ELSE' OR 'FIN'
      1609   02 00348    32400010 03           LW,XT    DOCOUNT           WAS 'FIN' SKIPPED
      1610   02 00349    69100643              BLZ      GENR                YES
      1611   02 0034A    22B08000 A            LI,T1    X'8000'           SET EFLD TO 1
      1612   02 0034B    22C10001 A            LI,T2    X'10001'          SET DOI & DOC TO 1
      1613   02 0034C    6800032D              B        %2
1
      1615                            *
      1616                            *  D O S K I P
      1617                            *        SKIP LINES WITHIN A 'DO/ELSE/FIN' RANGE
      1618                            *
      1619                            *        LINES ARE SKIPPED UNTIL THE ELSE OR FIN IS SKIPPED
      1620                            *          WHICH IS ON THE SAME LEVEL AS THE DO
      1621                            *
      1622                                     LOCAL    %1,%2,%3,%4,%5
      1623   02 0034D                 DOSKIP   RES      0
      1624   02 0034D    35700073 04           STW,RL   DOSKIPXIT
      1625   02 0034E    6A701076              BAL,RL   SKIPINIT          INITIALIZE FOR SKIPPING LINES
      1626   02 0034F    22400000 A            LI,XT    0                 CLEAR GOTOARG SO THAT SPECDIR
      1627   02 00350    35400089 04           STW,XT   GOTOARG             WILL NOT FIND ERRONEOUS LABEL
      1628   02 00351                 DOSKP10  RES      0
      1629   02 00351    6A701065              BAL,RL   SKIPGETLF1        SKIP TO LF(1) ENCODED ENTRY
      1630   02 00352    21400006 A            CI,XT    BEGINLIST
      1631   02 00353    69300000 F            BNE      %1
      1632   02 00354    6A70107D              BAL,RL   SKIPLABEL         SKIP THE REST OF THE LABEL
      1633   02 00355                 %1       RES      0
      1634   02 00355    6A7010C7              BAL,RL   SPECDIR           CHECK COMMAND FOR SPECIAL DIRECTIVE
      1635   02 00356    2140400B A            CI,XT    ELSEDIR           CHECK FOR 'ELSE'
      1636   02 00357    68300000 F            BE       %4
      1637   02 00358    32400010 03           LW,XT    DOCOUNT           DONE IF 'FIN' LINE FOR THIS 'DO'
      1638   02 00359    6910035E              BL       DOSKP20
      1639   02 0035A                 %3       RES      0
      1640   02 0035A    6A7006A2              BAL,RL   LINESKIP          SKIP THE REST
      1641   02 0035B    68000351              B        DOSKP10
      1642   02 0035C                 %4       RES      0
      1643   02 0035C    32400010 03           LW,XT    DOCOUNT           DONE IF 'ELSE' IS ON THIS DO LEVEL
      1644   02 0035D    6930035A              BNEZ     %3                NOT ON THIS 'DO' LEVEL
      1645   02 0035E                 DOSKP20  RES      0
      1646   02 0035E    3240001F 03           LW,XT    PROCCOUNT
      1647   02 0035F    68300000 F            BEZ      %5
      1648   02 00360    6AF00000 X            BAL,ER   KERR              EXTRA 'PROC' OR 'PEND' ERROR
      1649   02 00361                 %5       RES      0
      1650   02 00361    22400000 A            LI,XT    0
      1651   02 00362    35400025 03           STW,XT   SKIPTRIG
      1652   02 00363    6A7006A2              BAL,RL   LINESKIP          SKIP THE REST OF THIS LINE
      1653   02 00364    E8000073 04           B        *DOSKIPXIT
1
      1655                            *
      1656                            *  D O 1
      1657                            *        PROCESS THE DO1 DIRECTIVE
      1658                            *        LABEL IS DEFINED DEFINED NORMALLY
      1659                            *
      1660                            *        FORM OF THE DIRECTIVE:
      1661                            *        LBL   DO1    EXP
      1662                            *                 IF EXP NG 1, THE NEXT LINE IS SKIPPED
      1663                            *                 IF EXP EQ 1, THE DO1 LINE IS IGNORED
      1664                            *                 IF EXP GT 1, THE NEXT LINE IS ASSEMBLED EXP TIMES
      1665                            *
      1666                            *        TESTS FOR REPEATING A LINE ILLEGALLY ARE MADE BY THE
      1667                            *          INDIVIDUAL DIRECTIVES (E.G., DO1,PROC,PEND,OPEN,LOCAL,CLOSE)
      1668                            *          VIA A CALL TO NOTDO1
      1669                            *
      1670                                     LOCAL    %1,%2,%3,%4,%5,%6,%7
      1671   02 00365                 DO1      RES      0
      1672                            *
      1673   02 00365    6A700298              CALL     DEFHEXLBL         DEFINE THE LABEL IF THERE IS ONE
      1674   02 00366    6A7007D1              BAL,RL   NOTDO1            ERROR IF PRECEEDED BY A 'DO1'
      1675   02 00367    6A70049D              CALL     EV1OPRNDEXP       EVALUATE ONE OPERAND EXPRESSION
      1676   02 00368    3520004E 04           STW,XW   DO1LBL            SAVE POINTER TO NEXT LINE
      1677   02 00369    204FFFFF A            AI,XT    -1
      1678   02 0036A    69100000 F            BL       %3                SKIP THE NEXT LINE IF EXP LT 1
      1679   02 0036B    35460007 A            STW,XT   DO1CT,LVL         SAVE EXP AS DO1CT IN LEVEL TABLE
      1680   02 0036C    6800061B              B        GENR1
      1681                            * HERE NEXT LINE IS SKIPPED. MAKE SURE IT'S NOT ILLEGAL TO SKIP IT.
      1682   02 0036D                 %3       RES      0
      1683   02 0036D    6A701076              BAL,RL   SKIPINIT          PRESET FOR SKIPPING NEXT LINE
      1684   02 0036E    6A701065              BAL,RL   SKIPGETLF1        GET LF(1) ENTRY AND SET SKIPTRIG
      1685   02 0036F    21400006 A            CI,XT    BEGINLIST
      1686   02 00370    69300000 F            BNE      %4
      1687   02 00371    6A70107D              BAL,RL   SKIPLABEL         SKIP NON-STANDARD LABEL FIELD
      1688   02 00372                 %4       RES      0
      1689   02 00372    D24400BA 04           NXTENC                     GET CF(1) ENTRY
             02 00373    20200001 A
      1690   02 00374    21400006 A            CI,XT    BEGINLIST
      1691   02 00375    69300000 F            BNE      %5                THIS IS THE COMMAND
      1692   02 00376    D24400BA 04           NXTENC                     GET THE COMMAND
             02 00377    20200001 A
      1693   02 00378                 %5       RES      0
      1694   02 00378    21404007 A            CV,XT    ENDDIR            IF LINE FOLLOWING THE DO1 IS A
      1695   02 00379    69200642              BG       LINE5               CLOSE, LOCAL, OPEN, SYSTEM,
      1696   02 0037A    21404001 A            CV,XT    CLOSEDIR            PROC, PEND, OR END DIRECTIVE;
      1697   02 0037B    681010F8              BGE      SPCD20              MARK A 'K' ERROR AND ASSEMBLE
      1698   02 0037C    68000642              B        LINE5               THE LINE. OTHERWISE, OK TO SKIP IT
1
      1700                            *
      1701                            *   D S E C T
      1702                            *   THIS ROUTINE PROCESSES THE DSECT DIRECTIVE.  THE LABEL SYMBOL
      1703                            *     NUMBER IS SAVED IN DSNUM OF THE NEW CONTROL SECTION TABLE
      1704                            *     ENTRY.  THE LABEL (REQUIRED) IS DEFINED AND MADE AN EXTERNAL
      1705                            *     DEFINITION BY OR-ING A ONE INTO THE EXT FIELD OF THE SYMBOL
      1706                            *     TABLE ENTRY.
      1707                            *
      1708                            *        USES REGISTERS
      1709                            *                 RL
      1710                            *                 XT
      1711                            *                 XT2
      1712                            *                 XW
      1713                            *                 ER
      1714                            *                 LVL
      1715                            *                 XT1
      1716                            *
      1717   02 0037D                 DSECT    RES      0
      1718   02 0037D    32260003 A            LW,XW    LBL,LVL           INDEX TO LABEL FIELD ENCODED TEXT
      1719   02 0037E    D24400BA 04           NXTENC                     GET LABEL FIELD ENCODED ITEM
             02 0037F    20200001 A
      1720   02 00380    2250E000 A            LI,XT1   TFLD
      1721   02 00381    454011F8              CS,XT    =ENCSYM
      1722   02 00382    68300385              BE       DSECT1            LABEL FIELD CONTAINS A SYMBOL
      1723   02 00383    6AF00000 X            BAL,ER   LERR              LABEL ERROR
      1724   02 00384    68000144              B        CSECT             PROCESS AS A CSECT
      1725   02 00385                 DSECT1   RES      0
      1726   02 00385    35400061 04           STW,XT   CSNAME            SAVE SYMBOL NUMBER
      1727   02 00386    6A700493              BAL,RL   EVALPT            EVALUATE PROTECTION TYPE
      1728   02 00387    22400009 A            LI,XT    DSTYPE
      1729   02 00388    35400062 04           STW,XT   CS                SET CONTROL SECTION TYPE TO DSECT
      1730   02 00389    6A70079F              BAL,RL   NEWCSECT          ASSIGN A NEW CONTROL SECTION
      1731   02 0038A    32400061 04           LW,XT    CSNAME
      1732   02 0038B    25400273 A            SHIFT,XT 31,DSNUMLOB       SYMBOL NUMBER OF DSECT LABEL
      1733   02 0038C    22580000 A            LV,XT1   DSNUMFLD
      1734   02 0038D    474C0001 A            STS,XT   DSNUM,XT2         SAVE LABEL AS CONTROL SECTION NAME
      1735   02 0038E    6A700298              CALL     DEFHEXLBL         DEFINE LABEL FIELD
      1736   02 0038F    325011EF              LV,XT1   DEFEXT            VALUE FOR AN EXTERNAL DEFINITION
      1737   02 00390    35500046 04           STW,XT1  TEMP              SAVE VALUE FOR EXT FIELD
      1738   02 00391    32400061 04           LW,XT    CSNAME            LABEL FIELD SYMBOL NUMBER
      1739   02 00392    6A7001A2              BAL,RL   DEFSUB            MAKE SYMBOL A DEF
      1740   02 00393    324011EF              LV,XT    DEFEXT            VALUE FOR AN EXTERNAL DEFINITION
      1741   02 00394    325011F1              LV,XT1   EXTFLD            MASK FOR EXT FIELD
      1742   02 00395    C7400086 04           STS,XT   *FND              FORCE ASSIGNMENT TO DEF
      1743   02 00396    68000643              B        GENR              BACK TO MAIN CONTROL
1
      1745                            *
      1746                            *  E L S E   A N D   F I N
      1747                            *        PROCESS THE ELSE AND FIN DIRECTIVES
      1748                            *
      1749                            *        FORM OF BOTH DIRECTIVES:
      1750                            *               ELSE/FIN
      1751                            *
      1752                            *        THE LABEL AND OPERAND FIELDS ARE IGNORED
      1753                            *
      1754                                     LOCAL    %1,%2,%3,%4,%5,%6,%7
      1755   02 00397                 ELSE     RES      0
      1756   02 00397    22400001 A            LI,XT    1
      1757   02 00398    68000000 F            B        %1
      1758   02 00399                 FIN      RES      0
      1759   02 00399    22400000 A            LI,XT    0
      1760   02 0039A                 %1       RES      0
      1761   02 0039A    35400010 03           STW,XT   ELSEFLG           SAVE ELSE/FIN FLAG
      1762   02 0039B    6A7007D1              BAL,RL   NOTDO1            ERROR IF PRECEEDED BY A 'DO1'
      1763   02 0039C    6A7006A2              BAL,RL   LINESKIP          SKIP THE REST OF ELSE/FIN LINE
      1764   02 0039D    32460006 A            LW,XT    DOCT,LVL          IS THERE AN ACTIVE 'DO', THIS LEVEL
      1765   02 0039E    682003A4              BLEZ     FIN1                NO
      1766   02 0039F    32400011 03           LW,XT    DOLOC             ADDRESS OF CURRENT DO-TABLE RECORD
      1767   02 003A0    32500010 03           LW,XT1   ELSEFLG           IF THIS IS 'ELSE', IT MAY BE
      1768   02 003A1    68300000 F            BEZ      %3                  ILLEGAL
      1769   02 003A2    32580003 A            LW,XT1   EWD,XT            ELSE-FOUND FLAG
      1770   02 003A3    68100000 F            BFZ,XT1  EFLD,%3           OKAY IF ELSE WAS NOT YET SEEN
      1771   02 003A4                 FIN1     RES      0
      1772   02 003A4    6AF00000 X            BAL,ER   KERR              ILLEGAL INSTRUCTION
      1773   02 003A5    68000643              B        GENR
      1774   02 003A6                 %3       RES      0
      1775   02 003A6    32580001 A            LW,XT1   DOCWD,XT
      1776   02 003A7    58500005 A            SH,XT1   XT1               SUBT DOI FIELD FROM DOC
      1777   02 003A8    4B5011E3              AND,XT1  =DOCFLD           CLEAN DOC FIELD
      1778   02 003A9    68300000 F            BEZ      %5                DOI = DOC
      1779                            * HERE NOT END OF ALL ITERATIONS. BUMP LABEL AND RE-EXECUTE ENTIRE LOOP
      1780   02 003AA    6A700000 X            BAL,RL   PRINTC1           PRINT IF THERE IS A SOURCE LINE AND
      1781   02 003AB    32500011 03           LW,XT1   DOLOC               IT'S NOT IN A PROC
      1782   02 003AC    331A0001 A            MTW,+1   DOCWD,XT1         BUMP ITERATION COUNT
      1783   02 003AD    324A0001 A            LW,XT    DOCWD,XT1
      1784   02 003AE    4B4011E3              AND,XT   =DOCFLD           CLEAN COUNT FOR CALL TO SETLABEL
      1785   02 003AF    38500037 03           SW,XT1   SYMT              CONVERT ADDRESS TO THE
      1786   02 003B0    25500001 A            SLS,XT1  1                   HALFWORD OFFSET
      1787   02 003B1    305011F9              AV,XT1   SYMTBASE+7          OF THE SAVED LABEL
      1788   02 003B2    35560003 A            STW,XT1  LBL,LVL           ORIGIN OF DO LABEL IN SYMT
      1789   02 003B3    6A700FFA              BAL,RL   SETLABEL          REDEFINE LABEL (IF PRESENT)
      1790   02 003B4    32400011 03           LW,XT    DOLOC             RESET ORIGIN OF THIS DO RECORD
      1791   02 003B5    32500021 03           LW,XT1   PROCREF           IS DO ON THE SOURCE LEVEL
      1792   02 003B6    693003CE              BNEZ     ELSE2               NO
      1793   02 003B7    46500024 03           XW,XT1   SF                CLEAR SF. TEST OLD SF
      1794   02 003B8    683003C1              BEZ      ELSE1             IT WAS OFF. SMPRCD AND SMPWD ARE OK
      1795                            * DETERMINE WHETHER SMPRCD AND SMPWD HAVE TO BE UPDATED
      1796   02 003B9    3250002E 03           LW,XT1   TEXTCT
      1797   02 003BA    31500026 03           CW,XT1   SMPRCD
      1798   02 003BB    691003C1              BL       ELSE1             NO UPDATE REQUIRED
      1799   02 003BC    69200000 F            BG       %4                YES, UPDATE THEM.
      1800   02 003BD    31200027 03           CW,XW    SMPWD
      1801   02 003BE    682003C1              BLE      ELSE1
      1802   02 003BF                 %4       RES      0
      1803   02 003BF    35500026 03           STW,XT1  SMPRCD
      1804   02 003C0    35200027 03           STW,XW   SMPWD             UPDATE SMPWD
      1805                            * DETERMINE WHETHER THE ENCODED TEXT FILE HAS TO BACKSPACED TO RESTART
      1806   02 003C1                 ELSE1    RES      0
      1807   02 003C1    32980003 A            LW,IOSIZE  TXTCTWD,XT
      1808   02 003C2    4B9011E2              AND,IOSIZE =TXTCTFLD
      1809   02 003C3    25900070 A            SHIFT,IOSIZE  TXTCTLOB,31  RIGHT JUSTIFY TEXT RECORD NUMBER
      1810   02 003C4    3890002E 03           SW,IOSIZE  TEXTCT          CURRENT RECORD NUMBER
      1811   02 003C5    683003CE              BEZ      ELSE2             NO BACKSPACING REQUIRED
      1812   02 003C6    209FFFFF A            AI,IOSIZE  -1
      1813   02 003C7    6690002E 03           AWM,IOSIZE TEXTCT
      1814   02 003C8    52A00000 X            LH,IORL  RD%STD
      1815   02 003C9    68300000 F            BEZ      %2                PROCESSING X1 FILE
      1816   02 003CA    6AA00000 X            BAL,IORL POSITIONSTD       BACKSPACE THE STD FILE
      1817   02 003CB    68000000 F            B        %7
      1818   02 003CC                 %2       RES      0
      1819   02 003CC    6AA00000 X            BAL,IORL   POSITIONX1      POSITION THE X1 FILE. BACKSPACE IT
      1820   02 003CD                 %7       RES      0
      1821   02 003CD    6A7007D7              BAL,RL   NXTRECRD          READ THE REQUIRED X1 RECORD
      1822   02 003CE                 ELSE2    RES      0
      1823   02 003CE    32280002 A            LW,XW    DOOWD,XT          RESET THE ORIGIN TO START OF DO
      1824   02 003CF    6A700717              BAL,RL   LOADXW
      1825   02 003D0    68000643              B        GENR
      1826                            * HERE DO COUNT IS EXHAUSTED.  TERMINATE THE DO
      1827   02 003D1                 %5       RES      0
      1828   02 003D1    6A7002D6              BAL,RL   DELETE%DO         DELETE THE DO RECORD
      1829   02 003D2    6A700FE8              BAL,RL   SET%SF
      1830   02 003D3    32400010 03           LW,XT    ELSEFLG
      1831   02 003D4    68300643              BEZ      GENR              THIS IF 'FIN'.  DON'T SKIP
      1832   02 003D5                 %6       RES      0
      1833   02 003D5    6A70034D              BAL,RL   DOSKIP            SKIP TO A DO/FIN
      1834   02 003D6    6A700FE8              BAL,RL   SET%SF
      1835   02 003D7    32400010 03           LW,XT    DOCOUNT           WHAT TERMINATED THE SKIPPING
      1836   02 003D8    69100643              BLZ      GENR              FIN. THAT'S WHAT WE WERE LOOKING FOR
      1837   02 003D9    33100025 03           MTW,1    SKIPTRIG          ELSE FOUND, SET SKIP FLAG ON
      1838   02 003DA    680003D5              B        %6
1
      1840                            *
      1841                            *   E N D
      1842                            *        THIS ROUTINE PROCESSES THE END DIRECTIVE.
      1843                            *
      1844                            *        AT THE END OF THE DEFINITION PASS, THE EBCDIC SYMBOL NAMES ARE
      1845                            *          READ AND EACH ENTRY IN THE SYMBOL TABLE IS INSPECTED FOR
      1846                            *          BEING A DEF, REF, OR SREF. WHEN FOUND, THE APPROPIATE
      1847                            *          DECLARATION IS OUTPUT TO THE OBJECT MODULE, AND A NEW
      1848                            *          DECLARATION NUMBER IS ASSIGNED. THIS NEW NUMBER IS ALSO
      1849                            *          USED TO REPLACE ANY EXTERNAL SYMBOL ENTRIES FOUND IN THE
      1850                            *          LITERAL TABLE. ANY UNDEFINED VALUES FOUND IN THE LITERAL
      1851                            *          TABLE ARE DELETED. THE CONTROL SECTION TABLE IS ACCESSED
      1852                            *          TO OUTPUT NON-STANDARD CONTROL SECTION DECLARATIONS TO THE
      1853                            *          OBJECT MODULE. FINALLY, INITIALIZATION FOR THE GENERATION
      1854                            *          PASS IS PERFORMED, AND THE GENERATION PASS IS BEGUN.
      1855                            *
      1856   02 003DB                 END%ERR  RES      0
      1857   02 003DB    33100000 X            MTW,+1   SYSLEVEL          BUMP SYSTEM LEVEL
      1858   02 003DC                 END%ERR1 RES      0
      1859   02 003DC    6AF00000 X            BAL,ER   KERR              PROGRAM STRUCTURE ERROR
      1860   02 003DD    22500000 A            LI,XT1   0
      1861   02 003DE    35500025 03           STW,XT1  SKIPTRIG          RESET SKIP INDICATOR
      1862   02 003DF    225FFFFE A            LI,XT1   -2
      1863   02 003E0    30500002 A            AW,XT1   XW                BACKUP 2 ENCODED TEXT ENTRIES
      1864   02 003E1    D24A00BA 04           NXTENC   XT1,NOINC         ITEM PRECEEDING END
      1865   02 003E2    21400006 A            CI,XT    BEGINLIST
      1866   02 003E3    693003E5              BNE      %+2               NO LIST IN COMMAND FIELD
      1867   02 003E4    6A70107D              BAL,RL   SKIPCMND          SKIP COMMAND FIELD
      1868   02 003E5    35260005 A            STW,XW   OPRND,LVL
      1869   02 003E6                 END      RES      0
      1870   02 003E6    6A7007D1              BAL,RL   NOTDO1            ERROR IF PRECEEDED BY A DO1
      1871   02 003E7    6A701125              BAL,RL   SYSEND            DECREMENT SYSTEM LEVEL
      1872   02 003E8    68100642              BGE      LINE5             STILL WITHIN A SYSTEM
      1873                            *   HERE FOR END OF SOURCE PROGRAM
      1874   02 003E9    33100000 X            MTW,+1   SYSLEVEL          SET SYSTEM LEVEL BACK TO SOURCE
      1875   02 003EA    53000000 X            MTH,0    RD%STD            BRANCH IF NOT PROCESSING A
      1876   02 003EB    683003F7              BEZ      END0                PRE-ENCODED SYSTEM FILE
      1877   02 003EC    53F00000 X            MTH,-1   RD%STD            SET INPUT FLAG FOR X1 FILE
      1878   02 003ED    33C0001D 03           MTW,-4   NOLIST            CLEAR PRE-ENCODED LIST FLAG
      1879   02 003EE    22400000 A            LI,XT    0
      1880   02 003EF    35400025 03           STW,XT   SKIPTRIG
      1881   02 003F0    35400000 X            STW,XT   MAJLINE
      1882   02 003F1    35400000 X            STW,XT   SUBLINE
      1883   02 003F2    4640002E 03           XW,XT    TEXTCT            CLEAR RECORD COUNT
      1884   02 003F3    3A900004 A            LCW,IOSIZE  XT             BACKSPACE THE STD FILE BY THE
      1885   02 003F4    6AA00000 X            BAL,IORL POSITIONSTD         NUMBER OF RECORDS READ
      1886   02 003F5    33100024 03           MTW,1    SF                SET SOURCE FLAG
      1887   02 003F6    680001DD              B        DEFGEN2
      1888   02 003F7                 END0     RES      0
      1889   02 003F7    32400006 03           LW,XT    PASS
      1890         001F0000                    IF,NZ
             02 003F8    6830040C
      1891                            *   HERE FOR GENERATION PASS
      1892                            *
      1893   02 003F9    32460006 A            LW,XT    DOCT,LVL          NO DO'S SHOULD BE ACTIVE
      1894   02 003FA    683003FC              BEZ      %+2
      1895   02 003FB    6AF00000 X            BAL,ER   KERR              REPORT A STRUCTURE ERROR
      1896   02 003FC    22400000 A            LI,XT    0
      1897   02 003FD    35400025 03           STW,XT   SKIPTRIG
      1898   02 003FE    35400028 03           STW,XT   SOURCEONLY        SET TO NORMAL FOR PRINTING LITERALS
      1899   02 003FF    22400008 A            LI,XT    8                 RESET ALL LISTING CONTROL BITS
      1900   02 00400    4B40001D 03           AND,XT   NOLIST              (EXCEPT 'NO LO' REQUEST BIT) TO
      1901   02 00401    3540001D 03           STW,XT   NOLIST              TURN LISTING ON FOR END LINE
      1902   02 00402    331000B1 04           MTW,1    SOURCE
      1903   02 00403    3240007D 04           LW,XT    ENDADDR           SET % TO ADDRESS ASSIGNED TO THE
      1904   02 00404    4640000E 03           XW,XT    DLRVAL              END LABEL
      1905   02 00405    35400061 04           STW,XT   TEMPO               AND SAVE %
      1906   02 00406    6A700298              CALL     DEFHEXLBL         DEFINE END LABEL FOR GEN PASS
      1907   02 00407    12400000 X            LD,XT    BLANC
      1908   02 00408    35400003 N            STW,XT   LSTBF+3           BLANK OUT LOCATION FIELD
      1909   02 00409    15400004 N            STD,XT   LSTBF+4             LISTING POSITIONS
      1910   02 0040A    32400061 04           LW,XT    TEMPO
      1911   02 0040B    3540000E 03           STW,XT   DLRVAL            RESTORE %
      1912         00F10000                    FI
      1913   02 0040C    6A70094A              CALL     EV%CLN%OPRND      EVALUATE THE OPERAND FIELD
      1914   02 0040D    E8000000 X            B        *ROOTRTN          RETURN TO ROOT FOR END%GEN OVERLAY
1
      1916                            *
      1917                            *   E N T E R 1
      1918                            *        STORES A VALUE IN THE SYMBOL TABLE IF THE VALUE FITS IN THE
      1919                            *           CURRENT SPACE OCCUPIED BY THE SYMBOL.
      1920                            *        INPUT:   FND CONTAINS A POINTER TO THE FIXED ENTRY IN THE
      1921                            *                    SYMBOL TABLE (LOCAL OR NON-LOCAL)
      1922                            *                 ARG CONTAINS A POINTER TO THE DEFINITION VALUE.
      1923                            *
      1924                            *        OUTPUT:  ENTERED CONTAINS A ONE IF THE VALUE WAS ENTERED INTO
      1925                            *                    THE SYMBOL TABLE, A ZERO IF NO ENTRY WAS MADE.
      1926                            *
      1927                            *        USES REGISTERS
      1928                            *                 RL, XT, XT1, ER
      1929                            *
      1930   02 0040E                 ENTER1   RES      0
      1931   02 0040E    3570007E 04           STW,RL   ENTEXIT           SAVE RETURN
      1932   02 0040F    22500001 A            LI,XT1   1
      1933   02 00410    B2400066 04           LW,XT    *ARG
      1934   02 00411    69100414              BFNZ,XT  SPAFLD,ENT1       BRANCH IF VALUE IS A 1 WORD ITEM
      1935   02 00412    32400066 04           LW,XT    ARG
      1936   02 00413    6A70060D              BAL,RL   LENGTH            GET LENGTH OF VALUE
      1937   02 00414                 ENT1     RES      0
      1938   02 00414    3550008C 04           STW,XT1  LARG              STORE LENGTH OF VALUE
      1939   02 00415    22500001 A            LI,XT1   1                 PRE-SET ITEM LENGTH TO ONE
      1940   02 00416    B2400086 04           LW,XT    *FND
      1941   02 00417    6910041A              BFNZ,XT  SPAFLD,ENT2       FND IS A SPECIAL ADDRESS ITEM
      1942   02 00418    32400086 04           LW,XT    FND
      1943   02 00419    6A70060D              BAL,RL   LENGTH            GET LENGTH OF SYMBOL ENTRY
      1944   02 0041A                 ENT2     RES      0
      1945   02 0041A    3550008F 04           STW,XT1  LFND              STORE LENGTH OF ENTRY
      1946   02 0041B    B2400086 04           LW,XT    *FND              LOAD DEFINE FIELD OF FND
      1947   02 0041C    6810041F              BFZ,XT   SPAFLD,ENT4       BRANCH IF NOT A 1 WORD ITEM
      1948   02 0041D    314011EB              BFZ,XT   DEFFLD,ENT5       SYMBOL NOT DEFINED
             02 0041E    68400430
      1949   02 0041F                 ENT4     RES      0
      1950   02 0041F    314011F6              BFZ,XT   SETFLD,ENT7       SYMBOL NOT REDEFINEABLE
             02 00420    68400426
      1951   02 00421    B2500066 04           LW,XT1   *ARG              LOAD SET FIELD OF VALUE
      1952   02 00422    315011F6              BFZ,XT1  SETFLD,ENT7       VALUE NOT REDEFINABLE
             02 00423    68400426
      1953   02 00424    314011E5              BFZ,XT,1 DUPFLD,ENT5       REDEFINE SYMBOL UNLESS DUPLICATE
             02 00425    68400430
      1954   02 00426                 ENT7     RES      0
      1955   02 00426    325011EB              LV,XT1   DEFFLD            MASK FOR DEF FIELD
      1956   02 00427    454000A5 04           CS,XT    PASSDEF
      1957   02 00428    6930042D              BNE      ENT8              NOT YET DEFINED FOR CURRENT PASS
      1958   02 00429    494011E5              OR,XT    =DUPFLD           SET DUPLICATE DEFINITION BIT
      1959   02 0042A    B5400086 04           STW,XT   *FND                AND STORE IT BACK INTO SYMBOL
      1960   02 0042B    6AF00000 X            BAL,ER   DERR              REPORT DUPLICALE DEFINITION ERROR
      1961   02 0042C    680001F2              B        DFNE1
      1962   02 0042D                 ENT8     RES      0
      1963   02 0042D    314011E5              BFZ,XT,1 DUPFLD,ENT5       REDEFINE SYMBOL FOR CURRENT PASS
             02 0042E    68400430
      1964   02 0042F    6AF00000 X            BAL,ER   DERR              REPORT DUPLICATE DEFINITION ERROR
      1965   02 00430                 ENT5     RES      0
      1966   02 00430    325011FA              LV,XT1   DUPFLD+EXTFLD     MOVE DUP AND EXT FIELDS OF SYMBOL
      1967   02 00431    C7400066 04           STS,XT   *ARG                TO DUP AND EXT FIELDS OF VALUE
      1968   02 00432    3240008C 04           LW,XT    LARG
      1969   02 00433    3140008F 04           CW,XT    LFND
      1970   02 00434    E930007E 04           BNE      *ENTEXIT          EXIT IF ITEMS NOT SAME LENGTH
      1971   02 00435    B2400066 04           LW,XT    *ARG              BRANCH IF ARG IS
      1972   02 00436    6910043A              BFNZ,XT  SPAFLD,ENT3         A ONE WORD ITEM
      1973   02 00437    32400086 04           LW,XT    FND               PREVENT STORING A ONE WORD
      1974   02 00438    31400098 04           CW,XT    MAIN                'NON-SPECIAL' ITEM INTO THE
      1975   02 00439    E830007E 04           BE       *ENTEXIT            FIXED WORD SYMBOL TABLE
      1976   02 0043A                 ENT3     RES      0
      1977   02 0043A    6A7007C9              BAL,RL   NEWENTRY          MOVE VALUE TO SYMBOL TABLE
      1978   02 0043B    680001F2              B        DFNE1
1
      1980                            *
      1981                            *   E Q U
      1982                            *        THIS ROUTINE PROCESSES THE EQU DIRECTIVE. SETVALUE IS SET TO
      1983                            *          NOT RE-DEFINABLE(0) AND THIS ROUTINE BRANCHES TO SET1.
      1984                            *
      1985                            *        USES REGISTERS
      1986                            *                 XT
      1987                            *
      1988   02 0043C                 EQU      RES      0
      1989   02 0043C    22400000 A            LI,XT    0                 SET TO NOT RE-DEFINABLE
      1990   02 0043D    68000FCA              B        SET1
1
      1992                            *
      1993                            *  E R R O R
      1994                            *        PROCESS THE ERROR DIRECTIVE.
      1995                            *        CF(2) CONTAINS THE SEVERITY. IF '*', SEVERITY IS ZERO, AND
      1996                            *          THE MESSAGE IS COMMENTARY (NO '****' IS PUT IN THE LISTING)
      1997                            *        CF(3) CONTAINS THE CONDITION. IF NOT GREATER THAN ZERO, THE
      1998                            *          ERROR IS NOT PRODUCED
      1999                            *        AF CONTAINS THE MESSAGE TO BE PRINTED
      2000                            *
      2001                                     LOCAL    %1,%2,%3,%4,%5,%6,%7
      2002   02 0043E                 ERROR    RES      0
      2003   02 0043E    22400000 A            LI,XT    0
      2004   02 0043F    3540004A 04           STW,XT   ERRSEV
      2005   02 00440    35400061 04           STW,XT   ASTRIG
      2006   02 00441    3140004B 04           CW,XT    CMNDLIST          ARE THERE COMMAND FIELD EXPRESSIONS
      2007   02 00442    68300455              BEZ      ERRD30              NO
      2008   02 00443    6A70094B              BAL,RL   EVALUATE%AND%CLEAN  EVALUATE COMMAND FIELD EXP'S
      2009   02 00444    32400097 04           LW,XT    LISTCT            TEST NUMBER OF COMMAND EXPRESSIONS
      2010   02 00445    21400002 A            CI,XT    2
      2011   02 00446    68300000 F            BE       %1                TWO
      2012   02 00447    6910044E              BL       ERRD20            ZERO OR ONE
      2013   02 00448    6AF00000 X            BAL,ER   EERR              TOO MANY EXPRESSIONS
      2014   02 00449                 %1       RES      0
      2015   02 00449    3243FFFF A            LW,XT    ECTEXPR2,XS
      2016   02 0044A    30400035 03           AW,XT    KLINE             CONTROL WORD FOR CF(3) EXPRESSION
      2017   02 0044B    6A7004C3              BAL,RL   EXTRACTCON
      2018   02 0044C    20500000 A            AI,XT1   0
      2019   02 0044D    68200642              BLEZ     LINE5             CONDITION EXPRESSION NEGATIVE OR 0
      2020   02 0044E                 ERRD20   RES      0
      2021   02 0044E    32420000 A            LW,XT    ECTEXPR1,XS
      2022   02 0044F    30400035 03           AW,XT    KLINE
      2023   02 00450    314011FB              BFZ,XT,1 ASTFLD,%2         CF(2) WAS NOT PRECEEDED BY '*'
             02 00451    68400000 F
      2024   02 00452    33100061 04           MTW,1    ASTRIG            SET COMMENT FLAG TO ONE
      2025   02 00453                 %2       RES      0
      2026   02 00453    6A7004C3              BAL,RL   EXTRACTCON        STORE VALUE OF CF(2) AS
      2027   02 00454    3550004A 04           STW,XT1  ERRSEV              ERROR SEVERITY
      2028   02 00455                 ERRD30   RES      0
      2029   02 00455    6A70094B              BAL,RL   EVALUATE%AND%CLEAN  EVALUATE AF AND RESET STACK PTRS
      2030   02 00456    33000006 03           MTW,0    PASS
      2031   02 00457    68300643              BEZ      GENR              DON'T PRINT IN THE DEFINITION PASS
      2032   02 00458    6A701170              BAL,RL   TEXTMRGE          PROCESS THE TEXT STRING
      2033   02 00459    2240006C A            LI,XT    108
      2034   02 0045A    314000B7 04           CW,XT    TOTALCT
      2035   02 0045B    68100000 F            BGE      %3
      2036   02 0045C    354000B7 04           STW,XT   TOTALCT
      2037   02 0045D    6AF00000 X            BAL,ER   TERR
      2038                            * SET  A TRUNCATION ERROR IF SEVERITY IS NOT IN RANGE  0-15
      2039   02 0045E                 %3       RES      0
      2040   02 0045E    3240004A 04           LW,XT    ERRSEV
      2041         001F0000                    IF,ANZ   -16,XT            MUST BE 0 - 15             /25342/*D-DG
             02 0045F    214FFFF0 A
             02 00460    68400463
      2042   02 00461    6AF00000 X            BAL,ER   TERR
      2043         000E0000                    ELS                                                   /25342/*D-DG
             02 00462    68000466
      2044   02 00463    7140001A 03           CB,XT    MAXSEV            UPDATE SEVERITY IF NEW HIGH/25342/*D-DG
      2045         001F0100                    IF,G                                                  /25342/*D-DG
             02 00464    68200466
      2046   02 00465    7540001A 03           STB,XT   MAXSEV                                       /25342/*D-DG
      2047         00F10100                    FI                                                    /25342/*D-DG
      2048         00F10000                    FI                                                    /25342/*D-DG
      2049                            *                                                              /25342/*D-DG
      2050                            *   SET FOR ERROR OR COMMENT PRINTING                          /25342/*D-DG
      2051                            *                                                              /25342/*D-DG
      2052   02 00466    3300004A 04           MTW,0    ERRSEV                                       /25342/*D-DG
      2053         001F0000                    IF,NZ    OR                                           /25342/*D-DG
             02 00467    6930046A
      2054   02 00468    33000061 04           MTW,0    ASTRIG                                       /25342/*D-DG
      2055   02 00469    6930046D              IF,EZ                      ONLY *0 IS COMMENT         /25342/*D-DG
      2056   02 0046A    33100012 03           MTW,+1   ERRTRIG           HAVE ERROR                 /25342/*D-DG
      2057   02 0046B    22400001 A            LI,XT    1                                            /25342/*D-DG
      2058         000E0000                    ELS                                                   /25342/*D-DG
             02 0046C    6800046E
      2059   02 0046D    224FFFFF A            LI,XT    -1                                           /25342/*D-DG
      2060         00F10000                    FI                                                    /25342/*D-DG
      2061   02 0046E    3540004A 04           STW,XT   ERRSEV            (ERRTRIG FOR MESSAGE)      /25342/*D-DG
      2062                            *                                                              /25342/*D-DG
      2063                            * PRINT IF EITHER THERE IS A SOURCE LINE OR IF ANY ERRORS ARE SET
      2064   02 0046F                 %7       RES      0
      2065   02 0046F    6A700000 X            BAL,RL   PRINTC2
      2066                            * IF NOT A COMMENT, SET TO INCLUDE IN ERROR COUNT, AND MARK LINE
      2067                            *                                                              /25342/*D-DG
      2068   02 00470    32600061 04           LW,LBX   ASTRIG
      2069         001F0000                    IF,EZ                                                 /25342/*D-DG
             02 00471    69300475
      2070   02 00472    22800006 A            LI,NBYTES  6
      2071   02 00473    22500058              LI,XT1   BA(ASTMSG)
      2072   02 00474    6A700000 X            BAL,RL   AEDIT
      2073         00F10000                    FI                                                    /25342/*D-DG
      2074   02 00475    3240004A 04           LW,XT    ERRSEV            SET FOR ERROR/COMMENT      /25342/*D-DG
      2075   02 00476    55400012 03           STH,XT   ERRTRIG                                      /25342/*D-DG
      2076   02 00477    32400072 04           LW,XT    DESTIN            WORD ADDRESS OF THE TEXT MESSAGE
      2077   02 00478    25400002 A            SLS,XT   2                 CONVERT TO A BYTE ADDRESS
      2078   02 00479    328000B7 04           LW,NBYTES  TOTALCT         NO. OF BYTES IN ERROR MESSAGE
      2079   02 0047A    68300480              BEZ      ERRD50
      2080                            * MOVE THE TEXT ERROR MESSAGE FROM THE EVT TO THE LISTING IMAGE
      2081   02 0047B                 ERRD40   RES      0
      2082   02 0047B    72580000 A            LB,XT1   0,XT
      2083   02 0047C    755C0000 X            STB,XT1  LSTBF,LBX
      2084   02 0047D    20400001 A            AI,XT    1
      2085   02 0047E    20600001 A            AI,LBX   1
      2086   02 0047F    6480047B              BDR,NBYTES ERRD40
      2087                            * PRINT THE TEXT ERROR MESSAGE AND RETURN
      2088   02 00480                 ERRD50   RES      0
      2089   02 00480    6A700000 X            BAL,RL   PRINT
      2090   02 00481    68000643              B        GENR
1
      2092                            *
      2093                            *   E V A L A R
      2094                            *        THIS SUBROUTINE EVALUATES THE RESOLUTION (CF2) FIELD OF THE
      2095                            *          LOC, ORG, REF, AND SREF DIRECTIVES.  THE CF(2) FIELD IS
      2096                            *          EVALUATED AND THE VALUE (1,2,4,OR8) IS MAPPED INTO A
      2097                            *          RESOLUTION VALUE (0,1,2,OR3).  IF CF(2) IS BLANK OR INVALID,
      2098                            *          A RESOLUTION VALUE OF 2 IS RETURNED.
      2099                            *
      2100                            *        INPUT:   CMNDLIST INDICATES WHETHER A CF(2) FIELD EXISTS OR NOT
      2101                            *                 XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM TO BE
      2102                            *                   EVALUATED
      2103                            *
      2104                            *        OUTPUT:  XT CONTAINS THE RESOLUTION (0,1,2,OR3)
      2105                            *
      2106                            *        CALL:    BAL,RL  EVALAR
      2107                            *
      2108                            *        USES REGISTERS
      2109                            *                 RL
      2110                            *                 XT
      2111                            *                 ER
      2112                            *
      2113   02 00482                 EVALAR   RES      0
      2114   02 00482    35700050 04           STW,RL   EVALARXIT         SAVE RETURN
      2115   02 00483    3300004B 04           MTW,0    CMNDLIST
      2116   02 00484    68300490              BEZ      EVALAR2           NO CF(2) FIELD, USE A VALUE OF 4
      2117   02 00485    6A70049E              BAL,RL   EVAL1EXP          EVALUATE THE CF(2) FIELD
      2118   02 00486    32400046 04           LW,XT    TEMP
      2119   02 00487    6820048F              BLEZ     EVALAR1           NEGATIVE VALUE OR ZERO IS ERROR
      2120   02 00488    21400003 A            CI,XT    3
      2121   02 00489    69100491              BL       EVALAR3           VALUE IS 1 OR 2
      2122   02 0048A    21400004 A            CI,XT    4
      2123   02 0048B    68300491              BE       EVALAR3           VALUE IS 4
      2124   02 0048C    204FFFFF A            AI,XT    -1
      2125   02 0048D    21400007 A            CI,XT    7
      2126   02 0048E    68300491              BE       EVALAR3           VALUE WAS 8
      2127   02 0048F                 EVALAR1  RES      0
      2128   02 0048F    6AF00000 X            BAL,ER   EERR              INVALID CF(2) ENTRY
      2129   02 00490                 EVALAR2  RES      0
      2130   02 00490    22400004 A            LI,XT    4                 USE A VALUE OF 4
      2131   02 00491                 EVALAR3  RES      0
      2132   02 00491    2540007F A            SLS,XT   -1                MAPS 1,2,4,OR 8 INTO 0,1,2, OR 3
      2133   02 00492    E8000050 04           B        *EVALARXIT        RETURN
1
      2135                            *
      2136                            *   E V A L P T
      2137                            *        EVALUATES THE PROTECTION TYPE FIELD OF A CSECT, DSECT, OR PSECT
      2138                            *          DIRECTIVE.
      2139                            *
      2140                            *        INPUT:   OPRND ENTRY IN THE PROCEDURE LEVEL TABLE CONTAINS AN
      2141                            *                   INDEX TO THE OPERAND FIELD ENCODED TEXT
      2142                            *
      2143                            *        OUTPUT:  PROTYPE CONTAINS THE PROTECTION TYPE
      2144                            *
      2145                            *        CALL:    BAL,RL  EVALPT
      2146                            *
      2147                            *        USES REGISTERS
      2148                            *                 ER
      2149                            *                 XT
      2150                            *                 LVL
      2151                            *                 XW
      2152                            *                 RL
      2153                            *
      2154   02 00493                 EVALPT   RES      0
      2155   02 00493    35700050 04           STW,RL   EVALPTXIT
      2156   02 00494    6A70049D              CALL     EV1OPRNDEXP       EVALUATE ONE OPERAND EXPRESSION
      2157   02 00495    32400046 04           LW,XT    TEMP              VALUE SPECIFIED FOR PROTECTION TYPE
      2158   02 00496    69100499              BLZ      EVALPT1           NEGATIVE IS ERROR
      2159   02 00497    21400003 A            CI,XT    3
      2160   02 00498    6820049B              BLE      EVALPT2           3 OR LESS IS OK
      2161   02 00499                 EVALPT1  RES      0
      2162   02 00499    6AF00000 X            BAL,ER   TERR              TRUNCATION ERROR
      2163   02 0049A    22400000 A            LI,XT    0                 USE PROTECTION TYPE OF ZERO
      2164   02 0049B                 EVALPT2  RES      0
      2165   02 0049B    354000A8 04           STW,XT   PROTYPE
      2166   02 0049C    E8000050 04           B        *EVALPTXIT        EXIT
1
      2168                            *
      2169                            *   E V A L 1 E X P
      2170                            *        THIS SUBROUTINE EVALUATES A FIELD AND TESTS THE RESULTS FOR
      2171                            *          CONTAINING ONE SINGLE PRECISION CONSTANT. IF MORE THAN ONE
      2172                            *          VALUE IS FOUND, AN ERROR IS REPORTED. IF THE FIRST (OR ONLY)
      2173                            *          VALUE IS NOT A SINGLE PRECISION CONSTANT, AN ERROR IS
      2174                            *          REPORTED AND THE VALUE IS SET TO ZERO. IF NO VALUE IS FOUND
      2175                            *          (E.G., THE FIELD IS BLANK), THE VALUE IS SET TO ZERO.
      2176                            *
      2177                            *        OUTPUT:  LSTCT CONTAINS THE NUMBER OF VALUES PROCESSED.
      2178                            *                 XT & TEMP CONTAIN THE SINGLE PRECISION CONSTANT
      2179                            *                 THE EXPRESSION TABLES HAVE BEEN DELETED.
      2180                            *
      2181                            *        CALL:    BAL,RL  EVAL1EXP
      2182                            *
      2183                            *        USES REGISTERS
      2184                            *                 XT
      2185                            *                 XT1
      2186                            *                 RL
      2187                            *
      2188                                     LOCAL    %1,%2,%4,%5
      2189                            *
      2190   02 0049D                 EV1OPRNDEXP  RES  0
      2191                            *
      2192   02 0049D    32260005 A            LW,XW    OPRND,LVL         GET INDEX TO OPERAND FIELD
      2193                            *
      2194   02 0049E                 EVAL1EXP RES      0
      2195   02 0049E    3570004F 04           STW,RL   EVEXPXIT
      2196   02 0049F    6A70094B              BAL,RL   EVALUATE%AND%CLEAN  EVALUATE EXPRESSIONS
      2197   02 004A0    32400097 04           LW,XT    LSTCT
      2198   02 004A1    68300000 F            BEZ      %5                FIELD WAS BLANK
      2199   02 004A2    21400001 A            CI,XT    1
      2200   02 004A3    68300000 F            BE       %1                FIELD CONTAINED ONE EXPRESSION
      2201                            *   HERE IF MORE THAN ONE EXPRESSION
      2202   02 004A4    6AF00000 X            BAL,ER   EERR              EXPRESSION ERROR
      2203   02 004A5                 %1       RES      0
      2204                            *   DETERMINE IF 1ST VALUE IS A SINGLE PRECISION CONSTANT
      2205   02 004A5    32420000 A            LW,XT    0,XS              EXPRESSION CONTROL WORD
      2206   02 004A6    B2780035 03           LW,RL    *KLINE,XT         LOAD VALUE CONTROL WORD
      2207   02 004A7    4B7011EB              AND,RL   =DEFFLD           GET DEFINITION
      2208   02 004A8    317000A5 04           CW,RL    PASSDEF
      2209   02 004A9    69300000 F            BNE      %2                NOT DEFINED FOR CURRENT PASS
      2210   02 004AA    325011ED              LV,XT1   ETFLD             MASK FOR ET FIELD
      2211   02 004AB    454011FC              CS,XT    =SPINTET
      2212   02 004AC    68300000 F            BE       %4                VALUE IS A SMALL INTEGER
      2213   02 004AD    454011FD              CS,XT    =INTET
      2214   02 004AE    69300000 F            BNE      %2                VALUE IS NOT AN INTEGER CONSTANT
      2215   02 004AF    20400001 A            AI,XT    1
      2216   02 004B0    B2480035 03           LW,XT    *KLINE,XT         GET WORD FOLLOWING CONTROL WORD
      2217   02 004B1    68000000 F            B        %5
      2218   02 004B2                 %2       RES      0
      2219                            *   HERE FOR ILLEGAL VALUE
      2220   02 004B2    6AF00000 X            BAL,ER   EERR              EXPRESSION ERROR
      2221   02 004B3    32460001 A            LW,XT    EVT,LVL                         REPLACE ILLEGAL VALUE
      2222   02 004B4    327011E9              LV,RL    1**(31-SPALOB)+1**(31-SPINTLOB) IN EVT TABLE WITH A
      2223   02 004B5    307000A5 04           AW,RL    PASSDEF                         VALUE OF ZERO
      2224   02 004B6    B5780035 03           STW,RL   *KLINE,XT
      2225   02 004B7    304011FC              AV,XT    SPINTET           REPLACE ET FIELD VALUE WITH SPECIAL
      2226   02 004B8    35420000 A            STW,XT   0,XS                INTEGER TYPE VALUE IN ECT
      2227   02 004B9                 %4       RES      0
      2228                            *   HERE TO GET VALUE FROM SPECIAL INTEGER ENTRY
      2229   02 004B9    B2480035 03           LW,XT    *KLINE,XT         CONTROL WORD
      2230   02 004BA    4B4011EC              AND,XT   =VALFLD           RETAIN VALUE
      2231   02 004BB                 %5       RES      0
      2232   02 004BB    35400046 04           STW,XT   TEMP
      2233   02 004BC    E800004F 04           B        *EVEXPXIT
1
      2235                            *
      2236                            *   E V A L 1 I N T
      2237                            *        THIS SUBROUTINE CALLS EVAL1EXP AND REPORTS AN ERROR IF THE
      2238                            *          FIELD WAS BLANK
      2239                            *
      2240                            *        CALL:    BAL,RL  EVAL1INT
      2241                            *
      2242                            *        USES REGISTERS
      2243                            *                 ER
      2244                            *                 RL
      2245                            *
      2246   02 004BD                 EVAL1INT RES      0
      2247   02 004BD    35700050 04           STW,RL   E1INTXIT
      2248   02 004BE    6A70049E              BAL,RL   EVAL1EXP          EVALUATE ONE EXPRESSION
      2249   02 004BF    33000097 04           MTW,0    LSTCT
      2250   02 004C0    E9300050 04           BNEZ     *E1INTXIT         FIELD WAS NOT BLANK, RETURN
      2251   02 004C1    6AF00000 X            BAL,ER   EERR              EXPRESSION ERROR
      2252   02 004C2    E8000050 04           B        *E1INTXIT
1
      2254                            *
      2255                            * E X T R A C T C O N
      2256                            *        EXTRACT A SINGLE PRECISION CONSTANT AND MARK ERRORS
      2257                            *
      2258                            *         INPUT:  ADDRESS OF CONTROL WORD IS IN REG. XT
      2259                            *
      2260                            *        OUTPUT:  CONSTANT IS IN REGISTER XT1. IF THE ITEM IS NOT A
      2261                            *                 SINGLE PRECISION CONSTANT, AN ERROR IS SET
      2262                            *
      2263                            *
      2264   02 004C3                 EXTRACTCON  RES   0
      2265   02 004C3    32580000 A            LW,XT1   0,XT
      2266   02 004C4    681004C9              BFZ,XT1  SPAFLD,EXTRC1     BRANCH IF NOT SPECIAL 1-WD ITEM
      2267   02 004C5    315011DE              BFZ,XT1  SPINTFLD,EXTRC3   BRANCH IF NOT A SPECIAL INTEGER
             02 004C6    684004D0
      2268   02 004C7    4B5011EC              AND,XT1  =VALFLD           SAVE THE VALUE
      2269   02 004C8    680E0000 A            EXIT     RL
      2270   02 004C9                 EXTRC1   RES      0
      2271   02 004C9    4B5011FE              AND,XT1  =TYPEFLD+CTYPEFLD TEST FOR A SINGLE PRECISION INTEGER
      2272   02 004CA    21510000 A            CV,XT1   CONSTANT+SPI
      2273   02 004CB    693004CE              BNE      EXTRC2
      2274   02 004CC    32580001 A            LW,XT1   1,XT
      2275   02 004CD    680E0000 A            EXIT     RL
      2276   02 004CE                 EXTRC2   RES      0
      2277   02 004CE    21520000 A            CV,XT1   BLANK             TEST FOR A BLANK ITEM
      2278   02 004CF    683004D1              BE       EXTRC4
      2279   02 004D0                 EXTRC3   RES      0
      2280   02 004D0    6AF00000 X            BAL,ER   EERR
      2281   02 004D1                 EXTRC4   RES      0
      2282   02 004D1    22500000 A            LI,XT1   0                 EXIT WITH VALUE ZERO
      2283   02 004D2    680E0000 A            EXIT     RL
1
      2285   02 004D3                 FINDLSPC RES      0
      2286   02 004D3    35700013 03           STW,RL   FINDSPCXIT
      2287   02 004D4    3A40008C 04           LCW,XT   LARG              DECREASE END OF LOCAL SYMBOL TABLE
      2288   02 004D5    6640009F 04           AWM,XT   NXTLOCAL            ADDRESS BY NUMBER OF WORDS REQ'D
      2289   02 004D6    6A700000 X            BAL,RL   HILIMIT           MAKE SURE THERE IS ROOM
      2290   02 004D7    680004FD              B        FINDSPC7
1
      2292                            *
      2293                            *  F I N D S P C
      2294                            *        FIND SPACE IN THE FREE LIST
      2295                            *
      2296                            *          INPUT: VARIABLE LARG CONTAINS NUMBER OF WORDS REQUIRED
      2297                            *                 VARIABLE FREELIST CONTAINS ADDRESS OF 1ST ENTRY
      2298                            *                   IN THE THREADED FREE SPACE LIST.  EACH ENTRY
      2299                            *                   POINTS TO THE NEXT AVAILABLE ENTRY, IN ASCENDING
      2300                            *                   ORDER. THE LAST ENTRY POINTS TO VARIABLE FREELIST.
      2301                            *
      2302                            *         OUTPUT: FND CONTAINS FOUND ADDRESS.  THE APPROPRIATE WORD
      2303                            *                   IN THE THREADED FREE SPACE LIST HAS BEEN CHANGED
      2304                            *                   TO REFLECT THE REMOVAL OF LARG WORDS FROM
      2305                            *                   THE FREE SPACE LIST.
      2306                            *
      2307                            *
      2308                            *        REGISTERS USED:  XT,XT1,XT2,R8,R9,R10
      2309                            *
      2310                            *
      2311   02 004D8                 FINDSPC  RES      0
      2312   02 004D8    35700013 03           STW,RL   FINDSPCXIT
      2313   02 004D9    22400087 04           LI,XT    FREELIST
      2314   02 004DA    32A0008C 04           LW,LARGR LARG              SHIFT REQUIRED SIZE
      2315   02 004DB    25A00271 A            SHIFT,LARGR  31,FREELLOB     TO LENGTH FIELD
      2316   02 004DC    328011DE              LV,LOWD  8192**(31-FREELLOB)    PRESET SMALLEST DELTA TO 8192
      2317   02 004DD                 FINDSPC1 RES      0
      2318   02 004DD    32580000 A            LW,XT1   0,XT              GET NEXT FREE SPACE ENTRY
      2319   02 004DE    4B5011E1              AND,XT1  =FREEAFLD         SAVE THE CLEAN ADDRESS
      2320   02 004DF    326A0000 A            LW,XT2   0,XT1
      2321   02 004E0    4B6011FF              AND,XT2  =FREELFLD         SAVE THE LENGTH FIELD
      2322   02 004E1    683004F6              BEZ      FINDSPC2          NO MORE FREE SPACE. END OF FREE LIST
      2323   02 004E2    3860000A A            SW,XT2   LARGR             SUBT. SIZE REQUIRED
      2324   02 004E3    693004E9              BNEZ     FINDSPC3          BRANCH IF NOT REQUIRED SIZE
      2325   02 004E4    35500086 04           STW,XT1  FND               STORE ADDRESS OF FOUND AREA
      2326   02 004E5    2291FFFF A            LV,R9    FREEAFLD          DELETE THE FOUND ENTRY,
      2327   02 004E6    328A0000 A            LW,R8    0,XT1               SINCE AN EXACT FIT
      2328   02 004E7    47880000 A            STS,R8   0,XT                WAS FOUND.
      2329   02 004E8    E8000013 03           B        *FINDSPCXIT
      2330   02 004E9                 FINDSPC3 RES      0
      2331   02 004E9    691004EE              BL       FINDSPC4          BRANCH IF THIS AREA IS TOO SMALL
      2332   02 004EA    31600008 A            CW,XT2   LOWD              TEST FOR CLOSEST FIT
      2333   02 004EB    681004EE              BGE      FINDSPC4          NOT CLOSEST
      2334   02 004EC    32800006 A            LW,LOWD  XT2               REPLACE CLOSEST FIT
      2335   02 004ED    35500086 04           STW,XT1  FND                 ADDRESS AND SIZE
      2336   02 004EE                 FINDSPC4 RES      0
      2337   02 004EE    32400005 A            LW,XT    XT1               MOVE TO NEXT FREE LIST ENTRY
      2338   02 004EF    680004DD              B        FINDSPC1
      2339   02 004F0                 FINDSPC5 RES      0
      2340   02 004F0    32400086 04           LW,XT    FND               ADDRESS OF CLOSEST FIT
      2341   02 004F1    229E0000 A            LV,LOWD+1 FREELFLD
      2342   02 004F2    47880000 A            STS,LOWD 0,XT              STORE REMAINING SPACE IN THIS ENTRY
      2343   02 004F3    2580020F A            SHIFT,LOWD  FREELLOB,31    BUMP ADDRESS OF FND TO POINT TO
      2344   02 004F4    66800086 04           AWM,LOWD FND                 THE FOUND LARG WORDS
      2345   02 004F5    E8000013 03           B        *FINDSPCXIT
      2346   02 004F6                 FINDSPC2 RES      0
      2347   02 004F6    318011DE              CV,LOWD  8192**(31-FREELLOB)   BRANCH IF AN ENTRY
      2348   02 004F7    693004F0              BNE      FINDSPC5                WAS FOUND
      2349   02 004F8    324000A0 04           LW,XT    NXTSYMT
      2350   02 004F9    35400086 04           STW,XT   FND               SAVE CURRENT END OF SYMBOL TABLE
      2351   02 004FA    3040008C 04           AW,XT    LARG              INCREASE END OF SYMBOL TABLE
      2352   02 004FB    354000A0 04           STW,XT   NXTSYMT             ADDRESS BY NUMBER OF WORDS REQ'D
      2353   02 004FC    6A70075C              BAL,RL   LOLIMIT           MAKE SURE THERE IS ROOM
      2354   02 004FD                 FINDSPC7 RES      0
      2355   02 004FD    3240009F 04           LW,XT    NXTLOCAL
      2356   02 004FE    304000A0 04           AW,XT    NXTSYMT
      2357   02 004FF    2540007F A            SLS,XT   -1                MID-POINT OF TOTAL SPACE
      2358   02 00500    3250009F 04           LW,XT1   NXTLOCAL
      2359   02 00501    385000A0 04           SW,XT1   NXTSYMT
      2360   02 00502    2550007D A            SLS,XT1  -3                ONE/EIGHTH OF TOTAL SPACE
      2361   02 00503    32F00004 A            LW,ER    XT
      2362   02 00504    30F00005 A            AW,ER    XT1               KLINE SHOULD BE MOVED DOWN IF IT
      2363   02 00505    31F00035 03           CW,ER    KLINE               EXCEEDS THE MID-POINT BY MORE THAN
      2364   02 00506    6910050A              BL       FINDSPC8            1/8 OF THE SPACE REMAINING
      2365   02 00507    38400005 A            SW,XT    XT1                     OR, IF IT IS LESS THAN THE
      2366   02 00508    31400035 03           CW,XT    KLINE               MID-POINT BY MORE THAN 1/8 OF
      2367   02 00509    E8200013 03           BLE      *FINDSPCXIT         THE TOTAL SPACE REMAINING
      2368   02 0050A                 FINDSPC8 RES      0
      2369   02 0050A    22400001 A            LI,XT    1
      2370   02 0050B    75400013 03           STB,XT   FINDSPCXIT        INDICATE ADJUSTMENT NEEDED
      2371   02 0050C    E8000013 03           B        *FINDSPCXIT
1
      2373   02 0050D                 FNAME    RES      0
      2374   02 0050D    22430002 A            LV,XT    FUNCNAME+LNGTH2   FUNCTION NAME CONTROL WORD
      2375   02 0050E    680000F2              B        CNAME2
1
      2377                            *
      2378                            *  F R E E S P C
      2379                            *        RELEASE SYMBOL TABLE STORAGE BY ADDING THE RELEASED STORAGE
      2380                            *          TO THE FREE SPACE LIST.  IF THE FREED SPACE IS AT THE
      2381                            *          END OF THE SYMBOL TABLE, IT'S ADDED TO THAT TABLE INSTEAD
      2382                            *          OF THE FREE SPACE LIST.
      2383                            *
      2384                            *        THE FREE SPACE LIST IS IN ASCENDING ORDER (CORE ADDRESSES).
      2385                            *          IF THIS AREA IS CONTIGUOUS TO ANOTHER ENTRY, IT IS APPENDED
      2386                            *          TO THAT ENTRY; NO NEW ENTRY IS CREATED.
      2387                            *
      2388                            *          INPUT: FND CONTAINS THE ADDRESS OF THE ENTRY TO BE RELEASED.
      2389                            *                 LFND CONTAINS IT'S LENGTH.
      2390                            *
      2391                            *         OUTPUT: FREELIST, NXTSYMT, AND/OR THE CONTENTS OF THE
      2392                            *                   APPROPRIATE FREE SPACE LIST ENTRY(S) MODIFIED
      2393                            *                   TO REFLECT THE RELEASED STORAGE.
      2394                            *
      2395                            *        REGISTERS USED: XT,XT1,XT2,R8,R9,R10
      2396                            *
      2397                            *
      2398   02 0050F                 FREESPC  RES      0
      2399   02 0050F    35700013 03           STW,RL   FINDSPCXIT
      2400   02 00510    32400086 04           LW,XT    FND               IS SPACE AT THE END
      2401   02 00511    3040008F 04           AW,XT    LFND                OF SYMT
      2402   02 00512    314000A0 04           CW,XT    NXTSYMT
      2403   02 00513    69300517              BNE      FREESPC1          NOT AT END OF SYMT
      2404   02 00514    3A40008F 04           LCW,XT   LFND              SUBT. LENGTH OF ARGUMENT
      2405   02 00515    664000A0 04           AWM,XT   NXTSYMT             FROM NXTSYMT
      2406   02 00516    680004FD              B        FINDSPC7
      2407   02 00517                 FREESPC1 RES      0
      2408   02 00517    22800087 04           LI,LOWD  FREELIST          PRESET LOW ADDRESS
      2409   02 00518    32A00087 04           LW,LARGR FREELIST          PRESET HIGH ADDRESS
      2410   02 00519                 FREESPC2 RES      0
      2411   02 00519    B240000A A            LW,XT    *LARGR            FIND THE LOW AND HIGH ADDRESSES
      2412   02 0051A    4B4011FF              AND,XT   =FREELFLD           THAT BOUND THE AREA TO BE RELEASED
      2413   02 0051B    68300522              BEZ      FREESPC3          BRANCH IF END OF FREE SPACE LIST
      2414   02 0051C    31A00086 04           CW,LARGR FND
      2415   02 0051D    69200522              BG       FREESPC3          BRANCH IF BOUNDING ADDRESSES FOUND
      2416   02 0051E    3280000A A            LW,LOWD  LARGR             MOVE HIGH TO LOW
      2417   02 0051F    B2A0000A A            LW,LARGR *LARGR              AND ADDRESS AT HIGH
      2418   02 00520    4BA011E1              AND,LARGR =FREEAFLD          TO HIGH
      2419   02 00521    68000519              B        FREESPC2          TRY AGAIN
      2420   02 00522                 FREESPC3 RES      0
      2421   02 00522    32400086 04           LW,XT    FND               MAKE THE ENTRY
      2422   02 00523    2251FFFF A            LV,XT1   FREEAFLD            TO REFLECT
      2423   02 00524    C7400008 A            STS,XT   *LOWD               THE RELEASED STORAGE
      2424   02 00525    3240008F 04           LW,XT    LFND              LINK LOW ADDRESS TO THIS ENTRY
      2425   02 00526    25400271 A            SHIFT,XT 31,FREELLOB       LINK THIS ENTRY TO HIGH ADDRESS
      2426   02 00527    3040000A A            AW,XT    LARGR
      2427   02 00528    B5400086 04           STW,XT   *FND
      2428   02 00529                 FREESPC4 RES      0
      2429   02 00529    B2400008 A            LW,XT    *LOWD             ELIMINATE CONTIGUOUS AREAS
      2430   02 0052A    4B4011FF              AND,XT   =FREELFLD
      2431   02 0052B    2540020F A            SHIFT,XT FREELLOB,31
      2432   02 0052C    30400008 A            AW,XT    LOWD
      2433   02 0052D    C5400008 A            CS,XT    *LOWD
      2434   02 0052E    69300534              BNE      FREESPC5          AREAS NOT CONTIGUOUS
      2435   02 0052F    B2400004 A            LW,XT    *XT
      2436   02 00530    C7400008 A            STS,XT   *LOWD
      2437   02 00531    4B4011FF              AND,XT   =FREELFLD         ADD LENGTHS OF
      2438   02 00532    E6400008 A            AWM,XT   *LOWD               CONTIGUOUS AREAS
      2439   02 00533    68000529              B        FREESPC4
      2440   02 00534                 FREESPC5 RES      0
      2441   02 00534    B2400086 04           LW,XT    *FND
      2442   02 00535    4B4011FF              AND,XT   =FREELFLD
      2443   02 00536    2540020F A            SHIFT,XT FREELLOB,31
      2444   02 00537    30400086 04           AW,XT    FND
      2445   02 00538    C5400086 04           CS,XT    *FND
      2446   02 00539    E9300013 03           BNE      *FINDSPCXIT
      2447   02 0053A    B2400004 A            LW,XT    *XT
      2448   02 0053B    C7400086 04           STS,XT   *FND
      2449   02 0053C    4B4011FF              AND,XT   =FREELFLD
      2450   02 0053D    E6400086 04           AWM,XT   *FND
      2451   02 0053E    E8000013 03           B        *FINDSPCXIT
1
      2453                            *
      2454                            *   G E N
      2455                            *        THIS ROUTINE PROCESSES THE GEN DIRECTIVE.  IT CALLS GENORCOM
      2456                            *          AND THEN RETURNS TO GENR.
      2457                            *
      2458                            *
      2459   02 0053F                 GEN      RES      0
      2460   02 0053F    6A700541              BAL,RL   GENORCOM
      2461   02 00540    68000643              B        GENR              BACK TO MAIN CONTROL
1
      2463                            *
      2464                            *   G E N O R C O M
      2465                            *        THIS ROUTINE PROCESSES THE LOGIC COMMON TO BOTH THE GEN
      2466                            *          DIRECTIVE AND A COM REFERENCE. THE LABEL FIELD IS DEFINED.
      2467                            *          THEN SCAN IS CALLED TO EVALUATE A FIELD LIST. THE FIELD LIST
      2468                            *          MUST CONSIST OF SMALL POSITIVE INTEGER VALUES WHOSE SUM MAY
      2469                            *          NOT EXCEED 128. IF NECESSARY, A DUMMY FIELD IS ADDED TO PAD
      2470                            *          THE TOTAL TO A MULTIPLE OF 8.  SCAN IS THEN CALLED TO
      2471                            *          EVALUATE THE VALUE LIST SPECIFIED IN THE OPERAND FIELD.
      2472                            *          IN THE DEFINITION PASS BOTH LOCATION COUNTERS ARE INCREASED
      2473                            *          BY THE NUMBER OF BYTES TO BE GENERATED. IN THE GENERATION
      2474                            *          PASS, GENERATE IS CALLED TO PRODUCE THE BINARY CODE.
      2475                            *
      2476                            *        INPUT:   CMNDLIST IS ZERO IF NO FIELD SIZE ENTRIES HAVE BEEN
      2477                            *                   SPECIFIED
      2478                            *
      2479                            *        OUTPUT:  BOTH DLRVAL AND DDLRVAL HAVE BEEN INCREASED BY THE
      2480                            *                   NUMBER OF BYTES GENERATED.
      2481                            *
      2482                            *        USES REGISTERS
      2483                            *                 XT, XT1, XT2, RL, XS, ER
      2484                            *
      2485   02 00541                 GENORCOM RES      0
      2486   02 00541    35700053 04           STW,RL   GENCOMXIT
      2487   02 00542    6A700298              CALL     DEFHEXLBL         DEFINE THE LABEL
      2488   02 00543    3300004B 04           MTW,0    CMNDLIST
      2489   02 00544    68300572              BEZ      GENCOM5           NO COMMAND FIELD ENTRIES
      2490   02 00545    6A70094B              BAL,RL   SCAN              EVALUATE COMMAND FIELD ENTRIES
      2491   02 00546    32400097 04           LW,XT    LSTCT             SAVE NUMBER OF FIELD SIZE ENTRIES
      2492   02 00547    35400051 04           STW,XT   FLDCNT              FOR GENERATE
      2493   02 00548    35100052 04           STW,XS   FLDPTR            SAVE POINTER TO FIELD SIZE LIST
      2494   02 00549    22400000 A            LI,XT    0
      2495   02 0054A    35400061 04           STW,XT   TEMPO             INITIALIZE TOTAL FIELD SIZE TO ZERO
      2496   02 0054B                 GENCOM1  RES      0
      2497   02 0054B    32620000 A            LW,XT2   0,XS              INDEX TO EVT ENTRY
      2498   02 0054C    30600035 03           AW,XT2   KLINE             ADDRESS OF EVT ENTRY
      2499   02 0054D    324C0000 A            LW,XT    0,XT2             CONTROL WORD OF EVT ENTRY
      2500   02 0054E    6810057B              BFZ,XT   SPAFLD,GENCOM6    NOT A SPECIAL ONE WORD ITEM
      2501   02 0054F    314011DE              BFZ,XT   SPINTFLD,GENCOM6  NOT A SPECIAL INTEGER
             02 00550    6840057B
      2502   02 00551    325011EB              LV,XT1   DEFFLD
      2503   02 00552    454000A5 04           CS,XT    PASSDEF           BRANCH IF INTEGER NOT DEFINED
      2504   02 00553    69300585              BNE      GENCOM8             FOR CURRENT PASS
      2505   02 00554    4B4011EC              AND,XT   =VALFLD
      2506   02 00555    66400061 04           AWM,XT   TEMPO             ACCUMULATE TOTAL FIELD SIZE
      2507   02 00556    22500080 A            LI,XT1   128
      2508   02 00557    31500061 04           CW,XT1   TEMPO
      2509   02 00558    6810055D              BGE      GENCOM2           TOTAL FIELD SIZE IS 128 OR LESS
      2510   02 00559    38500061 04           SW,XT1   TEMPO             NUMBER OF UNITS IN EXCESS OF 128
      2511   02 0055A    66500061 04           AWM,XT1  TEMPO             SET TOTAL FIELD SIZE TO 128
      2512   02 0055B    665C0000 A            AWM,XT1  0,XT2             DECREASE VAL BY THE AMOUNT THAT
      2513   02 0055C    6AF00000 X            BAL,ER   TERR              TRUNCATION ERROR
      2514   02 0055D                 GENCOM2  RES      0
      2515   02 0055D    201FFFFF A            AI,XS    -1                DECREMENT ADDRESS OF ECT ENTRY
      2516   02 0055E    33F00097 04           MTW,-1   LSTCT             DECREMENT LIST COUNT
      2517   02 0055F    6920054B              BGZ      GENCOM1           MORE ENTRIES TO PROCESS
      2518   02 00560    32500061 04           LW,XT1   TEMPO
      2519   02 00561    68300583              BEZ      GENCOM7           TOTAL FIELD SIZE IS ZERO
      2520   02 00562    4B501200              AND,XT1  =7
      2521   02 00563    6830056A              BEZ      GENCOM3           TOTAL FIELD SIZE IS A MULTIPLE OF 8
      2522   02 00564    22400008 A            LI,XT    8
      2523   02 00565    38400005 A            SW,XT    XT1               DUMMY FIELD SIZE USED TO PAD TOTAL
      2524   02 00566    66400061 04           AWM,XT   TEMPO               FIELD SIZE TO A MULTIPLE OF 8
      2525   02 00567    6A70110D              BAL,RL   STACKSPI          APPEND SPEC. INT. TO EXP STACK
      2526   02 00568    33100051 04           MTW,1    FLDCNT            INCREMENT COUNT OF FIELD SIZE ENTRYS
      2527   02 00569    6AF00000 X            BAL,ER   EERR
      2528   02 0056A                 GENCOM3  RES      0
      2529   02 0056A    6A70094B              BAL,RL   EVALUATE%AND%CLEAN  EVALUATE OPERAND FIELD ENTRIES
      2530   02 0056B    35100064 04           STW,XS   VALPTR            SAVE POINTER TO VALUE(S)
      2531   02 0056C    32400097 04           LW,XT    LSTCT             SAVE NUMBER OF VALUE ENTRIES FOR
      2532   02 0056D    35400063 04           STW,XT   VALCNT              GENERATE
      2533   02 0056E    32400061 04           LW,XT    TEMPO             CONVERT TOTAL FIELD SIZE FROM
      2534   02 0056F    2540007D A            SLS,XT   -3                  NUMBER OF BITS TO NUMBER OF BYTES
      2535   02 00570    6A700000 X            BAL,RL   GENERATE          PRODUCE BINARY CODE IN GEN PASS
      2536   02 00571    E8000053 04           B        *GENCOMXIT
      2537   02 00572                 GENCOM5  RES      0
      2538   02 00572    22400020 A            LI,XT    32
      2539   02 00573    35400061 04           STW,XT   TEMPO             SET TOTAL FIELD SIZE TO 32
      2540   02 00574    32160002 A            LW,XS    ECT,LVL
      2541   02 00575    30100035 03           AW,XS    KLINE             ADDRESS OF EXPRESSION ENTRY
      2542   02 00576    6A70110D              BAL,RL   STACKSPI          APPEND SPEC.INT. 32 TO EXP STACK
      2543   02 00577    22400001 A            LI,XT    1
      2544   02 00578    35400051 04           STW,XT   FLDCNT            SET COUNT OF FIELD SIZE ENTRIES TO 1
      2545   02 00579    35100052 04           STW,XS   FLDPTR            POINTER TO FIELD SIZE ENTRY
      2546   02 0057A    6800056A              B        GENCOM3
      2547   02 0057B                 GENCOM6  RES      0
      2548   02 0057B    324011E9              LV,XT    1**(31-SPALOB)+1**(31-SPINTLOB)
      2549   02 0057C    304000A5 04           AW,XT    PASSDEF           STORE A SPECIAL INTEGER ZERO ENTRY
      2550   02 0057D    354C0000 A            STW,XT   0,XT2               OVER THE 'ILLEGAL' EVT ENTRY.
      2551   02 0057E    324011FC              LV,XT    SPINT%ET          CHANGE THE ECT ENTRY TO INDICATE
      2552   02 0057F    32501201              LV,XT1   ETFLD+EXPFLD        THAT THE EVT ENTRY IS A SPECIAL
      2553   02 00580    47420000 A            STS,XT   0,XS                INTEGER
      2554   02 00581    6AF00000 X            BAL,ER   EERR
      2555   02 00582    6800055D              B        GENCOM2
      2556   02 00583                 GENCOM7  RES      0
      2557   02 00583    6A7006A2              BAL,RL   LINESKIP          SKIP THIS LINE
      2558   02 00584    E8000053 04           B        *GENCOMXIT
      2559   02 00585                 GENCOM8 RES       0
      2560   02 00585    6AF00000 X            BAL,ER   UERR              UNDEFINED
      2561   02 00586    6800055D              B        GENCOM2
1
      2563                            *
      2564                            *   G E T P L O C
      2565                            *        RE-INSTATE THE PREVIOUS PROCEDURE LEVEL TABLE
      2566                            *
      2567                            *        INPUT:   LVL CONTAINS THE ADDRESS OF THE CURRENT PROCEDURE
      2568                            *                   LEVEL TABLE
      2569                            *
      2570                            *        OUTPUT:  LVL CONTAINS THE ADDRESS OF THE PREVIOUS PROCEDURE
      2571                            *                   LEVEL TABLE
      2572                            *
      2573                            *        USES REGISTERS
      2574                            *                 RL, LVL
      2575                            *
      2576   02 00587                 GETPLOC  RES      0
      2577   02 00587    33F00021 03           MTW,-1   PROCREF           DECREMENT PROCEDURE REFERENCE LEVEL
      2578   02 00588                 GETPLOC1 RES      0
      2579   02 00588    32360000 A            LW,LVL   PLOC,LVL          FORM ADDRESS OF PREVIOUS PROCEDURE
      2580   02 00589    30300035 03           AW,LVL   KLINE               LEVEL TABLE AND
      2581   02 0058A    4B3011F7              AND,LVL  =PLOCFLD            CLEAN IT
      2582   02 0058B    680E0000 A            EXIT     RL
1
      2584                            *  G L B L A D D
      2585                            *        FIND THE SYMBOL TABLE ADDRESS OF A GLOBAL SYMBOL
      2586                            *        IF THE SYMBOL REQUIRES ADDITIONAL SYMT SPACE, THAT SPACE
      2587                            *          IS OBTAINED, AND AN UNDEFINED ITEM IS STORED IN IT.
      2588                            *
      2589                            *        ALTERNATE ENTRY POINT IS GLBLADD0, WHICH FUNCTIONS
      2590                            *          THE SAME, BUT DOES NOT SET THE UNDEFINED FLAG.
      2591                            *
      2592                            *         INPUT:  THE SYMBOL NUMBER IN XT.
      2593                            *
      2594                            *         OUTPUT: FND CONTAINS THE (FULL) ADDRESS OF THE SYMBOL
      2595                            *                 MAIN CONTAINS THE FIXED SYMT ADDRESS
      2596                            *
      2597   02 0058C                 GLBLADD0 RES      0
      2598   02 0058C    73100007 A            MTB,+1   RL                SET FLAG
      2599                            *
      2600   02 0058D                 GLBLADD  RES      0
      2601   02 0058D    357000BC 04           STW,RL   GLBLAXIT          SAVE EXIT
      2602   02 0058E    4B4011E4              AND,XT   =VFLD             SAVE THE CLEAN SYMBOL NUMBER
      2603   02 0058F    30400037 03           AW,XT    SYMT
      2604   02 00590    35400098 04           STW,XT   MAIN              MAIN SYMT ADDRESS
      2605   02 00591    32580000 A            LW,XT1   0,XT              GET MAIN SYMT ENTRY
      2606   02 00592    69100597              BLZ      GLBLADD1          SPECIAL ADDR. OR INTEGER
      2607   02 00593    4B5011E3              AND,XT1  =LPTRFLD          IS THERE AN LPTR FIELD
      2608   02 00594    68300599              BEZ      GLBLADD2          NO
      2609   02 00595    32400005 A            LW,XT    XT1
      2610   02 00596    30400037 03           AW,XT    SYMT
      2611   02 00597                 GLBLADD1 RES      0
      2612   02 00597    35400086 04           STW,XT   FND               FULL ADDRESS
      2613   02 00598    E80000BC 04           B        *GLBLAXIT
      2614   02 00599                 GLBLADD2 RES      0
      2615   02 00599    22400001 A            LI,XT    1                 FIND DYNAMIC TABLE
      2616   02 0059A    3540008C 04           STW,XT   LARG                SPACE FOR THE SYMBOL
      2617   02 0059B    6A7004D8              BAL,RL   FINDSPC
      2618   02 0059C    32500086 04           LW,XT1   FND               LINK TO THE FOUND LOCATION
      2619   02 0059D    38500037 03           SW,XT1   SYMT
      2620   02 0059E    C7500098 04           STS,XT1  *MAIN
      2621   02 0059F    325011E7              LV,XT1   SPAFLD
      2622   02 005A0    730000BC 04           MTB,0    GLBLAXIT
      2623         001F0000                    IF,EZ
             02 005A1    693005A3
      2624   02 005A2    305011DE              AV,XT1   SPINTFLD          SET UNDEFINED FLAG
      2625         00F10000                    FI
      2626   02 005A3    B5500086 04           STW,XT1  *FND                UNDEFINED ITEM TYPE
      2627   02 005A4    E80000BC 04           B        *GLBLAXIT
1
      2629                            *
      2630                            *  G O T O
      2631                            *        PROCESS THE GOTO DIRECTIVE
      2632                            *        THE LABEL IS IGNORED.
      2633                            *
      2634                            *        FORM OF THE DIRECTIVE:
      2635                            *            GOTO,EXP  SYM1,...,SYMN
      2636                            *
      2637                            *        IF EXP IS MISSING, USE 1
      2638                            *        IF EXP NG 0, ASSEMBLE THE NEXT LINE
      2639                            *        IF EXP GT N, MARK AN ERROR AND ASSEMBLE NEXT LINE
      2640                            *
      2641                                     LOCAL    %1,%2,%3,%4
      2642   02 005A5                 GOTO     RES      0
      2643   02 005A5    6A7007D1              BAL,RL   NOTDO1
      2644   02 005A6    22400001 A            LI,XT    1
      2645   02 005A7    35400046 04           STW,XT   TEMP
      2646   02 005A8    3240004B 04           LW,XT    CMNDLIST          IS THERE A COMMAND FIELD EXPRESSION
      2647   02 005A9    683005AE              BEZ      GOTO10            NO, USE A VALUE OF ONE
      2648   02 005AA    6A7004BD              BAL,RL   EVAL1INT          EVALUATE CF(2) FIELD
      2649   02 005AB    32500046 04           LW,XT1   TEMP              VALUE OF THE EXP
      2650   02 005AC    68200642              BLEZ     LINE5             SKIP THE REST OF THE LINE
      2651   02 005AD    6A700000 X            BAL,RL   EDITV            EDIT THE CF(2) FIELD
      2652   02 005AE                 GOTO10   RES      0
      2653   02 005AE    22400000 A            LI,XT    0                 CLEAR GOTO SEARCH ARGUMENT
      2654   02 005AF                 GOTO15   RES      0
      2655   02 005AF    35400089 04           STW,XT   GOTOARG
      2656   02 005B0                 GOTO20   RES      0
      2657   02 005B0    D24400BA 04           NXTENC                     NEXT ENCODED ENTRY TO REG XT
             02 005B1    20200001 A
      2658   02 005B2    2250E000 A            LI,XT1   TFLD              MASK FOR ENCODED TYPE FIELD
      2659   02 005B3    454011F8              CS,XT    =ENCSYM           GLOBAL SYMBOL
      2660   02 005B4    68300000 F            BE       %2                  YES
      2661   02 005B5    45401202              CS,XT    =LOCALSYM         LOCAL SYMBOL
      2662   02 005B6    68300000 F            BE       %2                  YES
      2663   02 005B7    21400000 A            CI,XT    ENDLINE           END-OF-LINE
      2664   02 005B8    68300000 F            BE       %3                  YES
      2665   02 005B9    22400000 A            LI,XT    0
      2666   02 005BA    35400089 04           STW,XT   GOTOARG
      2667   02 005BB                 %3       RES      0
      2668   02 005BB    202FFFFF A            AI,XW    -1
      2669   02 005BC    6A7006A2              BAL,RL   LINESKIP          SKIP THE REST OF THIS LINE
      2670   02 005BD    32400089 04           LW,XT    GOTOARG           WAS GOTO SEARCH ARGUMENT
      2671   02 005BE    693005C4              BNEZ     GOTO30              YES
      2672   02 005BF    6AF00000 X            BAL,ER   SERR
      2673   02 005C0    68000643              B        GENR
      2674   02 005C1                 %2       RES      0
      2675   02 005C1    33F00046 04           MTW,-1   TEMP              DECREASE SYMBOL COUNT
      2676   02 005C2    693005B0              BNEZ     GOTO20              NOT THE N'TH ONE
      2677   02 005C3    680005AF              B        GOTO15            SAVE GOTO ARGUMENT
      2678   02 005C4                 GOTO30   RES      0
      2679   02 005C4    6A701076              BAL,RL   SKIPINIT          INITIALIZE FOR THE GOTO SEARCH
      2680                            * HERE TO SKIP LINES UNTIL ARGUMENT OF THE GOTO IS FOUND
      2681                                     LOCAL    %1,%2,%3,%4,%5,%6,%7
      2682   02 005C5                 GOSRCH   RES      0
      2683   02 005C5    6A701065              BAL,RL   SKIPGETLF1        GET LF(1)ENTRY IN REG XT
      2684   02 005C6    21400005 A            CI,XT    BLANKEXP          IS LABEL FIELD BLANK
      2685   02 005C7    683005CB              BE       GOSRCH20            YES
      2686   02 005C8    21400006 A            CI,XT    BEGINLIST         TEST FOR NON-STANDARD LABEL FIELD
      2687   02 005C9    683005D7              BE       GOSRCH1             YES
      2688   02 005CA    6A7005EC              BAL,RL   GOARG             TEST FOR GOTO SRCH ARG        /11243/B-13473
      2689                            * LABEL NOT FOUND.  INSPECT THE COMMAND AND SKIP THE REST OF THE LINE
      2690   02 005CB                 GOSRCH20 RES      0
      2691   02 005CB    6A7010C7              BAL,RL   SPECDIR           TEST FOR SPECIAL DIRECTIVES
      2692                            * IF THIS LINE IS 'FIN' ON THIS LEVEL, DELETE A 'DO' TABLE ENTRY
      2693   02 005CC    32400010 03           LW,XT    DOCOUNT           IS THIS LINE 'FIN' ON THIS LEVEL
      2694   02 005CD    68100000 F            BGEZ     %3
      2695   02 005CE    33100010 03           MTW,1    DOCOUNT           RESET DOCOUNT TO ZERO
      2696   02 005CF    32460006 A            LW,XT    DOCT,LVL          IS THERE AN ACTIVE 'DO'
      2697   02 005D0    69200000 F            BGZ      %2                  YES
      2698   02 005D1    6AF00000 X            BAL,ER   KERR              ILLEGAL INSTRUCTION ERROR
      2699   02 005D2    68000000 F            B        %3
      2700   02 005D3                 %2       RES      0
      2701   02 005D3    6A7002D6              BAL,RL   DELETE%DO         DELETE THE DO RECORD
      2702   02 005D4                 %3       RES      0
      2703   02 005D4    6A7006A2              BAL,RL   LINESKIP          SKIP THE REST OF THIS LINE
      2704   02 005D5    6A700FE8              BAL,RL   SET%SF
      2705   02 005D6    680005C5              B        GOSRCH
      2706   02 005D7                 GOSRCH1  RES      0
      2707   02 005D7    22400001 A            LI,XT    1
      2708   02 005D8    35400097 04           STW,XT   LISTCT            PRESET DEPTH OF LIST NESTING
      2709   02 005D9                 GOSRCH10 RES      0
      2710   02 005D9    D24400BA 04           NXTENC                     NEXT LABEL FIELD ENTRY
             02 005DA    20200001 A
      2711   02 005DB    6A7005EC              BAL,RL   GOARG             TEST FOR GOTO SRCH ARG        /11243/B-13473
      2712   02 005DC    21400002 A            CI,XT    ENDLIST
      2713   02 005DD    69300000 F            BNE      %5
      2714   02 005DE    33F00097 04           MTW,-1   LISTCT
      2715   02 005DF    683005CB              BEZ      GOSRCH20
      2716   02 005E0                 %5       RES      0
      2717   02 005E0    21400006 A            CI,XT    BEGINLIST
      2718   02 005E1    69300000 F            BNE      %6
      2719   02 005E2    33100097 04           MTW,1    LISTCT
      2720   02 005E3                 %6       RES      0
      2721   02 005E3    20402000 A            AV,XT    ENCTYPE1          TEST FOR LARGE INTEGER
      2722   02 005E4    688005D9              BCR,8    GOSRCH10          NO
      2723   02 005E5    4B4011F0              AND,XT   =LFLD             CLEAN THE LENGTH FIELD
      2724   02 005E6    30200004 A            AW,XW    XT
      2725   02 005E7    680005D9              B        GOSRCH10
      2726   02 005E8                 GOSRCH30 RES      0
      2727   02 005E8    32260003 A            LW,XW    LBL,LVL           RESET XW TO THE LABEL FIELD
      2728   02 005E9    22400000 A            LI,XT    0                 TERMINATE THE GOTO SEARCH
      2729   02 005EA    35400025 03           STW,XT   SKIPTRIG
      2730   02 005EB    68000648              B        LINE2
      2731                                     LOCAL
      2732                            *                                                                 /11243/B-13473
      2733                            *   G O A R G                                                     /11243/B-13473
      2734                            *                                                                 /11243/B-13473
      2735   02 005EC                 GOARG    RES      0                                               /11243/B-13473
      2736   02 005EC    2250E000 A            LV,XT1   TFLD              MASK FOR T FIELD              /11243/B-13473
      2737   02 005ED    45401202              CS,XT    =ENCLSYM          COMPARE FOR LOCAL SYMBOL      /11243/B-13473
      2738   02 005EE    693005F2              BNE      GOARG%1           ENCODED ITEM NO A LOCAL SYMBOL/11243/B-13473
      2739   02 005EF    32500021 03           LW,XT1   PROCREF           MERGE PROC LEVEL INTO         /11243/B-13473
      2740   02 005F0    25500008 A            SHIFT,XT1  31,PLVLLOB        ENCODED LOCAL SYMBOL        /11243/B-13473
      2741   02 005F1    49400005 A            OR,XT    XT1                                             /11243/B-13473
      2742   02 005F2                 GOARG%1  RES      0                                               /11243/B-13473
      2743   02 005F2    31400089 04           CW,XT    GOTOARG                                         /11243/B-13473
      2744   02 005F3    693E0000 A            EXIT,NE  RL                NOT GOTO SEARCH ARGUMENT      /11243/B-13473
      2745   02 005F4    3250001F 03           LW,XT1   PROCCOUNT         IGNORE MATCH IF NOT           /11243/B-13473
      2746   02 005F5    49500010 03           OR,XT1   DOCOUNT             AT SAME PROC, DO, AND       /11243/B-13473
      2747   02 005F6    4950002C 03           OR,XT1   SYSCOUNT            SYS LEVEL                   /11243/B-13473
      2748   02 005F7    683005E8              BEZ      GOSRCH30          FOUND, TERMINATE SEARCH       /11243/B-13473
      2749   02 005F8    680E0000 A            EXIT     RL                                              /11243/B-13473
1
      2751                            *
      2752                            *   L C L D L T E
      2753                            *        DELETES THE LOCAL SYMBOL TABLE AT THE CURRENT PROCEDURE LEVEL
      2754                            *
      2755                            *        INPUT:   LOCALORG CONTAINS INDEX TO ORIGIN OF THE LOCAL SYMBOL
      2756                            *                   TABLE
      2757                            *                 LOCALCT CONTAINS THE NUMBER OF ENTRIES CURRENTLY IN
      2758                            *                   THE LOCAL TABLE
      2759                            *
      2760                            *        OUTPUT:  NXTLOCAL IS SET TO THE ORIGIN OF THE LOCAL SYMBOL
      2761                            *                   TABLE.
      2762                            *
      2763                            *        CALL:    BAL,RL  LCLDLTE
      2764                            *
      2765                            *        USES REGISTERS
      2766                            *                 RL
      2767                            *                 XT
      2768                            *                 XT1
      2769                            *                 LVL
      2770                            *                 ER
      2771                            *
      2772   02 005F9                 LCLDLTE  RES      0
      2773   02 005F9    3570008E 04           STW,RL   LCLDLXIT
      2774   02 005FA    32460009 A            LW,XT    LOCALORG,LVL      INDEX TO LOCAL TABLE ORIGIN + (SYMT)
      2775   02 005FB    30400037 03           AW,XT    SYMT                IS ADDRESS OF LOCAL TABLE ORIGIN
      2776   02 005FC    35400098 04           STW,XT   MAIN
      2777   02 005FD    4B4011F7              AND,XT   =LOCALORGFLD
      2778   02 005FE    3540009F 04           STW,XT   NXTLOCAL          NEXT AVAILABLE LOCAL SYMBOL ADDRESS
      2779   02 005FF    72F00098 04           LB,ER    MAIN              NUMBER OF LOCALS
      2780   02 00600    E830008E 04           BEZ      *LCLDLXIT         EXIT, IF NONE
      2781   02 00601                 LCLDLTE1 RES      0
      2782   02 00601    B2400098 04           LW,XT    *MAIN
      2783   02 00602    69100608              BFNZ,XT  SPAFLD,LCLDLTE3   BRANCH IF SPEC. ADDR.
      2784   02 00603    30400037 03           AW,XT    SYMT
      2785   02 00604    35400086 04           STW,XT   FND
      2786   02 00605    6A701101              BAL,RL   SRCLCLFD          TEST FOR FORWARD REFERENCED LOCAL
      2787   02 00606    21500000 A            CI,XT1   0
      2788   02 00607    6930060B              BNE      LCLDLTE2          ANY FOUND ARE UNDEFINED
      2789   02 00608                 LCLDLTE3 RES      0
      2790   02 00608    33F00098 04           MTW,-1   MAIN              BUMP ADDRESS TO NEXT LOCAL
      2791   02 00609    64F00601              BDR,ER   LCLDLTE1          CONTINUE UNTIL ALL SYMBOLS PROCESSED
      2792   02 0060A    E800008E 04           B        *LCLDLXIT         EXIT
      2793   02 0060B                 LCLDLTE2 RES      0
      2794   02 0060B    6AF00000 X            BAL,ER   UERR              UNDEFINED ERROR
      2795   02 0060C    E800008E 04           B        *LCLDLXIT         EXIT
1
      2797                            *
      2798                            *   L E N G T H
      2799                            *        DETERMINES THE LENGTH OF A SYMBOL TABLE OR EXPRESSION TABLE
      2800                            *           ITEM.
      2801                            *
      2802                            *        INPUT:   XT CONTAINS A POINTER TO THE ARGUMENT
      2803                            *
      2804                            *        OUTPUT:  XT1 CONTAINS THE LENGTH OF THE ITEM
      2805                            *                 XT CONTAINS A POINTER TO THE ARGUMENT
      2806                            *
      2807                            *        CALL:    BAL,RL  LENGTH
      2808                            *
      2809                            *        USES REGISTERS
      2810                            *                 XT
      2811                            *                 XT1
      2812                            *
      2813   02 0060D                 LENGTH   RES      0
      2814   02 0060D    32580000 A            LW,XT1   0,XT              LOAD SPA FIELD OF ITEM
      2815   02 0060E    68100611              BFZ,XT1  SPAFLD,LENGTH2    ITEM IS NOT A SPECIAL ADDRESS ITEM
      2816   02 0060F                 LENGTH1  RES      0
      2817   02 0060F    22500001 A            LI,XT1   1                 RETURN A LENGTH OF ONE
      2818   02 00610    680E0000 A            EXIT     RL
      2819   02 00611                 LENGTH2  RES      0
      2820   02 00611    4B5011E8              AND,XT1  =TYPEFLD          LOAD TYPE FIELD
      2821   02 00612    21518000 A            CV,XT1   SYMBOL
      2822   02 00613    69300618              BNE      LENGTH3           ITEM IS NOT A SYMBOL ENTRY
      2823   02 00614    32501203              LV,XT1   STYPEFLD          MASK FOR SYMBOL TYPE FIELD
      2824   02 00615    4A580000 A            LS,XT1   0,XT              LOAD SYMBOL TYPE FIELD
      2825   02 00616    21540000 A            CV,XT1   CMPLXSUM
      2826   02 00617    6920060F              BG       LENGTH1           SINGLE WORD ITEM
      2827   02 00618                 LENGTH3  RES      0
      2828   02 00618    22507FFF A            LV,XT1   LENGTHFLD         MASK FOR LENGTH FIELD
      2829   02 00619    4A580000 A            LS,XT1   0,XT              LOAD ITEM LENGTH
      2830   02 0061A    680E0000 A            EXIT     RL
1
      2832                            *
      2833                            *   L I N E        ****   M A I N   C O N T R O L   ****
      2834                            *        PROCESSES THE NEXT LINE FOR BOTH PASSES
      2835                            *        XW IS AN INDEX TO THE NEXT ENCODED TEXT ITEM AND POINTS TO
      2836                            *           THE BEGINNING OF A LINE WHEN THIS ROUTINE IS ENTERED.
      2837                            *        XWBASE CONTAINS THE BASE ADDRESS OF THE ENCODED TEXT, WHICH
      2838                            *           MAY BE EITHER THE ADDRESS OF THE ENCODED TEXT INPUT BUFFER
      2839                            *           (INBUF), THE BASE ADDRESS OF THE SAMPLE TABLE(SYMT), OR THE
      2840                            *           BASE ADDRESS OF THE  PARTICULARIZATION BUFFER(KLINE).
      2841                            *        LVL CONTAINS A POINTER TO THE PROCEDURE LEVEL TABLE
      2842                            *
      2843                            *        XT AND XT1 ARE TEMPORARY INDEX REGISTERS
      2844                            *
      2845                            *
      2846                            *        USES REGISTER
      2847                            *                 RL
      2848                            *                 XT
      2849                            *                 XT1
      2850                            *                 XW
      2851                            *                 LVL
      2852                            *                 ER
      2853                            *
      2854   02 0061B                 GENR1    RES      0
      2855   02 0061B    32400021 03           LW,XT    PROCREF           BRANCH IF WITHIN
      2856   02 0061C    6930064C              BNEZ     LINE3               A PROCEDURE REFERENCE
      2857                            *
      2858   02 0061D    6A700000 N            CALL     PRINTC            PRINT IF THERE IS A SOURCE LINE
      2859                            *
      2860   02 0061E                 LINE     RES      0
      2861                            *
      2862   02 0061E    32400024 03           LW,XT    SF
      2863   02 0061F    354000B1 04           STW,XT   SOURCE
      2864   02 00620    6A700680              BAL,RL   LINENUM           PROCESS LINE NUMBER
      2865   02 00621                 LINE%1   RES      0
      2866   02 00621    6A7002DF              BAL,RL   DELETEXP          DELETE THE EXPRESSION TABLES
      2867   02 00622    6A700000 X            BAL,RL   ADJKLINE          ADJUST KLINE IF NEEDED
      2868   02 00623    22400000 A            LI,XT    0
      2869   02 00624    35460008 A            STW,XT   SAMP,LVL          INITIALIZE SAMPLE TABLE INDEX
      2870   02 00625                 LINE%2   RES      0
      2871   02 00625    6A70066B              BAL,RL   LINE%FLDS         SET LBL, CMND, OPRND POINTERS
      2872   02 00626    32500020 03           LW,XT1   PROCLV
      2873   02 00627    693008DC              BNE      SAMPLIN           BRANCH IF STORING A PROC DEFINITION
      2874   02 00628    33100017 03           MTW,1    LOCALFLG
      2875   02 00629    2250E000 A            LI,XT1   TFLD              MASK FOR ITEM TYPE FIELD
      2876   02 0062A    4B500004 A            AND,XT1  XT                TYPE OF ITEM TO XT1
      2877   02 0062B    4B4011E4              AND,XT   =VFLD             VALUE OF ITEM TO XT
      2878                            *
      2879                            *  FIRST COMMAND FIELD MUST BE A SIMPLE SYMBOL
      2880                            *
      2881   02 0062C    21504000 A            CI,XT1   ENCSYM
      2882   02 0062D    6930063D              BNE      LINE10            COMMAND IS NOT A SYMBOL
      2883                            *
      2884                            *  IF DIRECTIVE, BREAK OUT HERE
      2885                            *
      2886   02 0062E    2140002C A            CI,XT    HI%DIR
      2887         001F0000                    IF,LE                 -10- DOIF DIRECTIVE
             02 0062F    69200632
      2888   02 00630    52480652              LH,XT    DIRTBL,XT
      2889   02 00631    68080000              B        DIRBASE,XT        BRANCH TO DIRECTIVE
      2890         00F10000                    FI                    -10-
      2891                            *
      2892                            *  PROGRAM SYMBOL -- SEE IF COMMAND IS DEFINED
      2893                            *
      2894   02 00632    B2480037 03           LW,XT    *SYMT,XT          INDEX TO SYMBOL TABLE FOR COMMANDS
      2895   02 00633    25400070 A            SHIFT,XT CPTRLOB,31        RIGHT JUSTIFY CPTR
      2896   02 00634    21400001 A            CI,XT    1
      2897   02 00635    6820063D              BLE      LINE10            SYMBOL NOT DEFINED AS A COMMAND
      2898   02 00636    30400037 03           AW,XT    SYMT              ADDRESS OF COMMAND ENTRY
      2899   02 00637    354000A9 04           STW,XT   REFADD            SAVE ADDRESS OF COMMAND ENTRY
      2900   02 00638    32680000 A            LW,XT2   0,XT              PICK UP COMMAND NAME ENTRY
      2901   02 00639    4B601203              AND,XT2  =COMTFLD          MASK FOR COMMAND TYPE FIELD
      2902   02 0063A    2560020E A            SHIFT,XT2 COMTLOB,31       RIGHT JUSTIFY COMMAND TYPE
      2903   02 0063B    525C0669              LH,XT1   COMTABLE,XT2
      2904   02 0063C    680A0000              B        COMBASE,XT1       BRANCH TO COMMAND PROCESSOR
      2905   02 0063D                 LINE10   RES      0
      2906   02 0063D    6AF00000 X            BAL,ER   IERR              UNKNOWN COMMAND ERROR
      2907   02 0063E    6A700298              CALL     DEFHEXLBL         DEFINE THE LABEL FIELD
      2908   02 0063F    32260005 A            LW,XW    OPRND,LVL         LOAD INDEX TO OPERAND FIELD
      2909   02 00640    68000178              B        DATA2             PROCESS COMMAND AS DATA
      2910   02 00641                 COMMENT  RES      0
      2911   02 00641    33F00017 03           MTW,-1   LOCALFLG
      2912   02 00642                 CLOSE    RES      0
      2913   02 00642                 OPEN     RES      0
      2914   02 00642                 LINE5    RES      0
      2915   02 00642    6A7006A2              BAL,RL   LINESKIP          SKIP REMAINDER OF THIS LINE
      2916   02 00643                 GENR     RES      0
      2917   02 00643    32460007 A            LW,XT    DO1CT,LVL         PICK UP DO1 COUNT
      2918   02 00644    6830061B              BEZ      GENR1             DON'T REPEAT THE CURRENT LINE
      2919   02 00645    33F60007 A            MTW,-1   DO1CT,LVL         DECREMENT THE DO' COUNT
      2920   02 00646    3220004E 04           LW,XW    DO1LBL            INDEX TO LABEL FIELD OF LINE
      2921                            *                                     FOLLOWING THE DO1 LINE.
      2922   02 00647    6A700000 X            BAL,RL   PRINTC1           PRINT IF THERE IS A SOURCE LINE
      2923   02 00648                 LINE2    RES      0
      2924   02 00648    32400021 03           LW,XT    PROCREF
      2925   02 00649    6930064C              BNEZ     LINE3             BRANCH IF WITHIN A PROC REFERENCE
      2926   02 0064A    32260003 A            LW,XW    LBL,LVL           GET INDEX TO THE LABEL FIELD
      2927   02 0064B    68000621              B        LINE%1
      2928                            *
      2929   02 0064C                 LINE3    RES      0
      2930   02 0064C    D24400BA 04           NXTENC                     GET NEXT ENCODED ITEM
             02 0064D    20200001 A
      2931   02 0064E    4B4011E4              AND,XT   =VFLD             SAVE PARTIC FLAG
      2932   02 0064F    68300621              BEZ      LINE%1            NO PARAMETER SUBSTITUTION
      2933   02 00650    6A700000 X            BAL,RL   PARTIC            PARTICULARIZE
      2934   02 00651    68000625              B        LINE%2
      2935                            *
      2936                            *   TABLE OF OFFSETS TO DIRECTIVE PROCESSORS
      2937                            *
      2938                            DIR      COM,16   AF-DIRBASE
      2939   02 00652                 DIRTBL   RES      0
      2940   02 00652    0641     A            DIR      COMMENT
      2941   02 00652 2  0642     A            DIR      CLOSE
      2942   02 00653    072A     A            DIR      LOCAL
      2943   02 00653 2  0642     A            DIR      OPEN
      2944   02 00654    1138     A            DIR      SYSTEM
      2945   02 00654 2  0864     A            DIR      PROC
      2946   02 00655    083A     A            DIR      PEND
      2947   02 00655 2  03E6     A            DIR      END
      2948   02 00656    016B     A            DIR      DATA
      2949   02 00656 2  0018     A            DIR      ASECT
      2950   02 00657    108C     A            DIR      SOCW
      2951   02 00657 2  0397     A            DIR      ELSE
      2952   02 00658    0399     A            DIR      FIN
      2953   02 00658 2  0824     A            DIR      PAGE
      2954   02 00659    082A     A            DIR      PCC
      2955   02 00659 2  018F     A            DIR      DEF
      2956   02 0065A    0892     A            DIR      REF
      2957   02 0065A 2  110B     A            DIR      SREF
      2958   02 0065B    0884     A            DIR      PSR
      2959   02 0065B 2  0058     A            DIR      BOUND
      2960   02 0065C    00F1     A            DIR      CNAME
      2961   02 0065C 2  0115     A            DIR      COM
      2962   02 0065D    0144     A            DIR      CSECT
      2963   02 0065D 2  02E6     A            DIR      DISP
      2964   02 0065E    0319     A            DIR      DO
      2965   02 0065E 2  0365     A            DIR      DO1
      2966   02 0065F    037D     A            DIR      DSECT
      2967   02 0065F 2  043C     A            DIR      EQU
      2968   02 00660    043E     A            DIR      ERROR
      2969   02 00660 2  050D     A            DIR      FNAME
      2970   02 00661    053F     A            DIR      GEN
      2971   02 00661 2  05A5     A            DIR      GOTO
      2972   02 00662    06B7     A            DIR      LIST
      2973   02 00662 2  0721     A            DIR      LOC
      2974   02 00663    07EC     A            DIR      ORG
      2975   02 00663 2  0882     A            DIR      PSECT
      2976   02 00664    0887     A            DIR      PSYS
      2977   02 00664 2  0898     A            DIR      RES
      2978   02 00665    08A8     A            DIR      S:SIN
      2979   02 00665 2  0FC9     A            DIR      SET
      2980   02 00666    10B3     A            DIR      SPACE
      2981   02 00666 2  1151     A            DIR      TEXT
      2982   02 00667    1153     A            DIR      TEXTC
      2983   02 00667 2  11B0     A            DIR      TITLE
      2984   02 00668    11C5     A            DIR      USECT
      2985                                     BOUND    4
      2986                            *
      2987                            *   TABLE OF OFFSETS TO COMMAND TYPE PROCESSORS
      2988                            *
      2989                            COMT     COM,16   AF-COMBASE
      2990   02 00669                 COMTABLE RES      0
      2991   02 00669    013B     A            COMT     COMREF4           COM REFERENCE (WITH BOUND 4)
      2992   02 00669 2  013C     A            COMT     COMREF            COM REFERENCE (WITHOUT BOUND 4)
      2993   02 0066A    08C6     A            COMT     S:SINREF          S:SIN REFERENCE
      2994   02 0066A 2  0108     A            COMT     CNAMEREF          CNAME REFERENCE
      2995                                     BOUND    4
1
      2997                            *
      2998                            *   L I N E % F L D S
      2999                            *        THIS SUBROUTINE STORES POINTERS TO THE BEGINNING OF THE LABEL,
      3000                            *          COMMAND, AND OPERAND FIELDS OF THE CURRENT LINE.  THE
      3001                            *          POINTERS ARE STORED IN THE LBL, CMND, AND OPRND ENTRIES
      3002                            *          OF THE CURRENT PROCEDURE LEVEL TABLE.
      3003                            *
      3004                            *        INPUT:   XW POINTS TO THE FIRST ENCODED TEXT ITEM FOR THE LINE
      3005                            *
      3006                            *        OUTPUT:  LBL,LVL POINTS TO THE LABEL FIELD OF THE LINE
      3007                            *                 CMND,LVL POINTS TO THE COMMAND FIELD OF THE LINE
      3008                            *                 OPRND,LVL POINTS TO THE OPERAND FIELD OF THE LINE
      3009                            *                 XT CONTAINS THE CF(1) ENTRY
      3010                            *
      3011                            *        USES REGISTERS
      3012                            *                 RL, XT, XW
      3013                            *
      3014   02 0066B                 LINE%FLDS  RES    0
      3015   02 0066B    35700091 04           STW,RL   LINEXIT           SAVE RETURN
      3016   02 0066C    35260003 A            STW,XW   LBL,LVL           STORE INDEX TO THE LABEL FIELD
      3017   02 0066D    D24400BA 04           NXTENC                     GET NEXT ENCODED ITEM
             02 0066E    20200001 A
      3018   02 0066F    21400006 A            CI,XT    BEGINLIST         BRANCH IF LABEL FIELD DOES
      3019   02 00670    69300672              BNE      %+2                 NOT CONTAIN A 'STANDARD LABEL'
      3020   02 00671    6A70107D              BAL,RL   SKIPLABEL         SKIP THE LABEL FIELD
      3021   02 00672    35260004 A            STW,XW   CMND,LVL          STORE INDEX TO THE COMMAND FIELD
      3022   02 00673    22400000 A            LI,XT    0
      3023   02 00674    3540004B 04           STW,XT   CMNDLIST          INITIALIZE TO NO COMMAND LIST
      3024   02 00675    D24400BA 04           NXTENC                     GET NEXT ENCODED ITEM
             02 00676    20200001 A
      3025   02 00677    35260005 A            STW,XW   OPRND,LVL         INDEX TO OPERAND OR CF(1) FIELD
      3026   02 00678    21400006 A            CI,XT    BEGINLIST         EXIT IF COMMAND FIELD DOES
      3027   02 00679    E9300091 04           BNE      *LINEXIT            NOT CONTAIN A LIST
      3028   02 0067A    3310004B 04           MTW,1    CMNDLIST          INDICATE A COMMAND LIST
      3029   02 0067B    6A70107D              BAL,RL   SKIPCMND          SKIP THE COMMAND FIELD
      3030   02 0067C    46260005 A            XW,XW    OPRND,LVL         STORE INDEX TO OPERAND FIELD,
      3031                            *                                     AND LOAD INDEX TO CF(1) FIELD
      3032   02 0067D    D24400BA 04           NXTENC                     GET CF(1) ENTRY
             02 0067E    20200001 A
      3033   02 0067F    E8000091 04           B        *LINEXIT          RETURN
1
      3035                            *
      3036                            *   L I N E N U M
      3037                            *        PROCESS LINE NUMBER FIELD.  THE LINE NUMBER IS OBTAINED FROM
      3038                            *          THE ENCODED TEXT.  IF IT IS ZERO, THE LINE IS A SUB LINE.
      3039                            *          SUBLINE IS INCREMENTED AND MAJLINE IS UNCHANGED.  IF THE
      3040                            *          LINE NUMBER IS NON-ZERO, SUBLINE IS CLEARED AND MAJLINE
      3041                            *          IS REPLACED WITH THE LINE NUMBER.  IF THE NEXT ENCODED ITEM
      3042                            *          IS ANOTHER LINE NUMBER, THE CURRENT LINE IS PRINTED AND
      3043                            *          LINENUM IS REPEATED.
      3044                            *
      3045                            *        INPUT:   XW CONTAINS AN INDEX TO THE ENCODED LINE NUMBER.
      3046                            *
      3047                            *        OUTPUT:  XW CONTAINS AN INDEX TO THE ENCODED LABEL FIELD.
      3048                            *                 MAJLINE CONTAINS THE CURRENT MAJOR LINE NUMBER.
      3049                            *                 SUBLINE CONTAINS THE CURRENT SUB LINE NUMBER.
      3050                            *
      3051                            *        CALL:    BAL,RL  LINENUM
      3052                            *
      3053                            *        USES REGISTERS
      3054                            *                 RL
      3055                            *                 XT
      3056                            *                 XW
      3057                            *
      3058   02 00680                 LINENUM  RES      0
      3059   02 00680    35700091 04           STW,RL   LINENUMXIT        SAVE RETURN ADDRESS
      3060   02 00681                 LINENUM1 RES      0
      3061   02 00681    D24400BA 04           NXTENC                     GET NEXT ENCODED ITEM
             02 00682    20200001 A
      3062   02 00683    214020FF A            CI,XT    ENDBUF            IS IT END OF BUFFER?
      3063   02 00684    683006A0              BE       LINENUM6          YES, GET ANOTHER RECORD
      3064   02 00685    4B4011E3              AND,XT   =ENCITEM          REMOVE SIGN EXTENSION
      3065   02 00686    2140C000 A            CI,XT    ENC0              IS IT A SUB LINE NUMBER
      3066   02 00687    6930068C              BNE      LINENUM2          NO, MUST BE A MAJOR LINE NUMBER
      3067                            *
      3068   02 00688    324000B1 04           LW,XT    SOURCE            DON'T BUMP SUB-LINE IF NO SOURCE
      3069   02 00689    68300695              BEZ      LINENUM5
      3070                            *
      3071   02 0068A    33100000 X            MTW,1    SUBLINE           INCREMENT SUB LINE NUMBER
      3072   02 0068B    68000695              B        LINENUM5
      3073   02 0068C                 LINENUM2 RES      0
      3074   02 0068C    2140E001 A            CI,XT    MULTINT+1
      3075   02 0068D    69300691              BNE      LINENUM3          BRANCH IF LINE NUMBER < 8192
      3076   02 0068E    D24400BA 04           NXTENC                     GET LINE NUMBER
             02 0068F    20200001 A
      3077   02 00690    68000692              B        LINENUM4
      3078   02 00691                 LINENUM3 RES      0
      3079   02 00691    4B4011E4              AND,XT   =VFLD             MASK FOR VALUE FIELD
      3080   02 00692                 LINENUM4 RES      0
      3081   02 00692    35400000 X            STW,XT   MAJLINE           SET MAJOR LINE NUMBER
      3082   02 00693    22400000 A            LI,XT    0
      3083   02 00694    35400000 X            STW,XT   SUBLINE           CLEAR SUB LINE NUMBER
      3084   02 00695                 LINENUM5 RES      0
      3085   02 00695    D24400BA 04           NXTENC   ,NOINC            PICK UP NEXT ENCODED TEXT ITEM
      3086   02 00696    20404000 A            AI,XT    ENCTYPE2          LINE IS CONTINUED IF NEXT ITEM IS
      3087   02 00697    E8800091 04           BCR,8    *LINENUMXIT         AN INTEGER (LINE NUMBER)
      3088   02 00698    32F00025 03           LW,ER    SKIPTRIG          SAVE SKIP TRIG
      3089   02 00699    35F000A3 04           STW,ER   OPER
      3090   02 0069A    6A700000 X            BAL,RL   PRINTC           PRINT SOURCE LINE
      3091   02 0069B    32F000A3 04           LW,ER    OPER              RESTORE SKIP TRIG
      3092   02 0069C    35F00025 03           STW,ER   SKIPTRIG
      3093   02 0069D    32400024 03           LW,XT    SF
      3094   02 0069E    354000B1 04           STW,XT   SOURCE            RESTORE SOURCE FLAG
      3095   02 0069F    68000681              B        LINENUM1            AND CONTINUE
      3096   02 006A0                 LINENUM6 RES      0
      3097   02 006A0    6A7007D7              BAL,RL   NXTRECRD          READ NEXT ENCODED TEXT RECORD
      3098   02 006A1    68000681              B        LINENUM1
1
      3100                            *
      3101                            *   L I N E S K I P
      3102                            *        MOVES ENCODED TEXT POINTER (XW) TO THE BEGINNING OF THE NEXT
      3103                            *           LINE.  IT EITHER SKIPS ITEMS UNTIL THE END-OF-LINE ITEM HAS
      3104                            *           BEEN SKIPPED, OR IT OBTAINS THE ORIGIN FROM THE PROCEDURE
      3105                            *           LEVEL TABLE.
      3106                            *
      3107                            *        OUTPUT:  XW CONTAINS THE ADDRESS OF THE NEXT ENCODED TEXT ITEM
      3108                            *          TO BE PROCESSED
      3109                            *
      3110                            *        CALL:    BAL,RL  LINESKIP
      3111                            *
      3112                            *        USES REGISTER
      3113                            *                 LVL
      3114                            *                 RL
      3115                            *                 XT
      3116                            *                 ER
      3117                            *                 XW
      3118                            *
      3119   02 006A2                 LINESKIP RES      0
      3120   02 006A2    33060008 A            MTW,0    SAMP,LVL
      3121   02 006A3    683006AA              BE       LNSKP1            SKIP ITEMS IN CURRENT LINE
      3122   02 006A4    32260008 A            LW,XW    SAMP,LVL          GET ORIGIN FROM PROC LEVEL TABLE
      3123   02 006A5    68000717              B        LOADXW            LOAD XWBASE AND EXIT
      3124                            *
      3125   02 006A6                 LNSKP5   RES      0
      3126   02 006A6    2240000A N            LI,XT    TERR-SERR+SYNERR  INDEX FOR 'T' ERROR
      3127   02 006A7                 LNSKP4   RES      0
      3128   02 006A7    33000021 03           MTW,0    PROCREF           BRANCH IF WITHIN
      3129   02 006A8    693006AA              BNEZ     LNSKP1              A PROCEDURE REFERENCE
      3130                            *
      3131   02 006A9    6AF9FFF6 N            BAL,ER   SERR-SYNERR,XT    REPORT AN 'S' OR 'T' ERROR
      3132   02 006AA                 LNSKP1   RES      0
      3133   02 006AA    D24400BA 04           NXTENC                     GET NEXT ENCODED ITEM
             02 006AB    20200001 A
      3134   02 006AC    21400000 A            CI,XT    ENDLINE
      3135   02 006AD    683E0000 A            EXIT,EQ  RL                EXIT IF END-LINE
      3136   02 006AE    2140000A A            CI,XT    SYNERR
      3137   02 006AF    683006A7              BE       LNSKP4            SYNTAX ERROR
      3138   02 006B0    21400009 A            CI,XT    TRUNERR
      3139   02 006B1    683006A6              BE       LNSKP5            TRUNCATION ERROR
      3140   02 006B2    20402000 A            AI,XT    ENCTYPE1          ADD 1 TO ENCODED TYPE FIELD
      3141   02 006B3    688006AA              BCR,8    LNSKP1            NOT A LARGE INTEGER
      3142   02 006B4    4B4011F0              AND,XT   =LFLD             MASK FOR LENGTH FIELD
      3143   02 006B5    30200004 A            AW,XW    XT                SKIP PAST LARGE INTEGER
      3144   02 006B6    680006AA              B        LNSKP1
1
      3146                            *
      3147                            *   L I S T
      3148                            *        THIS ROUTINE PROCESSES THE LIST DIRECTIVE. LISTSUB IS CALLED
      3149                            *          TO EVALUATE THE OPERAND FIELD. IF ZERO, THE LIST FIELD OF
      3150                            *          VARIABLE NOLIST IS SET TO ONE TO SUPPRESS THE LISTING;
      3151                            *          OTHERWISE THE FIELD IS SET TO ZERO.
      3152                            *
      3153                            *        INPUT:   XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM
      3154                            *                   FOLLOWING THE LIST COMMAND.
      3155                            *
      3156                            *        OUTPUT:  XW CONTAINS AN INDEX TO THE BEGINNING OF THE LINE
      3157                            *                   FOLLOWING THE LIST LINE.
      3158                            *
      3159                            *        USES REGISTERS
      3160                            *                 XT
      3161                            *                 XT1
      3162                            *                 RL
      3163                            *
      3164   02 006B7                 LIST     RES      0
      3165   02 006B7    3300004B 04           MTW,0    CMNDLIST
      3166         001F0000                    IF,NZ                 -10- DOIF CF(2) PRESENT
             02 006B8    683006BB
      3167   02 006B9    6A70049E              CALL     EVAL1EXP          EVALUATE CF(2)
      3168   02 006BA    35400028 03           STW,XT   SOURCEONLY        NON-ZERO SUPRESSES NON-SOURCE LINES
      3169         00F10000                    FI                    -10-
      3170   02 006BB    6A7006C4              BAL,RL   LISTSUB           EVALUATE OPERAND
      3171   02 006BC    35400046 04           STW,XT   TEMP              SAVE RESULT
      3172   02 006BD    6A700831              BAL,RL   PCCSUB            PRINT UNDER PCC CONTROL
      3173   02 006BE    6A700000 N            CALL     PRINTC            PRINT SOURCE IF WITHIN A PROC
      3174   02 006BF    32400046 04           LW,XT    TEMP
      3175   02 006C0    25400001 A            SHIFT,XT 31,LISTLOB        POSITION OPERAND RESULT
      3176   02 006C1    22500002 A            LV,XT1   LISTFLD
      3177   02 006C2    4740001D 03           STS,XT   NOLIST            STORE LISTING CONTROL FIELD
      3178   02 006C3    68000643              B        GENR
1
      3180                            *
      3181                            *   L I S T S U B
      3182                            *        THIS ROUTINE PROCESSES THE OPERAND FIELD OF DIRECTIVES WHICH
      3183                            *          CONTROL THE LISTING OUTPUT. EVAL1EXP IS CALLED TO EVALUATE
      3184                            *          THE OPERAND FIELD. IF ZERO, A ONE IS RETURNED IN XT; IF
      3185                            *          NON-ZERO, A ZERO IS RETURNED IN XT.
      3186                            *
      3187                            *        OUTPUT:  XT CONTAINS A ZERO IF THE VALUE OF THE OPERAND FIELD
      3188                            *                   IS NON-ZERO; OTHERWISE XT CONTAINS A ONE.
      3189                            *
      3190                            *        CALL:    BAL,RL  LISTSUB
      3191                            *
      3192                            *        USES REGISTERS
      3193                            *                 XT
      3194                            *                 RL
      3195                            *
      3196   02 006C4                 LISTSUB  RES      0
      3197   02 006C4    35700050 04           STW,RL   LISTXIT
      3198   02 006C5    6A70049D              CALL     EV1OPRNDEXP       EVALUATE ONE OPERAND EXPRESSION
      3199   02 006C6    22400001 A            LI,XT    1
      3200   02 006C7    33000046 04           MTW,0    TEMP              IF OPERAND IS ZERO, EXIT WITH A
      3201   02 006C8    E8300050 04           BEZ      *LISTXIT            ONE IN XT
      3202   02 006C9    22400000 A            LI,XT    0                 OTHERWISE,
      3203   02 006CA    E8000050 04           B        *LISTXIT            EXIT WITH A ZERO
1
      3205                            *
      3206                            *   L I T S R C H
      3207                            *        THIS ROUTINE SEARCHES FOR A VALUE IN THE LITERAL TABLE
      3208                            *
      3209                            *        INPUT:   ARG CONTAINS A POINTER TO THE VALUE TO BE SEARCHED FOR
      3210                            *                 LITTABLE CONTAINS AN INDEX TO THE FIRST ENTRY IN THE
      3211                            *                   LITERAL TABLE
      3212                            *                 NLITS CONTAINS THE NUMBER OF ENTRIES IN THE LITERAL
      3213                            *                   TABLE
      3214                            *
      3215                            *        OUTPUT:  XT CONTAINS A ZERO IF THE VALUE IS NOT FOUND IN THE
      3216                            *                   LITERAL TABLE; IT IS NON-ZERO IF THE VALUE WAS FOUND
      3217                            *
      3218                            *        USES REGISTERS
      3219                            *                 XT, XT1, RL, TR0, TR1
      3220                            *
      3221   02 006CB                 LITSRCH  RES      0
      3222   02 006CB    35700093 04           STW,RL   LITSRCHXIT
      3223   02 006CC    22400003 03           LI,XT    LITTABLE          ADDRESS OF WORD CONTAINING OFFSET
      3224   02 006CD    3540008F 04           STW,XT   LFND                TO FIRST LITERAL TABLE ENTRY
      3225   02 006CE    22400000 A            LI,XT    0
      3226   02 006CF    354000A1 04           STW,XT   OFFSET            NUMBER OF ENTRIES SEARCHED
      3227   02 006D0    32400066 04           LW,XT    ARG
      3228   02 006D1    6A70060D              BAL,RL   LENGTH            GET LENGTH OF ITEM POINTED TO BY ARG
      3229   02 006D2    3550008C 04           STW,XT1  LARG              STORE LENGTH OF ARG
      3230                                     LV,TR1   SPAFLD+SPINTFLD+ARFLD+EXTFLD;  MASK FOR ADDRESS
      3231   02 006D3    32901204                       +CSFLD+ADDFLD+1**(31-DEFLOB)     ITEMS
      3232   02 006D4    32480000 A            LW,XT    0,XT
      3233   02 006D5    21500001 A            CI,XT1   1
      3234   02 006D6    693006F1              BNE      LITSRCH5          LENGTH IS NOT ONE WORD
      3235   02 006D7    314011E7              BFZ,XT,1 SPAFLD,LITSRCH1   BRANCH IF ARGUMENT IS
             02 006D8    684006DC
      3236   02 006D9    314011DE              BFZ,XT   SPINTFLD,LITSRCH1   NOT A SPECIAL INTEGER
             02 006DA    684006DC
      3237                                     LV,TR1   SPAFLD+SPINTFLD+VALFLD;        MASK FOR SPECIAL
      3238   02 006DB    32901205                       +1**(31-DEFLOB)                   INTEGER ITEMS
      3239   02 006DC                 LITSRCH1 RES      0
      3240   02 006DC    B240008F 04           LW,XT    *LFND             INDEX TO NEXT LITERAL ENTRY
      3241   02 006DD    E8300093 04           BEZ      *LITSRCHXIT       END OF LITERAL CHAIN, EXIT
      3242   02 006DE    30400037 03           AW,XT    SYMT
      3243   02 006DF    3540008F 04           STW,XT   LFND              STORE ADDRESS OF LITERAL ENTRY
      3244   02 006E0    20400001 A            AI,XT    1
      3245   02 006E1    6A70060D              BAL,RL   LENGTH            GET LENGTH OF LITERAL ENTRY
      3246   02 006E2    3150008C 04           CW,XT1   LARG
      3247   02 006E3    693006E8              BNE      LITSRCH3          ITEMS ARE OF DIFFERENT LENGTHS
      3248   02 006E4    645006EA              BDR,XT1  LITSRCH4          NOT SINGLE WORD ITEMS
      3249   02 006E5                 LITSRCH2 RES      0
      3250   02 006E5    B2800066 04           LW,TR0   *ARG              COMPARE FINAL WORD OF ARGUMENT
      3251   02 006E6    45880000 A            CS,TR0   0,XT                TO LITERAL TABLE WORD MASKED
      3252   02 006E7    E8300093 04           BE       *LITSRCHXIT       ITEMS MATCH, EXIT
      3253   02 006E8                 LITSRCH3 RES      0
      3254   02 006E8    331000A1 04           MTW,1    OFFSET            INCREMENT SEARCH COUNT
      3255   02 006E9    680006DC              B        LITSRCH1
      3256   02 006EA                 LITSRCH4 RES      0
      3257   02 006EA    B28A0066 04           LW,TR0   *ARG,XT1          COMPARE ARGUMENT TO LITERAL
      3258   02 006EB    C58A0004 A            CS,TR0   *XT,XT1             TABLE ENTRY MASKED
      3259   02 006EC    693006E8              BNE      LITSRCH3          ITEMS ARE NOT EQUAL
      3260   02 006ED    645006EA              BDR,XT1  LITSRCH4          CONTINUE FOR ENTIRE ARGUMENT
      3261   02 006EE    31880001 A            CW,TR0   1,XT              ENTIRE 2ND WORDS MUST COMPARE
      3262   02 006EF    693006E8              BNE      LITSRCH3            OR ITEMS ARE NOT EQUAL
      3263   02 006F0    680006E5              B        LITSRCH2
      3264   02 006F1                 LITSRCH5 RES      0
      3265   02 006F1    327011F3              LV,RL    CTYPEFLD
      3266   02 006F2    4B700004 A            AND,RL   XT
      3267   02 006F3    4B4011E8              AND,XT   =TYPEFLD
      3268   02 006F4    21410000 A            CV,XT    CONSTANT
      3269   02 006F5    693006DC              BNE      LITSRCH1          ARG IS NOT A CONSTANT
      3270   02 006F6    317011F4              CV,RL    CHSTR
      3271   02 006F7    6930070D              BNE      LITSRCH8          ARG IS NOT A CHARACTER CONSTANT
      3272                            *   HERE TO CONVERT A CHARACTER CONSTANT TO AN INTEGER CONSTANT
      3273   02 006F8    33100066 04           MTW,1    ARG               POINT TO WORD FOLLOWING CONTROL WORD
      3274   02 006F9    22400000 A            LI,XT    0
      3275   02 006FA    3540003F 04           STW,XT   LVAL+1
      3276   02 006FB    F2400066 04           LB,XT    *ARG              LOAD CHARACTER COUNT
      3277   02 006FC    68300707              BEZ      LITSRCH7          NO CHARACTERS TO CONVERT
      3278   02 006FD    32500004 A            LW,XT1   XT
      3279   02 006FE    20500007 A            AI,XT1   7
      3280   02 006FF    2550007E A            SLS,XT1  -2                (BYTE COUNT+7)/4 IS NUMBER OF WORDS
      3281   02 00700    3550008C 04           STW,XT1  LARG                INCLUDING CONTROL WORD
      3282   02 00701    25500002 A            SLS,XT1  2
      3283   02 00702    205FFFFB A            AI,XT1   -5                (#WORDS*4)-5 IS LAST CHAR POSTION
      3284   02 00703                 LITSRCH6 RES      0
      3285   02 00703    F2780066 04           LB,RL    *ARG,XT           CONVERT CHARACTER CONSTANT TO AN
      3286   02 00704    757A003F 04           STB,RL   LVAL+1,XT1          INTEGER CONSTANT IN A NEW AREA
      3287   02 00705    205FFFFF A            AI,XT1   -1
      3288   02 00706    64400703              BDR,XT   LITSRCH6
      3289   02 00707                 LITSRCH7 RES      0
      3290   02 00707    32401206              LV,XT    DEFFLD+CONSTANT+SPI
      3291   02 00708    3040008C 04           AW,XT    LARG
      3292   02 00709    3540003E 04           STW,XT   LVAL              CONTROL WORD FOR INTEGER CONSTANT
      3293   02 0070A    2240003E 04           LI,XT    LVAL
      3294   02 0070B    35400066 04           STW,XT   ARG               POINTER TO INTEGER CONSTANT
      3295   02 0070C    3250008C 04           LW,XT1   LARG
      3296   02 0070D                 LITSRCH8 RES      0
      3297                                     LV,TR1   SPAFLD+SPINTFLD+TYPEFLD;       MASK FOR CONSTANTS
      3298   02 0070D    32901207                       +LENGTHFLD+1**(31-DEFLOB)
      3299   02 0070E    21500003 A            CI,XT1   3
      3300   02 0070F    691006DC              BL       LITSRCH1          CONSTANT IS 32 BITS OR LESS
      3301   02 00710    32401208              LV,XT    DPI-SPI           CHANGE CONTROL WORD FROM AN SPI
      3302   02 00711    6640003E 04           AWM,XT   LVAL                CONSTANT TO A DPI CONSTANT
      3303   02 00712    6AF00000 X            BAL,ER   TERR              TRUNCATION ERROR
      3304   02 00713    680006DC              B        LITSRCH1
1
      3306                            *
      3307                            *   L O A D X M
      3308                            *        LOADS XM WITH INDEX TO NEXT ENCODED TEXT ITEM AND XMBASE
      3309                            *          WITH THE BASE ADDRESS OF THE ENCODED TEXT.
      3310                            *
      3311                            *        CALL:    BAL,RL  LOADXM
      3312                            *
      3313                            *        USES REGISTER
      3314                            *                 XM XT
      3315                            *
      3316   02 00714                 LOADXM   RES      0
      3317   02 00714    224000BB 04           LI,XT    XMBASE            SET BASE TO XMBASE
      3318   02 00715    70200001 A            LC       XM
      3319   02 00716    68000719              B        LOADXW1
1
      3321                            *
      3322                            *   L O A D X W
      3323                            *        LOADS XW WITH INDEX TO NEXT ENCODED TEXT ITEM AND XWBASE WITH
      3324                            *           THE BASE ADDRESS OF THE ENCODED TEXT. THE BASE MAY BE ONE
      3325                            *           OF THREE ADDRESSES AS DETERMINED BY BITS 0 AND 1 OF XW.
      3326                            *                 00 INDICATES THE ADDRESS OF INBUF
      3327                            *                 01 INDICATES THE ADDRESS CONTAINED IN SYMT
      3328                            *                 10 INDICATES THE ADDRESS CONTAINED IN KLINE
      3329                            *
      3330                            *        CALL:    BAL,RL  LOADXW
      3331                            *
      3332                            *        USES REGISTER
      3333                            *                 XT
      3334                            *                 XW
      3335                            *
      3336   02 00717    224000BA 04  LOADXW   LI,XT    XWBASE            SET BASE TO XWBASE
      3337   02 00718    70200002 A            LC       XW
      3338   02 00719    35700094 04  LOADXW1  STW,RL   LOADXWRTN         SAVE RETURN LINK
      3339   02 0071A    22700000 N            LI,RL    INBUF
      3340   02 0071B    68C0071F              BCR,12   LOADXW2           BASE ADDRESS IS INBUF
      3341   02 0071C    32700037 03           LW,RL    SYMT
      3342   02 0071D    6940071F              BCS,4    LOADXW2           BASE ADDRESS IS SYMT
      3343   02 0071E    32700035 03           LW,RL    KLINE             BASE ADDRESS IS PARTIC BUF
      3344   02 0071F    B5700004 A   LOADXW2  STW,RL   *XT               SET APPROPRIATE BASE ADDRESS
      3345   02 00720    E8000094 04           B        *LOADXWRTN        RETURN
1
      3347                            *
      3348                            *   L O C
      3349                            *        THIS ROUTINE PROCESSES THE LOC DIRECTIVE.  ORGORLOC IS CALLED
      3350                            *          TO PROCESS THE COMMAND AND OPERAND FIELDS, STORE DLRVAL,
      3351                            *          DLRCS, AND DLRRS, AND DEFINE THE LABEL. LOC THEN EDITS BOTH
      3352                            *          LOCATION COUNTERS INTO THE LISTING LINE IMAGE AND RETURNS
      3353                            *          TO GENR.
      3354                            *
      3355                            *        USES REGISTERS
      3356                            *                 XT
      3357                            *                 RL
      3358                            *
      3359   02 00721                 LOC      RES      0
      3360   02 00721    6A7007F4              BAL,RL   ORGORLOC          PROCESS COMMAND AND OPERAND FIELDS
      3361   02 00722                 LOC1     RES      0
      3362   02 00722    6A700298              CALL     DEFHEXLBL         DEFINE THE LABEL
      3363   02 00723    33000021 03           MTW,0    PROCREF
      3364   02 00724    69300643              BNEZ     GENR              DON'T PRINT WITHIN A PROC REFERENCE
      3365   02 00725    6A700000 X            BAL,RL   EDITDLR           EDIT % LOCATION COUNTER
      3366   02 00726    6A700000 X            BAL,RL   PRINT             PRINT % VALUE,LINE NUMBER,& SOURCE
      3367   02 00727    6A700000 X            BAL,RL   EDITDDLR          EDIT %% LOCATION COUNTER
      3368   02 00728    6A700000 X            BAL,RL   PRINT             PRINT %% VALUE ONLY
      3369   02 00729    68000643              B        GENR
1
      3371                            *
      3372                            *   L O C A L
      3373                            *        PROCESSES THE LOCAL DIRECTIVE.  THIS IS AN OPEN ROUTINE
      3374                            *          WHICH IS BRANCHED TO FROM MAIN CONTROL.
      3375                            *
      3376                            *
      3377                            *
      3378                            *
      3379                            *
      3380                            *
      3381   02 0072A                 LOCAL    RES      0
      3382   02 0072A    6A700744              BAL,RL   LOCALSTA
      3383   02 0072B    68000642              B        LINE5
1
      3385                            *
      3386                            *   L O C A L A D D
      3387                            *        FINDS THE ADDRESS OF A SYMBOL IN THE LOCAL SYMBOL TABLE.
      3388                            *
      3389                            *        INPUT:   XT CONTAINS THE ENCODED LOCAL SYMBOL NUMBER.
      3390                            *                 PROCREF CONTAINS THE PROCEDURE REFERENCE LEVEL
      3391                            *
      3392                            *        OUTPUT:  PLVL CONTAINS THE PROCEDURE LEVEL OF THE LOCAL SYMBOL
      3393                            *                 FND CONTAINS THE ADDRESS OF THE LOCAL SYMBOL
      3394                            *
      3395                            *        CALL:    BAL,RL  LOCALADD
      3396                            *
      3397                            *        USES REGISTERS
      3398                            *                 LVL
      3399                            *                 LVLT
      3400                            *                 XT
      3401                            *                 CT
      3402                            *                 RL
      3403                            *                 XT1
      3404                            *
      3405   02 0072C                 LOCALADD RES      0
      3406   02 0072C    225000FF A            LI,XT1   LFLD              MASK FOR ENCODED LENGTH FIELD
      3407   02 0072D    4B500004 A            AND,XT1  XT                SYMBOL NUMBER TO XT1
      3408   02 0072E    4B401209              AND,XT   =CTFLD
      3409   02 0072F    25400078 A            SHIFT,XT CTLOB,31          RIGHT JUSTIFY CT FIELD
      3410   02 00730    354000A6 04           STW,XT   PLVL              LOCAL SYMBOLS PROCEDURE LEVEL
      3411   02 00731    32600003 A            LW,LVLT  LVL
      3412   02 00732    32E00021 03           LW,CT    PROCREF           DETERMINE THE NUMBER OF LEVELS TO
      3413   02 00733    38E000A6 04           SW,CT    PLVL                SKIP TO GET CORRECT PROC. LVL. TAB
      3414   02 00734    68300739              BEZ      LCLADD2           CORRECT PROCEDURE LEVEL TABLE
      3415   02 00735    38600035 03           SW,LVLT  KLINE
      3416   02 00736                 LCLADD1  RES      0
      3417   02 00736    B26C0035 03           LW,LVLT  *KLINE,LVLT       INDEX TO PREVIOUS PROC. LVL TABLE
      3418   02 00737    64E00736              BDR,CT   LCLADD1           CONTINUE UNTIL CORRECT ONE
      3419   02 00738    30600035 03           AW,LVLT  KLINE
      3420   02 00739                 LCLADD2  RES      0                 PROCEDURE LEVEL TABLE FOR LOCAL SYM
      3421   02 00739    324C0009 A            LW,XT    LOCALORG,LVLT     ORIGIN OF LOCAL SYMBOL TABLE
      3422   02 0073A    4B4011F7              AND,XT   =LOCALORGFLD
      3423   02 0073B    30400037 03           AW,XT    SYMT
      3424   02 0073C    38400005 A            SW,XT    XT1                 LESS LOCAL SYMBOL NUMBER
      3425   02 0073D    35400098 04           STW,XT   MAIN                IS ADDRESS OF LOCAL SYMBOL
      3426   02 0073E    32580000 A            LW,XT1   0,XT              FIXED TABLE ENTRY
      3427   02 0073F    69100742              BFNZ,XT1 SPAFLD,LCLADD3    SPEC. ADDR.
      3428   02 00740    32400005 A            LW,XT    XT1
      3429   02 00741    30400037 03           AW,XT    SYMT
      3430   02 00742                 LCLADD3  RES      0
      3431   02 00742    35400086 04           STW,XT   FND               ADDRESS OF THE LOCAL
      3432   02 00743    680E0000 A            EXIT     RL
1
      3434                            *
      3435                            *   L O C A L S T A
      3436                            *        DOES THE ACTUAL PROCESSING OF THE LOCAL DIRECTIVE. THIS IS A
      3437                            *          CLOSED SUBROUTINE BECAUSE LOCAL DIRECTIVES ARE PROCESSED
      3438                            *          EVEN WHEN XAP IS SKIPPING LINES.
      3439                            *
      3440                            *        INPUT:   LOCALFLG IS ZERO IF THE PREVIOUS LINE WAS A LOCAL
      3441                            *                 NXTLOCAL CONTAINS THE ADDRESS OF THE NEXT AVAILABLE
      3442                            *                   LOCAL SYMBOL.
      3443                            *
      3444                            *        OUTPUT:  NXTLOCAL IS DERREASED BY THE NUMBER OF SYMBOLS
      3445                            *                   APPEARING ON THE LOCAL DIRECTIVE.
      3446                            *                 LOCALCT IS INCREASED BY THE NUMBER OF SYMBOLS
      3447                            *                   APPEARING ON THE LOCAL DIRECTIVE
      3448                            *                 THE  LOCAL SYMBOL TABLE IS SET TO SPECIAL ADDRESS
      3449                            *                   TYPE, UNDEFINED.
      3450                            *
      3451                            *        CALL:    BAL,RL  LOCALSTA
      3452                            *
      3453                            *        USES REGISTERS
      3454                            *                 XT
      3455                            *                 XW
      3456                            *                 LVL
      3457                            *                 XT1
      3458                            *
      3459   02 00744                 LOCALSTA RES      0
      3460   02 00744    35700095 04           STW,RL   LOCALXIT
      3461   02 00745    32400017 03           LW,XT    LOCALFLG
      3462   02 00746    6830074B              BEZ      LCLSTA1           PREVIOUS STATEMENT WAS LOCAL
      3463   02 00747    6A7005F9              BAL,RL   LCLDLTE           DELETE LOCAL SYMBOL TABLE
      3464   02 00748    22400000 A            LI,XT    0
      3465   02 00749    3250120A              LV,XT1   LOCALCTFLD
      3466   02 0074A    47460009 A            STS,XT   LOCALCT,LVL       SET LOCAL SYMBOL COUNT TO ZERO
      3467   02 0074B                 LCLSTA1  RES      0
      3468   02 0074B    D24400BA 04           NXTENC   ,NOINC            GET NUMBER OF LOCAL SYMBOLS
      3469   02 0074C    4B4011E4              AND,XT   =VFLD             NUMBER OF LOCAL SYMBOLS
      3470   02 0074D    68300759              BEZ      LCLSTA3           NO LOCAL SYMBOLS
      3471   02 0074E    32560009 A            LW,XT1   LOCALCT,LVL
      3472   02 0074F    72700005 A            LB,RL    XT1               COUNT OF LOCAL SYMBOLS
      3473   02 00750    30700004 A            AW,RL    XT                ADD NUMBER OF LOCAL SYMBOLS FOR THIS
      3474   02 00751    75700005 A            STB,RL   XT1                 LOCAL STATEMENT TO ACCUMULATED
      3475   02 00752    35560009 A            STW,XT1  LOCALCT,LVL         COUNT
      3476   02 00753    3540008C 04           STW,XT   LARG
      3477   02 00754    6A7004D3              BAL,RL   FINDLSPC          FIND SPACE IN LOCAL TABLE
      3478   02 00755    3240008C 04           LW,XT    LARG
      3479   02 00756    327011E7              LV,RL    SPAFLD
      3480   02 00757                 LCLSTA2  RES      0
      3481   02 00757    B578009F 04           STW,RL   *NXTLOCAL,XT      INITIALIZE THE LOCAL SYMBOL TABLE
      3482   02 00758    64400757              BDR,XT   LCLSTA2             FOR NUMBER OF ENTRIES ADDED
      3483   02 00759                 LCLSTA3  RES      0
      3484   02 00759    225FFFFF A            LI,XT1   -1
      3485   02 0075A    35500017 03           STW,XT1  LOCALFLG          SET FLAG FOR MAIN CONTROL
      3486   02 0075B    E8000095 04           B        *LOCALXIT         EXIT
1
      3488                            *
      3489                            *   L O L I M I T
      3490                            *        THIS ROUTINE CHECKS FOR TABLE OVERLAP AT THE LOW END OF CORE.
      3491                            *          IF THE END OF THE NON-LOCAL TABLES OVERLAPS THE END OF THE
      3492                            *          EXPRESSION CONTROL TABLE, KLINE IS MOVED TO A HIGHER CORE
      3493                            *          ADDRESS.  IF THIS CAUSES THE END OF THE EXPRESSION VALUE
      3494                            *          TABLE TO OVERLAP THE END OF THE LOCAL SYMBOL TABLE, XAP WILL
      3495                            *          ABORT. OTHERWISE, KLINE WILL BE ADJUSTED SUCH THAT AN EQUAL
      3496                            *          AMOUNT OF SPACE IS AVAILABLE TO TABLES CONVERGING AT BOTH
      3497                            *          ENDS OF KLINE.
      3498                            *
      3499                            *        INPUT:   NXTSYMT CONTAINS THE ADDRESS OF THE NEXT AVAILABLE
      3500                            *                   GLOBAL SYMBOL TABLE WORD
      3501                            *                 NXTLOCAL CONTAINS THE ADDRESS OF THE NEXT AVAILABLE
      3502                            *                   LOCAL SYMBOL TABLE WORD
      3503                            *                 ECT CONTAINS AN OFFSET FROM KLINE TO THE NEXT
      3504                            *                   EXPRESSION CONTROL TABLE WORD
      3505                            *                 EVT CONTAINS AN OFFSET FROM KLINE TO THE NEXT
      3506                            *                   EXPRESSION VALUE TABLE WORD
      3507                            *
      3508                            *        OUTPUT:  THE AMOUNT OF ADJUSTMENT TO KLINE IS IN REGISTER XT1
      3509                            *
      3510                            *        CALL:    BAL,RL  LOLIMIT
      3511                            *
      3512                            *        USES REGISTERS
      3513                            *                 XT
      3514                            *                 XT1
      3515                            *                 RL
      3516                            *                 ER
1
      3518                            *       *         ORIGIN OF LOCAL SYMBOL TABLE AREA        HIGH CORE
      3519                            *       *
      3520                            *     * * *
      3521                            *      * *
      3522                            *       *         END OF LOCAL SYMBOL TABLE AREA
      3523                            *
      3524                            *
      3525                            *       *         END OF EXPRESSION VALUE TABLE
      3526                            *      * *
      3527                            *     * * *
      3528                            *       *
      3529                            *       *         KLINE
      3530                            *       *
      3531                            *     * * *
      3532                            *      * *
      3533                            *       *         END OF EXPRESSION CONTROL TABLE
      3534                            *
      3535                            *
      3536                            *       *         END OF NON-LOCAL TABLE AREA
      3537                            *      * *
      3538                            *     * * *
      3539                            *       *
      3540                            *       *         ORIGIN OF NON-LOCAL TABLE AREA           LOW CORE
      3541   02 0075C                 LOLIMIT  RES      0
      3542   02 0075C    324000A0 04           LW,XT    NXTSYMT           IF THE GLOBAL SYMBOL TABLE DOES NOT
      3543   02 0075D    38400035 03           SW,XT    KLINE               OVERLAP THE EXPRESSION CONTROL
      3544   02 0075E    38460002 A            SW,XT    ECT,LVL             TABLE, KLINE DOES NOT NEED TO BE
      3545   02 0075F    682E0000 A            EXIT,LE  RL                  ADJUSTED TO A HIGHER CORE ADDRESS
      3546   02 00760    68000000 X            B        HILIMIT4
1
      3548                            *
      3549                            *   L S R C H
      3550                            *        SEARCHES FOR A VALUE IN THE LITERAL TABLE AND ENTERS THE VALUE
      3551                            *          IF IT IS NOT FOUND.
      3552                            *
      3553                            *        INPUT:   THE TOP ENTRY IN THE EXPRESSION CONTROL TABLE CONTAINS
      3554                            *                   AN INDEX TO THE VALUE OF THE LITERAL.
      3555                            *                 LITTABLE CONTAINS AN INDEX TO THE FIRST ENTRY IN THE
      3556                            *                   LITERAL TABLE
      3557                            *                 NLITS CONTAINS THE NUMBER OF ENTRIES IN THE LITERAL
      3558                            *                   TABLE.
      3559                            *
      3560                            *        OUTPUT:  FND CONTAINS THE ADDRESS OFFSET FOR THE LITERAL.
      3561                            *                 LITCS CONTAINS THE CONTROL SECTION NUMBER FOR THE
      3562                            *                   LITERAL
      3563                            *
      3564                            *        CALL:    BAL,RL  LSRCH
      3565                            *
      3566                            *        USES REGISTERS
      3567                            *                 RL
      3568                            *                 XT
      3569                            *                 XT1
      3570                            *                 LVL
      3571                            *
      3572   02 00761                 LSRCH    RES      0
      3573   02 00761    35700096 04           STW,RL   LSRCHXIT
      3574   02 00762    32460002 A            LW,XT    ECT,LVL           INDEX TO EXPRESSION CONTROL TABLE
      3575   02 00763    20400001 A            AI,XT    1
      3576   02 00764    B2480035 03           LW,XT    *KLINE,XT         LOAD EXPRESSION CONTROL TABLE ENTRY
      3577   02 00765    30400035 03           AW,XT    KLINE
      3578   02 00766    35400066 04           STW,XT   ARG               ADDRESS OF ENTRY IN EXP VALUE TABLE
      3579   02 00767    33000006 03           MTW,0    PASS
      3580   02 00768    6920076C              BGZ      LSRCH1            IN GENERATION PASS
      3581   02 00769    32501201              LV,XT1   ETFLD+EXPFLD      DON'T SEARCH FOR UNDEFINED OR
      3582   02 0076A    4540120B              CS,XT    =UGLBLET+EXPFLD     LOCAL FORWARD EXPRESSIONS DURING
      3583   02 0076B    68300779              BE       LSRCH2              THE DEFINITION PASS
      3584   02 0076C                 LSRCH1   RES      0
      3585   02 0076C    6A7006CB              BAL,RL   LITSRCH           SEARCH THE LITERAL TABLE
      3586   02 0076D    21400000 A            CI,XT    0
      3587   02 0076E    6930077A              BNE      LSRCH3            ARG FOUND IN LITERAL TABLE
      3588   02 0076F    3310008C 04           MTW,1    LARG              LENGTH OF ARG +1 FOR LITERAL LINK
      3589   02 00770    6A7004D8              BAL,RL   FINDSPC           FIND SPACE FOR NEW LITERAL VALUE
      3590   02 00771    33F0008C 04           MTW,-1   LARG              RESTORE LENGTH OF ARG
      3591   02 00772    22400000 A            LI,XT    0
      3592   02 00773    B5400086 04           STW,XT   *FND              ZERO THIS ENTRY'S LINK
      3593   02 00774    32400086 04           LW,XT    FND
      3594   02 00775    38400037 03           SW,XT    SYMT
      3595   02 00776    B540008F 04           STW,XT   *LFND             LINK PREVIOUS LITERAL TO THIS ENTRY
      3596   02 00777    33100086 04           MTW,1    FND
      3597   02 00778    6A7007C9              BAL,RL   NEWENTRY          STORE ARGUMENT IN LITERAL TABLE
      3598   02 00779                 LSRCH2   RES      0
      3599   02 00779    33100005 03           MTW,1    NLITS             INCREMENT NUMBER OF LITERAL ENTRIES
      3600   02 0077A                 LSRCH3   RES      0
      3601   02 0077A    32400002 03           LW,XT    LITORG            ORIGIN FOR LITERAL ASSIGNMENT
      3602   02 0077B    304000A1 04           AW,XT    OFFSET
      3603   02 0077C    35400086 04           STW,XT   FND               LITERAL'S ASSIGNED ADDRESS
      3604   02 0077D    E8000096 04           B        *LSRCHXIT
1
      3606                            *
      3607                            *   M A X L O C
      3608                            *        MAINTAINS THE MAXIMUM VALUE OF THE LOAD LOCATION COUNTER IN
      3609                            *          THE CONTROL SECTION TABLE
      3610                            *
      3611                            *        INPUT:   DDLRCS CONTAINS THE CURRENT CONTROL SECTION NUMBER.
      3612                            *                 DDLRVAL CONTAINS THE OFFSET AT BYTE RESOLUTION.
      3613                            *
      3614                            *        OUTPUT:  MAXDD CONTAINS THE MAXIMUM OFFSET FOR THIS CONTROL
      3615                            *                   SECTION AT BYTE RESOLUTION
      3616                            *
      3617                            *        CALL     BAL,RL  MAXLOC
      3618                            *
      3619                            *        USES REGISTERS
      3620                            *                 XT
      3621                            *                 XT1
      3622                            *                 XT2
      3623                            *                 RL
      3624                            *
      3625   02 0077E                 MAXLOC   RES      0
      3626   02 0077E    35700099 04           STW,RL   MAXLOCXIT
      3627   02 0077F    3260000B 03           LW,XT2   DDLRCS            %% CONTROL SECTION NUMBER
      3628   02 00780    6A700000 X            BAL,RL   GETCSADD          GET CONTROL SECTION TABLE ADDRESS
      3629   02 00781    2257FFFF A            LV,XT1   MAXDDFLD          MASK FOR MAXDD FIELD
      3630   02 00782    3240000F 03           LW,XT    DDLRVAL           %% OFFSET
      3631   02 00783    454C0001 A            CS,XT    MAXDD,XT2
      3632   02 00784    E8200099 04           BLE      *MAXLOCXIT        CURRENT %% OFFSET NOT MAXIMUM
      3633   02 00785    474C0001 A            STS,XT   MAXDD,XT2         UPDATE MAXIMUM %% OFFSET
      3634   02 00786    E8000099 04           B        *MAXLOCXIT
1
      3636                            *
      3637                            *  M V : L I S T
      3638                            *        MOVE A DUMMY LIST CONTROL WORD TO THE ECT, AND A
      3639                            *          LIST CONTROL ITEM TO THE EVT
      3640                            *
      3641   02 00787                 MV:LIST  RES      0
      3642   02 00787    324011ED              LV,XT    DLISTET           SET DD%TYPE TO
      3643   02 00788    35400060 04           STW,XT   DD%TYPE             DUMMY LIST
      3644   02 00789    22408000 A            LV,XT    LISTS             CREATE A TWO-WORD
      3645   02 0078A    304000A5 04           AW,XT    PASSDEF             EVT LIST ITEM
      3646   02 0078B    22500001 A            LI,XT1   1                   IN TEMP
      3647   02 0078C    1540003E 04           STD,XT   LVAL
      3648   02 0078D    2240003E 04           LI,XT    LVAL              ADDRESS -> XT
      3649   02 0078E    22500002 A            LI,XT1   2                 SIZE -> XT1
      3650   02 0078F    68000EA3              B        SCPUSH            BRANCH TO PUSH AND EXIT MV:LIST
      3651                            *
      3652                            *  M O V E B L A N K
      3653                            *        MOVE A BLANK EXPRESSION ONTO EVT,ECT
      3654                            *
      3655   02 00790                 MOVEBLANK  RES    0
      3656   02 00790    3240120C              LV,XT    BLANKET
      3657   02 00791    35400060 04           STW,XT   DD%TYPE
      3658   02 00792    20620001 A            AV,XT2   BLANKITM
      3659   02 00793    22500001 A            LI,XT1   1                 SIZE OF THIS ITEM
      3660   02 00794    22400006 A            LI,XT    XT2               ADDRESS OF THIS ITEM
      3661   02 00795    68000EA3              B        SCPUSH            BRANCH TO PUSH TMP AND EXIT MOVEBLNK
      3662                            *
      3663                            *  M O V E S Y M I T E M
      3664                            *        MOVE N ITEMS FROM THE SYMBOL TABLE TO THE EVT.
      3665                            *
      3666                            *          INPUT: ADDRESS OF THE FIRST SYMT ITEM IN FND.
      3667                            *                 NUMBER OF ITEMS IS IN XT (MAY BE ZERO)
      3668                            *
      3669                            *         OUTPUT: SYMT ITEMS ARE IN THE EVT.
      3670                            *                 FND POINTS TO THE WORD AFTER THE LAST SYMT ITEM MOVED
      3671                            *
      3672   02 00796                 MOVESYMITEM  RES  0
      3673   02 00796    3570009A 04           STW,RL   MOVESYMXIT
      3674   02 00797    35400046 04           STW,XT   TEMP              SAVE NUMBER OF ITEMS
      3675   02 00798                 MVSYM1   RES      0
      3676   02 00798    33F00046 04           MTW,-1   TEMP              DECREASE COUNT AND
      3677   02 00799    E910009A 04           BLZ      *MOVESYMXIT         EXIT WHEN DONE
      3678   02 0079A    32400086 04           LW,XT    FND               FIND LENGTH
      3679   02 0079B    6A70060D              BAL,RL   LENGTH              OF THIS ITEM
      3680   02 0079C    66500086 04           AWM,XT1  FND
      3681   02 0079D    6A700EB0              BAL,RL   SCPSHV            INSERT IN THE EVT
      3682   02 0079E    68000798              B        MVSYM1
1
      3684                            *
      3685                            *   N E W C S E C T
      3686                            *        SAVES THE LOCATION COUNTERS AND GENERATES A NEW CONTROL
      3687                            *                   SECTION TABLE IF REQUIRED.
      3688                            *
      3689                            *        INPUT:   CS CONTAINS THE CONTROL SECTION TYPE.
      3690                            *                 PROTYPE CONTAINS THE PROTECTION TYPE
      3691                            *                 DATAGEN CONTAINS A NON-ZERO VALUE IF A NEW CONTROL
      3692                            *                   SECTION IS TO BE OPENED.
      3693                            *
      3694                            *        OUTPUT:  MAXCSECT CONTAINS THE NUMBER OF CONTROL SECTIONS OPEN.
      3695                            *
      3696                            *        USES REGISTERS
      3697                            *                 XT, XT1, XT2, RL, ER
      3698                            *
      3699   02 0079F                 NEWCSECT RES      0
      3700   02 0079F    3570009C 04           STW,RL   NEWCSXIT
      3701   02 007A0    6A7010AB              CALL     SOCW%CHK          SOCW AND RELOC SECTIONS DON'T MIX
      3702   02 007A1    32600033 03           LW,XT2   CS0LOC            ADDRESS OF CONTROL SECTION ZERO
      3703   02 007A2    32400009 03           LW,XT    DATAGEN           BRANCH IF DATA HAS BEEN GENERATED,
      3704   02 007A3    693007A6              BNEZ     NEWCS1              OR IF % OR %% WERE REFERENCED
      3705                            *                                     FROM A RELOCATABLE SECTION
      3706   02 007A4    33100009 03           MTW,1    DATAGEN
      3707   02 007A5    680007B8              B        NEWCS7
      3708   02 007A6                 NEWCS1   RES      0
      3709   02 007A6    32400019 03           LW,XT    MAXCSECT          NUMBER OF CONTROL SECTIONS OPEN
      3710   02 007A7    2140007F A            CI,XT    127
      3711   02 007A8    691007AB              BL       NEWCS2
      3712   02 007A9    6AF00000 X            BAL,ER   IERR              MORE THAN 127 CONTROL SECTIONS
      3713   02 007AA    E800009C 04           B        *NEWCSXIT
      3714   02 007AB                 NEWCS2   RES      0
      3715   02 007AB    2140000F A            CI,XT    15
      3716   02 007AC    691007B7              BL       NEWCS6            USE CS TABLE FOR SECTIONS 0-15
      3717   02 007AD    692007B5              BG       NEWCS4            USE CS TABLE FOR SECTIONS 16-127
      3718   02 007AE    33000006 03           MTW,0    PASS
      3719   02 007AF    693007B5              BNEZ     NEWCS4            GENERATION PASS
      3720                            *   CREATE AN ADDITIONAL TABLE FOR CONTROL SECTIONS 16-127 IN THE
      3721                            *     DEFINITION PASS ONLY.
      3722   02 007B0    22400150 A            LI,XT    CSTBLSIZE*112
      3723   02 007B1    3540008C 04           STW,XT   LARG              ROOM FOR 112 CONTROL SECTIONS
      3724   02 007B2    6A7004D8              BAL,RL   FINDSPC           FIND TABLE SPACE FOR DYNAMIC
      3725   02 007B3    32400086 04           LW,XT    FND                 CONTROL SECTION TABLE
      3726   02 007B4    35400034 03           STW,XT   CS16LOC           ADDRESS OF CONTROL SECTION 16
      3727   02 007B5                 NEWCS4   RES      0
      3728   02 007B5    32600034 03           LW,XT2   CS16LOC           ADDRESS OF CONTROL SECTION 16
      3729   02 007B6    206FFFD0 A            AI,XT2   -16*CSTBLSIZE
      3730   02 007B7                 NEWCS6   RES      0
      3731   02 007B7    33100019 03           MTW,1    MAXCSECT          INCREMENT NUMBER OF CONTROL SECTIONS
      3732   02 007B8                 NEWCS7   RES      0
      3733   02 007B8    32500019 03           LW,XT1   MAXCSECT          COMPUTE ADDRESS OF CONTROL
      3734   02 007B9    23500003 A            MI,XT1   CSTBLSIZE         SECTION'S TABLE ENTRY
      3735   02 007BA    30600005 A            AW,XT2   XT1                 AND PUT IT IN XT2
      3736   02 007BB    22400000 A            LI,XT    0                 INITIALIZE CONTROL SECTION TABLE
      3737   02 007BC    354C0001 A            STW,XT   MAXDD,XT2           ENTRY WORD ONE
      3738   02 007BD    324000A8 04           LW,XT    PROTYPE
      3739   02 007BE    2540027E A            SHIFT,XT 31,PTLOB-CSTLOB-1 PROTECTION TYPE TO PT FIELD
      3740   02 007BF    30400062 04           AW,XT    CS
      3741   02 007C0    25400278 A            SHIFT,XT 31,CSTLOB         CONTROL SECTION TYPE TO CST FIELD
      3742   02 007C1    304011E6              AV,XT    WDRS**(31-RSLOB)  WORD RESOLUTION TO RS FIELD
      3743   02 007C2    354C0000 A            STW,XT   SAVDLR,XT2          AND CLEAR SAVDLR FIELD
      3744   02 007C3    6A7007E1              BAL,RL   OLDCSECT          SAVE LOCATION COUNTERS FOR OLD
      3745                            *                                     CONTROL SECTION
      3746   02 007C4    32600019 03           LW,XT2   MAXCSECT
      3747   02 007C5    3560000A 03           STW,XT2  DLRCS             CURRENT CONTROL SECTION TO % C S
      3748   02 007C6    6A700000 X            BAL,RL   GETCSADD          GET ADDRESS OF CONTROL TABLE ENTRY
      3749   02 007C7    6A700FF1              BAL,RL   SETDLRS           SET CONTROL SECTION, RESOLUTION, AND
      3750   02 007C8    E800009C 04           B        *NEWCSXIT           CLEAR VALUE OF % AND %%, THEN EXIT
1
      3752                            *
      3753                            *   N E W E N T R Y
      3754                            *        MOVES AN ENTRY TO THE SYMBOL TABLE
      3755                            *
      3756                            *        INPUT:   ARG CONTAINS A POINTER TO THE NEW VALUE TO BE STORED
      3757                            *                 FND CONTAINS THE ORIGIN FOR THE VALUE
      3758                            *                 LARG CONTAINS THE NUMBER OF WORDS IN THE VALUE
      3759                            *
      3760                            *        CALL:    BAL,RL  NEWENTRY
      3761                            *
      3762                            *        USES REGISTERS
      3763                            *                 XT
      3764                            *                 XT1
      3765                            *
      3766   02 007C9                 NEWENTRY RES      0
      3767   02 007C9    3240008C 04           LW,XT    LARG              NUMBER OF WORDS TO MOVE
      3768   02 007CA    680007CD              B        NEWENT2
      3769   02 007CB    B2580066 04  NEWENT1  LW,XT1   *ARG,XT           MOVE NEW VALUE TO SYMBOL TABLE
      3770   02 007CC    B5580086 04           STW,XT1  *FND,XT              MOVING FROM LAST WORD TO FIRST
      3771   02 007CD                 NEWENT2  RES      0
      3772   02 007CD    644007CB              BDR,XT   NEWENT1           CONTINUE UNTIL ALL BUT 1ST ARE MOVED
      3773   02 007CE    B2400066 04           LW,XT    *ARG              MOVE FIRST WORD OF NEW VALUE
      3774   02 007CF    B5400086 04           STW,XT   *FND                 TO SYMBOL TABLE
      3775   02 007D0    680E0000 A            EXIT     RL
1
      3777                            *
      3778                            *  N O T D O 1
      3779                            *        MARK AN ERROR IF THERE'S AN ACTIVE 'DO1' DIRECTIVE
      3780                            *          ON THIS PROCEDURE LEVEL
      3781                            *
      3782   02 007D1                 NOTDO1   RES      0
      3783   02 007D1    32460007 A            LW,XT    DO1CT,LVL
      3784   02 007D2    683E0000 A            EXIT,EQ  RL
      3785   02 007D3    6AF00000 X            BAL,ER   KERR
      3786   02 007D4    22400000 A            LI,XT    0
      3787   02 007D5    35460007 A            STW,XT   DO1CT,LVL
      3788   02 007D6    680E0000 A            EXIT     RL
1
      3790                            *
      3791                            *  N X T R E C R D
      3792                            *        READ THE NEXT ENCODED TEXT RECORD (FROM X1) INTO INBUF
      3793                            *
      3794   02 007D7                 NXTRECRD RES      0
      3795   02 007D7    3310002E 03           MTW,1    TEXTCT            BUMP ENCODED TEXT RECORD NUMBER
      3796   02 007D8    22800000 N            LI,IOADD INBUF
      3797   02 007D9    358000BA 04           STW,IOADD  XWBASE
      3798   02 007DA    22200000 A            LI,XW    0                 SET XW TO BEGINNING OF INBUF
      3799   02 007DB    53000000 X            MTH,0    RD%STD
      3800   02 007DC    683007DF              BEZ      NXTRCRD1          PROCESSING X1 FILE
      3801   02 007DD    6AA00000 X            BAL,IORL READSTD           READ FROM THE STD FILE
      3802   02 007DE    680E0000 A            EXIT     RL
      3803   02 007DF                 NXTRCRD1 RES      0
      3804   02 007DF    6AA00000 X            BAL,IORL READX1
      3805   02 007E0    680E0000 A            EXIT     RL
1
      3807                            *
      3808                            *   O L D C S E C T
      3809                            *        SAVES THE CURRENT LOCATION COUNTER VALUE IN THE CONTROL
      3810                            *          SECTION TABLE.
      3811                            *
      3812                            *        INPUT:   DLRVAL CONTAINS THE OFFSET FOR % AT BYTE RESOLUTION
      3813                            *                 DLRCS CONTAINS THE CONTROL SECTION NUMBER FOR %
      3814                            *                 DLRRS CONTAINS THE RESOLUTION FOR %
      3815                            *                 DDLRVAL CONTAINS THE OFFSET FOR %% AT BYTE RESOLUTION
      3816                            *                 DDLRCS CONTAINS THE CONTROL SECTION NUMBER FOR %%
      3817                            *
      3818                            *        OUTPUT:  DLRVAL HAS BEEN SAVED IN SAVDLR FIELD OF THE CONTROL
      3819                            *                   SECTION TABLE
      3820                            *                 DLRRS HAS BEEN SAVED IN THE RS FIELD OF THE CONTROL
      3821                            *                   SECTION TABLE
      3822                            *                 XT2 CONTAINS ADDRESS OF THE CONTROL SECTION
      3823                            *
      3824                            *        USES REGISTERS
      3825                            *                 XT, XT1, XT2, RL
      3826                            *
      3827   02 007E1                 OLDCSECT RES      0
      3828   02 007E1    357000A2 04           STW,RL   OLDCSXIT
      3829   02 007E2    6A70077E              BAL,RL   MAXLOC            SAVE MAX DDLRVAL
      3830   02 007E3    3260000A 03           LW,XT2   DLRCS             % CONTROL SECTION NUMBER
      3831   02 007E4    6A700000 X            BAL,RL   GETCSADD          GET CONTROL SECTION TABLE ADDRESS
      3832   02 007E5    3240000C 03           LW,XT    DLRRS             % RESOLUTION
      3833   02 007E6    25400274 A            SHIFT,XT 31,RSLOB          POSITION IT
      3834   02 007E7    2257FFFF A            LV,XT1   MAXDDFLD
      3835   02 007E8    4A40000E 03           LS,XT    DLRVAL           % OFFSET
      3836   02 007E9    325011EC              LV,XT1   RSFLD+SAVDLRFLD
      3837   02 007EA    474C0000 A            STS,XT   SAVDLR,XT2        SAVE DLRRS AND DLRVAL IN CONTROL
      3838   02 007EB    E80000A2 04           B        *OLDCSXIT           SECTION TABLE AND EXIT
1
      3840                            *
      3841                            *   O R G
      3842                            *        THIS ROUTINE PROCESSES THE ORG DIRECTIVE.  ORGORLOC IS CALLED
      3843                            *          TO PROCESS THE COMMAND AND OPERAND FIELDS, STORE DLRVAL,
      3844                            *          DLRCS, AND DLRRS, AND DEFINE THE LABEL.  ORG THEN STORES
      3845                            *          DDLRVAL, DDLRCS, AND DDLRRS.  ORG EXITS TO LOC1 WHERE BOTH
      3846                            *          LOCATION COUNTERS ARE EDITED INTO THE LISTING LINE IMAGE
      3847                            *          AND AN EXIT TO GENR IS PERFORMED.
      3848                            *
      3849                            *        USES REGISTERS
      3850                            *                 XT
      3851                            *                 RL
      3852                            *
      3853   02 007EC                 ORG      RES      0
      3854   02 007EC    6A7007F4              BAL,RL   ORGORLOC          PROCESS COMMAND AND OPERAND FIELDS
      3855   02 007ED    3240000A 03           LW,XT    DLRCS
      3856   02 007EE    3540000B 03           STW,XT   DDLRCS
      3857   02 007EF    3240000E 03           LW,XT    DLRVAL
      3858   02 007F0    3540000F 03           STW,XT   DDLRVAL
      3859   02 007F1    3240000C 03           LW,XT    DLRRS
      3860   02 007F2    3540000D 03           STW,XT   DDLRRS
      3861   02 007F3    68000722              B        LOC1
1
      3863                            *
      3864                            *   O R G O R L O C
      3865                            *        THIS ROUTINE PROCESSES THE COMMAND AND OPERAND FIELDS OF THE
      3866                            *          LOC AND ORG DIRECTIVES. THE COMMAND FIELD IS EVALUATED AND
      3867                            *          THE VALUE (1,2,4,OR8) IS MAPPED INTO A RESOLUTION VALUE
      3868                            *          (0,1,2,OR3) AND STORED INTO DLRRS. THE OPERAND FIELD IS THEN
      3869                            *          EVALUATED. AN ADDRESS WILL BE CONVERTED TO BYTE RESOLUTION
      3870                            *          AND STORED INTO DLRVAL AND IT'S CONTROL SECTION NUMBER IS
      3871                            *          STORED INTO DLRCS.  A CONSTANT WILL BE CONVERTED TO A BYTE
      3872                            *          OFFSET AND STORED INTO DLRVAL WITH DLRCS UNCHANGED.
      3873                            *
      3874                            *        INPUT:   CMNDLIST INDICATES WHETHER A CF(2) FIELD EXISTS OR NOT
      3875                            *                 XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM TO BE
      3876                            *                   EVALUATED.
      3877                            *
      3878                            *        OUTPUT:  DLRVAL, DLRCS, AND DLRRS HAVE BEEN SET.
      3879                            *                 XT CONTAINS THE RESOLUTION FOR DDLRCS (FOR ORG)
      3880                            *
      3881                            *        CALL:    BAL,RL  ORGORLOC
      3882                            *
      3883                            *        USES REGISTERS
      3884                            *                 XT
      3885                            *                 RL
      3886                            *                 XT1
      3887                            *                 XT2
      3888                            *                 ER
      3889                            *
      3890   02 007F4                 ORGORLOC RES      0
      3891   02 007F4    35700053 04           STW,RL   ORGLOCXIT
      3892   02 007F5    6A7007E1              BAL,RL   OLDCSECT          SAVE BOTH LOCATION COUNTERS
      3893   02 007F6    6A700482              BAL,RL   EVALAR            EVALUATE ADDRESS RESOLUTION
      3894   02 007F7    35400061 04           STW,XT   TEMPO             SAVE RESOLUTION
      3895   02 007F8    6A70094B              BAL,RL   EVALUATE%AND%CLEAN EVALUATE OPERAND AND CLEAR STACKS
      3896   02 007F9    32400061 04           LW,XT    TEMPO
      3897   02 007FA    3540000C 03           STW,XT   DLRRS             STORE RESOLUTION
      3898   02 007FB    33000097 04           MTW,0    LSTCT
      3899   02 007FC    68300821              BEZ      ORGLOC4           BLANK OPERAND FIELD, USE 0 VALUE
      3900   02 007FD    32620000 A            LW,XT2   0,XS              INDEX TO EVT ENTRY
      3901   02 007FE    30600035 03           AW,XT2   KLINE             ADDRESS OF EVT ENTRY
      3902   02 007FF    324C0000 A            LW,XT    0,XT2             CONTROL WORD OF EVT ENTRY
      3903   02 00800    4B4011EB              AND,XT   =DEFFLD
      3904   02 00801    314000A5 04           CW,XT    PASSDEF
      3905   02 00802    69300820              BNE      ORGLOC6           ITEM NOT DEFINED FOR THIS PASS
      3906   02 00803    324C0000 A            LW,XT    0,XT2
      3907   02 00804    69100813              BFNZ,XT  SPAFLD,ORGLOC8    BRANCH IF SPECIAL ONE WORD ENTRY
      3908   02 00805    4B40120D              AND,XT   =(TYPEFLD+STYPEFLD+LENGTHFLD)
      3909   02 00806    21418002 A            CV,XT    SYMBOL+SIMPADD+LNGTH2
      3910   02 00807    69300820              BNE      ORGLOC6           SYMBOL IS NOT A SIMPLE ADDRESS
      3911   02 00808    324C0001 A            LW,XT    1,XT2             GET LOB, FCS,AND OFFSET
      3912   02 00809    4B40120E              AND,XT   =FCSFLD
      3913   02 0080A    2540020A A            SHIFT,XT FCSLOB,31         RIGHT JUSTIFY FCS
      3914   02 0080B    3540000A 03           STW,XT   DLRCS             STORE CONTROL SECTION
      3915   02 0080C    324C0001 A            LW,XT    1,XT2             GET LOB,FCS,AND OFFSET
      3916   02 0080D                 ORGLOC5  RES      0
      3917   02 0080D    325C0000 A            LW,XT1   0,XT2             GET AR
      3918   02 0080E    4B50120F              AND,XT1  =ARFLD
      3919   02 0080F    25500208 A            SHIFT,XT1  ARLOB,31        RIGHT JUSTIFY AR
      3920   02 00810    254A0200 A            SCS,XT   0,XT1             OFFSET TO BYTE RESOLUTION
      3921   02 00811    4B4011EC              AND,XT   =OFFSETFLD
      3922   02 00812    68000822              B        ORGLOC7
      3923   02 00813                 ORGLOC8  RES      0
      3924   02 00813    314011DE              BFNZ,XT  SPINTFLD,ORGLOC10 BRANCH IF SPECIAL INTEGER ENTRY
             02 00814    6940081B
      3925   02 00815    4B401210              AND,XT   =CSFLD
      3926   02 00816    2540020F A            SHIFT,XT CSLOB,31
      3927   02 00817    3540000A 03           STW,XT   DLRCS             STORE CONTROL SECTION
      3928   02 00818    324C0000 A            LW,XT    0,XT2
      3929   02 00819    4B4011E1              AND,XT   =ADDFLD
      3930   02 0081A    6800080D              B        ORGLOC5
      3931   02 0081B                 ORGLOC10 RES      0
      3932   02 0081B    4B4011EC              AND,XT   =VALFLD           INTEGER VALUE
      3933   02 0081C    3250000C 03           LW,XT1   DLRRS
      3934   02 0081D    254A0000 A            SLS,XT   0,XT1             INTEGER VALUE AT BYTE RESOLUTION
      3935   02 0081E    2147FFFF A            CV,XT    X'7FFFF'
      3936   02 0081F    68200822              BLE      ORGLOC7           OFFSET IS 19 BITS OR LESS
      3937   02 00820                 ORGLOC6  RES      0
      3938   02 00820    6AF00000 X            BAL,ER   EERR              ILLEGAL EXPRESSION
      3939   02 00821                 ORGLOC4  RES      0
      3940   02 00821    22400000 A            LI,XT    0                 0 FOR EXECUTION LOCATION COUNTER
      3941   02 00822                 ORGLOC7  RES      0
      3942   02 00822    3540000E 03           STW,XT   DLRVAL            STORE EXECUTION LOCATION COUNTER
      3943   02 00823    E8000053 04           B        *ORGLOCXIT
1
      3945                            *
      3946                            *  P A G E
      3947                            *        PROCESS THE PAGE DIRECTIVE
      3948                            *
      3949                            *        CAUSE THIS LINE TO BE PRINTED AT THE TOP OF FORM
      3950                            *
      3951   02 00824                 PAGE     RES      0
      3952   02 00824    6A7006A2              BAL,RL   LINESKIP
      3953   02 00825                 PAGE1    RES      0
      3954   02 00825    22400007 A            LV,XT    PSTRIGFLD|LISTFLD|4   DON'T GO TO TOP OF FORM IF
      3955   02 00826    4B40001D 03           AND,XT   NOLIST              LISTING IS OFF DUE TO PRE-ENCODED
      3956   02 00827    6930082F              BNEZ     PCC1                SYSTEM OR SYSTEM NOT BEING LISTED
      3957                            *
      3958   02 00828    35400000 X            STW,XT   PGLINES
      3959   02 00829    6800082F              B        PCC1
1
      3961                            *
      3962                            *   P C C
      3963                            *        THIS ROUTINE PROCESSES THE PCC DIRECTIVE. LISTSUB IS CALLED
      3964                            *          TO EVALUATE THE OPERAND FIELD. IF THE VALUE IS ZERO, PCCTRIG
      3965                            *          IS SET TO 1; OTHERWISE PCCTRIG IS SET TO ZERO. THIS VALUE
      3966                            *          WILL BE STORED IN THE PCCTRIG FIELD OF VARIABLE NOLIST WHEN
      3967                            *   A LIST, PAGE, PCC, PSR, PSYS, SPACE, OR TITLE DIRECTIVE
      3968                            *          IS PROCESSED.
      3969                            *
      3970                            *        OUTPUT:  XW CONTAINS AN INDEX TO THE BEGINNING OF THE LINE
      3971                            *                   FOLLOWING THE PCC DIRECTIVE.
      3972                            *
      3973                            *        USES REGISTERS
      3974                            *                 XT
      3975                            *                 RL
      3976                            *
      3977   02 0082A                 PCC      RES      0
      3978   02 0082A    6A7006C4              BAL,RL   LISTSUB           EVALUATE OPERAND
      3979   02 0082B    25400004 A            SHIFT,XT 31,PCCTRIGLOB
      3980   02 0082C    3540001E 03           STW,XT   PCCTRIG           STORE RESULT
      3981   02 0082D    21400000 A            CI,XT    0                 IF OPERAND IS NON-ZERO,
      3982   02 0082E    69300643              BNE      GENR                GO BACK TO MAIN CONTROL
      3983   02 0082F                 PCC1     RES      0
      3984   02 0082F    6A700831              BAL,RL   PCCSUB            PRINT UNDER PCC CONTROL
      3985   02 00830    68000643              B        GENR
1
      3987                            *
      3988                            *   P C C S U B
      3989                            *        THIS SUBROUTINE CONTROLS PRINTING OF THE DIRECTIVES WHICH
      3990                            *          CONTROL LISTING OUTPUT; I.E., THE LIST, PAGE, PCC, PSR,
      3991                            *   PSYS, SPACE, AND TITLE DIRECTIVES.
      3992                            *
      3993                            *        CALL:    BAL,RL  PCCSUB
      3994                            *
      3995                            *        USES REGISTERS
      3996                            *                 XT
      3997                            *                 XT1
      3998                            *                 RL
      3999                            *
      4000   02 00831                 PCCSUB   RES      0
      4001   02 00831    35700099 04           STW,RL   PCCXIT            SAVE RETURN ADDRESS
      4002   02 00832    3240001E 03           LW,XT    PCCTRIG
      4003   02 00833    22500010 A            LV,XT1   PCCTRIGFLD
      4004   02 00834    4740001D 03           STS,XT   NOLIST            STORE LISTING CONTROL
      4005   02 00835    6A700000 X            BAL,RL   PRINTC1           PRINT THE DIRECTIVE
      4006   02 00836    22400000 A            LI,XT    0
      4007   02 00837    22500010 A            LV,XT1   PCCTRIGFLD
      4008   02 00838    4740001D 03           STS,XT   NOLIST            RESET LISTING CONTROL
      4009   02 00839    E8000099 04           B        *PCCXIT
1
      4011                            *
      4012                            *   P E N D
      4013                            *        THIS ROUTINE PROCESSES THE PEND DIRECTIVE.  NOTDO1 IS CALLED
      4014                            *          TO REPORT AN ERROR IF PEND WAS PRECEEDED BY A DO1 DIRECTIVE.
      4015                            *          IF PEND IS ON THE SOURCE LEVEL, AN ERROR IS REPORTED, THE
      4016                            *          REST OF THE LINE IS SKIPPED, AND PEND BRANCHES TO GENR.
      4017                            *          OTHERWISE, THE LOCAL SYMBOL TABLE IS DELETED AND ANY
      4018                            *          UNTERMINATED DO'S ARE DELETED FROM THE DO TABLE AND AN ERROR
      4019                            *          IS REPORTED. IF ANY ERRORS HAVE BEEN REPORTED AND NOT
      4020                            *          PRINTED, PRINT IS CALLED. FINALLY PEND BRANCHES TO COMREF3
      4021                            *          WHERE THE CURRENT PROCEDURE LEVEL TABLE IS DELETED; PROCREF
      4022                            *          IS DECREASED BY ONE; THE ADDRESS OF THE NEXT OUTER LEVEL
      4023                            *          PROCEDURE LEVEL TABLE IS MOVED TO LVL; AND THE ORIGIN OF THE
      4024                            *          NEXT LINE TO PROCESS IS MOVED FROM THE PROCEDURE LEVEL TABLE
      4025                            *          TO XW.
      4026                            *
      4027                            *        INPUT:   LVL CONTAINS THE ADDRESS OF THE CURRENT PROCEDURE
      4028                            *                   LEVEL TABLE
      4029                            *
      4030                            *        OUTPUT:  LVL CONTAINS THE ADDRESS OF THE NEXT OUTER LEVEL
      4031                            *                   PROCEDURE LEVEL TABLE.
      4032                            *                 PROCREF HAS BEEN DECREASED BY ONE
      4033                            *                 XW CONTAINS AN INDEX TO THE BEGINNING OF THE NEXT
      4034                            *                   ENCODED LINE TO PROCESS.
      4035                            *
      4036                            *        USES REGISTERS
      4037                            *                 RL
      4038                            *                 ER
      4039                            *                 XT1
      4040                            *                 LVL
      4041                            *
      4042   02 0083A                 PEND     RES      0
      4043   02 0083A    6A7007D1              BAL,RL   NOTDO1            ERROR IF PRECEEDED BY A DO1
      4044   02 0083B    33000021 03           MTW,0    PROCREF           PROCEDURE REFERENCE LEVEL
      4045   02 0083C    683010EE              BEZ      SPCD1             ERROR IF PEND IS ON SOURCE LEVEL
      4046   02 0083D    3306000A A            MTW,+0   SYSLVL,LVL        ERROR IF SYSTEM 'END' NOT FOUND
      4047   02 0083E    693010EE              BNEZ     SPCD1
      4048   02 0083F    F3000003 A            MTB,0    *LVL+PLOC         BRANCH IF THIS IS A PEND OF
      4049   02 00840    68300842              BEZ      PEND1               A CNAME REFERENCE
      4050                            *
      4051   02 00841    6A70094A              CALL     EV%CLN%OPRND      EVALUATE THE OPERAND FIELD
      4052   02 00842                 PEND1    RES      0
      4053   02 00842    6A7005F9              BAL,RL   LCLDLTE           DELETE THE LOCAL SYMBOL TABLE
      4054   02 00843                 PEND3    RES      0
      4055   02 00843    32460006 A            LW,XT    DOCT,LVL
      4056   02 00844    68300848              BEZ      PEND2             NO DO'S REMAINING
      4057   02 00845    6AF00000 X            BAL,ER   KERR              UNTERMINATED DO'S
      4058   02 00846    6A7002D6              BAL,RL   DELETE%DO         DELETE UNTERMINATED DO RECORD
      4059   02 00847    68000843              B        PEND3
      4060   02 00848                 PEND2    RES      0
      4061   02 00848    F3000003 A            MTB,0    *LVL+PLOC         BRANCH IF THIS IS A PEND OF
      4062   02 00849    6930084E              BNEZ     PEND4               AN FNAME REFERENCE
      4063   02 0084A    33000012 03           MTW,0    ERRTRIG
      4064   02 0084B    68300142              BEZ      COMREF3           NO UNLISTED ERRORS
      4065   02 0084C    6A700000 X            BAL,RL   PRINT
      4066   02 0084D    68000142              B        COMREF3
      4067   02 0084E                 PEND4    RES      0
      4068   02 0084E    6A700587              BAL,RL   GETPLOC           RE-INSTATE PREVIOUS PROC LVL TBL
      4069   02 0084F    6A700EBD              BAL,RL   SCPULL            PULL SAVED VARIABLES FROM ECT & EVT
      4070   02 00850    30400035 03           AW,XT    KLINE
      4071   02 00851    2250001D A            LI,XT1   NSAVES            NUMBER OF SAVED VARIABLE
      4072   02 00852                 PEND5    RES      0
      4073   02 00852    3278001C A            LW,RL    NSAVES-1,XT       RESTORE ALL VARIABLES SAVED IN THE
      4074   02 00853    357A0047 04           STW,RL   SAVEORG-1,XT1       EVT FOR FNAME REFERENCE
      4075   02 00854    204FFFFF A            AI,XT    -1
      4076   02 00855    64500852              BDR,XT1  PEND5             CONTINUE UNTIL ALL RESTORED
      4077   02 00856    32400055 04           LW,XT    OPRNDORG          RESTORE POINTER TO OPERAND FIELD
      4078   02 00857    35460005 A            STW,XT   OPRND,LVL           OF THE REFERENCE LINE
      4079   02 00858    32200054 04           LW,XW    NEXTXW            RESTORE POINTER TO NEXT ENCODED ITEM
      4080   02 00859    6A700717              BAL,RL   LOADXW            SET XW BASE
      4081   02 0085A                 PEND6    RES      0
      4082   02 0085A    32420000 A            LW,XT    0,XS              PUSH RESULT OF OPERAND EXPRESSIONS
      4083   02 0085B    30400035 03           AW,XT    KLINE               EVALUATED FOR THE PEND LINE
      4084   02 0085C    225E0000 A            LV,XT1   ~LOCFLD             ONTO THE ECT AND EVT
      4085   02 0085D    47400060 04           STS,XT   DD%TYPE             AND THEN RETURN TO SCAN
      4086   02 0085E    6A70060D              BAL,RL   LENGTH
      4087   02 0085F    6A700EA3              BAL,RL   SCPUSH
      4088   02 00860    201FFFFF A            AI,XS    -1
      4089   02 00861    33F00097 04           MTW,-1   LSTCT
      4090   02 00862    6920085A              BGZ      PEND6
      4091   02 00863    68000957              B        SCLOOP
1
      4093                            *
      4094                            *  P R O C
      4095                            *        PROCESS THE PROC DIRECTIVE
      4096                            *
      4097                            *        IF NAMELINK = 0, THE ENTIRE PROCEDURE BODY WILL BE DISCARDED
      4098                            *        IF NAMELINK NE 0, THE PROCEDURE BODY (AND PEND LINE) WILL BE
      4099                            *          SAVED STARTING AT THE NEXT AVAILABLE SYMT LOCATIONS.
      4100                            *          IN THIS CASE, NAMELINK CONTAINS THE ADDRESS OF A CHAIN
      4101                            *          OF SYMBOL TABLE 'NAME' ENTRIES. THE CHAIN IS TERMINATED BY
      4102                            *          A ZERO LINK.  THE STO WORD OF EACH NAME ENTRY IS SET TO
      4103                            *          POINT TO THE NEXT SYMT LOCATION, AND PASSDEF IS STORED IN
      4104                            *          EACH DEF FIELD.  THE DEF FIELD IS USED TO FLAG REFERENCES
      4105                            *          BEFORE THE PROC IS ENCOUNTERED.
      4106                            *
      4107                                     LOCAL    %10,%20,%30
      4108   02 00864                 PROC     RES      0
      4109   02 00864    6A7007D1              BAL,RL   NOTDO1            ERROR IF PRECEEDED BY 'DO1'
      4110   02 00865    6A7006A2              BAL,RL   LINESKIP          SKIP THE REST OF THE 'PROC'
      4111   02 00866    32400021 03           LW,XT    PROCREF           ERROR IF THIS LINE IS WITHIN
      4112   02 00867    68300000 F            BEZ      %10                 A PROC
      4113   02 00868    6AF00000 X            BAL,ER   KERR
      4114   02 00869    68000870              B        SET%SKIP%TRIG
      4115   02 0086A                 %10      RES      0
      4116   02 0086A    32500000 X            LW,XT1   SYSLEVEL          STORE 'SYSLEVEL'+1 IN
      4117   02 0086B    20500001 A            AI,XT1   1                   'STORE-IN-SAMPLE' FLAG
      4118   02 0086C    35500020 03           STW,XT1  PROCLV
      4119   02 0086D    3540002A 03           STW,XT   STORESAMP         CLEAR INDEX TO SAMPLE (ALSO A FLAG)
      4120   02 0086E    4640001B 03           XW,XT    NAMELINK          ARE THERE ANY SAVED 'NAME' LINES
      4121   02 0086F    69300000 F            BNEZ     %20                 YES
      4122   02 00870                 SET%SKIP%TRIG  RES 0
      4123   02 00870    33100025 03           MTW,1    SKIPTRIG
      4124   02 00871    68000643              B        GENR
      4125   02 00872                 %20      RES      0
      4126   02 00872    325000A0 04           LW,XT1   NXTSYMT
      4127   02 00873    38500037 03           SW,XT1   SYMT              SUBT. ORIGIN OF SYMBOL TABLE
      4128   02 00874    327000A5 04           LW,RL    PASSDEF           MUST BE AN ODD REGISTER (FOR STS)
      4129   02 00875    32F00005 A            LW,ER    XT1               CONVERT NXTSYMT TO
      4130   02 00876    25F00001 A            SLS,ER   1                   A HALFWORD INDEX
      4131   02 00877    35F0002A 03           STW,ER   STORESAMP           AND SAVE IT IN STORESAMP
      4132   02 00878    32F00006 03           LW,ER    PASS              PUT SAMPLE TABLE INDEX IN XT1.
      4133   02 00879    68300000 F            BEZ      %30               IN THE DEF PASS, USE NXTSYMT;
      4134   02 0087A    325000A7 04           LW,XT1   PROCLOC             IN GEN, USE PROCLOC (CNAME SAVED)
      4135   02 0087B                 %30      RES      0
      4136   02 0087B    30400037 03           AW,XT    SYMT              CONVERT INDEX TO AN ADDRESS
      4137   02 0087C    32680001 A            LW,XT2   STO,XT            GET NEXT LINK FROM STO FIELD
      4138   02 0087D    47780000 A            STS,RL   0,XT              STORE DEF FIELD
      4139   02 0087E    35580001 A            STW,XT1  STO,XT            STORE NXTSYMT OR PROCLOC AS SAMPLE
      4140                            *                                   TABLE INDEX
      4141   02 0087F    32400006 A            LW,XT    XT2               NEXT NAME LINK
      4142   02 00880    68300643              BEZ      GENR
      4143   02 00881    6800087B              B        %30
1
      4145                            *
      4146                            *   P S E C T
      4147                            *        PROCESSES THE PSECT DIRECTIVE
      4148                            *
      4149                            *        USES REGISTER
      4150                            *                 XT
      4151                            *
      4152   02 00882                 PSECT    RES      0
      4153   02 00882    2240001E A            LI,XT    PSTYPE
      4154   02 00883    68000145              B        CSECT1
1
      4156                            *
      4157                            *   P S R
      4158                            *        THIS ROUTINE PROCESSES THE PSR DIRECTIVE. LISTSUB IS CALLED
      4159                            *          TO EVALUATE THE OPERAND FIELD. IF THE VALUE IS ZERO, PSRTRIG
      4160                            *          IS SET TO A 1; OTHERWISE PSRTRIG IS SET TO ZERO. THIS VALUE
      4161                            *          IS USED TO INHIBIT (PSRTRIG=0) OR ALLOW (PSRTRIG=1) SKIPPED
      4162                            *          RECORDS TO BE PRINTED.
      4163                            *
      4164                            *        OUTPUT:  XW CONTAINS AN INDEX TO THE BEGINNING OF THE LINE
      4165                            *                   FOLLOWING THE PSR LINE.
      4166                            *
      4167                            *        USES REGISTERS
      4168                            *                 XT
      4169                            *                 RL
      4170                            *
      4171   02 00884                 PSR      RES      0
      4172   02 00884    6A7006C4              BAL,RL   LISTSUB           EVALUATE OPERAND
      4173   02 00885    35400022 03           STW,XT   PSRTRIG
      4174   02 00886    6800082F              B        PCC1
1
      4176                            *
      4177                            *   P S Y S
      4178                            *        THIS ROUTINE PROCESSES THE PSYS DIRECTIVE. LISTSUB IS CALLED
      4179                            *          TO EVALUATE THE OPERAND FIELD. IF THE VALUE IS ZERO, PSTRIG
      4180                            *          IS SET TO 1; OTHERWISE PSTRIG IS SET TO ZERO. THIS VALUE WILL
      4181                            *          BE STORED IN THE PSTRIG FIELD OF VARIABLE NOLIST WHEN A
      4182                            *          SYSTEM DIRECTIVE IS PROCESSED.
      4183                            *
      4184                            *        INPUT:   XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM
      4185                            *                   FOLLOWING THE PSYS COMMAND.
      4186                            *
      4187                            *        OUTPUT:  XW CONTAINS AN INDEX TO THE BEGINNING OF THE LINE
      4188                            *                   FOLLOWING THE PSYS LINE.
      4189                            *
      4190                            *        USES REGISTERS
      4191                            *                 XT
      4192                            *                 RL
      4193                            *
      4194   02 00887                 PSYS     RES      0
      4195   02 00887    6A7006C4              BAL,RL   LISTSUB           EVALUATE OPERAND
      4196                                     SHIFT,XT 31,PSTRIGLOB
      4197   02 00888    35400023 03           STW,XT   PSTRIG            STORE SYSTEM LISTING CONTROL
      4198   02 00889    6800082F              B        PCC1
1
      4200                            *
      4201                            *  P U T 1
      4202                            *        STORE A HALFWORD IN THE SAMPLE TABLE AND BUMP THE
      4203                            *          SAMPLE TABLE INDEX.
      4204                            *
      4205                            *          INPUT: XT CONTAINS THE HALF-WORD TO STORE
      4206                            *                 ECTHW CONTAINS HALFWORD INDEX OF EXP CONTROL TABLE
      4207                            *                 STORESAMP CONTAINS THE SAMPLE TABLE (HALFWORD) INDEX
      4208                            *
      4209                            *         OUTPUT: XT STORED AND STORESAMP INCREASED BY ONE.
      4210                            *
      4211                            *         USES REGISTER XT1
      4212                            *         REGISTER XT IS UNCHANGED
      4213                            *
      4214                            *         CALL:    BAL,RL   PUT1
      4215                            *
      4216                                     LOCAL    %10
      4217   02 0088A                 PUT1     RES      0
      4218   02 0088A    32500006 03           LW,XT1   PASS              EXIT IF NOT IN DEF. PASS
      4219   02 0088B    693E0000 A            EXIT,NE  RL
      4220   02 0088C    3250002A 03           LW,XT1   STORESAMP         IS THE ROOM
      4221   02 0088D    31500075 04           CW,XT1   ECTHW               BELOW THE EXPRESSION CONTROL TBL
      4222   02 0088E    69200000 X            BG       HILIMIT4          NO, WE'RE OUT OF ROOM
      4223   02 0088F    D54A0037 03           STH,XT   *SYMT,XT1         STORE THE HALFWORD IN SAMPLE
      4224   02 00890    3310002A 03           MTW,1    STORESAMP         BUMP STORESAMP
      4225   02 00891    680E0000 A            EXIT     RL
1
      4227                            *
      4228                            *   R E F
      4229                            *        THIS ROUTINE PROCESSES THE REF DIRECTIVE.  REF SETS AN
      4230                            *          ASSIGNMENT VALUE FOR REF AND BRANCHES TO DEF1.
      4231                            *
      4232                            *        OUTPUT:  XT CONTAINS A VALUE FOR REF.
      4233                            *
      4234                            *        USES REGISTER
      4235                            *                 XT
      4236                            *
      4237   02 00892                 REF      RES      0
      4238   02 00892    32401211              LV,XT    REFEXT
      4239                            *   HERE FROM REF, SREF. XT CONTAINS THE EXTERNAL TYPE
      4240   02 00893                 REF1     RES      0
      4241   02 00893    35400061 04           STW,XT   TEMPO             SAVE EXTERNAL TYPE
      4242   02 00894    6A700482              BAL,RL   EVALAR            EVALUATE ADDRESS RESOLUTION
      4243   02 00895    25400278 A            SHIFT,XT 31,ARLOB          POSITION RESOLUTION
      4244   02 00896    30400061 04           AW,XT    TEMPO             EXTERNAL TYPE AND RESOLUTION
      4245   02 00897    68000190              B        DEF1              COMMON CODE FOR DEF, REF, AND SREF
1
      4247                            *
      4248                            *   R E S
      4249                            *        THIS ROUTINE PROCESSES THE RES DIRECTIVE.  THE MAXIMUM LOAD
      4250                            *          LOCATION COUNTER OFFSET IS SAVED AND THE LABEL IS DEFINED.
      4251                            *          THE PRODUCT OF THE CF(2) AND AF(1) FIELDS IS THEN ADDED TO
      4252                            *          BOTH LOCATION COUNTER OFFSETS.  RES BRANCHES BACK TO GENR.
      4253                            *
      4254                            *        INPUT:   CMNDLIST IS ZERO IF THERE IS NO CF(2) ENTRY, AND IS
      4255                            *                   NON-ZERO IF A CF(2) ENTRY EXISTS.
      4256                            *
      4257                            *        OUTPUT:  DLRVAL AND DDLRVAL HAVE BEEN INCREASED BY THE NUMBER
      4258                            *                   OF BYTES RESERVED.
      4259                            *
      4260                            *        USES REGISTERS
      4261                            *                 XT
      4262                            *                 RL
      4263                            *                 XT1
      4264                            *
      4265   02 00898                 RES      RES      0
      4266   02 00898    6A70077E              BAL,RL   MAXLOC            SAVE MAXIMUM %% OFFSET
      4267   02 00899    6A700298              CALL     DEFHEXLBL         DEFINE LABEL
      4268   02 0089A    3300004B 04           MTW,0    CMNDLIST
      4269   02 0089B    683008A0              BEZ      RES0              NO CF(2) FIELD, USE VALUE OF 4
      4270   02 0089C    6A70049E              BAL,RL   EVAL1EXP          EVALUATE CF(2) FIELD
      4271   02 0089D    32400046 04           LW,XT    TEMP
      4272   02 0089E    692008A1              BGZ      RES1
      4273   02 0089F    6AF00000 X            BAL,ER   EERR              ILLEGAL CF(2) VALUE
      4274   02 008A0                 RES0     RES      0
      4275   02 008A0    22400004 A            LI,XT    4                 USE A CF(2) VALUE OF 4
      4276   02 008A1                 RES1     RES      0
      4277   02 008A1    35400061 04           STW,XT   TEMPO             VALUE OF CF(2) FIELD
      4278   02 008A2    6A70049E              BAL,RL   EVAL1EXP          EVALUATE AF(1) FIELD
      4279   02 008A3    32500061 04           LW,XT1   TEMPO
      4280   02 008A4    37400046 04           MW,XT    TEMP
      4281   02 008A5                 RES2     RES      0
      4282   02 008A5    6650000E 03           AWM,XT1  DLRVAL            INCREASE BOTH LOCATION COUNTERS BY
      4283   02 008A6    6650000F 03           AWM,XT1  DDLRVAL             THE NUMBER OF BYTES RESERVED.
      4284   02 008A7    68000643              B        GENR
1
      4286                            *
      4287                            *   S : S I N
      4288                            *        THIS ROUTINE PROCESSES THE S:SIN DIRECTIVE. CMNDDEF IS CALLED
      4289                            *          TO INSURE THAT A LABEL IS PRESENT AND THAT IT IS REFERENCED
      4290                            *          AND IS DEFINED ONLY ONCE. NEXT EVAL1EXP IS CALLED TO PROCESS
      4291                            *          CF(2) WHICH MUST BE PRESENT AND EQUAL TO INTEGER 0,1, OR 2.
      4292                            *          IF IT IS NOT, LINESKIP IS CALLED AND THIS ROUTINE EXITS TO
      4293                            *          GENR. THE CF(2) VALUE IS USED TO CONSTRUCT THE COMMAND
      4294                            *          CONTROL WORD. THEN EVAL1EXP IS CALLED TO EVALUATE THE
      4295                            *          ARGUMENT FIELD (OP-CODE). THE COMPLETE COMMAND DEFINITION IS
      4296                            *          NOW CONSTRUCTED AND NEWENTRY IS CALLED TO STORE IT IN THE
      4297                            *          SYMBOL TABLE.
      4298                            *
      4299                            *        INPUT:   XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM
      4300                            *                   FOLLOWING THE S:SIN DIRECTIVE.
      4301                            *
      4302                            *        OUTPUT:  THE COMMAND DEFINITION SPECIFIED BY THE S:SIN
      4303                            *                   DIRECTIVE IS PLACED IN THE SYMBOL TABLE.
      4304                            *
      4305                            *        USES REGISTERS
      4306                            *                 XT
      4307                            *                 XT1
      4308                            *                 ER
      4309                            *                 RL
      4310                            *
      4311   02 008A8                 S:SIN    RES      0
      4312   02 008A8    32401212              LV,XT    S:SINCOMT+CMNDNAME+LNGTH2+1**(31-DEFLOB)
      4313   02 008A9    6A7000B3              BAL,RL   CMNDDEF           CHECK COMMAND DEFINITION
      4314   02 008AA    3300004B 04           MTW,0    CMNDLIST
      4315   02 008AB    683008B1              BE       S:SIN2            NO SIN FORMAT SPECIFIER
      4316   02 008AC    6A7004BD              BAL,RL   EVAL1INT          EVALUATE SIN FORMAT
      4317   02 008AD    32400046 04           LW,XT    TEMP
      4318   02 008AE    691008B1              BL       S:SIN2            NEGATIVE VALUE IS ERROR
      4319   02 008AF    21400002 A            CI,XT    2
      4320   02 008B0    682008B3              BLE      S:SIN3            VALUE OF 0, 1, OR 2 IS OK
      4321   02 008B1                 S:SIN2   RES      0
      4322   02 008B1    6AF00000 X            BAL,ER   EERR              REPORT ILLEGAL VALUE
      4323   02 008B2    22400000 A            LI,XT    0                 USE A VALUE OF ZERO
      4324   02 008B3                 S:SIN3   RES      0
      4325   02 008B3    25400276 A            SHIFT,XT 31,SINTLOB        SHIFT VALUE TO SINT FIEDL
      4326   02 008B4    66400048 04           AWM,XT   CMNDCW            STORE SINT FIELD VALUE
      4327   02 008B5    6A70049E              BAL,RL   EVAL1EXP          EVALUATE OP CODE
      4328   02 008B6    4B4011EC              AND,XT   =VALFLD           TRIM THE OP CODE VALUE
      4329   02 008B7    31400046 04           CW,XT    TEMP
      4330   02 008B8    683008BA              BE       S:SIN0            VALUE FITS IN A SPECIAL INTEGER
      4331   02 008B9    6AF00000 X            BAL,ER   TERR              TRUNCATION ERROR
      4332   02 008BA                 S:SIN0   RES      0
      4333   02 008BA    6A70110D              BAL,RL   STACKSPI          STORE OP CODE IN ECT AND EVT
      4334   02 008BB    6A700098              BAL,RL   CMNDASN           MAKE COMMAND ASSIGNMENT
      4335                            *   CMNDASN RETURNS HERE DURING THE GENERATION PASS
      4336   02 008BC    680008C2              B        S:SIN1            RETURN HERE FOR GENERATION PASS
      4337                            *   CMNDASN RETURNS HERE DURING THE DEFINITION PASS
      4338   02 008BD    325000B2 04           LW,XT1   SPITEMP           STORE OP CODE (DEFINED FOR THE
      4339   02 008BE    495011EB              OR,XT1   =3**(31-DEFLOB)     GEN PASS) AS THE 2ND WORD
      4340   02 008BF    35580001 A            STW,XT1  STO,XT              OF THE COMMAND ENTRY
      4341   02 008C0    6A70075C              BAL,RL   LOLIMIT           MAKE SURE THERE'S ROOM FOR ENTRY
      4342   02 008C1    68000643              B        GENR
      4343   02 008C2                 S:SIN1   RES      0
      4344   02 008C2    325000A5 04           LW,XT1   PASSDEF
      4345   02 008C3    47580000 A            STS,XT1  0,XT              DEFINE COMMAND FOR CURRENT PASS
      4346   02 008C4    6A700000 X            BAL,RL   EDITV
      4347   02 008C5    68000643              B        GENR
1
      4349                            *
      4350                            *   S : S I N R E F
      4351                            *        THIS ROUTINE PROCESSES A REFERENCE TO A COMMAND DEFINED BY THE
      4352                            *          S:SIN DIRECTIVE. THE COMMAND MUST BE DEFINED FOR THE CURRENT
      4353                            *          PASS OR AN ERROR IS REPORTED. THE LOCATION COUNTERS ARE
      4354                            *          ADVANCED TO A WORD BOUNDARY AND THE LABEL IS DEFINED. IN THE
      4355                            *          DEFINITION PASS, THE FIRST OPERAND IS EVALUATED TO DEFINE A
      4356                            *          POSSIBLE LITERAL. THE LOCATION COUNTERS ARE ADVANCED BY 4
      4357                            *          BYTES, LINESKIP IS CALLED, AND THIS ROUTINE BRANCHES TO GENR.
      4358                            *          IN THE GENERATION PASS, THE SINT FIELD OF THE COMMAND
      4359                            *          DEFINITION IS USED TO SELECT THE NEXT PROCESSING ROUTINE.
      4360                            *
      4361                            *        INPUT:   REFADD AND XT CONTAIN THE SYMBOL TABLE ADDRESS OF THE
      4362                            *                   COMMAND DEFINITION BEING REFERENCED.
      4363                            *
      4364                            *        OUTPUT:  IN DEFINITION PASS, THE LOCATION COUNTERS HAVE BEEN
      4365                            *                   ADVANCED BY 4 BYTES AND CONTROL BRANCHES TO GENR.
      4366                            *                 IN GENERATION PASS, A BRANCH IS MADE TO THE NEXT
      4367                            *                   PROCESSING ROUTINE SELECTED BY THE COMMAND
      4368                            *                   DEFINITION.
      4369                            *
      4370                            *        USES REGISTERS
      4371                            *                 XT
      4372                            *                 XT1
      4373                            *                 RL
      4374                            *                 ER
      4375                            *
      4376   02 008C6                 S:SINREF RES      0
      4377   02 008C6    32580000 A            LW,XT1   0,XT              GET DEFINITION FIELD OF STANDARD
      4378   02 008C7    4B5011EB              AND,XT1  =DEFFLD             INSTRUCTION BEING REFERENCED
      4379   02 008C8    315000A5 04           CW,XT1   PASSDEF
      4380   02 008C9    6930063D              BNE      LINE10            REFERENCE OCCURRED BEFORE DEFINITION
      4381                            *   HERE IF COMMAND IS DEFINED FOR CURRENT PASS
      4382   02 008CA    6A700065              BAL,RL   BOUND4            LOCATION COUNTERS TO WORD BOUNDARY
      4383   02 008CB    22400000 A            LV,XT    SDINSTC           SET SD TYPE TO 'INSTRUCTION'
      4384   02 008CC    354000AF 04           STW,XT   SD%TYPE
      4385   02 008CD    6A70029A              BAL,RL   DEFLBL            DEFINE LABEL
      4386   02 008CE    33000006 03           MTW,0    PASS
      4387   02 008CF    693008D3              BNEZ     SINREF2           GENERATION PASS
      4388                            *
      4389   02 008D0    6A70094A              CALL     SCANOPRND         EVALUATE THE OPERAND FIELD
      4390   02 008D1    22500004 A            LI,XT1   4                 ADVANCE BOTH LOCATION COUNTERS
      4391   02 008D2    680008A5              B        RES2                BY 4 BYTES
      4392   02 008D3                 SINREF2  RES      0
      4393   02 008D3    B24000A9 04           LW,XT    *REFADD           LOAD SINT FIELD OF STANDARD
      4394   02 008D4    4B401213              AND,XT   =SINTFLD            INSTRUCTION BEING REFERENCED
      4395   02 008D5    2540020A A            SHIFT,XT SINTLOB,31        RIGHT JUSTIFY SINT FIELD
      4396   02 008D6    32560002 A            LW,XT1   ECT,LVL
      4397   02 008D7    30500035 03           AW,XT1   KLINE             ADDRESS OF ORIGIN OF EXPRESSION
      4398   02 008D8    35500064 04           STW,XT1  VALPTR              CONTROL VALUE TABLE
      4399   02 008D9    725808DB              LB,XT1   SINTABLE,XT
      4400   02 008DA    680A1016              B        SINBASE,XT1
      4401                            *
      4402                            SINT     COM,8    AF-SINBASE
      4403   02 008DB                 SINTABLE RES      0
      4404   02 008DB    00       A            SINT     SIN0              STANDARD INSTRUCTION TYPE 0
      4405   02 008DB 1  28       A            SINT     SIN1              STANDARD INSTRUCTION TYPE 1
      4406   02 008DB 2  35       A            SINT     SIN2              STANDARD INSTRUCTION TYPE 2
      4407         00000003           SINCOUNT EQU      BA(%)-BA(SINTABLE) NUMBER OF ENTRIES IN SINTABLE
      4408                                     BOUND    4
1
      4410                            *
      4411                            *  S A M P L I N
      4412                            *        STORE A LINE IN THE SAMPLE TABLE.
      4413                            *
      4414                            *        EACH ENCODED ENTRY IS STORED IN SAMPLE STORAGE. IF THE LINE
      4415                            *          WILL REQUIRE PARTICULARIZATION, THE PARTICULARIZATION FLAG
      4416                            *          IS SET TO ONE (AT THE BEGINNING OF THE LINE IN SAMPLE).
      4417                            *        AN ERROR IS MARKED IF AN EQU OR SET DIRECTIVE IS STORED WITH
      4418                            *          A BLANK LABEL.
      4419                            *        IF A PEND DIRECTIVE IS STORED, PROCLV IS CLEARED SO THE NEXT
      4420                            *          LINE WON'T BE STORED IN SAMPLE.
      4421                            *
      4422                            *        SAMPL20 IS AN ALTERNATE ENTRY (FOR COM) WHERE THE FIRST
      4423                            *          ENCODED ITEM IS IN LABELLOC INSTEAD OF INBUF.
      4424                            *
      4425                                     LOCAL    %10,%11,%80,%90
      4426                            *
      4427   02 008DC                 SAMPLIN  RES      0
      4428   02 008DC    32260003 A            LW,XW    LBL,LVL           RESET XW BACK TO LABEL
      4429   02 008DD    3250002A 03           LW,XT1   STORESAMP
      4430   02 008DE    693008ED              BNEZ     SAMPL10
      4431   02 008DF    33100025 03           MTW,1    SKIPTRIG
      4432   02 008E0    21404004 A            CV,XT    SYSTEMDIR
      4433   02 008E1    683008E8              BE       SAMPL1            BRANCH IF 'SYSTEM' BEING SKIPPED
      4434   02 008E2    21404007 A            CV,XT    ENDDIR
      4435   02 008E3    683008EA              BE       SAMPL2            BRANCH IF 'END' IS BEING SKIPPED
      4436   02 008E4    204FBFFA A            AV,XT    -PENDDIR          CLEAR PROCLV IF THE 'PEND'
      4437   02 008E5    69300642              BNEZ     LINE5               IS BEING SKIPPED
      4438   02 008E6    35400020 03           STW,XT   PROCLV
      4439   02 008E7    68000642              B        LINE5
      4440   02 008E8                 SAMPL1   RES      0
      4441   02 008E8    6A701130              BAL,RL   SYSSUB            INCREMENT SYSTEM LEVEL
      4442   02 008E9    68000642              B        LINE5
      4443   02 008EA                 SAMPL2   RES      0
      4444   02 008EA    6A701125              BAL,RL   SYSEND            DECREMENT SYSTEM LEVEL
      4445   02 008EB    68100642              BGEZ     LINE5             END OF A SYSTEM FILE
      4446   02 008EC    680003DB              B        END%ERR           ATTEMPTING TO SKIP END OF PROGRAM
      4447   02 008ED                 SAMPL10  RES      0
      4448   02 008ED    D26400BA 04           NXTENC,XT2
             02 008EE    20200001 A
      4449   02 008EF    3560008B 04  SAMPL20  STW,XT2  LABELLOC
      4450   02 008F0    35500092 04           STW,XT1  LINEORG           SAVE ORIGIN OF THIS LINE
      4451   02 008F1    32460002 A            LW,XT    ECT,LVL           COMPUTE HALFWORD INDEX
      4452   02 008F2    30400035 03           AW,XT    KLINE
      4453   02 008F3    38400037 03           SW,XT    SYMT                OF KLINE (FOR TESTING BY PUT1)
      4454   02 008F4    25400001 A            SLS,XT   1
      4455   02 008F5    35400075 04           STW,XT   ECTHW
      4456   02 008F6    21500000 A            CI,XT1   0                 DON'  STORE A PARTICULARIZATION
      4457   02 008F7    68300000 F            BEZ      %10                 FLAG FOR THIS LINE
      4458   02 008F8    2240C000 A            LV,XT    SMINT             ENCODED INTEGER ZERO
      4459   02 008F9    6A70088A              BAL,RL   PUT1              STORE PARTICULARIZATION FLAG
      4460   02 008FA    3240008B 04           LW,XT    LABELLOC
      4461   02 008FB    68000000 F            B        %11
      4462   02 008FC    D24400BA 04  %10      NXTENC                     GET NEXT ENCODED ITEM
             02 008FD    20200001 A
      4463   02 008FE                 %11      RES      0
      4464   02 008FE    6A70088A              CALL     PUT1              STORE IT IN SAMPLE TABLE
      4465         001F0000                    IF,EQ    ENDLINE,XT        DOIF FINISHED WITH LINE
             02 008FF    21400000 A
             02 00900    6930092B
      4466   02 00901    32560004 A            LW,XT1   CMND,LVL
      4467   02 00902    3050004B 04           AW,XT1   CMNDLIST
      4468   02 00903    D24A00BA 04           NXTENC   XT1               GET CF(1)
             02 00904    20500001 A
      4469         001F0100                    IF,EQ    SYSTEMDIR,XT      - SYSTEM -
             02 00905    21404004 A
             02 00906    6930090D
      4470   02 00907    D24A00BA 04           NXTENC   XT1,NOINC
      4471   02 00908    4B401214              AND,XT   L(SYSTYPEFLD)
      4472         001F0200                    IF,G     1**(31-SYSTYPELOB),XT   DOIF NORMAL INCLUDED SYSTEM
             02 00909    21400400 A
             02 0090A    6820090C
      4473   02 0090B    6A701130              CALL     SYSSUB
      4474         00F10200                    FI
      4475         00EF0100                    ELSF,EQ  ENDDIR,XT         - END -
             02 0090C    68000920
             02 0090D    21404007 A
             02 0090E    69300914
      4476   02 0090F    6A701125              CALL     SYSEND
      4477         001F0200                    IF,LZ
             02 00910    68100913
      4478   02 00911    32200005 A            LW,XW    XT1               (END%ERR PLAYS GAMES)
      4479   02 00912    680003DB              B        END%ERR           END OF PROGRAM
      4480                            *
      4481         00F10200                    FI
      4482         00EF0100                    ELSF,EQ  PENDDIR,XT        - PEND -
             02 00913    68000920
             02 00914    21404006 A
             02 00915    6930091D
      4483                            *
      4484                            *        CLEAR PROCLV TO INDICATE THIS IS THE LAST LINE TO STORE.
      4485                            *        MAKE SURE THE 'PEND' IS AT THE SAME 'SYSLEVEL' AS THE 'PROC'.
      4486                            *
      4487   02 00916    32400000 X            LW,XT    SYSLEVEL
      4488   02 00917    20400001 A            AI,XT    1
      4489   02 00918    38400020 03           SW,XT    PROCLV
      4490   02 00919    35400020 03           STW,XT   PROCLV
      4491         001F0200                    IF,NZ
             02 0091A    6830091C
      4492   02 0091B    6AF00000 X            BAL,ER   KERR
      4493         00F10200                    FI
      4494         00EF0100                    ELSF,EQ  PROCDIR           - PROC -
             02 0091C    68000920
             02 0091D    21404005 A
             02 0091E    69300920
      4495   02 0091F    6AF00000 X            BAL,ER   KERR
      4496         00F10100                    FI
      4497   02 00920    32400020 03           LW,XT    PROCLV            IS THIS THE LAST LINE TO STORE
      4498   02 00921    69300643              BNEZ     GENR                NO
      4499   02 00922    4640002A 03           XW,XT    STORESAMP         CLEAR STORESAMP
      4500   02 00923    20400001 A            AI,XT    1                 CHANGE STORESAMP FROM A HALFWORD
      4501   02 00924    2540007F A            SLS,XT   -1                  INDEX TO A FULLWORD ADDRESS
      4502   02 00925    30400037 03           AW,XT    SYMT                AND STORE IT
      4503   02 00926    354000A0 04           STW,XT   NXTSYMT             IN NXTSYMT
      4504   02 00927    6A70075C              BAL,RL   LOLIMIT           TEST NXTSYMT FOR OVERFLOW
      4505   02 00928    22700643              LI,RL    GENR              NO OVERFLOW, BUT THINGS
      4506   02 00929    35700013 03           STW,RL   FINDSPCXIT          MIGHT NEED SHIFTING.
      4507   02 0092A    680004FD              B        FINDSPC7
      4508                            *
      4509         00F10000                    FI
      4510   02 0092B    4B4011E3              AND,XT   =ENCITEM          TRIM TO 16 BITS
      4511   02 0092C    2140403E A            CV,XT    AFSYM             IS THIS ITEM AF,AFA,CF, OR LF
      4512   02 0092D    69100000 F            BL       %80                 NO
      4513   02 0092E    21404042 A            CV,XT    NAMESYM           OR NAME
      4514   02 0092F    68200945              BLE      SET%PARTIC%FLAG     YES
      4515   02 00930    2140803E A            CV,XT    AFSSYM            TEST FOR SUBSCRIPTED AF,AFA,CF, LF
      4516   02 00931    69100000 F            BL       %80                 NO
      4517   02 00932    21408042 A            CV,XT    NAMESSYM          OR NAME
      4518   02 00933    68200945              BLE      SET%PARTIC%FLAG   BRANCH IF SUBSCIPTED AF,AFA,CF, LF
      4519   02 00934                 %80      RES      0
      4520   02 00934    2140000A A            CV,XT    SYNERR
      4521   02 00935    69300937              BNE      %+2
      4522   02 00936    6AF00000 X            BAL,ER   SERR              SYNTAX ERROR
      4523   02 00937    2250E000 A            LV,XT1   TFLD              TYPE FIELD
      4524   02 00938    45401202              CS,XT    =LOCALSYM         IS THIS A LOCAL SYMBOL
      4525   02 00939    68300945              BE       SET%PARTIC%FLAG     YES
      4526   02 0093A    45401215              CS,XT    =LCLSBSYM         IS THIS A LOCAL SUBSCRIPTED SYMBOL
      4527   02 0093B    68300945              BE       SET%PARTIC%FLAG     YES
      4528   02 0093C    45401216              CS,XT    =MULTINT          MULTI-WORD INTEGER
      4529   02 0093D    693008FC              BNE      %10                 NO
      4530   02 0093E    226000FF A            LV,XT2   LFLD              SAVE NO. HALFWORDS IN THE INTEGER
      4531   02 0093F    4B600004 A            AND,XT2  XT
      4532   02 00940                 %90      RES      0
      4533   02 00940    D24400BA 04           NXTENC                     STORE EACH HALFWORD
             02 00941    20200001 A
      4534   02 00942    6A70088A              BAL,RL   PUT1                OF THE MULTI-WORD INTEGER
      4535   02 00943    64600940              BDR,XT2  %90
      4536   02 00944    680008FC              B        %10
      4537   02 00945                 SET%PARTIC%FLAG  RES  0
      4538   02 00945    32500092 04           LW,XT1   LINEORG           SET PARTICULARIZATION
      4539   02 00946    683008FC              BEZ      %10
      4540   02 00947    2260C001 A            LV,XT2   SMINT+1             FLAG TO ONE
      4541   02 00948    D56A0037 03           STH,XT2  *SYMT,XT1
      4542   02 00949    680008FC              B        %10
1
      4544                                     LOCAL    %50,%60,%70
      4545                                     LOCAL    %80,%90,%100,%110,%120,%130
      4546                                     LOCAL    %112,%114,%140
      4547                                     OPEN     TX1,TX2,TX3,TX4
      4548                                     OPEN     TMP
      4549         00000009           TMP      EQU      9
      4550         0000000A           TX1      EQU      10
      4551         0000000B           TX2      EQU      11
      4552         0000000C           TX3      EQU      12
      4553         0000000D           TX4      EQU      13
      4554                            *
      4555   02 0094A                 SCANOPRND  RES    0
      4556                            *
      4557   02 0094A                 EV%CLN%OPRND  RES 0
      4558                            *
      4559   02 0094A    32260005 A            LW,XW    OPRND,LVL         GET INDEX TO OPERAND FIELD
      4560                            *
      4561   02 0094B                 SCAN     RES      0
      4562   02 0094B                 EVALUATE%AND%CLEAN RES  0
      4563   02 0094B    22400000 A            LI,XT    0                 SERIES OF EXPRESSIONS
      4564   02 0094C    6800094E              B        SCAN2
      4565   02 0094D    22400001 A   SCAN1    LI,XT    1                 SINGLE EXPRESSION
      4566   02 0094E    3540005A 04  SCAN2    STW,XT   1ARG
      4567   02 0094F    35700059 04           STW,RL   SCANEXIT          SAVE EXIT
      4568   02 00950    32160002 A            LW,XS    ECT,LVL           SET XS TO FIRST ECT ENTRY
      4569   02 00951    3510005F 04           STW,XS   SCANXS
      4570   02 00952    22400000 A            LI,XT    0
      4571   02 00953    3540005B 04           STW,XT   SCLVL
      4572   02 00954    3540005C 04           STW,XT   SCARG
      4573   02 00955    3540005D 04           STW,XT   LFWDFLG
      4574   02 00956    3540005E 04           STW,XT   LITFLAG
      4575   02 00957                 SCLOOP   RES      0
      4576   02 00957    3300005B 04           MTW,0    SCLVL             LEVEL
      4577   02 00958    69100FBC              BLZ      SCRET
      4578   02 00959    D24400BA 04           NXTENC                     GET NEXT ENCODED ITEM
             02 0095A    20200001 A
      4579   02 0095B    4B4011E3              AND,XT   =ENCITEM          TRIM TO 16 BITS
      4580   02 0095C    21400005 A            CI,XT    BLANKEXP          BLANK EXPRESSION
      4581   02 0095D    68300960              BE       SCLOOP25          YES
      4582   02 0095E    2140E000 A            BFZ,XT   TFLD,SCCON        BRANCH IF CONTROL ITEM
             02 0095F    68400A9E
      4583   02 00960    3300005B 04  SCLOOP25 MTW,0    SCLVL             SCAN LEVEL = 0
      4584   02 00961    69200967              BGZ      SCLOOP35
      4585   02 00962    3300005A 04           MTW,0    1ARG              YES, SINGLE EXP ENTRY
      4586   02 00963    68200966              BLEZ     SCLOOP30          NO
      4587   02 00964    3300005C 04           MTW,0    SCARG             YES, ARG PROCESSED
      4588   02 00965    69200FB9              BGZ      SCLOOP40          YES
      4589   02 00966                 SCLOOP30 RES      0
      4590   02 00966    3310005C 04           MTW,+1   SCARG             NO.  SET ARG PROCESSED FLAG
      4591   02 00967    2260E000 A   SCLOOP35 LV,XT2   TFLD
      4592   02 00968    4B600004 A            AND,XT2  XT
      4593   02 00969    25600073 A            SHIFT,XT2  TLOB,31
      4594   02 0096A    725C096C              LB,XT1   SC1%JUMP,XT2
      4595   02 0096B    680A096C              B        SC1%BASE,XT1
      4596   02 0096C                 SC1%BASE RES      0
      4597   02 0096C                 SC1%JUMP RES      0
      4598   02 0096C    03       A            BYTE,SC1%BASE  SCBLNK      BLANK EXPRESSION
      4599   02 0096C 1  02       A            BYTE     SCUNDSYM          DIRECTIVE
      4600   02 0096C 2  27       A            BYTE     SCGSYM            GLOBAL SYMBOL
      4601   02 0096C 3  34       A            BYTE     SCLSYM            LOCAL SYMBOL
      4602   02 0096D    06       A            BYTE     SCGSSYM           GLOBAL SUBSCRIPTED SYMBOL
      4603   02 0096D 1  1A       A            BYTE     SCLSSYM           LOCAL  SUBSCRIPTED SYMBOL
      4604   02 0096D 2  21       A            BYTE     SCSINT            SMALL INTEGER
      4605   02 0096D 3  9A       A            BYTE     SCINT             INTEGER
      4606                                     BOUND    4
      4607   02 0096E                 SCUNDSYM RES      0
      4608   02 0096E    68000EDA              B        SCMAPU1           MARK DIRECTIVE AS UNDEFINED
      4609                            *
      4610                            *    S C B L N K
      4611                            *
      4612   02 0096F                 SCBLNK   RES      0
      4613   02 0096F    326000A5 04           LW,XT2   PASSDEF
      4614   02 00970    6A700790              BAL,RL   MOVEBLANK
      4615   02 00971    68000957              B        SCLOOP
      4616                            *
      4617                            *    S C G S S Y M
      4618                            *
      4619   02 00972                 SCGSSYM  RES      0
      4620   02 00972    35400046 04           STW,XT   TEMP              SAVE SUBSCRIPTED SYMBOL NUMBER
      4621   02 00973    19400008              CLM,XT   RNG%STD%FUNC
      4622         001F0000                    IF,IL                      DON'T SET UNDEF FOR STD FUNCTIONS
             02 00974    69900977
      4623   02 00975    6A70058C              CALL     GLBLADD0
      4624         000E0000                    ELS
             02 00976    68000978
      4625   02 00977    6A70058D              CALL     GLBLADD           FIND ITS SYMT ADDRESS
      4626         00F10000                    FI
      4627   02 00978    B2500086 04           LW,XT1   *FND
      4628         001F0000                    IF,FNZ   DUPFLD,XT1        DOIF DUPLICATE
             02 00979    315011E5
             02 0097A    6840097C
      4629   02 0097B    6AF00000 X            BAL,ER   DERR
      4630         00F10000                    FI
      4631   02 0097C    32400046 04           LW,XT    TEMP              RESTORE SUBSCRIPTED SYMBOL NUMBER
      4632   02 0097D    19400006              CLM,XT   RNG%PREFIX%FUNC
      4633         001F0000                    IF,IL
             02 0097E    69900982
      4634   02 0097F    204F7FB1 A            AI,XT    -(LO%PREFIX%FUNC+ENCSSYM)
      4635   02 00980    5258098A              LH,XT1   SC6%JUMP,XT
      4636   02 00981    680A0A7C              B        SC6%BASE,XT1
      4637                            *
      4638         00F10000                    FI
      4639   02 00982    6A700000 X            BAL,RL   TYPE
      4640   02 00983    31601217              CV,XT2   FUNCET
      4641   02 00984    68300A5C              BE       SSYMFUNC
      4642   02 00985    32400046 04           LW,XT    TEMP              RESTORE SUB-SYMBOL NUMBER
      4643                            *
      4644                            *    S C L S S Y M
      4645                            *
      4646   02 00986                 SCLSSYM  RES      0
      4647   02 00986    32601218              LV,XT2   SUBSYMET
      4648   02 00987    32900004 A            LW,TMP   XT
      4649   02 00988    3310005B 04           MTW,+1   SCLVL
      4650   02 00989    680009C3              B        %55
      4651                            *
      4652   02 0098A                 SC6%JUMP RES      0
      4653   02 0098A    0000     A            HALF,SC6%BASE   SCLITF     LITERAL FUNCTION
      4654   02 0098A 2  0000     A            HALF     SCLITF            '=' OPERATOR
      4655   02 0098B    0297     A            HALF     SCS:KEYS          S:KEYS
      4656   02 0098B 2  0003     A            HALF     SCSCOR            SCOR
      4657   02 0098C    0226     A            HALF     SCTCOR            TCOR
      4658                                     BOUND    4
      4659                            *
      4660                            *    S C S I N T
      4661                            *
      4662   02 0098D                 SCSINT   RES      0
      4663   02 0098D    35400009 A            STW,XT   TMP               BUILD SMALL INTEGER
      4664   02 0098E    4B9011E4              AND,TMP  L(VFLD)             VALUE
      4665   02 0098F                 SCSINT1  RES      0
      4666   02 0098F    499000A5 04           OR,TMP   PASSDEF             DEF
      4667   02 00990                 SCSINT3  RES      0
      4668   02 00990    499011E9              OR,TMP   L(SPINT)            ITEM IDENTIFIER
      4669   02 00991    326011FC              LV,XT2   SPINTET           SET UP SPECIAL INTEGER TYPE
      4670   02 00992    680009C3              B        %55
      4671                            *
      4672                            *    S C G S Y M
      4673                            *
      4674   02 00993                 SCGSYM   RES      0
      4675   02 00993    19400004              CLM,XT   RNG%LOC%CTR       IS SYMBOL % OR %%?
      4676   02 00994    68900A72              BIL      %1000             BRIF YES.
      4677                            *
      4678   02 00995    6A70058D              BAL,RL   GLBLADD
      4679   02 00996                 SCGSYM2  RES      0
      4680   02 00996    32400086 04           LW,XT    FND               ADDRESS OF SYMBOL
      4681   02 00997    32580000 A            LW,XT1   0,XT              SYMBOL CONTROL WORD
      4682   02 00998                 SCGSYM1  RES      0
      4683   02 00998    32900005 A            LW,TMP   XT1
      4684   02 00999    315011E5              CV,XT1   DUPFLD            MARK A DUP ERROR
      4685   02 0099A    6840099C              BAZ      %+2                 IF THE DUP FIELD
      4686   02 0099B    6AF00000 X            BAL,ER   DERR
      4687   02 0099C    6A700000 X            BAL,RL   TYPE              EVALUATE TYPE FIELD
      4688   02 0099D    25600205 A            SHIFT,XT2 ETLOB,31
      4689   02 0099E    727C0A01              LB,RL    SC2%JUMP,XT2      BRANCH TO APPROPRIATE ROUTINE
      4690   02 0099F    680E09A0              B        SC2%BASE,RL         FOR THIS TYPE
      4691   02 009A0                 SC2%BASE RES      0
      4692                            *
      4693                            *    S C L S Y M
      4694                            *
      4695   02 009A0                 SCLSYM   RES      0
      4696   02 009A0    6A70072C              BAL,RL   LOCALADD
      4697   02 009A1    B2500086 04           LW,XT1   *FND              GET VALUE OF LOCAL ENTRY
      4698   02 009A2    315011E7              CV,XT1   SPAFLD            BRANCH IF THIS IS NOT THE FIRST
      4699   02 009A3    693009AF              BNE      SCLSYM1             REFERENCE TO THIS LOCAL SYMBOL
      4700   02 009A4    32501219              LV,XT1   LCLFWD+SYMBOL+WDRES  ASSIGN THE LOCAL SYMBOL A
      4701   02 009A5    30500014 03           AW,XT1   FWDNUM              FORWARD REFERENCE NUMBER WITH
      4702   02 009A6    3550003E 04           STW,XT1  LVAL                 WORD RESOLUTION
      4703   02 009A7    33100014 03           MTW,1    FWDNUM            BUMP FORWARD NUMBER
      4704   02 009A8    3310005D 04           MTW,1    LFWDFLG           SET LOCAL FORWARD FLAG
      4705   02 009A9    2260003E 04           LI,XT2   LVAL              SET UP PARAMETERS FOR 'DEFLOC'
      4706   02 009AA    35600066 04           STW,XT2  ARG
      4707   02 009AB    22600001 A            LI,XT2   1
      4708   02 009AC    3560008C 04           STW,XT2  LARG
      4709   02 009AD    6A7002A5              BAL,RL   DEFLOC            ASSIGN FORWARD REF NUMBER
      4710   02 009AE    B2500086 04           LW,XT1   *FND
      4711   02 009AF                 SCLSYM1  RES      0
      4712   02 009AF    3300005E 04           MTW,0    LITFLAG           IS THIS THE ARG OF A LIT
      4713   02 009B0    68300998              BEZ      SCGSYM1           NO
      4714   02 009B1    6A700000 X            BAL,RL   TYPE              GET TYPE OF VALUE
      4715   02 009B2    3160121A              CV,XT2   LFWDHET           IS IT A LOCAL FORWARD AND HOLD
      4716   02 009B3    683009B8              BE       SCLSYM7           YES
      4717   02 009B4    3160121B              CV,XT2   LCLFWDET          IS IT A LOCAL FORWARD
      4718   02 009B5    69300998              BNE      SCGSYM1           NO
      4719   02 009B6    20540000 A            AV,XT1   1**(31-STYPELOB)  YES, MAKE INTO A LOCAL FWD & HOLD
      4720   02 009B7    B5500086 04           STW,XT1  *FND              PUT IN SYMT
      4721   02 009B8                 SCLSYM7  RES      0
      4722   02 009B8    4950120B              OR,XT1   =1**(31-DEFLOB)   SET TO DEFINED
      4723   02 009B9    68000998              B        SCGSYM1
      4724                            *
      4725                            *    UNDEFINED
      4726                            *
      4727   02 009BA                 SCUNDGLBL  RES    0
      4728   02 009BA    3300002D 03             MTW,0    TCORFLG         DON'T SET SYMBOL TABLE ENTRY IF
      4729   02 009BB    693009BE              BNEZ     %45                 THIS IS A TCOR REFERENCE
      4730   02 009BC    329011DE              LV,TMP   SPINTFLD          SET SYMBOL TABLE
      4731   02 009BD    C7900086 04           STS,TMP  *FND                ENTRY TO  'UNDEFINED,USED'
      4732   02 009BE                 %45      RES      0
      4733   02 009BE    32900098 04           LW,TMP   MAIN              GET SYMBOL NUMBER
      4734   02 009BF    38900037 03           SW,TMP   SYMT
      4735   02 009C0    499011E7              OR,TMP   L(SPAFLD)
      4736   02 009C1                 SCUND    RES      0
      4737   02 009C1    6AF00000 X            BAL,ER   UERR              MARK A 'U' ERROR
      4738   02 009C2    326011DF     %50      LW,XT2   L(UGLBLET)
      4739   02 009C3                 %55      RES      0
      4740   02 009C3    35600060 04           STW,XT2  DD%TYPE           SET UP ECT TYPE
      4741   02 009C4    22500001 A   %60      LI,XT1   1                 LENGTH OF EVT ENTRY
      4742   02 009C5    22400009 A            LI,XT    TMP               ADDRESS OF EVT ENTRY
      4743   02 009C6    4B90121C              AND,TMP  =~EXTFLD          CLEAR EXT FIELD
      4744   02 009C7                 V%C%3    RES      0
      4745   02 009C7    6A700EA3              BAL,RL   SCPUSH            MOVE TO EVT,ECT TABLES
      4746   02 009C8    68000957              B        SCLOOP
      4747   02 009C9    4B50121D     %70      AND,XT1  L(LENGTHFLD)      GET LENGTH OF EVT ENTRY
      4748   02 009CA    680009C7              B        V%C%3
      4749   02 009CB                 %75      RES      0
      4750   02 009CB    4B90121E              AND,TMP  L(DUPFLD+SETFLD+DEFFLD+ARFLD+EDNFLD)
      4751   02 009CC    4990121F              OR,TMP   L(SYMBOL+EXTREF)
      4752   02 009CD    32601220               LV,XT2  EXTET             EXTERNAL TYPE
      4753   02 009CE    680009C3               B       %55
      4754   02 009CF                 SYMLIST  RES      0
      4755   02 009CF    6A700B0C              BAL,RL   LITERROR          ERROR IF =LIST
      4756   02 009D0    32400086 04           LW,XT    FND
      4757   02 009D1    32880001 A            LW,TR0   ELEM,XT           NO. OF LIST ELEMENTS
      4758   02 009D2    33200086 04            MTW,+2   FND              SKIP LIST CONTROL ITEM
      4759   02 009D3    22B00000 A            LI,TX2   0                 CLEAR * INDICATOR FOR FIRST THING
      4760   02 009D4    D25400BA 04           NXTENC,XT1  XW,NOINC       SET * INDICATOR IF LIST
      4761   02 009D5    21500008 A            CV,XT1   ASTFLG              SYMBOL WAS  PRECEEDED BY *
      4762   02 009D6    693009D9              BNE      SCSYML1
      4763   02 009D7    32B011FB              LV,TX2   ASTFLD
      4764   02 009D8    20200001 A            AI,XW    1                 SKIP ENCODED *
      4765   02 009D9                 SCSYML1  RES      0
      4766   02 009D9    32400086 04           LW,XT    FND
      4767   02 009DA    32580000 A            LW,XT1   0,XT              NEXT THING IN SYMT
      4768   02 009DB    6A700000 X            BAL,RL   TYPE              TYPE IT
      4769   02 009DC    66B00060 04           AWM,TX2  DD%TYPE           ADD * INDICATOR TO FIRST THING
      4770   02 009DD    6A70060D              BAL,RL   LENGTH            FIND ITS LENGTH
      4771   02 009DE    66500086 04           AWM,XT1  FND               ADD LENGTH TO FND
      4772   02 009DF    6A700EA3              BAL,RL   SCPUSH            PUSH IT ONTO EVT AND ECT
      4773   02 009E0    6A7009E7              BAL,RL   1ELEMENT%TEST
      4774   02 009E1    22B00000 A            LI,TX2   0                 CLEAR * INDICATOR FOR THE REST
      4775   02 009E2    648009D9              BDR,TR0  SCSYML1           DECREASE LIST ELEMENTS AND RETURN
      4776   02 009E3    68000957              B        SCLOOP
      4777                            *
      4778                            *   HERE WHEN A BLANK IS FOUND IN THE SYMBOL TABLE
      4779                            *
      4780   02 009E4                 SCBLNKSYM  RES    0
      4781   02 009E4    4B901221              AND,TMP  =~DEFFLD          MOVE PASSDEF TO DEF FIELD IN CASE
      4782   02 009E5    499000A5 04           OR,TMP   PASSDEF             THIS IS AN IMPLICIT BLANK
      4783   02 009E6    680009C4              B        %60
      4784                            *
      4785                            *  1 E L E M E N T % T E S T
      4786                            *        TEST FOR A ONE-ELEMENT LIST AS THE LAST THING IN THE ECT & EVT
      4787                            *          AND DELETE THE LIST DESIGNATIONS.
      4788                            *
      4789                            *          INPUT: ECT,LVL POINTS ONE WORD BEYOND THE ITEM TO TEST
      4790                            *                 THAT ITEM MUST BE THE LAST THING IN ECT,EVT
      4791                            *
      4792                            *        OUTPUT:  IF ALL ONE-ELEMENT LISTS ARE FOUND, THE ECT
      4793                            *                   ENTRY, AND THE 2-WORD LIST CONTROL ITEMS ARE
      4794                            *                   REMOVED FROM THE ECT AND EVT.
      4795                            *                 REGISTER XT CONTAINS ET FIELD OF LAST ECT ENTRY.
      4796                            *
      4797   02 009E7                 1ELEMENT%TEST RES 0
      4798   02 009E7    357000BC 04           STW,RL   1ELEMXIT
      4799   02 009E8                 1ELEM%1  RES      0
      4800   02 009E8    32460002 A            LW,XT    ECT,LVL           LOCATE THE ECT ENTRY
      4801   02 009E9    30400035 03           AW,XT    KLINE
      4802   02 009EA    32480001 A            LW,XT    1,XT
      4803   02 009EB    325011ED              LV,XT1   ETFLD
      4804   02 009EC    454011EE              CS,XT    =LISTET
      4805   02 009ED    E93000BC 04           BNE      *1ELEMXIT         EXIT IF NOT A LIST
      4806   02 009EE    30400035 03           AW,XT    KLINE
      4807   02 009EF                 1ELEM%2  RES      0
      4808   02 009EF    32580001 A            LW,XT1   ELEM,XT
      4809   02 009F0    21500001 A            CI,XT1   1
      4810   02 009F1    E93000BC 04           BNE      *1ELEMXIT         EXIT IF NOT ONE ELEMENT
      4811                            *
      4812   02 009F2    20400002 A            AI,XT    2
      4813   02 009F3    32580000 A            LW,XT1   0,XT              GET NEXT CONTROL WORD
      4814         001F0000                    IF,FZ    SPAFLD,XT1        DOIF NOT ONE WORD ENTRY
             02 009F4    315011E7
             02 009F5    694009F9
      4815   02 009F6    4B5011E8              AND,XT1  =TYPEFLD
      4816   02 009F7    21508000 A            CV,XT1   LISTS
      4817   02 009F8    683009EF              BE       1ELEM%2           KEEP LOOKING IF THIS IS A LIST
      4818                            *
      4819         00F10000                    FI
      4820   02 009F9    35400060 04           STW,XT   DD%TYPE           SAVE LOC OF ITEM REMAINING
      4821   02 009FA    6A700EBD              BAL,RL   SCPULL            REMOVE ECT AND EVT ENTRIES
      4822   02 009FB    32400060 04           LW,XT    DD%TYPE           RESTORE LOC OF REMAINING ITEM
      4823   02 009FC    32580000 A            LW,XT1   0,XT
      4824   02 009FD    6A700000 X            BAL,RL   TYPE              TYPE IT
      4825   02 009FE    6A70060D              BAL,RL   LENGTH            FIND ITS LENGTH
      4826   02 009FF    6A700EA3              BAL,RL   SCPUSH            RE-INSERT IT IN ECT,EVT
      4827   02 00A00    680009E8              B        1ELEM%1
      4828   02 00A01                 SC2%JUMP RES      0
      4829   02 00A01    1A       A            BYTE,SC2%BASE  SCUNDGLBL   UNDEFINED GLOBAL
      4830   02 00A01 1  24       A            BYTE     %60               SPECIAL ADDRESS
      4831   02 00A01 2  2B       A            BYTE     %75               SPECIAL EXTERNAL
      4832   02 00A01 3  29       A            BYTE     %70               ADDRESS
      4833   02 00A02    29       A            BYTE     %70               SUM
      4834   02 00A02 1  24       A            BYTE     %60               EXTERNAL
      4835   02 00A02 2  24       A            BYTE     %60               LOCAL FORWARD
      4836   02 00A02 3  24       A            BYTE     %60               LOCAL FORWARD AND HOLD
      4837   02 00A03    24       A            BYTE     %60               ONE-WD ADDRESS
      4838   02 00A03 1  24       A            BYTE     %60               SPECIAL INTEGER
      4839   02 00A03 2  44       A            BYTE     SCBLNKSYM         BLANK
      4840   02 00A03 3  29       A            BYTE     %70               INTEGER
      4841   02 00A04    29       A            BYTE     %70               DECIMAL
      4842   02 00A04 1  29       A            BYTE     %70               TEXT
      4843   02 00A04 2  29       A            BYTE     %70               FX
      4844   02 00A04 3  29       A            BYTE     %70               FS
      4845   02 00A05    29       A            BYTE     %70               FL
      4846   02 00A05 1  29       A            BYTE     %70               DPI
      4847   02 00A05 2  2F       A            BYTE     SYMLIST           LIST
      4848   02 00A05 3  B7       A            BYTE     SYMFUNC           FUNCTION
      4849                                     BOUND    4
      4850                            *
      4851                            *    S C I N T
      4852                            *
      4853   02 00A06                 SCINT    RES      0
      4854   02 00A06    226000FF A            LV,XT2   LFLD              SAVE ENC LENGTH FIELD
      4855   02 00A07    4B600004 A            AND,XT2  XT                  IN XT2
      4856   02 00A08    32900006 A            LW,TMP   XT2               COMPUTE NUM WORDS
      4857   02 00A09    20900001 A            AI,TMP   1                   IN THE
      4858   02 00A0A    2590007F A            SLS,TMP  -1                  EVT ENTRY
      4859   02 00A0B    20900001 A            AI,TMP   1                 ADD 1 FOR THE CONTROL WORD
      4860   02 00A0C    4B401209              AND,XT   =CTFLD            SAVE CONSTANT TYPE
      4861   02 00A0D    25400078 A            SHIFT,XT CTLOB,31          RT ADJUST
      4862   02 00A0E    32700004 A            LW,RL    XT                SAVE FOR BRANCH
      4863   02 00A0F    2040000B A            AI,XT    11                ADD ET OFFSET CONSTANT
      4864   02 00A10    2540027B A            SHIFT,XT 31,ETLOB
      4865   02 00A11    35400060 04           STW,XT   DD%TYPE           SAVE AS ECT ENTRY TYPE
      4866   02 00A12    32500007 A            LW,XT1   RL                CT FIELD OF ENC ENTRY
      4867   02 00A13    25500272 A            SHIFT,XT1  31,CTYPELOB
      4868   02 00A14    30900005 A            AW,TMP   XT1
      4869   02 00A15    20910000 A            AV,TMP   CONSTANT          CONSTANT TYPE IN CTYPE FIELD
      4870   02 00A16    309000A5 04           AW,TMP   PASSDEF
      4871   02 00A17    D28400BA 04           NXTENC,TR0                 NEXT ENCODED ENTRY TO TR0
             02 00A18    20200001 A
      4872   02 00A19    21700002 A            CI,RL    2                 2=TEXT
      4873   02 00A1A    68300000 F            BE       %100              TEXT
      4874   02 00A1B    69200000 F            BG       %110              FX, FS, OR FL TYPES
      4875   02 00A1C    21700001 A            CI,RL    1
      4876   02 00A1D    68300000 F            BE       %90               DECIMAL
      4877                            *
      4878                            *    INTEGER
      4879                            *
      4880   02 00A1E    21600002 A   %80      CI,XT2   2                 CONSTANT LENGTH = 2
      4881   02 00A1F    69100000 F            BL       %140              LENGTH = 1
      4882   02 00A20    69200A25              BG       %84               LENGTH > 2
      4883   02 00A21    2180FFC0 A            CV,TR0   ENCITEM&((~VALFLD)**(-16))  WILL CONST FIT IN VAL FLD
      4884   02 00A22    68400000 F            BAZ      %120
      4885   02 00A23    21808000 A            CI,TR0   ENCHOB            IS THIS CONSTANT A DPI
      4886   02 00A24    68400000 F            BAZ      %110              NO
      4887   02 00A25                 %84      RES      0
      4888   02 00A25    30901208              AV,TMP   DPI-SPI           CHANGE CTYPE FROM INTEGER TO DPI
      4889   02 00A26    32A01222              LV,TX1   DPIET             MOVE DPI TO DD%TYPE
      4890   02 00A27    35A00060 04           STW,TX1  DD%TYPE
      4891   02 00A28    68000000 F            B        %110
      4892   02 00A29                 %120     RES      0
      4893   02 00A29    D29400BA 04           NXTENC,TMP                 NEXT ENC ITEM TO TMP
             02 00A2A    20200001 A
      4894   02 00A2B    55800009 A            STH,TR0  TMP               INSERT HIGH ORDER 6 BITS
      4895   02 00A2C    6800098F              B        SCSINT1
      4896   02 00A2D    21600001 A   %90      CI,XT2   1                 CONSTANT CONSIST OF AN EVEN # WDS
      4897   02 00A2E    68400000 F            BAZ      %110              YES
      4898   02 00A2F    20600001 A            AI,XT2   1                 NO, ADD 1 TO COUNT TO MAKE EVEN
      4899   02 00A30    202FFFFF A            AI,XW    -1                BACK UP ENCODED TEXT POINTER
      4900   02 00A31    22800000 A            LI,TR0   0                 SET CURRENT ENCODED TEXT WD TO 0
      4901   02 00A32                 %110     RES      0
      4902   02 00A32    22500001 A            LI,XT1   1                 NUMBER OF WORDS TO PUSH
      4903   02 00A33    22400009 A            LI,XT    TMP               ADDRESS OF ITEM TO PUSH
      4904   02 00A34    6A700EA3              BAL,RL   SCPUSH            PUSH THE CONTROL WORD ONTO STACK
      4905   02 00A35                 %112     RES      0
      4906   02 00A35    55800009 A            STH,TR0  TMP
      4907   02 00A36    22404040 A            LI,XT    '  '
      4908   02 00A37    206FFFFF A            AI,XT2   -1                DECREMENT NUMBER OF ENCODED ITEMS
      4909   02 00A38    68300000 F            BEZ      %114              BRANCH IF NO MORE ENCODED ITEMS
      4910   02 00A39    D24400BA 04           NXTENC                     GET NEXT ENCODED ITEM
             02 00A3A    20200001 A
      4911   02 00A3B                 %114     RES      0
      4912   02 00A3B    22500001 A            LI,XT1   1                 NUMBER OF WORDS TO PUSH
      4913   02 00A3C    554A0009 A            STH,XT   TMP,XT1           STORE 2ND HALFWORD
      4914   02 00A3D    22400009 A            LI,XT    TMP               ADDRESS OF ITEM TO PUSH
      4915   02 00A3E    6A700EB0              BAL,RL   SCPSHV            PUSH ITEM ONTO EVT
      4916   02 00A3F    206FFFFF A            AI,XT2   -1                DECREMENT NUMBER OF ENCODED ITEMS
      4917   02 00A40    68200957              BLEZ     SCLOOP            BRANCH IF DONE
      4918   02 00A41    D28400BA 04           NXTENC,TR0                 GET NEXT ENCODED ITEM IN TR0
             02 00A42    20200001 A
      4919   02 00A43    68000A35              B        %112
      4920   02 00A44                 %100     RES      0
      4921   02 00A44    21800100 A            CV,TR0   1**(31-BYTE2LOB)
      4922   02 00A45    69100A32              BL       %110              ZERO TEXT CHARACTERS
      4923   02 00A46    21800300 A            CV,TR0   3**(31-BYTE2LOB)  MORE THAN TWO CHARACTERS
      4924   02 00A47    68100A32              BGE      %110              YES
      4925   02 00A48    2290FF00 A            LV,TMP   BYTE2FLD          CONSTRUCT BEGINNING OF SPECIAL
      4926   02 00A49    4B900008 A            AND,TMP  TR0                 INTEGER ITEM
      4927   02 00A4A    25900010 A            SHIFT,TMP BYTE2LOB,CCLOB
      4928   02 00A4B    21600001 A            CI,XT2   1                 IS ENC ENTRY LENGTH = ONE
      4929   02 00A4C    68300000 F            BE       %130              YES. RT ADJUST THE ONE CHARACTER
      4930   02 00A4D    758E0009 A            STB,TR0  TMP,RL            FIRST CHARACTER TO BYTE2FLD
      4931   02 00A4E    D28400BA 04           NXTENC,TR0                 SECOND CHARACTER TO TR0
             02 00A4F    20200001 A
      4932   02 00A50    25800078 A            SHIFT,TR0  BYTE2LOB,BYTE3LOB  POSITION SECOND CHARACTER
      4933   02 00A51                 %130     RES      0
      4934   02 00A51    4B8011F0              AND,TR0  =BYTE3FLD
      4935   02 00A52    49900008 A            OR,TMP   TR0               STORE LAST CHARACTER IN BYTE3FLD
      4936   02 00A53    6800098F              B        SCSINT1
      4937   02 00A54                 %140     RES      0
      4938   02 00A54    2290FFFF A            LV,TMP   ENCITEM
      4939   02 00A55    4B900008 A            AND,TMP  TR0
      4940   02 00A56    6800098F              B        SCSINT1
      4941                            *  HERE FOR A SYMBOL TYPED AS A FUNCTION
      4942   02 00A57                 SYMFUNC  RES      0
      4943   02 00A57    32100002 A            LW,XS    XW
      4944   02 00A58                 SYMFUNC1 RES      0
      4945   02 00A58    6A700000 X            BAL,RL   ADV%ITM           LOCATE THE END-LINE
      4946   02 00A59    68300A62              BEZ      SYMFUNC2          FOUND
      4947   02 00A5A    3810000E A            SW,XS    CT                BUMP XM BY 1 IF END-SUB-SYMBOL
      4948   02 00A5B    68000A58              B        SYMFUNC1
      4949                            *  HERE WHEN A SUBSCRIPTED SYMBOL IS TYPED AS A FUNCTION
      4950   02 00A5C                 SSYMFUNC RES      0
      4951   02 00A5C    32100002 A            LW,XS    XW
      4952   02 00A5D                 SSYMFUNC1   RES   0
      4953   02 00A5D    6A700000 X            BAL,RL   ADV%ITM           LOCATE THE END-SUBSCRIPTED-SYMBOL
      4954   02 00A5E    21C00003 A            CV,TX3   ENDSBSYM
      4955   02 00A5F    69300A5D              BNE      SSYMFUNC1
      4956   02 00A60    20100001 A            AI,XS    1                 SKIP THE END-SUBSCRIPTED-SYMBOL
      4957   02 00A61    46200001 A            XW,XW    XS
      4958   02 00A62                 SYMFUNC2 RES      0
      4959   02 00A62    B2900086 04           LW,TMP   *FND              ERROR IF FUNC IS NOT DEFINED
      4960   02 00A63    4B9011EB              AND,TMP  =DEFFLD             FOR THE CURRENT PASS
      4961   02 00A64    319000A5 04           CW,TMP   PASSDEF
      4962   02 00A65    69300EDA              BNE      SCMAPU1           GO OUTPUT A ZERO AND AN ERROR
      4963   02 00A66    22500990              LI,XT1   SCSINT3           RETURN IF TOO MANY PROCS
      4964   02 00A67    6A70008C              BAL,RL   CK%PREF           CHECK PROCS NESTED TOO DEEPLY
      4965   02 00A68    46160005 A            XW,XS    OPRND,LVL         REPLACE WITH LOCATION OF PARAMETERS
      4966   02 00A69    35100055 04           STW,XS   OPRNDORG          SAVE ORIGINAL OPRND LOCATION
      4967   02 00A6A    35200054 04           STW,XW   NEXTXW            SAVE LOCATION OF ARG. END
      4968   02 00A6B    22400048 04           LI,XT    SAVEORG           ORIGIN OF SAVED WORDS
      4969   02 00A6C    2250001D A            LI,XT1   NSAVES            NUMBER OF SAVED WORDS
      4970   02 00A6D    6A700EA3              BAL,RL   SCPUSH            SAVE VOLATILE DATA
      4971   02 00A6E    32400086 04           LW,XT    FND               GET ADDRESS OF FUNCTION ENTRY
      4972   02 00A6F    6A70003C              BAL,RL   BLDPLT            BUILD A NEW PROC LEVEL TABLE
      4973   02 00A70    F3100003 A            MTB,+1   *LVL+PLOC         SET 'FUNC' FLAG IN PLOC WORD
      4974   02 00A71    6800064C              B        LINE3             GO PROCESS THE FUNCTION REFERENCE
      4975                            *
      4976                            *    HERE IF GLOBAL SYMBOL = % OR %%
      4977                            *
      4978   02 00A72                 %1000    RES      0
      4979   02 00A72    32600004 A            LW,XT2   XT                MAP % TO 0, %% TO 1, FOR INPUT
      4980   02 00A73    206FBFC4 A            AI,XT2   -ENC%               TO ASDLR.
      4981   02 00A74    6A70001F              BAL,RL   ASDLR             ASSEMBLE % OR %%
      4982   02 00A75    32900046 04           LW,TMP   TEMP              IS RESULT A SPECIAL ADDRESS
      4983   02 00A76    69100AED              BLZ      V%C%6             YES, SET TYPE = SPA
      4984   02 00A77    32A01223              LV,TX1   ADDRET            SET TYPE = SIMPLE ADDRESS
      4985   02 00A78    35A00060 04           STW,TX1  DD%TYPE
      4986   02 00A79    22400046 04           LI,XT    TEMP              POINTER TO ITEM
      4987   02 00A7A    22500002 A            LI,XT1   2                 SIZE
      4988   02 00A7B    680009C7              B        V%C%3
      4989                            *
      4990   02 00A7C                 SC6%BASE RES      0
      4991                            *
      4992                            *    S C L I T F
      4993                            *
      4994   02 00A7C                 SCLITF   RES      0                 LITERAL FUNCTION OR '=' OPERATOR
      4995   02 00A7C    3310005E 04           MTW,+1   LITFLAG           GUYS INSIDE MAY BE INTERESTED
      4996   02 00A7D    32400046 04           LW,XT    TEMP              RESTORE THE ENCODED SUB-SYM NUMBER
      4997   02 00A7E    68000986              B        SCLSSYM           (XT MUST HAVE CLEAN SYMBOL NUMBER)
      4998                            *
      4999                            *    S C S C O R
      5000                            *
      5001   02 00A7F                 SCSCOR   RES      0
      5002   02 00A7F    22900000 A            LI,TMP   0
      5003   02 00A80    32100002 A            LW,XS    XW                MOVE ORIGIN OF TEST ITEM
      5004   02 00A81    6A700000 X            BAL,RL   ADV%ITM           ADVANCE ITEM (USES XM WHICH IS XS)
      5005   02 00A82    32A00001 A            LW,TX1   XS                CALCULATE SIZE OF TEST ITEM
      5006   02 00A83    38A00002 A            SW,TX1   XW
      5007   02 00A84    35A0003E 04           STW,TX1  LVAL
      5008   02 00A85    20900001 A   SCSCOR3  AI,TMP   1
      5009   02 00A86    21C00003 A            CV,TX3   ENDSBSYM          FINISHED WITH ALL ITEMS
      5010   02 00A87    68300A9A              BE       SCSCOR10          YES
      5011   02 00A88    35100042 04           STW,XS   RVAL              NO, SAVE OFFSET TO NEXT ITEM
      5012   02 00A89    6A700000 X            BAL,RL   ADV%ITM           ADVANCE ITEM
      5013   02 00A8A    32A00001 A            LW,TX1   XS                CALCULATE SIZE OF NTH ITEM
      5014   02 00A8B    38A00042 04           SW,TX1   RVAL
      5015   02 00A8C    31A0003E 04           CW,TX1   LVAL              DOES SIZE 1  =  SIZE N
      5016   02 00A8D    69300A85              BNE      SCSCOR3           NO
      5017   02 00A8E    32700002 A            LW,RL    XW                YES, DOES ITEM MATCH
      5018   02 00A8F    32500042 04           LW,XT1   RVAL
      5019   02 00A90                 SCSCOR5  RES      0
      5020   02 00A90    D2BE00BA 04           LH,TX2   *XWBASE,RL
      5021   02 00A91    D1BA00BA 04           CH,TX2   *XWBASE,XT1
      5022   02 00A92    69300A85              BNE      SCSCOR3           NO
      5023   02 00A93    20700001 A            AI,RL    1
      5024   02 00A94    20500001 A            AI,XT1   1
      5025   02 00A95    64A00A90              BDR,TX1  SCSCOR5
      5026   02 00A96                 SCSCOR9  RES      0
      5027   02 00A96    21C00003 A            CV,TX3   ENDSBSYM
      5028   02 00A97    68300A9B              BE       SCSCOR11
      5029   02 00A98                 SCSCOR7  RES      0
      5030   02 00A98    6A700000 X            BAL,RL   ADV%ITM
      5031   02 00A99    68000A96              B        SCSCOR9
      5032   02 00A9A    22900000 A   SCSCOR10 LI,TMP   0                 NOT FOUND, RESULT = 0
      5033   02 00A9B    32200001 A   SCSCOR11 LW,XW    XS
      5034   02 00A9C    20200001 A            AI,XW    1                 SKIP END SCOR ITEM
      5035   02 00A9D    6800098F              B        SCSINT1
      5036                                     LOCAL    %10,%14,%16,%20,%24,%26,%28
      5037                                     LOCAL    %32,%34,%38,%44,%46,%48
      5038                                     LOCAL    %32A,%18,%19,%29,%30,%31,%33
      5039                            *
      5040                            *    S C C O N
      5041                            *
      5042   02 00A9E                 SCCON    RES      0
      5043   02 00A9E    3300005A 04           MTW,0    1ARG              ONE ARG ONLY
      5044   02 00A9F    68300AA6              BEZ      SCCON5            NO, CONTINUE
      5045   02 00AA0    3300005B 04           MTW,0    SCLVL             YES, IS NESTING LEVEL = 0
      5046   02 00AA1    69300AA6              BNEZ     SCCON5            NO, CONTINUE
      5047   02 00AA2    3300005C 04           MTW,0    SCARG             ARG PROCESSED
      5048   02 00AA3    68300AA6              BEZ      SCCON5            NO
      5049   02 00AA4    21400008 A            CV,XT    ASTFLG            YES, IS IT PREFIX OPERATOR
      5050   02 00AA5    69100FB9              BL       SCLOOP40          NO
      5051   02 00AA6                 SCCON5   RES      0
      5052   02 00AA6    21400020 A            CI,XT    X'20'
      5053   02 00AA7    68100E0D              BGE      V%OPERATOR
      5054   02 00AA8    52580AAA              LH,XT1   SC3%JUMP,XT
      5055   02 00AA9    680A0AAA              B        SC3%BASE,XT1
      5056   02 00AAA                 SC3%BASE RES      0
      5057   02 00AAA                 SC3%JUMP RES      0
      5058   02 00AAA    0006     A            HALF,SC3%BASE  V%0         END LINE
      5059   02 00AAA 2  047D     A            HALF     SCDIR             IGNORE LIST
      5060   02 00AAB    0053     A            HALF     SCENDLIST         END LIST
      5061   02 00AAB 2  0066     A            HALF     SCENDSSYM         END SUBSCRIPTED SYMBOL
      5062   02 00AAC    000D     A            HALF     SCENDEXP          END EXPRESSION
      5063   02 00AAC 2  047D     A            HALF     SCDIR             BLANK EXPRESSION
      5064   02 00AAD    0018     A            HALF     V%8               BEGIN LIST
      5065   02 00AAD 2  001A     A            HALF     SCBEGINEXP        BEGIN EXPRESSION
      5066   02 00AAE    0021     A            HALF     V%B               '*' FLAG
      5067   02 00AAE 2  004F     A            HALF     V%14              ENCODER DETECTED TRUNCATION ERROR
      5068   02 00AAF    0051     A            HALF     V%15              ENCODER DETECTED SYNTAX ERROR
      5069                                     BOUND    4
      5070                            *
      5071                            *    END LINE
      5072                            *
      5073   02 00AB0                 V%0      RES      0
      5074   02 00AB0    33060008 A            MTW,0    SAMP,LVL
      5075   02 00AB1    68300AB5              BEZ      V%01
      5076   02 00AB2    32260008 A            LW,XW    SAMP,LVL
      5077   02 00AB3    6A700717              BAL,RL   LOADXW
      5078   02 00AB4    22400000 A            LV,XT    ENDLINE           SET XT TO SHOW ENDLINE
      5079   02 00AB5    68000FBC     V%01     B        SCRET
      5080                            *
      5081                            *    END EXPRESSION
      5082                            *
      5083   02 00AB6                 V%4      RES      0
      5084   02 00AB6    6AF00000 X            BAL,ER   EERR              REPORT AN EXPRESSION ERROR
      5085   02 00AB7                 SCENDEXP RES      0
      5086   02 00AB7    33160002 A            MTW,1    ECT,LVL
      5087   02 00AB8    32560002 A            LW,XT1   ECT,LVL
      5088   02 00AB9    30500035 03           AW,XT1   KLINE
      5089   02 00ABA    324A0000 A            LW,XT    0,XT1             SET EXPRESSION BIT
      5090   02 00ABB    4940120B              OR,XT    =EXPFLD             IN LAST ECT ENTRY
      5091   02 00ABC    464A0001 A            XW,XT    1,XT1               AND EXCHANGE IT WITH PRIOR ENTRY
      5092   02 00ABD    4B4011ED              AND,XT   =ETFLD            IF PRIOR ENTRY IS NOT AN EXPRESSION
      5093   02 00ABE    31401224              CV,XT    EXPET               ET, REPORT AN EXPRESSION ERROR
      5094   02 00ABF    69300AB6              BNE      V%4                 E.G. RESULT SHOULD BE SINGLE ITEM
      5095   02 00AC0    33F0005B 04           MTW,-1   SCLVL
      5096   02 00AC1    68000957              B        SCLOOP
      5097                            *
      5098                            *    BEGIN LIST
      5099                            *
      5100   02 00AC2                 V%8      RES      0
      5101   02 00AC2    6A700787              BAL,RL   MV:LIST
      5102   02 00AC3    68000AC7              B        V%9
      5103                            *
      5104                            *    BEGIN EXPRESSION
      5105                            *
      5106   02 00AC4                 SCBEGINEXP  RES   0
      5107   02 00AC4    32401224              LV,XT    EXPET             PUSH AN EXPRESSION ET
      5108   02 00AC5    35400060 04           STW,XT   DD%TYPE             ONTO THE ECT TO MARK THE
      5109   02 00AC6    6A700EA7              BAL,RL   SCPSHC              BEGINNING OF EXPRESSION
      5110   02 00AC7                 V%9      RES      0
      5111   02 00AC7    22500001 A            LI,XT1   1                 SET ARGUMENT PROCESSED FLAG
      5112   02 00AC8    3550005C 04           STW,XT1  SCARG
      5113   02 00AC9    3310005B 04           MTW,1    SCLVL             INCR SCAN LEVEL
      5114   02 00ACA    68000957              B        SCLOOP
      5115                            *
      5116                            *   '*' FLAG
      5117                            *
      5118   02 00ACB                 V%B      RES      0
      5119   02 00ACB    32460002 A            LW,XT    ECT,LVL
      5120   02 00ACC    20400001 A            AI,XT    1
      5121   02 00ACD    325011FB              LV,XT1   ASTFLD            STORE A ONE IN ASTERISK FIELD
      5122   02 00ACE    C7580035 03           STS,XT1  *KLINE,XT           OF LAST ECT ENTRY
      5123   02 00ACF    68000957              B        SCLOOP
      5124                            *
      5125   02 00AD0                 SC7%BASE RES      0
      5126                            *
      5127                            *   '=' FLAG (OR L INTRINSIC)
      5128                            *
      5129   02 00AD0                 V%C      RES      0
      5130   02 00AD0    22400000 A            LI,XT    0
      5131   02 00AD1    3540005E 04           STW,XT   LITFLAG           RESET LITERAL FLAG
      5132   02 00AD2    4640005D 04           XW,XT    LFWDFLG           WAS THERE A LOCAL FORWARD
      5133         001F0000                    IF,NZ                      DOIF THERE WAS
             02 00AD3    68300ADB
      5134   02 00AD4    32460002 A            LW,XT    ECT,LVL           YES, GET ECT FOR LITERAL
      5135   02 00AD5    20400001 A            AI,XT    1
      5136   02 00AD6    B2580035 03           LW,XT1   *KLINE,XT
      5137   02 00AD7    3150120B              CV,XT1   EXPFLD            IS IT AN EXPRESSION
      5138         001F0100                    IF,ANZ                     DOIF IT IS
             02 00AD8    68400ADB
      5139   02 00AD9    4B501225              AND,XT1  L(ETFLD||X'FFFFFFFF')  YES, SET ET TO UNDEFINED
      5140   02 00ADA    B5580035 03           STW,XT1  *KLINE,XT
      5141         00F10100                    FI
      5142         00F10000                    FI
      5143   02 00ADB    6A700D00              CALL     SCNOLIST          RECOVER FROM LIST IN AF           *D-DG
      5144   02 00ADC    6A700761              BAL,RL   LSRCH             SEARCH LITERAL TABLE
      5145   02 00ADD    6A700EBD              BAL,RL   SCPULL            PULL LITERAL VALUE FROM STACK
      5146   02 00ADE    33160002 A            MTW,+1   ECT,LVL           DELETE SUBSCRIPTED SYMBOL CONTROL
      5147   02 00ADF    33F60001 A            MTW,-1   EVT,LVL             ''       ''        ''   NUMBER
      5148   02 00AE0    3260120B              LV,XT2   UGLBLET+EXPFLD
      5149   02 00AE1    329011E9              LV,TMP   UNDITM
      5150   02 00AE2    33000006 03           MTW,0    PASS              LSRCH RETURNS A FORWARD (UNDEFINED)
      5151   02 00AE3    683009C3              BEZ      %55                 ADDRESS DURING THE DEF PASS
      5152   02 00AE4    32900086 04           LW,TMP   FND               GET OFFSET OF LITERAL
      5153   02 00AE5    32C00001 03           LW,TX3   LITCS             GET CONTROL SECTION OF LITERAL
      5154   02 00AE6    2191FFFF A            CV,TMP   ADDFLD            WILL OFFSET FIT IN SPA TYPE
      5155   02 00AE7    69200AEF              BG       V%C%5             NO
      5156   02 00AE8    21C0001F A            CV,TX3   CSFLD**(-(31-CSLOB))  YES, WILL C.S. FIT IN SPA TYPE
      5157   02 00AE9    69200AEF              BG       V%C%5             NO
      5158   02 00AEA    49901226              OR,TMP   =SPAFLD+WDRES+1**(31-DEFLOB)   YES, BUILD SPA
      5159   02 00AEB    25C00011 A            SLS,TX3  31-CSLOB
      5160   02 00AEC    4990000C A            OR,TMP   TX3
      5161   02 00AED                 V%C%6    RES      0
      5162   02 00AED    32601227              LV,XT2   SPADDRET          SPECIAL ADDRESS TYPE
      5163   02 00AEE    680009C3              B        %55
      5164   02 00AEF                 V%C%5    RES      0
      5165   02 00AEF    32A01228              LV,TX1   WDRES+SYMBOL+SIMPADD+1**(31-DEFLOB)  FORM CONTROL WORD
      5166   02 00AF0    35A0003E 04           STW,TX1  LVAL
      5167   02 00AF1    25C00016 A            SLS,TX3  31-FCSLOB         FORM 2ND WD
      5168   02 00AF2    49C00009 A            OR,TX3   TMP
      5169   02 00AF3    35C0003F 04           STW,TX3  LVAL+1
      5170   02 00AF4                 V%C%7    RES      0
      5171   02 00AF4    32C01223              LV,TX3   ADDRET            SIMPLE ADDRESS TYPE
      5172   02 00AF5                 V%C%4    RES      0
      5173   02 00AF5    35C00060 04           STW,TX3  DD%TYPE
      5174   02 00AF6    22500002 A            LI,XT1   2
      5175   02 00AF7    2240003E 04           LI,XT    LVAL
      5176   02 00AF8    680009C7              B        V%C%3
      5177                            *
      5178                            *    TRUNCATION ERROR
      5179                            *
      5180   02 00AF9                 V%14     RES      0
      5181   02 00AF9    6AF00000 X            BAL,ER   TERR
      5182   02 00AFA    68000957              B        SCLOOP
      5183                            *
      5184                            *    SYNTAX ERROR
      5185                            *
      5186   02 00AFB                 V%15     RES      0
      5187   02 00AFB    6AF00000 X            BAL,ER   SERR
      5188   02 00AFC    68000957              B        SCLOOP
      5189                            *
      5190                            *    END LIST
      5191                            *
      5192   02 00AFD                 SCENDLIST   RES   0
      5193   02 00AFD    33F0005B 04           MTW,-1   SCLVL             DECREASE LEVEL COUNT
      5194   02 00AFE    69100FBC              BLZ      SCRET             BRANCH IF THERE'S NO LIST
      5195   02 00AFF    6A70014A              BAL,RL   CTELEMENTS
      5196   02 00B00    6A7009E7              BAL,RL   1ELEMENT%TEST
      5197   02 00B01    4B4011ED              AND,XT   =ETFLD
      5198   02 00B02    314011EE              CV,XT    LISTET            DON'T CALL LITERROR IF THERE
      5199         001F0000                    IF,EQ                        IS NO LIST IN THE ECT.
             02 00B03    69300B06
      5200   02 00B04    6A700B0C              BAL,RL   LITERROR          ERROR IF =(LIST)
      5201   02 00B05    68000957              B        SCLOOP
      5202                            *
      5203         00F10000                    FI
      5204   02 00B06    32460002 A            LW,XT    ECT,LVL           MOVE THE EXPRESSION BIT
      5205   02 00B07    30400035 03           AW,XT    KLINE               FROM THE ONE ELEMENT THAT WAS
      5206   02 00B08    32580000 A            LW,XT1   0,XT                DELETED BECAUSE OF THE
      5207   02 00B09    4B50120B              AND,XT1  =EXPFLD             REDUNDANT 'LIST' PARENTHESES
      5208   02 00B0A    66580001 A            AWM,XT1  1,XT
      5209   02 00B0B    68000957              B        SCLOOP
      5210                            *
      5211   02 00B0C                 LITERROR RES      0
      5212   02 00B0C    3300005E 04           MTW,0    LITFLAG
      5213   02 00B0D    683E0000 A            EXIT,EQ  RL
      5214   02 00B0E    6AF00000 X            BAL,ER   EERR
      5215   02 00B0F    680E0000 A            EXIT     RL
      5216                            *
      5217                            *    END SUBSCRIPTED SYMBOL
      5218                            *
      5219   02 00B10                 SCENDSSYM   RES   0
      5220   02 00B10    33F0005B 04           MTW,-1   SCLVL
      5221   02 00B11    69100FBC              BLZ      SCRET             RETURN. END OF SUBSCRIPT COMPUTATION
      5222   02 00B12    32460002 A            LW,XT    ECT,LVL
      5223   02 00B13    327011ED              LV,XT3   ETFLD
      5224   02 00B14                 ENDSSYM1 RES      0
      5225   02 00B14    20400001 A            AI,XT    1
      5226   02 00B15    B2680035 03           LW,XT2   *KLINE,XT         FIND THE SUBSCRIPTED SYMBOL
      5227   02 00B16    45601218              CS,XT2   =SUBSYMET           ET FIELD IN THE ECT
      5228   02 00B17    69300B14              BNE      ENDSSYM1
      5229   02 00B18    32900004 A            LW,TMP   XT                COMPUTE AND STORE
      5230   02 00B19    38960002 A            SW,TMP   ECT,LVL             THE NUMBER OF
      5231   02 00B1A    209FFFFF A            AI,TMP   -1                  SUBSCRIPTS
      5232   02 00B1B    35900097 04           STW,TMP  LSTCT               IN LSTCT
      5233   02 00B1C    4B6011E1              AND,XT2  =LOCFLD           SAVE EVT OFFSET
      5234   02 00B1D    B25C0035 03           LW,XT1   *KLINE,XT2        GET ENCODED SUBSCRIPTED SYM FROM EVT
      5235   02 00B1E    1950000C              CLM,XT1  RNG%VAL%FUNC
      5236         001F0000                    IF,IL
             02 00B1F    69900B23
      5237   02 00B20    205F7FBD A            AI,XT1   -(LO%VAL%FUNC+ENCSSYM)
      5238   02 00B21    527A0B48              LH,RL    SC7%JUMP,XT1
      5239   02 00B22    680E0AD0              B        SC7%BASE,RL
      5240                            *
      5241         00F10000                    FI
      5242   02 00B23    35460002 A            STW,XT   ECT,LVL           DELETE THE ECT ENTRIES
      5243   02 00B24    35660001 A            STW,XT2  EVT,LVL           DELETE THE EVT ENTRIES
      5244   02 00B25    32400005 A            LW,XT    XT1
      5245   02 00B26    21502000 A            CI,XT1   ENCLSSYM-ENCSSYM
      5246         001F0000                    IF,AZ                      DOIF GLOBAL SUBSCRIPTED SYMBOL
             02 00B27    69400B2A
      5247   02 00B28    6A70058D              BAL,RL   GLBLADD           FIND GLOBAL SYMT ADDRESS (IN FND)
      5248         000E0000                    ELS                        IS LOCAL SUBSCRIPTED SYMBOL
             02 00B29    68000B2B
      5249   02 00B2A    6A70072C              BAL,RL   LOCALADD          FIND LOCAL SYMT ADDRESS (IN FND)
      5250         00F10000                    FI
      5251   02 00B2B    32460002 A            LW,XT    ECT,LVL           PRESET ADDRESS
      5252   02 00B2C    204FFFFF A            AI,XT    -1                  OF FIRST SUBSCRIPT
      5253   02 00B2D    30400035 03           AW,XT    KLINE
      5254   02 00B2E    354000B4 04           STW,XT   SUBLOC
      5255   02 00B2F                 ENDSSYM4 RES      0
      5256   02 00B2F    B2500086 04           LW,XT1   *FND
      5257   02 00B30    6A700000 X            BAL,RL   TYPE              TYPE THE NEXT SYMT ITEM
      5258   02 00B31                 ENDSSYM5 RES      0
      5259   02 00B31    6A701115              BAL,RL   SUBVAL            NEXT SUBSCRIPT NUMBER -> SUB#
      5260   02 00B32    32500060 04           LW,XT1   DD%TYPE           BRANCH IF THIS SYMT ENTRY IS
      5261   02 00B33    683009BA              BEZ      SCUNDGLBL         UNDEFINED
      5262                            *
      5263   02 00B34    315011EE              CV,XT1   LISTET            BRANCH IF THIS ENTRY IS
      5264   02 00B35    69300B43              BNE      ENDSSYM7          NOT A LIST
      5265   02 00B36    32600086 04           LW,XT2   FND               NUMBER OF ELEMENTS
      5266   02 00B37    33200086 04           MTW,+2   FND               SKIP LIST CONTROL ITEM
      5267   02 00B38    314C0001 A            CW,XT    ELEM,XT2          BRANCH TO STORE BLANK IF
      5268   02 00B39    6920096F              BG       SCBLNK              NOT ENOUGH ELEMENTS
      5269                            *
      5270   02 00B3A    326000B3 04           LW,XT2   SUB#
      5271   02 00B3B    68000B3F              B        SSYMA2
      5272                            *
      5273   02 00B3C                 SSYMA1   RES      0
      5274   02 00B3C    32400086 04           LW,XT    FND               SKIP SUB#-1 SYMT ITEMS,
      5275   02 00B3D    6A70060D              CALL     LENGTH              AND ADD LENGTH OF
      5276   02 00B3E    66500086 04           AWM,XT1  FND                 SKIPPED ITEM TO FND
      5277   02 00B3F                 SSYMA2   RES      0
      5278   02 00B3F    64600B3C              BDR,XT2  SSYMA1
      5279                            *
      5280   02 00B40    33F00097 04           MTW,-1   LSTCT             DECREASE # SUBSCRIPTS
      5281   02 00B41    69200B2F              BGZ      ENDSSYM4          RETURN IF MORE SUBSCRIPTS
      5282   02 00B42    68000996              B        SCGSYM2
      5283                            * HERE THE ELEMENT IS NOT A LIST
      5284   02 00B43                 ENDSSYM7 RES      0
      5285   02 00B43    33F000B3 04           MTW,-1   SUB#              USE THE SYMT ITEM IF ALL
      5286   02 00B44    6930096F              BNEZ     SCBLNK
      5287   02 00B45    33F00097 04           MTW,-1   LSTCT
      5288   02 00B46    68300996              BEZ      SCGSYM2
      5289   02 00B47    68000B31              B        ENDSSYM5
      5290                            *
      5291   02 00B48                 SC7%JUMP RES      0
      5292   02 00B48    00C6     A            HALF,SC7%BASE   V%F        BA
      5293   02 00B48 2  00C6     A            HALF     V%10              HA
      5294   02 00B49    00C6     A            HALF     V%11              WA
      5295   02 00B49 2  00C6     A            HALF     V%12              DA
      5296   02 00B4A    013C     A            HALF     V%13              ABSVAL
      5297   02 00B4A 2  009D     A            HALF     V%E               CS
      5298   02 00B4B    007F     A            HALF     NUMINTRINSIC      NUM
      5299   02 00B4B 2  0169     A            HALF     UFVINTRINSIC      S:IFR
      5300   02 00B4C    0091     A            HALF     NUMCINTRINSIC     S:NUMC
      5301   02 00B4C 2  019F     A            HALF     SCS:PT            S:PT
      5302   02 00B4D    0169     A            HALF     UFVINTRINSIC      S:UFV
      5303   02 00B4D 2  018A     A            HALF     SCS:UT            S:UT
      5304   02 00B4E    0000     A            HALF     V%C               L
      5305   02 00B4E 2  0000     A            HALF     V%C               '=' OPERATOR
      5306                                     BOUND    4
      5307                            *
      5308   02 00B4F                 NUMINTRINSIC RES  0
      5309   02 00B4F    35460002 A            STW,XT   ECT,LVL           DELETE THE ECT ENTRIES
      5310   02 00B50    35660001 A            STW,XT2  EVT,LVL           DELETE THE EVT ENTRIES
      5311   02 00B51    32D000A5 04           LW,TX4   PASSDEF
      5312   02 00B52    204FFFFF A            AI,XT    -1
      5313   02 00B53    21900001 A            CI,TMP   1                 IS THE ONE ITEM
      5314   02 00B54    69300B5A              BNE      NUMINT1           NO, USE THE ITEM COUNT
      5315                            *
      5316   02 00B55    327011ED              LV,XT3   ETFLD
      5317   02 00B56    B2680035 03           LW,XT2   *KLINE,XT         USE ZERO IF THE SINGLE ITEM
      5318   02 00B57    4560120C              CS,XT2  =BLANKET             IS A BLANK EXPR.
      5319   02 00B58    69300B5A              BNE      NUMINT1
      5320   02 00B59    33F00097 04           MTW,-1   LSTCT             ZERO -> LSTCT
      5321   02 00B5A                 NUMINT1  RES      0
      5322   02 00B5A    B2580035 03           LW,XT1   *KLINE,XT         NEXT ECT WORD
      5323   02 00B5B    CBDA0035 03           AND,TX4  *KLINE,XT1        SAVE LOWEST DEF FIELD
      5324   02 00B5C    204FFFFF A            AI,XT    -1
      5325   02 00B5D    64900B5A              BDR,TMP  NUMINT1
      5326   02 00B5E    3290000D A            LW,TMP   TX4               LOWEST DEF FIELD
      5327   02 00B5F    49900097 04           OR,TMP   LSTCT             INSERT NUMBER OF THINGS
      5328   02 00B60    68000990              B        SCSINT3           GO TO PUSH SPEC. INTEGER
      5329                            *
      5330                            *        S:NUMC INTRINSIC
      5331                            *
      5332   02 00B61                 NUMCINTRINSIC RES 0
      5333   02 00B61    35460002 A            STW,XT   ECT,LVL           DELETE THE ECT ENTRIES
      5334   02 00B62    35660001 A            STW,XT2  EVT,LVL           DELETE THE EVT ENTRIES
      5335   02 00B63    6A700DCF              BAL,RL   S:PTSETUP         SET IN TO ECT ADDRESS
      5336   02 00B64    329000A5 04           LW,TMP   PASSDEF           PRESET CHAR CT & DEF FIELD
      5337   02 00B65                 NUMCSS1  RES      0
      5338   02 00B65    6AF00DE0              BAL,ER   NEXT%TEXT         TEST NEXT ITEM FOR TEXT
      5339   02 00B66    68000B69              B        NUMCSS2           HERE FOR NO TEXT ITEM
      5340   02 00B67    30D0000E A            AW,TX4   CT                ADD TO CHAR COUNT
      5341   02 00B68    4B900008 A            AND,TMP  TR0               RETAIN LOWEST DEF FIELD
      5342   02 00B69                 NUMCSS2  RES      0
      5343   02 00B69    33F00097 04           MTW,-1   LSTCT             COUNT AND
      5344   02 00B6A    69200B65              BGZ      NUMCSS1             RETURN
      5345   02 00B6B    3090000D A            AW,TMP   TX4               INSERT CHAR COUNT
      5346   02 00B6C    68000990              B        SCSINT3
      5347                            *
      5348                            *    CS INTRINSIC
      5349                            *
      5350   02 00B6D                 V%E      RES      0
      5351   02 00B6D    6A700D00              CALL     SCNOLIST          RECOVER FROM LIST IN AF           *D-DG
      5352   02 00B6E    6A700B74               BAL,RL  SCCS              GET CONTROL SECTION NUMBER
      5353   02 00B6F                 %10      RES      0
      5354   02 00B6F    6A700EBD              BAL,RL   SCPULL            REMOVE LAST EXPRESSION FROM STACK
      5355   02 00B70    33160002 A            MTW,+1   ECT,LVL           DELETE SUBSCRIPTED SYMBOL CONTROL
      5356   02 00B71    33F60001 A            MTW,-1   EVT,LVL             ''       ''        ''   NUMBER
      5357   02 00B72    326011FC              LV,XT2   SPINTET
      5358   02 00B73    680009C3              B        %55               FINISH BUILDING SPECIAL INTEGER
      5359   02 00B74                 SCCS     RES      0
      5360   02 00B74    357000AE 04            STW,RL  SCRSRTN           SAVE RETURN
      5361   02 00B75    6A700EC3              BAL,RL   SCSETUPR          SET UP RIGHT OPERAND
      5362   02 00B76    B2900045 04           LW,TMP   *RPTR             SET UP SKELETON WORD FOR
      5363   02 00B77    4B9011EB              AND,TMP  =DEFFLD             RESULT USING THE 'DEF' FIELD
      5364   02 00B78    499011E9              OR,TMP   =SPAFLD+SPINTFLD    FROM THE CURRENT ITEM
      5365   02 00B79    31401227              CV,XT    SPADDRET          IS ITEM A SPECIAL ADDRESS
      5366   02 00B7A    68300000 F            BE       %14               YES
      5367   02 00B7B    31401223              CV,XT    ADDRET            NO, IS ITEM AN ADDRESS
      5368   02 00B7C    68300000 F            BE       %16               YES
      5369   02 00B7D    314011E5              CV,XT    SUMET             NO, IS ITEM A SUM
      5370   02 00B7E    69300000 F             BNE     %19               NO
      5371   02 00B7F    B2600045 04           LW,XT2   *RPTR             YES, IS LENGTH OF ENTRY = 3
      5372   02 00B80    4B60121D              AND,XT2  =LENGTHFLD
      5373   02 00B81    21600003 A             CV,XT2  LNGTH3
      5374   02 00B82    69300000 F             BNE      %19              NO
      5375   02 00B83    33200045 04            MTW,2   RPTR              POINT TO WORD FOLLOWING SVAL
      5376   02 00B84    B2600045 04           LW,XT2   *RPTR             LOAD 3RD WORD OF SUM
      5377   02 00B85    32701203               LV,RL   STYPEFLD
      5378   02 00B86    45601229               CS,XT2  =ONEWDADD         IS IT A ONE WORD ADDRESS
      5379   02 00B87    69300000 F             BNE      %19              NO
      5380   02 00B88    4B60121D               AND,XT2 =ECSFLD           YES, GET CONTROL SECTION NUMBER
      5381                                      SHIFT,XT2 ECSLOB,31       RIGHT JUSTIFY IT
      5382   02 00B89    68000000 F             B       %18
      5383   02 00B8A                 %14       RES     0
      5384   02 00B8A    B2600045 04           LW,XT2   *RPTR
      5385   02 00B8B    4B601210              AND,XT2  =CSFLD            GET CONTROL SECTION NUMBER
      5386   02 00B8C    2560020F A             SHIFT,XT2 CSLOB,31        RIGHT JUSTIFY IT
      5387   02 00B8D    68000000 F             B       %18
      5388   02 00B8E                 %16       RES     0
      5389   02 00B8E    33100045 04            MTW,1   RPTR              POINT TO WORD FOLLOWING CONTROL WORD
      5390   02 00B8F    B2600045 04            LW,XT2  *RPTR
      5391   02 00B90    4B60120E               AND,XT2 =FCSFLD           GET CONTROL SECTION NUMBER
      5392   02 00B91    2560020A A             SHIFT,XT2 FCSLOB,31       RIGHT JUSTIFY IT
      5393   02 00B92                 %18       RES     0
      5394   02 00B92    30900006 A             AW,TMP  XT2
      5395   02 00B93    E80000AE 04            B       *SCRSRTN          RETURN
      5396   02 00B94                 %19      RES      0
      5397   02 00B94    226FFFFF A            LI,XT2   -1                NOT AN ADDRESS
      5398   02 00B95    E80000AE 04            B       *SCRSRTN          RETURN
      5399                            *
      5400                            *    BA INTRINSIC
      5401                            *    HA INTRINSIC
      5402                            *    WA INTRINSIC
      5403                            *    DA INTRINSIC
      5404                            *
      5405   02 00B96                 V%F      RES      0                 BA INTRINSIC
      5406   02 00B96                 V%10     RES      0                 HA INTRINSIC
      5407   02 00B96                 V%11     RES      0                 WA INTRINSIC
      5408   02 00B96                 V%12     RES      0                 DA INTRINSIC
      5409   02 00B96    35500070 04           STW,XT1  DDRS              SAVE 0,1,2,3 FOR BA,HA,WA,DA
      5410   02 00B97    6A700CEE              CALL     SCDEL1            DELETE THE SUB-SYM CONTROL
      5411   02 00B98    6A700B9A              BAL,RL   SCRS
      5412   02 00B99    68000957              B        SCLOOP
      5413   02 00B9A                 SCRS     RES      0
      5414   02 00B9A    357000AE 04           STW,RL   SCRSRTN           SAVE RETURN LINK
      5415   02 00B9B    6A700EC3              BAL,RL   SCSETUPR          SET UP RIGHT OPERAND
      5416         001F0000                    IF,EQ    EXTET,XT,OR       DOIF EXTERNAL,                    *D-DG
             02 00B9C    31401220
             02 00B9D    68300BA2
      5417   02 00B9E    3140121B              IF,EQ    LCLFWDET,XT,OR      LOCAL FORWARD,                  *D-DG
             02 00B9F    68300BA2
      5418   02 00BA0    3140121A              IF,EQ    LFWDHET,XT          OR LOCAL FORWARD & HOLD.        *D-DG
             02 00BA1    69300BA7
      5419   02 00BA2    32A00070 04  %24      LW,TX1   DDRS              YES, SET ADDRESS RESOLUTION
      5420   02 00BA3    25A00278 A            SHIFT,TX1 31,ARLOB           TO BA,HA,WA,DA DEPENDING ON
      5421   02 00BA4    32B0120F              LV,TX2   ARFLD               INTRINSIC
      5422   02 00BA5    C7A00045 04           STS,TX1  *RPTR
      5423   02 00BA6    E80000AE 04           B        *SCRSRTN          RETURN
      5424                            *                                                                     *D-DG
      5425         00F10000                    FI                                                           *D-DG
      5426   02 00BA7    31401227     %26      CV,XT    SPADDRET          IS OPERAND A SPECIAL ADDRESS
      5427   02 00BA8    69300000 F            BNE      %28               NO
      5428   02 00BA9    B2400045 04           LW,XT    *RPTR             YES, MODIFY OFFSET ACCORDING TO
      5429   02 00BAA    4B4011E1              AND,XT   L(ADDFLD)           ADDRESS RESOLUTION FUNCTION
      5430                                     SHIFT,XT ADDLOB,31
      5431   02 00BAB    B2A00045 04           LW,TX1   *RPTR
      5432   02 00BAC    4BA01210              AND,TX1  =CSFLD
      5433   02 00BAD    22718002 A            LV,RL    SIMPADD+SYMBOL+LNGTH2
      5434   02 00BAE    68000000 F            B        %29
      5435   02 00BAF    31401223     %28      CV,XT    ADDRET            IS OPERAND AN ADDRESS
      5436   02 00BB0    69300000 F            BNE      %32               NO
      5437   02 00BB1    22500001 A            LI,XT1   1
      5438   02 00BB2    B24A0045 04           LW,XT    *RPTR,XT1         MODIFY ADDRESS ACCORDING TO
      5439   02 00BB3    4B40122A              AND,XT   =LOBFLD+OFFSETFLD   ADDRESS RESOLUTION FUNCTION
      5440                                     SHIFT,XT OFFSETLOB,31
      5441   02 00BB4    B2AA0045 04           LW,TX1   *RPTR,XT1
      5442   02 00BB5    4BA0120E              AND,TX1  =FCSFLD
      5443   02 00BB6    25A0007B A            SHIFT,TX1  FCSLOB,CSLOB
      5444   02 00BB7    B2700045 04           LW,RL    *RPTR
      5445   02 00BB8                 %29      RES      0
      5446   02 00BB8    B2500045 04           LW,XT1   *RPTR
      5447   02 00BB9    4B50120F              AND,XT1  L(ARFLD)
      5448   02 00BBA    25500208 A            SHIFT,XT1 ARLOB,31
      5449   02 00BBB    38500070 04           SW,XT1   DDRS
      5450   02 00BBC    254A0200 A            SCS,XT   0,XT1
      5451   02 00BBD    22500000 A            LI,XT1   0
      5452   02 00BBE    75500004 A            STB,XT1  XT                CLEAR THE LOB PORTION OF ADDRESS
      5453   02 00BBF    2141FFFF A            CV,XT    ADDFLD
      5454   02 00BC0    69200000 F            BG       %30               ADDRESS TOO LARGE FOR SPECIAL ADDR
      5455   02 00BC1    31A01210              CV,TX1   CSFLD
      5456   02 00BC2    69200000 F            BG       %30               CONTROL SECTION TOO LARGE
      5457   02 00BC3    317011E6              BFNZ,RL,1  ADFLD,%30       ADDRESS IS NEGATIVE
             02 00BC4    69400000 F
      5458   02 00BC5    3040000A A            AW,XT    TX1
      5459   02 00BC6    304011E7              AV,XT    SPAFLD            SKELETON FOR A SPECIAL ADDRESS
      5460   02 00BC7    68000000 F            B        %31
      5461   02 00BC8                 %30      RES      0
      5462   02 00BC8    25A00005 A            SHIFT,TX1  CSLOB,FCSLOB
      5463   02 00BC9    3040000A A            AW,XT    TX1
      5464   02 00BCA    35400043 04           STW,XT   RVAL+1            STORE OFFSET WORD OF SIMPLE ADDRESS
      5465   02 00BCB    32400007 A            LW,XT    RL                SKELETON FOR A SIMPLE ADDRESS
      5466   02 00BCC    4B4011EC              AND,XT   =ADFLD+STYPEFLD+TYPEFLD+LENGTHFLD
      5467   02 00BCD                 %31      RES      0
      5468   02 00BCD    3250122B              LV,XT1   DUPFLD+SETFLD+DEFFLD+ARFLD
      5469   02 00BCE    CA400045 04           LS,XT    *RPTR
      5470   02 00BCF    35400042 04           STW,XT   RVAL              STORE CONTROL WORD
      5471   02 00BD0    6A700EBD              BAL,RL   SCPULL            PULL ITEM FROM EXPRESSION TABLES
      5472   02 00BD1    22400042 04           LI,XT    RVAL              ADDRESS OF ITEM TO PUSH
      5473   02 00BD2    22500001 A            LI,XT1   1                 NUMBER OF WORDS TO PUSH
      5474   02 00BD3    32701227              LV,RL    SPADDRET          SPECIAL ADDRESS TYPE
      5475   02 00BD4    32A80000 A            LW,TX1   0,XT              LOAD CONTROL WORD
      5476   02 00BD5    69100000 F            BFNZ,TX1 SPAFLD,%33        BRANCH IF ITEM IS A SPECIAL ADDRESS
      5477   02 00BD6    32701223              LV,RL    ADDRET            SIMPLE ADDRESS TYPE
      5478   02 00BD7    22500002 A            LI,XT1   2                 NUMBER OF WORDS TO PUSH
      5479   02 00BD8                 %33      RES      0
      5480   02 00BD8    35700060 04           STW,RL   DD%TYPE           STORE TYPE
      5481   02 00BD9    6A700EA3              BAL,RL   SCPUSH            PUSH ITEM ONTO EXPRESSION STACKS
      5482   02 00BDA    68000BA2              B        %24
      5483   02 00BDB    314011E5     %32      CV,XT    SUMET             IS OPERAND A SUM
      5484   02 00BDC    68300000 F            BE       %32A              YES
      5485   02 00BDD    21400000 A            CV,XT    UGLBLET           NO, IS ITEM UNDEFINED
      5486   02 00BDE    E93000AE 04           BNE      *SCRSRTN          NO RETURN
      5487   02 00BDF    32560002 A            LW,XT1   ECT,LVL           YES, GET ECT ENTRY FOR ITEM
      5488   02 00BE0    30500035 03           AW,XT1   KLINE
      5489   02 00BE1    32AA0001 A            LW,TX1   1,XT1             LOAD CONTROL WORD
      5490   02 00BE2    49A0120B              OR,TX1   =EXPFLD
      5491   02 00BE3    35AA0001 A            STW,TX1  1,XT1             SET EXP BIT IN CONTROL WORD
      5492   02 00BE4    E80000AE 04           B        *SCRSRTN          RETURN
      5493   02 00BE5                 %32A     RES      0
      5494   02 00BE5    B2400045 04           LW,XT    *RPTR             YES
      5495   02 00BE6    22507FFF A            LV,XT1   LENGTHFLD
      5496   02 00BE7    4540122C              CS,XT    L(3)
      5497   02 00BE8    69300000 F            BNE      %34
      5498   02 00BE9    22400002 A            LI,XT    2
      5499   02 00BEA    B2580045 04           LW,XT1   *RPTR,XT          LOAD WORD FOLLOWING SVAL
      5500   02 00BEB    4B50120F              AND,XT1  =ARFLD
      5501   02 00BEC    25500208 A            SHIFT,XT1 ARLOB,31
      5502   02 00BED    38500070 04           SW,XT1   DDRS
      5503   02 00BEE    E83000AE 04           BE       *SCRSRTN          RETURN
      5504   02 00BEF    B2A80045 04           LW,TX1   *RPTR,XT          LOAD WORD FOLLOWING SVAL
      5505   02 00BF0    4BA01203              AND,TX1  =STYPEFLD
      5506   02 00BF1    31A01229              CV,TX1   ONEWDADD
      5507   02 00BF2    69300000 F            BNE      %34
      5508   02 00BF3    33100045 04           MTW,1    RPTR              POINT TO WORD FOLLOWING CONTROL WORD
      5509   02 00BF4    B2A00045 04           LW,TX1   *RPTR             LOAD SVAL WORD
      5510   02 00BF5    25AA0400 A            SAS,TX1  0,XT1
      5511   02 00BF6    B5A00045 04           STW,TX1  *RPTR             STORE BACK ADJUSTED SVAL
      5512   02 00BF7    33100045 04           MTW,1    RPTR              POINT TO WORD FOLLOWING SVAL
      5513   02 00BF8    68000BA2              B        %24
      5514   02 00BF9                 %34      RES      0
      5515   02 00BF9    32400070 04           LW,XT    DDRS              POSITION SPECIFIED RESOLUTION
      5516   02 00BFA    25400278 A            SHIFT,XT 31,ARLOB            TO AR FIELD
      5517   02 00BFB    46400045 04           XW,XT    RPTR                AND SAVE IT
      5518   02 00BFC    35400066 04           STW,XT   ARG
      5519   02 00BFD    32400014 03           LW,XT    FWDNUM
      5520   02 00BFE    3040122D              AV,XT    LCLFWDHD
      5521   02 00BFF    6A700000 X            BAL,RL   GENERATE2
      5522   02 00C00    6A700EBD              BAL,RL   SCPULL
      5523   02 00C01    32900014 03           LW,TMP   FWDNUM            BUILD LOCAL FWD AND HOLD ITEM
      5524   02 00C02    4990122E              OR,TMP   L(SYMBOL+LCLFWDHD)
      5525   02 00C03    499000A5 04           OR,TMP   PASSDEF
      5526   02 00C04    49900045 04           OR,TMP   RPTR              SPECIFIED RESOLUTION
      5527   02 00C05    22400009 A            LI,XT    TMP
      5528   02 00C06    22500001 A            LI,XT1   1
      5529   02 00C07    32A0121A              LV,TX1   LFWDHET
      5530   02 00C08    35A00060 04           STW,TX1  DD%TYPE
      5531   02 00C09    6A700EA3              BAL,RL   SCPUSH
      5532   02 00C0A    33100014 03           MTW,1    FWDNUM
      5533   02 00C0B    E80000AE 04           B        *SCRSRTN          RETURN
      5534                            *
      5535                            *    ABSVAL
      5536                            *
      5537   02 00C0C                 V%13     RES      0
      5538   02 00C0C    6A700CEE              CALL     SCDEL1            DELETE SUB-SYM JUNK
      5539   02 00C0D    6A700EC3              BAL,RL   SCSETUPR          SET UP RIGHT OPERAND
      5540   02 00C0E    32600045 04           LW,XT2   RPTR              ADDR OF EVT CONTROL WD
      5541   02 00C0F    324C0000 A            LW,XT    0,XT2             FIRST WORD IS CONTROL
      5542   02 00C10    68100000 F            BFZ,XT   SPAFLD,%44        BRANCH IF NOT A SPEC ADDR OR INT
      5543   02 00C11    314011DE              BFNZ,XT  SPINTFLD,SCLOOP   DONE IF A SPECIAL INT
             02 00C12    69400957
      5544   02 00C13    31401211              CV,XT    REFORSREF         DON'T CHANGE EXTERNALS
      5545   02 00C14    69400957              BANZ     SCLOOP
      5546   02 00C15    4B40122F              AND,XT   =~(ARFLD+CSFLD)   CLEAR AR & CS FIELDS
      5547   02 00C16    32900004 A            LW,TMP   XT
      5548   02 00C17    68000000 F            B        %38
      5549   02 00C18                 %44      RES      0
      5550   02 00C18    22538000 A            LV,XT1   TYPEFLD
      5551   02 00C19    45401230              CS,XT    =SYMBOL           IT MAY BE A CONST OR BLANK
      5552   02 00C1A    69300957              BNE      SCLOOP
      5553   02 00C1B    329011EB              LV,TMP   DEFFLD
      5554   02 00C1C    4B900004 A            AND,TMP  XT
      5555   02 00C1D    32501203              LV,XT1   STYPEFLD          SYMBOL SUB-TYPE FIELD
      5556   02 00C1E    45400000 A            CS,XT    SIMPADD           TEST FOR A SIMPLE ADDR
      5557   02 00C1F    69300000 F            BNE      %48                 NO
      5558   02 00C20    32DC0001 A            LW,TX4   1,XT2
      5559   02 00C21    4BD011EC              AND,TX4  =OFFSETFLD        SAVE OFFSET FIELD
      5560   02 00C22                 %20      RES      0
      5561   02 00C22    31D011EC              CV,TX4   VALFLD            WILL IT FIT AS A SPECIAL INT
      5562   02 00C23    69200000 F            BG       %46                 NO, BUILD A TWO-WD INT
      5563   02 00C24    3090000D A            AW,TMP   TX4               FINISH SPECIAL INT
      5564   02 00C25                 %38      RES      0
      5565   02 00C25    6A700EBD              BAL,RL   SCPULL            REMOVE PREV ITEM
      5566   02 00C26    68000990              B        SCSINT3
      5567   02 00C27                 %48      RES      0
      5568   02 00C27    45401231              CS,XT    =CMPLXSUM
      5569   02 00C28    69300957              BNE      SCLOOP
      5570   02 00C29    4B40121D              AND,XT   =LENGTHFLD
      5571   02 00C2A    32700004 A            LW,RL    XT                MOVE LENGTH
      5572   02 00C2B                 V%13%1   RES      0
      5573   02 00C2B    207FFFFF A            AI,RL    -1                DECREASE LENGTH
      5574   02 00C2C    B24E0006 A            LW,XT    *XT2,RL           IS NEXT WORD A 1 WORD ADDRESS
      5575   02 00C2D    45401229              CS,XT    =ONEWDADD
      5576   02 00C2E    69300957              BNE      SCLOOP
      5577   02 00C2F    21700002 A            CI,RL    2                 TEST FOR FINISHED
      5578   02 00C30    69200C2B              BG       V%13%1            NOT DONE
      5579   02 00C31    32DC0001 A            LW,TX4   1,XT2             GET OFFSET WORD
      5580   02 00C32    68100C22              BGEZ     %20               IT MIGHT FIT AS A SPEC INT
      5581   02 00C33                 %46      RES      0
      5582   02 00C33    32C00009 A            LW,TX3   TMP               BUILD A TWO-WD INT
      5583   02 00C34    20C10002 A            AV,TX3   CONSTANT+2
      5584   02 00C35    15C0003E 04           STD,TX3  LVAL
      5585   02 00C36    6A700EBD              BAL,RL   SCPULL            REMOVE THE LAST THING
      5586   02 00C37    32C011FD              LV,TX3   INTET
      5587   02 00C38    68000AF5              B        V%C%4
      5588                            *
      5589                            *    S:UFV
      5590                            *
      5591   02 00C39                 UFVINTRINSIC RES  0
      5592   02 00C39    33F60001 A            MTW,-1   EVT,LVL           DECREASE FOR S:UFV (OR S:IFR) WORD
      5593   02 00C3A    32A60001 A            LW,TX1   EVT,LVL           COMPUTE FINAL EVT ADDRESS
      5594   02 00C3B    30A00035 03           AW,TX1   KLINE
      5595   02 00C3C    33160002 A            MTW,+1   ECT,LVL           ELIMINATE SUBSYMBOL CONTROL WORD
      5596   02 00C3D    32100004 A            LW,XS    XT
      5597   02 00C3E    30100035 03           AW,XS    KLINE
      5598   02 00C3F    32400006 A            LW,XT    XT2               COMPUTE INITIAL EVT ADDRESS
      5599   02 00C40    30400035 03           AW,XT    KLINE
      5600   02 00C41                 UFVINT2  RES      0
      5601   02 00C41    3140000A A            CW,XT    TX1               TEST FOR FINISHED
      5602   02 00C42    68300957              BE       SCLOOP
      5603   02 00C43    3253FFFF A            LW,XT1   -1,XS             PRECESS ECT ENTRIES ONE WORD
      5604   02 00C44    205FFFFF A            AI,XT1   -1                  AND DECREASE LOC FIELD
      5605   02 00C45    35520000 A            STW,XT1  0,XS                TO ELIMINATE THE DUMMY
      5606   02 00C46    201FFFFF A            AI,XS    -1                  S:UFV SUBSCRIPTED SYMBOL
      5607   02 00C47    32580001 A            LW,XT1   1,XT              GET NEXT EVT CONTROL WORD
      5608   02 00C48    6A700000 X            BAL,RL   TYPE
      5609   02 00C49    21600000 A            CV,XT2   UGLBLET           IS ITEM UNDEFINED
      5610   02 00C4A    69300C4E              BNE      UFVINT1
      5611   02 00C4B    327011FC              LV,RL    SPINTET-UGLBLET
      5612   02 00C4C    66720001 A            AWM,RL   1,XS              CHANGE UNDEF TO SPEC. INTEGER
      5613   02 00C4D    325011E9              LV,XT1   SPAFLD+SPINTFLD
      5614   02 00C4E                 UFVINT1  RES      0
      5615   02 00C4E    495000A5 04           OR,XT1   PASSDEF
      5616   02 00C4F    35580000 A            STW,XT1  0,XT              STORE NEW CONTROL WORD
      5617   02 00C50    6A70060D              BAL,RL   LENGTH            FIND ITS LENGTH
      5618   02 00C51    316011EE              CV,XT2   LISTET            USE 2 FOR THE LENGTH OF A LIST
      5619   02 00C52    69300C54              BNE      UFVINT3             SO EACH LIST ELEMENT'S DEF FIELD
      5620   02 00C53    22500002 A            LI,XT1   2                   IS INSPECTED
      5621   02 00C54                 UFVINT3  RES      0
      5622   02 00C54    20400001 A            AI,XT    1                 BUMP ADDRESS OF LAST EVT WORD
      5623   02 00C55    64500C57              BDR,XT1  %+2               MOVE THE REST OF THE ITEM,
      5624   02 00C56    68000C41              B        UFVINT2             BUT DON'T CHANGE THE DEF FIELD
      5625   02 00C57    32680001 A            LW,XT2   1,XT
      5626   02 00C58    35680000 A            STW,XT2  0,XT
      5627   02 00C59    68000C54              B        UFVINT3
      5628                            *
      5629                            *  S:UT  INTRINSIC
      5630                            *
      5631   02 00C5A                 SCS:UT   RES      0
      5632   02 00C5A    6A700DCF              BAL,RL   S:PTSETUP         SET  IN,INBASE, AND OUTBASE
      5633   02 00C5B                 SCS:UT1  RES      0                 GET THE NEXT ITEM AND INSPECT IT
      5634   02 00C5B    6AF00DE0              BAL,ER   NEXT%TEXT           FOR BEING A TEXT STRING
      5635   02 00C5C    68000C6A              B        SCS:UT4           NOT FOUND RETURN
      5636   02 00C5D    21E00000 A            CI,CT    0
      5637   02 00C5E    68300C6D              BE       SCS:UT3           NULL TEXT STRING
      5638   02 00C5F                 SCS:UT6  RES      0                 TEXT FOUND. XT2 HAS BA. CT HAS COUNT
      5639   02 00C5F    729C0000 A            LB,TMP   0,XT2             NEXT TEXT CHAR.
      5640   02 00C60    49900008 A            OR,TMP   TR0               DEF FIELD FOR THIS ITEM
      5641   02 00C61    30901232              AV,TMP   SPINTFLD+SPAFLD+1**(31-CCLOB)
      5642   02 00C62    22400009 A            LI,XT    TMP               ADDRESS -> XT
      5643   02 00C63    22500001 A            LI,XT1   1                 SIZE -> XT1
      5644   02 00C64    6A700EA3              BAL,RL   SCPUSH            PUSH ONTO ECT,EVT
      5645   02 00C65    20600001 A            AI,XT2   1                 BUMP BYTE ADDRESS TO NEXT CHAR.
      5646   02 00C66    64E00C5F              BDR,CT   SCS:UT6           DECREASE CHAR. COUNT AND RETURN
      5647   02 00C67                 SCS:UT2  RES      0
      5648   02 00C67    33F00097 04           MTW,-1   LSTCT             DECREASE ITEM COUNT
      5649   02 00C68    69200C5B              BGZ      SCS:UT1             AND RETURN
      5650   02 00C69    68000C91              B        SCS:PT%JOIN
      5651   02 00C6A                 SCS:UT4  RES      0
      5652   02 00C6A    6A70060D              BAL,RL   LENGTH            COPY NON-TEXT ITEM
      5653   02 00C6B    6A700EA3              BAL,RL   SCPUSH              TO ECT,EVT
      5654   02 00C6C    68000C67              B        SCS:UT2
      5655   02 00C6D                 SCS:UT3  RES      0
      5656   02 00C6D    6A700DD9              BAL,RL   TEXT%ITEM         PUSH 2-WORD TEXT ITEM
      5657   02 00C6E    68000C67              B        SCS:UT2
      5658                            *
      5659                            *  S:PT  INTRINSIC
      5660                            *
      5661   02 00C6F                 SCS:PT   RES      0
      5662   02 00C6F    6A700DCF              BAL,RL   S:PTSETUP         SET OUTBASE, INBASE, AND IN
      5663   02 00C70    22100000 A            LI,CHCT  0                 CLEAR CHARACTER COUNT
      5664   02 00C71                 SCS:PT1  RES      0                 GET NEXT ITEM AND INSPECT IT
      5665   02 00C71    6AF00DE0              BAL,ER   NEXT%TEXT           FOR BEING A TEXT STRING
      5666   02 00C72    68000C9B              B        SCS:PT10          NOT FOUND.
      5667   02 00C73    21D00000 A            CI,TX4   0                 IS THIS 1ST STRING ITEM
      5668   02 00C74    69300C76              BNE      SCS:PT4           NO
      5669   02 00C75    6A700DD9              BAL,RL   TEXT%ITEM         PUSH 2-WORD TEXT ITEM ON EVT,ECT
      5670   02 00C76                 SCS:PT4  RES      0
      5671   02 00C76    329011EB              LV,TR1   DEFFLD            REPLACE DEF FIELD
      5672   02 00C77    C580000D A            CS,TR0   *TX4                IF THIS
      5673   02 00C78    68100C7A              BGE      %+2                 ONE IS
      5674   02 00C79    C780000D A            STS,TR0  *TX4                SMALLER
      5675   02 00C7A    3280000D A            LW,TR0   TX4               PUT THE ADDRESS OF THE EVT
      5676   02 00C7B    20800001 A            AI,TR0   1                   TEXT STRING IN REG TR0
      5677   02 00C7C                 SCS:PT2  RES      0
      5678   02 00C7C    21E00000 A            CI,CT    0                 TEST FOR NULL TEXT STRING
      5679   02 00C7D    68300C8E              BE       SCS:PT3           YES
      5680   02 00C7E    211000FF A            CI,CHCT  255               TEST FOR TOO MANY CHARACTERS
      5681   02 00C7F    69100C82              BL       SCS:PT5           NO.
      5682   02 00C80    6AF00000 X            BAL,ER   TERR
      5683   02 00C81    68000C8E              B        SCS:PT3
      5684   02 00C82                 SCS:PT5  RES      0
      5685   02 00C82    20100001 A            AI,CHCT  1                 BUMP CHAR. COUNT FOR THIS STRING
      5686   02 00C83    21100003 A            CI,CHCT  3                 IS ANOTHER WORD REQ'D
      5687   02 00C84    69400C89              BANZ     SCS:PT6           NO
      5688   02 00C85    B310000D A            MTW,+1   *TX4              ADD 1 TO LENGTH OF EVT CONTROL WORD
      5689   02 00C86    22500001 A            LI,XT1   1                 PUSH A BLANK
      5690   02 00C87    22401233              LI,XT    ='    '             ONTO THE EVT
      5691   02 00C88    6A700EB0              BAL,RL   SCPSHV
      5692   02 00C89                 SCS:PT6  RES      0
      5693   02 00C89    724C0000 A            LB,XT    0,XT2             GET THE NEXT BYTE
      5694   02 00C8A    F5420008 A            STB,XT   *TR0,CHCT         STORE IT IN THE TEXT STRING
      5695   02 00C8B    F5100008 A            STB,CHCT *TR0              STORE THE NEW CHARACTER COUNT
      5696   02 00C8C    20600001 A            AI,XT2   1                 BUMP INPUT BYTE ADDRESS
      5697   02 00C8D    64E00C7C              BDR,CT   SCS:PT2           COUNT AND RETURN FOR N
      5698   02 00C8E                 SCS:PT3  RES      0
      5699   02 00C8E    33F00097 04           MTW,-1   LSTCT             NUMBER OF ITEMS
      5700   02 00C8F    69200C71              BGZ      SCS:PT1
      5701   02 00C90    6A700DFB              BAL,RL   SPEC%TEXT%ITEM
      5702   02 00C91                 SCS:PT%JOIN  RES  0
      5703   02 00C91    3240003F 04           LW,XT    INBASE
      5704   02 00C92    B2580035 03           LW,XT1   *KLINE,XT
      5705   02 00C93    4B5011E1              AND,XT1  =LOCFLD
      5706   02 00C94    35560001 A            STW,XT1  EVT,LVL           DELETE EVT ENTRIES
      5707   02 00C95    32800040 04           LW,TR0   OUTBASE
      5708   02 00C96    38860002 A            SW,TR0   ECT,LVL
      5709   02 00C97    35460002 A            STW,XT   ECT,LVL           DELETE ECT ENTRIES
      5710   02 00C98    6830096F              BEZ      SCBLNK            BRANCH IF ALL ITEMS BLANK, S:PT ONLY
      5711   02 00C99    22B00000 A            LI,TX2   0
      5712   02 00C9A    680009D9              B        SCSYML1           BRANCH TO MOVE ITEMS TO ECT,EVT
      5713   02 00C9B                 SCS:PT10 RES      0
      5714   02 00C9B    3160120C              CV,XT2   BLANKET           IS IT A BLANK
      5715   02 00C9C    68300C8E              BE       SCS:PT3
      5716   02 00C9D    6A700DFB              BAL,RL   SPEC%TEXT%ITEM    CHANGE TO SPEC INT TEXT IF REQ'D
      5717   02 00C9E    6A70060D              BAL,RL   LENGTH            FIND LENGTH OF NON-TEXT ITEM
      5718   02 00C9F    6A700EA3              BAL,RL   SCPUSH            PUSH IT ONTO ECT AND EVT
      5719   02 00CA0    22D00000 A            LI,TX4   0                 CLEAR 1ST STRING ITEM FLAG
      5720   02 00CA1    68000C8E              B        SCS:PT3
      5721                            *
      5722                            *    T C O R
      5723                            *        INTRINSIC FUNCTION
      5724                            *
      5725   02 00CA2                 SCTCOR   RES      0
      5726   02 00CA2    6A700D05              BAL,RL   SCSAVE            SAVE SCAN VARIABLES FOR RECURSION
      5727   02 00CA3    3310002D 03           MTW,1    TCORFLG           INCREMENT TCOR FLAG
      5728   02 00CA4                 SCTCOR1  RES      0
      5729   02 00CA4    D24400BA 04           NXTENC   ,NOINC            GET NEXT ENCODED HALFWORD
      5730   02 00CA5    21400003 A            CV,XT    ENDSBSYM
      5731   02 00CA6    68300CC5              BE       SCTCOR7           BRANCH IF END OF SUBSCRIPTED SYMBOL
      5732   02 00CA7    4B4011E3              AND,XT   =ENCITEM
      5733   02 00CA8    1940000A              CLM,XT   RNG%TCOR%SYM
      5734         001F0000                    IF,OL                 -20- DOIF NOT SPECIAL 'TYPE' SYMBOL
             02 00CA9    68900CB6
      5735   02 00CAA    6A70094D              BAL,RL   SCAN1             EVALUATE NEXT EXPRESSION
      5736   02 00CAB    6A700091              BAL,RL   CLN%EXP           REMOVE RESULT
      5737   02 00CAC    32420000 A            LW,XT    0,XS              GET ECT ENTRY
      5738   02 00CAD    30400035 03           AW,XT    KLINE
      5739   02 00CAE    32580000 A            LW,XT1   0,XT              GET CONTROL WORD FROM EVT
      5740   02 00CAF    22600038 A            LV,XT2   S:LISTSYM-ENCSYM
      5741   02 00CB0    33F00097 04           MTW,-1   LSTCT
      5742   02 00CB1    69200CBB              BGZ      SCTCOR4           BRANCH IF ITEM IS A LIST
      5743   02 00CB2    6A700000 X            BAL,RL   TYPE              GET TYPE OF ITEM
      5744   02 00CB3    25600205 A            SHIFT,XT2 ETLOB,31
      5745   02 00CB4    727C0CE4              LB,XT3   SCTCOR%JMP,XT2
      5746   02 00CB5    680E0CCF              B        SCTCOR%BASE,XT3   BRANCH TO APPROPRIATE ROUTINE
      5747                            *
      5748         00F10000                    FI                    -20-
      5749                            *
      5750                            *        HAVE A SPECIAL 'TYPE' SYMBOL IN TCOR ARGUMENT LIST
      5751                            *
      5752   02 00CB6    32600004 A            LW,XT2   XT
      5753   02 00CB7    32460001 A            LW,XT    EVT,LVL           GET ADDRESS OF NEXT
      5754   02 00CB8    30400035 03           AW,XT    KLINE               EVT ENTRY
      5755   02 00CB9    206FC000 A            AV,XT2   -ENCSYM
      5756   02 00CBA    20200001 A            AI,XW    1                 ADVANCE XW
      5757   02 00CBB                 SCTCOR4  RES      0
      5758   02 00CBB    3309FFFE A            MTW,0    -2,XT
      5759   02 00CBC    68300CCC              BEZ      SCTCOR8           BRANCH IF 1ST ARGUMENT
      5760   02 00CBD    3169FFFF A            CW,XT2   -1,XT             BRANCH IF CURRENT ITEM'S TYPE DOES
      5761   02 00CBE    69300CCD              BNE      SCTCOR9             NOT MATCH 1ST ITEM'S TYPE
      5762   02 00CBF    3299FFFE A            LW,TMP   -2,XT             GET ARGUMENT NUMBER FOR RESULT
      5763   02 00CC0                 SCTCOR5  RES      0
      5764   02 00CC0    6A700D0A              BAL,RL   SCRESTORE         RESTORE SCAN VARIABLES
      5765   02 00CC1    33F0002D 03           MTW,-1   TCORFLG           DECREMENT TCOR FLAG
      5766   02 00CC2    32100002 A            LW,XS    XW
      5767   02 00CC3    D2C400BA 04           NXTENC,TX3 ,NOINC
      5768   02 00CC4    68000A96              B        SCSCOR9
      5769   02 00CC5                 SCTCOR7  RES      0
      5770   02 00CC5    32460001 A            LW,XT    EVT,LVL
      5771   02 00CC6    30400035 03           AW,XT    KLINE
      5772   02 00CC7    33F9FFFE A            MTW,-1   -2,XT             BRANCH IF TCOR HAD MORE
      5773   02 00CC8    69200CCA              BGZ      %+2                 THAN ONE ARGUMENT
      5774   02 00CC9    6AF00000 X            BAL,ER   SERR              ILLEGAL # OF ARGUMENTS FOR TCOR
      5775   02 00CCA    22900000 A            LI,TMP   0                 SET RESULT TO ZERO
      5776   02 00CCB    68000CC0              B        SCTCOR5
      5777   02 00CCC                 SCTCOR8  RES      0
      5778   02 00CCC    3569FFFF A            STW,XT2  -1,XT             SAVE TCOR VALUE OF 1ST ARGUMENT
      5779   02 00CCD                 SCTCOR9  RES      0
      5780   02 00CCD    3319FFFE A            MTW,1    -2,XT             INCREMENT ARGUMENT COUNT
      5781   02 00CCE    68000CA4              B        SCTCOR1
      5782   02 00CCF                 SCTCOR%BASE  RES  0
      5783                            *
      5784   02 00CCF                 SCTCOR10 RES      0
      5785   02 00CCF    325000A5 04           LW,XT1   PASSDEF
      5786   02 00CD0                 SCTCOR20 RES      0
      5787   02 00CD0    726C0CE9              LB,XT2   SCTCOR%TBL,XT2    GET TCOR VALUE FOR ITEM'S TYPE
      5788   02 00CD1                 SCTCOR25 RES      0
      5789   02 00CD1    4B5011EB              AND,XT1  =DEFFLD
      5790   02 00CD2    315000A5 04           CW,XT1   PASSDEF           BRANCH IF ITEM IS DEFINED
      5791   02 00CD3    68300CBB              BE       SCTCOR4             FOR THE CURRENT PASS
      5792   02 00CD4    22600033 A            LV,XT2   S:FRSYM-ENCSYM    ITEM IS A FORWARD REFERENCE
      5793   02 00CD5    68000CBB              B        SCTCOR4
      5794   02 00CD6                 SCTCOR30 RES      0                 SPECIAL ADDRESS
      5795   02 00CD6    31501210              BFNZ,XT1,1 CSFLD,SCTCOR20  BRANCH IF ADDRESS IS RELOCATABLE
             02 00CD7    69400CD0
      5796   02 00CD8    2260002D A            LV,XT2   S:AADSYM-ENCSYM   VALUE FOR ABSOLUTE ADDRESS
      5797   02 00CD9    68000CD1              B        SCTCOR25
      5798   02 00CDA                 SCTCOR40 RES      0                 SIMPLE ADDRESS
      5799   02 00CDA    32780001 A            LW,RL    1,XT              LOAD WORD FOLLOWING CONTROL WORD
      5800   02 00CDB    3170120E              BFZ,RL   FCSFLD,SCTCOR20   BRANCH IF ADDRESS IS ABSOLUTE
             02 00CDC    68400CD0
      5801   02 00CDD    22600039 A            LV,XT2   S:RADSYM-ENCSYM   VALUE FOR RELOCATABLE ADDRESS
      5802   02 00CDE    68000CD1              B        SCTCOR25
      5803   02 00CDF                 SCTCOR50 RES      0                 SPECIAL INTEGER
      5804   02 00CDF    3150120F              BFZ,XT1,1 CCFLD,SCTCOR20   BRANCH IF SPECIAL INTEGER IS INT
             02 00CE0    68400CD0
      5805   02 00CE1    2260002E A            LV,XT2   S:CSYM-ENCSYM     VALUE FOR CHARACTER STRING CONSTANT
      5806   02 00CE2    68000CD1              B        SCTCOR25
      5807   02 00CE3                 SCTCOR60 RES      0                 ONE WORD ADDRESS OR FUNCTION
      5808   02 00CE3    68000F27              B        SCDIR             ASSEMBLER ERROR
      5809   02 00CE4                 SCTCOR%JMP  RES   0
      5810   02 00CE4    00       A            BYTE,SCTCOR%BASE  SCTCOR10 UNDEFINED
      5811   02 00CE4 1  07       A            BYTE     SCTCOR30          SPECIAL ADDRESS
      5812   02 00CE4 2  01       A            BYTE     SCTCOR20          SPECIAL EXTERNAL
      5813   02 00CE4 3  0B       A            BYTE     SCTCOR40          SIMPLE ADDRESS
      5814   02 00CE5    01       A            BYTE     SCTCOR20          SUM
      5815   02 00CE5 1  01       A            BYTE     SCTCOR20          EXTERNAL
      5816   02 00CE5 2  00       A            BYTE     SCTCOR10          LOCAL FORWARD
      5817   02 00CE5 3  00       A            BYTE     SCTCOR10          LOCAL FORWARD AND HOLD
      5818   02 00CE6    14       A            BYTE     SCTCOR60          ONE WORD ADDRESS
      5819   02 00CE6 1  10       A            BYTE     SCTCOR50          SPECIAL INTEGER
      5820   02 00CE6 2  01       A            BYTE     SCTCOR20          BLANK FIELD
      5821   02 00CE6 3  01       A            BYTE     SCTCOR20          INTEGER
      5822   02 00CE7    01       A            BYTE     SCTCOR20          PACKED DECIMAL
      5823   02 00CE7 1  01       A            BYTE     SCTCOR20          TEXT
      5824   02 00CE7 2  01       A            BYTE     SCTCOR20          FX
      5825   02 00CE7 3  01       A            BYTE     SCTCOR20          FS
      5826   02 00CE8    01       A            BYTE     SCTCOR20          FL
      5827   02 00CE8 1  01       A            BYTE     SCTCOR20          DPI
      5828   02 00CE8 2  01       A            BYTE     SCTCOR20          LIST
      5829   02 00CE8 3  14       A            BYTE     SCTCOR60          FUNCTION
      5830                                     BOUND    4
      5831                            *
      5832   02 00CE9                 SCTCOR%TBL  RES   0
      5833   02 00CE9    33       A            BYTE,ENCSYM  S:FRSYM
      5834   02 00CE9 1  39       A            BYTE     S:RADSYM
      5835   02 00CE9 2  31       A            BYTE     S:EXTSYM
      5836   02 00CE9 3  2D       A            BYTE     S:AADSYM
      5837   02 00CEA    3A       A            BYTE     S:SUMSYM
      5838   02 00CEA 1  31       A            BYTE     S:EXTSYM
      5839   02 00CEA 2  37       A            BYTE     S:LFRSYM
      5840   02 00CEA 3  37       A            BYTE     S:LFRSYM
      5841   02 00CEB    00       A            BYTE     ENCSYM            NOT LEGAL
      5842   02 00CEB 1  36       A            BYTE     S:INTSYM
      5843   02 00CEB 2  36       A            BYTE     S:INTSYM
      5844   02 00CEB 3  36       A            BYTE     S:INTSYM
      5845   02 00CEC    2F       A            BYTE     S:DSYM
      5846   02 00CEC 1  2E       A            BYTE     S:CSYM
      5847   02 00CEC 2  35       A            BYTE     S:FXSYM
      5848   02 00CEC 3  34       A            BYTE     S:FSSYM
      5849   02 00CED    32       A            BYTE     S:FLSYM
      5850   02 00CED 1  30       A            BYTE     S:DPISYM
      5851   02 00CED 2  38       A            BYTE     S:LISTSYM
      5852   02 00CED 3  00       A            BYTE     ENCSYM            NOT LEGAL
      5853                                     BOUND    4
1
      5855                            *
      5856                            *   S C D E L 1
      5857                            *
      5858                            *        REMOVE A ONE-WORD 'VALUE' AND ITS ASSOCIATED ECT POINTER.
      5859                            *        (USED TO DELETE THE DUMMY SYMBOL FOR INTRINSIC FUNCTIONS.)
      5860                            *
      5861                            *        INPUT:   XT IS INDEX TO ECT WORD TO BE DELETED
      5862                            *                 XT2 IS INDEX TO 'VALUE' WORD TO DELETE
      5863                            *
      5864                            *        USES:    XS
      5865                            *                 XT
      5866                            *                 XT1
      5867                            *                 XT2
      5868                            *
      5869                                     LOCAL    %10,%20
      5870                            *
      5871   02 00CEE                 SCDEL1   RES      0
      5872                            *
      5873                            *        FIRST, MOVE ECT ENTRIES UP OVER THE ONE TO BE DELETED
      5874                            *        (ADJUSTING THE 'LOC' FIELD AS WE GO, FOR LATER EVT MOVE).
      5875                            *
      5876   02 00CEE    33160002 A            MTW,+1   ECT,LVL           TO NEW VALUE
      5877   02 00CEF    32160002 A            LW,XS    ECT,LVL
      5878   02 00CF0    30100035 03           AW,XS    KLINE             FORM ADDRESS
      5879   02 00CF1    38460002 A            SW,XT    ECT,LVL           NUMBER OF ENTRIES (WORDS) TO MOVE
      5880   02 00CF2    32520000 A            LW,XT1   0,XS              PRIME THE PUMP
      5881   02 00CF3                 %10      RES      0
      5882   02 00CF3    20100001 A            AI,XS    +1
      5883   02 00CF4    205FFFFF A            AI,XT1   -1                ADJUST 'LOC'
      5884   02 00CF5    46520000 A            XW,XT1   0,XS
      5885   02 00CF6    64400CF3              BDR,XT   %10
      5886                            *
      5887                            *        NOW, MOVE EVT DOWN OVER THE WORD WE'RE DELETING
      5888                            *
      5889   02 00CF7    33F60001 A            MTW,-1   EVT,LVL           TO NEW VALUE
      5890   02 00CF8    32160001 A            LW,XS    EVT,LVL
      5891   02 00CF9    30100035 03           AW,XS    KLINE             FORM ADDRESS
      5892   02 00CFA    38660001 A            SW,XT2   EVT,LVL           - NUMBER OF WORDS TO MOVE
      5893   02 00CFB    32520000 A            LW,XT1   0,XS              READY - SET -
      5894   02 00CFC                 %20      RES      0
      5895   02 00CFC    201FFFFF A            AI,XS    -1
      5896   02 00CFD    46520000 A            XW,XT1   0,XS
      5897   02 00CFE    65600CFC              BIR,XT2  %20
      5898                            *
      5899   02 00CFF    680E0000 A            EXIT                       RETURN
1
      5901                            *                                                                     *D-DG
      5902                            *   S C N O L I S T                                                   *D-DG
      5903                            *                                                                     *D-DG
      5904                            *        ENSURE THAT ECT IS CLEANED UP PROPERLY FOR AN INTRINSIC      *D-DG
      5905                            *        FUNCTION THAT EXPECTS, AND RETURNS, ONLY A SINGLE VALUE.     *D-DG
      5906                            *        CURRENT EXAMPLES ARE CS & L.                                 *D-DG
      5907                            *                                                                     *D-DG
      5908                            *        (BA, ABSVAL, ETC, DO NOT USE THIS, AS THEY SIMPLY HAVE       *D-DG
      5909                            *        NO EFFECT WHEN THE ARG IS IMPROPER.)                         *D-DG
      5910                            *                                                                     *D-DG
      5911                            *        INPUT:   TMP IS THE NUMBER OF ARGUMENTS (CALCULATED          *D-DG
      5912                            *                    IN ENDSSYM ROUTINE).                             *D-DG
      5913                            *                                                                     *D-DG
      5914                            *        OUTPUT:  IF NOT A SINGLE ARG -                               *D-DG
      5915                            *                    ECT BUMPED DOWN TO FIRST ARG                     *D-DG
      5916                            *                    'E' DIAGNOSTIC                                   *D-DG
      5917                            *                                                                     *D-DG
      5918                            *        USES:    TMP                                                 *D-DG
      5919                            *                 ER                                                  *D-DG
      5920                            *                                                                     *D-DG
      5921   02 00D00                 SCNOLIST RES      0                                                   *D-DG
      5922   02 00D00    209FFFFF A            AI,TMP   -1                                                  *D-DG
      5923         001F0000                    IF,GZ                      TOO MANY ARGS                     *D-DG
             02 00D01    68200D04
      5924   02 00D02    66960002 A            AWM,TMP  ECT,LVL           DELETE ALL BUT 1ST ARG            *D-DG
      5925   02 00D03    6AF00000 X            BAL,ER   EERR                                                *D-DG
      5926         00F10000                    FI                                                           *D-DG
      5927   02 00D04    680E0000 A            EXIT                                                         *D-DG
1
      5929                            *
      5930                            *   S C S A V E
      5931                            *
      5932   02 00D05                 SCSAVE   RES      0
      5933   02 00D05    22400000 A            LI,XT    0                 PUSH SCANEXIT, 1ARG, SCLVL, SCARG,
      5934   02 00D06    35400060 04           STW,XT   DD%TYPE             LFWDFLG, LITFLAG, & SCANXS ONTO
      5935   02 00D07    22500009 A            LI,XT1   9                   EXPRESSION STACKS.  ALSO PUSH
      5936   02 00D08    22400059 04           LI,XT    SCANEXIT            TWO WORDS USED BY TCOR
      5937   02 00D09    68000EA3              B        SCPUSH              ONTO THE EXPRESSION STACKS
      5938                            *
      5939                            *   S C R E S T O R E
      5940                            *
      5941   02 00D0A                 SCRESTORE  RES    0
      5942   02 00D0A    357000BC 04           STW,RL   SCRESTOREXIT
      5943   02 00D0B    6A700EBD              BAL,RL   SCPULL            PULL SCAN VARIABLES FROM STACKS
      5944   02 00D0C    30400035 03           AW,XT    KLINE
      5945   02 00D0D    22500007 A            LI,XT1   7
      5946   02 00D0E                 SCRESTORE1  RES   0
      5947   02 00D0E    32780006 A            LW,RL    6,XT              RESTORE SCANEXIT,
      5948   02 00D0F    357A0058 04           STW,RL   SCANEXIT-1,XT1      1ARG, SCLVL,
      5949   02 00D10    204FFFFF A            AI,XT    -1                  SCARG, LFWDFLG,
      5950   02 00D11    64500D0E              BDR,XT1  SCRESTORE1          LITFLAG, AND SCANXS
      5951   02 00D12    E80000BC 04           B        *SCRESTOREXIT
      5952         04 000BC           SCRESTOREXIT  EQU 1ELEMXIT
      5953                            *
      5954         04 0003E           EVTLOC   EQU      LVAL
      5955         04 0003F           INDICWD  EQU      LVAL+1
      5956         04 00040           PRESENCE EQU      LVAL+2
      5957         04 00041           LSTLVL   EQU      LVAL+3
      5958         04 00042           MAXX     EQU      LVAL+4
      5959         04 00043           MATCHES  EQU      LVAL+5
      5960         04 00044           PARWD    EQU      LVAL+6
      5961         04 00045           COUNT    EQU      LVAL+7
      5962         04 00074           FLAGWD   EQU      DPIFLAG
      5963                            *
      5964                            *  S : K E Y S
      5965                            *
      5966   02 00D13                 SCS:KEYS RES      0
      5967   02 00D13    32400021 03           LW,XT    PROCREF           ERROR IF NOT
      5968   02 00D14    68300DB4              BEZ      KEYERR              WITHIN A PROC
      5969   02 00D15    6A700D05              BAL,RL   SCSAVE            SAVE SCAN VARIABLES FOR RECURSION
      5970   02 00D16    6A70094D              BAL,RL   SCAN1             EVALUATE MODE FIELD
      5971   02 00D17    6A700091              BAL,RL   CLN%EXP           REMOVE RESULT
      5972   02 00D18    6A700D0A              BAL,RL   SCRESTORE         RESTORE SCAN VARIABLES
      5973   02 00D19    32420000 A            LW,XT    0,XS              GET EVT ADDRESS FOR
      5974   02 00D1A    30400035 03           AW,XT    KLINE               MODE FIELD RESULT
      5975   02 00D1B    6A7004C3              BAL,RL   EXTRACTCON        TEST RESULT OF MODE FIELD
      5976   02 00D1C    21500000 A            CI,XT1   0                   FOR BEING
      5977   02 00D1D    69100DB4              BL       KEYERR              AN INTEGER
      5978   02 00D1E    21500007 A            CI,XT1   7                   BETWEEN
      5979   02 00D1F    69200DB4              BG       KEYERR              ZERO AND SEVEN
      5980   02 00D20    35500074 04           STW,XT1  FLAGWD            SAVE MODE
      5981   02 00D21    33360001 A            MTW,+3   EVT,LVL           LEAVE ROOM FOR MATCHES AND PRESENCE
      5982   02 00D22    32460001 A            LW,XT    EVT,LVL           SAVE ORIGIN -1
      5983   02 00D23    30400035 03           AW,XT    KLINE               OF EVT FOR
      5984   02 00D24    204FFFFF A            AI,XT    -1                  KEYWORDS
      5985   02 00D25    3540003E 04           STW,XT   EVTLOC
      5986   02 00D26    324011E7              LW,XT    =X'80000000'      SET INDICATOR BIT
      5987   02 00D27    3540003F 04           STW,XT   INDICWD             TO BIT ZERO
      5988   02 00D28    22400000 A            LI,XT    0
      5989   02 00D29    22500006 A            LI,XT1   6
      5990   02 00D2A                 S:KEYS10 RES      0
      5991   02 00D2A    354A003F 04           STW,XT   PRESENCE-1,XT1    CLEAR PRESENCE,LSTLVL,MAXX,
      5992   02 00D2B    64500D2A              BDR,XT1  S:KEYS10            MATCHES,PARWD,AND COUNT
      5993   02 00D2C    33100044 04           MTW,+1   PARWD             1 -> PARWD
      5994   02 00D2D    32460000 A            LW,XT    PLOC,LVL          LOCATE
      5995   02 00D2E    30400035 03           AW,XT    KLINE               THE
      5996   02 00D2F    32180005 A            LW,XS    OPRND,XT            PARAMETER LIST
      5997   02 00D30    6A700714              BAL,RL   LOADXM            SET XMBASE
      5998                            * MOVE KEYWORDS FROM AF TO THE EVT AND COUNT THEM IN MAXX
      5999   02 00D31                 S:KEYS20 RES      0
      6000   02 00D31    D29200BB 04           LH,TMP   *XMBASE,XS
      6001   02 00D32    21900006 A            CI,TMP   BEGINLIST
      6002   02 00D33    69300D38              BNE      S:KEYS30
      6003   02 00D34    20100001 A            AI,XS    1
      6004   02 00D35    D29200BB 04           LH,TMP   *XMBASE,XS
      6005   02 00D36    201FFFFF A            AI,XS    -1
      6006   02 00D37    68000D3C              B        S:KEYS40
      6007   02 00D38                 S:KEYS30 RES      0
      6008   02 00D38    21900000 A            CI,TMP   ENDLINE           END OF KEYWORD LIST
      6009   02 00D39    68300D42              BE       S:KEYS50            IF ENDLINE OR
      6010   02 00D3A    21900003 A            CI,TMP   ENDSBSYM            END SUBSCRIPTED SYMBOL
      6011   02 00D3B    68300D42              BE       S:KEYS50            IS FOUND
      6012   02 00D3C                 S:KEYS40 RES      0
      6013   02 00D3C    22500001 A            LI,XT1   1                 PUSH THE
      6014   02 00D3D    22400009 A            LI,XT    TMP                 KEYWORD
      6015   02 00D3E    6A700EB0              BAL,RL   SCPSHV              ONTO EVT
      6016   02 00D3F    33100042 04           MTW,1    MAXX              BUMP NUMBER OF KEYWORDS
      6017   02 00D40                 S:KEYS41 RES      0
      6018   02 00D40    6A700000 X            BAL,RL   ADV%ITM
      6019   02 00D41    68000D31              B        S:KEYS20
      6020   02 00D42                 S:KEYS50 RES      0
      6021   02 00D42    22400001 A            LI,XT    1
      6022   02 00D43    31400042 04           CW,XT    MAXX              IF THE ARGUMENT FIELD IS BLANK,
      6023         001F0000                    IF,EQ                        DECREASE NO. OF PARAMETERS
             02 00D44    69300D4A
      6024   02 00D45    B258003E 04           LW,XT1   *EVTLOC,XT          (TO ZERO), AND DELETE THE
      6025   02 00D46    21500005 A            CI,XT1   BLANKEXP            BLANK EXPRESSION ON THE EVT.
      6026         001F0100                    IF,EQ                      DOIF SINGLE BLANK EXPRESSION
             02 00D47    69300D4A
      6027   02 00D48    33F00042 04           MTW,-1   MAXX              CLEAR NUMBER OF ARG'S
      6028   02 00D49    33F60001 A            MTW,-1   EVT,LVL           DISCARD EVT EXPRESSION
      6029         00F10100                    FI
      6030         00F10000                    FI
      6031   02 00D4A    4B400074 04           AND,XT   FLAGWD            SET AF(1) KEYWORD TO ZERO
      6032   02 00D4B    68300D4E              BEZ      SKEYS1              IF MODE REQUESTS
      6033   02 00D4C    22500000 A            LI,XT1   0                   AF(1) IS NOT
      6034   02 00D4D    B558003E 04           STW,XT1  *EVTLOC,XT          TO BE COMPARED
      6035   02 00D4E                 SKEYS1   RES      0
      6036   02 00D4E    D24400BA 04           NXTENC   ,NOINC
      6037   02 00D4F    2250E000 A            LI,XT1   TFLD              IF THE NEXT ENC ITEM IS
      6038   02 00D50    45401234              CS,XT    =SMINT              A SMALL INTEGER,
      6039   02 00D51    69300D90              BNE      S:KEYS70            IT'S A
      6040   02 00D52    22600000 A            LI,XT2   0                   PARAMETER NUMBER
      6041   02 00D53    35600044 04           STW,XT2  PARWD
      6042   02 00D54    4B4011E4              AND,XT   =VFLD
      6043   02 00D55    2140001F A            CI,XT    31                IF PARAMETER NUMBER IS
      6044   02 00D56    69200D5A              BG       S:KEYS60            GREATER THAN 31, PRESENCE
      6045   02 00D57    326011E7              LW,XT2   =X'80000000'        WORD WON'T BE AFFECTED.
      6046   02 00D58    3A400004 A            LCW,XT   XT                OTHERWISE SET UP INDICATOR
      6047   02 00D59    25680000 A            SLS,XT2  0,XT                IN CASE PARAMETER IS FOUND
      6048   02 00D5A                 S:KEYS60 RES      0
      6049   02 00D5A    3560003F 04           STW,XT2  INDICWD
      6050   02 00D5B    20200001 A            AI,XW    1                 IF NEXT ENC ITEM IS AN ASTERISK,
      6051   02 00D5C    D24400BA 04           NXTENC   ,NOINC              PARAMETERS ARE REQUIREDD
      6052         001F0000                    IF,EQ    ASTFLG,XT                                           *D-DG
             02 00D5D    21400008 A
             02 00D5E    69300D62
      6053   02 00D5F    33100044 04           MTW,+1   PARWD             SET PARAMETER REQUIRED FLAG
      6054   02 00D60    20200001 A            AI,XW    1
      6055   02 00D61    D24400BA 04           NXTENC   ,NOINC
      6056         00F10000                    FI                                                           *D-DG
      6057         001F0000                    IF,EQ    ENDSBSYM          MUST HAVE KEYWORD HERE,           *D-DG
             02 00D62    21400003 A
             02 00D63    69300D66
      6058   02 00D64    6AF00000 X            BAL,ER   EERR                 OR IT IS IN ERROR.             *D-DG
      6059   02 00D65    68000D92              B        S:KEYS69                                            *D-DG
      6060         00F10000                    FI                                                           *D-DG
      6061   02 00D66                 SKEYS20  RES      0
      6062   02 00D66    21400006 A            CI,XT    BEGINLIST         ARE KEYWORDS ENCLOSED
      6063   02 00D67    69300D6A              BNE      S:KEYS21            IN PARENS
      6064   02 00D68    33100041 04           MTW,+1   LSTLVL            SET LIST-OF-PARAMETERS ON
      6065   02 00D69    20200001 A            AI,XW    1
      6066   02 00D6A                 S:KEYS21 RES      0
      6067   02 00D6A    32E0003F 04           LW,CT    INDICWD           INDICWD -> INDICTMP
      6068   02 00D6B                 SKEYS4   RES      0
      6069   02 00D6B    D24400BA 04           NXTENC   ,NOINC            GET A KEYWORD
      6070   02 00D6C    32100042 04           LW,XS    MAXX              NO. KEYWORDS IN REFERENCE LINE
      6071   02 00D6D    2250E000 A            LI,XT1   TFLD
      6072   02 00D6E    454011F8              CS,XT    =ENCSYM
      6073         001F0000                    IF,EQ    OR                DOIF GLOBAL SYMBOL,               *D-DG
             02 00D6F    68300D72
      6074   02 00D70    45401202              CS,XT    =ENCLSYM
      6075   02 00D71    69300D77              IF,EQ                        ORIF LOCAL SYMBOL               *D-DG
      6076   02 00D72    20200001 A            AI,XW    1
      6077   02 00D73                 S:KEYS22 RES      0
      6078   02 00D73    B142003E 04           CW,XT    *EVTLOC,XS        COMPARE TO NEXT REFERENCE KEYWORD
      6079   02 00D74    68300DB8              BE       S:KEYS23          FOUND
      6080   02 00D75    64100D73              BDR,XS   S:KEYS22
      6081         000E0000                    ELS                                                          *D-DG
             02 00D76    68000D7B
      6082                            *                                                                     *D-DG
      6083                            *        HAVE NON-SYMBOL IN KEYWORD STRING.  DIAGNOSE, SKIP, AND      *D-DG
      6084                            *        THEN TREAT AS UNMATCHED KEYWORD.                             *D-DG
      6085                            *                                                                     *D-DG
      6086   02 00D77    6AF00000 X            BAL,ER   EERR              DIAGNOSE                          *D-DG
      6087   02 00D78    32100002 A            LW,XS    XW                                                  *D-DG
      6088   02 00D79    6A700000 N            CALL     ADV%ITM           SKIP (ONLY ADVANCES XS)           *D-DG
      6089   02 00D7A    32200001 A            LW,XW    XS                                                  *D-DG
      6090         00F10000                    FI                                                           *D-DG
      6091   02 00D7B                 SKEYS3   RES      0                 HERE THE KEYWORD WASN'T FOUND
      6092   02 00D7B    D24400BA 04           NXTENC   ,NOINC
      6093   02 00D7C    32500041 04           LW,XT1   LSTLVL            TEST WITHIN A LIST OF PARAMETERS
      6094   02 00D7D    68300D87              BEZ      S:KEYS31          NO
      6095   02 00D7E    33000044 04           MTW,0    PARWD             IF THIS IS NOT
      6096   02 00D7F    69300D81              BNEZ     %+2                 A PARAMETER,
      6097   02 00D80    22E00000 A            LI,CT    0                   CLEAR INDTMP
      6098   02 00D81    21400002 A            CI,XT    ENDLIST
      6099   02 00D82    69300D6B              BNE      SKEYS4
      6100                            *                                                                     *D-DG
      6101   02 00D83    22100000 A            LI,XS    0                                                   *D-DG
      6102   02 00D84    35100041 04           STW,XS   LSTLVL            CLEAR LIST-OF-PARAMETERS FLAG
      6103   02 00D85    20200001 A            AI,XW    1
      6104   02 00D86    68000D7B              B        SKEYS3
      6105   02 00D87                 S:KEYS31 RES      0
      6106   02 00D87    21400008 A            CI,XT    ASTFLG            ASTERISK HERE MEANS KEYWORD
      6107   02 00D88    69300D8A              BNE      %+2                 IS REQUIRED
      6108   02 00D89    6AF00000 X            BAL,ER   EERR
      6109   02 00D8A    32100042 04           LW,XS    MAXX              SET DEFAULT INDEX INTO XS
      6110   02 00D8B    20100001 A            AI,XS    1
      6111   02 00D8C    22400002 A            LI,XT    2                 ARE DEFAULT INDEXES REQUIRED
      6112   02 00D8D    4B400074 04           AND,XT   FLAGWD
      6113   02 00D8E    68300DC7              BEZ      SKEYS6            NOT REQUIRED
      6114   02 00D8F    68000DC1              B        SKEYS5
      6115   02 00D90                 S:KEYS70 RES      0
      6116   02 00D90    21400003 A            CI,XT    ENDSBSYM          TEST FOR END OF S:KEYS LIST
      6117   02 00D91    69300D66              BNE      SKEYS20
      6118                            *                                                                     *D-DG
      6119   02 00D92                 S:KEYS69 RES      0                                                   *D-DG
      6120                            *                                                                     *D-DG
      6121                            * HERE THE ENTIRE S:KEYS LIST HAS BEEN SCANNED.  NOW OUTPUT THE LIST
      6122   02 00D92    20200001 A            AI,XW    1                 SKIP FINAL END SUBSCRIPTED SYMBOL
      6123   02 00D93    22400004 A            LI,XT    4                 SHOULD MISSING KEYWORDS
      6124   02 00D94    4B400074 04           AND,XT   FLAGWD              BE REPORTED
      6125   02 00D95    69300D9C              BNEZ     S:KEYS72          NO, THEY SHOULDN'T
      6126   02 00D96    32400042 04           LW,XT    MAXX              NUMBER OF KEYWORDS IN S:KEYS LIST
      6127   02 00D97    68300D9C              BEZ      S:KEYS72          NO KEYWORDS
      6128   02 00D98                 S:KEYS71 RES      0
      6129   02 00D98    B258003E 04           LW,XT1   *EVTLOC,XT        SEARCH FOR
      6130   02 00D99    68300D9B              BEZ      %+2                 A KEYWORD
      6131   02 00D9A    6AF00000 X            BAL,ER   UERR                THAT WAS NOT MATCHED
      6132   02 00D9B    64400D98              BDR,XT   S:KEYS71
      6133   02 00D9C                 S:KEYS72 RES      0
      6134   02 00D9C    3240003E 04           LW,XT    EVTLOC
      6135   02 00D9D    66400042 04           AWM,XT   MAXX              LOCATE FIRST AF(N)
      6136   02 00D9E    204FFFFE A            AI,XT    -2
      6137   02 00D9F    38400035 03           SW,XT    KLINE
      6138   02 00DA0    35460001 A            STW,XT   EVT,LVL           DELETE ALL OF EVT EXCEPT LIST ITEM
      6139   02 00DA1    32400043 04           LW,XT    MATCHES           PUSH NUMBER OF
      6140   02 00DA2    6A70110D              BAL,RL   STACKSPI            MATCHES ONTO ECT,EVT
      6141   02 00DA3    32400040 04           LW,XT    PRESENCE          PUSH PARAMETER PRESENCE WORD
      6142   02 00DA4    31401235              CW,XT    =~VALFLD            ONTO ECT,EVT
      6143   02 00DA5    68400DB2              BAZ      S:KEYS76          BRANCH IF A SPEC. INT. CAN BE MADE
      6144   02 00DA6    324000A5 04           LW,XT    PASSDEF
      6145   02 00DA7    20410002 A            AV,XT    CONSTANT+SPI+LNGTH2
      6146   02 00DA8    3540003F 04           STW,XT   PRESENCE-1        BUILD A TWO-WORD
      6147   02 00DA9    2240003F 04           LI,XT    PRESENCE-1          INTEGER ITEM
      6148   02 00DAA    325011FD              LV,XT1   INTET
      6149   02 00DAB    35500060 04           STW,XT1  DD%TYPE
      6150   02 00DAC    22500002 A            LI,XT1   2
      6151   02 00DAD    6A700EA3              BAL,RL   SCPUSH
      6152   02 00DAE                 S:KEYS74 RES      0
      6153   02 00DAE    33100042 04           MTW,+1   MAXX              BUMP ADDRESS OF NEXT PARAMETER INDEX
      6154   02 00DAF    33F00045 04           MTW,-1   COUNT             DECREASE PARAMETER COUNT
      6155   02 00DB0    69100957              BLZ      SCLOOP            BRANCH IF DONE
      6156   02 00DB1    B2400042 04           LW,XT    *MAXX             GET NEXT PARAMETER INDEX
      6157   02 00DB2                 S:KEYS76 RES      0
      6158   02 00DB2    6A70110D              BAL,RL   STACKSPI          PUSH IT
      6159   02 00DB3    68000DAE              B        S:KEYS74
      6160   02 00DB4                 KEYERR   RES      0
      6161   02 00DB4    6AF00000 X            BAL,ER   EERR              MARK AN ERROR
      6162   02 00DB5    32100002 A            LW,XS    XW
      6163   02 00DB6    22900000 A            LI,TMP   0
      6164   02 00DB7    68000A98              B        SCSCOR7
      6165   02 00DB8                 S:KEYS23 RES      0
      6166   02 00DB8    49E00040 04           OR,CT    PRESENCE          SET PARAMETER PRESENT
      6167   02 00DB9    35E00040 04           STW,CT   PRESENCE            BIT AS REQUIRED
      6168   02 00DBA    33100043 04           MTW,+1   MATCHES           BUMP NUMBER OF MATCHED KEYWORDS
      6169   02 00DBB    22400000 A            LI,XT    0                 SET FOUND AF TO ZERO, SO IT
      6170   02 00DBC    B542003E 04           STW,XT   *EVTLOC,XS          WON'T BE FOUND AGAIN
      6171   02 00DBD    32400041 04           LW,XT    LSTLVL            SKIP THE REST OF THE
      6172   02 00DBE    68300DC1              BEZ      SKEYS5              KEYWORDS IF WITHIN A
      6173   02 00DBF    6A70107D              BAL,RL   SKIPLABEL           KEYWORD LIST
      6174   02 00DC0    33F00041 04           MTW,-1   LSTLVL
      6175   02 00DC1                 SKEYS5   RES      0
      6176   02 00DC1    32400044 04           LW,XT    PARWD             IS THIS KEYWORD A PARAMETER
      6177   02 00DC2    68300DC7              BEZ      SKEYS6              NO
      6178   02 00DC3    33100045 04           MTW,+1   COUNT             BUMP NUMBER OF PARAMETERS STORED
      6179   02 00DC4    22400001 A            LI,XT    XS                PUSH THE
      6180   02 00DC5    22500001 A            LI,XT1   1                   PARAMETER INDEX
      6181   02 00DC6    6A700EB0              BAL,RL   SCPSHV              ONTO EVT
      6182   02 00DC7                 SKEYS6   RES      0
      6183   02 00DC7    3240003F 04           LW,XT    INDICWD           SHIFT TO NEXT INDICATOR
      6184   02 00DC8    2540007F A            SLS,XT   -1                  BIT
      6185   02 00DC9    3540003F 04           STW,XT   INDICWD
      6186   02 00DCA    D24400BA 04           NXTENC   ,NOINC            SKIP THE ASTERISK
      6187   02 00DCB    21400008 A            CI,XT    ASTFLG              AFTER THE KEYWORD
      6188   02 00DCC    69300D4E              BNE      SKEYS1              IF IT'S THERE
      6189   02 00DCD    20200001 A            AI,XW    1
      6190   02 00DCE    68000D4E              B        SKEYS1
      6191   02 00DCF                 S:PTSETUP  RES    0
      6192   02 00DCF    32860002 A            LW,TR0   ECT,LVL           SAVE INDEX TO
      6193   02 00DD0    35800040 04           STW,TR0  OUTBASE             THE ECT
      6194   02 00DD1    3540003F 04           STW,XT   INBASE            SAVE INDEX TO ECT ORIGIN
      6195   02 00DD2    30400035 03           AW,XT    KLINE
      6196   02 00DD3    3540003E 04           STW,XT   IN                SAVE FULL ECT ADDRESS
      6197   02 00DD4    32460001 A            LW,XT    EVT,LVL           SAVE FULL EVT ADDRESS
      6198   02 00DD5    30400035 03           AW,XT    KLINE               IN FND
      6199   02 00DD6    35400086 04           STW,XT   FND
      6200   02 00DD7    22D00000 A            LI,TX4   0                 CLEAR 1ST STRING FLAG
      6201   02 00DD8    680E0000 A            EXIT     RL
      6202                            *
      6203                            *  T E X T % I T E M
      6204                            *    BUILD A SKELETON TEXT ITEM AND PUSH IT ONTO THE EVT & ECT
      6205                            *
      6206                            *         INPUT:  REGISTER TR0 CONTAINS THE DEF FIELD
      6207                            *
      6208   02 00DD9                 TEXT%ITEM   RES   0
      6209   02 00DD9    30801236              AV,TR0   CONSTANT+CHSTR+LNGTH2
      6210   02 00DDA    32901237              LW,TR1   =X'404040'        SET COUNT = 0 AND 3 BLANKS
      6211   02 00DDB    22400008 A            LI,XT    TR0
      6212   02 00DDC    22500002 A            LI,XT1   2                 SIZE = 2
      6213   02 00DDD    32D60001 A            LW,TX4   EVT,LVL           ADDRESS OF THE ENTRY
      6214   02 00DDE    30D00035 03           AW,TX4   KLINE
      6215   02 00DDF    68000EA3              B        SCPUSH            PUSH AND RETURN FROM TEXT%ITEM
      6216                            *
      6217                            *  N E X T % T E X T
      6218                            *        INSPECT THE NEXT EVT ITEM FOR BEING TEXT.
      6219                            *
      6220                            *          INPUT: IN CONTAINS ADDRESS ONE WORD PAST ECT ITEM
      6221                            *
      6222                            *         OUTPUT: XT2 & DD%TYPE CONTAIN ITEM TYPE (IF NON-TEXT)
      6223                            *                 IN IS BUMPED FOR NEXT CALL TO THIS ROUTINE
      6224                            *                 FOR TEXT ITEMS, XT2 CONTAINS BA OF 1ST TEXT CHAR.,
      6225                            *                   AND CT CONTAINS NUMBER OF CHARS.
      6226                            *                 FOR NON-TEXT ITEMS, XT CONTAINS ADDRESS OF ITEM
      6227                            *
      6228                            *        CALLING SEQUENCE:  BAL,ER   NEXT%TEXT
      6229                            *                           NOT FOUND EXIT IS ALPHA+1
      6230                            *                           FOUND EXIT IS ALPHA+2
      6231                            *
      6232   02 00DE0                 NEXT%TEXT   RES   0
      6233   02 00DE0    33F0003E 04           MTW,-1   IN                BUMP TO NEXT ECT ADDRESS
      6234   02 00DE1    B240003E 04           LW,XT    *IN               GET NEXT EVT ENTRY ADDRESS
      6235   02 00DE2    30400035 03           AW,XT    KLINE
      6236   02 00DE3    4B4011E1              AND,XT   =LOCFLD
      6237   02 00DE4    328011EB              LV,TR0   DEFFLD            SAVE DEF FIELD IN TR0
      6238   02 00DE5    4B880000 A            AND,TR0  0,XT
      6239   02 00DE6    32580000 A            LW,XT1   0,XT              GET EVT CONTROL WORD
      6240   02 00DE7    6A700000 X            BAL,RL   TYPE              TYPE IT
      6241   02 00DE8    316011FC              CV,XT2   SPINTET           IS IT
      6242   02 00DE9    69300DF2              BNE      NXT%TXT1            A SPECIAL INTEGER
      6243   02 00DEA    4B50120F              AND,XT1  =CCFLD              TEXT CONSTANT
      6244   02 00DEB    E830000F A            EXIT,EQ  ER                NO. TAKE NOT FOUND RETURN
      6245   02 00DEC    25500208 A            SHIFT,XT1 CCLOB,31         PUT CHARACTER COUNT
      6246   02 00DED    32E00005 A            LW,CT    XT1                 IN REGISTER CT
      6247   02 00DEE    25400002 A            SLS,XT   2                 CONVERT EVT ADDRESS TO THE
      6248   02 00DEF    3840000E A            SW,XT    CT                  BYTE ADDRESS
      6249   02 00DF0    20400004 A            AI,XT    4                   OF THE FIRST CHARACTER
      6250   02 00DF1    68000DF8              B        NXT%TXT2
      6251   02 00DF2                 NXT%TXT1 RES      0
      6252   02 00DF2    31601238              CV,XT2   TEXTET            IS IT A TEXT CONSTANT
      6253   02 00DF3    E930000F A            EXIT,NE  ER                NO. TAKE NOT FOUND RETURN
      6254   02 00DF4    20400001 A            AI,XT    1                 BUMP XT PAST CONTROL WORD
      6255   02 00DF5    F2E00004 A            LB,CT    *XT               GET CHARACTER COUNT
      6256   02 00DF6    25400002 A            SLS,XT   2                 CONVERT EVT ADDRESS TO THE BYTE
      6257   02 00DF7    20400001 A            AI,XT    1                   ADDR. OF THE 1ST CHARACTER
      6258   02 00DF8                 NXT%TXT2 RES      0
      6259   02 00DF8    32600004 A            LW,XT2   XT                MOVE BYTE ADDRESS TO
      6260   02 00DF9    20F00001 A            AI,ER    1
      6261   02 00DFA    E800000F A            EXIT     ER                TAKE FOUND RETURN
      6262                            *
      6263                            *  S P E C % T E X T % I T E M
      6264                            *        CONVERT THE LAST ITEM IN EVT TO A SPECIAL INTEGER TEXT
      6265                            *          ITEM IF IT WILL FIT.
      6266                            *
      6267                            *          INPUT: TX4 CONTAINS ADDRESS OF THE TEXT ITEM (IN EVT)
      6268                            *                 CHCT CONTAINS THE NUMBER OF CHARS. IN THAT ITEM.
      6269                            *
      6270                            *         OUTPUT: IF CHCT IS ONE OR TWO, THE ITEM IS CHANGED TO
      6271                            *                   A SPEC. INTEGER WITH CHCT IN THE CC FIELD,
      6272                            *                   AND EVT,LVL IS DECREASED BY ONE.
      6273                            *                 CHCT IS SET TO ZERO.
      6274                            *                 REGISTER XT MUST BE LEFT INTACT.
      6275                            *
      6276   02 00DFB                 SPEC%TEXT%ITEM  RES  0
      6277   02 00DFB    21100000 A            CI,CHCT  0                 EXIT IF
      6278   02 00DFC    683E0000 A            EXIT,EQ  RL                  A SPECIAL TEXT
      6279   02 00DFD    21100002 A            CI,CHCT  2                   INTEGER
      6280   02 00DFE    69200E0B              BG       SPEC%TEXT%2         ISN'T REQUIRED
      6281   02 00DFF    3260000D A            LW,XT2   TX4               LOCATION OF TEXT CONTROL WORD
      6282   02 00E00    328C0001 A            LW,TR0   1,XT2             GET COUNT AND 1 OR 2 CHARS
      6283   02 00E01    4B8011F7              AND,TR0  =X'FFFFFF'        CLEAR THE BYTE COUNT
      6284   02 00E02    25800078 A            SLS,TR0  -8                RIGHT-ADJUST
      6285   02 00E03    21100002 A            CI,CHCT  2                   THE ONE
      6286   02 00E04    68300E07              BE       SPEC%TEXT%1         OR TWO
      6287   02 00E05    25800078 A            SLS,TR0  -8                  CHARACTERS
      6288   02 00E06    3080120A              AV,TR0   -1**(31-CCLOB)
      6289   02 00E07                 SPEC%TEXT%1  RES  0
      6290   02 00E07    30801239              AV,TR0   2**(31-CCLOB)+SPAFLD+SPINTFLD
      6291   02 00E08    32901221              LV,TR1   ~DEFFLD           REPLACE ALL BUT THE DEF FIELD
      6292   02 00E09    478C0000 A            STS,TR0  0,XT2
      6293   02 00E0A    33F60001 A            MTW,-1   EVT,LVL           DECREASE SIZE OF THE EVT BY 1 WORD
      6294   02 00E0B                 SPEC%TEXT%2  RES  0
      6295   02 00E0B    22100000 A            LI,CHCT  0
      6296   02 00E0C    680E0000 A            EXIT     RL
      6297                            *
      6298                            *    SCOP
      6299                            *
      6300   02 00E0D                 V%OPERATOR  RES   0
      6301   02 00E0D    33160002 A            MTW,1    ECT,LVL
      6302   02 00E0E    354000A3 04           STW,XT   OPER              STORE OPERATOR
      6303   02 00E0F    22400000 A            LI,XT    0
      6304   02 00E10    354000B5 04           STW,XT   SUM%FLAG          INITIALIZE BOTH OPERANDS AS INTEGERS
      6305   02 00E11    35400074 04           STW,XT   DPIFLAG
      6306   02 00E12    324000A5 04           LW,XT    PASSDEF
      6307   02 00E13    3540007F 04           STW,XT   EXPR%DEF          INITIALIZE DEF FIELD OF EXPRESSION
      6308   02 00E14    6A700EC3              BAL,RL   SCSETUPR          SET UP OPERAND
      6309   02 00E15    6A700ECC              BAL,RL   SCMAP             MAP OPERAND
      6310   02 00E16    02200040 A            LCI      4
      6311   02 00E17    2AA00042 04           LM,TX1   RVAL              SET UP LEFT OPERAND
      6312   02 00E18    2BA0003E 04           STM,TX1  LVAL                VALUE AND POINTER
      6313   02 00E19    21D00042 04           CI,TX4   RVAL
      6314   02 00E1A    69300E1D              BNE      SCOP1             BRANCH IF NOT POINTING TO RVAL
      6315   02 00E1B    22D0003E 04           LI,TX4   LVAL              USE ADDRESS OF LVAL, NOT RVAL
      6316   02 00E1C    35D00041 04           STW,TX4  LPTR                AS POINTER TO LEFT OPERAND
      6317   02 00E1D                 SCOP1    RES      0
      6318   02 00E1D    324000B5 04           LW,XT    SUM%FLAG          STORE SUM%FLAG FOR LEFT OPERAND
      6319   02 00E1E    664000B5 04           AWM,XT   SUM%FLAG            AND ZERO RIGHT OPERAND SUM%FLAG
      6320   02 00E1F    33F60002 A            MTW,-1   ECT,LVL           SET-UP RIGHT OPERAND
      6321   02 00E20    6A700EC3              BAL,RL   SCSETUPR
      6322   02 00E21    33160002 A            MTW,1    ECT,LVL
      6323   02 00E22    6A700ECC              BAL,RL   SCMAP             MAP RIGHT OPERAND
      6324   02 00E23    324000A3 04           LW,XT    OPER
      6325   02 00E24    326000B5 04           LW,XT2   SUM%FLAG          IF BOTH OPERANDS ARE CONSTANTS,
      6326   02 00E25    68300E63              BEZ      SCOPPRC             GO PROCESS OPERATOR
      6327   02 00E26    2140002A A            CI,XT    PLUSOP
      6328   02 00E27    68300F29              BE       SCADDSUM          BRANCH IF OPERATOR IS +
      6329   02 00E28    21400029 A            CI,XT    MINUSOP
      6330   02 00E29    69300E3B              BNE      SCOP4             BRANCH IF OPERATOR IS NOT -
      6331   02 00E2A    21600001 A            CI,XT2   1
      6332   02 00E2B    69400E2F              BANZ     SCOP2             BRANCH IF RIGHT OPERAND IS A SUM
      6333   02 00E2C    1AA00042 04           LCD,TX1  RVAL              NEGATE INTEGER OPERAND
      6334   02 00E2D    15A00042 04           STD,TX1  RVAL
      6335   02 00E2E    68000F29              B        SCADDSUM          PROCESS AS BINARY PLUS
      6336   02 00E2F                 SCOP2    RES      0
      6337   02 00E2F    B2600045 04           LW,XT2   *RPTR             GET SUM CONTROL WORD
      6338   02 00E30    4B60121D              AND,XT2  =LENGTHFLD        GET LENGTH OF SUM
      6339   02 00E31    206FFFFF A            AI,XT2   -1
      6340   02 00E32                 SCOP3    RES      0
      6341   02 00E32    B2CC0045 04           LW,TX3   *RPTR,XT2
      6342   02 00E33    48C011E6              EOR,TX3  =ADFLD            REVERSE AD FIELD
      6343   02 00E34    B5CC0045 04           STW,TX3  *RPTR,XT2
      6344   02 00E35    206FFFFF A            AI,XT2   -1
      6345   02 00E36    21600001 A            CI,XT2   1
      6346   02 00E37    69200E32              BG       SCOP3
      6347   02 00E38    BACC0045 04           LCW,TX3  *RPTR,XT2         NEGATE THE OFFSET
      6348   02 00E39    B5CC0045 04           STW,TX3  *RPTR,XT2
      6349   02 00E3A    68000F29              B        SCADDSUM          PROCESS AS A BINARY PLUS
      6350   02 00E3B                 SCOP4    RES      0
      6351   02 00E3B    21400023 A            CI,XT    EQUALOP
      6352   02 00E3C    69100E3F              BL       SCOP5             NOT A COMPARE OPERATOR
      6353   02 00E3D    21400028 A            CI,XT    LESSOP
      6354   02 00E3E    68200F76              BLE      SCCMPSUM          PROCESS COMPARE OPERATOR
      6355   02 00E3F                 SCOP5    RES      0
      6356   02 00E3F    6AF00000 X            BAL,ER   EERR              EXPRESSION OPERATOR USAGE ERROR
      6357   02 00E40                 SCOP6    RES      0
      6358   02 00E40    12A00000              LD,TX1   ZERO              SET RESULT TO ZERO
      6359                            *
      6360                            *   S C O P E N D
      6361                            *
      6362   02 00E41                 SCOPEND  RES      0
      6363   02 00E41    15A0003E 04           STD,TX1  LVAL              STORE RESULT IN LVAL
      6364   02 00E42    6A700EBD              BAL,RL   SCPULL            REMOVE EXPRESSION(S) FROM STACK
      6365   02 00E43                 SCOPEND1 RES      0
      6366   02 00E43    12A0003E 04           LD,TX1   LVAL
      6367   02 00E44    69100E58              BLZ      SCOPEND3          BRANCH IF RESULT IS <0
      6368   02 00E45    11A00012              CD,TX1   SMIUPBND          X'400000'
      6369   02 00E46    69100E5E              BL       SCOPSMI           BRANCH IF RESULT IS A SMALL INTEGER
      6370   02 00E47    11A00010              CD,TX1   SPIUPBND          X'0000000080000000'
      6371   02 00E48    69100E5A              BL       SCOPSPI           BRANCH IF RESULT IS SINGLE PREC.
      6372                            *
      6373                            *   S C O P D P I
      6374                            *        BUILD A DOUBLE PRECISION INTEGER FROM RESULT
      6375   02 00E49                 SCOPDPI  RES      0
      6376   02 00E49    32401222              LV,XT    DPIET             DOUBLE PREC. INTEGER ET
      6377   02 00E4A    32C0123A              LV,TX3   DPIMASK           DOUBLE PREC. INT. CONTROL WORD
      6378   02 00E4B    22500002 A            LI,XT1   2                 NUMBER OF WORDS TO PUSH
      6379   02 00E4C    21A00000 A            CI,TX1   0
      6380   02 00E4D    68300E52              BE       SCOPEND2          BRANCH IF RESULT IS A 2 WORD DPI
      6381   02 00E4E    20C00001 A            AV,TX3   LNGTH1            CHANGE LENGTH TO 3 WORDS
      6382   02 00E4F    35B00044 04           STW,TX2  RVAL+2            STORE LEAST SIGNIFICANT WORD
      6383   02 00E50    32B0000A A            LW,TX2   TX1                 AND LOAD MOST SIGNIFICANT WORD
      6384   02 00E51    22500003 A            LI,XT1   3                 NUMBER OF WORDS TO PUSH
      6385   02 00E52                 SCOPEND2 RES      0
      6386   02 00E52    35B00043 04           STW,TX2  RVAL+1
      6387   02 00E53    35400060 04           STW,XT   DD%TYPE           STORE TYPE
      6388   02 00E54    49C0007F 04           OR,TX3   EXPR%DEF          INSERT COMPOSITE DEF FIELD
      6389   02 00E55    35C00042 04           STW,TX3  RVAL              STORE CONTROL WORD
      6390   02 00E56    22400042 04           LI,XT    RVAL
      6391   02 00E57    680009C7              B        V%C%3             PUSH RESULT ON STACK
      6392   02 00E58                 SCOPEND3 RES      0
      6393   02 00E58    11A0000E              CD,TX1   SPILWBND          X'FFFFFFFF80000000'
      6394   02 00E59    69100E49              BL       SCOPDPI           BRANCH IF RESULT IS DPI
      6395                            *
      6396                            *   S C O P S P I
      6397                            *        BUILD A SINGLE PRECISION INTEGER FROM RESULT
      6398   02 00E5A                 SCOPSPI  RES      0
      6399   02 00E5A    324011FD              LV,XT    INTET             SINGLE PREC. INTEGER ET
      6400   02 00E5B    22C10002 A            LV,TX3   SPIMASK           SINGLE PREC. INT. CONTROL WORD
      6401   02 00E5C    22500002 A            LI,XT1   2                 NUMBER OF WORDS TO PUSH
      6402   02 00E5D    68000E52              B        SCOPEND2
      6403                            *
      6404                            *   S C O P S M I
      6405                            *        BUILD A SMALL INTEGER FROM RESULT
      6406   02 00E5E                 SCOPSMI  RES      0
      6407   02 00E5E    324011FC              LV,XT    SPINTET           SPECIAL INTEGER ET
      6408   02 00E5F    32C011E9              LV,TX3   SPAFLD+SPINTFLD
      6409   02 00E60    49C0000B A            OR,TX3   TX2
      6410   02 00E61    22500001 A            LI,XT1   1                 NUMBER OF WORDS TO PUSH
      6411   02 00E62    68000E52              B        SCOPEND2
      6412                            *
      6413                            *   PROCESS OPERATOR
      6414                            *        BOTH OPERANDS ARE INTEGERS
      6415                            *
      6416   02 00E63                 SCOPPRC  RES      0
      6417   02 00E63    12A0003E 04           LD,TX1   LVAL              GET LEFT OPERAND
      6418   02 00E64    72480E5E              LB,XT    SC4%JUMP-X'20'/4,XT   BRANCH TO APPROPRIATE
      6419   02 00E65    68080E6A              B        SC4%BASE,XT             OPERATOR ROUTINE
      6420   02 00E66                 SC4%JUMP RES      0
      6421   02 00E66    00       A            BYTE,SC4%BASE  SCOPOR      OR
      6422   02 00E66 1  03       A            BYTE     SCOPEOR           EXCLUSIVE OR
      6423   02 00E66 2  06       A            BYTE     SCOPAND           AND
      6424   02 00E66 3  09       A            BYTE     SCOPEQ            EQUAL
      6425   02 00E67    0D       A            BYTE     SCOPNE            NOT EQUAL
      6426   02 00E67 1  10       A            BYTE     SCOPGE            GREATER OR EQUAL
      6427   02 00E67 2  13       A            BYTE     SCOPLE            LESS OR EQUAL
      6428   02 00E67 3  16       A            BYTE     SCOPG             GREATER
      6429   02 00E68    19       A            BYTE     SCOPL             LESS
      6430   02 00E68 1  1C       A            BYTE     SCOPMNS           MINUS
      6431   02 00E68 2  20       A            BYTE     SCOPPLS           PLUS
      6432   02 00E68 3  28       A            BYTE     SCOPDVD           DIVIDE
      6433   02 00E69    22       A            BYTE     SCOPCQ            COVERED QUOTIENT
      6434   02 00E69 1  2E       A            BYTE     SCOPMLT           MULTIPLY
      6435   02 00E69 2  33       A            BYTE     SCOPSHFT          SHIFT
      6436                                     BOUND    4
      6437   02 00E6A                 SC4%BASE RES      0
      6438   02 00E6A                 SCOPOR   RES      0
      6439   02 00E6A    49A00042 04           OR,TX1   RVAL
      6440   02 00E6B    49B00043 04           OR,TX2   RVAL+1
      6441   02 00E6C    68000E41              B        SCOPEND
      6442   02 00E6D                 SCOPEOR  RES      0
      6443   02 00E6D    48A00042 04           EOR,TX1  RVAL
      6444   02 00E6E    48B00043 04           EOR,TX2  RVAL+1
      6445   02 00E6F    68000E41              B        SCOPEND
      6446   02 00E70                 SCOPAND  RES      0
      6447   02 00E70    4BA00042 04           AND,TX1  RVAL
      6448   02 00E71    4BB00043 04           AND,TX2  RVAL+1
      6449   02 00E72    68000E41              B        SCOPEND
      6450   02 00E73                 SCOPEQ   RES      0
      6451   02 00E73    11A00042 04           CD,TX1   RVAL
      6452   02 00E74    69300E40              BNE      SCOP6             RESULT IS FALSE
      6453   02 00E75                 SCOPTRUE RES      0
      6454   02 00E75    12A00014              LD,TX1   DBLONE            RESULT IS TRUE
      6455   02 00E76    68000E41              B        SCOPEND
      6456   02 00E77                 SCOPNE   RES      0
      6457   02 00E77    11A00042 04           CD,TX1   RVAL
      6458   02 00E78    68300E40              BE       SCOP6             RESULT IS FALSE
      6459   02 00E79    68000E75              B        SCOPTRUE
      6460   02 00E7A                 SCOPGE   RES      0
      6461   02 00E7A    11A00042 04           CD,TX1   RVAL
      6462   02 00E7B    69100E40              BL       SCOP6             RESULT IS FALSE
      6463   02 00E7C    68000E75              B        SCOPTRUE
      6464   02 00E7D                 SCOPLE   RES      0
      6465   02 00E7D    11A00042 04           CD,TX1   RVAL
      6466   02 00E7E    69200E40              BG       SCOP6             RESULT IS FALSE
      6467   02 00E7F    68000E75              B        SCOPTRUE
      6468   02 00E80                 SCOPG    RES      0
      6469   02 00E80    11A00042 04           CD,TX1   RVAL
      6470   02 00E81    68200E40              BLE      SCOP6             RESULT IS FALSE
      6471   02 00E82    68000E75              B        SCOPTRUE
      6472   02 00E83                 SCOPL    RES      0
      6473   02 00E83    11A00042 04           CD,TX1   RVAL
      6474   02 00E84    68100E40              BGE      SCOP6             RESULT IS FALSE
      6475   02 00E85    68000E75              B        SCOPTRUE
      6476   02 00E86    18A00042 04  SCOPMNS  SD,TX1   RVAL
      6477   02 00E87                 SCOPMNS1 RES      0
      6478   02 00E87    68400E41              BNOV     SCOPEND
      6479   02 00E88    6AF00000 X            BAL,ER   TERR
      6480   02 00E89    68000E41              B        SCOPEND
      6481   02 00E8A    10A00042 04  SCOPPLS  AD,TX1   RVAL
      6482   02 00E8B    68000E87              B        SCOPMNS1
      6483   02 00E8C    10A00042 04  SCOPCQ   AD,TX1   RVAL
      6484   02 00E8D    68400E8F              BNOV     %+2
      6485   02 00E8E    6AF00000 X            BAL,ER   TERR
      6486   02 00E8F    18A00014              SD,TX1   DBLONE
      6487   02 00E90    68400E92              BNOV     %+2
      6488   02 00E91    6AF00000 X            BAL,ER   TERR
      6489   02 00E92                 SCOPDVD  RES      0
      6490   02 00E92    36A00043 04           DW,TX1   RVAL+1
      6491   02 00E93    68400E95              BNOV     %+2
      6492   02 00E94    6AF00000 X            BAL,ER   TERR
      6493   02 00E95    32A0000B A            LW,TX1   TX2               EXTEND THE SIGN
      6494   02 00E96    25A00560 A            SAD,TX1  -32                 OF THE QUOTIENT
      6495   02 00E97    68000E41              B        SCOPEND
      6496   02 00E98    33000074 04  SCOPMLT  MTW,0    DPIFLAG
      6497   02 00E99    68300E9B              BEZ      %+2
      6498   02 00E9A    6AF00000 X            BAL,ER   TERR
      6499   02 00E9B    37A00043 04           MW,TX1   RVAL+1
      6500   02 00E9C    68000E41              B        SCOPEND
      6501   02 00E9D    32600043 04  SCOPSHFT LW,XT2   RVAL+1
      6502   02 00E9E    25AC0100 A            SLD,TX1  0,XT2
      6503   02 00E9F    3B600043 04           LAW,XT2  RVAL+1            GET ABSOLUTE VALUE OF SHIFT COUNT
      6504   02 00EA0    2160003F A            CI,XT2   63
      6505   02 00EA1    68200E41              BLE      SCOPEND           SHIFT WAS LESS THAN 64 BITS
      6506   02 00EA2    68000E40              B        SCOP6             SET RESULT TO ZERO
      6507                            *
      6508                            *    S C P U S H
      6509                            *
      6510   02 00EA3                 SCPUSH   RES      0
      6511   02 00EA3    357000AD 04           STW,RL   SCPPRTN           SAVE RETURN ADDRESS
      6512   02 00EA4    6A700EA7              BAL,RL   SCPSHC            PUSH ENTRY ON ECT
      6513   02 00EA5    6A700EB0              BAL,RL   SCPSHV            PUSH ENTRY ON EVT
      6514   02 00EA6    E80000AD 04           B        *SCPPRTN          RETURN
      6515                            *
      6516                            *    S C P S H C
      6517                            *
      6518   02 00EA7                 SCPSHC   RES      0
      6519   02 00EA7    32B60002 A            LW,TX2   ECT,LVL
      6520   02 00EA8    30B00035 03           AW,TX2   KLINE
      6521   02 00EA9    31B000A0 04           CW,TX2   NXTSYMT           BRANCH IF THERE IS NOT ENOUGH
      6522   02 00EAA    69100000 X            BL       HILIMIT4            ROOM FOR THIS ECT ENTRY
      6523   02 00EAB    32A60001 A            LW,TX1   EVT,LVL           BUILD POINTER TO EVT ENTRY
      6524   02 00EAC    30A00060 04           AW,TX1   DD%TYPE           BUILD TYPE FIELD
      6525   02 00EAD    B5A0000B A            STW,TX1  *TX2              STORE IN ECT TABLE
      6526   02 00EAE    33F60002 A            MTW,-1   ECT,LVL           BUMP ECT OFFSET
      6527   02 00EAF    680E0000 A            EXIT     RL                RETURN
      6528                            *
      6529                            *    S C P S H V
      6530                            *
      6531   02 00EB0                 SCPSHV   RES      0
      6532   02 00EB0    32B60001 A            LW,TX2   EVT,LVL
      6533   02 00EB1    30B00035 03           AW,TX2   KLINE
      6534   02 00EB2    30B00005 A            AW,TX2   XT1
      6535   02 00EB3    31B0009F 04           CW,TX2   NXTLOCAL          BRANCH IF THERE IS NOT ENOUGH
      6536   02 00EB4    69200000 X            BG       HILIMIT4            ROOM FOR THIS EVT ENTRY
      6537   02 00EB5    66560001 A            AWM,XT1  EVT,LVL           BUMP EVT BY ITEM'S SIZE
      6538   02 00EB6    38B00005 A            SW,TX2   XT1
      6539   02 00EB7                 SCPSHV1  RES      0
      6540   02 00EB7    32C80000 A            LW,TX3   0,XT              GET NEXT WORD OF ITEM
      6541   02 00EB8    B5C0000B A            STW,TX3  *TX2              AND STORE INTO NEXT EVT WORD
      6542   02 00EB9    20400001 A            AI,XT    1                 INCREMENT ITEM ADDRESS
      6543   02 00EBA    20B00001 A            AI,TX2   1                 INCREMENT EVT ADDRESS
      6544   02 00EBB    64500EB7              BDR,XT1  SCPSHV1           DECREMENT COUNT AND CONTINUE
      6545   02 00EBC    680E0000 A            EXIT     RL
      6546                            *
      6547                            *    S C P U L L
      6548                            *                 REMOVE AN EXPRESSION FROM THE EXPRESSION TABLES
      6549                            *
      6550   02 00EBD                 SCPULL   RES      0
      6551   02 00EBD    33160002 A            MTW,1    ECT,LVL           DELETE ECT ENTRY AND
      6552   02 00EBE    32460002 A            LW,XT    ECT,LVL           CREATE POINTER TO LAST EVT ENTRY
      6553   02 00EBF    B2480035 03           LW,XT    *KLINE,XT
      6554   02 00EC0    4B4011E1              AND,XT   =LOCFLD           CLEAN EVT INDEX
      6555   02 00EC1    35460001 A            STW,XT   EVT,LVL
      6556   02 00EC2    680E0000 A            EXIT     RL
      6557                            *
      6558                            *    S C S E T U P R
      6559                            *
      6560   02 00EC3                 SCSETUPR RES      0
      6561   02 00EC3    32660002 A            LW,XT2   ECT,LVL           GET CURRENT ECT OFFSET
      6562   02 00EC4    30600035 03           AW,XT2   KLINE             GET CURRENT ECT ADDRESS
      6563   02 00EC5    32AC0001 A            LW,TX1   1,XT2             GET ECT ENTRY
      6564   02 00EC6    35A00004 A            STW,TX1  XT                GET ET ENTRY FOR THIS ECT
      6565   02 00EC7    4B4011ED              AND,XT   L(ETFLD)
      6566   02 00EC8    4BA011E1              AND,TX1  L(LOCFLD)
      6567   02 00EC9    30A00035 03           AW,TX1   KLINE             CONVERT POINTER TO ADDRESS
      6568   02 00ECA    35A00045 04           STW,TX1  RPTR
      6569   02 00ECB    680E0000 A            EXIT     RL
      6570                            *
      6571                            *   S C M A P
      6572                            *
      6573   02 00ECC                 SCMAP    RES      0
      6574   02 00ECC    32600045 04           LW,XT2   RPTR              ADDRESS OF ITEM TO BE MAPPED
      6575   02 00ECD    32AC0000 A            LW,TX1   0,XT2
      6576   02 00ECE    4BA0007F 04           AND,TX1  EXPR%DEF          UPDATE THE LOWEST VALUE OF THE
      6577   02 00ECF    35A0007F 04           STW,TX1  EXPR%DEF            DEF FIELD
      6578   02 00ED0    32DC0000 A            LW,TX4   0,XT2             GET CONTROL WORD
      6579   02 00ED1    25400205 A            SHIFT,XT ETLOB,31          RIGHT ADJUST ITEM'S TYPE
      6580   02 00ED2    72480ED4              LB,XT    SC5%JUMP,XT       LOAD OFFSET TO ITEM PROCESSOR
      6581   02 00ED3    68080ED9              B        SC5%BASE,XT       BRANCH TO APPROPRIATE PROCESSOR
      6582   02 00ED4                 SC5%JUMP RES      0
      6583   02 00ED4    00       A            BYTE,SC5%BASE  SCMAPU      UNDEFINED
      6584   02 00ED4 1  3C       A            BYTE     SCMAPSPA          SPECIAL ADDRESS
      6585   02 00ED4 2  4E       A            BYTE     SCMAPAB           SPECIAL EXTERNAL
      6586   02 00ED4 3  45       A            BYTE     SCMAPADD          ADDRESS
      6587   02 00ED5    3A       A            BYTE     SCMAPSUM          SUM
      6588   02 00ED5 1  30       A            BYTE     SCMAPEXT          EXTERNAL
      6589   02 00ED5 2  30       A            BYTE     SCMAPLF           LOCAL FORWARD
      6590   02 00ED5 3  30       A            BYTE     SCMAPLF           LOCAL FORWARD AND HOLD
      6591   02 00ED6    4E       A            BYTE     SCMAPAB           ONE WORD ADDRESS
      6592   02 00ED6 1  03       A            BYTE     SCMAPSPI          SPECIAL INTEGER
      6593   02 00ED6 2  08       A            BYTE     SCMAPBL           BLANK
      6594   02 00ED6 3  12       A            BYTE     SCMAPI            INTEGER
      6595   02 00ED7    16       A            BYTE     SCMAPD            DECIMAL
      6596   02 00ED7 1  21       A            BYTE     SCMAPTXT          TEXT
      6597   02 00ED7 2  12       A            BYTE     SCMAPFX           FX
      6598   02 00ED7 3  12       A            BYTE     SCMAPFS           FS
      6599   02 00ED8    0E       A            BYTE     SCMAPFL           FL
      6600   02 00ED8 1  0C       A            BYTE     SCMAPDPI          DPI
      6601   02 00ED8 2  07       A            BYTE     SCMAPERR          LIST
      6602   02 00ED8 3  4E       A            BYTE     SCMAPAB           FUNCTION
      6603                                     BOUND    4
      6604   02 00ED9                 SC5%BASE RES      0
      6605   02 00ED9                 SCMAPU   RES      0
      6606   02 00ED9    6A700EBD              BAL,RL   SCPULL            REMOVE EXPRESSION(S) FROM STACK
      6607   02 00EDA                 SCMAPU1  RES      0
      6608   02 00EDA    329011E9              LV,TMP   UNDITM            LOAD UNDEFINED ITEM
      6609   02 00EDB    680009C1              B        SCUND             PUSH AN UNDEFINED ITEM ONTO STACK
      6610   02 00EDC                 SCMAPSPI RES      0
      6611   02 00EDC    4BD011EC              AND,TX4  =VALFLD           GET VALUE OF SPECIAL INTEGER
      6612   02 00EDD                 SCMAP1   RES      0
      6613   02 00EDD    22C00000 A            LI,TX3   0                 ZERO FOR MOST SIGNIFICANT WORD
      6614   02 00EDE                 SCMAP2   RES      0
      6615   02 00EDE    15C00042 04           STD,TX3  RVAL              STORE RESULT OF CONSTANT
      6616   02 00EDF    680E0000 A            EXIT     RL
      6617   02 00EE0                 SCMAPERR RES      0
      6618   02 00EE0    6AF00000 X            BAL,ER   EERR              ILLEGAL ITEM
      6619   02 00EE1                 SCMAPBL  RES      0
      6620   02 00EE1    12C00000              LD,TX3   ZERO              SET UP ZERO CONSTANT
      6621   02 00EE2    68000EDE              B        SCMAP2
      6622                            *
      6623   02 00EE3                 SCMAP3   RES      0
      6624   02 00EE3    32DC0001 A            LW,TX4   1,XT2             GET CONSTANT
      6625   02 00EE4    68000EDD              B        SCMAP1
      6626   02 00EE5                 SCMAPDPI RES      0
      6627   02 00EE5    21D00001 A            CI,TX4   1
      6628   02 00EE6    68400EE3              BAZ      SCMAP3            BRIF 2-WORD DPI
      6629                            *
      6630   02 00EE7                 SCMAPFL  RES      0
      6631   02 00EE7    32CC0001 A            LW,TX3   1,XT2             GET MOST SIGNIFICANT PART
      6632   02 00EE8    32DC0002 A            LW,TX4   2,XT2             GET LEAST SIGNIFICANT PART
      6633   02 00EE9    33100074 04           MTW,1    DPIFLAG           INCREMENT NUMBER OF DPI ITEMS
      6634   02 00EEA    68000EDE              B        SCMAP2
      6635                            *
      6636   02 00EEB                 SCMAPFS  RES      0
      6637   02 00EEB                 SCMAPFX  RES      0
      6638   02 00EEB                 SCMAPI   RES      0
      6639   02 00EEB    32DC0001 A            LW,TX4   1,XT2             GET CONSTANT
      6640   02 00EEC    68100EDD              BGEZ     SCMAP1            BRANCH IF POSITIVE
      6641   02 00EED    22CFFFFF A            LI,TX3   -1                EXTEND THE MINUS SIGN
      6642   02 00EEE    68000EDE              B        SCMAP2
      6643   02 00EEF                 SCMAPD   RES      0
      6644   02 00EEF    3240000D A            LW,XT    TX4
      6645   02 00EF0    4B40121D              AND,XT   =LENGTHFLD        GET LENGTH OF DECIMAL CONSTANT
      6646   02 00EF1    21400003 A            CI,XT    3
      6647   02 00EF2    68200EF4              BLE      %+2               BRANCH IF 64 BITS OR LESS
      6648   02 00EF3    6AF00000 X            BAL,ER   TERR              TRUNCATION ERROR
      6649   02 00EF4    204FFFFF A            AI,XT    -1
      6650   02 00EF5    B2D80006 A            LW,TX4   *XT2,XT           GET LEAST SIGNIFICANT PART
      6651   02 00EF6    204FFFFF A            AI,XT    -1
      6652   02 00EF7    68200EDD              BLEZ     SCMAP1            USE ZERO FOR MOST SIGNIFICANT PART
      6653   02 00EF8    B2C80006 A            LW,TX3   *XT2,XT           GET MOST SIGNIFICANT PART
      6654   02 00EF9    68000EDE              B        SCMAP2
      6655   02 00EFA                 SCMAPTXT RES      0
      6656   02 00EFA    20600001 A            AI,XT2   1
      6657   02 00EFB    F2400006 A            LB,XT    *XT2              GET NUMBER OF CHARS IN CONSTANT
      6658   02 00EFC    21400008 A            CI,XT    8
      6659   02 00EFD    68200EFF              BLE      %+2               BRANCH IF 8 CHARS OR LESS
      6660   02 00EFE    6AF00000 X            BAL,ER   TERR              TRUNCATION ERROR
      6661   02 00EFF    12C00000              LD,TX3   ZERO
      6662   02 00F00    22500007 A            LI,XT1   7
      6663   02 00F01                 SCMAPTX2 RES      0
      6664   02 00F01    21400000 A            CI,XT    0
      6665   02 00F02    68300EDE              BEZ      SCMAP2            BRANCH IF NO CHARS LEFT IN STRING
      6666   02 00F03    F2A80006 A            LB,TX1   *XT2,XT           MOVE LOW ORDER CHAR FROM STRING
      6667   02 00F04    75AA000C A            STB,TX1  TX3,XT1             TO LOW ORDER POSITION IN TX3,TX4
      6668   02 00F05    205FFFFF A            AI,XT1   -1                DECREMENT 'STORE' INDEX
      6669   02 00F06    69100EDE              BLZ      SCMAP2            BRANCH IF TX3,TX4 FULL
      6670   02 00F07    204FFFFF A            AI,XT    -1                DECREMENT 'LOAD' INDEX
      6671   02 00F08    68000F01              B        SCMAPTX2
      6672   02 00F09                 SCMAPEXT RES      0
      6673   02 00F09                 SCMAPLF  RES      0
      6674   02 00F09    22C00000 A            LI,TX3   0                 USE ZERO FOR OFFSET WORD
      6675   02 00F0A    32A0000D A            LW,TX1   TX4               USE CONTROL WORD FOR 3RD WORD OF SUM
      6676   02 00F0B                 SCMAP4   RES      0
      6677   02 00F0B    35C00043 04           STW,TX3  RVAL+1            STORE OFFSET AS 2ND WORD OF SUM
      6678   02 00F0C    35A00044 04           STW,TX1  RVAL+2            STORE 3RD WORD OF SUM
      6679   02 00F0D    22D58003 A            LV,TX4   3WDSUM
      6680   02 00F0E    35D00042 04           STW,TX4  RVAL              STORE CONTROL WORD FOR 3 WORD SUM
      6681   02 00F0F    32B011EB              LV,TX2   DEFFLD            STORE ITEM'S DEF FIELD AS
      6682   02 00F10    47A00042 04           STS,TX1  RVAL                DEF FOR SUM CONTROL WORD
      6683   02 00F11    22B00042 04           LI,TX2   RVAL
      6684   02 00F12    35B00045 04           STW,TX2  RPTR              STORE POINTER TO NAPPED ITEM
      6685   02 00F13                 SCMAPSUM RES      0
      6686   02 00F13    331000B5 04           MTW,1    SUM%FLAG          INDICATE ITEM IS A SUM
      6687   02 00F14    680E0000 A            EXIT     RL
      6688   02 00F15                 SCMAPSPA RES      0
      6689   02 00F15    32C0000D A            LW,TX3   TX4
      6690   02 00F16    4BC011E1              AND,TX3  =ADDFLD           GET ADD FIELD FOR OFFSET
      6691   02 00F17    32A0000D A            LW,TX1   TX4
      6692   02 00F18    4BD01210              AND,TX4  =CSFLD            GET CONTROL SECTION
      6693   02 00F19    25D0020F A            SHIFT,TX4 CSLOB,ECSLOB     POSITION CONTROL SECTION
      6694   02 00F1A    4BA0123B              AND,TX1  =SPAFLD+CSFLD+ADDFLD||X'FFFFFFFF' RESET SPA,CS, ADD
      6695   02 00F1B    30A0123C              AV,TX1   ONEWDADD+SYMBOL   SET STYPE AND TYPE FIELDS
      6696   02 00F1C    30A0000D A            AW,TX1   TX4
      6697   02 00F1D    68000F0B              B        SCMAP4
      6698   02 00F1E                 SCMAPADD RES      0
      6699   02 00F1E    32AC0001 A            LW,TX1   1,XT2
      6700   02 00F1F    32C0000A A            LW,TX3   TX1
      6701   02 00F20    4BC011EC              AND,TX3  =OFFSETFLD        GET OFFSET
      6702   02 00F21    30D01229              AV,TX4   ONEWDADD-SIMPADD  CHANGE STYPE FIELD TO 1 WD ADDRESS
      6703   02 00F22    4BD0123D              AND,TX4  =~LENGTHFLD       RESET LENGTH FIELD
      6704   02 00F23    4BA0120E              AND,TX1  =FCSFLD           GET CONTROL SECTION
      6705   02 00F24    25A0020A A            SHIFT,TX1  FCSLOB,ECSLOB   POSITION CONTROL SECTION
      6706   02 00F25    30A0000D A            AW,TX1   TX4
      6707   02 00F26    68000F0B              B        SCMAP4
      6708   02 00F27                 SCMAPAB  RES      0
      6709   02 00F27                 SCDIR    RES      0
      6710   02 00F27    22000002 A            ABORT    ABORT2            BAD ENCODED TEXT
             02 00F28    68000000 X
      6711                            *
      6712                            *    S C A D D S U M
      6713                            *
      6714   02 00F29                 SCADDSUM RES      0
      6715   02 00F29    324000B5 04           LW,XT    SUM%FLAG          IS ONE OPERAND
      6716   02 00F2A    21400003 A            CI,XT    3                   A CONSTANT
      6717   02 00F2B    69300F63              BNE      SCADSM70          BRANCH IF YES
      6718   02 00F2C    32660001 A            LW,XT2   EVT,LVL           CREATE POINTER TO NEXT AVAILABLE
      6719   02 00F2D    30600035 03           AW,XT2   KLINE               WORD IN EVT
      6720   02 00F2E    35600009 A            STW,XT2  TMP               SAVE START OF RESULT
      6721   02 00F2F    B2A00045 04           LW,TX1   *RPTR             GET LENGTH OF RIGHT SUM
      6722   02 00F30    4BA0121D              AND,TX1  L(LENGTHFLD)
      6723   02 00F31    35A000AA 04           STW,TX1  RTSUMSZ
      6724   02 00F32    B2A00041 04           LW,TX1   *LPTR             GET LENGTH OF LEFT SUM
      6725   02 00F33    4BA0121D              AND,TX1  L(LENGTHFLD)
      6726   02 00F34    35A00090 04           STW,TX1  LFSUMSZ
      6727   02 00F35    22A58000 A            LV,TX1   SYMBOL+CMPLXSUM   MOVE CONTROL WORD
      6728   02 00F36    49A0007F 04           OR,TX1   EXPR%DEF          SET DEF FIELD TO LEAST VALUE
      6729   02 00F37    6A700F71              BAL,RL   SCPUSHTX1         PUSH TX1 ONTO EVT
      6730   02 00F38    22400001 A            LI,XT    1                 INDEX  TO RT SUM
      6731   02 00F39    22500001 A            LI,XT1   1                 INDEX TO LF SUM
      6732   02 00F3A    B2A80045 04           LW,TX1   *RPTR,XT          ADD OFFSETS
      6733   02 00F3B    B0A80041 04           AW,TX1   *LPTR,XT
      6734   02 00F3C    6A700F71              BAL,RL   SCPUSHTX1         PUSH TX1 ONTO EVT
      6735   02 00F3D    32B0123E              LV,TX2   ~(ADFLD+2**(31-DEFLOB)+DUPFLD+SETFLD)
      6736   02 00F3E    32D011E6              LV,TX4   ADFLD
      6737   02 00F3F                 SCADSM40 RES      0
      6738   02 00F3F    20400001 A            AI,XT    1                 BUMP INDEX TO RT OPERAND
      6739   02 00F40    20500001 A            AI,XT1   1                 BUMP INDEX TO LEFT OPERAND
      6740   02 00F41    314000AA 04           CW,XT    RTSUMSZ           ANY MORE IN RT SUM
      6741   02 00F42    68100F52              BGE      SCADSM25          NO, GO MOVE LEFT SUM
      6742   02 00F43    68000F58              B        SCADSM31
      6743   02 00F44    B2A80045 04  SCADSM3  LW,TX1   *RPTR,XT          GET NEXT ITEM FROM RT SUM
      6744   02 00F45    B2CA0041 04           LW,TX3   *LPTR,XT1         GET NEXT ITEM FROM LF SUM
      6745   02 00F46    45A0000C A            CS,TX1   TX3               COMPARE
      6746   02 00F47    69100F4B              BL       SCADSM20          RT < LF
      6747   02 00F48    69200F55              BG       SCADSM30          LF < RT
      6748   02 00F49    45C0000A A            CS,TX3   TX1               RT = LF, CHECK AD BIT
      6749   02 00F4A    69300F3F              BNE      SCADSM40          AD BIT DIFFERS, ITEMS CANCEL
      6750   02 00F4B                 SCADSM20 RES      0
      6751   02 00F4B    6A700F71              BAL,RL   SCPUSHTX1         PUSH TX1 ONTO EVT
      6752   02 00F4C    20400001 A            AI,XT    1
      6753   02 00F4D    314000AA 04           CW,XT    RTSUMSZ           ANY MORE IN RT SUM
      6754   02 00F4E    69100F44              BL       SCADSM3           YES
      6755   02 00F4F                 SCADSM23 RES      0
      6756   02 00F4F    B2AA0041 04           LW,TX1   *LPTR,XT1         NO, MOVE REST OF LF SUM
      6757   02 00F50    6A700F71              BAL,RL   SCPUSHTX1         PUSH TX1 ONTO EVT
      6758   02 00F51    20500001 A            AI,XT1   1
      6759   02 00F52    31500090 04  SCADSM25 CW,XT1   LFSUMSZ           FINISHED
      6760   02 00F53    69100F4F              BL       SCADSM23          NO
      6761   02 00F54    68000F5F              B        SCADSM50          YES
      6762   02 00F55                 SCADSM30 RES      0
      6763   02 00F55    35C0000A A            STW,TX3  TX1               MOVE LF ITEM
      6764   02 00F56    6A700F71              BAL,RL   SCPUSHTX1         PUSH TX1 ONTO EVT
      6765   02 00F57    20500001 A            AI,XT1   1
      6766   02 00F58                 SCADSM31 RES      0
      6767   02 00F58    31500090 04           CW,XT1   LFSUMSZ           ANY MORE IN LF SUM
      6768   02 00F59    69100F44              BL       SCADSM3           YES
      6769   02 00F5A    B2A80045 04  SCADSM33 LW,TX1   *RPTR,XT          NO, MOVE REST OF RT SUM
      6770   02 00F5B    6A700F71              BAL,RL   SCPUSHTX1         PUSH TX1 ONTO EVT
      6771   02 00F5C    20400001 A            AI,XT    1
      6772   02 00F5D    314000AA 04           CW,XT    RTSUMSZ           FINISHED
      6773   02 00F5E    69100F5A              BL       SCADSM33          NO
      6774   02 00F5F                 SCADSM50 RES      0
      6775   02 00F5F    38600009 A            SW,XT2   TMP               CALCULATE SIZE OF SUM
      6776   02 00F60    E6600009 A            AWM,XT2  *TMP              PUT SIZE IN SUM CONTROL WORD
      6777   02 00F61                 SCADSM60 RES      0
      6778   02 00F61    6A700EBD              BAL,RL   SCPULL
      6779   02 00F62    68000F8B              B        SCSQESUM          SQUEEZE SUM TO SMALLEST FORM
      6780                            *    HERE IF ONE OPERAND IS A CONSTANT AND THE OTHER IS AN
      6781                            *      ADDRESS OR SUM
      6782   02 00F63    33000074 04  SCADSM70 MTW,0    DPIFLAG           IS CONSTANT SINGLE PRECISION
      6783   02 00F64    68300F66              BEZ      %+2               YES
      6784   02 00F65    6AF00000 X            BAL,ER   TERR              NO, ERROR
      6785   02 00F66    22500001 A            LI,XT1   1
      6786   02 00F67    21400002 A            CI,XT    2
      6787   02 00F68    69400F6D              BANZ     SCADSM80          BRANCH IF LEFT OPERAND IS A SUM
      6788   02 00F69    32A0003F 04           LW,TX1   LVAL+1            ADD OFFSET TO RIGHT OPERAND
      6789   02 00F6A    E6AA0045 04           AWM,TX1  *RPTR,XT1
      6790   02 00F6B    32900045 04           LW,TMP   RPTR              ADDRESS OF SUM
      6791   02 00F6C    68000F61              B        SCADSM60
      6792   02 00F6D                 SCADSM80 RES      0
      6793   02 00F6D    32A00043 04           LW,TX1   RVAL+1            ADD OFFSET TO LEFT OPERAND
      6794   02 00F6E    E6AA0041 04           AWM,TX1  *LPTR,XT1
      6795   02 00F6F    32900041 04           LW,TMP   LPTR              ADDRESS OF SUM
      6796   02 00F70    68000F61              B        SCADSM60
      6797   02 00F71                 SCPUSHTX1   RES   0                 PUSH REG TX1 ONTO EVT
      6798   02 00F71    3160009F 04           CW,XT2   NXTLOCAL          XT2 HAS EVT ADDRESS TO STORE INTO
      6799   02 00F72    69200000 X            BG       HILIMIT4          BRANCH IF NO ROOM
      6800   02 00F73    35AC0000 A            STW,TX1  0,XT2             STORE IN EVT
      6801   02 00F74    20600001 A            AI,XT2   1                 BUMP TO NEXT ADDRESS
      6802   02 00F75    680E0000 A            EXIT     RL
      6803                            *
      6804                            *    S C C M P S U M
      6805                            *
      6806   02 00F76                 SCCMPSUM RES      0
      6807   02 00F76    21600003 A            CI,XT2   3                 IF BOTH OPERANDS ARE NOT SUMS,
      6808   02 00F77    69300E40              BNE      SCOP6               GO SET RESULT TO ZERO
      6809   02 00F78    22707FFF A            LV,RL    LENGTHFLD
      6810   02 00F79    CA600045 04           LS,XT2   *RPTR             ARE THEY BOTH THE SAME SIZE
      6811   02 00F7A    C5600041 04           CS,XT2   *LPTR
      6812   02 00F7B    69300E40              BNE      SCOP6             BRANCH IF THEY ARE UNEQUAL
      6813                            *
      6814   02 00F7C    32B0123F              LV,TX2   TYPEFLD+STYPEFLD+LENGTHFLD+ARFLD
      6815   02 00F7D                 SCCMPSM3   RES    0
      6816   02 00F7D    206FFFFF A            AI,XT2   -1
      6817   02 00F7E    21600001 A            CI,XT2   1
      6818   02 00F7F    68300F84              BE       SCCMPSM1          FINISHED WITH ITEM COMPARISON
      6819   02 00F80    B2AC0045 04           LW,TX1   *RPTR,XT2         COMPARE NEXT WORD OF SUM
      6820   02 00F81    C5AC0041 04           CS,TX1   *LPTR,XT2
      6821   02 00F82    68300F7D              BE       SCCMPSM3          EQUAL, SO FAR
      6822   02 00F83    68000E40              B        SCOP6             NOT EQUAL, ANSWER IS FALSE
      6823   02 00F84                 SCCMPSM1  RES     0
      6824   02 00F84    B2AC0041 04           LW,TX1   *LPTR,XT2         EXTEND SIGN OF OFFSET WORD
      6825   02 00F85    25A00560 A            SAD,TX1  -32
      6826   02 00F86    15A0003E 04           STD,TX1  LVAL
      6827   02 00F87    B2AC0045 04           LW,TX1   *RPTR,XT2         EXTEND SIGN OF RPTR OFFSET WORD
      6828   02 00F88    25A00560 A            SAD,TX1  -32
      6829   02 00F89    15A00042 04           STD,TX1  RVAL
      6830   02 00F8A    68000E63              B        SCOPPRC           RETURN TO PROCESS OPERATOR
      6831                            *
      6832                            *    S C S Q E S U M
      6833                            *        THIS ROUTINE COMPRESSES THE RESULTING SUM OF 'SCADDSUM'
      6834                            *          INTO ITS SMALLEST FORM.  IF LENGTH = 2, THE RESULT IS A
      6835                            *          CONSTANT AND A BRANCH TO 'SCOPEND' IS MADE WHICH COMPRESSES
      6836                            *          CONSTANTS.  IF LENGTH = 3 AND STYPE = ONE WORD ADDR,
      6837                            *          RESULT IS COMPRESSED TO SPECIAL ADDRESS OR SIMPLE ADDRESS
      6838                            *          IF POSSIBLE.  IN ALL OTHER CASES BRANCH TO PUSH
      6839                            *          THE SUM ONTO THE EVT & ECT.
      6840                            *
      6841                            *            INPUT:  REGISTER TMP CONTAINS THE ADDRESS OF THE SUM
      6842                            *
      6843   02 00F8B                 SCSQESUM RES      0
      6844   02 00F8B    32400009 A            LW,XT    TMP               MOVE ADDRESS OF SUM (FOR SCPUSH)
      6845   02 00F8C    32580000 A            LW,XT1   0,XT
      6846   02 00F8D    4B50121D              AND,XT1  =LENGTHFLD        CLEAN THE LENGTH OF THE SUM
      6847   02 00F8E    21500002 A            CI,XT1   2                 DOES LENGTH = 2 (RESULT = CONSTANT)
      6848   02 00F8F    69300F96              BNE      SCSQSM3           NO
      6849   02 00F90    22A00000 A            LI,TX1   0
      6850   02 00F91    32B80001 A            LW,TX2   1,XT              GET OFFSET
      6851   02 00F92    68100F94              BGEZ     %+2               IS IT NEGATIVE, NO
      6852   02 00F93    22AFFFFF A            LI,TX1   -1                YES, EXTEND SIGN
      6853   02 00F94    15A0003E 04           STD,TX1  LVAL
      6854   02 00F95    68000E43              B        SCOPEND1          GO MAP CONSTANT
      6855   02 00F96    32A011E5     SCSQSM3  LV,TX1   SUMET             SET TYPE = SUM
      6856   02 00F97    35A00060 04           STW,TX1  DD%TYPE
      6857   02 00F98    21500003 A            CI,XT1   3                 DOES LENGTH = 3
      6858   02 00F99    693009C7              BNE      V%C%3             NO
      6859   02 00F9A    32A80002 A            LW,TX1   2,XT
      6860   02 00F9B    32B01203              LV,TX2   STYPEFLD
      6861   02 00F9C    45A01229              CS,TX1   L(ONEWDADD)       DOES SUM REPRESENT AN ADDRESS
      6862   02 00F9D    693009C7              BNE      V%C%3             NO
      6863   02 00F9E    32B80001 A            LW,TX2   1,XT              GET OFFSET
      6864   02 00F9F    691009C7              BLZ      V%C%3             IF NEGATIVE, LEAVE AS A 3-WD SUM
      6865   02 00FA0    32C80002 A            LW,TX3   2,XT              SAVE THE ECS FIELD
      6866   02 00FA1    4BC0121D              AND,TX3  =ECSFLD
      6867   02 00FA2    31A011E6              CV,TX1   ADFLD             IS ADDRESS NEGATIVE
      6868   02 00FA3    69400FB0              BANZ     SCSQSM5           YES
      6869   02 00FA4    21B1FFFF A            CV,TX2   ADDFLD            WILL OFFSET FIT IN SPA TYPE
      6870   02 00FA5    69200FB0              BG       SCSQSM5           NO
      6871   02 00FA6    21C0001F A            CV,TX3   CSFLD**(-(31-CSLOB))   WILL CS FIT IN SPA TYPE
      6872   02 00FA7    69200FB0              BG       SCSQSM5           NO
      6873   02 00FA8    3290120F              LV,TMP   ARFLD
      6874   02 00FA9    4B90000A A            AND,TMP  TX1               SAVE ADDRESS RESOLUTION
      6875   02 00FAA    25C00271 A            SHIFT,TX3 ECSLOB,CSLOB
      6876   02 00FAB    4990000C A            OR,TMP   TX3               INSERT CONTROL SECTION
      6877   02 00FAC    4990007F 04           OR,TMP   EXPR%DEF          INSERT LOWEST DEF FIELD
      6878   02 00FAD    4990000B A            OR,TMP   TX2               INSERT OFFSET
      6879   02 00FAE    499011E7              OR,TMP   =SPAFLD           INSERT SPA BIT
      6880   02 00FAF    68000AED              B        V%C%6             BRANCH TO STORE SPECIAL ADDRESS
      6881   02 00FB0                 SCSQSM5  RES      0
      6882   02 00FB0    31B011EC              CV,TX2   OFFSETFLD         WILL OFFSET FIT IN SIMP ADDR TYPE
      6883   02 00FB1    692009C7              BG       V%C%3             NO, BRANCH TO STORE SUM
      6884   02 00FB2    4BA01240              AND,TX1  =~(STYPEFLD+LENGTHFLD+DEFFLD)
      6885   02 00FB3    20A00002 A            AV,TX1   SIMPADD+LNGTH2    SET SIMPLE ADDR & LENGTH = 2
      6886   02 00FB4    49A0007F 04           OR,TX1   EXPR%DEF          INSERT LOWEST DEF FIELD
      6887   02 00FB5    25C00276 A            SHIFT,TX3 ECSLOB,FCSLOB    SHIFT TO FCS FIELD
      6888   02 00FB6    49B0000C A            OR,TX2   TX3               INSERT CONTROL SECTION
      6889   02 00FB7    15A0003E 04           STD,TX1  LVAL
      6890   02 00FB8    68000AF4              B        V%C%7             GO INSERT SIMPLE ADDR & RETURN
      6891                            *
      6892                            *  HERE TO EXIT AFTER ONE ARG HAS BEEN PROCESSED
      6893                            *        BACK UP XW UNLESS END-LINE HAS BEEN FOUND
      6894                            *
      6895   02 00FB9                 SCLOOP40 RES      0
      6896   02 00FB9    21400000 A            CI,XT    ENDLINE
      6897   02 00FBA    68300AB0              BE       V%0
      6898   02 00FBB    202FFFFF A            AI,XW    -1
      6899                            *
      6900                            *    S C R E T
      6901                            *
      6902   02 00FBC                 SCRET    RES      0
      6903   02 00FBC    3210005F 04           LW,XS    SCANXS
      6904   02 00FBD    30100035 03           AW,XS    KLINE
      6905   02 00FBE    32A0005F 04           LW,TX1   SCANXS
      6906   02 00FBF    38A60002 A            SW,TX1   ECT,LVL             EVALUATED BY THIS CALL
      6907   02 00FC0    21A00001 A            CI,TX1   1                 IS COUNT = 1
      6908   02 00FC1    69300FC7              BNE      SCRET3            NO
      6909   02 00FC2    F2B00001 A            LB,TX2   *XS               YES, IS ITEM = BLANK
      6910   02 00FC3    25B0007D A            SLS,TX2  -3
      6911   02 00FC4    21B0000A A            CV,TX2   BLANKET**(-(31-ETLOB))
      6912   02 00FC5    69300FC7              BNE      SCRET3            NO
      6913   02 00FC6    20AFFFFF A            AI,TX1   -1                YES, SET COUNT = 0
      6914   02 00FC7    35A00097 04  SCRET3   STW,TX1  LSTCT             SAVE COUNT
      6915   02 00FC8    E8000059 04           B        *SCANEXIT         EXIT FROM SCAN
      6916                            *
      6917                                     CLOSE    TX1,TX2,TX3,TX4
      6918                                     CLOSE    TMP
1
      6920                            *
      6921                            *   S E T
      6922                            *        THIS ROUTINE PROCESSES THE SET DIRECTIVE. SETVALUE IS SET TO
      6923                            *          RE-DEFINABLE (1). AN ERROR IS REPORTED IF THE LABEL FIELD IS
      6924                            *          BLANK AND THE DIRECTIVE IS ON THE SOURCE LEVEL. THE EVALUATED
      6925                            *          OPERAND, IN THE EXPRESSION VALUE TABLE, IS SET RE-DEFINABLE
      6926                            *          OR NOT ACCORDING TO THE CONTENTS OF SETVALUE. IF THE
      6927                            *          EXPRESSION IS EXTERNAL, THE CS FIELD IS SET TO NOW-ZERO. THE
      6928                            *          LABEL IS THEN DEFINED AND THE VALUE IS EDITED INTO THE
      6929                            *          LISTING. SET THEN RETURNS TO GENR.
      6930                            *
      6931                            *        INPUT:   SETVALUE CONTAINS A ONE IF THE LABEL IS RE-DEFINEABLE
      6932                            *                   (FOR SET) OR A ZERO IF IT IS NOT (FOR EQU).
      6933                            *
      6934                            *        USES REGISTERS
      6935                            *                 XT
      6936                            *                 XT1
      6937                            *                 XT2
      6938                            *                 RL
      6939                            *                 ER
      6940                            *
      6941   02 00FC9                 SET      RES      0
      6942   02 00FC9    324011F6              LV,XT    1**(31-SETLOB)    SET TO RE-DEFINABLE
      6943                            *   HERE FROM EQU OR SET.
      6944   02 00FCA                 SET1     RES      0
      6945   02 00FCA    35400062 04           STW,XT   SETVALUE
      6946                            *
      6947                            *        IF PRESENT, EVALUATE CF(2) FOR POSSIBLE 'SD' TYPE CODE.
      6948                            *        USE DEFAULT TYPE, HEX, IF NO CF(2).  DON'T MAKE THIS EVALUATION
      6949                            *        CONDITIONAL ON EITHER PASS-NO. OR SD-OPTION (POSSIBLE FUNCTION
      6950                            *        SIDE-EFFECTS).
      6951                            *
      6952   02 00FCB    22400030 A            LV,XT    SDHEXC            DEFAULT CODE IS HEX
      6953   02 00FCC    3300004B 04           MTW,0    CMNDLIST
      6954         001F0000                    IF,NE                 -10- DOIF CF(2) PRESENT
             02 00FCD    68300FD1
      6955   02 00FCE    6A70049E              CALL     EVAL1EXP
      6956   02 00FCF    32400046 04           LW,XT    TEMP
      6957   02 00FD0    25400003 A            SHIFT,XT 31,SDTLOB
      6958         00F10000                    FI                    -10-
      6959   02 00FD1    354000AF 04           STW,XT   SD%TYPE           SAVE FOR 'DEFINE'
      6960   02 00FD2    6A700787              BAL,RL   MV:LIST           MOVE A DUMMY LIST TO ECT AND EVT
      6961   02 00FD3    6A70094A              CALL     EV%CLN%OPRND      EVALUATE THE OPERAND FIELD
      6962   02 00FD4    33F00097 04           MTW,-1   LSTCT             BRANCH IF MORE THAN ONE
      6963   02 00FD5    69200FDA              BGZ      SET2                ITEM IN OPERAND FIELD
      6964   02 00FD6    325011ED              LV,XT1   ETFLD             MASK FOR ET FIELD
      6965   02 00FD7    32420000 A            LW,XT    0,XS
      6966   02 00FD8    454011EE              CS,XT    =LISTET           BRANCH IF ECT ENTRY
      6967   02 00FD9    69300FDC              BNE      SET4                IS NOT A LIST
      6968   02 00FDA                 SET2     RES      0
      6969   02 00FDA    6A70014A              BAL,RL   CTELEMENTS        COMPLETE THE LIST STRUCTURE
      6970   02 00FDB    20100001 A            AI,XS    1                 ADDRESS OF LIST ENTRY IN ECT
      6971   02 00FDC                 SET4     RES      0
      6972   02 00FDC    32620000 A            LW,XT2   0,XS              GET INDEX TO EXPRESSION VALUE TABLE
      6973   02 00FDD    325011F6              LV,XT1   SETFLD            MASK FOR SET FIELD
      6974   02 00FDE    32400062 04           LW,XT    SETVALUE          MAKE ITEM RE-DEFINABLE IF PROCESSING
      6975   02 00FDF    C74C0035 03           STS,XT   *KLINE,XT2          SET, NOT RE-DEFINABLE FOR EQU
      6976   02 00FE0    B24C0035 03           LW,XT    *KLINE,XT2        GET VALUE CONTROL WORD FROM EVT
      6977   02 00FE1    4B4011EB              AND,XT   =DEFFLD
      6978   02 00FE2    314000A5 04           CW,XT    PASSDEF
      6979   02 00FE3    68300FE5              BE       SET3              ITEM IS DEFINED FOR CURRENT PASS
      6980   02 00FE4    6AF00000 X            BAL,ER   EERR              ILLEGAL OPERAND
      6981   02 00FE5                 SET3     RES      0
      6982   02 00FE5    6A700000 X            BAL,RL   EDITV             EDIT VALUE INTO THE LISTING
      6983   02 00FE6    6A7001DF              BAL,RL   DEFINE            ASSIGN EXPRESSION VALUE TO LABEL
      6984   02 00FE7    68000643              B        GENR
1
      6986                            *
      6987                            *   S E T % S F
      6988                            *
      6989   02 00FE8                 SET%SF   RES      0
      6990   02 00FE8    32400021 03           LW,XT    PROCREF
      6991   02 00FE9    693E0000 A            EXIT,NE  RL               EXIT IF NOT ON SOURCE LEVEL
      6992                            * SET SF IF THIS IS AS FAR AS WE'VE GONE ON THE ENCODED TEXT FILE
      6993   02 00FEA    3240002E 03           LW,XT    TEXTCT
      6994   02 00FEB    31400026 03           CW,XT    SMPRCD
      6995   02 00FEC    693E0000 A            EXIT,NE  RL
      6996   02 00FED    31200027 03           CW,XW    SMPWD
      6997   02 00FEE    693E0000 A            EXIT,NE  RL
      6998   02 00FEF    33100024 03           MTW,1    SF               SET SF TO RESUME LISTING
      6999   02 00FF0    680E0000 A            EXIT     RL
1
      7001                            *
      7002                            *   S E T D L R S
      7003                            *        SETS CONTROL SECTION AND RESOLUTION, AND CLEARS THE OFFSETS
      7004                            *          FOR BOTH LOCATION COUNTERS.
      7005                            *
      7006                            *        OUTPUT:  RESOLUTION FOR % AND %% IS SET TO 'WORD'
      7007                            *                 OFFSETS FOR % AND %% ARE SET TO ZERO
      7008                            *                 DLRCS IS STORED IN DDLRCS.
      7009                            *
      7010                            *        CALL:    BAL,RL  SETDLRS
      7011                            *
      7012                            *        USES REGISTER
      7013                            *                 XT
      7014                            *
      7015   02 00FF1                 SETDLRS  RES      0
      7016   02 00FF1    3240000A 03           LW,XT    DLRCS             SET LOAD LOCATION COUNTER (%%) TO
      7017   02 00FF2    3540000B 03           STW,XT   DDLRCS              SAME CONTROL SECTION AS %
      7018   02 00FF3    22400000 A            LI,XT    0
      7019   02 00FF4    3540000E 03           STW,XT   DLRVAL            INITIALIZE BOTH OFFSETS TO ZERO
      7020   02 00FF5    3540000F 03           STW,XT   DDLRVAL
      7021   02 00FF6    22400002 A            LI,XT    WDRS
      7022   02 00FF7    3540000C 03           STW,XT   DLRRS             INITIALIZE BOTH RESOLUTIONS TO
      7023   02 00FF8    3540000D 03           STW,XT   DDLRRS              WORD RESOLUTION.
      7024   02 00FF9    680E0000 A            EXIT     RL
1
      7026                            *
      7027                            *   S E T L A B E L
      7028                            *        THIS ROUTINE CAUSES A REDEFINABLE SPECIAL INTEGER DEFINITION
      7029                            *          TO BE ENTERED INTO THE SYMBOL TABLE. A SPECIAL INTEGER IS
      7030                            *          CREATED WITH THE SET FIELD CONTAINING A ONE, AND THE VAL
      7031                            *          FIELD CONTAINING THE VALUE IN XT. DEFINE IS THEN CALLED TO
      7032                            *          DEFINE THE VALUE.
      7033                            *
      7034                            *        INPUT:   XT CONTAINS THE VALUE TO BE ASSIGNED TO THE LABEL.
      7035                            *                 LBL ENTRY OF THE CURRENT PROCEDURE LEVEL TABLE
      7036                            *                 CONTAINS AN INDEX TO THE ENCODED LABEL.
      7037                            *
      7038                            *        OUTPUT:  FND CONTAINS THE ADDRESS OF THE LABEL ENTRY IN THE
      7039                            *                   SYMBOL TABLE.
      7040                            *
      7041                            *        CALL:    BAL,RL  SETLABEL
      7042                            *
      7043                            *        USES REGISTERS
      7044                            *                 XT
      7045   02 00FFA                 SETLABEL RES      0
      7046   02 00FFA    30401241              AV,XT    1**(31-SPALOB)+1**(31-SPINTLOB)+1**(31-SETLOB)
      7047   02 00FFB    304000A5 04           AW,XT    PASSDEF           DEFINE IT FOR CURRENT PASS
      7048   02 00FFC    35400062 04           STW,XT   SETVALUE          REDEFINABLE SPEC. INTEGER
      7049   02 00FFD    22400062 04           LI,XT    SETVALUE
      7050   02 00FFE    35400066 04           STW,XT   ARG               ADDRESS OF ARGUMENT
      7051   02 00FFF    22400030 A            LV,XT    SDHEXC            SET SD TYPE TO HEX
      7052   02 01000    354000AF 04           STW,XT   SD%TYPE
      7053   02 01001    680001DF              B        DEFINE            DEFINE LABEL AND EXIT SETLABEL
1
      7055                            *
      7056                            *   S I N O P
      7057                            *        THIS ROUTINE EXTRACTS THE OP CODE FROM THE COMMAND DEFINITION
      7058                            *          AND MOVES IT TO THE EXPRESSION STACKS
      7059                            *
      7060                            *        INPUT:   REFADD CONTAINS THE ADDRESS OF THE COMMAND DEFINITION.
      7061                            *
      7062                            *        OUTPUT:  THE OP CODE FROM THE COMMAND DEFINITION HAS BEEN
      7063                            *                   MOVED TO THE EXPRESSION TABLES.
      7064                            *
      7065                            *        CALL:    BAL,RL  SINOP
      7066                            *
      7067                            *        USES REGISTERS
      7068                            *                 XT
      7069                            *                 XT1
      7070                            *
      7071   02 01002                 SINOP    RES      0
      7072   02 01002    324000A9 04           LW,XT    REFADD            ADDRESS OF COMMAND ENTRY
      7073   02 01003    20400001 A            AI,XT    1                 ADDRESS OF OP CODE VALUE
      7074   02 01004    325011FC              LV,XT1   SPINTET
      7075   02 01005    35500060 04           STW,XT1 DD%TYPE            SET TYPE TO SPECIAL INTEGER
      7076   02 01006    22500001 A            LI,XT1   1
      7077   02 01007    68000EA3              B        SCPUSH            PUSH OP CODE VALUE TO TOP OF
      7078                            *                                     EXPRESSION STACKS AND EXIT
1
      7080                            *
      7081                            *   S I N S U B
      7082                            *        THIS ROUTINE PROCESSES THE OP CODE AND REGISTER FIELDS OF THE
      7083                            *          SIN0 AND SIN2 TYPE OF STANDARD INSTRUCTIONS. SINOP IS CALLED
      7084                            *          TO MOVE THE OP CODE VALUE FROM THE COMMAND DEFINITION TO THE
      7085                            *          EXPRESSION TABLES. IF A REGISTER FIELD EXISTS, EVAL1EXP IS
      7086                            *          CALLED TO PROCESS IT; OTHERWISE, AN ERROR IS REPORTED AND A
      7087                            *          ZERO IS USED AS THE REGISTER VALUE. FINALLY, THE INDEX TO
      7088                            *          THE ENCODED TEXT FOR THE OPERAND FIELD IS SAVE IN THE CURRENT
      7089                            *          PROCEDURE LEVEL TABLE.
      7090                            *
      7091                            *        INPUT:   CMNDLIST CONTAINS A ZERO IF NO REGISTER FIELD EXISTS,
      7092                            *                   OR A NON-ZERO IS IT DOES.
      7093                            *
      7094                            *        OUTPUT:  XW CONTAINS THE INDEX TO THE ENCODED TEXT FOR THE
      7095                            *                   OPERAND FIELD
      7096                            *        CALL:    BAL,RL  SINSUB
      7097                            *
      7098                            *        USES REGISTER
      7099                            *                 RL
      7100                            *                 XT
      7101                            *                 XW
      7102                            *                 LVL
      7103                            *                 ER
      7104                            *
      7105   02 01008                 SINSUB   RES      0
      7106   02 01008    3570004F 04           STW,RL   SINSUBXIT
      7107   02 01009    6A701002              BAL,RL   SINOP             OP CODE VALUE TO EXPRESSION STACK
      7108   02 0100A    3300004B 04           MTW,0    CMNDLIST
      7109   02 0100B    68301013              BEZ      SINSUB1           NO CF(2) ENTRY
      7110   02 0100C    6A70094B              BAL,RL   EVALUATE%AND%CLEAN   EVALUATE THE REGISTER FIELD
      7111   02 0100D    32400097 04           LW,XT    LSTCT             NUMBER OF COMMAND EXPRESSIONS
      7112   02 0100E    204FFFFF A            AI,XT    -1
      7113   02 0100F    E820004F 04           BLEZ     *SINSUBXIT        ONLY ONE ENTRY IS OK
      7114   02 01010    66460002 A            AWM,XT   ECT,LVL           RETAIN CF(2) ENTRY ONLY
      7115   02 01011                 SINSUB2  RES      0
      7116   02 01011    6AF00000 X            BAL,ER   EERR              ANYTHING ELSE IS ERROR
      7117   02 01012    E800004F 04           B        *SINSUBXIT
      7118   02 01013                 SINSUB1  RES      0
      7119   02 01013    22400000 A            LI,XT    0                 BUILD SPECIAL INTEGER ZERO AND MOVE
      7120   02 01014    6A70110D              BAL,RL   STACKSPI            IT TO EXPRESSION STACKS
      7121   02 01015    68001011              B        SINSUB2           REPORT REGISTER FIELD ERROR
1
      7123                            *
      7124                            *   S I N 0
      7125                            *        THIS ROUTINE PROCESSES THE 'LOAD/STORE' INSTRUCTIONS OF THE
      7126                            *          STANDARD INSTRUCTION SET. FIRST, SINAFA IS CALLED TO PROCESS
      7127                            *          A POSSIBLE INDIRECT FLAG IN THE ADDRESS FIELD. THEN SINSUB
      7128                            *          IS CALLED TO OBTAIN  THE OP CODE, AND TO PROCESS THE REGISTER
      7129                            *          FIELD. NEXT THE INPUT ARGUMENTS FOR GENERATE ARE SET UP.
      7130                            *          AT SIN01 (AN ENTRY POINT BRANCHED TO FROM THE SIN1 ROUTINE),
      7131                            *          THE ITEM FOLLOWING THE ADDRESS FIELD IS EXAMINED. IF AN ENTRY
      7132                            *          EXISTS, SCAN1 IS CALLED TO PROCESS IT AS THE INDEX FIELD;
      7133                            *          OTHERWISE IS ZERO INDEX VALUE IS BUILT. NEXT SCAN1 IS CALLED
      7134                            *          TO PROCESS THE ADDRESS FIELD WHICH IS CONVERTED TO WORD
      7135                            *          RESOLUTION BY CALLING SCRS. IF ANY OPERANDS FOLLOW THE INDEX
      7136                            *          FIELD, AN ERROR IS REPORTED. FINALLY GENERATE IS CALLED TO
      7137                            *          PRODUCE THE OBJECT CODE FOR THE STANDARD INSTRUCTION AND THIS
      7138                            *          ROUTINE BRANCHES TO GENR.
      7139                            *
      7140                            *        INPUT:   XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM
      7141                            *                   FOLLOWING THE CF(1) FIELD.
      7142                            *
      7143                            *        OUTPUT:  XW CONTAINS AN INDEX TO THE BEGINNING OF THE ENCODED
      7144                            *                   TEXT FOR THE LINE FOLLOWING THE STANDARD INSTRUCTION
      7145                            *                   REFERENCE
      7146                            *
      7147   02 01016                 SINBASE  RES      0                 BASE ADDRESS FOR SIN0, SIN1, AND
      7148                            *                                     SIN2 ROUTINES
      7149   02 01016                 SIN0     RES      0
      7150   02 01016    6A70110D              BAL,RL   STACKSPI          INITIALIZE AFA(1) TO ZERO
      7151   02 01017    6A701008              BAL,RL   SINSUB            PROCESS OP AND REGISTER
      7152   02 01018    22400005 A            LI,XT    SIN0FLDCT
      7153   02 01019    2270103D              LI,RL    SIN0FLDS+SIN0FLDCT-1  POINTER TO FIELD LIST
      7154   02 0101A                 SIN01    RES      0
      7155   02 0101A    35400063 04           STW,XT   VALCNT            SET NUMBER OF VALUE ITEMS AND
      7156   02 0101B    35400051 04           STW,XT   FLDCNT              FIELD ITEMS FOR GENERATE
      7157   02 0101C    35700052 04          STW,RL   FLDPTR            POINTER TO FIELD LIST
      7158   02 0101D    22400000 A            LI,XT    0
      7159   02 0101E    6A70110D              BAL,RL   STACKSPI          INITIALIZE INDEX TO ZERO
      7160   02 0101F    6A70094A              CALL     SCANOPRND         EVALUATE THE OPERAND FIELD
      7161   02 01020    32420000 A            LW,XT    0,XS              BRANCH IF FIRST OPERAND ENTRY IS
      7162   02 01021    314011FB              BFZ,XT   ASTFLD,SIN02        NOT PRECEEDED BY *
             02 01022    68401025
      7163   02 01023    B2500064 04           LW,XT1   *VALPTR
      7164   02 01024    B31A0035 03           MTW,1    *KLINE,XT1        SET AFA(1) TO ONE
      7165   02 01025                 SIN02    RES      0
      7166   02 01025    32500097 04           LW,XT1   LSTCT             NUMBER OF OPERAND FIELD ENTRIES
      7167   02 01026    69301028              BNEZ     %+2               NO ADDRESS OR INDEX
      7168   02 01027    6AF00000 X            BAL,ER   EERR                IS AN ERROR
      7169   02 01028    21500002 A            CI,XT1   2
      7170   02 01029    69101034              BL       SIN04             BRANCH IF 0 OR 1 OPERAND
      7171   02 0102A    6830102C              BE       SIN03             BRANCH IF 2 OPERANDS
      7172   02 0102B    6AF00000 X            BAL,ER   EERR              TOO MANY OPERANDS
      7173   02 0102C                 SIN03    RES      0
      7174   02 0102C    66560002 A            AWM,XT1  ECT,LVL           DELETE OPERAND ENTRIES FROM ECT
      7175   02 0102D    3253FFFF A            LW,XT1   -1,XS             MOVE ECT ENTRY FOR SECOND OPERAND
      7176   02 0102E    35520001 A            STW,XT1  1,XS                INTO INDEX POSITION
      7177   02 0102F    30400035 03           AW,XT    KLINE             ADDRESS OF EVT ENTRY FOR AF(1)
      7178   02 01030    325011ED              LV,XT1   ETFLD             MASK FOR ET FIELD
      7179   02 01031    47400060 04           STS,XT   DD%TYPE           TYPE OF FIRST OPERAND
      7180   02 01032    6A70060D              BAL,RL   LENGTH            GET LENGTH OF AF(1)
      7181   02 01033    6A700EA3              BAL,RL   SCPUSH            STORE AF(1) AS LAST EXP ENTRY
      7182   02 01034                 SIN04    RES      0
      7183   02 01034    22400002 A            LV,XT    WDRS
      7184   02 01035    35400070 04           STW,XT   DDRS              SET TO WORD RESOLUTION
      7185   02 01036    6A700B9A              BAL,RL   SCRS              CONVERT ADDRESS TO WORD RESOLUTION
      7186   02 01037    6A700000 X            BAL,RL   GENERATE1         GENERATE OBJECT CODE
      7187   02 01038    68000643              B        GENR
      7188                            *
      7189   02 01039                 SIN0FLDS RES      0
      7190   02 01039    48001061              SPIECT   SINADDR           ADDRESS OF ADDRESS FIELD SIZE
      7191   02 0103A    48001060              SPIECT   SININDEX          ADDRESS OF INDEX FIELD SIZE
      7192   02 0103B    4900105F              SPIECT,1 SINREG            ADDRESS OF REGISTER FIELD SIZE
      7193   02 0103C    4800105E              SPIECT   SINOPCODE         ADDRESS OF OP CODE FIELD SIZE
      7194   02 0103D    4800105D              SPIECT   SINAST            ADDRESS OF ASTERISK FIELD SIZE
      7195         00000005           SIN0FLDCT EQU     %-SIN0FLDS        NUMBER OF FIELD SIZES FOR SIN0
1
      7197                            *
      7198                            *   S I N 1
      7199                            *        THIS ROUTINE PROCESSES THE 'BRANCH' INSTRUCTIONS OF THE
      7200                            *          STANDARD INSTRUCTION SET. FIRST, SINAFA IS CALLED TO PROCESS
      7201                            *          A POSSIBLE INDIRECT FLAG IN THE AF(1) FIELD. THEN SINOP IS
      7202                            *          CALLED TO MOVE THE OP CODE FROM THE COMMAND DEFINITION TO
      7203                            *          THE EXPRESSION VALUE TABLE. THEN THE INPUT ARGUMENTS FOR
      7204                            *          GENERATE ARE SET UP AND THIS ROUTINE BRANCHES TO SIN01 TO
      7205                            *          PROCESS THE INDEX AND ADDRESS FIELDS.
      7206                            *
      7207                            *        INPUTI   XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM
      7208                            *                   FOLLOWING THE CF(1) ENTRY.
      7209                            *
      7210                            *        OUTPUT:  EVT CONTAINS VALUES FOR THE INDIRECT AND OP CODE
      7211                            *                   FIELDS.
      7212                            *                 VALPTR CONTAINS THE ADDRESS IN EVT CORRESPONDING TO
      7213                            *                   THE INDIRECT FLAG VALUE
      7214                            *                 FLDPTR CONTAINS THE ADDRESS OF THE ORIGIN OF A LIST
      7215                            *                   OF FIELD SIZES FOR THE INDIRECT, OP CODE, INDEX,
      7216                            *                   AND ADDRESS FIELDS.
      7217                            *                 VALCNT AND FLDCNT EACH CONTAIN A FOUR.
      7218                            *
      7219                            *        USES REGISTERS
      7220                            *                 XT
      7221                            *                 RL
      7222                            *
      7223   02 0103E                 SIN1     RES      0
      7224   02 0103E    3300004B 04           MTW,0    CMNDLIST
      7225   02 0103F    68301041              BEZ      %+2               NO EXPRESSIONS IN THE COMMAND FIELD
      7226   02 01040    6AF00000 X            BAL,ER   EERR              TOO MANY COMMAND FIELD ENTRIES
      7227   02 01041    22400000 A            LI,XT    0
      7228   02 01042    6A70110D              BAL,RL   STACKSPI          INITIALIZE AFA(1) TO ZERO
      7229   02 01043    6A701002              BAL,RL   SINOP             PROCESS OP
      7230   02 01044    22400004 A            LI,XT    SIN1FLDCT
      7231   02 01045    2270104A              LI,RL    SIN1FLDS+SIN1FLDCT-1   POINTER TO FIELD LIST
      7232   02 01046    6800101A              B        SIN01
      7233                            *
      7234   02 01047                 SIN1FLDS RES      0
      7235   02 01047    48001061              SPIECT   SINADDR           ADDRESS OF ADDRESS FIELD SIZE
      7236   02 01048    48001060              SPIECT   SININDEX          ADDRESS OF INDEX FIELD SIZE
      7237   02 01049    48001062              SPIECT   SINBROP           ADDRESS OF BRANCH OP CODE FIELD SIZE
      7238   02 0104A    4800105D              SPIECT   SINAST            ADDRESS OF ASTERISK FIELD SIZE
      7239         00000004           SIN1FLDCT EQU     %-SIN1FLDS        NUMBER OF FIELD SIZES FOR SIN1
1
      7241                            *
      7242                            *   S I N 2
      7243                            *        THIS ROUTINE PROCESSES THE 'IMMEDIATE' INSTRUCTIONS OF THE
      7244                            *          STANDARD INSTRUCTION SET. FIRST IT CALLS SINSUB  TO OBTAIN
      7245                            *          THE OP CODE, AND TO PROCESS THE REGISTER FIELD. THEN SCAN1
      7246                            *          IS CALLED TO EVALUATE THE ADDRESS. IF ANY MORE OPERANDS
      7247                            *          FOLLOW THE ADDRESS AN ERROR IS REPORTED. FINALLY, THE INPUT
      7248                            *          ARGUMENTS FOR GENERATE ARE SET UP BY BRANCHING TO SIN04.
      7249                            *
      7250                            *        INPUT:   XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM
      7251                            *                   FOLLOWING THE CF(1) ENTRY.
      7252                            *
      7253                            *        OUTPUT:  EVT CONTAINS VALUES FOR THE OP CODE, REGISTER, AND
      7254                            *                   ADDRESS FIELDS.
      7255                            *                 VALPTR CONTAINS THE ADDRESS OF THE ENTRY IN EVT
      7256                            *                   CORRESPONDING TO THE OP CODE
      7257                            *                 FLDPTR CONTAINS THE ADDRESS OF THE ORIGIN OF A LIST
      7258                            *                   OF FIELD SIZES FOR THE OP CODE, REGISTER, AND
      7259                            *                   ADDRESS FIELDS.
      7260                            *                 VALCNT AND FLDCNT EACH CONTAIN A THREE.
      7261                            *
      7262                            *        USES REGISTERS
      7263                            *                 XT
      7264                            *                 RL
      7265                            *                 ER
      7266                            *
      7267   02 0104B                 SIN2     RES      0
      7268   02 0104B    6A701008              BAL,RL   SINSUB            PROCESS OP AND REGISTER
      7269   02 0104C    6A70094B              BAL,RL   SCAN              EVALUATE ADDRESS FIELD        /10771/B-08773
      7270   02 0104D    32420000 A            LW,XT    0,XS
      7271   02 0104E    314011FB              BFNZ,XT  ASTFLD,SIN20      BRANCH IF AF(1) IS PRECEEDED BY AN *
             02 0104F    69401052
      7272   02 01050    33F00097 04           MTW,-1   LSTCT                                           /10771/B-08773
      7273   02 01051    68301053              BEZ      SIN21             BRANCH IF ONE OPERAND         /10771/B-08773
      7274   02 01052                 SIN20    RES      0
      7275   02 01052    6AF00000 X            BAL,ER   EERR              SET 'E' FOR NOT ONE OPERAND   /10771/B-08773
      7276   02 01053                 SIN21    RES      0
      7277   02 01053    2240105C              LI,XT    SIN2FLDS+SIN2FLDCT-1   POINTER TO FIELD LIST
      7278   02 01054    35400052 04           STW,XT   FLDPTR            POINTER TO FIELD LIST
      7279   02 01055    22400003 A            LI,XT    SIN2FLDCT
      7280   02 01056    35400063 04           STW,XT   VALCNT            SET NUMBER OF VALUE ITEMS AND NUMBER
      7281   02 01057    35400051 04           STW,XT   FLDCNT              OF FIELD ITEMS FOR GENERATE
      7282   02 01058    6A700000 X            BAL,RL   GENERATE1         GENERATE OBJECT CODE
      7283   02 01059    68000643              B        GENR
      7284                            *
      7285   02 0105A                 SIN2FLDS RES      0
      7286   02 0105A    49001064              SPIECT,1 SINIMVAL          ADDRESS OF IMMEDIATE VALUE FLD SIZE
      7287   02 0105B    4900105F              SPIECT,1 SINREG            ADDRESS OF REGISTER FIELD SIZE
      7288   02 0105C    48001063              SPIECT   SINIMOP           ADDRESS OF IMMEDIATE OP CODE FLD SIZ
      7289         00000003           SIN2FLDCT EQU     %-SIN2FLDS        NUMBER OF FIELD SIZES FOR SIN2
      7290                            *
      7291                            *   FIELD SIZES FOR STANDARD INSTRUCTION FIELDS
      7292                            *
      7293   02 0105D    CC000001 A   SINAST   SPECINT  1                 ASTERISK FIELD SIZE
      7294   02 0105E    CC000007 A   SINOPCODE SPECINT 7                 OP CODE FIELD SIZE
      7295   02 0105F    CC000004 A   SINREG   SPECINT  4                 REGISTER FIELD SIZE
      7296   02 01060    CC000003 A   SININDEX SPECINT  3                 INDEX FIELD SIZE
      7297   02 01061    CC000011 A   SINADDR  SPECINT  17                ADDRESS FIELD SIZE
      7298   02 01062    CC00000B A   SINBROP  SPECINT  11                BRANCH OP CODE FIELD SIZE
      7299   02 01063    CC000008 A   SINIMOP  SPECINT  8                 IMMEDIATE OP CODE FIELD SIZE
      7300   02 01064    CC000014 A   SINIMVAL SPECINT  20                IMMEDIATE VALUE FIELD SIZE
1
      7302                            *
      7303                            *  S K I P G E T L F 1
      7304                            *        GET THE LF(1) ENCODED ENTRY WHILE SKIPPING LINES
      7305                            *        THE CURRENT LINE IS EITHER ON THE SOURCE LEVEL OR IN
      7306                            *          SAMPLE STORAGE; NOT IN THE PARTICULARIZATION BUFFER.
      7307                            *        THE LOCATION OF THE PARTIC. FLAG IS SAVED IN CASE THIS
      7308                            *          LINE WILL BE ASSEMBLED (GOTO DIRECTIVE ONLY).
      7309                            *
      7310                                     LOCAL    %1,%2,%3
      7311   02 01065                 SKIPGETLF1  RES   0
      7312   02 01065    357000B0 04           STW,RL   SKGLF1XIT         SAVE EXIT
      7313   02 01066    32400021 03           LW,XT    PROCREF           IS THE LINE ON SOURCE LEVEL
      7314   02 01067    69300000 F            BNEZ     %1
      7315   02 01068    6A700000 X            BAL,RL   PRINTC            PRINT IF THERE IS A SOURCE LINE
      7316   02 01069    32400024 03           LW,XT    SF                RESET SOURCE FLAG
      7317   02 0106A    354000B1 04           STW,XT   SOURCE
      7318   02 0106B    3240002C 03           LW,XT    SYSCOUNT
      7319   02 0106C    7540001D 03           STB,XT   NOLIST            TURN OFF PRINTING IF WITHIN A SYSTEM
      7320   02 0106D    33100025 03           MTW,1    SKIPTRIG          SET SKIP TRIGGER
      7321   02 0106E    6A700680              BAL,RL   LINENUM           GET LINE NUMBER
      7322   02 0106F    35260003 A            STW,XW   LBL,LVL           SAVE XW
      7323   02 01070    68000000 F            B        %3
      7324   02 01071                 %1       RES      0
      7325   02 01071    35260003 A            STW,XW   LBL,LVL           SAVE XW
      7326   02 01072    20200001 A            AI,XW    1                 SKIP PARTICULARIZATION FLAG
      7327   02 01073                 %3       RES      0
      7328   02 01073    D24400BA 04           NXTENC                     GET LF(1) ENTRY
             02 01074    20200001 A
      7329   02 01075    E80000B0 04           B        *SKGLF1XIT
1
      7331                            *
      7332                            *  S K I P I N I T
      7333                            *        INITIALIZE COUNTERS AND FLAGS IN PREPARATION FOR SKIPPING
      7334                            *          LINES UNDER A DO OR GOTO DIRECTIVE.
      7335                            *
      7336   02 01076                 SKIPINIT RES      0
      7337   02 01076    22400000 A            LI,XT    0
      7338   02 01077    35400010 03           STW,XT   DOCOUNT           DO/FIN PAIR COUNTER
      7339   02 01078    3540001F 03           STW,XT   PROCCOUNT         PROC/PEND PAIR COUNTER
      7340   02 01079    3540002C 03           STW,XT   SYSCOUNT          SYTEM/END PAIR COUNTER
      7341   02 0107A    35400017 03           STW,XT   LOCALFLG
      7342   02 0107B    35460008 A            STW,XT   SAMP,LVL
      7343   02 0107C    680E0000 A            EXIT     RL
1
      7345                            *
      7346                            *   S K I P    L A B E L
      7347                            *        SKIPS A NON-STANDARD LABEL FIELD
      7348                            *   S K I P    C M N D
      7349                            *        SKIPS A COMMAND FIELD
      7350                            *
      7351                            *        ENCODED TEXT ITEMS ARE SKIPPED UNTIL AN END-OF-LIST ITEM
      7352                            *          IS ENCOUNTERED.
      7353                            *
      7354                            *        INPUT:   XW CONTAINS THE ADDRESS OF THE NEXT ENCODED TEXT
      7355                            *          ITEM.
      7356                            *
      7357                            *        OUTPUT:  XW CONTAINS THE ADDRESS OF THE NEXT ENCODED ITEM
      7358                            *                   FOLLOWING AN ENDLIST ITEM.
      7359                            *
      7360                            *        CALL:    BAL,RL  SKIPLABEL
      7361                            *                 BAL,RL  SKIPCMND
      7362                            *        USES REGISTERS
      7363                            *                 XT
      7364                            *                 XT1
      7365                            *                 XW
      7366                            *                 RL
      7367                            *
      7368   02 0107D                 SKIPLABEL RES     0
      7369   02 0107D                 SKIPCMND  RES     0
      7370   02 0107D    22500001 A            LI,XT1   1                 NUMBER OF BEGINLIST ITEMS
      7371   02 0107E                 SKPCMND1 RES      0
      7372   02 0107E    D24400BA 04           NXTENC                     GET NEXT ENCODED ITEM
             02 0107F    20200001 A
      7373   02 01080    21400002 A            CI,XT    ENDLIST
      7374   02 01081    69301084              BNE      SKPCMND2          NOT AN END-OF-LIST ITEM
      7375   02 01082    6450107E              BDR,XT1  SKPCMND1          DECREMENT NUMBER OF BEGINLIST ITEMS
      7376   02 01083    680E0000 A            EXIT     RL                EXIT,  'FINAL' END-OF-LIST
      7377   02 01084                 SKPCMND2 RES      0
      7378   02 01084    21400006 A            CI,XT    BEGINLIST
      7379   02 01085    69301087              BNE      SKPCMND3          NOT A BEGINLIST ITEM
      7380   02 01086    20500001 A            AI,XT1   1                 INCREMENT NUMBER OF BEGINLIST ITEMS
      7381   02 01087                 SKPCMND3 RES      0
      7382   02 01087    20402000 A            AI,XT    ENCTYPE1          ADD 1 TO ENCODED TYPE FIELD
      7383   02 01088    6880107E              BCR,8    SKPCMND1          TYPE IS NOT A LARGE INTEGER
      7384   02 01089    4B4011F0              AND,XT   =LFLD             MASK FOR LENGTH FIELD
      7385   02 0108A    30200004 A            AW,XW    XT                ADVANCE XW PAST LARGE INTEGER
      7386   02 0108B    6800107E              B        SKPCMND1
1
      7388                            *
      7389                            *   S O C W
      7390                            *        THIS ROUTINE PROCESSES THE SOCW DIRECTIVE.
      7391                            *
      7392                                     LOCAL    %10,%20
      7393                            *
      7394   02 0108C                 SOCW     RES      0
      7395   02 0108C    33000006 03           MTW,0    PASS
      7396         001F0000                    IF,EZ                      DOIF PASS 1
             02 0108D    69301098
      7397                            *
      7398                            *   IF THERE WAS A PREVIOUS SOCW DIRECTIVE, OR IF THERE WAS A PRIOR
      7399                            *        DIRECTIVE WHICH INHIBITS SOCW (REF, CSECT, ETC.), JUST IGNORE
      7400                            *        THIS CALL ON SOCW (PASS 1).
      7401                            *
      7402   02 0108E    32400007 03           LW,XT    SOCW%FLG
      7403   02 0108F    49400008 03           OR,XT    SOCW2LAT
      7404   02 01090    69300642              BNEZ     LINE5             CANNOT ACCEPT
      7405                            *
      7406                            *        NOTE OCCURRENCE OF SOCW, CHANGE BINARY PARAMETERS TO USE
      7407                            *        ENTIRE RECORD, AND TREAT AS ASECT DIRECTIVE.
      7408                            *
      7409   02 01091    33100007 03           MTW,+1   SOCW%FLG          NOTE SOCW
      7410   02 01092    55400000 X            STH,XT   BO%FLAG           CLEAR 'SB' FIELD
      7411   02 01093    35400030 03           STW,XT   BOCT              0 STARTS AT BEGINNING OF CARD
      7412   02 01094    22400078 A            LI,XT    120
      7413   02 01095    35400000 X            STW,XT   BO%SIZE
      7414   02 01096    35400031 03           STW,XT   BOMAX             MAX # ACTIVE BYTES / BINARY RECORD
      7415         000E0000                    ELS                        IS PASS 2
             02 01097    680010A6
      7416                            *
      7417                            *   IF PASS 1 DID NOT ACCEPT SOCW, OR IF THIS IS NOT FIRST SOCW
      7418                            *        DIRECTIVE IN THIS PASS, DIAGNOSE AND IGNORE.
      7419                            *
      7420   02 01098    33000007 03           MTW,0    SOCW%FLG
      7421         001F0100                    IF,EZ
             02 01099    6930109C
      7422   02 0109A                 %10      RES      0
      7423   02 0109A    6AF00000 X            BAL,ER   IERR
      7424   02 0109B    68000642              B        LINE5             SKIP
      7425                            *
      7426         00F10100                    FI
      7427   02 0109C    33000008 03           MTW,0    SOCW2LAT
      7428   02 0109D    6930109A              BNEZ     %10               DIAGNOSE & IGNORE
      7429                            *
      7430   02 0109E    33100008 03           MTW,+1   SOCW2LAT          SET FOR NO MORE THIS PASS
      7431                            *
      7432                            *        IF DATA HAS BEEN GENERATED, DIAGNOSE, BUT CONTINUE ON.
      7433                            *        THIS CONDITION WAS NOT DETECTED DURING PASS 1.
      7434                            *
      7435   02 0109F    22400001 A            LI,XT    1
      7436   02 010A0    72580020 04           LB,XT1   BOBUF,XT          BINARY SEQUENCE NUMBER
      7437   02 010A1    215000FF A            CI,XT1   X'FF'
      7438   02 010A2    69300000 F            BNE      %20               (ALWAYS ONE LESS THAN ACTUAL)
      7439                            *
      7440   02 010A3    33000030 03           MTW,0    BOCT
      7441         001F0100                    IF,NZ                      (PASS 1 SET THIS ONE UP)
             02 010A4    683010A6
      7442   02 010A5                 %20      RES      0
      7443   02 010A5    6AF00000 X            BAL,ER   IERR
      7444         00F10100                    FI
      7445         00F10000                    FI
      7446                            *
      7447                            *   (BOTH PASSES)  TREAT AS ASECT DIRECTIVE, EXCEPT FOR DEFINING
      7448                            *        THE LABEL.
      7449                            *
      7450   02 010A6    6A7007E1              CALL     OLDCSECT
      7451   02 010A7    22400000 A            LI,XT    0
      7452   02 010A8    3540000A 03           STW,XT   DLRCS
      7453   02 010A9    6A700FF1              CALL     SETDLRS
      7454   02 010AA    68000642              B        LINE5
1
      7456                            *
      7457                            *   S O C W % C H K
      7458                            *        TEST THE VALIDITY OF A DIRECTIVE UNDER SOCW CONTROL.  IF THE
      7459                            *          DIRECTIVE APPEARS PRIOR TO SOCW, THEN SET TO INHIBIT
      7460                            *          LATER ACCEPTANCE OF SOCW.
      7461                            *
      7462   02 010AB                 SOCW%CHK RES      0
      7463   02 010AB    33000008 03           MTW,0    SOCW2LAT
      7464         001F0000                    IF,EZ                      DOIF CHECK NOT YET PERFORMED
             02 010AC    693010B2
      7465   02 010AD    33000007 03           MTW,0    SOCW%FLG
      7466         001F0100                    IF,NZ
             02 010AE    683010B1
      7467   02 010AF    6AF00000 X            BAL,ER   IERR              THIS DIRECTIVE ILLEGAL UNDER SOCW
      7468   02 010B0    68000642              B        LINE5             SKIP
      7469                            *
      7470         00F10100                    FI
      7471   02 010B1    33100008 03           MTW,+1   SOCW2LAT          SET SO SOCW WILL NOT BE ACCEPTED
      7472         00F10000                    FI
      7473   02 010B2    680E0000 A            EXIT
1
      7475                            *   S P A C E
      7476                            *        THIS ROUTINE PROCESSES THE SPACE DIRECTIVE. THE OPERAND
      7477                            *          SPECIFIES THE NUMBER OF BLANK LINES TO BE PRINTED. IF THE
      7478                            *          OPERAND VALUE IS LESS THAN ONE, ONE IS USED; IF IT IS GREATER
      7479                            *          THAN 16, 16 IS USED. IF THE VALUE IS THEN GREATER THAN THE
      7480                            *          LINES REMAINING ON THE PAGE, LINES REMAINING IS CLEARED AND
      7481                            *          SPACE BRANCHES TO GENR. OTHERWISE, PRINT IS CALLED 'VALUE'
      7482                            *          TIMES TO PRODUCE BLANK LINES.
      7483                            *
      7484                            *        USES REGISTERS
      7485                            *                 XT, RL
      7486                            *
      7487   02 010B3                 SPACE    RES      0
      7488                            *
      7489   02 010B3    6A70049D              CALL     EV1OPRNDEXP       EVALUATE ONE OPERAND EXPRESSION
      7490   02 010B4    21400001 A            CI,XT    1
      7491   02 010B5    681010B7              BGE      SPACE1            IF OPERAND VALUE IS LESS THAN ONE,
      7492   02 010B6    22400001 A            LI,XT    1                   USE A VALUE OF ONE
      7493   02 010B7                 SPACE1   RES      0
      7494   02 010B7    21400010 A            CI,XT    16
      7495   02 010B8    682010BA              BLE      SPACE2            IF OPERAND VALUE IS GREATER THAN 16,
      7496   02 010B9    22400010 A            LI,XT    16                  USE A VALUE OF 16
      7497   02 010BA                 SPACE2   RES      0
      7498   02 010BA    35400046 04           STW,XT   TEMP              STORE VALUE
      7499   02 010BB    6A700831              BAL,RL   PCCSUB            PRINT SPACE DIRECTIVE UNDER PCC
      7500   02 010BC    6A700000 N            CALL     PRINTC            PRINT SOURCE IF WITHIN A PROC
      7501   02 010BD    32400046 04           LW,XT    TEMP              IF NUMBER OF LINES TO UPSPACE IS
      7502   02 010BE    31400000 X            CW,XT    PGLINES             NOT LESS THAN NUMBER OF LINES
      7503   02 010BF    68100825              BGE      PAGE1               REMAINING, GO TO TOP OF PAGE
      7504                            *
      7505   02 010C0    22400007 A            LV,XT    PSTRIGFLD|LISTFLD|4   DON'T SPACE IF LISTING OFF
      7506   02 010C1    4B40001D 03           AND,XT   NOLIST              TO PRE-ENCODED SYSTEM OR A
      7507   02 010C2    69300643              BNEZ     GENR                SYSTEM NOT BEING LISTED
      7508                            *
      7509   02 010C3                 SPACE5   RES      0
      7510   02 010C3    6A700000 X            BAL,RL   PRINT             TEMP SPECIFIES THE
      7511   02 010C4    33F00046 04           MTW,-1   TEMP                NUMBER (1-16) OF
      7512   02 010C5    692010C3              BG       SPACE5              BLANK LINES TO BE PRINTED
      7513   02 010C6    68000643              B        GENR
1
      7515                            *
      7516                            *  S P E C D I R
      7517                            *        TEST THE COMMAND FOR BEING A SPECIAL DIRECTIVE AND PROCESS.
      7518                            *
      7519                            *        SPECIAL DIRECTIVES ARE: DO,FIN,LOCAL,SYSTEM,END,PROC,PEND,
      7520                            *          OPEN, AND CLOSE
      7521                            *
      7522                            *        INPUT:   REG. XW CONTAINS A POINTER TO THE COMMAND ENTRY
      7523                            *
      7524                            *         OUTPUT: XT STILL CONTAINS THE COMMAND.
      7525                            *                 IF A SPECIAL DIRECTIVE IS FOUND, THE APPROPRIATE
      7526                            *                   COUNTER IS INCREASED OR DECREASED
      7527                            *                 LOCAL DIRECTIVES ON THE CURRENT LEVEL ARE PROCESSED
      7528                            *                   BY THIS ROUTINE
      7529                            *
      7530                                     LOCAL    %1,%2,%3,%4,%5,%6,%7,%10
      7531   02 010C7                 SPECDIR  RES      0
      7532   02 010C7    D24400BA 04           NXTENC
             02 010C8    20200001 A
      7533   02 010C9    21400006 A            CI,XT    BEGINLIST
      7534   02 010CA    683010C7              BE       SPECDIR           GET ITEM FOLLOWING A BEGIN LIST
      7535                            *
      7536   02 010CB    21404004 A            CI,XT    SYSTEMDIR
      7537   02 010CC    69300000 F            BNE      %4
      7538   02 010CD    D25400BA 04           NXTENC,XT1  ,NOINC         LOOK AT THE FLAG
      7539   02 010CE    4B501214              AND,XT1  =SYSTYPEFLD         TO SEE WHETHER
      7540   02 010CF    21500400 A            CI,XT1   1**(31-SYSTYPELOB)  ENCODED TEXT IS INCLUDED
      7541   02 010D0    682E0000 A            EXIT,LE  RL                EXIT IF IT ISN'T
      7542   02 010D1    3310002C 03           MTW,1    SYSCOUNT          BUMP SYSTEM COUNT
      7543   02 010D2                 %7       RES      0
      7544   02 010D2    22400000 A            LI,XT    0                 CLOBBER XT SO COMMAND IS IGNORED
      7545   02 010D3    680E0000 A            EXIT     RL
      7546   02 010D4                 %4       RES      0
      7547   02 010D4    21404007 A            CI,XT    ENDDIR
      7548   02 010D5    69300000 F            BNE      %3
      7549   02 010D6    33F0002C 03           MTW,-1   SYSCOUNT          DECREASE SYSTEM COUNT
      7550   02 010D7    691003DC              BL       END%ERR1          ERROR IF ON SOURCE LEVEL
      7551   02 010D8                 %3       RES      0
      7552   02 010D8    3250002C 03           LW,XT1   SYSCOUNT          DON'T LOOK FOR OTHER DIRECTIVES
      7553   02 010D9    693010D2              BNEZ     %7                  IF SKIPPING LINES IN A SYSTEM
      7554   02 010DA    21404018 A            CI,XT    DODIR             TEST FOR 'DO'
      7555   02 010DB    69300000 F            BNE      %1
      7556   02 010DC    33100010 03           MTW,1    DOCOUNT
      7557   02 010DD    680E0000 A            EXIT     RL
      7558   02 010DE                 %1       RES      0
      7559   02 010DE    2140400C A            CI,XT    FINDIR            TEST FOR 'FIN'
      7560   02 010DF    69300000 F            BNE      %2
      7561   02 010E0    33F00010 03           MTW,-1   DOCOUNT
      7562   02 010E1    680E0000 A            EXIT     RL
      7563   02 010E2                 %2       RES      0
      7564   02 010E2    21404002 A            CI,XT    LOCALDIR          TEST FOR 'LOCAL'
      7565   02 010E3    693010F0              BNE      SPCD5
      7566                            *
      7567   02 010E4    3250001F 03           LW,XT1   PROCCOUNT         PROCESS 'LOCAL' ON THIS PROC LEVEL
      7568   02 010E5    693E0000 A            EXIT,NE  RL                NOT THE SAME LEVEL
      7569   02 010E6    35700025 03           STW,RL   SKIPTRIG
      7570   02 010E7    6A700744              BAL,RL   LOCALSTA
      7571   02 010E8    22700000 A            LI,RL    0
      7572   02 010E9    46700025 03           XW,RL    SKIPTRIG
      7573   02 010EA    32500089 04           LW,XT1   GOTOARG
      7574   02 010EB    25500073 A            SLS,XT1  -13
      7575   02 010EC    21500003 A            CI,XT1   3                 LOCAL SYMBOL
      7576   02 010ED    693010D2              BNE      %7
      7577                            *
      7578   02 010EE                 SPCD1    RES      0
      7579   02 010EE    6AF00000 X            BAL,ER   KERR
      7580   02 010EF    68000642              B        LINE5
      7581   02 010F0                 SPCD5    RES      0
      7582   02 010F0    21404005 A            CI,XT    PROCDIR           TEST FOR 'PROC'
      7583   02 010F1    69300000 F            BNE      %5
      7584   02 010F2    3310001F 03           MTW,1    PROCCOUNT
      7585   02 010F3    680E0000 A            EXIT     RL
      7586   02 010F4                 %5       RES      0
      7587   02 010F4    21404006 A            CI,XT    PENDDIR           TEST FOR 'PEND'
      7588   02 010F5    693010FA              BNE      SPCD10
      7589   02 010F6    33F0001F 03           MTW,-1   PROCCOUNT
      7590   02 010F7    683E0000 A            EXIT,EQ  RL
      7591   02 010F8                 SPCD20   RES      0
      7592   02 010F8    6AF00000 X            BAL,ER   KERR
      7593   02 010F9    680005E8              B        GOSRCH30          TO RE-START LINE AT LABEL FIELD
      7594   02 010FA                 SPCD10   RES      0
      7595   02 010FA    21404003 A            CI,XT    OPENDIR           TEST FOR 'OPEN'
      7596   02 010FB    68300000 F            BE       %6
      7597   02 010FC    21404001 A            CI,XT    CLOSEDIR          TEST FOR 'CLOSE'
      7598   02 010FD    693E0000 A            EXIT,NE  RL
      7599   02 010FE                 %6       RES      0
      7600   02 010FE    22500000 A            LI,XT1   0
      7601   02 010FF    35500025 03           STW,XT1  SKIPTRIG
      7602   02 01100    680E0000 A            EXIT     RL
      7603                                     LOCAL
1
      7605                            *
      7606                            *   S R C L C L F D
      7607                            *        DETERMINES WHETHER A SYMBOL IS A FORWARD LOCAL.
      7608                            *
      7609                            *        INPUT:   FND POINTS TO ENTRY TO BE INSPECTED.
      7610                            *
      7611                            *        OUTPUT:  XT1 IS ZERO IF THE ENTRY IS NOT A FORWARD LOCAL, OR
      7612                            *                    CONTAINS THE SYMBOL TABLE ADDRESS IF IT IS.
      7613                            *
      7614                            *        CALL:    BAL,RL  SRCLCLFD
      7615                            *
      7616                            *        USES REGISTERS
      7617                            *                 XT
      7618                            *                 XT1
      7619                            *
      7620   02 01101                 SRCLCLFD RES      0
      7621   02 01101    32500086 04           LW,XT1   FND               ADDRESS OF LOCAL
      7622   02 01102    324A0000 A            LW,XT    0,XT1
      7623   02 01103    69101109              BFNZ,XT  SPAFLD,SRCLCL1    SPEC. ADDR.
      7624   02 01104    4B401242              AND,XT   =(SPAFLD+STYPEFLD+TYPEFLD)
      7625   02 01105    31401243              CV,XT    LCLFWD+SYMBOL
      7626   02 01106    683E0000 A            EXIT,EQ  RL                ENTRY IS A FORWARD LOCAL
      7627   02 01107    3140122E              CV,XT    LCLFWDHD+SYMBOL
      7628   02 01108    683E0000 A            EXIT,EQ  RL                ENTRY IS A FORWARD & HOLD LOCAL
      7629   02 01109                 SRCLCL1  RES      0
      7630   02 01109    22500000 A            LI,XT1   0                 INDICATE NOT A FORWARD LOCAL
      7631   02 0110A    680E0000 A            EXIT     RL
1
      7633                            *
      7634                            *   S R E F
      7635                            *        THIS ROUTINE PROCESSES THE SREF DIRECTIVE.  SREF SETS AN
      7636                            *          ASSIGNMENT VALUE FOR SREF AND BRANCHES TO DEF1.
      7637                            *
      7638                            *        OUTPUT:  XT CONTAINS A VALUE FOR SREF.
      7639                            *
      7640                            *        USES REGISTER
      7641                            *                 XT
      7642                            *
      7643   02 0110B                 SREF     RES      0
      7644   02 0110B    324011F1              LV,XT    SREFEXT
      7645   02 0110C    68000893              B        REF1              COMMON CODE FOR REF AND SREF
1
      7647                            *
      7648                            *   S T A C K S P I
      7649                            *        THIS ROUTINE BUILDS A SPECIAL INTEGER ITEM AND ADDS IT TO THE
      7650                            *          END OF THE ECT AND EVT TABLES.
      7651                            *
      7652                            *        INPUT:   XT CONTAINS THE INTEGER VALUE OF THE ITEM.
      7653                            *
      7654                            *        OUTPUT:  NONE
      7655                            *
      7656                            *        CALL:    BAL,RL  STACKSPI
      7657                            *
      7658                            *        USES REGISTERS
      7659                            *                 XT
      7660                            *                 XT1
      7661                            *
      7662   02 0110D                 STACKSPI RES      0
      7663   02 0110D    304011E9              AV,XT    1**(31-SPALOB)+1**(31-SPINTLOB) BUILD A SPECIAL INT
      7664   02 0110E    304000A5 04           AW,XT    PASSDEF             ITEM WHOSE VAL FIELD IS CONTAINED
      7665   02 0110F    354000B2 04           STW,XT   SPITEMP             IN XT
      7666   02 01110    224000B2 04           LI,XT    SPITEMP           ADDRESS OF SPECIAL INTEGER
      7667   02 01111    325011FC              LV,XT1   SPINT%ET
      7668   02 01112    35500060 04           STW,XT1  DD%TYPE           VALUE FOR ET FIELD IS SPECIAL INT
      7669   02 01113    22500001 A            LI,XT1   1                 NUMBER OF WORDS TO PUSH
      7670   02 01114    68000EA3              B        SCPUSH            PUSH VALUE INTO EXP STACKS AND EXIT
1
      7672                            *
      7673                            *  S U B V A L
      7674                            *        GET A SUBSCRIPT VALUE FROM THE EVT AND TEST ITS VALIDITY.
      7675                            *
      7676                            *          INPUT: SUBLOC CONTAINS THE (FULL) ECT ADDRESS OF THE VALUE
      7677                            *
      7678                            *         OUTPUT: THE SUBSCRIPT IN SUB#.
      7679                            *                 SUBLOC IS DECREASED BY 1.
      7680                            *
      7681                            *
      7682                                     LOCAL    %1,%2
      7683   02 01115                 SUBVAL   RES      0
      7684   02 01115    B24000B4 04           LW,XT    *SUBLOC           GET OFFSET TO THE EVT
      7685   02 01116    33F000B4 04           MTW,-1   SUBLOC
      7686   02 01117    B2480035 03           LW,XT    *KLINE,XT         GET SUBSCRIPT
      7687   02 01118    68100000 F            BFZ,XT   SPAFLD,%1         TEST FOR A SPECIAL INTEGER
      7688   02 01119    314011DE              BFZ,XT   SPINTFLD,%1         WITH CC FIELD = ZERO
             02 0111A    68400000 F
      7689   02 0111B    3140120F              BFNZ,XT  CCFLD,%1
             02 0111C    69400000 F
      7690   02 0111D    4B4011EC              AND,XT   =VALFLD           SAVE VALUE
      7691   02 0111E    68300000 F            BEZ      %1                VALUE IS LESS THAN 1
      7692   02 0111F    214000FF A            CI,XT    255
      7693   02 01120    68200000 F            BLE      %2                BRANCH IF VALUE OKAY
      7694   02 01121                 %1       RES      0
      7695   02 01121    6AF00000 X            BAL,ER   EERR
      7696   02 01122    22400001 A            LI,XT    1                 USE 1
      7697   02 01123                 %2       RES      0
      7698   02 01123    354000B3 04           STW,XT   SUB#
      7699   02 01124    680E0000 A            EXIT     RL
1
      7701                            *
      7702                            *   S Y S E N D
      7703                            *        THIS SUBROUTINE DECREMENTS SYSTEM LEVEL WHEN AN END
      7704                            *          DIRECTIVE IS ENCOUNTERED, AND RESTORES LISTING CONTROL
      7705                            *          TO THE CONDITIONS IN EFFECT AT THE TIME THE SYSTEM
      7706                            *          DIRECTIVE WAS ENCOUNTERED
      7707                            *
      7708   02 01125                 SYSEND   RES      0
      7709   02 01125    35700099 04           STW,RL   SYSEXIT           SAVE RETURN ADDRESS
      7710   02 01126    33000000 X            MTW,0    SYSLEVEL
      7711   02 01127    6830112A              BEZ      SYSEND1           BRANCH IF END OF PROGRAM
      7712   02 01128    6A700000 X            BAL,RL   PRINTC1           PRINT THE END LINE
      7713   02 01129    33F6000A A            MTW,-1   SYSLVL,LVL
      7714   02 0112A                 SYSEND1  RES      0
      7715   02 0112A    33F00000 X            MTW,-1   SYSLEVEL          DECREMENT SYSTEM LEVEL
      7716   02 0112B    E9300099 04           BNEZ     *SYSEXIT          EXIT IF NOT BACK TO SOURCE LEVEL
      7717   02 0112C    22400000 A            LI,XT    0                 RESET SYSTEM LISTING CONTROL BIT
      7718   02 0112D    22500001 A            LV,XT1   PSTRIGFLD         MASK FOR PSTRIG FIELD
      7719   02 0112E    4740001D 03           STS,XT   NOLIST            RESET 'SYSTEM' LIST CONTROL BIT
      7720   02 0112F    E8000099 04           B        *SYSEXIT
1
      7722                            *
      7723                            *   S Y S S U B
      7724                            *        THIS SUBROUTINE INCREMENTS SYSTEM LEVEL WHEN A SYSTEM
      7725                            *          DIRECTIVE IS ENCOUNTERED, AND ESTABLISHES LISTING
      7726                            *          CONTROL FOR ALL LINES WITHIN THE SYSTEM/END PAIR
      7727                            *
      7728   02 01130                 SYSSUB   RES      0
      7729   02 01130    35700099 04           STW,RL   SYSEXIT           SAVE RETURN ADDRESS
      7730   02 01131    6A700000 X            BAL,RL   PRINTC2           PRINT IF THERE IS A SOURCE LINE
      7731   02 01132    32400023 03           LW,XT    PSTRIG            VALUE FOR SYSTEM LISTING CONTROL
      7732   02 01133    22500001 A            LV,XT1   PSTRIGFLD         MASK FOR PSTRIG FIELD
      7733   02 01134    4740001D 03           STS,XT   NOLIST            STORE SYSTEM LISTING CONTROL BIT
      7734   02 01135    3316000A A            MTW,1    SYSLVL,LVL
      7735   02 01136    33100000 X            MTW,1    SYSLEVEL          INCREMENT SYSTEM LEVEL
      7736   02 01137    E8000099 04           B        *SYSEXIT
1
      7738                            *
      7739                            *   S Y S T E M
      7740                            *        THIS ROUTINE PROCESSES THE SYSTEM DIRECTIVE. IF THE SYSTEM TYPE
      7741                            *          FIELD (SYSTYPE)IS ZERO, THIS IS A PRE-ENCODED SYSTEM;
      7742                            *          LINESKIP IS CALLED AND SYSTEM RETURNS TO GENR. IF SYSTYPE IS
      7743                            *          ONE, THE SYSTEM WAS NOT FOUND. THE SYSTEM NAME IS COPIED FROM
      7744                            *          THE ENCODED TEXT FILE TO AN ABORT MESSAGE, AND XAP ABORTS.
      7745                            *          IF SYSTYPE IS GREATER THAN ONE, THE SYSTEM IS IN SOURCE
      7746                            *          FORMAT. SYSLEVEL IS INCREASED, AND PSTRIG IS STORE IN THE
      7747                            *          PSTRIG FIELD OF NOLIST. THEN, IF SYSLEVEL IS ONE, THE SYSTEM
      7748                            *          NAME IS COPIED FROM THE ENCODED TEXT FILE TO AN ABORT MESSAGE
      7749                            *          FOR LATER POSSIBLE USE.
      7750                            *
      7751                            *        INPUT:   XW CONTAINS AN INDEX TO THE ENCODED TEXT ITEM
      7752                            *                   CONTAINING SYSTYPE
      7753                            *
      7754                            *        OUTPUT:  XW CONTAINS AN INDEX TO THE BEGINNING OF THE NEXT
      7755                            *                   ENCODED LINE.
      7756                            *
      7757                            *        USES REGISTERS
      7758                            *                 XT
      7759                            *                 XT1
      7760                            *                 XT2
      7761                            *                 RL
      7762                            *                 XW
      7763                            *
      7764   02 01138                 SYSTEM   RES      0
      7765   02 01138    6A7007D1              BAL,RL   NOTDO1            ERROR IF PRECEEDED BY A DO1
      7766   02 01139    D24400BA 04           NXTENC                     GET SYSTYPE
             02 0113A    20200001 A
      7767   02 0113B    4B401214              AND,XT   =SYSTYPEFLD
      7768   02 0113C    68300642              BEZ      LINE5             PRE-ENCODED SYSTEM FILE
      7769   02 0113D    21400400 A            CI,XT    1**(31-SYSTYPELOB)
      7770   02 0113E    6830114E              BE       SYSTEM4           SOURCE FILE NOT FOUND
      7771   02 0113F    32400000 X            LW,XT    SYSLEVEL
      7772   02 01140    6930114C              BNEZ     SYSTEM3           NOT FIRST LEVEL OF SYSTEM DIRECTIVES
      7773   02 01141    20200001 A            AI,XW    1                 SKIP THE MULTI-INTEGER CONTROL WORD
      7774   02 01142    25200001 A            SLS,XW   1                 CHANGE HALFWORD INDEX TO BYTE INDEX
      7775   02 01143    F27400BA 04           LB,RL    *XWBASE,XW        LOAD CHARACTER COUNT
      7776   02 01144    75700000 X            STB,RL   SYSNAME           # OF CHARS IN SYSTEM NAME
      7777   02 01145                 SYSTEM2  RES      0
      7778   02 01145    20200001 A            AI,XW    1                 INCREMENT 'FROM' INDEX
      7779   02 01146    F26400BA 04           LB,XT2   *XWBASE,XW        MOVE SYSTEM NAME FROM ENCODED TEXT
      7780   02 01147    20400001 A            AI,XT    1                 INCREMENT 'TO' INDEX
      7781   02 01148    75680000 X            STB,XT2  SYSNAME,XT          TO SYSNAME
      7782   02 01149    64701145              BDR,RL   SYSTEM2           CONTINUE UNTIL ALL CHARS MOVED
      7783   02 0114A    2520007F A            SLS,XW   -1                CHANGE BYTE INDEX TO HALFWORD INDEX
      7784   02 0114B    20200001 A            AI,XW    1
      7785   02 0114C                 SYSTEM3  RES      0
      7786   02 0114C    6A701130              BAL,RL   SYSSUB            INCREMENT SYSTEM LEVEL
      7787   02 0114D    68000642              B        LINE5             SKIP REST OF SYSTEM DIRECTIVE
      7788   02 0114E                 SYSTEM4  RES      0
      7789   02 0114E    324000BA 04           LW,XT    XWBASE            BASE ADDRESS OF ENCODED TEXT
      7790   02 0114F    22000000 A            ABORT    ABORT0            UNABLE TO FIND SYSTEM
             02 01150    68000000 X
1
      7792                            *
      7793                            *   T E X T
      7794                            *        THIS ROUTINE PROCESSES THE TEXT DIRECTIVE.  TXTFLG IS SET TO
      7795                            *          INDICATE TEXT PROCESSING AND A BRANCH IS MADE TO TEXTC1.
      7796                            *
      7797                            *
      7798                            *        USES REGISTERS
      7799                            *                 XT
      7800                            *
      7801   02 01151                 TEXT     RES      0
      7802   02 01151    22400000 A            LI,XT    0                 IDENTIFY TEXT DIRECTIVE
      7803   02 01152    68001154              B        TEXTC1
1
      7805                            *
      7806                            *   T E X T C
      7807                            *        THIS ROUTINE PROCESSES THE TEXTC DIRECTIVE. TXTFLG IS SET TO
      7808                            *          INDICATE TEXTC PROCESSING.
      7809                            *        PROCESSING WHICH IS COMMON TO BOTH TEXT AND TEXTC BEGINS AT
      7810                            *          TEXTC1. THE EXECUTION LOCATION COUNTER IS ADVANCED TO A WORD
      7811                            *          BOUNDARY AND THE LABEL IS DEFINED. THE OPERAND FIELD IS THEN
      7812                            *          EVALUATED AND TEXTGEN IS CALLED TO PROCESS THE TEXT
      7813                            *          CHARACTERS. THEN,IN THE DEFINITION PASS, BOTH LOCATION
      7814                            *          COUNTERS ARE INCREASED BY THE NUMBER OF CHARACTERS PROCESSED.
      7815                            *          IN THE GENERATION PASS, THE TEXT CHARACTERS ARE OUTPUT, FOUR
      7816                            *          CHARACTERS AT A TIME, TO BOTH THE BINARY AND LISTING FILES.
      7817                            *
      7818                            *        USES REGISTERS
      7819                            *                 XT
      7820                            *                 RL
      7821                            *                 XT2
      7822                            *                 TX1
      7823                            *
      7824   02 01153                 TEXTC    RES      0
      7825   02 01153    22400001 A            LI,XT    1                 IDENDIFY TEXTC DIRECTIVE
      7826   02 01154                 TEXTC1   RES      0
      7827   02 01154    35400062 04           STW,XT   TXTFLG
      7828   02 01155    6A700065              BAL,RL   BOUND4            ADVANCE % TO A WORD BOUNDARY
      7829   02 01156    22400038 A            LV,XT    SDTEXTC           SET SD TYPE TO 'EBCDIC TEXT'
      7830   02 01157    354000AF 04           STW,XT   SD%TYPE
      7831   02 01158    6A70029A              BAL,RL   DEFLBL            DEFINE THE LABEL
      7832   02 01159    6A70094A              CALL     EV%CLN%OPRND      EVALUATE THE OPERAND FIELD
      7833   02 0115A    6A701172              BAL,RL   TEXTGEN           PROCESS THE TEXT CHARACTERS
      7834   02 0115B    33000006 03           MTW,0    PASS
      7835   02 0115C    69301160              BNEZ     TEXTC2            GENERATION PASS
      7836   02 0115D    6660000E 03           AWM,XT2  DLRVAL            ADVANCE BOTH LOCATION COUNTERS BY
      7837   02 0115E    6660000F 03           AWM,XT2  DDLRVAL             THE NUMBER OF CHARACTERS GENERATED
      7838   02 0115F    68000643              B        GENR              BACK TO MAIN CONTROL
      7839   02 01160                 TEXTC2   RES      0
      7840   02 01160    21600000 A            CI,XT2   0
      7841   02 01161    68300643              BE       GENR              NO TEXT STRING
      7842   02 01162    6A700000 X            BAL,RL   ORIGIN            PRODUCE ORIGIN CONTROL
      7843   02 01163    22400004 A            LI,XT    4
      7844   02 01164    3540009D 04           STW,XT   NOBYTES           NUMBER OF BYTES TO OUTPUT
      7845   02 01165    224000C1 A            LI,XT    'A'
      7846   02 01166    3540006B 04           STW,XT   CODE
      7847   02 01167                 TEXTC3   RES      0
      7848   02 01167    B2400072 04           LW,XT    *DESTIN
      7849   02 01168    35400079 04           STW,XT   HEXVAL            LOAD NEXT 4 BYTES TO OUTPUT
      7850   02 01169    6A700000 X            BAL,RL   LOADABS           OUTPUT AS ABSOLUTE TO BINARY FILE
      7851   02 0116A    225001E4 04           LI,XT1   BA(HEXVAL)
      7852   02 0116B    6A700000 X            BAL,RL   EDIT              LIST % LOC COUNTER AND 4 CHARS
      7853   02 0116C    33100072 04           MTW,1    DESTIN            ADDRESS OF NEXT 4 BYTES TO OUTPUT
      7854   02 0116D    33C000B7 04           MTW,-4   TOTALCT           REDUCE TOTAL BYTE COUNT BY 4
      7855   02 0116E    69201167              BGZ      TEXTC3            MORE TO OUTPUT
      7856   02 0116F    68000643              B        GENR              BACK TO MAIN CONTROL
1
      7858                            *
      7859                            *   T E X T G E N
      7860                            *        THIS ROUTINE PROCESSES THE CHARACTER STRING(S) APPEARING IN
      7861                            *          THE TEXT AND TEXTC DIRECTIVES.
      7862                            *
      7863                            *   T E X T M R G E
      7864                            *        THIS IS AN ALTERNATE ENTRY TO TEXTGEN TO PROCESS THE CHARACTER
      7865                            *   STRING(S) APPEARING IN THE TITLE AND ERROR DIRECTIVES.
      7866                            *        IN EITHER CASE, THE CHARACTERS ARE
      7867                            *          EXTRACTED FROM THE EVT ENTRIES AND CONCATINATED TO FORM ONE
      7868                            *          CONTINUOUS CHARACTER STRING WHICH OVERLAYS THE ORIGINAL EVT
      7869                            *          AREA. EVT ENTRIES WHICH ARE NOT CHARACTER CONSTANTS ARE
      7870                            *          FLAGGED AS AN ERROR AND SKIPPED. IF THE PROCESSING IS FOR
      7871                            *          TEXTC THE FINAL CHARACTER STRING IS PRECEEDED BY A CHARACTER
      7872                            *          COUNT TRUNCATED TO 255. TEXT AND ERROR CHARACTER STRINGS
      7873                            *          MAY BE OF ANY LENGTH. IF THE FINAL CHARACTERS DO NOT FILL A
      7874                            *          WORD, THE LAST WORD IS PADDED WITH BLANK CHARACTERS.
      7875                            *
      7876                            *        INPUT:   TXTFLG INDICATES THE TYPE OF CHARACTER STRING TO
      7877                            *                   GENERATE (TEXT OR TEXTC)
      7878                            *                 THE EXPRESSION TABLES (ECT AND EVT) CONTAIN THE
      7879                            *                   CHARACTER CONSTANTS TO PROCESS.
      7880                            *
      7881                            *        OUTPUT:  TOTALCT AND REGISTER XT2 CONTAIN THE NUMBER OF CHARS
      7882                            *                   IN THE FINAL STRING, INCLUDING TRAILING BLANKS.
      7883                            *                 DESTIN CONTAINS THE ADDRESS OF THE FIRST WORD OF
      7884                            *                   THE CHARACTER STRING GENERATED.
      7885                            *
      7886                            *        CALL:    BAL,RL  TEXTGEN   ( TEXT AND TEXTC )
      7887                            *                 BAL,RL  TEXTMRGE  (TITLE AND ERROR)
      7888                            *
      7889                            *        USES REGISTERS
      7890                            *                 XT
      7891                            *                 XT1
      7892                            *                 XT2
      7893                            *                 RL
      7894                            *
      7895   02 01170                 TEXTMRGE RES      0
      7896   02 01170    22400000 A            LI,XT    0
      7897   02 01171    35400062 04           STW,XT   TXTFLG            PRODUCE 'TEXT' FORMAT
      7898   02 01172                 TEXTGEN  RES      0
      7899   02 01172    357000B6 04           STW,RL   TEXTEXIT
      7900   02 01173    32600097 04           LW,XT2   LSTCT
      7901   02 01174    683011A2              BEZ      TEXTGEN6
      7902   02 01175    32420000 A            LW,XT    0,XS
      7903   02 01176    30400035 03           AW,XT    KLINE             ADDRESS OF FIRST EVT ENTRY
      7904   02 01177    35400072 04           STW,XT   DESTIN            DESTINATION WORD ADDRESS
      7905   02 01178    32600062 04           LW,XT2   TXTFLG            BYTE INDEX TO DESTINATION
      7906   02 01179                 TEXTGEN1 RES      0
      7907   02 01179    32420000 A            LW,XT    0,XS
      7908   02 0117A    30400035 03           AW,XT    KLINE             ADDRESS OF NEXT EVT ENTRY
      7909   02 0117B    32580000 A            LW,XT1   0,XT
      7910   02 0117C    327011EB              LV,RL    DEFFLD
      7911   02 0117D    4B700005 A            AND,RL   XT1
      7912   02 0117E    317000A5 04           CW,RL    PASSDEF
      7913   02 0117F    693011AE              BNE      TEXTGEN9          NOT DEFINED FOR CURRENT PASS
      7914   02 01180    315011E7              BFZ,XT1,1 SPAFLD,TEXTGEN7  BRANCH IF NOT A ONE WORD ITEM
             02 01181    684011A4
      7915   02 01182    315011DE              BFZ,XT1  SPINTFLD,TEXTGEN8 BRANCH IF NOT A SPECIAL INTEGER
             02 01183    684011AC
      7916   02 01184    4B50120F              AND,XT1  =CCFLD
      7917   02 01185    683011AC              BEZ      TEXTGEN8          SPEC. INT. IS NOT A CHAR CONSTANT
      7918   02 01186    25500208 A            SHIFT,XT1 CCLOB,31         RIGHT JUSTIFY CHARACTER COUNT
      7919   02 01187    25400002 A            SLS,XT   2
      7920   02 01188    20400003 A            AI,XT    3                 GET BYTE ADDRESS-1 OF THE FIRST
      7921   02 01189    38400005 A            SW,XT    XT1                 CHARACTER TO LOAD
      7922   02 0118A                 TEXTGEN2 RES      0
      7923   02 0118A    20400001 A            AI,XT    1                 INCREMENT THE LOAD INDEX
      7924   02 0118B    72780000 A            LB,RL    0,XT              CONCATINATE THIS CHARACTER INTO
      7925   02 0118C    F57C0072 04           STB,RL   *DESTIN,XT2         A SINGLE  CHARACTER STRING.
      7926   02 0118D    20600001 A            AI,XT2   1                 INCREMENT THE DESTINATION INDEX
      7927   02 0118E    6450118A              BDR,XT1  TEXTGEN2          MORE TO MOVE
      7928   02 0118F                 TEXTGEN3 RES      0
      7929   02 0118F    201FFFFF A            AI,XS    -1                POINTER TO NEXT ECT ENTRY
      7930   02 01190    33F00097 04           MTW,-1   LSTCT             DECREMENT LIST COUNT
      7931   02 01191    69201179              BGZ      TEXTGEN1          MORE VALUES IN EVT
      7932   02 01192    32700006 A            LW,RL    XT2               CHARACTER COUNT FOR TEXTC
      7933   02 01193                 TEXTGEN4 RES      0
      7934   02 01193    22400003 A            LI,XT    3
      7935   02 01194    4B400006 A            AND,XT   XT2
      7936   02 01195    6830119A              BEZ      TEXTGEN5          NO MORE BLANKS TO PAD
      7937   02 01196    22400040 A            LI,XT    X'40'
      7938   02 01197    F54C0072 04           STB,XT   *DESTIN,XT2       PAD THE LAST WORD WITH BLANKS
      7939   02 01198    20600001 A            AI,XT2   1                 INCREMENT THE DESTINATION INDEX
      7940   02 01199    68001193              B        TEXTGEN4          CONTINUE PADDING BLANKS
      7941   02 0119A                 TEXTGEN5 RES      0
      7942   02 0119A    33000062 04           MTW,0    TXTFLG
      7943   02 0119B    683011A2              BEZ      TEXTGEN6          PROCESSING TEXT DIRECTIVE
      7944   02 0119C    207FFFFF A            AI,RL    -1
      7945   02 0119D    F5700072 04           STB,RL   *DESTIN           STORE TEXTC CHARACTER COUNT
      7946   02 0119E    217000FF A            CI,RL    255
      7947   02 0119F    682011A2              BLE      TEXTGEN6
      7948   02 011A0    6AF00000 X            BAL,ER   TERR              TOO MANY CHARACTERS IN STRING
      7949   02 011A1    22600100 A            LI,XT2   256
      7950   02 011A2                 TEXTGEN6 RES      0
      7951   02 011A2    356000B7 04           STW,XT2  TOTALCT           NUMBER OF CHARACTERS IN STRING
      7952   02 011A3    E80000B6 04           B        *TEXTEXIT           INCLUDING TRAILING BLANKS
      7953   02 011A4                 TEXTGEN7 RES      0
      7954   02 011A4    4B5011FE              AND,XT1  =(TYPEFLD+CTYPEFLD)
      7955   02 011A5    31501244              CV,XT1   CONSTANT+CHSTR
      7956   02 011A6    693011AC              BNE      TEXTGEN8          ITEM IS NOT A CHARACTER CONSTANT
      7957   02 011A7    25400002 A            SLS,XT   2                 GET THE BYTE ADDRESS OF THE CHAR
      7958   02 011A8    20400004 A            AI,XT    4                   COUNT WHICH PRECEDES THE STRING
      7959   02 011A9    72580000 A            LB,XT1   0,XT              LOAD THE STRING COUNT
      7960   02 011AA    6830118F              BEZ      TEXTGEN3          NO CHARACTERS TO PROCESS
      7961   02 011AB    6800118A              B        TEXTGEN2          BYTE ADDRESS OF 1ST CHARACTER
      7962   02 011AC                 TEXTGEN8 RES      0
      7963   02 011AC    6AF00000 X            BAL,ER   CERR              EVT ENTRY IS NOT A CHAR CONSTANT
      7964   02 011AD    6800118F              B        TEXTGEN3          SKIP THIS VALUE
      7965   02 011AE                 TEXTGEN9 RES      0
      7966   02 011AE    6AF00000 X            BAL,ER   UERR              UNDEFINED
      7967   02 011AF    6800118F              B        TEXTGEN3          SKIP THIS ENTRY
1
      7969                            *
      7970                            *  T I T L E
      7971                            *        PROCESS THE TITLE DIRECTIVE
      7972                            *        THE FIRST TITLE IN THE DEFINITION PASS IS RETAINED FOR
      7973                            *          THE GENERATION PASS
      7974                            *
      7975                                     LOCAL    %1,%2,%3,%4,%5
      7976   02 011B0                 TITLE    RES      0
      7977                            *
      7978   02 011B0    6A70094A              CALL     EV%CLN%OPRND      EVALUATE THE OPERAND FIELD
      7979   02 011B1    3240002F 03           LW,XT    TITLENUM          SAVE THE FIRST TITLE LINE IN
      7980   02 011B2    68300000 F            BEZ      %1                  THE DEFINITION PASS
      7981   02 011B3    32400006 03           LW,XT    PASS
      7982   02 011B4    68300643              BEZ      GENR
      7983   02 011B5                 %1       RES      0
      7984   02 011B5    3310002F 03           MTW,1    TITLENUM          BUMP NUMBER OF TITLE DIRECTIVES
      7985   02 011B6    6A701170              BAL,RL   TEXTMRGE          PROCESS TEXT STRING
      7986   02 011B7    32401233              LW,XT    ='    '
      7987   02 011B8    225FFFEF A            LI,XT1   -17               BLANK OUT THE TITLE LINE
      7988   02 011B9                 %4       RES      0
      7989   02 011B9    354A0018 N            STW,XT   TITLEPG,XT1
      7990   02 011BA    655011B9              BIR,XT1  %4
      7991   02 011BB    324000B7 04           LW,XT    TOTALCT           NUMBER OF BYTES IN THE TITLE
      7992   02 011BC    21400044 A            CI,XT    68                USE 68 BYTES IF TOO MANY ARE THERE
      7993   02 011BD    68200000 F            BLE      %2
      7994   02 011BE    22400044 A            LI,XT    68
      7995   02 011BF                 %2       RES      0
      7996   02 011BF    2540007E A            SLS,XT   -2                CONVERT BYTE COUNT TO WORDS
      7997   02 011C0                 %3       RES      0
      7998   02 011C0    204FFFFF A            AI,XT    -1
      7999   02 011C1    69100825              BLZ      PAGE1             TO CLEAR NO. LINES ON THE PAGE
      8000   02 011C2    B2580072 04           LW,XT1   *DESTIN,XT        MOVE THE TITLE CHARACTERS
      8001   02 011C3    35580007 N            STW,XT1  TITLEBUF+7,XT       TO THE TITLE
      8002   02 011C4    680011C0              B        %3
1
      8004                            *
      8005                            *   U S E C T
      8006                            *        PROCESSES THE USECT DIRECTIVE. THE CS NUMBER OF THE NAME
      8007                            *          SPECIFIED IN THE OPERAND FIELD IS USED TO LOCATE A CONTROL
      8008                            *          SECTION TABLE ENTRY, AND THE SAVED RESOLUTION AND OFFSET
      8009                            *          ARE STORED IN DLRRS, DLRVAL, DDLRRS, AND DDLRVAL.  THE
      8010                            *          CONTROL SECTION NUMBER IS STORED IN DLRCS AND DDLRCS.
      8011                            *
      8012                            *        USES REGISTERS
      8013                            *                 RL
      8014                            *                 XT
      8015                            *                 XT1
      8016                            *                 XT2
      8017                            *
      8018   02 011C5                 USECT    RES      0
      8019                            *
      8020   02 011C5    6A700298              CALL     DEFHEXLBL         DEFINE THE LABEL
      8021   02 011C6    6A70094A              CALL     SCANOPRND         EVALUATE THE OPERAND FIELD
      8022   02 011C7    6A7007E1              BAL,RL   OLDCSECT          SAVE DLRVAL AND MAX DDLRVAL
      8023   02 011C8    38100035 03           SW,XS    KLINE
      8024   02 011C9    201FFFFF A             AI,XS   -1
      8025   02 011CA    35160002 A             STW,XS  ECT,LVL           ADJUST POINTER FOR SCCS SUBROUTINE
      8026   02 011CB    6A700B74               BAL,RL   SCCS             GET CONTROL SECTION NUMBER
      8027   02 011CC    4B9011EB               AND,TR1 =DEFFLD
      8028   02 011CD    319000A5 04            CW,TR1  PASSDEF
      8029   02 011CE    69300063               BNE     EXP%ERR           ILLEGAL OPERAND
      8030   02 011CF    21600000 A            CI,XT2   0
      8031   02 011D0    69100063              BL       EXP%ERR           ILLEGAL OPERAND
      8032   02 011D1    3560000A 03           STW,XT2  DLRCS             STORE CONTROL SECTION NUMBER TO
      8033   02 011D2    3560000B 03           STW,XT2  DDLRCS              DLRCS AND DDLRCS
      8034   02 011D3    6A700000 X            BAL,RL   GETCSADD          GET CONTROL SECTION TABLE ADDRESS
      8035   02 011D4    324C0000 A            LW,XT    0,XT2             GET RESOLUTION AND SAVED % VALUE
      8036   02 011D5    32501245              LV,XT1   SAVDLRFLD
      8037   02 011D6    4740000E 03           STS,XT   DLRVAL            SET DLRVAL AND DDLRVAL TO SAVED
      8038   02 011D7    4740000F 03           STS,XT   DDLRVAL             VALUE OF %
      8039   02 011D8    2540020C A            SHIFT,XT RSLOB,31          RIGHT JUSTIFY RS
      8040   02 011D9    22500003 A            LV,XT1   RSFLD**(RSLOB-31)
      8041   02 011DA    4740000C 03           STS,XT   DLRRS             SET DLRRS AND DDLRRS TO SAVED
      8042   02 011DB    4740000D 03           STS,XT   DDLRRS              RESOLUTION
      8043   02 011DC    68000643              B        GENR              BACK TO MAIN CONTROL
      8044                                     END
             02 011DD    0007FFFF A
             02 011DE    40000000 A
             02 011DF    00000000 A
             02 011E0    0000000F A
             02 011E1    0001FFFF A
             02 011E2    7FFF0000 A
             02 011E3    0000FFFF A
             02 011E4    00001FFF A
             02 011E5    20000000 A
             02 011E6    00200000 A
             02 011E7    80000000 A
             02 011E8    00038000 A
             02 011E9    C0000000 A
             02 011EA    000E8002 A
             02 011EB    0C000000 A
             02 011EC    003FFFFF A
             02 011ED    F8000000 A
             02 011EE    90000000 A
             02 011EF    00400000 A
             02 011F0    000000FF A
             02 011F1    00C00000 A
             02 011F2    BFFFFFFF A
             02 011F3    003C0000 A
             02 011F4    00080000 A
             02 011F5    0C007FFF A
             02 011F6    10000000 A
             02 011F7    00FFFFFF A
             02 011F8    00004000 A
             02 011F9    40000007 A
             02 011FA    20C00000 A
             02 011FB    01000000 A
             02 011FC    48000000 A
             02 011FD    58000000 A
             02 011FE    003F8000 A
             02 011FF    FFFE0000 A
             02 01200    00000007 A
             02 01201    FC000000 A
             02 01202    00006000 A
             02 01203    001C0000 A
             02 01204    C7FFFFFF A
             02 01205    C43FFFFF A
             02 01206    0C010000 A
             02 01207    C403FFFF A
             02 01208    00180000 A
             02 01209    00001F00 A
             02 0120A    FF000000 A
             02 0120B    04000000 A
             02 0120C    50000000 A
             02 0120D    001FFFFF A
             02 0120E    1FC00000 A
             02 0120F    03000000 A
             02 01210    003E0000 A
             02 01211    00800000 A
             02 01212    040A8002 A
             02 01213    03C00000 A
             02 01214    00001C00 A
             02 01215    0000A000 A
             02 01216    0000E000 A
             02 01217    98000000 A
             02 01218    F0000000 A
             02 01219    020D8000 A
             02 0121A    38000000 A
             02 0121B    30000000 A
             02 0121C    FF3FFFFF A
             02 0121D    00007FFF A
             02 0121E    3F007FFF A
             02 0121F    00098000 A
             02 01220    28000000 A
             02 01221    F3FFFFFF A
             02 01222    88000000 A
             02 01223    18000000 A
             02 01224    E8000000 A
             02 01225    07FFFFFF A
             02 01226    86000000 A
             02 01227    08000000 A
             02 01228    06018000 A
             02 01229    00140000 A
             02 0122A    E03FFFFF A
             02 0122B    3F000000 A
             02 0122C    00000003 A
             02 0122D    00100000 A
             02 0122E    00118000 A
             02 0122F    FCC1FFFF A
             02 01230    00018000 A
             02 01231    00040000 A
             02 01232    C1000000 A
             02 01233    40404040 A
             02 01234    0000C000 A
             02 01235    FFC00000 A
             02 01236    00090002 A
             02 01237    00404040 A
             02 01238    68000000 A
             02 01239    C2000000 A
             02 0123A    00190002 A
             02 0123B    7FC00000 A
             02 0123C    00158000 A
             02 0123D    FFFF8000 A
             02 0123E    C7DFFFFF A
             02 0123F    031FFFFF A
             02 01240    F3E38000 A
             02 01241    D0000000 A
             02 01242    801F8000 A
             02 01243    000D8000 A
             02 01244    00090000 A
             02 01245    000FFFFF A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 01246   PT 1     03 00039   PT 0     04 000BE   PT 0
1
  *    SYMBOL VALUES
           ABORT0/00000000          ABORT1/00000001          ABORT2/00000002          ABSVAL#/00000047
           ACONVAL/04 00078         ADDFLD/0001FFFF          ADDLOB/0000001F          ADDRET/18000000
           ADFLD/00200000           ADV%RTN/04 00065         AF#/0000003E             AFA%FLG/04 0004A
           AFA#/0000003F            AFASSYM/0000803F         AFASYM/0000403F          AFSSYM/0000803E
           AFSYM/0000403E           AR/00000000              ARFLD/03000000           ARG/04 00066
           ARGSAVE/04 0004A         ARLOB/00000007           ASDLR/02 0001F           ASDLR1/02 0002C
           ASDLR2/02 00032          ASECT/02 00018           ASECT#/00000009          ASSMBDLR/02 0001E
           ASTFLD/01000000          ASTFLG/00000008          ASTMSG/02 00016          ASTRIG/04 00061
           ASVCNT/04 00067          BA#/00000043             BASE/04 00068            BEGINEXP/00000007
           BEGINLIST/00000006       BLANK/00020000           BLANKET/50000000         BLANKEXP/00000005
           BLANKITM/00020001        BLDPLT/02 0003C          BLDPLTXIT/04 0006A       BLDPLT1/02 0003D
           BNDEXIT/04 00069         BND1/02 00089            BOCT/03 00030            BOMAX/03 00031
           BOUND/02 00058           BOUND#/00000013          BOUNDN/02 00067          BOUND1/02 00062
           BUFFFLD/0001FFFF         BYTE2FLD/0000FF00        BYTE2LOB/00000017        BYTE3FLD/000000FF
           BYTE3LOB/0000001F        CCFLD/03000000           CCLOB/00000007           CF#/00000040
           CFSSYM/00008040          CFSYM/00004040           CHCT/00000001            CHSTR/00080000
           CK%PREF/02 0008C         CLN%EXP/02 00091         CLOSE/02 00642           CLOSE#/00000001
           CLOSEDIR/00004001        CMND/00000004            CMNDASN/02 00098         CMNDASN1/02 000A1
           CMNDASN2/02 000A5        CMNDASN3/02 000A8        CMNDASN4/02 000AD        CMNDCW/04 00048
           CMNDDEF/02 000B3         CMNDDEF1/02 000ED        CMNDDEF8/02 000CE        CMNDLIST/04 0004B
           CMNDLSN/04 00049         CMNDNAME/00028000        CMPLXSUM/00040000        CNAME/02 000F1
           CNAME#/00000014          CNAMECOMT/000C0000       CNAMEREF/02 00108
           CNAMEREF%COMREF/02 0010C                          CNAME1/02 00101          CNAME2/02 000F2
           CNAME3/02 000F5          CNTRLSTK/04 00048        CODE/04 0006B            COM/02 00115
           COM#/00000015            COMBASE/02 00000         COMDFLD/00200000         COMDLOB/0000000A
           COMMENT/02 00641         COMNT#/00000000          COMREF/02 0013C          COMREF3/02 00142
           COMREF4/02 0013B         COMTABLE/02 00669        COMTFLD/001C0000         COMTLOB/0000000D
           COM0%CW/02 0013A         COM0COMT/00000000        COM1/02 00132            COM1COMT/00040000
           CONSTANT/00010000        COUNT/04 00045           CPTRFLD/7FFF0000         CPTRLOB/0000000F
           CS/04 00062              CS#/00000048             CSBASE/03 00032          CSECT/02 00144
           CSECT#/00000016          CSECT1/02 00145          CSFLD/003E0000           CSLOB/0000000E
           CSNAME/04 00061          CST/00000000             CSTBLSIZE/00000003       CSTFLD/DPI
           CSTLOB/00000007          CSTYPE/0000000C          CS0LOC/03 00033          CS16LOC/03 00034
           CT/0000000E              CTELEMENTS/02 0014A      CTFLD/00001F00           CTLOB/00000017
           CTYPEFLD/003C0000        CTYPELOB/0000000D        DA#/00000046             DATA/02 0016B
           DATA#/00000008           DATAGEN/03 00009         DATA1/02 00177           DATA2/02 00178
           DATA3/02 00179           DATA4/02 0017C           DATA5/02 00181           DBLONE/02 00014
           DD%TYPE/04 00060         DDASV/04 0006C           DDCS/04 0006D            DDLRCS/03 0000B
           DDLRRS/03 0000D          DDLRVAL/03 0000F         DDNUM/04 0006E           DDREL/04 0006F
           DDRS/04 00070            DECET/60000000           DECLRNUM/03 00000        DEF/02 0018F
           DEF#/0000000F            DEFEXT/00400000          DEFFLD/0C000000          DEFGEN2/02 001DD
           DEFINE/02 001DF          DEFLBL/02 0029A          DEFLBLXIT/04 0004C       DEFLOB/00000005
           DEFLOC/02 002A5          DEFLOCXIT/04 00071       DEFLOC1/02 002AC         DEFLOC2/02 002AD
           DEFLOC3/02 002BA         DEFLOC4/02 002BE         DEFLOC5/02 002C0         DEFLOC6/02 002C9
           DEFLOC8/02 002CF         DEFSUB/02 001A2          DEFSUB1/02 001B2         DEF1/02 00190
           DEF10/02 001BF           DEF11/02 001C2           DEF12/02 001C5           DEF2/02 00193
           DEF3/02 0019E            DEF4/02 001A0            DEF7/02 001B7            DEF8/02 001BA
           DEF9/02 001BC            DELETE%DO/02 002D6       DESTIN/04 00072          DFNE/02 001F1
           DFNEXIT/04 0004D         DFNE1/02 001F2           DFNE10/02 0022D          DFNE11/02 00230
           DFNE12/02 00239          DFNE13/02 00252          DFNE14/02 0024B          DFNE16/02 0025F
           DFNE17/02 00269          DFNE18/02 00273          DFNE2/02 00228           DFNE20/02 00274
           DFNE21/02 0027E          DFNE22/02 0028A          DFNE23/02 00290          DFNE24/02 00294
           DFNE27/02 00275          DFNE3/02 00217           DFNE4/02 001F5           DFNE5/02 00212
           DFNE6/02 00202           DFNE7/02 0021C           DFNE8/02 00225           DFNE9/02 0022B
           DGPROC/02 00000          DIRBASE/02 00000         DIRTBL/02 00652          DISP/02 002E6
           DISP#/00000017           DISP1/02 002F0           DISP2/02 002F6           DISP3/02 002F8
           DISP4/02 002FD           DISP5/02 0030A           DISP6/02 00312           DLISTET/DPI
           DLRCS/03 0000A           DLRRS/03 0000C           DLRVAL/03 0000E          DO/02 00319
           DO#/00000018             DOCFLD/0000FFFF          DOCOUNT/03 00010         DOCT/00000006
           DOCWD/00000001           DODIR/00004018           DOIWD/00000001           DOLOC/03 00011
           DOOWD/00000002           DOPFLD/00FFFFFF          DOPWD/00000000           DOSKIP/02 0034D
           DOSKIPXIT/04 00073       DOSKP10/02 00351         DOSKP20/02 0035E         DOSLOB/00000007
           DOSWD/00000000           DO1/02 00365             DO1#/00000019            DO1CT/00000007
           DO1LBL/04 0004E          DPI/00180000             DPIET/DPI                DPIFLAG/04 00074
           DPIMASK/00190002         DSECT/02 0037D           DSECT#/0000001A          DSECT1/02 00385
           DSNUM/00000001           DSNUMFLD/DPI             DSNUMLOB/0000000C        DSTYPE/00000009
           DUPFLD/20000000          DUPLOB/00000002          EC/0000000E              ECSFLD/00007FFF
           ECSLOB/0000001F          ECT/00000002             ECTEXPR1/00000000        ECTEXPR2/FFFFFFFF
           ECTHW/04 00075           ECTORG/0000000C          ECTSAVE/04 00049         EDITDXIT/04 00076
           EDITXIT/04 00077         EDNFLD/00007FFF          EFLD/DPI                 ELEM/00000001
           ELSE/02 00397            ELSE#/0000000B           ELSEDIR/0000400B         ELSEFLG/03 00010
           ELSE1/02 003C1           ELSE2/02 003CE           ENC%/0000403C            ENC%%/0000403D
           ENCHOB/00008000          ENCITEM/0000FFFF         ENCLSSYM/0000A000        ENCLSYM/00006000
           ENCS:IFR/0000804A        ENCS:KEYS/00008051       ENCS:NUMC/0000804B       ENCS:PT/0000804C
           ENCS:UFV/0000804D        ENCS:UT/0000804E         ENCSCOR/00008052         ENCSMINT/0000C000
           ENCSSYM/00008000         ENCSYM/00004000          ENCTCOR/00008053         ENCTYPE1/00002000
           ENCTYPE2/00004000        ENCVFLD/000000FF         ENC0/0000C000            ENC1/0000C001
           END/02 003E6             END%ERR/02 003DB         END%ERR1/02 003DC        END#/00000007
           ENDADDR/04 0007D         ENDBUF/000020FF          ENDDIR/00004007          ENDEXP/00000004
           ENDLINE/00000000         ENDLIST/00000002         ENDORG/03 00030          ENDSBSYM/00000003
           ENDSSYM1/02 00B14        ENDSSYM4/02 00B2F        ENDSSYM5/02 00B31        ENDSSYM7/02 00B43
           END0/02 003F7            ENTER1/02 0040E          ENTEXIT/04 0007E         ENT1/02 00414
           ENT2/02 0041A            ENT3/02 0043A            ENT4/02 0041F            ENT5/02 00430
           ENT7/02 00426            ENT8/02 0042D            EQU/02 0043C             EQU#/0000001B
           EQUALOP/00000023         ER/0000000F              ERRD20/02 0044E          ERRD30/02 00455
           ERRD40/02 0047B          ERRD50/02 00480          ERROR/02 0043E           ERROR#/0000001C
           ERRSEV/04 0004A          ERRTRIG/03 00012         ETFLD/DPI                ETLOB/00000004
           ETSHIFT/0000001B         EV%CLN%OPRND/02 0094A                             EVALAR/02 00482
           EVALARXIT/04 00050       EVALAR1/02 0048F         EVALAR2/02 00490         EVALAR3/02 00491
           EVALPT/02 00493          EVALPTXIT/04 00050       EVALPT1/02 00499         EVALPT2/02 0049B
           EVALUATE%AND%CLEAN/02 0094B                       EVAL1EXP/02 0049E        EVAL1INT/02 004BD
           EVEXPXIT/04 0004F        EVT/00000001             EVTLOC/04 0003E          EV1OPRNDEXP/02 0049D
           EWD/00000003             EXP%ERR/02 00063         EXPET/DPI                EXPFLD/04000000
           EXPR%DEF/04 0007F        EXTET/28000000           EXTFLD/00C00000          EXTLOB/00000009
           EXTRACTCON/02 004C3      EXTRC1/02 004C9          EXTRC2/02 004CE          EXTRC3/02 004D0
           EXTRC4/02 004D1          EXTREF/00080000          E1INTXIT/04 00050        FCSFLD/1FC00000
           FCSLOB/00000009          FIN/02 00399             FIN#/0000000C            FINDIR/0000400C
           FINDLSPC/02 004D3        FINDSPC/02 004D8         FINDSPCXIT/03 00013      FINDSPC1/02 004DD
           FINDSPC2/02 004F6        FINDSPC3/02 004E9        FINDSPC4/02 004EE        FINDSPC5/02 004F0
           FINDSPC7/02 004FD        FINDSPC8/02 0050A        FIN1/02 003A4            FLAGWD/04 00074
           FLDCNT/04 00051          FLDPTR/04 00052          FLDPTRBSE/04 00080       FLDVAL/04 00081
           FLENGTH/04 00085         FLET/DPI                 FLTLONG/00140000         FLTSHORT/00100000
           FNAME/02 0050D           FNAME#/0000001D          FND/04 00086             FREEAFLD/0001FFFF
           FREELFLD/DPI             FREELIST/04 00087        FREELLOB/0000000E        FREESPC/02 0050F
           FREESPC1/02 00517        FREESPC2/02 00519        FREESPC3/02 00522        FREESPC4/02 00529
           FREESPC5/02 00534        FSET/78000000            FUNCET/DPI               FUNCNAME/00030000
           FWDNUM/03 00014          FXDEC/000C0000           FXET/70000000            GEN/02 0053F
           GEN#/0000001E            GENCOMXIT/04 00053       GENCOM1/02 0054B         GENCOM2/02 0055D
           GENCOM3/02 0056A         GENCOM5/02 00572         GENCOM6/02 0057B         GENCOM7/02 00583
           GENCOM8/02 00585         GENEXIT/04 00088         GENORCOM/02 00541        GENR/02 00643
           GENR1/02 0061B           GETPLOC/02 00587         GLBLADD/02 0058D         GLBLADD0/02 0058C
           GLBLADD1/02 00597        GLBLADD2/02 00599        GLBLAXIT/04 000BC        GOARG/02 005EC
           GOARG%1/02 005F2         GOSRCH/02 005C5          GOSRCH1/02 005D7         GOSRCH10/02 005D9
           GOSRCH20/02 005CB        GOSRCH30/02 005E8        GOTO/02 005A5            GOTO#/0000001F
           GOTOARG/04 00089         GOTO10/02 005AE          GOTO15/02 005AF          GOTO20/02 005B0
           GOTO30/02 005C4          HA#/00000044             HEXVAL/04 00079          HI%DIR/0000002C
           HI%INT%FUNC/00000053                              HI%PREFIX%FUNC/00000053
           HI%VAL%FUNC/00000050                              HVLENGTH/04 0008A        I:#/00000053
           IFFLD/DPI                IGNRLST/00000001         IN/04 0003E              INBASE/04 0003F
           INBUF/EXT                INDICWD/04 0003F         INITORG/03 00000         INITORG1/03 00009
           INTET/58000000           IOADD/00000008           IORL/0000000A            IOSIZE/00000009
           KEYERR/02 00DB4          KLINE/03 00035           L#/0000004F              LABELLOC/04 0008B
           LARG/04 0008C            LARGR/0000000A           LAST/04 0008D            LASTCS/03 00015
           LASTVAL/03 00016         LBL/00000003             LBX/00000006             LCLADD1/02 00736
           LCLADD2/02 00739         LCLADD3/02 00742         LCLDLTE1/02 00601        LCLDLTE2/02 0060B
           LCLDLTE3/02 00608        LCLDLXIT/04 0008E        LCLFWD/000C0000          LCLFWDET/30000000
           LCLFWDHD/00100000        LCLSBSYM/0000A000        LCLSTA1/02 0074B         LCLSTA2/02 00757
           LCLSTA3/02 00759         LENGTHFLD/00007FFF       LENGTH1/02 0060F         LENGTH2/02 00611
           LENGTH3/02 00618         LESSOP/00000028          LF#/00000041             LFLD/000000FF
           LFND/04 0008F            LFSSYM/00008041          LFSUMSZ/04 00090         LFSYM/00004041
           LFWDFLG/04 0005D         LFWDHET/38000000         LINE/02 0061E            LINE%1/02 00621
           LINE%2/02 00625          LINENUM/02 00680         LINENUMXIT/04 00091      LINENUM1/02 00681
           LINENUM2/02 0068C        LINENUM3/02 00691        LINENUM4/02 00692        LINENUM5/02 00695
           LINENUM6/02 006A0        LINEORG/04 00092         LINESKIP/02 006A2        LINEXIT/04 00091
           LINE10/02 0063D          LINE2/02 00648           LINE3/02 0064C           LINE5/02 00642
           LIST/02 006B7            LIST#/00000020           LISTCT/04 00097          LISTET/DPI
           LISTFLD/00000002         LISTLOB/0000001E         LISTS/00008000           LISTSUB/02 006C4
           LISTXIT/04 00050         LITCS/03 00001           LITERROR/02 00B0C        LITFLAG/04 0005E
           LITORG/03 00002          LITSRCHXIT/04 00093      LITSRCH1/02 006DC        LITSRCH2/02 006E5
           LITSRCH3/02 006E8        LITSRCH4/02 006EA        LITSRCH5/02 006F1        LITSRCH6/02 00703
           LITSRCH7/02 00707        LITSRCH8/02 0070D        LITTABLE/03 00003        LNGTH1/00000001
           LNGTH2/00000002          LNGTH3/00000003          LNSKP1/02 006AA          LNSKP4/02 006A7
           LNSKP5/02 006A6          LO%INT%FUNC/0000003B                              LO%PREFIX%FUNC/0000004F
           LO%VAL%FUNC/00000043                              LOADXWRTN/04 00094       LOADXW1/02 00719
           LOADXW2/02 0071F         LOBFLD/DPI               LOC/02 00721             LOC#/00000021
           LOCAL/02 0072A           LOCAL#/00000002          LOCALADD/02 0072C        LOCALCT/00000009
           LOCALCTFLD/DPI           LOCALDIR/00004002        LOCALFLG/03 00017        LOCALORG/00000009
           LOCALORGFLD/00FFFFFF                              LOCALSTA/02 00744        LOCALSYM/00006000
           LOCALXIT/04 00095        LOCFLD/0001FFFF          LOC1/02 00722            LOLIMIT/02 0075C
           LOWD/00000008            LPTR/04 00041            LPTRFLD/0000FFFF         LPTRLOB/0000001F
           LSRCH/02 00761           LSRCHXIT/04 00096        LSRCH1/02 0076C          LSRCH2/02 00779
           LSRCH3/02 0077A          LSSYM/0000804F           LSTCT/04 00097           LSTLVL/04 00041
           LVAL/04 0003E            LVL/00000003             LVLSIZE/0000000D         LVLT/00000006
           MAIN/04 00098            MAJERRFLD/00FFFFFF       MAJERRLN/03 00018        MATCHES/04 00043
           MAXCSECT/03 00019        MAXDD/00000001           MAXDDFLD/0007FFFF        MAXLOCXIT/04 00099
           MAXPREF/0000001F         MAXSEV/03 0001A          MAXX/04 00042            MINUSOP/00000029
           MOVEBLANK/02 00790       MOVESYMITEM/02 00796                              MOVESYMXIT/04 0009A
           MULTINT/0000E000         MV:LIST/02 00787         MVSYM1/02 00798          NAME#/00000042
           NAMELINK/03 0001B        NAMELOC/0000000B         NAMENUM/03 00004         NAMESSYM/00008042
           NAMESYM/00004042         NBYTES/00000008          NCDITEM/04 0009B         NCLEARS/00000030
           NCLEARS1/00000027        NERRS/03 0001C           NEWCSECT/02 0079F        NEWCSXIT/04 0009C
           NEWCS1/02 007A6          NEWCS2/02 007AB          NEWCS4/02 007B5          NEWCS6/02 007B7
           NEWCS7/02 007B8          NEWENTRY/02 007C9        NEWENT1/02 007CB         NEWENT2/02 007CD
           NEXT%TEXT/02 00DE0       NEXTXW/04 00054          NLITS/03 00005           NOBYTES/04 0009D
           NOLIST/03 0001D          NOTDO1/02 007D1          NOWORDS/04 0009E         NSAVES/0000001D
           NUM#/00000049            NUMCINTRINSIC/02 00B61                            NUMCSS1/02 00B65
           NUMCSS2/02 00B69         NUMINTRINSIC/02 00B4F                             NUMINT1/02 00B5A
           NUMSSYM/00008049         NXT%TXT1/02 00DF2        NXT%TXT2/02 00DF8        NXTL/00000004
           NXTLOCAL/04 0009F        NXTRCRD1/02 007DF        NXTSYMT/04 000A0         OFFSET/04 000A1
           OFFSETFLD/003FFFFF       OFFSETLOB/0000001F       OLDCSXIT/04 000A2        ONEWDADD/00140000
           OPEN/02 00642            OPEN#/00000003           OPENDIR/00004003         OPER/04 000A3
           OPRND/00000005           OPRNDORG/04 00055        ORG/02 007EC             ORG#/00000022
           ORGLOCXIT/04 00053       ORGLOC10/02 0081B        ORGLOC4/02 00821         ORGLOC5/02 0080D
           ORGLOC6/02 00820         ORGLOC7/02 00822         ORGLOC8/02 00813         ORGORLOC/02 007F4
           ORIGXIT/04 000A4         OUTBASE/04 00040         PAGE/02 00824            PAGE#/0000000D
           PAGE1/02 00825           PARTICBASE/DPI           PARTICRTN/04 0004C       PARWD/04 00044
           PASS/03 00006            PASSDEF/04 000A5         PATCH/04 00000           PCC/02 0082A
           PCC#/0000000E            PCCSUB/02 00831          PCCTRIG/03 0001E         PCCTRIGFLD/00000010
           PCCTRIGLOB/0000001B      PCCXIT/04 00099          PCC1/02 0082F            PEND/02 0083A
           PEND#/00000006           PENDDIR/00004006         PEND1/02 00842           PEND2/02 00848
           PEND3/02 00843           PEND4/02 0084E           PEND5/02 00852           PEND6/02 0085A
           PKDEC/00040000           PLOC/00000000            PLOCFLD/00FFFFFF         PLUSOP/0000002A
           PLVL/04 000A6            PLVLLOB/00000017         PPLVL/04 00056           PRESENCE/04 00040
           PRINTXIT/04 0008E        PROC/02 00864            PROC#/00000005           PROCCOUNT/03 0001F
           PROCDIR/00004005         PROCLOC/04 000A7         PROCLV/03 00020          PROCREF/03 00021
           PROTYPE/04 000A8         PSECT/02 00882           PSECT#/00000023          PSR/02 00884
           PSR#/00000012            PSRTRIG/03 00022         PSTRIG/03 00023          PSTRIGFLD/00000001
           PSTRIGLOB/0000001F       PSTYPE/0000001E          PSYS/02 00887            PSYS#/00000024
           PT/00000000              PTFLD/00C00000           PTLOB/00000009           PUT1/02 0088A
           REF/02 00892             REF#/00000010            REFADD/04 000A9          REFEXT/00800000
           REFORSREF/00800000       REF1/02 00893            RELOFLD/02000000         REPEAT/0000000F
           RES/02 00898             RES#/00000025            RES0/02 008A0            RES1/02 008A1
           RES2/02 008A5            RL/00000007              RNG%INT%FUNC#/02 00002
           RNG%LOC%CTR/02 00004                              RNG%PREFIX%FUNC/02 00006
           RNG%STD%FUNC/02 00008                             RNG%TCOR%SYM/02 0000A
           RNG%VAL%FUNC/02 0000C                             RPTR/04 00045            RSFLD/00300000
           RSLOB/0000000B           RTSUMSZ/04 000AA         RVAL/04 00042            R8/00000008
           R9/00000009              S:AAD#/0000002D          S:AADSYM/0000402D        S:C#/0000002E
           S:CSYM/0000402E          S:D#/0000002F            S:DPI#/00000030          S:DPISYM/00004030
           S:DSYM/0000402F          S:EXT#/00000031          S:EXTSYM/00004031        S:FL#/00000032
           S:FLSYM/00004032         S:FR#/00000033           S:FRSYM/00004033         S:FS#/00000034
           S:FSSYM/00004034         S:FX#/00000035           S:FXSYM/00004035         S:IFR#/0000004A
           S:INT#/00000036          S:INTSYM/00004036        S:IVAL#/0000003B         S:KEYS#/00000051
           S:KEYS10/02 00D2A        S:KEYS20/02 00D31        S:KEYS21/02 00D6A        S:KEYS22/02 00D73
           S:KEYS23/02 00DB8        S:KEYS30/02 00D38        S:KEYS31/02 00D87        S:KEYS40/02 00D3C
           S:KEYS41/02 00D40        S:KEYS50/02 00D42        S:KEYS60/02 00D5A        S:KEYS69/02 00D92
           S:KEYS70/02 00D90        S:KEYS71/02 00D98        S:KEYS72/02 00D9C        S:KEYS74/02 00DAE
           S:KEYS76/02 00DB2        S:LFR#/00000037          S:LFRSYM/00004037        S:LIST#/00000038
           S:LISTSYM/00004038       S:NUMC#/0000004B         S:PT#/0000004C           S:PTSETUP/02 00DCF
           S:RAD#/00000039          S:RADSYM/00004039        S:S/FUNC                 S:SIN/02 008A8
           S:SIN#/00000026          S:SINCOMT/00080000       S:SINREF/02 008C6        S:SIN0/02 008BA
           S:SIN1/02 008C2          S:SIN2/02 008B1          S:SIN3/02 008B3          S:SUM#/0000003A
           S:SUMSYM/0000403A        S:UFV#/0000004D          S:UT#/0000004E           SAMP/00000008
           SAMPLIN/02 008DC         SAMPL1/02 008E8          SAMPL10/02 008ED         SAMPL2/02 008EA
           SAMPL20/02 008EF         SAVDLR/00000000          SAVDLRFLD/000FFFFF       SAVELVL/04 000AB
           SAVEORG/04 00048         SAVEXR/04 00057          SAVEXT/04 000AC          SAVEXW/04 00058
           SBLBLSYM/04 00056        SBSYM/00008000           SCADDSUM/02 00F29        SCADSM20/02 00F4B
           SCADSM23/02 00F4F        SCADSM25/02 00F52        SCADSM3/02 00F44         SCADSM30/02 00F55
           SCADSM31/02 00F58        SCADSM33/02 00F5A        SCADSM40/02 00F3F        SCADSM50/02 00F5F
           SCADSM60/02 00F61        SCADSM70/02 00F63        SCADSM80/02 00F6D        SCANEXIT/04 00059
           SCANOPRND/02 0094A       SCANXS/04 0005F          SCAN1/02 0094D           SCAN2/02 0094E
           SCARG/04 0005C           SCBEGINEXP/02 00AC4      SCBLNK/02 0096F          SCBLNKSYM/02 009E4
           SCCMPSM1/02 00F84        SCCMPSM3/02 00F7D        SCCMPSUM/02 00F76        SCCON/02 00A9E
           SCCON5/02 00AA6          SCCS/02 00B74            SCDEL1/02 00CEE          SCDIR/02 00F27
           SCENDEXP/02 00AB7        SCENDLIST/02 00AFD       SCENDSSYM/02 00B10       SCGSSYM/02 00972
           SCGSYM/02 00993          SCGSYM1/02 00998         SCGSYM2/02 00996         SCINT/02 00A06
           SCLITF/02 00A7C          SCLOOP/02 00957          SCLOOP25/02 00960        SCLOOP30/02 00966
           SCLOOP35/02 00967        SCLOOP40/02 00FB9        SCLSSYM/02 00986         SCLSYM/02 009A0
           SCLSYM1/02 009AF         SCLSYM7/02 009B8         SCLVL/04 0005B           SCMAP/02 00ECC
           SCMAPAB/02 00F27         SCMAPADD/02 00F1E        SCMAPBL/02 00EE1         SCMAPD/02 00EEF
           SCMAPDPI/02 00EE5        SCMAPERR/02 00EE0        SCMAPEXT/02 00F09        SCMAPFL/02 00EE7
           SCMAPFS/02 00EEB         SCMAPFX/02 00EEB         SCMAPI/02 00EEB          SCMAPLF/02 00F09
           SCMAPSPA/02 00F15        SCMAPSPI/02 00EDC        SCMAPSUM/02 00F13        SCMAPTXT/02 00EFA
           SCMAPTX2/02 00F01        SCMAPU/02 00ED9          SCMAPU1/02 00EDA         SCMAP1/02 00EDD
           SCMAP2/02 00EDE          SCMAP3/02 00EE3          SCMAP4/02 00F0B          SCNOLIST/02 00D00
           SCOPAND/02 00E70         SCOPCQ/02 00E8C          SCOPDPI/02 00E49         SCOPDVD/02 00E92
           SCOPEND/02 00E41         SCOPEND1/02 00E43        SCOPEND2/02 00E52        SCOPEND3/02 00E58
           SCOPEOR/02 00E6D         SCOPEQ/02 00E73          SCOPG/02 00E80           SCOPGE/02 00E7A
           SCOPL/02 00E83           SCOPLE/02 00E7D          SCOPMLT/02 00E98         SCOPMNS/02 00E86
           SCOPMNS1/02 00E87        SCOPNE/02 00E77          SCOPOR/02 00E6A          SCOPPLS/02 00E8A
           SCOPPRC/02 00E63         SCOPSHFT/02 00E9D        SCOPSMI/02 00E5E         SCOPSPI/02 00E5A
           SCOPTRUE/02 00E75        SCOP1/02 00E1D           SCOP2/02 00E2F           SCOP3/02 00E32
           SCOP4/02 00E3B           SCOP5/02 00E3F           SCOP6/02 00E40           SCOR#/00000052
           SCPPRTN/04 000AD         SCPSHC/02 00EA7          SCPSHV/02 00EB0          SCPSHV1/02 00EB7
           SCPULL/02 00EBD          SCPUSH/02 00EA3          SCPUSHTX1/02 00F71       SCRESTORE/02 00D0A
           SCRESTOREXIT/04 000BC                             SCRESTORE1/02 00D0E      SCRET/02 00FBC
           SCRET3/02 00FC7          SCRS/02 00B9A            SCRSRTN/04 000AE         SCS:KEYS/02 00D13
           SCS:PT/02 00C6F          SCS:PT%JOIN/02 00C91                              SCS:PT1/02 00C71
           SCS:PT10/02 00C9B        SCS:PT2/02 00C7C         SCS:PT3/02 00C8E         SCS:PT4/02 00C76
           SCS:PT5/02 00C82         SCS:PT6/02 00C89         SCS:UT/02 00C5A          SCS:UT1/02 00C5B
           SCS:UT2/02 00C67         SCS:UT3/02 00C6D         SCS:UT4/02 00C6A         SCS:UT6/02 00C5F
           SCSAVE/02 00D05          SCSCOR/02 00A7F          SCSCOR10/02 00A9A        SCSCOR11/02 00A9B
           SCSCOR3/02 00A85         SCSCOR5/02 00A90         SCSCOR7/02 00A98         SCSCOR9/02 00A96
           SCSETUPR/02 00EC3        SCSINT/02 0098D          SCSINT1/02 0098F         SCSINT3/02 00990
           SCSQESUM/02 00F8B        SCSQSM3/02 00F96         SCSQSM5/02 00FB0         SCSYML1/02 009D9
           SCTCOR/02 00CA2          SCTCOR%BASE/02 00CCF                              SCTCOR%JMP/02 00CE4
           SCTCOR%TBL/02 00CE9      SCTCOR1/02 00CA4         SCTCOR10/02 00CCF        SCTCOR20/02 00CD0
           SCTCOR25/02 00CD1        SCTCOR30/02 00CD6        SCTCOR4/02 00CBB         SCTCOR40/02 00CDA
           SCTCOR5/02 00CC0         SCTCOR50/02 00CDF        SCTCOR60/02 00CE3        SCTCOR7/02 00CC5
           SCTCOR8/02 00CCC         SCTCOR9/02 00CCD         SCUND/02 009C1           SCUNDGLBL/02 009BA
           SCUNDSYM/02 0096E        SC1%BASE/02 0096C        SC1%JUMP/02 0096C        SC2%BASE/02 009A0
           SC2%JUMP/02 00A01        SC3%BASE/02 00AAA        SC3%JUMP/02 00AAA        SC4%BASE/02 00E6A
           SC4%JUMP/02 00E66        SC5%BASE/02 00ED9        SC5%JUMP/02 00ED4        SC6%BASE/02 00A7C
           SC6%JUMP/02 0098A        SC7%BASE/02 00AD0        SC7%JUMP/02 00B48        SD%TYPE/04 000AF
           SDHEXC/00000030          SDINSTC/00000000         SDTEXTC/00000038         SDTLOB/0000001C
           SDTT/03 00036            SET/02 00FC9             SET%PARTIC%FLAG/02 00945
           SET%SF/02 00FE8          SET%SKIP%TRIG/02 00870                            SET#/00000027
           SETDLRS/02 00FF1         SETFLD/10000000          SETLABEL/02 00FFA        SETLOB/00000003
           SETSKIPTRIG/02 000EF                              SETVALUE/04 00062        SET1/02 00FCA
           SET2/02 00FDA            SET3/02 00FE5            SET4/02 00FDC            SF/03 00024
           SIMPADD/00000000         SINADDR/02 01061         SINAST/02 0105D          SINBASE/02 01016
           SINBROP/02 01062         SINCOUNT/00000003        SINIMOP/02 01063         SINIMVAL/02 01064
           SININDEX/02 01060        SINOP/02 01002           SINOPCODE/02 0105E       SINREF2/02 008D3
           SINREG/02 0105F          SINSUB/02 01008          SINSUBXIT/04 0004F       SINSUB1/02 01013
           SINSUB2/02 01011         SINTABLE/02 008DB        SINTFLD/03C00000         SINTLOB/00000009
           SIN0/02 01016            SIN0FLDCT/00000005       SIN0FLDS/02 01039        SIN01/02 0101A
           SIN02/02 01025           SIN03/02 0102C           SIN04/02 01034           SIN1/02 0103E
           SIN1FLDCT/00000004       SIN1FLDS/02 01047        SIN2/02 0104B            SIN2FLDCT/00000003
           SIN2FLDS/02 0105A        SIN20/02 01052           SIN21/02 01053           SKEYS1/02 00D4E
           SKEYS20/02 00D66         SKEYS3/02 00D7B          SKEYS4/02 00D6B          SKEYS5/02 00DC1
           SKEYS6/02 00DC7          SKGLF1XIT/04 000B0       SKIPCMND/02 0107D        SKIPGETLF1/02 01065
           SKIPINIT/02 01076        SKIPLABEL/02 0107D       SKIPTRIG/03 00025        SKPCMND1/02 0107E
           SKPCMND2/02 01084        SKPCMND3/02 01087        SMINT/0000C000           SMIUPBND/02 00012
           SMPRCD/03 00026          SMPWD/03 00027           SOCW/02 0108C            SOCW%CHK/02 010AB
           SOCW%FLG/03 00007        SOCW#/0000000A           SOCW2LAT/03 00008        SOURCE/04 000B1
           SOURCEONLY/03 00028      SOURCEX/03 00029         SPACE/02 010B3           SPACE#/00000028
           SPACE1/02 010B7          SPACE2/02 010BA          SPACE5/02 010C3          SPADDRET/08000000
           SPAFLD/DPI               SPALOB/00000000          SPCD1/02 010EE           SPCD10/02 010FA
           SPCD20/02 010F8          SPCD5/02 010F0           SPCONFLD/40000000        SPEC%TEXT%ITEM/02 00DFB
           SPEC%TEXT%1/02 00E07                              SPEC%TEXT%2/02 00E0B
           SPECDIR/02 010C7         SPEXTET/10000000         SPI/00000000             SPILWBND/02 0000E
           SPIMASK/00010002         SPINT/DPI                SPINT%ET/48000000        SPINTET/48000000
           SPINTFLD/40000000        SPINTLOB/00000001        SPITEMP/04 000B2         SPIUPBND/02 00010
           SRCLCLFD/02 01101        SRCLCL1/02 01109         SREF/02 0110B            SREF#/00000011
           SREFEXT/00C00000         SSYMA1/02 00B3C          SSYMA2/02 00B3F          SSYMFUNC/02 00A5C
           SSYMFUNC1/02 00A5D       STACKSPI/02 0110D        STO/00000001             STORESAMP/03 0002A
           STYPEFLD/001C0000        STYPELOB/0000000D        SUB#/04 000B3            SUBERRLN/03 0002B
           SUBLOC/04 000B4          SUBSYMET/DPI             SUM%FLAG/04 000B5        SUMET/20000000
           SYMBOL/00018000          SYMFUNC/02 00A57         SYMFUNC1/02 00A58        SYMFUNC2/02 00A62
           SYMLIST/02 009CF         SYMT/03 00037            SYMTBASE/40000000        SYNERR/0000000A
           SYSCOUNT/03 0002C        SYSEND/02 01125          SYSEND1/02 0112A         SYSEXIT/04 00099
           SYSLVL/0000000A          SYSSUB/02 01130          SYSTEM/02 01138          SYSTEM#/00000004
           SYSTEMDIR/00004004       SYSTEM2/02 01145         SYSTEM3/02 0114C         SYSTEM4/02 0114E
           SYSTYPEFLD/00001C00      SYSTYPELOB/00000015      TCOR#/00000053           TCORFLG/03 0002D
           TEMP/04 00046            TEMPO/04 00061           TEMP1/04 00047           TEXT/02 01151
           TEXT%ITEM/02 00DD9       TEXT#/00000029           TEXTC/02 01153           TEXTC#/0000002A
           TEXTCT/03 0002E          TEXTC1/02 01154          TEXTC2/02 01160          TEXTC3/02 01167
           TEXTET/68000000          TEXTEXIT/04 000B6        TEXTGEN/02 01172         TEXTGEN1/02 01179
           TEXTGEN2/02 0118A        TEXTGEN3/02 0118F        TEXTGEN4/02 01193        TEXTGEN5/02 0119A
           TEXTGEN6/02 011A2        TEXTGEN7/02 011A4        TEXTGEN8/02 011AC        TEXTGEN9/02 011AE
           TEXTMRGE/02 01170        TFLD/0000E000            TITLE/02 011B0           TITLE#/0000002B
           TITLENUM/03 0002F        TITLEPG/00000018  S      TLOB/00000012            TMP/00000006
           TOTALCT/04 000B7         TRUNERR/00000009         TR0/00000008             TR1/00000009
           TXTCTFLD/7FFF0000        TXTCTLOB/0000000F        TXTCTWD/00000003         TXTFLG/04 00062
           TX1/04 000B8             TX2/04 000B9             TYPEFLD/00038000         TYPELOB/00000010
           T1/0000000B              T2/0000000C              T3/0000000D              UFVINTRINSIC/02 00C39
           UFVINT1/02 00C4E         UFVINT2/02 00C41         UFVINT3/02 00C54         UGLBLET/00000000
           UNDITM/DPI               USECT/02 011C5           USECT#/0000002C          V%B/02 00ACB
           V%C/02 00AD0             V%C%3/02 009C7           V%C%4/02 00AF5           V%C%5/02 00AEF
           V%C%6/02 00AED           V%C%7/02 00AF4           V%E/02 00B6D             V%F/02 00B96
           V%OPERATOR/02 00E0D      V%0/02 00AB0             V%01/02 00AB5            V%10/02 00B96
           V%11/02 00B96            V%12/02 00B96            V%13/02 00C0C            V%13%1/02 00C2B
           V%14/02 00AF9            V%15/02 00AFB            V%4/02 00AB6             V%8/02 00AC2
           V%9/02 00AC7             VALCNT/04 00063          VALFLD/003FFFFF          VALPTR/04 00064
           VFLD/00001FFF            WA#/00000045             WDRES/02000000           WDRS/00000002
           XM/00000001              XMBASE/04 000BB          XR/00000006              XS/00000001
           XT/00000004              XT1/00000005             XT2/00000006             XT3/00000007
           XW/00000002              XWBASE/04 000BA          ZERO/02 00000            1ARG/04 0005A
           1ELEM%1/02 009E8         1ELEM%2/02 009EF         1ELEMENT%TEST/02 009E7
           1ELEMXIT/04 000BC        1STDEF/03 00038          1WDADDET/40000000        3WDSUM/00058003
           %%#/0000003D             %#/0000003C              %1000/02 00A72           %45/02 009BE
           %55/02 009C3             %75/02 009CB             %84/02 00A25             #ELEM/04 000BD
  *    EXTERNAL DEFINITIONS
           BOBUF/04 00020           BOUND4/02 00065          DEFGEN/02 001DC          DEFHEXLBL/02 00298
           DEFINE2/02 00201         DELETEXP/02 002DF        DG/02 00000              DGD/04 00000
           GETPLOC1/02 00588        LCLDLTE/02 005F9         LENGTH/02 0060D          LINE%FLDS/02 0066B
           LITSRCH/02 006CB         LOADXM/02 00714          LOADXW/02 00717          MAXLOC/02 0077E
           NXTRECRD/02 007D7        OLDCSECT/02 007E1        SCAN/02 0094B            SUBVAL/02 01115
           XAPDATA/04 00000         XAPD1/03 00000
  *    PRIMARY REFERENCES
           ABORT          ADJKLINE       ADV%ITM        AEDIT          BEDIT          BLANC          BO%FLAG
           BO%SIZE        CERR           DERR           EDIT           EDITDDLR       EDITDLR        EDITV
           EDITV1         EERR           GENERATE       GENERATE1      GENERATE2      GETCSADD       HILIMIT
           HILIMIT4       IERR           KERR           LERR           LOADABS        LSTBF          MAJLINE
           ORIGIN         PARTIC         PGLINES        POSITIONSTD    POSITIONX1     PRINT          PRINTC
           PRINTC1        PRINTC2        RD%STD         READSTD        READX1         ROOTRTN        SD%FLAG
           SERR           SUBLINE        SYSLEVEL       SYSNAME        TERR           TITLEBUF       TYPE
           UERR           X1BUF
  * NO SECONDARY REFERENCES
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
