BANNER TELEFILE,AP H00,APDGCOM.
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      CCCCCCCCCCC      OOOOOOOOOOO     MM         MM
AAAAAAAAAAAAA    PPPPPPPPPPPPP    DDDDDDDDDDDD     GGGGGGGGGGGGG    CCCCCCCCCCCCC    OOOOOOOOOOOOO    MMM       MMM
AA         AA    PP         PP    DD         DD    GG         GG    CC         CC    OO         OO    MMMM     MMMM
AA         AA    PP         PP    DD         DD    GG         GG    CC               OO         OO    MM MM   MM MM
AA         AA    PP         PP    DD         DD    GG               CC               OO         OO    MM  MM MM  MM
AAAAAAAAAAAAA    PPPPPPPPPPPPP    DD         DD    GG               CC               OO         OO    MM   MMM   MM
AAAAAAAAAAAAA    PPPPPPPPPPPP     DD         DD    GG      GGGG     CC               OO         OO    MM    M    MM
AA         AA    PP               DD         DD    GG      GGGGG    CC               OO         OO    MM         MM
AA         AA    PP               DD         DD    GG         GG    CC               OO         OO    MM         MM
AA         AA    PP               DD         DD    GG        GGG    CC         CC    OO         OO    MM         MM
AA         AA    PP               DDDDDDDDDDDD     GGGGGGGGGGGGG    CCCCCCCCCCCCC    OOOOOOOOOOOOO    MM         MM
AA         AA    PP               DDDDDDDDDDD       GGGGGGGGG GG     CCCCCCCCCCC      OOOOOOOOOOO     MM         MM




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      CCCCCCCCCCC      OOOOOOOOOOO     MM         MM
AAAAAAAAAAAAA    PPPPPPPPPPPPP    DDDDDDDDDDDD     GGGGGGGGGGGGG    CCCCCCCCCCCCC    OOOOOOOOOOOOO    MMM       MMM
AA         AA    PP         PP    DD         DD    GG         GG    CC         CC    OO         OO    MMMM     MMMM
AA         AA    PP         PP    DD         DD    GG         GG    CC               OO         OO    MM MM   MM MM
AA         AA    PP         PP    DD         DD    GG               CC               OO         OO    MM  MM MM  MM
AAAAAAAAAAAAA    PPPPPPPPPPPPP    DD         DD    GG               CC               OO         OO    MM   MMM   MM
AAAAAAAAAAAAA    PPPPPPPPPPPP     DD         DD    GG      GGGG     CC               OO         OO    MM    M    MM
AA         AA    PP               DD         DD    GG      GGGGG    CC               OO         OO    MM         MM
AA         AA    PP               DD         DD    GG         GG    CC               OO         OO    MM         MM
AA         AA    PP               DD         DD    GG        GGG    CC         CC    OO         OO    MM         MM
AA         AA    PP               DDDDDDDDDDDD     GGGGGGGGGGGGG    CCCCCCCCCCCCC    OOOOOOOOOOOOO    MM         MM
AA         AA    PP               DDDDDDDDDDD       GGGGGGGGG GG     CCCCCCCCCCC      OOOOOOOOOOO     MM         MM




ASSIGN M:CI,(FILE,CI:APDGCOM,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APDGCOM,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    ABORT
             71/REF
    ABORT1
           1531/ABORT
    ABORT2
           2003/ABORT
    ACON
            111-RES       1356/CALL      1368/CALL      1376/CALL      1747/CALL
    ACONVAL
            114/STW        116/STW        117/LI         185/LI         190/STW        206/LI         218/LI
            369/STW        372/LI        1145/STW       1150/STH       1152/LI        1161/STW       1233/STW
           1251/STW       1306/STW       1363/STW       1367/LW        1374/LW        1411/STB       1611/AND
           1640/LI        1642/STW       1663/LI        1670/LI
    ADDCON
            115/LI         121-EQU
    ADDFLD
            531/LV         856/LV        1231/LV        1256/LV
    ADDRET
           1607/CV        1757/LV
    ADFLD
           1279/BFZ       1329/BFZ
    AEDIT
             35/DEF        134-RES        139/BDR        593/CALL      1874/CALL
    AF
            504/COM        596/COM        667/COM        667/COM       1115/COM       1418/COM
    ARFLD
           1284/AND       1336/LV
    ARG
            488/STW        496/LW*        501/LW         839/STW        855/LW*        878/LW*        883/MTW
            884/LW*        888/LW*        898/LW*        903/LW         924/LW         931/MTW        932/LW*
            939/MTW        940/LW*        961/MTW        964/LB*        978/LB*       1198/STW       1200/LW*
           1222/LW*       1238/LW*       1239/MTW       1240/LW*       1255/LW*       1266/LW*       1303/LS*
           1304/MTW       1305/LW*       1310/MTW       1311/LW*       1326/MTW       1327/LW*       1382/LW*
           1388/LW*       1395/MTW       1396/LW*       1400/MTW       1401/LB*       1410/LB*
    ARLOB
            544/SHIFT     1285/SHIFT     1338/SHIFT
    ASTFLD
            867/BFZ
    ASV
            167-RES       1296/CALL      1349/CALL      1369/CALL      1759/CALL
    ASVCNT
            810/STW        985/MTW       1177/MTW       1196/MTW
    BA
            117/LI         185/LI         206/LI         218/LI         372/LI         591/AI         596/COM
            596/COM        740/LI        1152/LI        1640/LI        1663/LI        1670/LI        1703/LI
           1742/LI        1872/LI
    BEDIT
             36/DEF        252/BEZ        255/B          259/BEZ        266/BEZ        273-RES       1744/CALL
    BEDIT%SC
            264-RES       1704/B
    BEDIT%SCE
            257-RES       1643/B
    BEDIT%SE
            119/B          191/B          250-RES        374/B          742/B         1153/CALL
    BEDIT3
            277-RES        321/BDR
    BEDIT4
             37/DEF        282-RES
    BEDIT5
            304/BEZ        307-RES
    BEDIT6
            293-RES        296/BDR
    BEDIT7
            301/BEZ        305-RES
    BEDIT8
            280/BL         316-RES
    BLANC
             72/REF       1788/CW
    BLANKET
           1986/LV
    BO%FLAG
             73/REF        274/LW         300/MTW
    BOBUF
            288/STH        289/MTB        292/LB         294/LB         298/STB        318/STB
    BOCT
            278/LW         283/STW        313/LW         314/STW        320/MTW
    BOMAX
            279/CW
    BYX3SIZE
             74/REF       1814/LI        1827/LI
    CCFLD
            576/BFNZ
    CERR
             38/DEF        669-RES
    CHCKTRUN
           1019/CALL      1067/CALL      1086/CALL      1098-RES
    CKTRUN1
           1081/CALL      1102/BNE       1106-RES
    CLRLSTBF
             75/REF       1944/CALL
    CODE
            371/STW        394/LW        1213/STW       1623/STW
    CODEWD
           1622/LB        1673-RES
    CSBASE
           1228/AW        1246/AW        1275/AW        1346/AW        1751/AW
    CSFLD
            533/LV         858/BFZ       1223/LV
    CSLOB
            535/SHIFT     1225/SHIFT
    CSTBLSIZE
           1461/MI        1463/CI        1465/AI
    CS0LOC
           1468/AW
    CS16LOC
           1466/AW
    CTCHRS
             39/DEF        337-RES       1886/CALL
    CTCHRS1
            339-RES        342/BGE
    CTYPEFLD
           1991/AND
    CTYPELOB
           1992/AW
    DATAGEN
            798/AWM
    DD%TYPE
            172/LW         588/LW         841/STW       1108/CW        1202/LW        1270/LW        1341/LW
           1604/LW        1620/LW        1633/LW        1649/LW        1758/STW       2000/STW
    DDASV
            168/LW         212/MTW       1261/STW       1282/STW       1332/STW       1597/MTW       1756/STW
    DDCS
            401/LW        1226/STW       1244/STW
    DDLRCS
           1733/LW        1748/LW
    DDLRVAL
            436/AW         437/STW        803/AWM       1595/AND       1730/LW        1745/LW
    DDNUM
            188/AW         194/MTW       1230/STW       1248/STW       1258/STW       1269/STW       1273/LW
           1276/STW       1335/STW       1344/LW        1347/STW       1627/LW        1656/LW        1662/AW
           1669/AW        1753/STW
    DDREL
           1292/MTW       1615/STW       1619/STW
    DDRS
            170/AW        1286/STW       1339/STW       1365/STW       1600/AW        1624/LW        1647/LW
           1755/STW
    DEDIT
             76/REF        469/CALL       559/CALL      1855/CALL      1878/CALL      1889/CALL
    DEFFLD
           1958/BFZ
    DERR
             40/DEF        672-RES
    DFNFLD
            363-RES       1295/CALL      1324/CALL
    DGCOMP
             33-CSECT       41/DEF         95/USECT
    DGWRITELO
             77/REF       1938/BAL
    DLRCS
            402/CW         456/LW         797/LW
    DLRVAL
            435/AWM        462/LW         802/AWM
    DMSG
            610/EM         624-TEXT
    DPIMSG
            615/EM         629-TEXT
    EC
            667/COM        700/CB         702/STB        704/SLS        711/STB        713/CB         716/LB
            719/STB        725/LB
    EDIT
             42/DEF        388-RES       1215/CALL
    EDITDDLR
             43/DEF        445-RES
    EDITDLR
             44/DEF        392/CALL       451-RES
    EDITDXIT
            454/STW        455/LB         461/LB         470/B*         495/STW        560/B*         573/B*
            594/B*
    EDITV
             45/DEF        484-RES
    EDITVAL
            489-RES
    EDITVJMP
            502/B          504/COM        528-RES
    EDITVMSG
            591/AI         596/COM        620-RES
    EDITVMSGTBL
            590/LB         597-RES
    EDITVTBL
            499/LB         505-RES
    EDITV1
             46/DEF        492-RES
    EDITV10
            506/EJ         508/EJ         511/EJ         512/EJ         513/EJ         514/EJ         518/EJ
            519/EJ         520/EJ         521/EJ         522/EJ         523/EJ         524/EJ         525/EJ
            576/BFNZ       587-RES
    EDITV2
            507/EJ         530-RES
    EDITV3
            509/EJ         538-RES
    EDITV4
            536/B          543-RES
    EDITV5
            510/EJ         562-RES
    EDITV6
            517/EJ         568-RES
    EDITV7
            570-RES        579/B          583/B
    EDITV8
            515/EJ         575-RES
    EDITV9
            516/EJ         581-RES
    EDITXIT
            391/STW        439/B*
    EDIT1
            396/BE         400-RES
    EDIT2
            398/B          403/BE         407-RES
    EDIT3
            417-RES        428/BGZ
    EERR
             47/DEF        675-RES        820/BAL        868/BAL
    EJ
            504-COM
    EM
            596-COM
    EQ
            113/EXIT       213/IF         276/EXIT       390/EXIT       453/EXIT       494/EXIT       699/EXIT
           1100/EXIT      1109/EXIT      1141/EXIT      1732/IF        1735/EXIT      1789/EXIT      1793/EXIT
    ER
            254/BAL        261/BAL        695/EXIT       699/EXIT       723/EXIT       820/BAL        868/BAL
            874/BAL        893/BAL        968/BAL       1047/STW       1078/CW        1085/LW        1099/LW
           1101/CI        1107/LV        1108/CW        1110/BAL       1373/BAL       1393/BAL       1405/BAL
    ERRCODE
            667-COM
    ERRTRIG
            705/XW         722/XW        1782/MTH       1857/LH        1859/MTW       1942/STW
    ERR3
            671/B          674/B          677/B          680/B          683/B          686/B          689/B
            692/B          697-RES
    ERR4
            701/BLE        703-RES
    ERR5
            712-RES        715/BDR
    ERR6
            706/BEZ        717-RES
    ERR7
            710/BE         720-RES        726/B
    ERR8
            714/BE         724-RES
    ETFLD
            840/AND
    ETLOB
            498/SHIFT      589/SHIFT      842/SHIFT     1203/SHIFT     1621/SHIFT     1998/SLS
    EVT
           1527/AW
    EXPEND
             48/DEF        739-RES       1298/CALL      1378/CALL      1760/CALL
    EXPENDCD
            325-DATA       740/LI
    EXPFLD
            905/BFZ
    EXTMSG
            600/EM         603/EM         622-TEXT
    EZ
            286/IF        1858/IF
    FCSFLD
            540/LV         935/BFZ       1241/LV
    FCSLOB
            542/SHIFT     1243/SHIFT
    FIRSTMSG
           1872/LI        1946-TEXT
    FLDCNT
            816/LW        1028/MTW
    FLDPTR
            824/MTW        830/LW*        866/LW*       1174/MTW       1179/LW*
    FLDPTRBSE
            796/STW        831/LW*       1180/LW*
    FLDVAL
            899/STW        901/LW         914/LW         915/STW        919/STW        927/STW        947/STW
            953/STW        963/STW        979/STB        984/STW        989/STW       1012/LW        1046/LW
           1060/LW        1078/CW
    FLENGTH
            368/AW         833/STW        906/LW         942/LW         948/LW        1003/LW        1017/SW
           1025/LW        1039/LCW       1182/STW       1191/LW        1599/LW
    FLMSG
            614/EM         628-TEXT
    FSMSG
            613/EM         627-TEXT
    FUNCET
           1984/LV
    FXMSG
            612/EM         626-TEXT
    GE
           1464/IF
    GENERATE
             49/DEF        790-RES
    GENERATE1
             50/DEF        793-RES
    GENERATE2
             51/DEF       1138-RES
    GENERATE3
             52/DEF       1155-RES
    GENEXIT
            807/STW       1142/STW       1157/STW       1159/MTB       1216/B*        1287/MTB       1318/MTB
           1352/MTB       1379/B*
    GEN35
            836/BLEZ       860-RES
    GEN41
            867/BFZ        869-RES        875/B
    GETCSADD
             53/DEF       1459-RES
    GO%FLAG
             78/REF        275/AW         303/MTW
    HEXTBL
           2020/LB        2025-RES
    HEXVAL
            408/LI         812/STW        813/STW        814/STW        815/STW       1022/AWM       1049/AWM
           1050/AWM       1070/AWM       1071/AWM       1700/STW       1703/LI
    HILIMIT
             54/DEF       1525-RES
    HILIMIT4
             55/DEF        863/BL        1530-RES
    HVLENGTH
            365/SW         811/STW       1004/AW        1020/LCW       1026/AWM       1166/LW        1170/STW
           1187/LW        1192/AWM       1208/MTW       1289/LW        1320/MTW
    IERR
             56/DEF        678-RES
    IOADD
            294/LB         295/AW        1812/LI        1825/LI        1914/LI        1936/LI
    IORL
            292/LB         295/AW         298/STB        302/BAL        306/BAL        317/LB         318/STB
           1813/BAL       1826/BAL       1916/BAL       1938/BAL
    IOSIZE
            284/STW        288/STH        290/LW        1915/LI        1937/LI
    KERR
             57/DEF        681-RES
    KLINE
            487/AW         791/LW         838/AW        1197/AW        1526/LW
    L
           1104/EXIT      1876/AND       1968/AND       1991/AND       1992/AW        1995/AND       1996/AW
    LARG
           1162/STW       1234/STW       1249/STW       1317/STW       1350/MTW       1359/LW
    LASTCS
           1734/CW        1749/STW
    LASTVAL
            416/STW        430/LW         438/STW       1731/CW        1746/STW
    LBX
            136/STB        138/AI         393/LI         397/STB        422/LI         459/LI         464/AI
            468/AI         500/LI         551/AI         556/AI         563/AI         565/STB        566/AI
           1804/LI        1807/STB       1808/AI        1833/STB       1834/AI        1838/AW        1843/LI
           1873/LI        1877/LI        1880/STB       1881/LI        1885/STB       1887/AW        1888/STW
           1890/LW        1891/AI        1896/STB       1897/AI        1901/STB       2021/STB       2022/AI
    LCLFWDET
            173/CV        1634/CV        1650/CV
    LCLFWDHD
           1146/CV
    LE
           1529/EXIT
    LENGTHFLD
            889/AND       1144/AND       1267/LV        1302/LV        1333/LV        1389/AND
    LERR
             58/DEF        684-RES
    LFRMSG
            604/EM         605/EM         623-TEXT
    LFWDHET
            176/CV        1636/CV        1652/CV
    LISTET
           1988/LV
    LISTMSG
            616/EM         630-TEXT
    LNGTH2
           1390/CV
    LNGTH3
           1307/CV
    LO%FLAG
             79/REF       1918/MTW
    LOAD
           1291/CALL      1590-RES
    LOADABS
             59/DEF       1189/CALL      1211/CALL      1322/CALL      1616/B         1696-RES
    LOAD1
           1606/BE        1609-RES
    LOAD2
           1593/BNE       1596/BNEZ      1598/BNEZ      1603/BL        1608/BNE       1613-RES
    LOAD3
           1602/BE        1612/BEZ       1617-RES
    LOAD4
           1641-RES       1665/B         1672/B
    LOAD5
           1626/BNE       1629/BG        1645-RES
    LOAD6
           1651/BL        1653/BG        1655-RES
    LOAD7
           1658/BG        1666-RES
    LOAD8
           1635/BL        1637/BG        1639-RES
    LOBFLD
           1361/AND
    LSTBF
             80/REF        136/STB        397/STB        565/STB        713/CB         719/STB       1786/LW
           1798/STW       1807/STB       1833/STB       1853/STH       1880/STB       1885/STB       1896/STB
           1901/STB       1914/LI        1936/LI        2021/STB
    LVL
           1527/AW
    LZ
           1870/IF
    MAJERRFLD
           1876/AND
    MAJERRLN
           1869/LW        1893/LB        1905/STW       1908/STB
    MAJLINE
             81/REF       1847/LW        1904/LW
    MAXSEV
            700/CB         702/STB
    NAMENUM
            199/MTW
    NBYTES
            118/LI         139/BDR        186/LI         205/LI         217/LI         268/SW         269/AW
            270/LW         283/STW        313/LW         321/BDR        373/LI         405/LI         418/LI
            419/CW         421/LW         458/LI         465/LI         549/LI         554/LI         571/LI
            592/LI         741/LI        1151/LI        1631/LI        1664/LI        1671/LI        1701/LW
           1702/AI        1743/LI        1871/LI        2023/BDR
    NE
            491/EXIT       695/EXIT
    NERRS
           1903/MTW
    NOBYTES
            268/SW         270/LW         410/LW         434/LW        1168/STW       1591/LW        1698/AND
           1701/LW
    NOLIST
            414/AND        415/XW         431/STW       1921/LW
    NOWORDS
            829/STW        896/STW        909/CW         911/LW         912/STW        952/LW         955/MTW
            974/STW       1002/LW
    NXTLOCAL
           1528/SW
    NXTSYMT
            862/CW
    NZ
            310/IF        1739/EXIT      1860/IF        1883/IF        1894/IF
    OFFSETFLD
            933/LV        1250/AND       1361/AND
    ORIGIN
             60/DEF        808/CALL      1729-RES
    ORIGINCD
            326-DATA      1742/LI
    ORIGIN3
           1750/BEZ       1752-RES
    ORIGXIT
           1741/STW       1761/B*
    PASS
            389/LW         452/MTW        493/LW         698/MTW        799/MTW       1140/MTW       1792/LW
    PRINT
             61/DEF        425/CALL      1783/BNEZ      1790-RES
    PRINTC
             62/DEF       1778/BEZ       1784-RES
    PRINTC1
             63/DEF       1776-RES
    PRINTC2
             64/DEF       1780-RES
    PRINTEND
           1922/BNEZ      1927/BNEZ      1934/BNEZ      1939-RES
    PRINTXIT
           1794/STW       1945/B*
    PRINT10
           1821/BE        1840-RES
    PRINT11
           1846/BNEZ      1852-RES
    PRINT12
           1850/BEZ       1854-RES
    PRINT13
           1868/BLZ       1917-RES
    PRINT14
           1862/BNEZ      1913-RES
    PRINT15
           1802/BEZ       1856-RES
    PRINT21
           1919/BNEZ      1931/BNEZ      1936-LI
    PRINT22
           1924/BEZ       1929-RES
    PRINT3
           1796/BEZ       1800-RES
    PRINT4
           1806-RES       1818/BG        1820/BL
    PRINT5
           1832-RES       1835/BDR
    PRINT6
           1805/B         1809-RES       1836/B         1839/B
    PRINT7
           1831/BE        1837-RES
    PRINT8
           1810/BIR       1815-RES
    PRINT9
           1823/BIR       1828-RES
    PROCREF
            490/LW        1777/MTW       1861/MTW
    PSRTRIG
           1923/MTW
    RD%STD
             82/REF       1848/LH        1906/LH
    READX3
             83/REF       1813/BAL       1826/BAL
    REFORSREF
           1963/CV
    RELOFLD
            986/LV         993/LV        1185/BFNZ
    RL
            113/EXIT       141/EXIT       276/EXIT       322/EXIT       343/EXIT       390/EXIT       391/STW
            446/MTB        453/EXIT       454/STW        491/EXIT       494/EXIT       495/STW        533/LV
            534/AND        535/SHIFT      540/LV         541/AND        542/SHIFT      548/LW         804/EXIT
            807/STW        855/LW         857/AND        858/BFZ        898/LW         899/STW        901/LW
            914/LW         915/STW        918/LI         919/STW        932/LW         934/AND        935/BFZ
            948/LW         949/AI         956/AI         978/LB         979/STB       1100/EXIT      1104/EXIT
           1109/EXIT      1111/EXIT      1141/EXIT      1142/STW       1143/LI        1148/LI        1150/STH
           1157/STW       1223/LV        1224/AND       1225/SHIFT     1226/STW       1228/AW        1230/STW
           1231/LV        1232/AND       1233/STW       1234/STW       1240/LW        1242/AND       1249/STW
           1250/AND       1251/STW       1256/LV        1257/AND       1258/STW       1260/LI        1261/STW
           1267/LV        1268/AND       1269/STW       1270/LW        1271/CV        1273/LW        1275/AW
           1276/STW       1278/LI        1280/LI        1282/STW       1328/LI        1330/LI        1332/STW
           1333/LV        1334/AND       1335/STW       1336/LV        1337/AND       1338/SHIFT     1339/STW
           1359/LW        1361/AND       1362/SCS       1363/STW       1364/LI        1365/STW       1410/LB
           1411/STB       1529/EXIT      1735/EXIT      1741/STW       1779/EXIT      1789/EXIT      1793/EXIT
           1794/STW       2001/B*        2024/EXIT
    SERR
             65/DEF        687-RES
    SKIPTRIG
           1795/LW        1926/MTW       1943/STW
    SOCW%FLG
            251/MTW        258/MTW        265/MTW        285/MTW        309/MTW       1738/MTW
    SOURCE
           1787/AW        1801/LW        1930/LW        1941/STW
    SOURCEONLY
           1933/LW
    SOURCEX
           1803/LW        1841/STW
    SPADDRET
           1605/CV        1962/LV
    SPEXTET
           1965/LV
    SPINTET
           1959/LV
    SPINTFLD
           1960/CV
    STYPEFLD
           1144/AND       1995/AND
    STYPELOB
           1996/AW        1998/SLS
    SUBERRLN
           1882/LW        1888/STW       1890/LW        1910/STW
    SUBLINE
             84/REF       1845/LW        1909/LW
    SUMET
           1107/LV
    SYSLEVEL
             85/REF       1849/AW        1907/AW
    TCORFLG
            694/MTW
    TENS
            341/CW         344-DATA
    TERR
             66/DEF        254/BAL        261/BAL        690-RES        893/BAL        968/BAL       1110/BAL
           1393/BAL       1405/BAL
    TEXTMSG
            607/EM         611/EM         625-TEXT
    TR0
           1011/LI        1014/LI        1018/SLD       1045/LI        1048/SLD       1050/AWM       1060/LW
           1064/SAD       1068/LI        1069/SLD       1071/AWM       1099/LW
    TR1
           1012/LW        1021/SLS       1022/AWM       1046/LW        1047/STW       1049/AWM       1063/LI
           1070/AWM       1085/LW        1103/CI
    TX1
            409/STW        423/LW*        426/MTW        547/STW        552/LW         557/LW
    TX2
            412/STW        419/CW         421/LW         427/MTW
    TYP
           1115-COM
    TYPE
             67/DEF        497/CALL      1201/CALL      1312/CALL      1340/CALL      1954-RES
    TYPE%BASE
           1971/B         1973/BYTE      1982-RES
    TYPE%JUMP
           1970/LB        1972-RES
    TYPEBASE
            844/B          846-RES       1115/COM
    TYPEBLNK
           1977/BYTE      1986-LV
    TYPEBSE2
           1205/B         1218-RES       1418/COM
    TYPECON
           1975/BYTE      1990-STW
    TYPEEND
           1958/BFZ       1961/BANZ      1964/BAZ       1966/B         1985/B         1987/B         1989/B
           1999-RES
    TYPEFLD
           1968/AND
    TYPEFUN
           1979/BYTE      1983-RES
    TYPEILL
           1973/BYTE      1978/BYTE      1980/BYTE      2002-RES
    TYPELOB
           1969/SHIFT
    TYPELST
           1974/BYTE      1988-LV
    TYPESYM
           1976/BYTE      1994-STW
    TYPESYM1
           1993/B         1997-RES
    TYPETBL
            843/LB        1116-RES
    TYPETBL2
           1204/LB        1419-RES
    TYPE5
           1956/BGEZ      1967-STW
    TYP2
           1418-COM
    T1
           1829/LB        1830/CI        1833/STB
    UERR
             68/DEF        693-RES        874/BAL       1373/BAL
    UGLBLET
           1957/LV
    UNDMSG
            598/EM         599/EM         601/EM         602/EM         606/EM         608/EM         609/EM
            617/EM         621-TEXT
    VALCNT
            817/CW         819/STW        826/MTW        835/LW
    VALFLD
            577/LV         832/AND        879/AND       1181/AND       1383/AND
    VALPTR
            825/MTW        837/LW*        861/LW         994/STS*      1175/MTW       1184/LW*
    WDRS
           1625/CI
    WDX3SIZE
             86/REF       1816/LB        1829/LB
    WRILINE
           1865/B         1920-RES
    WRITEBO
             87/REF        302/BAL
    WRITEDO
             88/REF       1916/BAL
    WRITEGO
             89/REF        306/BAL
    XEDIT
             69/DEF        406/CALL       424/CALL       460/CALL       466/CALL       550/CALL       555/CALL
            572/CALL      2017-RES       2023/BDR
    XS
            486/LW
    XT
            112/CI         114/STW        115/LI         116/STW        135/LB         136/STB        168/LW
            169/SLS        170/AW         171/AI         182/AI         184/SLS        188/AW         190/STW
            204/SLS        214/AI         216/AI         274/LW         275/AW         278/LW         279/CW
            284/STW        287/LI         288/STH        289/MTB        290/LW         291/AI         294/LB
            296/BDR        297/LI         298/STB        308/LI         311/LI         314/STW        318/STB
            338/LI         340/AI         341/CW         364/LI         365/SW         366/SLS        367/AI
            368/AW         369/STW        389/LW         394/LW         395/CI         397/STB        408/LI
            409/STW        413/LI         414/AND        415/XW         416/STW        430/LW         431/STW
            434/LW         435/AWM        436/AW         437/STW        438/STW        486/LW         487/AW
            488/STW        490/LW         493/LW         499/LB         502/B          531/LV         532/AND
            539/LW         541/AND        546/SCS        547/STW        577/LV         578/AND        588/LW
            589/SHIFT      590/LB         705/XW         708/LH         708/LH         709/CI         711/STB
            713/CB         715/BDR        716/LB         718/AI         719/STB        721/SLS        722/XW
            725/LB         802/AWM        803/AWM        809/LI         810/STW        811/STW        812/STW
            813/STW        814/STW        815/STW        816/LW         817/CW         819/STW        828/LI
            829/STW        830/LW         831/LW         831/LW         832/AND        833/STW        835/LW
            837/LW         838/AW         839/STW        840/AND        841/STW        842/SHIFT      843/LB
            843/LB         844/B          851/LI         856/LV         857/AND        861/LW         862/CW
            866/LW         867/BFZ        870/LI         878/LW         879/AND        884/LW         888/LW
            889/AND        890/AI         891/CI         894/LI         896/STW        898/LW         899/STW
            900/BDR        906/LW         907/AI         908/SLS        909/CW         912/STW        915/STW
            916/AI         919/STW        920/BDR        925/LW         927/STW        933/LV         934/AND
            940/LW         945/SLD        947/STW        952/LW         953/STW        962/LI         963/STW
            964/LB         966/CI         969/LI         971/LW         978/LB         981/BDR        984/STW
            986/LV         989/STW        991/LI         994/STS       1003/LW        1004/AW        1005/CI
           1016/LI        1017/SW        1018/SLD       1020/LCW       1021/SLS       1025/LW        1026/AWM
           1035/SW        1037/AI        1038/SLS       1049/AWM       1050/AWM       1052/AI        1070/AWM
           1071/AWM       1144/AND       1145/STW       1146/CV        1160/LI        1161/STW       1162/STW
           1166/LW        1167/SLS       1168/STW       1169/LI        1170/STW       1179/LW        1180/LW
           1184/LW        1185/BFNZ      1187/LW        1191/LW        1192/AWM       1197/AW        1198/STW
           1202/LW        1203/SHIFT     1204/LB        1204/LB        1205/B         1212/LI        1213/STW
           1222/LW        1224/AND       1232/AND       1238/LW        1255/LW        1257/AND       1266/LW
           1268/AND       1279/BFZ       1284/AND       1285/SHIFT     1286/STW       1289/LW        1305/LW
           1306/STW       1341/LW        1342/CV        1344/LW        1346/AW        1347/STW       1362/SCS
           1367/LW        1374/LW        1382/LW        1383/AND       1388/LW        1389/AND       1390/CV
           1396/LW        1401/LB        1403/CI        1406/LI        1410/LB        1413/BDR       1526/LW
           1527/AW        1528/SW        1591/LW        1592/CI        1594/LI        1595/AND       1599/LW
           1600/AW        1601/CI        1604/LW        1605/CV        1607/CV        1610/LI        1611/AND
           1614/LI        1615/STW       1618/LI        1619/STW       1620/LW        1621/SHIFT     1622/LB
           1622/LB        1623/STW       1624/LW        1625/CI        1627/LW        1628/CI        1632/AI
           1638/AI        1642/STW       1647/LW        1648/AI        1654/AI        1660/AI        1661/SLS
           1662/AW        1668/SLS       1669/AW        1697/LI        1698/AND       1699/AI        1700/STW
           1730/LW        1731/CW        1733/LW        1734/CW        1745/LW        1746/STW       1748/LW
           1749/STW       1751/AW        1753/STW       1754/LI        1755/STW       1756/STW       1757/LV
           1758/STW       1786/LW        1787/AW        1788/CW        1792/LW        1795/LW        1797/LW
           1798/STW       1801/LW        1803/LW        1810/BIR       1814/LI        1816/LB        1823/BIR
           1827/LI        1829/LB        1841/STW       1844/LI        1848/LH        1849/AW        1851/AI
           1853/STH       1857/LH        1879/LI        1880/STB       1884/LI        1885/STB       1887/AW
           1893/LB        1895/AI        1896/STB       1900/LI        1901/STB       1904/LW        1905/STW
           1906/LH        1907/AW        1908/STB       1909/LW        1910/STW       1921/LW        1930/LW
           1933/LW        1940/LI        1941/STW       1942/STW       1943/STW       2018/LI        2019/SLD
           2020/LB        2020/LB        2021/STB
    XT1
            117/LI         135/LB         137/AI         172/LW         173/CV         176/CV         185/LI
            206/LI         218/LI         269/AW         317/LB         319/AI         341/CW         370/LI
            371/STW        372/LI         401/LW         402/CW         404/STB        404/STB        410/LW
            411/SLS        412/STW        423/LW         455/LB         456/LW         456/LW         457/STB
            457/STB        461/LB         462/LW         462/LW         463/SLS        467/SCS        496/LW
            532/AND        534/AND        544/SHIFT      545/AND        546/SCS        548/LW         552/LW
            553/SLS        557/LW         558/AND        564/LI         565/STB        569/LW         576/BFNZ
            578/AND        582/LI         590/LB         591/AI         740/LI         791/LW         794/LI
            796/STW        797/LW         798/AWM        903/LW         905/BFZ        911/LW         914/LW
            917/BDR        924/LW         925/LW         941/LI         953/STW        954/LI         971/LW
            972/AI         973/SLS        974/STW        975/SLS        976/AI         979/STB        980/AI
            993/LV        1002/LW        1007/CI        1046/LW        1053/BDR       1060/LW        1076/AI
           1078/CW        1152/LI        1180/LW        1181/AND       1182/STW       1200/LW        1241/LV
           1242/AND       1243/SHIFT     1244/STW       1246/AW        1248/STW       1302/LV        1303/LS
           1307/CV        1311/LW        1316/AI        1317/STW       1327/LW        1329/BFZ       1334/AND
           1337/AND       1408/LI        1411/STB       1412/AI        1460/LW        1461/MI        1462/STW
           1633/LW        1634/CV        1636/CV        1640/LI        1649/LW        1650/CV        1652/CV
           1656/LW        1657/CI        1663/LI        1670/LI        1703/LI        1742/LI        1807/STB
           1816/LB        1817/CI        1819/CI        1822/AI        1835/BDR       1838/AW        1845/LW
           1847/LW        1869/LW        1872/LI        1876/AND       1882/LW        1955/MTW       1958/BFZ
           1960/CV        1963/CV        1967/STW       1990/STW       1994/STW
    XT2
            498/SHIFT      499/LB         942/LW         943/AND        945/SLD       1034/LI        1035/SW
           1036/AND       1048/SLD       1065/SW        1066/AI        1069/SLD       1460/LW        1462/STW
           1463/CI        1465/AI        1466/AW        1468/AW        1957/LV        1959/LV        1962/LV
           1965/LV        1967/STW       1968/AND       1969/SHIFT     1970/LB        1970/LB        1971/B
           1984/LV        1986/LV        1988/LV        1990/STW       1991/AND       1992/AW        1994/STW
           1995/AND       1996/AW        1998/SLS       2000/STW
    XT3
            501/LW         539/LW         569/LW        1039/LCW       1043/CI        1051/AI        1061/CI
           1064/SAD       1065/SW
    X3BUF
             90/REF       1812/LI        1816/LB        1825/LI        1829/LB
    1WDADDET
           1271/CV        1342/CV
    %
            420/BLE        920/BDR
    %220
           1062/BE        1083-RES
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APDGCOM'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APDGCOM                 %%%%%
         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                 DGCOMP   CSECT    1
        34                            *
        35                                     DEF      AEDIT
        36                                     DEF      BEDIT
        37                                     DEF      BEDIT4
        38                                     DEF      CERR
        39                                     DEF      CTCHRS
        40                                     DEF      DERR
        41                                     DEF      DGCOMP
        42                                     DEF      EDIT
        43                                     DEF      EDITDDLR
        44                                     DEF      EDITDLR
        45                                     DEF      EDITV
        46                                     DEF      EDITV1
        47                                     DEF      EERR
        48                                     DEF      EXPEND
        49                                     DEF      GENERATE
        50                                     DEF      GENERATE1
        51                                     DEF      GENERATE2
        52                                     DEF      GENERATE3
        53                                     DEF      GETCSADD
        54                                     DEF      HILIMIT
        55                                     DEF      HILIMIT4
        56                                     DEF      IERR
        57                                     DEF      KERR
        58                                     DEF      LERR
        59                                     DEF      LOADABS
        60                                     DEF      ORIGIN
        61                                     DEF      PRINT
        62                                     DEF      PRINTC
        63                                     DEF      PRINTC1
        64                                     DEF      PRINTC2
        65                                     DEF      SERR
        66                                     DEF      TERR
        67                                     DEF      TYPE
        68                                     DEF      UERR
        69                                     DEF      XEDIT
        70                            *
        71                                     REF      ABORT
        72                                     REF      BLANC
        73                                     REF      BO%FLAG
        74                                     REF      BYX3SIZE
        75                                     REF      CLRLSTBF
        76                                     REF      DEDIT
        77                                     REF      DGWRITELO
        78                                     REF      GO%FLAG
        79                                     REF      LO%FLAG
        80                                     REF      LSTBF
        81                                     REF      MAJLINE
        82                                     REF      RD%STD
        83                                     REF      READX3
        84                                     REF      SUBLINE
        85                                     REF      SYSLEVEL
        86                                     REF      WDX3SIZE
        87                                     REF      WRITEBO
        88                                     REF      WRITEDO
        89                                     REF      WRITEGO
        90                                     REF      X3BUF
        91                            *
        92                                     SYSTEM   AP%IL
        93                                     SYSTEM   AP%DG
  C00
        94                            *
        95   04 000BE                          USECT    DGCOMP
1
        97                            *   A C O N
        98                            *        THIS SUBROUTINE OUTPUTS AN ADD CONSTANT LOAD ITEM TO THE
        99                            *          OBJECT MODULE IF THE VALUE OF THE CONSTANT IS NON-ZERO.
       100                            *
       101                            *        INPUT:   THE CONSTANT TO BE OUTPUT IS IN REGISTER XT.
       102                            *
       103                            *        CALL:    BAL,RL  ACON
       104                            *
       105                            *        USES REGISTERS
       106                            *                 XT
       107                            *                 XT1
       108                            *                 NBYTES
       109                            *                 RL
       110                            *
       111   02 00000                 ACON     RES      0
       112   02 00000    21400000 A            CI,XT    0
       113   02 00001    683E0000 A            EXIT,EQ  RL                RETURN IF CONSTANT IS ZERO
       114   02 00002    35400078 04           STW,XT   ACONVAL
       115   02 00003    22400001 A            LI,XT    ADDCON            LOADER CODE FOR ADD CONSTANT
       116   02 00004    35400077 04           STW,XT   ACONVAL-1
       117   02 00005    225001DF 04           LI,XT1   BA(ACONVAL)-1     BYTE ADDRESS OF 1ST ITEM TO OUTPUT
       118   02 00006    22800005 A            LI,NBYTES  5               NUMBER OF BYTES TO OUTPUT
       119   02 00007    6800002D              B        BEDIT%SE          ERROR IF SOCW CONTROL IN EFFECT
       120                            *
       121         00000001           ADDCON   EQU      1                 LOADER CONTROL CODE FOR ADD CONSTANT
1
       123                            *
       124                            *  A E D I T
       125                            *        THIS ROUTINE STORES A TEXT STRING IN THE LISTING IMAGE
       126                            *
       127                            *          INPUT: NUMBER OF BYTES TO STORE IN REG. NBYTES
       128                            *                 BYTE ADDRESS OF THE TEXT STRING IN REG. XT1
       129                            *                 INDEX TO FIRST (LEFT-MOST) BYTE IS IN REG. LBX
       130                            *
       131                            *         OUTPUT: REG NBYTES CONTAINS ZERO
       132                            *                 REGS. ARGA AND LBX ARE BUMPED BY NBYTES
       133                            *
       134   02 00008                 AEDIT    RES      0
       135   02 00008    724A0000 A            LB,XT    0,XT1
       136   02 00009    754C0000 X            STB,XT   LSTBF,LBX
       137   02 0000A    20500001 A            AI,XT1   1                 ADDRESS OF NEXT BYTE
       138   02 0000B    20600001 A            AI,LBX   1                 INDEX TO LISTING IMAGE
       139   02 0000C    64800008              BDR,NBYTES  AEDIT
       140                            *
       141   02 0000D    680E0000 A            EXIT     RL
1
       143                            *   A S V
       144                            *        THIS SUBROUTINE OUTPUTS AN ADD/SUBTRACT VALUE LOAD ITEM TO THE
       145                            *          OBJECT MODULE.
       146                            *
       147                            *        INPUT:   DDASV. IF ZERO AN ADD VALUE IS OUTPUT; IF ONE A
       148                            *                   SUBTRACT VALUE IS OUTPUT.
       149                            *                 DDTYPE. IF LOCAL FORWARD, A 3 BYTE ADD/SUBTRACT VALUE
       150                            *                   OF THE LOCAL FORWARD REFERENCE NUMBER IS OUTPUT;
       151                            *                   IF NOT LOCAL FORWARD, DDNUM IS INSPECTED.
       152                            *                 DDNUM. IF ZERO, A ONE BYTE ADD/SUBTRACT ABSOLUTE
       153                            *                   SECTION CONTROL BYTE IS OUTPUT; IF NON-ZERO, A TWO
       154                            *                   OR THREE BYTE ADD VALUE OF DECLARATION IS OUTPUT.
       155                            *                 NAMENUM. IF ZERO, LESS THAN 256 DECLARATIONS HAVE BEEN
       156                            *                   ASSIGNED; IF ONE, MORE THAN 255 HAVE BEEN ASSIGNED.
       157                            *
       158                            *        CALL:    BAL,RL  ASV
       159                            *
       160                            *        USES REGISTERS
       161                            *                 XT
       162                            *                 XT1
       163                            *                 NBYTES
       164                            *
       165                                     LOCAL    %10,%20,%30,%40,%50,%60
       166                            *
       167   02 0000E                 ASV      RES      0
       168   02 0000E    3240006C 04           LW,XT    DDASV             0 IF ADD VALUE, 1 IF SUBTRACT VALUE
       169   02 0000F    25400003 A            SLS,XT   3
       170   02 00010    30400070 04           AW,XT    DDRS              RESOLUTION
       171   02 00011    20400020 A            AI,XT    X'20'
       172   02 00012    32500060 04           LW,XT1   DD%TYPE
       173   02 00013    3150042F              CV,XT1   LCLFWDET
       174   02 00014    68300000 F            BE       %10               ITEM IS A LOCAL FORWARD
       175                            *
       176   02 00015    31500430              CV,XT1   LFWDHET
       177   02 00016    69300000 F            BNE      %50               ITEM IS NOT A LOCAL FORWARD & HOLD
       178                            *
       179                            *   HERE TO OUTPUT ADD/SUBTRACT VALUE OF FORWARD REFERENCE NUMBER
       180                            *
       181   02 00017                 %10      RES      0
       182   02 00017    20400004 A            AI,XT    4
       183   02 00018                 %20      RES      0
       184   02 00018    25400010 A            SLS,XT   16
       185   02 00019    225001E1 04           LI,XT1   BA(ACONVAL)+1     BYTE ADDRESS OF DATA TO BE OUTPUT
       186   02 0001A    22800003 A            LI,NBYTES 3                NUMBER OF BYTES TO OUTPUT
       187   02 0001B                 %30      RES      0
       188   02 0001B    3040006E 04           AW,XT    DDNUM
       189   02 0001C                 %40      RES      0
       190   02 0001C    35400078 04           STW,XT   ACONVAL
       191   02 0001D    6800002D              B        BEDIT%SE          ERROR IF SOCW CONTROL IN EFFECT
       192                            *
       193   02 0001E                 %50      RES      0
       194   02 0001E    3300006E 04           MTW,0    DDNUM
       195   02 0001F    68300000 F            BEZ      %60               ABSOLUTE SECTION
       196                            *
       197                            *   HERE TO OUTPUT ADD/SUBTRACT VALUE OF DECLARATION NUMBER
       198                            *
       199   02 00020    33000004 03           MTW,0    NAMENUM
       200   02 00021    69200018              BGZ      %20               MORE THAN 255 NAME NUMBERS ASSIGNED
       201                            *                                     DDNUM CONTAINS TWO BYTE NAME #
       202                            *   HERE FOR 1 BYTE NAME NUMBERS
       203                            *
       204   02 00022    25400008 A            SLS,XT   8
       205   02 00023    22800002 A            LI,NBYTES 2                NUMBER OF BYTES TO OUTPUT
       206   02 00024    225001E2 04           LI,XT1   BA(ACONVAL)+2     BYTE ADDRESS OF DATA TO BE OUTPUT
       207   02 00025    6800001B              B        %30
       208                            *
       209                            *   HERE TO OUTPUT ADD/SUBTRACT ABSOLUTE SECTION
       210                            *
       211   02 00026                 %60      RES      0
       212   02 00026    3300006C 04           MTW,0    DDASV
       213         001F0000                    IF,EQ                      DOIF ADD ABS SECTION
             02 00027    69300029
       214   02 00028    20400004 A            AI,XT    4
       215         00F10000                    FI
       216   02 00029    20400010 A            AI,XT    X'10'
       217   02 0002A    22800001 A            LI,NBYTES 1                NUMBER OF BYTES TO OUTPUT
       218   02 0002B    225001E3 04           LI,XT1   BA(ACONVAL)+3     BYTE ADDRESS OF DATA TO BE OUTPUT
       219   02 0002C    6800001C              B        %40
1
       221                            *
       222                            *   B E D I T
       223                            *        THIS ROUTINE BLOCKS BYTES IN THE BINARY OUTPUT BUFFER. WHEN THE
       224                            *          BUFFER IS FULL, IT IS OUTPUT TO THE BO FILE, AND A NEW
       225                            *          RECORD IS BEGUN.
       226                            *
       227                            *        INPUT:   THE NUMBER OF BYTES TO BLOCK IS IN REGISTER NBYTES.
       228                            *                 THE BYTE ADDRESS OF THE BYTES TO BE BLOCKED IS IN
       229                            *                   REGISTER XT1
       230                            *                 THE NUMBER OF BYTES IN THE OUTPUT BUFFER IS IN BOCT.
       231                            *
       232                            *        OUTPUT:  NBYTES IS ZERO
       233                            *                 BOCT CONTAINS THE CURRENT BYTE COUNT FOR THE BUFFER.
       234                            *
       235                            *        CALL:    BAL,RL  BEDIT
       236                            *
       237                            *        USES REGISTERS
       238                            *                 XT XT1 RL NBYTES IOSIZE IORL IOADD
       239                            *
       240                            *        ALTERNATE CALLS:
       241                            *
       242                            *                 BEDIT%SE   EDITS NOTHING IF SOCW%FLG NZ -- GIVES T ERR
       243                            *
       244                            *                 BEDIT%SC   EDITS ONLY FINAL 'NOBYTES' # BYTES IF SOCW
       245                            *
       246                            *                 BEDIT%SCE   SAME AS BEDIT%SC, BUT GIVES T ERR ALSO
       247                            *
       248                                     LOCAL    %10
       249                            *
       250   02 0002D                 BEDIT%SE RES      0
       251   02 0002D    33000007 03           MTW,0    SOCW%FLG
       252   02 0002E    68300039              BEZ      BEDIT
       253                            *
       254   02 0002F    6AF00118              BAL,ER   TERR
       255   02 00030    68000039              B        BEDIT
       256                            *
       257   02 00031                 BEDIT%SCE   RES   0
       258   02 00031    33000007 03           MTW,0    SOCW%FLG
       259   02 00032    68300039              BEZ      BEDIT
       260                            *
       261   02 00033    6AF00118              BAL,ER   TERR
       262                            *        (FALL THROUGH)
       263                            *
       264   02 00034                 BEDIT%SC RES      0
       265   02 00034    33000007 03           MTW,0    SOCW%FLG
       266   02 00035    68300039              BEZ      BEDIT
       267                            *
       268   02 00036    3880009D 04           SW,NBYTES   NOBYTES        GET DIFFERENCE
       269   02 00037    30500008 A            AW,XT1   NBYTES            BYPASS CONTROL INFO
       270   02 00038    3280009D 04           LW,NBYTES   NOBYTES        JUST EDIT DATA
       271                            *        (FALL THROUGH)
       272                            *
       273   02 00039                 BEDIT    RES      0
       274   02 00039    32400000 X            LW,XT    BO%FLAG
       275   02 0003A    30400000 X            AW,XT    GO%FLAG           EXIT IF NO OUTPUT IS SPECIFIED
       276   02 0003B    683E0000 A            EXIT,EQ  RL                  FOR BOTH 'BO' AND 'GO'
       277   02 0003C                 BEDIT3   RES      0
       278   02 0003C    32400030 03           LW,XT    BOCT              LOAD THE BO COUNT
       279   02 0003D    31400031 03           CW,XT    BOMAX
       280   02 0003E    6910005A              BL       BEDIT8            STILL ROOM IN BUFFER
       281                            *   HERE TO OUTPUT CURRENT RECORD IN BO BUFFER
       282   02 0003F                 BEDIT4   RES      0
       283   02 0003F    35800030 03           STW,NBYTES  BOCT           SAVE # OF BYTES REMAINING
       284   02 00040    35400009 A            STW,XT   IOSIZE            BO COUNT IS RECORD SIZE
       285   02 00041    33000007 03           MTW,0    SOCW%FLG
       286         001F0000                    IF,EZ                      DO ONLY IF NO SOCW CONTROL IN EFFECT
             02 00042    6930004E
       287   02 00043    22400001 A            LI,XT    1                 STORE RECORD SIZE AND ZERO CHECKSUM
       288   02 00044    55980020 04           STH,IOSIZE BOBUF,XT          BYTE
       289   02 00045    73180020 04           MTB,1    BOBUF,XT          INCREASE SEQ. NO. MODULO 255
       290   02 00046    32400009 A            LW,XT    IOSIZE
       291   02 00047    204FFFFF A            AI,XT    -1
       292   02 00048    72A00020 04           LB,IORL  BOBUF             BEGIN CHECKSUM WITH RECORD TYPE BYTE
       293   02 00049                 BEDIT6   RES      0
       294   02 00049    72880020 04           LB,IOADD BOBUF,XT          FORM A BYTE CHECKSUM OF ALL BYTES
       295   02 0004A    30A00008 A            AW,IORL  IOADD               IN THE RECORD
       296   02 0004B    64400049              BDR,XT   BEDIT6
       297   02 0004C    22400002 A            LI,XT    2
       298   02 0004D    75A80020 04           STB,IORL BOBUF,XT          STORE CHECKSUM
       299         00F10000                    FI
       300   02 0004E    33000000 X            MTW,0    BO%FLAG
       301   02 0004F    68300053              BEZ      BEDIT7            NO 'BO' OUTPUT SPECIFIED
       302   02 00050    6AA00000 X            BAL,IORL WRITEBO           OUTPUT A RECORD ON 'BO'
       303   02 00051    33000000 X            MTW,0    GO%FLAG
       304   02 00052    68300054              BEZ      BEDIT5            NO 'GO' OUTPUT SPECIFIED
       305   02 00053                 BEDIT7   RES      0
       306   02 00053    6AA00000 X            BAL,IORL WRITEGO           OUTPUT A RECORD ON 'GO'
       307   02 00054                 BEDIT5   RES      0
       308   02 00054    22400004 A            LI,XT    4
       309   02 00055    33000007 03           MTW,0    SOCW%FLG
       310         001F0000                    IF,NZ
             02 00056    68300058
       311   02 00057    22400000 A            LI,XT    0                 USE ENTIRE RECORD UNDER SOCW CONTROL
       312         00F10000                    FI
       313   02 00058    32800030 03           LW,NBYTES  BOCT            RESTORE # OF BYTES REMAINING
       314   02 00059    35400030 03           STW,XT   BOCT              INITIALIZE BO COUNT FOR NEXT RECORD
       315                            *   HERE TO STORE NEXT BYTE TO BO BUFFER
       316   02 0005A                 BEDIT8   RES      0
       317   02 0005A    72AA0000 A            LB,IORL  0,XT1             LOAD NEXT BYTE AND STORE IT TO NEXT
       318   02 0005B    75A80020 04           STB,IORL BOBUF,XT            BYTE POSITION IN BO BUFFER
       319   02 0005C    20500001 A            AI,XT1   1                 INCREMENT ARGUMENT ADDRESS
       320   02 0005D    33100030 03           MTW,1    BOCT              INCREMENT BO COUNT
       321   02 0005E    6480003C              BDR,NBYTES  BEDIT3         DECREMENT # OF BYTES TO BLOCK
       322   02 0005F    680E0000 A            EXIT     RL
       323                            *
       324                            *   TABLE OF LOADER CONTROL CODES
       325   02 00060    02       A   EXPENDCD DATA,1   2                 CONTROL BYTE FOR EXPRESSION END
       326   02 00060 1  04       A   ORIGINCD DATA,1   4                 CONTROL BYTE FOR LOAD ORIGIN
       327                                     BOUND    4
1
       329                            *
       330                            *  C T C H R S
       331                            *        COUNT THE NUMBER OF DECIMAL DIGITS IN A NUMBER
       332                            *
       333                            *          INPUT: XT1 CONTAINS THE NUMBER (IT MUST BE POSITIVE)
       334                            *
       335                            *         OUTPUT: XT CONTAINS THE NUMBER OF DIGITS.
       336                            *
       337   02 00061                 CTCHRS   RES      0
       338   02 00061    22400000 A            LI,XT    0
       339   02 00062                 CTCHRS1  RES      0
       340   02 00062    20400001 A            AI,XT    1
       341   02 00063    31580065              CW,XT1   TENS-1,XT
       342   02 00064    68100062              BGE      CTCHRS1
       343   02 00065    680E0000 A            EXIT     RL
       344   02 00066    0000000A A   TENS     DATA     10,100,1000,10000,100000
             02 00067    00000064 A
             02 00068    000003E8 A
             02 00069    00002710 A
             02 0006A    000186A0 A
1
       346                            *
       347                            *   D F N F L D
       348                            *        THIS SUBROUTINE OUTPUTS A THREE BYTE 'DEFINE FIELD' ITEM TO
       349                            *          THE OBJECT FILE.
       350                            *
       351                            *        INPUT:   FLENGTH CONTAINS THE NUMBER OF BITS IN THE CURRENT
       352                            *                   FIELD.
       353                            *                 HVLENGTH CONTAINS THE STARTING BIT POSITION OF THE
       354                            *                   NEXT FIELD WITHIN HEXVAL.
       355                            *
       356                            *        CALL:    BAL,RL  DFNFLD
       357                            *
       358                            *        USES REGISTERS
       359                            *                 XT
       360                            *                 XT1
       361                            *                 NBYTES
       362                            *
       363   02 0006B                 DFNFLD   RES      0
       364   02 0006B    224000FF A            LI,XT    255               LOW ORDER BIT LOCATION OF
       365   02 0006C    3840008A 04           SW,XT    HVLENGTH            FIELD TO BE DEFINED
       366   02 0006D    25400008 A            SLS,XT   8                 POSITION IT
       367   02 0006E    20470000 A            AI,XT    X'070000'         CONTROL BYTE FOR 'DEFINEFIELD '
       368   02 0006F    30400085 04           AW,XT    FLENGTH           FIELD LENGTH
       369   02 00070    35400078 04           STW,XT   ACONVAL
       370   02 00071    225000D5 A            LI,XT1   'N'
       371   02 00072    3550006B 04           STW,XT1  CODE              DEFINE FIELD CODE FOR EDIT
       372   02 00073    225001E1 04           LI,XT1   BA(ACONVAL)+1     BYTE ADDRESS OF 1ST ITEM TO OUTPUT
       373   02 00074    22800003 A            LI,NBYTES 3                NUMBER OF BYTES TO OUTPUT
       374   02 00075    6800002D              B        BEDIT%SE          ERROR IF SOCW CONTROL IN EFFECT
1
       376                            *
       377                            *  E D I T
       378                            *        EDIT THE LOCATION COUNTER AND A VALUE INTO THE LISTING IMAGE.
       379                            *
       380                            *          INPUT: THE VALUE IS LEFT-ADJUSTED IN HEXVAL (UP TO 4 WORDS)
       381                            *                 THE RELOCATION CODE IS IN CODE
       382                            *                 THE NUMBER OF BYTES TO OUTPUT IS IN NOBYTES
       383                            *
       384                            *         OUTPUT: THE LOCATION COUNTER AND VALUE ARE PRINTED, AND
       385                            *                 BOTH LOCATION COUNTERS ARE BUMPED BY THE NUMBER
       386                            *                 OF BYTES OUTPUT.
       387                            *
       388   02 00076                 EDIT     RES      0
       389   02 00076    32400006 03           LW,XT    PASS
       390   02 00077    683E0000 A            EXIT,EQ  RL               DON'T EDIT DURING DEFINITION PASS
       391   02 00078    35700077 04           STW,RL   EDITXIT
       392   02 00079    6A7000A3              CALL     EDITDLR           EDIT LOCATION COUNTER
       393   02 0007A    22600021 A            LI,LBX   33
       394   02 0007B    3240006B 04           LW,XT    CODE              ADDRESS CLASSIFICATION CODE
       395   02 0007C    21400040 A            CI,XT    ' '
       396   02 0007D    68300080              BE       EDIT1
       397   02 0007E    754C0000 X            STB,XT   LSTBF,LBX
       398   02 0007F    68000086              B        EDIT2
       399                            * HEX EDIT THE CONTROL SECTION NUMBER UNLESS IT'S CURRENT ONE
       400   02 00080                 EDIT1    RES      0
       401   02 00080    3250006D 04           LW,XT1   DDCS              CONTROL SECTION OF DATA ITEM
       402   02 00081    3150000A 03           CW,XT1   DLRCS
       403   02 00082    68300086              BE       EDIT2             SAME AS LOCATION COUNTER
       404   02 00083    75500005 A            STB,XT1  XT1               LEFT-ADJUST FOR XEDIT
       405   02 00084    22800002 A            LI,NBYTES  2               TWO DIGITS
       406   02 00085    6A700424              CALL     XEDIT             EDIT THE CONTROL SECTION NUMBER
       407   02 00086                 EDIT2    RES      0
       408   02 00086    22400079 04           LI,XT    HEXVAL            ADDRESS OF 1ST ARGUMENT
       409   02 00087    354000B8 04           STW,XT   TX1
       410   02 00088    3250009D 04           LW,XT1   NOBYTES           COMPUTE NUMBER OF HEX. DIGITS
       411   02 00089    25500001 A            SLS,XT1  1                   TO OUTPUT
       412   02 0008A    355000B9 04           STW,XT1  TX2
       413   02 0008B    224FFFEA A            LI,XT    X'FFFEA'          ALLOW GENERATED CODE TO BE
       414   02 0008C    4B40001D 03           AND,XT   NOLIST              PRINTED WITHIN A PRE-ENCODED
       415   02 0008D    4640001D 03           XW,XT    NOLIST              SYSTEM OR A SYSTEM NOT OTHERWISE
       416   02 0008E    35400016 03           STW,XT   LASTVAL             LISTED (E.G,  PSYS=0).
       417   02 0008F                 EDIT3    RES      0
       418   02 0008F    22800008 A            LI,NBYTES 8                OUTPUT EITHER 8 HEX DIGITS
       419   02 00090    318000B9 04           CW,NBYTES  TX2               OR TX2 HEX DIGITS,
       420   02 00091    68200093              BLE      %+2                 WHICHEVER IS SMALLER
       421   02 00092    328000B9 04           LW,NBYTES  TX2
       422   02 00093    22600018 A            LI,LBX   24                BEGIN IN COLUMN 24
       423   02 00094    B25000B8 04           LW,XT1   *TX1              ARGUMENT
       424   02 00095    6A700424              CALL     XEDIT
       425   02 00096    6A700384              CALL     PRINT             PRINT THE LINE
       426   02 00097    331000B8 04           MTW,1    TX1               BUMP ADDRESS OF NEXT ARGUMENT
       427   02 00098    338000B9 04           MTW,-8   TX2               DECREASE NO. OF DIGITS REMAINING
       428   02 00099    6920008F              BGZ      EDIT3               AND RETURN IF NOT FINISHED
       429                            *
       430   02 0009A    32400016 03           LW,XT    LASTVAL           RESTORE
       431   02 0009B    3540001D 03           STW,XT   NOLIST              NOLIST.
       432                            *
       433                            * NOW UPDATE BOTH LOCATION COUNTERS BY THE NUMBER OF BYTES OUTPUT
       434   02 0009C    3240009D 04           LW,XT    NOBYTES
       435   02 0009D    6640000E 03           AWM,XT   DLRVAL
       436   02 0009E    3040000F 03           AW,XT    DDLRVAL
       437   02 0009F    3540000F 03           STW,XT   DDLRVAL
       438   02 000A0    35400016 03           STW,XT   LASTVAL
       439   02 000A1    E8000077 04           B        *EDITXIT
1
       441                            *
       442                            *   E D I T D D L R
       443                            *        EDIT THE LOAD LOCATION COUNTER INTO THE LISTING
       444                            *
       445   02 000A2                 EDITDDLR RES      0
       446   02 000A2    73100007 A            MTB,1    RL
       447                            *
       448                            *   E D I T D L R
       449                            *        EDIT THE LOCATION COUNTER INTO THE LISTING IMAGE
       450                            *
       451   02 000A3                 EDITDLR  RES      0
       452   02 000A3    33000006 03           MTW,0    PASS             DON'T EDIT THE LOCATION COUNTER
       453   02 000A4    683E0000 A            EXIT,EQ  RL                 DURING THE DEFINITION PASS
       454   02 000A5    35700076 04           STW,RL   EDITDXIT
       455   02 000A6    72500076 04           LB,XT1   EDITDXIT          INDEX TO % OR %%
       456   02 000A7    325A000A 03           LW,XT1   DLRCS,XT1         CONTROL SECTION # OF % OR %%
       457   02 000A8    75500005 A            STB,XT1  XT1
       458   02 000A9    22800002 A            LI,NBYTES  2
       459   02 000AA    2260000C A            LI,LBX   12                STARTING COLUMN NUMBER
       460   02 000AB    6A700424              CALL     XEDIT
       461   02 000AC    72500076 04           LB,XT1   EDITDXIT          INDEX TO % OR %%
       462   02 000AD    325A000E 03           LW,XT1   DLRVAL,XT1        VALUE OF % OR %%
       463   02 000AE    2550000A A            SLS,XT1  10                LEFT-ADJUST VALUE
       464   02 000AF    20600001 A            AI,LBX   1                 SKIP 1 COLUMN
       465   02 000B0    22800005 A            LI,NBYTES  5               SET NUMBER OF DIGITS TO PRINT
       466   02 000B1    6A700424              CALL     XEDIT
       467   02 000B2    25500202 A            SCS,XT1  2                 RIGHT-ADJUST THE 2 LOW ORDER BITS
       468   02 000B3    20600001 A            AI,LBX   1                 SKIP A COLUMN
       469   02 000B4    6A700000 N            CALL     DEDIT
       470   02 000B5    E8000076 04           B        *EDITDXIT
1
       472                            *
       473                            *  E D I T V A L
       474                            *        EDIT A VALUE ITEM INTO THE LISTING IMAGE.  THIS ROUTINE
       475                            *          OPERATES ONLY ON THE SOURCE LEVEL IN THE GEN PASS.
       476                            *
       477                            *          INPUT: ARG POINTS TO THE VALUE ITEM
       478                            *
       479                            *         OUTPUT: THE VALUE EDITED INTO THE LISTING IN COL. 18 AS:
       480                            *                 A) AN 8 DIGIT VALUE ITEM IF AN SP BINARY INTEGER
       481                            *                 B) AN ADDRESS IF IT'S A NON-EXTERNAL
       482                            *                 C) FX,FS,FL,EXT,D,DPI,OR LFR AS APPROPRIATE
       483                            *
       484   02 000B6                 EDITV    RES      0
       485                            *   ENTRY FOR EDITING VALUE IN EXPRESSION TABLE
       486   02 000B6    32420000 A            LW,XT    0,XS
       487   02 000B7    30400035 03           AW,XT    KLINE
       488   02 000B8    35400066 04           STW,XT   ARG               STORE POINTER TO VALUE IN EVT
       489   02 000B9                 EDITVAL  RES      0
       490   02 000B9    32400021 03           LW,XT    PROCREF           EXIT IF NOT ON SOURCE LEVEL
       491   02 000BA    693E0000 A            EXIT,NE  RL
       492   02 000BB                 EDITV1   RES      0                 ENTRY FOR DISP DIRECTIVE
       493   02 000BB    32400006 03           LW,XT    PASS              EXIT IF IN THE DEFINITION PASS
       494   02 000BC    683E0000 A            EXIT,EQ  RL
       495   02 000BD    35700076 04           STW,RL   EDITDXIT          SAVE EXIT ADDRESS
       496   02 000BE    B2500066 04           LW,XT1   *ARG              CONTROL WORD OF ITEM
       497   02 000BF    6A7003FE              CALL     TYPE              DETERMINE TYPE OF ITEM
       498   02 000C0    25600205 A            SHIFT,XT2 ETLOB,31         RIGHT ADJUST TYPE
       499   02 000C1    724C00C5              LB,XT    EDITVTBL,XT2
       500   02 000C2    22600012 A            LI,LBX   18                START STORING IN BYTE 18
       501   02 000C3    32700066 04           LW,XT3   ARG               ADDRESS OF ARGUMENT
       502   02 000C4    680800CA              B        EDITVJMP,XT       BRANCH ON ITEM'S TYPE
       503                            *
       504                            EJ       COM,8    AF-EDITVJMP
       505   02 000C5                 EDITVTBL RES      0
       506   02 000C5    2A       A            EJ       EDITV10           UNDEFINED
       507   02 000C5 1  00       A            EJ       EDITV2            SPECIAL ADDRESS
       508   02 000C5 2  2A       A            EJ       EDITV10           SPECIAL EXTERNAL
       509   02 000C5 3  06       A            EJ       EDITV3            SIMPLE ADDRESS
       510   02 000C6    1B       A            EJ       EDITV5            SUM
       511   02 000C6 1  2A       A            EJ       EDITV10           EXTERNAL
       512   02 000C6 2  2A       A            EJ       EDITV10           LOCAL FORWARD
       513   02 000C6 3  2A       A            EJ       EDITV10           LOCAL FORWARD AND HOLD
       514   02 000C7    2A       A            EJ       EDITV10           ONE WORD ADDRESS
       515   02 000C7 1  23       A            EJ       EDITV8            SPECIAL INTEGER
       516   02 000C7 2  28       A            EJ       EDITV9            BLANK
       517   02 000C7 3  1F       A            EJ       EDITV6            INTEGER
       518   02 000C8    2A       A            EJ       EDITV10           PACKED DECIMAL
       519   02 000C8 1  2A       A            EJ       EDITV10           TEXT
       520   02 000C8 2  2A       A            EJ       EDITV10           FX
       521   02 000C8 3  2A       A            EJ       EDITV10           FS
       522   02 000C9    2A       A            EJ       EDITV10           FL
       523   02 000C9 1  2A       A            EJ       EDITV10           DPI
       524   02 000C9 2  2A       A            EJ       EDITV10           LIST
       525   02 000C9 3  2A       A            EJ       EDITV10           FUNCTION
       526                                     BOUND    4
       527                            *
       528   02 000CA                 EDITVJMP RES      0
       529                            *   HERE FOR SPECIAL ADDRESS
       530   02 000CA                 EDITV2   RES      0
       531   02 000CA    2241FFFF A            LV,XT    ADDFLD            MASK FOR ADD FIELD
       532   02 000CB    4B400005 A            AND,XT   XT1               ADD FIELD AT INTRINSIC RESOLUTION
       533   02 000CC    32700431              LV,RL    CSFLD             MASK FOR CS FIELD
       534   02 000CD    4B700005 A            AND,RL   XT1
       535   02 000CE    25700007 A            SHIFT,RL CSLOB,7           LEFT ADJUST CONTROL SECTION #
       536   02 000CF    680000D4              B        EDITV4
       537                            *   HER FOR SIMPLE ADDRESS
       538   02 000D0                 EDITV3   RES      0
       539   02 000D0    324E0001 A            LW,XT    1,XT3             GET OFFSET AND CONTROL SECTION
       540   02 000D1    32700432              LV,RL    FCSFLD            MASK FOR FCS FIELD
       541   02 000D2    4B700004 A            AND,RL   XT
       542   02 000D3    25700002 A            SHIFT,RL FCSLOB,7          LEFT ADJUST CONTROL SECTION #
       543   02 000D4                 EDITV4   RES      0
       544   02 000D4    25500208 A            SHIFT,XT1 ARLOB,31         RIGHT ADJUST AR FIELD
       545   02 000D5    4B500433              AND,XT1  =3
       546   02 000D6    254A0200 A            SCS,XT   0,XT1             SHIFT OFFSET TO BYTE RESOLUTION
       547   02 000D7    354000B8 04           STW,XT   TX1                 AND SAVE IN TEMP
       548   02 000D8    32500007 A            LW,XT1   RL                LOAD LEFT ADJUSTED CONTROL SECTION #
       549   02 000D9    22800002 A            LI,NBYTES 2
       550   02 000DA    6A700424              CALL     XEDIT             OUTPUT CONTROL SECTION AS 2 DIGITS
       551   02 000DB    20600001 A            AI,LBX   1                 LEAVE A BLANK COLUMN IN LSTBF
       552   02 000DC    325000B8 04           LW,XT1   TX1
       553   02 000DD    2550000A A            SLS,XT1  10                LEFT ADJUST WORD OFFSET FOR XEDIT
       554   02 000DE    22800005 A            LI,NBYTES 5
       555   02 000DF    6A700424              CALL     XEDIT             OUTPUT WORD OFFSET AS 5 DIGITS
       556   02 000E0    20600001 A            AI,LBX   1                 LEAVE A BLANK COLUMN IN LSTBF
       557   02 000E1    325000B8 04           LW,XT1   TX1
       558   02 000E2    4B500433              AND,XT1  =3
       559   02 000E3    6A700000 N            CALL     DEDIT             OUTPUT BYTE OFFSET IF NON-ZERO
       560   02 000E4    E8000076 04           B        *EDITDXIT         EXIT
       561                            *   HERE FOR SUM
       562   02 000E5                 EDITV5   RES      0
       563   02 000E5    20600009 A            AI,LBX   9                 SKIP OVER 9 BYTES
       564   02 000E6    225000E2 A            LI,XT1   'S'
       565   02 000E7    755C0000 X            STB,XT1  LSTBF,LBX         OUTPUT A SUM INDICATOR
       566   02 000E8    206FFFF7 A            AI,LBX   -9                BACK UP 9 BYTES
       567                            *   HERE FOR INTEGER
       568   02 000E9                 EDITV6   RES      0
       569   02 000E9    325E0001 A            LW,XT1   1,XT3             LOAD WORD FOLLOWING CONTROL WORD
       570   02 000EA                 EDITV7   RES      0
       571   02 000EA    22800008 A            LI,NBYTES 8
       572   02 000EB    6A700424              CALL     XEDIT             OUTPUT 8 HEX DIGITS
       573   02 000EC    E8000076 04           B        *EDITDXIT         EXIT
       574                            *   HERE FOR SPECIAL INTEGER
       575   02 000ED                 EDITV8   RES      0
       576   02 000ED    31500434              BFNZ,XT1,1  CCFLD,EDITV10  BRANCH IF SPECIAL INTEGER TEXT
             02 000EE    694000F4
       577   02 000EF    32400435              LV,XT    VALFLD            MASK FOR VAL FIELD
       578   02 000F0    4B500004 A            AND,XT1  XT
       579   02 000F1    680000EA              B        EDITV7
       580                            *   HERE FOR BLANK ITEM
       581   02 000F2                 EDITV9   RES      0
       582   02 000F2    22500000 A            LI,XT1   0                 OUTPUT A ZERO
       583   02 000F3    680000EA              B        EDITV7
       584                            *   HERE FOR UNDEFINED, SPECIAL EXTERNAL, EXTERNAL, LOCAL FORWARD,
       585                            *     LOCAL FORWARD & HOLD, ONE WORD ADDRESS, PACKED DECIMAL,
       586                            *     TEXT, FX, FS, FL, DPI, LIST, AND FUNCTION
       587   02 000F4                 EDITV10  RES      0
       588   02 000F4    32400060 04           LW,XT    DD%TYPE
       589   02 000F5    25400205 A            SHIFT,XT ETLOB,31          RIGHT ADJUST ITEM'S TYPE
       590   02 000F6    725800FB              LB,XT1   EDITVMSGTBL,XT
       591   02 000F7    20500400              AI,XT1   BA(EDITVMSG)      BYTE ADDRESS OF TEXT MESSAGE
       592   02 000F8    22800004 A            LI,NBYTES 4
       593   02 000F9    6A700008              CALL     AEDIT             OUTPUT A 4 CHARACTER MESSAGE
       594   02 000FA    E8000076 04           B        *EDITDXIT         EXIT
       595                            *
       596                            EM       COM,8    BA(AF)-BA(EDITVMSG)
       597   02 000FB                 EDITVMSGTBL  RES  0
       598   02 000FB    00       A            EM       UNDMSG            UNDEFINED
       599   02 000FB 1  00       A            EM       UNDMSG            SPECIAL ADDRESS
       600   02 000FB 2  04       A            EM       EXTMSG            SPECIAL EXTERNAL
       601   02 000FB 3  00       A            EM       UNDMSG            SIMPLE ADDRESS
       602   02 000FC    00       A            EM       UNDMSG            SUM
       603   02 000FC 1  04       A            EM       EXTMSG            EXTERNAL
       604   02 000FC 2  08       A            EM       LFRMSG            LOCAL FORWARD
       605   02 000FC 3  08       A            EM       LFRMSG            LOCAL FORWARD AND HOLD
       606   02 000FD    00       A            EM       UNDMSG            ONE WORD ADDRESS
       607   02 000FD 1  10       A            EM       TEXTMSG           SPECIAL INTEGER (TEXT)
       608   02 000FD 2  00       A            EM       UNDMSG            BLANK
       609   02 000FD 3  00       A            EM       UNDMSG            INTEGER
       610   02 000FE    0C       A            EM       DMSG              PACKED DECIMAL
       611   02 000FE 1  10       A            EM       TEXTMSG           TEXT
       612   02 000FE 2  14       A            EM       FXMSG             FX
       613   02 000FE 3  18       A            EM       FSMSG             FS
       614   02 000FF    1C       A            EM       FLMSG             FL
       615   02 000FF 1  20       A            EM       DPIMSG            DPI
       616   02 000FF 2  24       A            EM       LISTMSG           LIST
       617   02 000FF 3  00       A            EM       UNDMSG            FUNCTION
       618                                     BOUND    4
       619                            *
       620   02 00100                 EDITVMSG RES      0
       621   02 00100    E4D5C440 A   UNDMSG   TEXT     'UND '
       622   02 00101    C5E7E340 A   EXTMSG   TEXT     'EXT '
       623   02 00102    D3C6D940 A   LFRMSG   TEXT     'LFR '
       624   02 00103    C4404040 A   DMSG     TEXT     'D   '
       625   02 00104    E3C5E7E3 A   TEXTMSG  TEXT     'TEXT'
       626   02 00105    C6E74040 A   FXMSG    TEXT     'FX  '
       627   02 00106    C6E24040 A   FSMSG    TEXT     'FS  '
       628   02 00107    C6D34040 A   FLMSG    TEXT     'FL  '
       629   02 00108    C4D7C940 A   DPIMSG   TEXT     'DPI '
       630   02 00109    D3C9E2E3 A   LISTMSG  TEXT     'LIST'
1
       632                            *
       633                            *   E R R
       634                            *        THIS ROUTINE RECORDS ERRORS REPORTED BY XAP.  IT HAS MULTIPLE
       635                            *          ENTRY POINTS; EACH ONE LOADS AN ERROR CODE AND A SEVERITY
       636                            *          FOR THAT ERROR AND BRANCHES TO A COMMON PROCESSING POINT.
       637                            *          THIS ROUTINE MAINTAINS THE NUMBER OF ERRORS ENCOUNTERED
       638                            *          WITHIN A LINE AND THE MAXIMUM SEVERITY FOR AN ENTIRE
       639                            *          ASSEMBLY. THE FIRST THREE ERROR CODES REPORTED FOR A LINE
       640                            *          WILL BE LISTED WITH THAT LINE. ANY ADDITIONAL ERRORS PER LINE
       641                            *          WILL BE INCLUDED IN THE ERROR COUNT BUT WILL NOT BE LISTED.
       642                            *          MAXIMUM SEVERITY IS DETERMINED FROM ALL ERRORS REPORTED,
       643                            *          WHETHER LISTED OR NOT.
       644                            *
       645                            *        INPUT:   REGISTER EC CONTAINS AN EBCDIC ERROR CODE AND A
       646                            *                   SEVERITY LEVEL
       647                            *
       648                            *        OUTPUT:  ERRTRIG CONTAINS THE NUMBER OF ERRORS REPORTED FOR
       649                            *                   THE CURRENT LINE.
       650                            *                 ERRSEV CONTAINS THE MAXIMUM SEVERITY ERROR REPORTED
       651                            *
       652                            *        CALL:    BAL,ER  CERR
       653                            *                 BAL,ER  DERR
       654                            *                 BAL,ER  EERR
       655                            *                 BAL,ER  IERR
       656                            *                 BAL,ER  KERR
       657                            *                 BAL,ER  LERR
       658                            *                 BAL,ER  SERR
       659                            *                 BAL,ER  TERR
       660                            *                 BAL,ER  UERR
       661                            *
       662                            *        USES REGISTERS
       663                            *                 EC
       664                            *                 ER
       665                            *
       666                            *
       667                            ERRCODE  COM,8,4,12,8  X'22',EC,AF(1),AF(2)
       668                            *
       669   02 0010A                 CERR     RES      0
       670   02 0010A    22E0C303 A            ERRCODE  'C',3
       671   02 0010B    6800011D              B        ERR3
       672   02 0010C                 DERR     RES      0
       673   02 0010C    22E0C403 A            ERRCODE  'D',3
       674   02 0010D    6800011D              B        ERR3
       675   02 0010E                 EERR     RES      0
       676   02 0010E    22E0C503 A            ERRCODE  'E',3
       677   02 0010F    6800011D              B        ERR3
       678   02 00110                 IERR     RES      0
       679   02 00110    22E0C903 A            ERRCODE  'I',3
       680   02 00111    6800011D              B        ERR3
       681   02 00112                 KERR     RES      0
       682   02 00112    22E0D203 A            ERRCODE  'K',3
       683   02 00113    6800011D              B        ERR3
       684   02 00114                 LERR     RES      0
       685   02 00114    22E0D303 A            ERRCODE  'L',3
       686   02 00115    6800011D              B        ERR3
       687   02 00116                 SERR     RES      0
       688   02 00116    22E0E203 A            ERRCODE  'S',3
       689   02 00117    6800011D              B        ERR3
       690   02 00118                 TERR     RES      0
       691   02 00118    22E0E303 A            ERRCODE  'T',3
       692   02 00119    6800011D              B        ERR3
       693   02 0011A                 UERR     RES      0
       694   02 0011A    3300002D 03           MTW,0    TCORFLG           DON'T REPORT UNDEFINED ERRORS
       695   02 0011B    E930000F A            EXIT,NE  ER                  WHILE PROCESSING TCOR OR DISP
       696   02 0011C    22E0E403 A            ERRCODE  'U',3
       697   02 0011D                 ERR3     RES      0
       698   02 0011D    33000006 03           MTW,0    PASS
       699   02 0011E    E830000F A            EXIT,EQ  ER                DON'T REPORT ERRORS IN DEFINITION
       700   02 0011F    71E0001A 03           CB,EC    MAXSEV
       701   02 00120    68200122              BLE      ERR4              SEVERITY FOR THIS ERROR NOT MAXIMUM
       702   02 00121    75E0001A 03           STB,EC   MAXSEV            UPDATE MAXIMUM SEVERITY LEVEL
       703   02 00122                 ERR4     RES      0
       704   02 00122    25E00078 A            SLS,EC   -8                SHIFT OFF SEVERITY
       705   02 00123    46400012 03           XW,XT    ERRTRIG           SAVE XT AND LOAD ERROR COUNT
       706   02 00124    6830012D              BEZ      ERR6              FIRST ERROR FOR THIS LINE
       707                            *                                                              /25342/*D-DGCOM
       708   02 00125    52400004 A            LH,XT    XT                RIGHT-JUSTIFY              /25342/*D-DGCOM
       709   02 00126    21400003 A            CI,XT    3                 BRANCH IF 3 ERROR CODES HAVE ALREADY
       710   02 00127    6830012F              BE       ERR7                BEEN STORED FOR THIS LINE
       711   02 00128    7540000E A            STB,XT   EC                SAVE ERROR COUNT
       712   02 00129                 ERR5     RES      0
       713   02 00129    71E80000 X            CB,EC    LSTBF,XT          DON'T STORE CURRENT ERROR CODE IF IT
       714   02 0012A    68300132              BE       ERR8                IS ALREADY IN THE LIST BUFFER
       715   02 0012B    64400129              BDR,XT   ERR5
       716   02 0012C    7240000E A            LB,XT    EC                RESTORE ERROR COUNT
       717   02 0012D                 ERR6     RES      0
       718   02 0012D    20400001 A            AI,XT    1                 INCREMENT ERROR COUNT
       719   02 0012E    75E80000 X            STB,EC   LSTBF,XT          STORE ERROR CODE IN LIST BUFFER
       720   02 0012F                 ERR7     RES      0
       721   02 0012F    25400010 A            SLS,XT   16                RESTORE TO LEFT HW         /25342/*D-DGCOM
       722   02 00130    46400012 03           XW,XT    ERRTRIG           UPDATE ERROR COUNT AND RESTORE XT
       723   02 00131    E800000F A            EXIT     ER
       724   02 00132                 ERR8     RES      0
       725   02 00132    7240000E A            LB,XT    EC                RESTORE ERROR COUNT
       726   02 00133    6800012F              B        ERR7
1
       728                            *
       729                            *   E X P E N D
       730                            *        THIS SUBROUTINE OUTPUTS AN EXPRESSION END LOADER CODE TO THE
       731                            *         'BO' FILE.
       732                            *
       733                            *        CALL:    BAL,RL  EXPEND
       734                            *
       735                            *        USES REGISTERS
       736                            *                 NBYTES
       737                            *                 XT1
       738                            *
       739   02 00134                 EXPEND   RES      0
       740   02 00134    22500180              LI,XT1   BA(EXPENDCD)      LOADER CODE FOR EXPRESSION END
       741   02 00135    22800001 A            LI,NBYTES 1                OUTPUTS ONE BYTE
       742   02 00136    6800002D              B        BEDIT%SE          ERROR IF SOCW CONTROL IN EFFECT
1
       744                            *
       745                            *   G E N E R A T E
       746                            *        THIS SUBROUTINE GENERATES BINARY OBJECT CODE TO THE BO BUFFER
       747                            *          AND EQUIVALENT HEX CODE TO THE LO BUFFER. IT ALSO EDITS
       748                            *          THE ADDRESS TYPE TO THE LO BUFFER (N,X, ,A,F,CS#). DURING
       749                            *          THE GENERATION PASS OBJECT CODE IS PRODUCED; DURING THE
       750                            *          DEFINITION PASS, THE LOCATION COUNTERS ARE INCREASED BY THE
       751                            *          NUMBER OF BYTES TO BE GENERATED.
       752                            *
       753                            *        INPUT:   INPUT TO GENERATE CONSISTS OF TWO LISTS; THE FIRST
       754                            *                   LIST IS A SERIES OF POINTERS TO FIELD LENGTH
       755                            *                   DEFINITIONS, THE SECOND LIST IS A SERIES OF POINTERS
       756                            *                   TO FIELD VALUES.
       757                            *                 XT CONTAINS THE NUMBER OF BYTES TO BE GENERATED.
       758                            *                 FLDCNT CONTAINS THE NUMBER OF ENTRIES IN THE FIELD
       759                            *                   LENGTH LIST
       760                            *                 FLDPTR CONTAINS A POINTER TO THE FIRST ENTRY IN THE
       761                            *                   FIELD LENGTH LIST
       762                            *                 VALCNT CONTAINS THE NUMBER OF ENTRIES IN THE FIELD
       763                            *                   VALUE LIST
       764                            *                 VALPTR CONTAINS A POINTER TO THE FIRST ENTRY IN THE
       765                            *                   FIELD VALUE LIST
       766                            *
       767                            *        OUTPUT:  THE LOCATION COUNTERS HAVE BEEN ADVANCED BY THE
       768                            *                   NUMBER OF BYTES GENERATED.
       769                            *
       770                            *        CALL:    BAL,RL  GENERATE  BOTH LISTS ARE IN EXPRESSION TABLE
       771                            *                 BAL,RL  GENERATE1 VALUE LIST IS IN EXPRESSION TABLE,
       772                            *                                     BUT FIELD LENGTH LIST IS ELSEWHERE
       773                            *        USES REGISTERS
       774                            *                 XT
       775                            *                 XT1
       776                            *                 XT2
       777                            *                 XT3
       778                            *                 RL
       779                            *                 TR0
       780                            *                 TR1
       781                            *
       782                                     LOCAL    %1,%2,%3,%10,%20,%30,%40,%50,%60,%70,%71,%72
       783                                     LOCAL    %80,%90,%91,%92,%93,%94,%100,%110,%120,%121,%122
       784                                     LOCAL    %130,%131,%132,%140,%150,%160,%170,%180,%190
       785                                     LOCAL    %200,%210,%290,%291,%300,%301,%302,%303,%304
       786                                     LOCAL    %305,%306,%307,%310,%311,%320,%321,%330,%331
       787                                     LOCAL    %340,%341,%342,%350,%351,%352,%360,%361,%362
       788                                     LOCAL    %370,%371,%380,%381,%382,%383,%384,%390,%391
       789                                     LOCAL    %392,%400,%401,%410,%420,%421,%430,%431,%432
       790   02 00137                 GENERATE RES      0
       791   02 00137    32500035 03           LW,XT1   KLINE             FIELD LENGTH POINTERS ARE OFFSETS
       792   02 00138    68000000 F            B        %1                  FROM KLINE
       793   02 00139                 GENERATE1  RES    0
       794   02 00139    22500000 A            LI,XT1   0                 FIELD LENGTH POINTERS ARE ADDRESSES
       795   02 0013A                 %1       RES      0
       796   02 0013A    35500080 04           STW,XT1  FLDPTRBSE         BASE ADDRESS FOR FLDPTR
       797   02 0013B    3250000A 03           LW,XT1   DLRCS
       798   02 0013C    66500009 03           AWM,XT1  DATAGEN           INDICATE DATA HAS BEEN GENERATED
       799   02 0013D    33000006 03           MTW,0    PASS
       800   02 0013E    69300000 F            BNEZ     %2                GENERATION PASS
       801                            *   HERE FOR DEFINITION PASS.
       802   02 0013F    6640000E 03           AWM,XT   DLRVAL            ADVANCE BOTH LOCATION COUNTERS BY
       803   02 00140    6640000F 03           AWM,XT   DDLRVAL             NUMBER OF BYTES TO BE GENERATED
       804   02 00141    680E0000 A            EXIT     RL
       805   02 00142                 %2       RES      0
       806                            *   HERE FOR GENERATION PASS
       807   02 00142    35700088 04           STW,RL   GENEXIT
       808   02 00143    6A70035F              CALL     ORIGIN            OUTPUT A LOAD ORIGIN IF NEEDED
       809   02 00144    22400000 A            LI,XT    0
       810   02 00145    35400067 04           STW,XT   ASVCNT            INITIALIZE ADD/SUBTRACT VALUE COUNT
       811   02 00146    3540008A 04           STW,XT   HVLENGTH            AND ACCUMULATED LENGTH
       812   02 00147    35400079 04           STW,XT   HEXVAL              AND FOUR WORD ACCUMULATED VALUE
       813   02 00148    3540007A 04           STW,XT   HEXVAL+1
       814   02 00149    3540007B 04           STW,XT   HEXVAL+2
       815   02 0014A    3540007C 04           STW,XT   HEXVAL+3
       816   02 0014B    32400051 04           LW,XT    FLDCNT
       817   02 0014C    31400063 04           CW,XT    VALCNT
       818   02 0014D    68100000 F            BGE      %10               MORE FIELDS THAN VALUES WILL PAD 0'S
       819   02 0014E    35400063 04           STW,XT   VALCNT            MORE VALUES THAN FIELDS, USE FIELD
       820   02 0014F    6AF0010E              BAL,ER   EERR                COUNT FOR BOTH AND REPORT ERROR
       821   02 00150    68000000 F            B        %10
       822   02 00151                 %3       RES      0
       823                            *   MAJOR LOOP FOR FIRST PASS BEGINS HERE
       824   02 00151    33F00052 04           MTW,-1   FLDPTR            DECREMENT POINTERS TO NEXT FIELD
       825   02 00152    33F00064 04           MTW,-1   VALPTR              SIZE AND VALUE
       826   02 00153    33F00063 04           MTW,-1   VALCNT            DECREMENT VALUE COUNT
       827   02 00154                 %10      RES      0
       828   02 00154    22400001 A            LI,XT    1
       829   02 00155    3540009E 04           STW,XT   NOWORDS           INITIALIZE NUMBER OF WORDS
       830   02 00156    B2400052 04           LW,XT    *FLDPTR           GET POINTER TO FIELD SIZE
       831   02 00157    B2480080 04           LW,XT    *FLDPTRBSE,XT     LOAD FIELD SIZE
       832   02 00158    4B400435              AND,XT   =VALFLD           GET VALUE FROM SPECIAL INTEGER
       833   02 00159    35400085 04           STW,XT   FLENGTH           SAVE FIELD LENGTH
       834   02 0015A    68300000 F            BEZ      %170              DO NOTHING FOR ZERO LENGTH FIELD
       835   02 0015B    32400063 04           LW,XT    VALCNT
       836   02 0015C    6820016D              BLEZ     GEN35             NO MORE VALUES                /10778/B-08773
       837   02 0015D    B2400064 04           LW,XT    *VALPTR           GET VALUE CONTROL WORD
       838   02 0015E    30400035 03           AW,XT    KLINE
       839   02 0015F    35400066 04           STW,XT   ARG               SAVE POINTER TO VALUE
       840   02 00160    4B400436              AND,XT   =ETFLD
       841   02 00161    35400060 04           STW,XT   DD%TYPE           SAVE ITEM TYPE
       842   02 00162    25400205 A            SHIFT,XT ETLOB,31          RIGHT JUSTIFY TYPE
       843   02 00163    72480220              LB,XT    TYPETBL,XT        GET OFFSET TO ITEM TYPE PROCESSOR
       844   02 00164    68080165              B        TYPEBASE,XT       BRANCH TO ITEM TYPE PROCESSOR
       845                            *
       846   02 00165                 TYPEBASE RES      0
       847                            *
       848   02 00165                 %20      RES      0
       849                            *   HERE FOR EXTERNAL, SPECIAL EXTERNAL, LOCAL FORWARD, LOCAL FORWARD
       850                            *     AND HOLD, OR ONE WORD ADDRESS
       851   02 00165    22400000 A            LI,XT    0                 USE ZERO VALUE
       852   02 00166    68000000 F            B        %60
       853   02 00167                 %30      RES      0
       854                            *   HERE FOR SPECIAL ADDRESS
       855   02 00167    B2700066 04           LW,RL    *ARG              LOAD ADDRESS WORD
       856   02 00168    2241FFFF A            LV,XT    ADDFLD            MASK FOR ADDRESS FIELD
       857   02 00169    4B400007 A            AND,XT   RL                GET ADDRESS
       858   02 0016A    31700431              BFZ,RL   CSFLD,%70         ABSOLUTE CONTROL SECTION
             02 0016B    68400000 F
       859   02 0016C    68000000 F            B        %60               RELOCATABLE CONTROL SECTION
       860   02 0016D                 GEN35    RES      0                                               /10778/B-08773
       861   02 0016D    32400064 04           LW,XT    VALPTR            IS THERE ROOM FOR             /10778/B-08773
       862   02 0016E    314000A0 04           CW,XT    NXTSYMT             A BLANK ECT ENTRY           /10778/B-08773
       863   02 0016F    6910030D              BL       HILIMIT4            NO.  ABORT                  /10778/B-08773
       864   02 00170                 %40      RES      0
       865                            *   HERE FOR BLANK FIELD
       866   02 00170    B2400052 04           LW,XT    *FLDPTR           GET FIELD SIZE ECT ENTRY
       867   02 00171    31400437              BFZ,XT   ASTFLD,GEN41      NO VALUE REQUIRED FOR THIS FIELD
             02 00172    68400174
       868   02 00173    6AF0010E              BAL,ER   EERR              ERROR, THIS FIELD REQUIRES A VALUE
       869   02 00174                 GEN41    RES      0
       870   02 00174    22400000 A            LI,XT    0                 USE ZERO VALUE
       871   02 00175    68000000 F            B        %70
       872   02 00176                 %140     RES      0
       873                            *   HERE FOR UNDEFINED GLOBAL, LIST, AND FUNCTION
       874   02 00176    6AF0011A              BAL,ER   UERR              UNDEFINED ITEM
       875   02 00177    68000174              B        GEN41
       876   02 00178                 %50      RES      0
       877                            *   HERE FOR SMALL INTEGER
       878   02 00178    B2400066 04           LW,XT    *ARG              LOAD SMALL INTEGER WORD
       879   02 00179    4B400435              AND,XT   =VALFLD           GET INTEGER VALUE
       880   02 0017A    68000000 F            B        %70
       881   02 0017B                 %80      RES      0
       882                            *   HERE FOR COMPLEX SUM
       883   02 0017B    33100066 04           MTW,1    ARG               POINT TO WORD FOLLOWING CONTROL WORD
       884   02 0017C    B2400066 04           LW,XT    *ARG              LOAD VALUE
       885   02 0017D    68000000 F            B        %60
       886   02 0017E                 %90      RES      0
       887                            *   HERE FOR PACKED DECIMAL, FL, AND DPI
       888   02 0017E    B2400066 04           LW,XT    *ARG              LOAD CONTROL WORD
       889   02 0017F    4B400438              AND,XT   =LENGTHFLD        GET LENGTH
       890   02 00180    204FFFFF A            AI,XT    -1                  AND DECREASE BY ONE
       891   02 00181    21400004 A            CI,XT    4
       892   02 00182    68200000 F            BLE      %91               4 WORDS OR LESS IS OK
       893   02 00183    6AF00118              BAL,ER   TERR              TRUNCATION ERROR
       894   02 00184    22400004 A            LI,XT    4                 SET LENGTH TO 4
       895   02 00185                 %91      RES      0
       896   02 00185    3540009E 04           STW,XT   NOWORDS           NUMBER OF VALUE WORDS
       897   02 00186                 %92      RES      0
       898   02 00186    B2780066 04           LW,RL    *ARG,XT           MOVE CONSTANTS FROM EXPRESSION
       899   02 00187    35780080 04           STW,RL   FLDVAL-1,XT         TABLE TO FLDVAL; MOVING FROM LAST
       900   02 00188    64400186              BDR,XT   %92                 TO FIRST
       901   02 00189    32700081 04           LW,RL    FLDVAL
       902   02 0018A    68100000 F            BGEZ     %71               VALUE IS POSITIVE
       903   02 0018B    32500066 04           LW,XT1   ARG               LOAD CONTROL WORD
       904   02 0018C                 %93      RES      0
       905   02 0018C    31500439              BFZ,XT1,1 EXPFLD,%71       VALUE IS NOT SIGNED
             02 0018D    68400000 F
       906   02 0018E    32400085 04           LW,XT    FLENGTH
       907   02 0018F    2040001F A            AI,XT    31                COMPUT THE NUMBER OF WORDS THAT
       908   02 00190    2540007B A            SLS,XT   -5                  VALUE IS TO BE PACKED INTO
       909   02 00191    3140009E 04           CW,XT    NOWORDS           IF IT'S NOT MORE THAN THE CONSTANT
       910   02 00192    68200000 F            BLE      %71                 NO SIGN EXTENSION IS NEEDED
       911   02 00193    3250009E 04           LW,XT1   NOWORDS
       912   02 00194    3540009E 04           STW,XT   NOWORDS
       913   02 00195                 %94      RES      0
       914   02 00195    327A0080 04           LW,RL    FLDVAL-1,XT1      RIGHT ADJUST CONSTANT WITHIN THE
       915   02 00196    35780080 04           STW,RL   FLDVAL-1,XT         NUMBER OF WORDS TO BE USED
       916   02 00197    204FFFFF A            AI,XT    -1
       917   02 00198    64500195              BDR,XT1  %94
       918   02 00199    227FFFFF A            LI,RL    -1
       919   02 0019A    35780080 04           STW,RL   FLDVAL-1,XT       THEN EXTEND THE MINUS SIGN THRU-OUT
       920   02 0019B    6440019A              BDR,XT   %-1                 THE REST OF THE HIGH ORDER WORDS
       921   02 0019C    68000000 F            B        %71
       922   02 0019D                 %100     RES      0
       923                            *   HERE FOR INTEGER AND FS
       924   02 0019D    32500066 04           LW,XT1   ARG               LOAD CONTROL WORD
       925   02 0019E    324A0001 A            LW,XT    1,XT1             LOAD VALUE
       926   02 0019F    68100000 F            BGEZ     %70               VALUE IS POSITIVE
       927   02 001A0    35400081 04           STW,XT   FLDVAL
       928   02 001A1    6800018C              B        %93
       929   02 001A2                 %110     RES      0
       930                            *   HERE FOR SIMPLE ADDRESS
       931   02 001A2    33100066 04           MTW,1    ARG               POINT TO WORD FOLLOWING CONTROL WORD
       932   02 001A3    B2700066 04           LW,RL    *ARG              LOAD WORD CONTAINING ADDRESS
       933   02 001A4    32400435              LV,XT    OFFSETFLD         MASK FOR OFFSET FIELD
       934   02 001A5    4B400007 A            AND,XT   RL                GET OFFSET
       935   02 001A6    31700432              BFZ,RL   FCSFLD,%70        ABSOLUTE CONTROL SECTION
             02 001A7    68400000 F
       936   02 001A8    68000000 F            B        %60               RELOCATABLE CONTROL SECTION
       937   02 001A9                 %120     RES      0
       938                            *   HERE FOR FX
       939   02 001A9    33100066 04           MTW,1    ARG               POINT TO WORD FOLLOWING CONTROL WORD
       940   02 001AA    B2400066 04           LW,XT    *ARG              LOAD VALUE
       941   02 001AB    22500000 A            LI,XT1   0
       942   02 001AC    32600085 04           LW,XT2   FLENGTH           FIELD LENGTH
       943   02 001AD    4B60043A              AND,XT2  =X'1F'            SHIFT COUNT
       944   02 001AE    68300000 F            BEZ      %121              SHIFT ZERO PLACES
       945   02 001AF    254C0160 A            SLD,XT   -32,XT2           RIGHT DOUBLE
       946   02 001B0                 %121     RES      0
       947   02 001B0    35400081 04           STW,XT   FLDVAL            ADJUSTED VALUE
       948   02 001B1    32700085 04           LW,RL    FLENGTH
       949   02 001B2    207FFFE0 A            AI,RL    -32               DECREASE FIELD LENGTH BY 1 WORD
       950   02 001B3    68200000 F            BLEZ     %71               FIELD LENGTH IS 1 WORD OR LESS
       951   02 001B4                 %122     RES      0
       952   02 001B4    3240009E 04           LW,XT    NOWORDS
       953   02 001B5    35580081 04           STW,XT1  FLDVAL,XT         STORE RIGHT HALF VALUE, OR ZERO
       954   02 001B6    22500000 A            LI,XT1   0                   AND PAD ZEROS UNTIL NUMBER OF
       955   02 001B7    3310009E 04           MTW,1    NOWORDS             WORDS CORRESPONDING TO FIELD SIZE
       956   02 001B8    207FFFE0 A            AI,RL    -32                 HAVE BEEN STORED
       957   02 001B9    692001B4              BG       %122
       958   02 001BA    68000000 F            B        %71
       959   02 001BB                 %130     RES      0
       960                            *   HERE FOR TEXT
       961   02 001BB    33100066 04           MTW,1    ARG               POINT TO WORD FOLLOWING CONTROL WORD
       962   02 001BC    22400000 A            LI,XT    0
       963   02 001BD    35400081 04           STW,XT   FLDVAL
       964   02 001BE    F2400066 04           LB,XT    *ARG              LOAD BYTE COUNT
       965   02 001BF    68300000 F            BEZ      %71               NO CHARS TO STORE
       966   02 001C0    21400010 A            CI,XT    16
       967   02 001C1    68200000 F            BLE      %131
       968   02 001C2    6AF00118              BAL,ER   TERR              TRUNCATION ERROR, TOO MANY CHARS
       969   02 001C3    22400010 A            LI,XT    16                USE MAX BYTE COUNT
       970   02 001C4                 %131     RES      0
       971   02 001C4    32500004 A            LW,XT1   XT
       972   02 001C5    20500003 A            AI,XT1   3
       973   02 001C6    2550007E A            SLS,XT1  -2                (BYTE COUNT+3)/4 IS
       974   02 001C7    3550009E 04           STW,XT1  NOWORDS             NUMBER OF WORDS
       975   02 001C8    25500002 A            SLS,XT1  2
       976   02 001C9    205FFFFF A            AI,XT1   -1                (NOWORDS*4)-1 IS LAST CHAR POSITION
       977   02 001CA                 %132     RES      0
       978   02 001CA    F2780066 04           LB,RL    *ARG,XT
       979   02 001CB    757A0081 04           STB,RL   FLDVAL,XT1
       980   02 001CC    205FFFFF A            AI,XT1   -1
       981   02 001CD    644001CA              BDR,XT   %132
       982   02 001CE    68000000 F            B        %71
       983   02 001CF                 %60      RES      0
       984   02 001CF    35400081 04           STW,XT   FLDVAL
       985   02 001D0    33100067 04           MTW,1    ASVCNT            INCREMENT ADD/SUBTRACT VALUE COUNT
       986   02 001D1    3240043B              LV,XT    RELOFLD           FLAG TO USE ENTRY
       987   02 001D2    68000000 F            B        %72
       988   02 001D3                 %70      RES      0
       989   02 001D3    35400081 04           STW,XT   FLDVAL
       990   02 001D4                 %71      RES      0
       991   02 001D4    22400000 A            LI,XT    0                 FLAG TO SKIP ENTRY
       992   02 001D5                 %72      RES      0
       993   02 001D5    3250043B              LV,XT1   RELOFLD           MASK FOR RELO FIELD
       994   02 001D6    C7400064 04           STS,XT   *VALPTR           SET USE/SKIP FLAG IN VALUE POINTER
       995                            *
       996                            *   HERE THE VALUE IN FLDVAL IS MERGED INTO THE APPROPRIATE FIELD OF
       997                            *        HEXVAL. NOWORDS IS THE NUMBER OF SIGNIFICANT WORDS IN FLDVAL.
       998                            *        FLENGTH IS THE NUMBER OF BITS IN THE CURRENT FIELD WITHIN
       999                            *        FLDVAL. HVLENGTH IS THE BIT POSITION IN HEXVAL (0-127) TO
      1000                            *        START MERGING. TRUNCATION IS DIAGNOSED.
      1001                            *
      1002   02 001D7    3250009E 04           LW,XT1   NOWORDS           NUMBER OF WORDS IN FLDVAL
      1003   02 001D8    32400085 04           LW,XT    FLENGTH           FIELD LENGTH PLUS OLD TOTAL LENGTH
      1004   02 001D9    3040008A 04           AW,XT    HVLENGTH            IS CURRENT TOTAL LENGTH
      1005   02 001DA    21400020 A            CI,XT    32                IF ACCUMULATED LENGTH EXCEEDS ONE
      1006   02 001DB    69200000 F            BG       %180                WORD, GO PROCESS MULTI-WORD MERGE
      1007   02 001DC    21500001 A            CI,XT1   1                 IF VALUE TO MERGE EXCEEDS ONE WORD,
      1008   02 001DD    69300000 F            BNE      %180                GO PROCESS MULTI-WORD MERGE
      1009                            *   HERE IF VALUE TO BE MERGED IS ONLY ONE WORD AND FINAL RESULT WILL
      1010                            *        FIT IN ONE WORD.
      1011   02 001DE    22800000 A            LI,TR0   0                 SET SIGN PLUS IN HIGH ORDER WORD
      1012   02 001DF    32900081 04           LW,TR1   FLDVAL            VALUE TO MERGE IN LOW ORDER WORD
      1013   02 001E0    68100000 F            BGE      %150              VALUE IS POSITIVE
      1014   02 001E1    228FFFFF A            LI,TR0   -1                VALUE IS NEGATIVE, SET SIGN WORD -
      1015   02 001E2                 %150     RES      0
      1016   02 001E2    22400020 A            LI,XT    32
      1017   02 001E3    38400085 04           SW,XT    FLENGTH
      1018   02 001E4    25880100 A            SLD,TR0  0,XT              LEFT ADJUST VALUE
      1019   02 001E5    6A700215              CALL     CHCKTRUN          CHECK FOR TRUNCATION
      1020   02 001E6    3A40008A 04           LCW,XT   HVLENGTH
      1021   02 001E7    25980000 A            SLS,TR1  0,XT              POSITION VALUE
      1022   02 001E8    66900079 04           AWM,TR1  HEXVAL            MERGE VALUE INTO ACCUMULATED WORD
      1023   02 001E9                 %160     RES      0
      1024                            *   HERE TO COMPLETE PROCESSING OF CURRENT FIELD
      1025   02 001E9    32400085 04           LW,XT    FLENGTH
      1026   02 001EA    6640008A 04           AWM,XT   HVLENGTH          ADD FIELD SIZE TO TOTAL
      1027   02 001EB                 %170     RES      0
      1028   02 001EB    33F00051 04           MTW,-1   FLDCNT            DECRSMENT FIELD COUNT
      1029   02 001EC    69200151              BGZ      %3                BACK TO PROCESS NEXT FIELD
      1030   02 001ED    68000000 F            B        %300              BEGIN SECOND PASS PROCESSING
      1031   02 001EE                 %180     RES      0
      1032                            *   HERE TO PERFORM A MULTI-WORD MERGE.
      1033                            *   THIS SECTION INITIALIZES.
      1034   02 001EE    22600080 A            LI,XT2   128
      1035   02 001EF    38600004 A            SW,XT2   XT                NUMBER OF BITS TO SHIFT LEFT TO
      1036   02 001F0    4B60043A              AND,XT2  =X'1F'              POSITION VALUE
      1037   02 001F1    204FFFFF A            AI,XT    -1
      1038   02 001F2    2540007B A            SLS,XT   -5                INDEX TO LOW ORDER WORD OF HEXVAL
      1039   02 001F3    3A700085 04           LCW,XT3  FLENGTH
      1040                            *   STARTING HERE, WORDS ARE MOVED FROM FLDVAL TO HEXVAL. A VALUE IS
      1041                            *        MOVED FROM LOW ORDER TO HIGH ORDER WORDS.
      1042   02 001F4                 %190     RES      0
      1043   02 001F4    217FFFE0 A            CI,XT3   -32
      1044   02 001F5    69200000 F            BG       %200              PROCESS WORD CONTAINING FINAL UNIT.
      1045   02 001F6    22800000 A            LI,TR0   0
      1046   02 001F7    329A0080 04           LW,TR1   FLDVAL-1,XT1      LOAD FIELD VALUE WORD
      1047   02 001F8    3590000F A            STW,TR1  ER                SAVE IT FOR TRUNCATION TEST LATER
      1048   02 001F9    258C0100 A            SLD,TR0  0,XT2             POSITION VALUE FOR MERGING
      1049   02 001FA    66980079 04           AWM,TR1  HEXVAL,XT         MERGE LOW ORDER VALUE WORD
      1050   02 001FB    66880078 04           AWM,TR0  HEXVAL-1,XT         AND HIGHER ORDER WORD
      1051   02 001FC    20700020 A            AI,XT3   32                INCREASE FIELD LENGTH
      1052   02 001FD    204FFFFF A            AI,XT    -1                INDEX TO HIGHER ORDER WORD OF HEXVAL
      1053   02 001FE    645001F4              BDR,XT1  %190              DECREMENT NUMBER OF WORDS OF FLDVAL
      1054                            *                                     AND CONTINUE IF MORE
      1055                            *   HERE IF NUMBER OF WORDS OF FLDVAL IS EXHAUSTED. TRUNCATION IS NOT
      1056                            *        POSSIBLE.
      1057   02 001FF    680001E9              B        %160              DONE PROCESSING THIS VALUE
      1058   02 00200                 %200     RES      0
      1059                            *   HERE TO PROCESS THE WORD CONTAINING THE FINAL UNIT.
      1060   02 00200    328A0080 04           LW,TR0   FLDVAL-1,XT1      LOAD VALUE WORD
      1061   02 00201    21700000 A            CI,XT3   0
      1062   02 00202    68300212              BE       %220              REMAINING FIELD LENGTH IS ZERO
      1063   02 00203    22900000 A            LI,TR1   0
      1064   02 00204    258E0500 A            SAD,TR0  0,XT3             SHIFT RIGHT TO SPLIT THE WORD
      1065   02 00205    38600007 A            SW,XT2   XT3
      1066   02 00206    206FFFE0 A            AI,XT2   -32
      1067   02 00207    6A700215              CALL     CHCKTRUN          CHECK FOR TRUNCATION
      1068   02 00208    22800000 A            LI,TR0   0
      1069   02 00209    258C0100 A            SLD,TR0  0,XT2             POSITION VALUE WORD FOR MERGING
      1070   02 0020A    66980079 04           AWM,TR1  HEXVAL,XT         MERGE LOW ORDER VALUE WORD
      1071   02 0020B    66880078 04           AWM,TR0  HEXVAL-1,XT         AND HIGHER ORDER WORD
      1072   02 0020C                 %210     RES      0
      1073                            *   HERE TO DISCARD REMAINING WORDS. EACH WORD MUST BE EQUAL TO THE
      1074                            *        SIGN OF VALUE ,I.E. ALL ZEROS OR ALL ONES, OR TRUNCATION ERROR
      1075                            *        IS REPORTED.
      1076   02 0020C    205FFFFF A            AI,XT1   -1                DECREMENT NUMBER OF FLDVAL WORDS
      1077   02 0020D    683001E9              BE       %160              ALL WORDS PROCESSED
      1078   02 0020E    31FA0080 04           CW,ER    FLDVAL-1,XT1      IF WORD IS SAME AS SIGN WORD
      1079   02 0020F    6830020C              BE       %210                IT CAN BE DISCARDED
      1080                            *   HERE WHEN VALUE WORD TO BE DISCARDED IS NOT THE SAME AS SIGN WORD.
      1081   02 00210    6A70021B              CALL     CKTRUN1           REPORT TRUNCATION ERROR
      1082   02 00211    680001E9              B        %160
      1083   02 00212                 %220     RES      0
      1084                            *   HERE TO CHECK FOR TRUNCATION WHEN REMAINING FIELD LENGTH IS ZERO.
      1085   02 00212    3290000F A            LW,TR1   ER
      1086   02 00213    6A700215              CALL     CHCKTRUN          CHECK FOR TRUNCATION
      1087   02 00214    6800020C              B        %210
      1088                            *
      1089                            *   C H C K T R U N
      1090                            *        THIS SUBROUTINE IS USED BY GENERATE TO CHECK FOR POSSIBLE
      1091                            *          TRUNCATION.
      1092                            *
      1093                            *        OUTPUT:  ER CONTAINS SIGN WORD (ZERO OR -1) OR IS GREATER THAN
      1094                            *                   ZERO IF TRUNCATION OCCURS.
      1095                            *
      1096                            *        CALL:    BAL,RL  CHCKTRUN
      1097                            *
      1098   02 00215                 CHCKTRUN RES      0
      1099   02 00215    32F00008 A            LW,ER    TR0               IF HIGH ORDER WORD IS ZERO, THERE
      1100   02 00216    683E0000 A            EXIT,EQ  RL                  IS NO TRUNCATION
      1101   02 00217    21FFFFFF A            CI,ER    -1                IF HIGH ORDER WORD IS NOT -1, THERE
      1102   02 00218    6930021B              BNE      CKTRUN1             IS A TRUNCATION ERROR
      1103   02 00219    21900000 A            CI,TR1   0                 IF HIGH ORDER WORD IS -1 AND LOW
      1104   02 0021A    691E0000 A            EXIT,L   RL                  ORDER WORD IS NEGATIVE, THERE IS
      1105                            *                                     NO TRUNCATION
      1106   02 0021B                 CKTRUN1  RES      0
      1107   02 0021B    32F0043C              LV,ER    SUMET             DON'T REPORT TRUNCATION ERROR IF
      1108   02 0021C    31F00060 04           CW,ER    DD%TYPE             THE ITEM IS A COMPLEX SUM
      1109   02 0021D    683E0000 A            EXIT,EQ  RL
      1110   02 0021E    6AF00118              BAL,ER   TERR              REPORT TRUNCATION ERROR
      1111   02 0021F    680E0000 A            EXIT     RL
      1112                            *
      1113                            *   TABLE OF OFFSETS TO ITEM TYPE PROCESSOR
      1114                            *
      1115                            TYP      COM,8    AF-TYPEBASE
      1116   02 00220                 TYPETBL  RES      0
      1117   02 00220    11       A            TYP      %140              UNDEFINED
      1118   02 00220 1  02       A            TYP      %30               SPECIAL ADDRESS
      1119   02 00220 2  00       A            TYP      %20               SPECIAL EXTERNAL
      1120   02 00220 3  3D       A            TYP      %110              SIMPLE ADDRESS
      1121   02 00221    16       A            TYP      %80               SUM
      1122   02 00221 1  00       A            TYP      %20               EXTERNAL
      1123   02 00221 2  00       A            TYP      %20               LOCAL FORWARD
      1124   02 00221 3  00       A            TYP      %20               LOCAL FORWARD AND HOLD
      1125   02 00222    00       A            TYP      %20               ONE WORD ADDRESS (WITHIN SUM)
      1126   02 00222 1  13       A            TYP      %50               SPECIAL INTEGER
      1127   02 00222 2  0B       A            TYP      %40               BLANK FIELD
      1128   02 00222 3  38       A            TYP      %100              INTEGER
      1129   02 00223    19       A            TYP      %90               PACKED DECIMAL
      1130   02 00223 1  56       A            TYP      %130              TEXT
      1131   02 00223 2  44       A            TYP      %120              FX
      1132   02 00223 3  38       A            TYP      %100              FS
      1133   02 00224    19       A            TYP      %90               FL
      1134   02 00224 1  19       A            TYP      %90               DPI
      1135   02 00224 2  11       A            TYP      %140              LIST
      1136   02 00224 3  11       A            TYP      %140              FUNCTION
      1137                                     BOUND    4
      1138   02 00225                 GENERATE2  RES    0
      1139                            *   HERE TO GENERATE A FORWARD REFERENCE DEFINITION
      1140   02 00225    33000006 03           MTW,0    PASS
      1141   02 00226    683E0000 A            EXIT,EQ  RL                DEFINITION PASS
      1142   02 00227    35700088 04           STW,RL   GENEXIT
      1143   02 00228    22700008 A            LI,RL    8                 LOADER CODE FOR FORWARD REFERENCE
      1144   02 00229    4B40043D              AND,XT   =LENGTHFLD+STYPEFLD
      1145   02 0022A    35400078 04           STW,XT   ACONVAL           STORE FORWARD REFERENCE NUMBER
      1146   02 0022B    3140043E              CV,XT    LCLFWDHD
      1147   02 0022C    69100000 F            BL       %290              ITEM IS NOT A FORWARD AND HOLD
      1148   02 0022D    22700010 A            LI,RL    16                LOADER CODE FOR FORWARD AND HOLD
      1149   02 0022E                 %290     RES      0
      1150   02 0022E    55700078 04           STH,RL   ACONVAL           STORE LOADER CONTROL CODE
      1151   02 0022F    22800003 A            LI,NBYTES  3               NUMBER OF BYTES TO OUTPUT
      1152   02 00230    225001E1 04           LI,XT1   BA(ACONVAL)+1     BYTE ADDRESS OF 1ST BYTE TO OUTPUT
      1153   02 00231    6A70002D              CALL     BEDIT%SE          ERROR IF SOCW CONTROL IN EFFECT
      1154   02 00232    68000000 F            B        %291
      1155   02 00233                 GENERATE3 RES     0
      1156                            *   HERE TO GENERATE A LOAD DEFINITION
      1157   02 00233    35700088 04           STW,RL   GENEXIT
      1158   02 00234                 %291     RES      0
      1159   02 00234    73100088 04           MTB,1    GENEXIT           FLAG FOR LOAD DEFINITIONS
      1160   02 00235    22400000 A            LI,XT    0
      1161   02 00236    35400078 04           STW,XT   ACONVAL           INITIALIZE OFFSET TO ZERO
      1162   02 00237    3540008C 04           STW,XT   LARG
      1163   02 00238    68000000 F            B        %307
      1164                            *   HERE FOR SECOND PASS INITIALIZATION.
      1165   02 00239                 %300     RES      0
      1166   02 00239    3240008A 04           LW,XT    HVLENGTH
      1167   02 0023A    2540007D A            SLS,XT   -3
      1168   02 0023B    3540009D 04           STW,XT   NOBYTES           NUMBER OF BYTES TO LOAD
      1169   02 0023C    22400000 A            LI,XT    0
      1170   02 0023D    3540008A 04           STW,XT   HVLENGTH          INITIALIZE BACKWARD FIELD SIZE TOTAL
      1171   02 0023E    68000000 F            B        %306
      1172                            *   MAJOR LOOP FOR SECOND PASS BEGINS HERE
      1173   02 0023F                 %301     RES      0
      1174   02 0023F    33100052 04           MTW,1    FLDPTR            ADVANCE POINTERS TOWARD BOTTOM
      1175   02 00240    33100064 04           MTW,1    VALPTR
      1176   02 00241                 %306     RES      0
      1177   02 00241    33000067 04           MTW,0    ASVCNT
      1178   02 00242    68300000 F            BEZ      %304              ONLY CONSTANTS REMAINING
      1179   02 00243    B2400052 04           LW,XT    *FLDPTR           GET POINTER TO FIELD SIZE
      1180   02 00244    B2580080 04           LW,XT1   *FLDPTRBSE,XT     GET FIELD SIZE
      1181   02 00245    4B500435              AND,XT1  =VALFLD
      1182   02 00246    35500085 04           STW,XT1  FLENGTH           SAVE FIELD SIZE
      1183   02 00247    6830023F              BEZ      %301              SKIP ZERO LENGTH FIELDS
      1184   02 00248    B2400064 04           LW,XT    *VALPTR           GET VALUE CONTROL WORD
      1185   02 00249    3140043B              BFNZ,XT  RELOFLD,%303      PROCESS ADD/SUBTRACT VALUE ITEM
             02 0024A    69400000 F
      1186                            *   HERE IF FIELD IS ABSOLUTE
      1187   02 0024B    3240008A 04           LW,XT    HVLENGTH
      1188   02 0024C    69300000 F            BNEZ     %302              NOT FIRST FIELD
      1189   02 0024D    6A700357              CALL     LOADABS           OUTPUT A LOAD ABSOLUTE CODE
      1190   02 0024E                 %302     RES      0
      1191   02 0024E    32400085 04           LW,XT    FLENGTH
      1192   02 0024F    6640008A 04           AWM,XT   HVLENGTH          ACCUMULATE BACKWARD FIELD TOTAL
      1193   02 00250    6800023F              B        %301
      1194   02 00251                 %303     RES      0
      1195                            *   HERE FOR RELOCATABLE ITEMS WHICH OUTPUT ADD/SUBTRACT VALUE ITEMS.
      1196   02 00251    33F00067 04           MTW,-1   ASVCNT            DECREMENT ADD/SUBTRACT VALUE COUNT
      1197   02 00252    30400035 03           AW,XT    KLINE
      1198   02 00253    35400066 04           STW,XT   ARG               SAVE POINTER TO VALUE
      1199   02 00254                 %307     RES      0
      1200   02 00254    B2500066 04           LW,XT1   *ARG
      1201   02 00255    6A7003FE              CALL     TYPE              GET ITEM'S TYPE
      1202   02 00256    32400060 04           LW,XT    DD%TYPE
      1203   02 00257    25400205 A            SHIFT,XT ETLOB,31
      1204   02 00258    724802FA              LB,XT    TYPETBL2,XT
      1205   02 00259    68080261              B        TYPEBSE2,XT
      1206   02 0025A                 %304     RES      0
      1207                            *   HERE IF ONLY CONSTANTS REMAIN IN HEXVAL
      1208   02 0025A    3300008A 04           MTW,0    HVLENGTH
      1209   02 0025B    69300000 F            BNEZ     %305              LOAD CONTROL ALREADY OUTPUT
      1210                            *   HERE IF HEXVAL CONSISTS OF ENTIRELY CONSTANTS
      1211   02 0025C    6A700357              CALL     LOADABS           OUTPUT LOAD ABSOLUTE CONTROL
      1212   02 0025D    224000C1 A            LI,XT    'A'
      1213   02 0025E    3540006B 04           STW,XT   CODE              SET CODE TO ABSOLUTE
      1214   02 0025F                 %305     RES      0
      1215   02 0025F    6A700076              CALL     EDIT              EDIT HEXVAL INTO OBJECT LISTING
      1216   02 00260    E8000088 04           B        *GENEXIT
      1217                            *
      1218   02 00261                 TYPEBSE2 RES      0
      1219                            *
      1220   02 00261                 %310     RES      0
      1221                            *   HERE FOR SPECIAL ADDRESS
      1222   02 00261    B2400066 04           LW,XT    *ARG              GET WORD CONTAINING ADDRESS
      1223   02 00262    32700431              LV,RL    CSFLD
      1224   02 00263    4B700004 A            AND,RL   XT                GET CONTROL SECTION NUMBER
      1225   02 00264    2570020F A            SHIFT,RL CSLOB,31          RIGHT JUSTIFY IT
      1226   02 00265    3570006D 04           STW,RL   DDCS              SAVE CONTROL SECTION NUMBER
      1227   02 00266    68300000 F            BEZ      %311              ABSOLUTE CONTROL SECTION
      1228   02 00267    30700032 03           AW,RL    CSBASE            DECLARATION NUMBER FOR 1ST CS
      1229   02 00268                 %311     RES      0
      1230   02 00268    3570006E 04           STW,RL   DDNUM             CONTROL SECTION DECLARATION NUMBER
      1231   02 00269    2271FFFF A            LV,RL    ADDFLD
      1232   02 0026A    4B700004 A            AND,RL   XT
      1233   02 0026B    35700078 04           STW,RL   ACONVAL           OFFSET
      1234   02 0026C    3570008C 04           STW,RL   LARG
      1235   02 0026D    68000000 F            B        %331
      1236   02 0026E                 %320     RES      0
      1237                            *   HERE FOR ADDRESS
      1238   02 0026E    B2400066 04           LW,XT    *ARG              GET CONTROL WORD
      1239   02 0026F    33100066 04           MTW,1    ARG               POINT TO WORD FOLLOWING CONTROL WORD
      1240   02 00270    B2700066 04           LW,RL    *ARG              GET WORD CONTAINING ADDRESS
      1241   02 00271    32500432              LV,XT1   FCSFLD
      1242   02 00272    4B500007 A            AND,XT1  RL                GET CONTRO SECTION NUMBER
      1243   02 00273    2550020A A            SHIFT,XT1 FCSLOB,31        RIGHT JUSTIFY IT
      1244   02 00274    3550006D 04           STW,XT1  DDCS              SAVE CONTROL SECTION NUMBER
      1245   02 00275    68300000 F            BEZ      %321              ABSOLUTE CONTROL SECTION
      1246   02 00276    30500032 03           AW,XT1   CSBASE            DECLARATION NUMBER FOR 1ST CS
      1247   02 00277                 %321     RES      0
      1248   02 00277    3550006E 04           STW,XT1  DDNUM             CONTROL SECTION DECLARATION NUMBER
      1249   02 00278    3570008C 04           STW,RL   LARG
      1250   02 00279    4B700435              AND,RL   =OFFSETFLD
      1251   02 0027A    35700078 04           STW,RL   ACONVAL           OFFSET
      1252   02 0027B    68000000 F            B        %341
      1253   02 0027C                 %330     RES      0
      1254                            *   HERE FOR SPECIAL EXTERNAL
      1255   02 0027C    B2400066 04           LW,XT    *ARG
      1256   02 0027D    2271FFFF A            LV,RL    ADDFLD
      1257   02 0027E    4B700004 A            AND,RL   XT
      1258   02 0027F    3570006E 04           STW,RL   DDNUM             EXTERNAL DECLARATION NUMBER
      1259   02 00280                 %331     RES      0
      1260   02 00280    22700000 A            LI,RL    0
      1261   02 00281    3570006C 04           STW,RL   DDASV             SET FLAG TO 'ADD'
      1262   02 00282    68000000 F            B        %360
      1263   02 00283                 %340     RES      0
      1264                            *   HERE FOR LOCAL FORWARD, EXTERNAL, LOCAL FORWARD AND HOLD, OR
      1265                            *     ONE WORD ADDRESS
      1266   02 00283    B2400066 04           LW,XT    *ARG
      1267   02 00284    22707FFF A            LV,RL    LENGTHFLD
      1268   02 00285    4B700004 A            AND,RL   XT
      1269   02 00286    3570006E 04           STW,RL   DDNUM             DECLARATION NUMBER
      1270   02 00287    32700060 04           LW,RL    DD%TYPE
      1271   02 00288    3170043F              CV,RL    1WDADDET
      1272   02 00289    69300000 F            BNE      %341              ITEM IS NOT A ONE WORD ADDRESS
      1273   02 0028A    3270006E 04           LW,RL    DDNUM
      1274   02 0028B    68300000 F            BEZ      %341              ABSOLUTE CONTROL SECTION
      1275   02 0028C    30700032 03           AW,RL    CSBASE            DECLARATION NUMBER FOR 1ST C S
      1276   02 0028D    3570006E 04           STW,RL   DDNUM             DECLARATION NUMBER
      1277   02 0028E                 %341     RES      0
      1278   02 0028E    22700000 A            LI,RL    0                 SET FLAG FOR AN 'ADD'
      1279   02 0028F    31400440              BFZ,XT   ADFLD,%342        ADDEND FLAG INDICATES ADD
             02 00290    68400000 F
      1280   02 00291    22700001 A            LI,RL    1                 SET FLAG FOR A 'SUBTRACT'
      1281   02 00292                 %342     RES      0
      1282   02 00292    3570006C 04           STW,RL   DDASV             STORE ADD/SUBTRACT FLAG
      1283   02 00293                 %360     RES      0
      1284   02 00293    4B400434              AND,XT   =ARFLD            GET ADDRESS RESOLUTION
      1285   02 00294    25400208 A            SHIFT,XT ARLOB,31            AND RIGHT JUSTIFY IT
      1286   02 00295    35400070 04           STW,XT   DDRS
      1287   02 00296    73000088 04           MTB,0    GENEXIT
      1288   02 00297    69300000 F            BNEZ     %382              PROCESSING LOAD DEFINITIONS
      1289   02 00298    3240008A 04           LW,XT    HVLENGTH
      1290   02 00299    69300000 F            BNEZ     %361              LOAD HAS ALREADY BEEN OUTPUT
      1291   02 0029A    6A70030F              CALL     LOAD              OUTPUT LOAD CONTROL
      1292   02 0029B    3300006F 04           MTW,0    DDREL
      1293   02 0029C    6930024E              BNEZ     %302              RELOCATABLE LOAD WAS OUTPUT
      1294   02 0029D                 %361     RES      0
      1295   02 0029D    6A70006B              CALL     DFNFLD            OUTPUT DEFINE FIELD
      1296   02 0029E    6A70000E              CALL     ASV               OUTPUT ADD/SUBTRACT VALUE
      1297   02 0029F                 %362     RES      0
      1298   02 0029F    6A700134              CALL     EXPEND            OUTPUT EXPRESSION END
      1299   02 002A0    6800024E              B        %302
      1300   02 002A1                 %350     RES      0
      1301                            *   HERE FOR SUM
      1302   02 002A1    22507FFF A            LV,XT1   LENGTHFLD
      1303   02 002A2    CA500066 04           LS,XT1   *ARG              GET LENGTH FROM CONTROL WORD
      1304   02 002A3    33100066 04           MTW,1    ARG
      1305   02 002A4    B2400066 04           LW,XT    *ARG              GET WORD FOLLOWING CONTROL WORD
      1306   02 002A5    35400078 04           STW,XT   ACONVAL           OFFSET
      1307   02 002A6    21500003 A            CV,XT1   LNGTH3
      1308   02 002A7    69300000 F            BNE      %351              NOT A SIMPLE SUM
      1309                            *   HERE FOR SIMPLE SUM
      1310   02 002A8    33100066 04           MTW,1    ARG
      1311   02 002A9    B2500066 04           LW,XT1   *ARG              GET WORD FOLLOWING SVAL
      1312   02 002AA    6A7003FE              CALL     TYPE              GET IT'S TYPE
      1313   02 002AB    68000283              B        %340
      1314   02 002AC                 %351     RES      0
      1315                            *   HERE FOR COMPLEX SUMS
      1316   02 002AC    205FFFFE A            AI,XT1   -2                DECREASE LENGTH BY TWO
      1317   02 002AD    3550008C 04           STW,XT1  LARG              SAVE NUMBER OF ENTRIES IN SUM
      1318   02 002AE    73000088 04           MTB,0    GENEXIT
      1319   02 002AF    69300000 F            BNEZ     %381              PROCESSING LOADER DEFINITIONS
      1320   02 002B0    3300008A 04           MTW,0    HVLENGTH
      1321   02 002B1    69300000 F            BNEZ     %352
      1322   02 002B2    6A700357              CALL     LOADABS
      1323   02 002B3                 %352     RES      0
      1324   02 002B3    6A70006B              CALL     DFNFLD
      1325   02 002B4                 %370     RES      0
      1326   02 002B4    33100066 04           MTW,1    ARG               POINT TO NEXT WORD OF SUM ENTRY
      1327   02 002B5    B2500066 04           LW,XT1   *ARG              LOAD CONTROL WORD
      1328   02 002B6    22700000 A            LI,RL    0                 SET FLAG FOR AN 'ADD'
      1329   02 002B7    31500440              BFZ,XT1  ADFLD,%371        ADDEND FLAG INDICATES ADD
             02 002B8    68400000 F
      1330   02 002B9    22700001 A            LI,RL    1                 SET FLAG FOR A 'SUBTRACT'
      1331   02 002BA                 %371     RES      0
      1332   02 002BA    3570006C 04           STW,RL   DDASV             STORE ADD/SUBTRACT FLAG
      1333   02 002BB    22707FFF A            LV,RL    LENGTHFLD
      1334   02 002BC    4B700005 A            AND,RL   XT1
      1335   02 002BD    3570006E 04           STW,RL   DDNUM             DECLARATION/FORWARD REFERENCE NUMBER
      1336   02 002BE    32700434              LV,RL    ARFLD
      1337   02 002BF    4B700005 A            AND,RL   XT1
      1338   02 002C0    25700208 A            SHIFT,RL ARLOB,31
      1339   02 002C1    35700070 04           STW,RL   DDRS              ADDRESS RESOLUTION
      1340   02 002C2    6A7003FE              CALL     TYPE              GET ITEM'S TYPE
      1341   02 002C3    32400060 04           LW,XT    DD%TYPE
      1342   02 002C4    3140043F              CV,XT    1WDADDET
      1343   02 002C5    69300000 F            BNE      %380              ITEM IS NOT A ONE WORD ADDRESS
      1344   02 002C6    3240006E 04           LW,XT    DDNUM
      1345   02 002C7    68300000 F            BEZ      %380              CONTROL SECTION ZERO
      1346   02 002C8    30400032 03           AW,XT    CSBASE            DECLARATION NUMBER FOR 1ST CONTROL
      1347   02 002C9    3540006E 04           STW,XT   DDNUM               SECTION
      1348   02 002CA                 %380     RES      0
      1349   02 002CA    6A70000E              CALL     ASV
      1350   02 002CB    33F0008C 04           MTW,-1   LARG              DECREMENT NUMBER OF ENTRIES
      1351   02 002CC    692002B4              BGZ      %370              CONTINUE UNTIL ALL ARE PROCESSED
      1352   02 002CD    73000088 04           MTB,0    GENEXIT
      1353   02 002CE    69300000 F            BNEZ     %392              PROCESSING LOADER DEFINITIONS
      1354   02 002CF    6800029F              B        %362
      1355   02 002D0                 %381     RES      0
      1356   02 002D0    6A700000              CALL     ACON              OUTPUT AN 'ADD CONSTANT'
      1357   02 002D1    680002B4              B        %370
      1358   02 002D2                 %382     RES      0
      1359   02 002D2    3270008C 04           LW,RL    LARG              BRANCH IF THERE IS NO ADDRESS TO
      1360   02 002D3    68300000 F            BEZ      %383                CONVERT TO BYTE RESOLUTION
      1361   02 002D4    4B700441              AND,RL   =LOBFLD+OFFSETFLD
      1362   02 002D5    25780200 A            SCS,RL   0,XT              CONVERT ADDRESS FROM INTRINSIC
      1363   02 002D6    35700078 04           STW,RL   ACONVAL             RESOLUTION TO BYTE RESOLUTION
      1364   02 002D7    22700000 A            LI,RL    0
      1365   02 002D8    35700070 04           STW,RL   DDRS              SET RESOLUTION TO BYTE
      1366   02 002D9                 %383     RES      0
      1367   02 002D9    32400078 04           LW,XT    ACONVAL
      1368   02 002DA    6A700000              CALL     ACON              OUTPUT 'ADD CONSTANT'
      1369   02 002DB    6A70000E              CALL     ASV               OUTPUT 'ADD/SUBTRACT VALUE'
      1370   02 002DC    68000000 F            B        %392
      1371   02 002DD                 %390     RES      0
      1372                            *   HERE FOR UNDEFINED ITEMS        (LOAD DEFINITIONS ONLY)
      1373   02 002DD    6AF0011A              BAL,ER   UERR              UNDEFINED ERROR
      1374   02 002DE    32400078 04           LW,XT    ACONVAL
      1375   02 002DF                 %391     RES      0
      1376   02 002DF    6A700000              CALL     ACON              OUTPUT AN 'ADD CONSTANT'
      1377   02 002E0                 %392     RES      0
      1378   02 002E0    6A700134              CALL     EXPEND            OUTPUT 'EXPRESSION END'
      1379   02 002E1    E8000088 04           B        *GENEXIT
      1380   02 002E2                 %400     RES      0
      1381                            *   HERE FOR SPECIAL INTEGER        (LOAD DEFINITIONS ONLY)
      1382   02 002E2    B2400066 04           LW,XT    *ARG
      1383   02 002E3    4B400435              AND,XT   =VALFLD           GET INTEGER VALUE
      1384   02 002E4    680002DF              B        %391
      1385   02 002E5                 %410     RES      0
      1386                            *   HERE FOR INTEGER, DECIMAL, FX, FS, AND DPI TYPE CONSTANTS
      1387                            *                                   (LOAD DEFINITIONS ONLY)
      1388   02 002E5    B2400066 04           LW,XT    *ARG
      1389   02 002E6    4B400438              AND,XT   =LENGTHFLD
      1390   02 002E7    21400002 A            CV,XT    LNGTH2
      1391   02 002E8    68300000 F            BE       %421              CONSTANT IS 32 BITS OR LESS
      1392   02 002E9                 %420     RES      0
      1393   02 002E9    6AF00118              BAL,ER   TERR              TRUNCATION ERROR
      1394   02 002EA                 %421     RES      0
      1395   02 002EA    33100066 04           MTW,1    ARG               POINT TO WORD FOLLOWING CONTROL WORD
      1396   02 002EB    B2400066 04           LW,XT    *ARG              LOAD VALUE OF CONSTANT
      1397   02 002EC    680002DF              B        %391
      1398   02 002ED                 %430     RES      0
      1399                            *   HERE FOR TEXT CONSTANTS         (LOAD DEFINITIONS ONLY)
      1400   02 002ED    33100066 04           MTW,1    ARG               POINT TO WORD FOLLOWING CONTROL WORD
      1401   02 002EE    F2400066 04           LB,XT    *ARG              GET CHARACTER COUNT
      1402   02 002EF    683002E0              BEZ      %392              NO CHARACTERS
      1403   02 002F0    21400004 A            CI,XT    4
      1404   02 002F1    68200000 F            BLE      %431              FOUR OR LESS CHARACTERS
      1405   02 002F2    6AF00118              BAL,ER   TERR              TRUNCATION ERROR
      1406   02 002F3    22400004 A            LI,XT    4                 USE ONLY FIRST FOUR CHARACTERS
      1407   02 002F4                 %431     RES      0
      1408   02 002F4    22500003 A            LI,XT1   3
      1409   02 002F5                 %432     RES      0
      1410   02 002F5    F2780066 04           LB,RL    *ARG,XT           MOVE TEXT CHARACTERS (UP TO 4)
      1411   02 002F6    757A0078 04           STB,RL   ACONVAL,XT1         TO ACONVAL
      1412   02 002F7    205FFFFF A            AI,XT1   -1
      1413   02 002F8    644002F5              BDR,XT   %432
      1414   02 002F9    680002DE              B        %391-1
      1415                            *
      1416                            *   TABLE OF OFFSETS TO ITEM TYPE PROCESSOR FOR SECOND PASS
      1417                            *
      1418                            TYP2     COM,8    AF-TYPEBSE2
      1419   02 002FA                 TYPETBL2 RES      0
      1420   02 002FA    7C       A            TYP2     %390              UNDEFINED
      1421   02 002FA 1  00       A            TYP2     %310              SPECIAL ADDRESS
      1422   02 002FA 2  1B       A            TYP2     %330              SPECIAL EXTERNAL
      1423   02 002FA 3  0D       A            TYP2     %320              ADDRESS
      1424   02 002FB    40       A            TYP2     %350              SUM
      1425   02 002FB 1  22       A            TYP2     %340              EXTERNAL
      1426   02 002FB 2  22       A            TYP2     %340              LOCAL FORWARD
      1427   02 002FB 3  22       A            TYP2     %340              LOCAL FORWARD AND HOLD
      1428   02 002FC    22       A            TYP2     %340              ONE WORD ADDRESS
      1429   02 002FC 1  81       A            TYP2     %400              SPECIAL INTEGER
      1430   02 002FC 2  7F       A            TYP2     %392              BLANK
      1431   02 002FC 3  84       A            TYP2     %410              INTEGER
      1432   02 002FD    84       A            TYP2     %410              DECIMAL
      1433   02 002FD 1  8C       A            TYP2     %430              TEXT
      1434   02 002FD 2  84       A            TYP2     %410              FX
      1435   02 002FD 3  84       A            TYP2     %410              FS
      1436   02 002FE    88       A            TYP2     %420              FL
      1437   02 002FE 1  84       A            TYP2     %410              DPI
      1438   02 002FE 2  7C       A            TYP2     %390              LIST
      1439   02 002FE 3  7C       A            TYP2     %390              FUNCTION
      1440                                     BOUND    4
1
      1442                            *
      1443                            *   G E T C S A D D
      1444                            *        OBTAINS THE TABLE ADDRESS OF THE SPECIFIED CONTROL SECTION
      1445                            *          NUMBER.
      1446                            *
      1447                            *        INPUT:   XT2 CONTAINS THE CONTROL SECTION NUMBER.
      1448                            *
      1449                            *        OUTPUT:  XT2 CONTAINS THE ADDRESS OF THE CONTROL SECTION TABLE
      1450                            *                   FOR THIS ENTRY.
      1451                            *
      1452                            *        CALL:    BAL,RL  GETCSADD
      1453                            *
      1454                            *        USES REGISTERS
      1455                            *                 RL
      1456                            *                 XT2
      1457                            *                 XT1
      1458                            *
      1459   02 002FF                 GETCSADD RES      0
      1460   02 002FF    32500006 A            LW,XT1   XT2
      1461   02 00300    23500003 A            MI,XT1   CSTBLSIZE         OFFSET TO CONTROL SECTION TABLE ENTRY
      1462   02 00301    35500006 A            STW,XT1  XT2
      1463   02 00302    21600030 A            CI,XT2   16*CSTBLSIZE
      1464         001F0000                    IF,GE                      DOIF CS # > 15
             02 00303    69100307
      1465   02 00304    206FFFD0 A            AI,XT2   -16*CSTBLSIZE
      1466   02 00305    30600034 03           AW,XT2   CS16LOC           ADD BASE ADDRESS OF CS # 16
      1467         000E0000                    ELS                        CS # IN RANGE 0-15
             02 00306    68000308
      1468   02 00307    30600033 03           AW,XT2   CS0LOC            ADD BASE ADDRESS OF CS # 0
      1469         00F10000                    FI
      1470   02 00308    680E0000 A            EXIT
1
      1472                            *
      1473                            *   H I L I M I T
      1474                            *        THIS ROUTINE CHECKS FOR TABLE OVERLAP AT THE HIGH END OF CORE.
      1475                            *          IF THE END OF THE LOCAL SYMBOL TABLE OVERLAPS THE END OF THE
      1476                            *          EXPRESSION VALUE TABLE, KLINE IS MOVED TO A LOWER CORE
      1477                            *          ADDRESS.  IF THIS CAUSES THE END OF THE EXPRESSION CONTROL
      1478                            *          TABLE TO OVERLAP THE END OF THE NON-LOCAL TABLES, XAP WILL
      1479                            *          ABORT.  OTHERWISE, KLINE WILL BE ADJUSTED SUCH THAT AN EQUAL
      1480                            *          AMOUNT OF SPACE IS AVAILABLE TO TABLES CONVERGING AT BOTH
      1481                            *          ENDS OF KLINE.
      1482                            *
      1483                            *        INPUT:   NXTSYMT CONTAINS THE ADDRESS OF THE NEXT AVAILABLE
      1484                            *                   GLOBAL SYMBOL TABLE WORD
      1485                            *                 NXTLOCAL CONTAINS THE ADDRESS OF THE NEXT AVAILABLE
      1486                            *                   LOCAL SYMBOL TABLE WORD
      1487                            *                 ECT CONTAINS AN OFFSET FROM KLINE TO THE NEXT
      1488                            *                   EXPRESSION CONTROL TABLE WORD
      1489                            *                 EVT CONTAINS AN OFFSET FROM KLINE TO THE NEXT
      1490                            *                   EXPRESSION VALUE TABLE WORD
      1491                            *
      1492                            *        OUTPUT:  THE AMOUNT OF ADJUSTMENT TO KLINE IS IN REGISTER XT1
      1493                            *
      1494                            *        CALL:    BAL,RL  HILIMIT
      1495                            *
      1496                            *        USES REGISTERS
      1497                            *                 XT
      1498                            *                 XT1
      1499                            *                 RL
      1500                            *                 ER
1
      1502                            *       *         ORIGIN OF LOCAL SYMBOL TABLE AREA        HIGH CORE
      1503                            *       *
      1504                            *     * * *
      1505                            *      * *
      1506                            *       *         END OF LOCAL SYMBOL TABLE AREA
      1507                            *
      1508                            *
      1509                            *       *         END OF EXPRESSION VALUE TABLE
      1510                            *      * *
      1511                            *     * * *
      1512                            *       *
      1513                            *       *         KLINE
      1514                            *       *
      1515                            *     * * *
      1516                            *      * *
      1517                            *       *         END OF EXPRESSION CONTROL TABLE
      1518                            *
      1519                            *
      1520                            *       *         END OF NON-LOCAL TABLE AREA
      1521                            *      * *
      1522                            *     * * *
      1523                            *       *
      1524                            *       *         ORIGIN OF NON-LOCAL TABLE AREA           LOW CORE
      1525   02 00309                 HILIMIT  RES      0
      1526   02 00309    32400035 03           LW,XT    KLINE             IF THE LOCAL SYMBOL TABLE DOES NOT
      1527   02 0030A    30460001 A            AW,XT    EVT,LVL             OVERLAP THE EXPRESSION VALUE
      1528   02 0030B    3840009F 04           SW,XT    NXTLOCAL            TABLE, KLINE DOES NOT NEED TO BE
      1529   02 0030C    682E0000 A            EXIT,LE  RL                  ADJUSTED TO A LOWER CORE ADDRESS
      1530   02 0030D                 HILIMIT4 RES      0
      1531   02 0030D    22000001 A            ABORT    ABORT1            MEMORY HAS BEEN DEPLETED
             02 0030E    68000000 X
1
      1533                            *
      1534                            *   L O A D
      1535                            *        THIS SUBROUTINE OUTPUTS A 'LOAD' CONTROL BYTE TO THE OBJECT
      1536                            *          FILE. THE 'LOAD' BYTE IS FOLLOWED BY THE CONSTANT TO BE
      1537                            *          LOADED. IF THE CONSTANT IS OTHER THAN 4 BYTES, IT IS
      1538                            *          GENERATED WITH A 'LOAD ABSOLUTE' CONTROL. IF THE CONSTANT
      1539                            *          IS 4 BYTES IN LENGTH, IT WILL BE LOADED WITH ONE OF THE
      1540                            *          'LOAD RELOCATABLE' CONTROLS IF THE FOLLOWING CONDITIONS
      1541                            *          ARE MET:
      1542                            *                1 THE LOAD LOCATION COUNTER (%%) IS ON A WORD BOUNDARY,
      1543                            *                2 THE VALUE HAS A POSITIVE RELOCATION, AND
      1544                            *                3 THE VALUE IS AN ADDRESS OR SPECIAL ADDRESS, AND ITS
      1545                            *                    RESOLUTION IS BYTE       AND FIELD LENGTH IS GE 19
      1546                            *                      OR RESO  IS HALFWORD   AND FIELD LENGTH IS GE 18
      1547                            *                      OR RESO  IS WORD       AND FIELD LENGTH IS GE 17
      1548                            *                      OR RESO  IS DOUBLEWORD AND FIELD LENGTH IS GE 16
      1549                            *                4 OR THE VALUE IS A LOCAL FORWARD, EXTERNAL, OR SPECIAL
      1550                            *                    EXTERNAL, AND ITS
      1551                            *                    RESOLUTION IS BYTE       AND FIELD LENGTH IS = 19
      1552                            *                      OR RESO  IS HALFWORD   AND FIELD LENGTH IS = 18
      1553                            *                      OR RESO  IS WORD       AND FIELD LENGTH IS = 17
      1554                            *                      OR RESO  IS DOUBLEWORD AND FIELD LENGTH IS = 16
      1555                            *          IF, IN ADDITION, THE FOLLOWING CONDITIONS ARE MET, THE
      1556                            *          CONSTANT WILL BE GENERATED VIA 'LOAD RELOCATABLE SHORT'
      1557                            *          RATHER THAN 'LOAD RELOCATABLE LONG':
      1558                            *                1 INTRINSIC RESOLUTION OF VALUE IS 'WORD', AND
      1559                            *                2 THE DECLARATION OR FORWARD REFERENCE NUMBER IS
      1560                            *                    LE X'3F' .
      1561                            *          OTHERWISE, THE CONSTANT WILL BE LOADED VIA 'LOAD ABSOLUTE'
      1562                            *          CONTROL.
      1563                            *
      1564                            *        INPUT:   NOBYTES CONTAINS THE NUMBER OF BYTES OF VALUE
      1565                            *                 DDASV INDICATES RELOCATION (0=POSITIVE, 1=NEGATIVE)
      1566                            *                 DDRS CONTAINS THE INTRINSIC RESOLUTION
      1567                            *                 DD%TYPE CONTAINS THE ITEM TYPE
      1568                            *                 FLENGTH CONTAINS THE FIELD SIZE
      1569                            *                 DDOFF CONTAINS THE ADDRESS OFFSET
      1570                            *                 DDNUM CONTAINS THE DECLARATION OR FORWARD REFERENCE
      1571                            *                   NUMBER
      1572                            *                 DDLRVAL CONTAINS THE LOAD LOCATION COUNTER VALUE
      1573                            *
      1574                            *        OUTPUT:  DDREL INDICATES THE TYPE OF LOAD CONTROL OUTPUT
      1575                            *                   0=ABSOLUTE , 1=RELOCATABLE
      1576                            *                 CODE CONTAINS THE RELOCATION CODE
      1577                            *                   'X'  EXTERNAL
      1578                            *                   'F'  FORWARD REFERENCE
      1579                            *                   ' '  RELOCATABLE ADDRESS
      1580                            *                   'A'  ABSOLUTE
      1581                            *
      1582                            *        CALL:    BAL,RL  LOAD
      1583                            *
      1584                            *        USES REGISTERS
      1585                            *                 XT
      1586                            *                 XT1
      1587                            *                 RL
      1588                            *                 NBYTES
      1589                            *
      1590   02 0030F                 LOAD     RES      0
      1591   02 0030F    3240009D 04           LW,XT    NOBYTES
      1592   02 00310    21400004 A            CI,XT    4
      1593   02 00311    69300324              BNE      LOAD2             NOT A FOUR BYTE VALUE, LOAD ABS
      1594   02 00312    22400003 A            LI,XT    3
      1595   02 00313    4B40000F 03           AND,XT   DDLRVAL
      1596   02 00314    69300324              BNEZ     LOAD2             %% NOT AT A WORD BOUNDRY, LOAD ABS
      1597   02 00315    3300006C 04           MTW,0    DDASV
      1598   02 00316    69300324              BNEZ     LOAD2             NOT POSITIVE RELOCATION, LOAD ABS
      1599   02 00317    32400085 04           LW,XT    FLENGTH
      1600   02 00318    30400070 04           AW,XT    DDRS
      1601   02 00319    21400013 A            CI,XT    19
      1602   02 0031A    68300327              BE       LOAD3             LOAD RELOCATABLE
      1603   02 0031B    69100324              BL       LOAD2             LOAD ABSOLUTE
      1604   02 0031C    32400060 04           LW,XT    DD%TYPE
      1605   02 0031D    31400442              CV,XT    SPADDRET
      1606   02 0031E    68300321              BE       LOAD1             TYPE IS SPECIAL ADDRESS, LOAD RELO
      1607   02 0031F    31400443              CV,XT    ADDRET
      1608   02 00320    69300324              BNE      LOAD2             TYPE IS NOT ADDRESS, LOAD ABSOLUTE
      1609   02 00321                 LOAD1    RES      0
      1610   02 00321    224F0000 A            LI,XT    X'F0000'
      1611   02 00322    4B400078 04           AND,XT   ACONVAL
      1612   02 00323    68300327              BEZ      LOAD3             LOAD RELOCATABLE
      1613   02 00324                 LOAD2    RES      0
      1614   02 00324    22400000 A            LI,XT    0
      1615   02 00325    3540006F 04           STW,XT   DDREL             FLAG ABSOLUTE LOAD
      1616   02 00326    68000357              B        LOADABS           LOAD ABSOLUTE AND RETURN
      1617   02 00327                 LOAD3    RES      0
      1618   02 00327    22400001 A            LI,XT    1
      1619   02 00328    3540006F 04           STW,XT   DDREL             FLAG RELOCATABLE LOAD
      1620   02 00329    32400060 04           LW,XT    DD%TYPE
      1621   02 0032A    25400205 A            SHIFT,XT ETLOB,31          SET CODE TO  'X'   EXTERNAL
      1622   02 0032B    72480354              LB,XT    CODEWD,XT                      'F'   LOCAL FORWARD
      1623   02 0032C    3540006B 04           STW,XT   CODE                OR         ' '   ADDRESS
      1624   02 0032D    32400070 04           LW,XT    DDRS
      1625   02 0032E    21400002 A            CI,XT    WDRS
      1626   02 0032F    6930033E              BNE      LOAD5             LOAD RELOCATABLE LONG
      1627   02 00330    3240006E 04           LW,XT    DDNUM
      1628   02 00331    2140003F A            CI,XT    X'3F'
      1629   02 00332    6920033E              BG       LOAD5             LOAD RELOCATABLE LONG
      1630                            *   HERE TO LOAD  RELOCATABLE SHORT
      1631   02 00333    22800005 A            LI,NBYTES  5               NUMBER OF ITEMS TO OUTPUT
      1632   02 00334    20400080 A            AI,XT    X'80'             CODE FOR 'LOAD RELOCATABLE SHORT'
      1633   02 00335    32500060 04           LW,XT1   DD%TYPE
      1634   02 00336    3150042F              CV,XT1   LCLFWDET
      1635   02 00337    6910033B              BL       LOAD8             NOT A LOCAL FWD
      1636   02 00338    31500430              CV,XT1   LFWDHET
      1637   02 00339    6920033B              BG       LOAD8               OR LOCAL FWD & HOLD
      1638   02 0033A    20400040 A            AI,XT    X'40'             SPECIFY FORWARD REFERENCE
      1639   02 0033B                 LOAD8    RES      0
      1640   02 0033B    225001E3 04           LI,XT1   BA(ACONVAL)+3     BA OF 1ST ITEM TO OUTPUT
      1641   02 0033C                 LOAD4    RES      0
      1642   02 0033C    35400078 04           STW,XT   ACONVAL
      1643   02 0033D    68000031              B        BEDIT%SCE         OUTPUT 4 BYTES & ERROR, IF SOCW
      1644                            *
      1645   02 0033E                 LOAD5    RES      0
      1646                            *   HERE TO LOAD RELOCATABLE LONG
      1647   02 0033E    32400070 04           LW,XT    DDRS              LOAD RESOLUTION
      1648   02 0033F    20400050 A            AI,XT    X'50'             CODE FOR 'LOAD RELOCATABLE LONG'
      1649   02 00340    32500060 04           LW,XT1   DD%TYPE
      1650   02 00341    3150042F              CV,XT1   LCLFWDET
      1651   02 00342    69100346              BL       LOAD6             ITEM IS NOT A LOCAL FORWARD
      1652   02 00343    31500430              CV,XT1   LFWDHET
      1653   02 00344    69200346              BG       LOAD6               OR A LOCAL FORWARD AND HOLD
      1654   02 00345    20400004 A            AI,XT    4                 SPECIFY FORWARD REFERENCE
      1655   02 00346                 LOAD6    RES      0
      1656   02 00346    3250006E 04           LW,XT1   DDNUM
      1657   02 00347    215000FF A            CI,XT1   X'FF'
      1658   02 00348    6920034F              BG       LOAD7             DECLARATION NUMBER IS TWO BYTES
      1659                            *   HERE TO OUTPUT TWO BYTE 'LOAD RELOCATABLE LONG' CODE
      1660   02 00349    20400008 A            AI,XT    8                 SPECIFY A 1 BYTE DECLARATION NUMBER
      1661   02 0034A    25400008 A            SLS,XT   8                 MAKE ROOM FOR 1 BYTE DECLARATION #
      1662   02 0034B    3040006E 04           AW,XT    DDNUM
      1663   02 0034C    225001E2 04           LI,XT1   BA(ACONVAL)+2     BYTE ADDRESS OF ITEMS TO OUTPUT
      1664   02 0034D    22800006 A            LI,NBYTES  6               NUMBER OF BYTES TO OUTPUT
      1665   02 0034E    6800033C              B        LOAD4
      1666   02 0034F                 LOAD7    RES      0
      1667                            *   HERE TO OUTPUT THREE BYTE 'LOAD RELOCATABLE LONG' CODE
      1668   02 0034F    25400010 A            SLS,XT   16                MAKE ROOM FOR 2 BYTE DECLARATION #
      1669   02 00350    3040006E 04           AW,XT    DDNUM
      1670   02 00351    225001E1 04           LI,XT1   BA(ACONVAL)+1     BYTE ADDRESS OF 1ST ITEM TO OUTPUT
      1671   02 00352    22800007 A            LI,NBYTES  7               NUMBER OF BYTES TO OUTPUT
      1672   02 00353    6800033C              B        LOAD4
      1673   02 00354                 CODEWD   RES      0
      1674   02 00354    E9       A            DATA,1   'Z',' ','X',' '   TABLE OF RELOCATION CODES FOR EDIT
             02 00354 1  40       A
             02 00354 2  E7       A
             02 00354 3  40       A
      1675   02 00355    E9       A            DATA,1   'Z','X','F','F'
             02 00355 1  E7       A
             02 00355 2  C6       A
             02 00355 3  C6       A
      1676   02 00356    E2       A            DATA,1   'S','Z','Z','Z'
             02 00356 1  E9       A
             02 00356 2  E9       A
             02 00356 3  E9       A
1
      1678                            *
      1679                            *   L O A D A B S
      1680                            *        THIS SUBROUTINE OUTPUTS A LOAD ABSOLUTE ITEM TO THE OBJECT
      1681                            *          MODULE.
      1682                            *
      1683                            *        INPUT:   THE NUMBER OF BYTES IN THE ITEM IS CONTAINED IN
      1684                            *                   NOBYTES.
      1685                            *                 THE VALUE IS CONTAINED IN UP TO FOUR WORDS STARTING
      1686                            *                   AT HEXVAL.
      1687                            *
      1688                            *        CALL:    BAL,RL  LOADABS
      1689                            *
      1690                            *        USES REGISTERS
      1691                            *                 XT
      1692                            *                 XT1
      1693                            *                 NBYTES
      1694                            *                 RL
      1695                            *
      1696   02 00357                 LOADABS  RES      0
      1697   02 00357    2240000F A            LI,XT    X'F'              MASK
      1698   02 00358    4B40009D 04           AND,XT   NOBYTES           NUMBER OF BYTES OF ABSOLUTE DATA
      1699   02 00359    20400040 A            AI,XT    X'40'             LOADER CONTROL FOR LOAD ABS
      1700   02 0035A    35400078 04           STW,XT   HEXVAL-1
      1701   02 0035B    3280009D 04           LW,NBYTES NOBYTES
      1702   02 0035C    20800001 A            AI,NBYTES  1               NUMBER OF BYTES TO OUTPUT
      1703   02 0035D    225001E3 04           LI,XT1   BA(HEXVAL)-1      BYTE ADDRESS OF 1ST BYTE TO OUTPUT
      1704   02 0035E    68000034              B        BEDIT%SC          IF SOCW, OMIT CONTROL BYTE
1
      1706                            *   O R I G I N
      1707                            *        THIS SUBROUTINE OUTPUTS AN 'ORIGIN' CONTROL FOLLOWED BY A LOAD
      1708                            *          ADDRESS TO THE OBJECT FILE IF:
      1709                            *            1. THE LOAD LOCATION COUNTER HAS AN OFFSET WHICH DIFFERS
      1710                            *                 FROM THE LAST LOAD OFFSET,  OR
      1711                            *            2. THE LOAD LOCATION COUNTER IS IN A DIFFERENT CONTROL
      1712                            *                 SECTION THAN THE LAST 'LOAD'.
      1713                            *
      1714                            *        INPUT:   DDLRVAL CONTAINS THE CURRENT LOAD LOCATION COUNTER
      1715                            *                 LASTVAL CONTAINS THE PREVIOUS LOAD LOCATION COUNTER
      1716                            *                 DDLRCS CONTAINS THE CURRENT LOAD LOCATION CONTER
      1717                            *                   CONTROL SECTION.
      1718                            *                 LASTCS CONTAINS THE PREVIOUS LOAD LOCATION COUNTER
      1719                            *                   CONTROL SECTION.
      1720                            *
      1721                            *        CALL:    BAL,RL  ORIGIN
      1722                            *
      1723                            *        USES REGISTERS
      1724                            *                 XT
      1725                            *                 XT1
      1726                            *                 RL
      1727                            *                 NBYTES
      1728                            *
      1729   02 0035F                 ORIGIN   RES      0
      1730   02 0035F    3240000F 03           LW,XT    DDLRVAL
      1731   02 00360    31400016 03           CW,XT    LASTVAL           IF LOCATION COUNTER IS NOT IN SYNC
      1732         001F0000                    IF,EQ                      IN SYNC -- CHECK CONTROL SECTION
             02 00361    69300365
      1733   02 00362    3240000B 03           LW,XT    DDLRCS
      1734   02 00363    31400015 03           CW,XT    LASTCS
      1735         0FF00100                    EXIT,EQ  RL                IF CONTROL SECTION HAS NOT CHANGED
             02 00364    683E0000 A
      1736                            *
      1737         00F10000                    FI
      1738   02 00365    33000007 03           MTW,0    SOCW%FLG
      1739   02 00366    693E0000 A            EXIT,NZ                    FORGET ORIGIN UNDER SOCW CONTROL
      1740                            *
      1741   02 00367    357000A4 04           STW,RL   ORIGXIT
      1742   02 00368    22500181              LI,XT1   BA(ORIGINCD)      BYTE ADDRESS OF LOADER CODE
      1743   02 00369    22800001 A            LI,NBYTES 1                NUMBER OF BYTES TO OUTPUT
      1744   02 0036A    6A700039              CALL     BEDIT             OUTPUT LOADER CODE FOR ORIGIN
      1745   02 0036B    3240000F 03           LW,XT    DDLRVAL
      1746   02 0036C    35400016 03           STW,XT   LASTVAL           UPDATE LASTVAL
      1747   02 0036D    6A700000              CALL     ACON              ADD OFFSET TO EXPRESSION
      1748   02 0036E    3240000B 03           LW,XT    DDLRCS
      1749   02 0036F    35400015 03           STW,XT   LASTCS            UPDATE LASTCS
      1750   02 00370    68300372              BEZ      ORIGIN3           ABSOLUTE CONTROL SECTION
      1751   02 00371    30400032 03           AW,XT    CSBASE
      1752   02 00372                 ORIGIN3  RES      0
      1753   02 00372    3540006E 04           STW,XT   DDNUM             DECLARATION NUMBER
      1754   02 00373    22400000 A            LI,XT    0
      1755   02 00374    35400070 04           STW,XT   DDRS              SET TO BYTE RESOLUTION
      1756   02 00375    3540006C 04           STW,XT   DDASV             SET TO ADD
      1757   02 00376    32400443              LV,XT    ADDRET
      1758   02 00377    35400060 04           STW,XT   DD%TYPE           SET ITEM TYPE TO ADDRESS
      1759   02 00378    6A70000E              CALL     ASV               ADD DECLARATION NUMBER TO EXPRESSION
      1760   02 00379    6A700134              CALL     EXPEND            OUTPUT EXPRESSION END
      1761   02 0037A    E80000A4 04           B        *ORIGXIT
1
      1763                            *
      1764                            *  P R I N T
      1765                            *        OUTPUT A LINE ON THE LO FILE. IF THERE'S AN ERROR ON THE
      1766                            *          LINE, IT'S OUTPUT ON 'DO' UNCONDITIONALLY. IT IS ALSO
      1767                            *          OUTPUT ON 'LO' IF 'LO' IS NOT THE SAME AS 'DO'.
      1768                            *          IF THERE'S NO ERROR, THE LINE IS OUTPUT ON 'LO' ONLY
      1769                            *          IF VARIABLE NOLIST IS NON-ZERO.
      1770                            *
      1771                            *    THIS ROUTINE TAKES CARE OF PRINTING THE TITLE LINE WHEN
      1772                            *          APPROPRIATE, INSERTING LINE NUMBER INTO THE LINE, ERROR
      1773                            *          LINE NUMBER WHEN REQUIRED, AND THE SOURCE LINE IF THERE
      1774                            *          IS ONE.
      1775                            *
      1776   02 0037B                 PRINTC1  RES      0
      1777   02 0037B    33000021 03           MTW,0    PROCREF
      1778   02 0037C    68300380              BEZ      PRINTC            PROCESSING AT THE SOURCE LEVEL
      1779   02 0037D    680E0000 A            EXIT     RL                DON'T PRINT WITHIN A PROC
      1780   02 0037E                 PRINTC2  RES      0
      1781                            * THIS ENTRY PRINTS IF EITHER AN ERROR IS SET OR THERE IS A SOURCE LINE
      1782   02 0037E    53000012 03           MTH,0    ERRTRIG                                      /25342/*D-DGCOM
      1783   02 0037F    69300384              BNEZ     PRINT             PRINT IF ERRTRIG IS SET
      1784   02 00380                 PRINTC   RES      0
      1785                            *   THIS ENTRY PRINTS IF THERE IS A SOURCE LINE
      1786   02 00380    32400004 N            LW,XT    LSTBF+4
      1787   02 00381    304000B1 04           AW,XT    SOURCE
      1788   02 00382    31400000 X            CW,XT    BLANC             DON'T PRINT THIS LINE IF IT
      1789   02 00383    683E0000 A            EXIT,EQ  RL                  HAS ALREADY BEEN PRINTED
      1790   02 00384                 PRINT    RES      0
      1791                            *   THIS ENTRY UNCONDITIONALLY PRINTS DURING THE GENERATION PASS
      1792   02 00384    32400006 03           LW,XT    PASS              EXIT IN THE DEFINITION PASS
      1793   02 00385    683E0000 A            EXIT,EQ  RL
      1794   02 00386    3570008E 04           STW,RL   PRINTXIT          SAVE EXIT
      1795   02 00387    32400025 03           LW,XT    SKIPTRIG
      1796   02 00388    6830038B              BEZ      PRINT3
      1797   02 00389    32400444              LW,XT    =' *S*'
      1798   02 0038A    35400008 N            STW,XT   LSTBF+8
      1799                            * IF SOURCE IS NON-ZERO, A SOURCE LINE IS TO BE OUTPUT
      1800   02 0038B                 PRINT3   RES      0
      1801   02 0038B    324000B1 04           LW,XT    SOURCE
      1802   02 0038C    683003B6              BEZ      PRINT15
      1803   02 0038D    32400029 03           LW,XT    SOURCEX           INDEX TO SOURCE BUFFER
      1804   02 0038E    22600025 A            LI,LBX   37                INDEX TO LSTBF
      1805   02 0038F    68000392              B        PRINT6
      1806   02 00390                 PRINT4   RES      0
      1807   02 00390    755C0000 X            STB,XT1  LSTBF,LBX         SOURCE CHAR TO LIST BUFFER
      1808   02 00391    20600001 A            AI,LBX   1                 BUMP LIST BUFFER INDEX
      1809   02 00392                 PRINT6   RES      0
      1810   02 00392    65400396              BIR,XT   PRINT8            BUMP INDEX, TEST, & BRANCH
      1811                            *
      1812   02 00393    22800000 N            LI,IOADD X3BUF
      1813   02 00394    6AA00000 X            BAL,IORL READX3            READ NEXT SOURCE RECORD
      1814   02 00395    22400000 N            LI,XT    -BYX3SIZE         INITIALIZE SOURCE INDEX
      1815   02 00396                 PRINT8   RES      0
      1816   02 00396    72580000 F            LB,XT1   X3BUF+WDX3SIZE,XT      GET NEXT SOURCE CHARACTER
      1817   02 00397    2150003F A            CI,XT1   X'3F'
      1818   02 00398    69200390              BG       PRINT4            NOT A CONTROL BYTE
      1819   02 00399    21500020 A            CI,XT1   X'20'
      1820   02 0039A    69100390              BL       PRINT4            NOT A CONTROL BYTE
      1821   02 0039B    683003AA              BE       PRINT10           END OF LINE
      1822   02 0039C    205FFFE0 A            AI,XT1   -X'20'            REPEAT COUNT
      1823   02 0039D    654003A1              BIR,XT   PRINT9            BUMP INDEX, TEST, AND BRANCH
      1824                            *
      1825   02 0039E    22800000 N            LI,IOADD X3BUF
      1826   02 0039F    6AA00000 X            BAL,IORL READX3            READ NEXT SOURCE RECORD
      1827   02 003A0    22400000 N            LI,XT    -BYX3SIZE         INITIALIZE SOURCE INDEX
      1828   02 003A1                 PRINT9   RES      0
      1829   02 003A1    72B80000 F            LB,T1    X3BUF+WDX3SIZE,XT      GET NEXT SOURCE CHARACTER
      1830   02 003A2    21B00040 A            CI,T1    X'40'
      1831   02 003A3    683003A8              BE       PRINT7
      1832   02 003A4                 PRINT5   RES      0
      1833   02 003A4    75BC0000 X            STB,T1   LSTBF,LBX         STORE SOURCE
      1834   02 003A5    20600001 A            AI,LBX   1                   CHARACTER,
      1835   02 003A6    645003A4              BDR,XT1  PRINT5              'REPEAT COUNT' TIMES
      1836   02 003A7    68000392              B        PRINT6
      1837   02 003A8                 PRINT7   RES      0
      1838   02 003A8    30600005 A            AW,LBX   XT1               ADVANCE LSTBF INDEX
      1839   02 003A9    68000392              B        PRINT6
      1840   02 003AA                 PRINT10  RES      0
      1841   02 003AA    35400029 03           STW,XT   SOURCEX           RESTORE INDEX TO SOURCE BUFFER
      1842                            * EDIT THE LINE NUMBER INTO THE LISTING
      1843   02 003AB    22600008 A            LI,LBX   8
      1844   02 003AC    2240405C A            LI,XT    ' *'
      1845   02 003AD    32500000 X            LW,XT1   SUBLINE           IF SUBLINE NE 0, EDIT IT
      1846   02 003AE    693003B4              BNEZ     PRINT11             FOLLOWED BY AN '*'
      1847   02 003AF    32500000 X            LW,XT1   MAJLINE           EDIT MAJOR LINE NUMBER,
      1848   02 003B0    52400000 X            LH,XT    RD%STD              FOLLOWED BY A BLANK IF AT
      1849   02 003B1    30400000 X            AW,XT    SYSLEVEL            SOURCE LEVEL, OR AN
      1850   02 003B2    683003B5              BEZ      PRINT12             'A' THROUGH 'H' FOR
      1851   02 003B3    204040C0 A            AI,XT    ' A'-1              THE SYSTEM LEVEL
      1852   02 003B4                 PRINT11  RES      0
      1853   02 003B4    55400002 N            STH,XT   LSTBF+2
      1854   02 003B5                 PRINT12  RES      0
      1855   02 003B5    6A700000 N            CALL     DEDIT             EDIT LINE NUMBER INTO LISTING
      1856   02 003B6                 PRINT15  RES      0
      1857   02 003B6    52400012 03           LH,XT    ERRTRIG           ARE THERE ERRORS ON LINE   /25342/*D-DGCOM
      1858         001F0000                    IF,EZ                        NO                       /25342/*D-DGCOM
             02 003B7    693003BD
      1859   02 003B8    33000012 03           MTW,0    ERRTRIG           WAS CALL FROM 'ERROR' DIR  /25342/*D-DGCOM
      1860         001F0100                    IF,NZ                                                 /25342/*D-DGCOM
             02 003B9    683003BC
      1861   02 003BA    33000021 03           MTW,0    PROCREF           DON'T PRINT SOURCE 'ERROR' /25342/*D-DGCOM
      1862   02 003BB    693003E4              BNEZ     PRINT14                                      /25342/*D-DGCOM
      1863                            *                                                              /25342/*D-DGCOM
      1864         00F10100                    FI                                                    /25342/*D-DGCOM
      1865   02 003BC    680003E9              B        WRILINE                                      /25342/*D-DGCOM
      1866                            *                                                              /25342/*D-DGCOM
      1867         00F10000                    FI                                                    /25342/*D-DGCOM
      1868   02 003BD    691003E7              BLZ      PRINT13           FORCE COMMENTARY OUT ON 'LO' ONLY
      1869   02 003BE    32500018 03           LW,XT1   MAJERRLN
      1870         001F0000                    IF,LZ                      IS FIRST                          *D-DGCOM
             02 003BF    681003C5
      1871   02 003C0    22800006 A            LI,NBYTES  6               'FIRST' ERROR MESSAGE
      1872   02 003C1    22500FF0              LI,XT1   BA(FIRSTMSG)
      1873   02 003C2    22600078 A            LI,LBX   120
      1874   02 003C3    6A700008              CALL     AEDIT
      1875         000E0000                    ELS                                                          *D-DGCOM
             02 003C4    680003DA
      1876   02 003C5    4B500445              AND,XT1  L(MAJERRFLD)      GET LINE #, ONLY                  *D-DGCOM
      1877   02 003C6    2260007D A            LI,LBX   125
      1878   02 003C7    6A700000 N            CALL     DEDIT             STORE MAJOR ERROR LINE NUMBER
      1879   02 003C8    2240004C A            LI,XT    '<'
      1880   02 003C9    754C0000 X            STB,XT   LSTBF,LBX
      1881   02 003CA    2260007E A            LI,LBX   126
      1882   02 003CB    3250002B 03           LW,XT1   SUBERRLN          IS SUB-LINE OF LAST ERROR LINE = 0
      1883         001F0100                    IF,NZ                      DOIF NOT                          *D-DGCOM
             02 003CC    683003D5
      1884   02 003CD    2240004B A            LI,XT    '.'               DECIMAL POINT TO SEPARATE LINE NOS.
      1885   02 003CE    754C0000 X            STB,XT   LSTBF,LBX
      1886   02 003CF    6A700061              CALL     CTCHRS            COUNT CHARACTERS IN SUB-LINE
      1887   02 003D0    30600004 A            AW,LBX   XT
      1888   02 003D1    3560002B 03           STW,LBX  SUBERRLN          SAVE IN TEMP                      *D-DGCOM
      1889   02 003D2    6A700000 N            CALL     DEDIT             STORE ERROR SUB-LINE NUMBER
      1890   02 003D3    3260002B 03           LW,LBX   SUBERRLN                                            *D-DGCOM
      1891   02 003D4    20600001 A            AI,LBX   1
      1892         00F10100                    FI                                                           *D-DGCOM
      1893   02 003D5    72400018 03           LB,XT    MAJERRLN          SEE IF LAST ERROR WAS             *D-DGCOM
      1894         001F0100                    IF,NZ                        WITHIN SYSTEM.                  *D-DGCOM
             02 003D6    683003DA
      1895   02 003D7    204000C0 A            AI,XT    'A'-1             'TWAS                             *D-DGCOM
      1896   02 003D8    754C0000 X            STB,XT   LSTBF,LBX         STORE LEVEL LETTER                *D-DGCOM
      1897   02 003D9    20600001 A            AI,LBX   +1                                                  *D-DGCOM
      1898         00F10100                    FI                                                           *D-DGCOM
      1899         00F10000                    FI                                                           *D-DGCOM
      1900   02 003DA    2240006E A            LI,XT    '>'
      1901   02 003DB    754C0000 X            STB,XT   LSTBF,LBX
      1902                            * BUMP ERROR LINE STATISTICS
      1903   02 003DC    3310001C 03           MTW,1    NERRS             NUMBER OF LINES WITH ERRORS
      1904   02 003DD    32400000 X            LW,XT    MAJLINE           SAVE THE LAST LINE NO. THAT
      1905   02 003DE    35400018 03           STW,XT   MAJERRLN            CONTAINS AN ERROR
      1906   02 003DF    52400000 X            LH,XT    RD%STD                                              *D-DGCOM
      1907   02 003E0    30400000 X            AW,XT    SYSLEVEL          SAVE SYSTEM LEVEL                 *D-DGCOM
      1908   02 003E1    75400018 03           STB,XT   MAJERRLN                                            *D-DGCOM
      1909   02 003E2    32400000 X            LW,XT    SUBLINE
      1910   02 003E3    3540002B 03           STW,XT   SUBERRLN
      1911                            * WRITE THE LINE ON THE 'DO' DEVICE
      1912                            *                                                              /25342/*D-DGCOM
      1913   02 003E4                 PRINT14  RES      0                                            /25342/*D-DGCOM
      1914   02 003E4    22800000 N            LI,IOADD LSTBF
      1915   02 003E5    22900084 A            LI,IOSIZE 132
      1916   02 003E6    6AA00000 X            BAL,IORL WRITEDO
      1917   02 003E7                 PRINT13  RES      0
      1918   02 003E7    33000000 X            MTW,0    LO%FLAG           OUTPUT ON 'LO' DEVICE
      1919   02 003E8    693003F3              BNEZ     PRINT21             IF LO WAS REQUESTED
      1920   02 003E9                 WRILINE  RES      0
      1921   02 003E9    3240001D 03           LW,XT    NOLIST
      1922   02 003EA    693003F6              BNEZ     PRINTEND
      1923   02 003EB    33000022 03           MTW,0    PSRTRIG
      1924   02 003EC    683003EF              BEZ      PRINT22           PRINT SKIPPED RECORDS
      1925                            *
      1926   02 003ED    33000025 03           MTW,0    SKIPTRIG
      1927   02 003EE    693003F6              BNEZ     PRINTEND          DONT PRINT SKIPPED RECORDS
      1928                            *
      1929   02 003EF                 PRINT22  RES      0
      1930   02 003EF    324000B1 04           LW,XT    SOURCE            BRANCH IF THERE IS
      1931   02 003F0    693003F3              BNEZ     PRINT21             SOURCE FOR THIS LINE.
      1932                            *
      1933   02 003F1    32400028 03           LW,XT    SOURCEONLY        DON'T PRINT LINES WITH NO
      1934   02 003F2    693003F6              BNEZ     PRINTEND            SOURCE IF FLAG IS SET.
      1935                            *
      1936   02 003F3    22800000 N   PRINT21  LI,IOADD  LSTBF
      1937   02 003F4    22900084 A            LI,IOSIZE 132
      1938   02 003F5    6AA00000 X            BAL,IORL DGWRITELO
      1939   02 003F6                 PRINTEND RES      0
      1940   02 003F6    22400000 A            LI,XT    0
      1941   02 003F7    354000B1 04           STW,XT   SOURCE            RESET SOURCE
      1942   02 003F8    35400012 03           STW,XT   ERRTRIG           RESET ERROR TRIGGER
      1943   02 003F9    35400025 03           STW,XT   SKIPTRIG          RESET SKIP TRIGGER
      1944   02 003FA    6A700000 N            CALL     CLRLSTBF          BLANKS TO LISTING BUFFER
      1945   02 003FB    E800008E 04           B        *PRINTXIT
      1946   02 003FC    4CC6C9D9 A   FIRSTMSG TEXT     '<FIRST'
             02 003FD    E2E34040 A
1
      1948                            *
      1949                            *    T Y P E
      1950                            *        THIS ROUTINE RETURNS THE TYPE OF A SYMBOL TABLE ENTRY
      1951                            *          IN DD%TYPE.  TYPE INFORMATION IS IN THE ET FIELD OF
      1952                            *          DD%TYPE.
      1953                            *
      1954   02 003FE                 TYPE     RES      0
      1955   02 003FE    33000005 A            MTW,0    XT1               IS ENTRY SPECIAL ADDR OR SAALL INT
      1956   02 003FF    6810040B              BGEZ     TYPE5             NO
      1957   02 00400    22600000 A            LV,XT2   UGLBLET           VALUE FOR UNDEFINED ITEM
      1958   02 00401    31500446              BFZ,XT1,1  DEFFLD,TYPEEND  BRANCH IF ITEM IS UNDEFINED
             02 00402    68400420
      1959   02 00403    32600447              LV,XT2   SPINTET
      1960   02 00404    3150043F              CV,XT1   SPINTFLD          YSE, IS IT A SMALL INTEGER
      1961   02 00405    69400420              BANZ     TYPEEND           BRANCH IF YES
      1962   02 00406    32600442              LV,XT2   SPADDRET
      1963   02 00407    31500448              CV,XT1   REFORSREF         NO, IS ENTRY A SPECIAL EXTERNAL
      1964   02 00408    68400420              BAZ      TYPEEND           NO
      1965   02 00409    32600449              LV,XT2   SPEXTET
      1966   02 0040A    68000420              B        TYPEEND
      1967   02 0040B    35500006 A   TYPE5    STW,XT1  XT2               GET TYPE FIELD
      1968   02 0040C    4B60044A              AND,XT2  L(TYPEFLD)
      1969   02 0040D    25600071 A            SHIFT,XT2 TYPELOB,31
      1970   02 0040E    726C0410              LB,XT2   TYPE%JUMP,XT2
      1971   02 0040F    680C0412              B        TYPE%BASE,XT2     BRANCH TO APPROPRIATE TYPE
      1972   02 00410                 TYPE%JUMP  RES    0
      1973   02 00410    10       A            BYTE,TYPE%BASE  TYPEILL    T=0
      1974   02 00410 1  04       A            BYTE     TYPELST           LIST
      1975   02 00410 2  06       A            BYTE     TYPECON           CONSTANT
      1976   02 00410 3  0A       A            BYTE     TYPESYM           SYMBOL
      1977   02 00411    02       A            BYTE     TYPEBLNK          BLANK
      1978   02 00411 1  10       A            BYTE     TYPEILL           COMMAND
      1979   02 00411 2  00       A            BYTE     TYPEFUN           FUNCTION
      1980   02 00411 3  10       A            BYTE     TYPEILL           T=7
      1981                                     BOUND    4
      1982   02 00412                 TYPE%BASE  RES    0
      1983   02 00412                 TYPEFUN  RES      0
      1984   02 00412    3260044B              LV,XT2   FUNCET
      1985   02 00413    68000420              B        TYPEEND
      1986   02 00414    3260044C     TYPEBLNK LV,XT2   BLANKET
      1987   02 00415    68000420              B        TYPEEND
      1988   02 00416    3260044D     TYPELST  LV,XT2   LISTET
      1989   02 00417    68000420              B        TYPEEND
      1990   02 00418    35500006 A   TYPECON  STW,XT1  XT2
      1991   02 00419    4B60044E              AND,XT2  L(CTYPEFLD)       GET CONSTANT TYPE
      1992   02 0041A    3060044F              AW,XT2   L(11**(31-CTYPELOB))  CONVERT TO ET VALUE
      1993   02 0041B    6800041F              B        TYPESYM1
      1994   02 0041C    35500006 A   TYPESYM  STW,XT1  XT2
      1995   02 0041D    4B600450              AND,XT2  L(STYPEFLD)       GET SYMBOL TYPE
      1996   02 0041E    30600451              AW,XT2   L(3**(31-STYPELOB))  CONVERT TO ET VALUE
      1997   02 0041F                 TYPESYM1 RES      0
      1998   02 0041F    25600009 A            SLS,XT2  STYPELOB-ETLOB    MOVE TO ET FIELD
      1999   02 00420                 TYPEEND  RES      0
      2000   02 00420    35600060 04           STW,XT2  DD%TYPE           STORE ITEM TYPE
      2001   02 00421    E8000007 A            B        *RL               RETURN
      2002   02 00422                 TYPEILL  RES      0
      2003   02 00422    22000002 A            ABORT    ABORT2            BAD ENCODED TEXT
             02 00423    68000000 X
1
      2005                            *
      2006                            *  X E D I T
      2007                            *        CONVERT A NUMBER TO HEXADECIMAL AND STORE IT IN THE
      2008                            *          LISTING IMAGE.
      2009                            *
      2010                            *          INPUT: NUMBER OF DIGITS TO STORE IS IN REG. NBYTES
      2011                            *                 INDEX TO LEFT-MOST DIGIT TO STORE IS IN REG. LBX
      2012                            *                 NUMBER IS LEFT-ADJUSTED IN REG XT1
      2013                            *
      2014                            *         OUTPUT: XT1 SHIFTED LEFT 4*NBYTES PLACES
      2015                            *                 LBX IS BUMPED BY NBYTES
      2016                            *
      2017   02 00424                 XEDIT    RES      0
      2018   02 00424    22400000 A            LI,XT    0                 SHIFT HIGH ORDER HEX DIGIT
      2019   02 00425    25400104 A            SLD,XT   4                   TO LOW ORDER OF REG XT
      2020   02 00426    7248042B              LB,XT    HEXTBL,XT         CONVERT IT TO A HEX CHARACTER
      2021   02 00427    754C0000 X            STB,XT   LSTBF,LBX           AND STORE
      2022   02 00428    20600001 A            AI,LBX   1                 BUMP INDEX TO LISTING IMAGE
      2023   02 00429    64800424              BDR,NBYTES  XEDIT          COUNT AND RETURN
      2024   02 0042A    680E0000 A            EXIT     RL
      2025   02 0042B                 HEXTBL   RES      0
      2026   02 0042B    F0F1F2F3 A            TEXT     '0123456789ABCDEF'  TABLE OF HEX CHARACTERS
             02 0042C    F4F5F6F7 A
             02 0042D    F8F9C1C2 A
             02 0042E    C3C4C5C6 A
      2027                                     END
             02 0042F    30000000 A
             02 00430    38000000 A
             02 00431    003E0000 A
             02 00432    1FC00000 A
             02 00433    00000003 A
             02 00434    03000000 A
             02 00435    003FFFFF A
             02 00436    F8000000 A
             02 00437    01000000 A
             02 00438    00007FFF A
             02 00439    04000000 A
             02 0043A    0000001F A
             02 0043B    02000000 A
             02 0043C    20000000 A
             02 0043D    001C7FFF A
             02 0043E    00100000 A
             02 0043F    40000000 A
             02 00440    00200000 A
             02 00441    E03FFFFF A
             02 00442    08000000 A
             02 00443    18000000 A
             02 00444    405CE25C A
             02 00445    00FFFFFF A
             02 00446    0C000000 A
             02 00447    48000000 A
             02 00448    00800000 A
             02 00449    10000000 A
             02 0044A    00038000 A
             02 0044B    98000000 A
             02 0044C    50000000 A
             02 0044D    90000000 A
             02 0044E    003C0000 A
             02 0044F    002C0000 A
             02 00450    001C0000 A
             02 00451    000C0000 A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00452   PT 1     03 00039   PT 0     04 000BE   PT 0
1
  *    SYMBOL VALUES
           ABORT0/00000000          ABORT1/00000001          ABORT2/00000002          ABSVAL#/00000047
           ACON/02 00000            ACONVAL/04 00078         ADDCON/00000001          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
           ASECT#/00000009          ASTFLD/01000000          ASTFLG/00000008          ASTRIG/04 00061
           ASV/02 0000E             ASVCNT/04 00067          BA#/00000043             BASE/04 00068
           BEDIT%SC/02 00034        BEDIT%SCE/02 00031       BEDIT%SE/02 0002D        BEDIT3/02 0003C
           BEDIT5/02 00054          BEDIT6/02 00049          BEDIT7/02 00053          BEDIT8/02 0005A
           BEGINEXP/00000007        BEGINLIST/00000006       BLANK/00020000           BLANKET/50000000
           BLANKEXP/00000005        BLANKITM/00020001        BLDPLTXIT/04 0006A       BNDEXIT/04 00069
           BOBUF/04 00020           BOCT/03 00030            BOMAX/03 00031           BOUND#/00000013
           BUFFFLD/0001FFFF         BYTE2FLD/0000FF00        BYTE2LOB/00000017        BYTE3FLD/000000FF
           BYTE3LOB/0000001F        CCFLD/03000000           CCLOB/00000007           CF#/00000040
           CFSSYM/00008040          CFSYM/00004040           CHCKTRUN/02 00215        CHCT/00000001
           CHSTR/00080000           CKTRUN1/02 0021B         CLOSE#/00000001          CLOSEDIR/00004001
           CMND/00000004            CMNDCW/04 00048          CMNDLIST/04 0004B        CMNDLSN/04 00049
           CMNDNAME/00028000        CMPLXSUM/00040000        CNAME#/00000014          CNAMECOMT/000C0000
           CNTRLSTK/04 00048        CODE/04 0006B            CODEWD/02 00354          COM#/00000015
           COMDFLD/00200000         COMDLOB/0000000A         COMNT#/00000000          COMTFLD/001C0000
           COMTLOB/0000000D         COM0COMT/00000000        COM1COMT/00040000        CONSTANT/00010000
           CPTRFLD/7FFF0000         CPTRLOB/0000000F         CS/04 00062              CS#/00000048
           CSBASE/03 00032          CSECT#/00000016          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              CTCHRS1/02 00062         CTFLD/00001F00           CTLOB/00000017
           CTYPEFLD/003C0000        CTYPELOB/0000000D        DA#/00000046             DATA#/00000008
           DATAGEN/03 00009         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#/0000000F            DEFEXT/00400000          DEFFLD/0C000000          DEFLBLXIT/04 0004C
           DEFLOB/00000005          DEFLOCXIT/04 00071       DESTIN/04 00072          DFNEXIT/04 0004D
           DFNFLD/02 0006B          DISP#/00000017           DLISTET/DPI              DLRCS/03 0000A
           DLRRS/03 0000C           DLRVAL/03 0000E          DMSG/02 00103            DO#/00000018
           DOCFLD/0000FFFF          DOCOUNT/03 00010         DOCT/00000006            DOCWD/00000001
           DODIR/00004018           DOIWD/00000001           DOLOC/03 00011           DOOWD/00000002
           DOPFLD/00FFFFFF          DOPWD/00000000           DOSKIPXIT/04 00073       DOSLOB/00000007
           DOSWD/00000000           DO1#/00000019            DO1CT/00000007           DO1LBL/04 0004E
           DPI/00180000             DPIET/DPI                DPIFLAG/04 00074         DPIMASK/00190002
           DPIMSG/02 00108          DSECT#/0000001A          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        EDITVAL/02 000B9         EDITVJMP/02 000CA
           EDITVMSG/02 00100        EDITVMSGTBL/02 000FB                              EDITVTBL/02 000C5
           EDITV10/02 000F4         EDITV2/02 000CA          EDITV3/02 000D0          EDITV4/02 000D4
           EDITV5/02 000E5          EDITV6/02 000E9          EDITV7/02 000EA          EDITV8/02 000ED
           EDITV9/02 000F2          EDITXIT/04 00077         EDIT1/02 00080           EDIT2/02 00086
           EDIT3/02 0008F           EDNFLD/00007FFF          EFLD/DPI                 ELEM/00000001
           ELSE#/0000000B           ELSEDIR/0000400B         ELSEFLG/03 00010         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#/00000007            ENDADDR/04 0007D         ENDBUF/000020FF
           ENDDIR/00004007          ENDEXP/00000004          ENDLINE/00000000         ENDLIST/00000002
           ENDORG/03 00030          ENDSBSYM/00000003        ENTEXIT/04 0007E         EQU#/0000001B
           EQUALOP/00000023         ER/0000000F              ERROR#/0000001C          ERRSEV/04 0004A
           ERRTRIG/03 00012         ERR3/02 0011D            ERR4/02 00122            ERR5/02 00129
           ERR6/02 0012D            ERR7/02 0012F            ERR8/02 00132            ETFLD/DPI
           ETLOB/00000004           ETSHIFT/0000001B         EVALARXIT/04 00050       EVALPTXIT/04 00050
           EVEXPXIT/04 0004F        EVT/00000001             EWD/00000003             EXPENDCD/02 00060
           EXPET/DPI                EXPFLD/04000000          EXPR%DEF/04 0007F        EXTET/28000000
           EXTFLD/00C00000          EXTLOB/00000009          EXTMSG/02 00101          EXTREF/00080000
           E1INTXIT/04 00050        FCSFLD/1FC00000          FCSLOB/00000009          FIN#/0000000C
           FINDIR/0000400C          FINDSPCXIT/03 00013      FIRSTMSG/02 003FC        FLDCNT/04 00051
           FLDPTR/04 00052          FLDPTRBSE/04 00080       FLDVAL/04 00081          FLENGTH/04 00085
           FLET/DPI                 FLMSG/02 00107           FLTLONG/00140000         FLTSHORT/00100000
           FNAME#/0000001D          FND/04 00086             FREEAFLD/0001FFFF        FREELFLD/DPI
           FREELIST/04 00087        FREELLOB/0000000E        FSET/78000000            FSMSG/02 00106
           FUNCET/DPI               FUNCNAME/00030000        FWDNUM/03 00014          FXDEC/000C0000
           FXET/70000000            FXMSG/02 00105           GEN#/0000001E            GENCOMXIT/04 00053
           GENEXIT/04 00088         GEN35/02 0016D           GEN41/02 00174           GLBLAXIT/04 000BC
           GOTO#/0000001F           GOTOARG/04 00089         HA#/00000044             HEXTBL/02 0042B
           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          INITORG/03 00000         INITORG1/03 00009
           INTET/58000000           IOADD/00000008           IORL/0000000A            IOSIZE/00000009
           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             LCLDLXIT/04 0008E        LCLFWD/000C0000
           LCLFWDET/30000000        LCLFWDHD/00100000        LCLSBSYM/0000A000        LENGTHFLD/00007FFF
           LESSOP/00000028          LF#/00000041             LFLD/000000FF            LFND/04 0008F
           LFRMSG/02 00102          LFSSYM/00008041          LFSUMSZ/04 00090         LFSYM/00004041
           LFWDFLG/04 0005D         LFWDHET/38000000         LINENUMXIT/04 00091      LINEORG/04 00092
           LINEXIT/04 00091         LIST#/00000020           LISTCT/04 00097          LISTET/DPI
           LISTFLD/00000002         LISTLOB/0000001E         LISTMSG/02 00109         LISTS/00008000
           LISTXIT/04 00050         LITCS/03 00001           LITFLAG/04 0005E         LITORG/03 00002
           LITSRCHXIT/04 00093      LITTABLE/03 00003        LNGTH1/00000001          LNGTH2/00000002
           LNGTH3/00000003          LO%INT%FUNC/0000003B                              LO%PREFIX%FUNC/0000004F
           LO%VAL%FUNC/00000043                              LOAD/02 0030F            LOADXWRTN/04 00094
           LOAD1/02 00321           LOAD2/02 00324           LOAD3/02 00327           LOAD4/02 0033C
           LOAD5/02 0033E           LOAD6/02 00346           LOAD7/02 0034F           LOAD8/02 0033B
           LOBFLD/DPI               LOC#/00000021            LOCAL#/00000002          LOCALCT/00000009
           LOCALCTFLD/DPI           LOCALDIR/00004002        LOCALFLG/03 00017        LOCALORG/00000009
           LOCALORGFLD/00FFFFFF                              LOCALSYM/00006000        LOCALXIT/04 00095
           LOCFLD/0001FFFF          LOWD/00000008            LPTR/04 00041            LPTRFLD/0000FFFF
           LPTRLOB/0000001F         LSRCHXIT/04 00096        LSSYM/0000804F           LSTCT/04 00097
           LVAL/04 0003E            LVL/00000003             LVLSIZE/0000000D         LVLT/00000006
           MAIN/04 00098            MAJERRFLD/00FFFFFF       MAJERRLN/03 00018        MAXCSECT/03 00019
           MAXDD/00000001           MAXDDFLD/0007FFFF        MAXLOCXIT/04 00099       MAXPREF/0000001F
           MAXSEV/03 0001A          MINUSOP/00000029         MOVESYMXIT/04 0009A      MULTINT/0000E000
           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           NEWCSXIT/04 0009C
           NEXTXW/04 00054          NLITS/03 00005           NOBYTES/04 0009D         NOLIST/03 0001D
           NOWORDS/04 0009E         NSAVES/0000001D          NUM#/00000049            NUMSSYM/00008049
           NXTL/00000004            NXTLOCAL/04 0009F        NXTSYMT/04 000A0         OFFSET/04 000A1
           OFFSETFLD/003FFFFF       OFFSETLOB/0000001F       OLDCSXIT/04 000A2        ONEWDADD/00140000
           OPEN#/00000003           OPENDIR/00004003         OPER/04 000A3            OPRND/00000005
           OPRNDORG/04 00055        ORG#/00000022            ORGLOCXIT/04 00053       ORIGINCD/02 00060 1
           ORIGIN3/02 00372         ORIGXIT/04 000A4         OUTBASE/04 00040         PAGE#/0000000D
           PARTICBASE/DPI           PARTICRTN/04 0004C       PASS/03 00006            PASSDEF/04 000A5
           PATCH/04 00000           PCC#/0000000E            PCCTRIG/03 0001E         PCCTRIGFLD/00000010
           PCCTRIGLOB/0000001B      PCCXIT/04 00099          PEND#/00000006           PENDDIR/00004006
           PKDEC/00040000           PLOC/00000000            PLOCFLD/00FFFFFF         PLUSOP/0000002A
           PLVL/04 000A6            PLVLLOB/00000017         PPLVL/04 00056           PRINTEND/02 003F6
           PRINTXIT/04 0008E        PRINT10/02 003AA         PRINT11/02 003B4         PRINT12/02 003B5
           PRINT13/02 003E7         PRINT14/02 003E4         PRINT15/02 003B6         PRINT21/02 003F3
           PRINT22/02 003EF         PRINT3/02 0038B          PRINT4/02 00390          PRINT5/02 003A4
           PRINT6/02 00392          PRINT7/02 003A8          PRINT8/02 00396          PRINT9/02 003A1
           PROC#/00000005           PROCCOUNT/03 0001F       PROCDIR/00004005         PROCLOC/04 000A7
           PROCLV/03 00020          PROCREF/03 00021         PROTYPE/04 000A8         PSECT#/00000023
           PSR#/00000012            PSRTRIG/03 00022         PSTRIG/03 00023          PSTRIGFLD/00000001
           PSTRIGLOB/0000001F       PSTYPE/0000001E          PSYS#/00000024           PT/00000000
           PTFLD/00C00000           PTLOB/00000009           REF#/00000010            REFADD/04 000A9
           REFEXT/00800000          REFORSREF/00800000       RELOFLD/02000000         RES#/00000025
           RL/00000007              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:LFR#/00000037
           S:LFRSYM/00004037        S:LIST#/00000038         S:LISTSYM/00004038       S:NUMC#/0000004B
           S:PT#/0000004C           S:RAD#/00000039          S:RADSYM/00004039        S:S/FUNC
           S:SIN#/00000026          S:SINCOMT/00080000       S:SUM#/0000003A          S:SUMSYM/0000403A
           S:UFV#/0000004D          S:UT#/0000004E           SAMP/00000008            SAVDLR/00000000
           SAVDLRFLD/000FFFFF       SAVELVL/04 000AB         SAVEORG/04 00048         SAVEXR/04 00057
           SAVEXT/04 000AC          SAVEXW/04 00058          SBLBLSYM/04 00056        SBSYM/00008000
           SCANEXIT/04 00059        SCANXS/04 0005F          SCARG/04 0005C           SCLVL/04 0005B
           SCOR#/00000052           SCPPRTN/04 000AD         SCRSRTN/04 000AE         SD%TYPE/04 000AF
           SDHEXC/00000030          SDINSTC/00000000         SDTEXTC/00000038         SDTLOB/0000001C
           SDTT/03 00036            SET#/00000027            SETFLD/10000000          SETLOB/00000003
           SETVALUE/04 00062        SF/03 00024              SIMPADD/00000000         SINSUBXIT/04 0004F
           SINTFLD/03C00000         SINTLOB/00000009         SKGLF1XIT/04 000B0       SKIPTRIG/03 00025
           SMINT/0000C000           SMPRCD/03 00026          SMPWD/03 00027           SOCW%FLG/03 00007
           SOCW#/0000000A           SOCW2LAT/03 00008        SOURCE/04 000B1          SOURCEONLY/03 00028
           SOURCEX/03 00029         SPACE#/00000028          SPADDRET/08000000        SPAFLD/DPI
           SPALOB/00000000          SPCONFLD/40000000        SPEXTET/10000000         SPI/00000000
           SPIMASK/00010002         SPINT/DPI                SPINT%ET/48000000        SPINTET/48000000
           SPINTFLD/40000000        SPINTLOB/00000001        SPITEMP/04 000B2         SREF#/00000011
           SREFEXT/00C00000         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
           SYMT/03 00037            SYMTBASE/40000000        SYNERR/0000000A          SYSCOUNT/03 0002C
           SYSEXIT/04 00099         SYSLVL/0000000A          SYSTEM#/00000004         SYSTEMDIR/00004004
           SYSTYPEFLD/00001C00      SYSTYPELOB/00000015      TCOR#/00000053           TCORFLG/03 0002D
           TEMP/04 00046            TEMPO/04 00061           TEMP1/04 00047           TENS/02 00066
           TEXT#/00000029           TEXTC#/0000002A          TEXTCT/03 0002E          TEXTET/68000000
           TEXTEXIT/04 000B6        TEXTMSG/02 00104         TFLD/0000E000            TITLE#/0000002B
           TITLENUM/03 0002F        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             TYPE%BASE/02 00412       TYPE%JUMP/02 00410       TYPEBASE/02 00165
           TYPEBLNK/02 00414        TYPEBSE2/02 00261        TYPECON/02 00418         TYPEEND/02 00420
           TYPEFLD/00038000         TYPEFUN/02 00412         TYPEILL/02 00422         TYPELOB/00000010
           TYPELST/02 00416         TYPESYM/02 0041C         TYPESYM1/02 0041F        TYPETBL/02 00220
           TYPETBL2/02 002FA        TYPE5/02 0040B           T1/0000000B              T2/0000000C
           T3/0000000D              UGLBLET/00000000         UNDITM/DPI               UNDMSG/02 00100
           USECT#/0000002C          VALCNT/04 00063          VALFLD/003FFFFF          VALPTR/04 00064
           VFLD/00001FFF            WA#/00000045             WDRES/02000000           WDRS/00000002
           WRILINE/02 003E9         XM/00000001              XMBASE/04 000BB          XR/00000006
           XS/00000001              XT/00000004              XT1/00000005             XT2/00000006
           XT3/00000007             XW/00000002              XWBASE/04 000BA          1ARG/04 0005A
           1ELEMXIT/04 000BC        1STDEF/03 00038          1WDADDET/40000000        3WDSUM/00058003
           %%#/0000003D             %#/0000003C              %220/02 00212            #ELEM/04 000BD
  *    EXTERNAL DEFINITIONS
           AEDIT/02 00008           BEDIT/02 00039           BEDIT4/02 0003F          CERR/02 0010A
           CTCHRS/02 00061          DERR/02 0010C            DGCOMP/02 00000          EDIT/02 00076
           EDITDDLR/02 000A2        EDITDLR/02 000A3         EDITV/02 000B6           EDITV1/02 000BB
           EERR/02 0010E            EXPEND/02 00134          GENERATE/02 00137        GENERATE1/02 00139
           GENERATE2/02 00225       GENERATE3/02 00233       GETCSADD/02 002FF        HILIMIT/02 00309
           HILIMIT4/02 0030D        IERR/02 00110            KERR/02 00112            LERR/02 00114
           LOADABS/02 00357         ORIGIN/02 0035F          PRINT/02 00384           PRINTC/02 00380
           PRINTC1/02 0037B         PRINTC2/02 0037E         SERR/02 00116            TERR/02 00118
           TYPE/02 003FE            UERR/02 0011A            XAPDATA/04 00000         XAPD1/03 00000
           XEDIT/02 00424
  *    PRIMARY REFERENCES
           ABORT          BLANC          BO%FLAG        BYX3SIZE       CLRLSTBF       DEDIT          DGWRITELO
           GO%FLAG        LO%FLAG        LSTBF          MAJLINE        RD%STD         READX3         SUBLINE
           SYSLEVEL       WDX3SIZE       WRITEBO        WRITEDO        WRITEGO        X3BUF
  * NO SECONDARY REFERENCES
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
