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




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




                  AAAAAAAAAAA     PPPPPPPPPPPP      CCCCCCCCCCC      CCCCCCCCCCC       IIIIIIII
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    CCCCCCCCCCCCC    CCCCCCCCCCCCC      IIIIIIII
                 AA         AA    PP         PP    CC         CC    CC         CC         II
                 AA         AA    PP         PP    CC               CC                    II
                 AA         AA    PP         PP    CC               CC                    II
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    CC               CC                    II
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     CC               CC                    II
                 AA         AA    PP               CC               CC                    II
                 AA         AA    PP               CC               CC                    II
                 AA         AA    PP               CC         CC    CC         CC         II
                 AA         AA    PP               CCCCCCCCCCCCC    CCCCCCCCCCCCC      IIIIIIII
                 AA         AA    PP                CCCCCCCCCCC      CCCCCCCCCCC       IIIIIIII




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




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




                  AAAAAAAAAAA     PPPPPPPPPPPP      CCCCCCCCCCC      CCCCCCCCCCC       IIIIIIII
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    CCCCCCCCCCCCC    CCCCCCCCCCCCC      IIIIIIII
                 AA         AA    PP         PP    CC         CC    CC         CC         II
                 AA         AA    PP         PP    CC               CC                    II
                 AA         AA    PP         PP    CC               CC                    II
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    CC               CC                    II
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     CC               CC                    II
                 AA         AA    PP               CC               CC                    II
                 AA         AA    PP               CC               CC                    II
                 AA         AA    PP               CC         CC    CC         CC         II
                 AA         AA    PP               CCCCCCCCCCCCC    CCCCCCCCCCCCC      IIIIIIII
                 AA         AA    PP                CCCCCCCCCCC      CCCCCCCCCCC       IIIIIIII




ASSIGN M:CI,(FILE,CI:APCCI,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APCCI,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    AB
           1284-COM
    AB%%51
           1563-RES       1566/BDR
    AB%%61
           1638-RES       1664/B
    AB%%71
           1662-RES       1669/B
    AB%0
           1287/AB        1522-RES
    AB%00
           1528/LI        1533-TEXTC
    AB%01
           1536/LI        1538-TEXTC
    AB%010
           1678/LI        1680-TEXTC
    AB%011
           1683/LI        1685-TEXTC
    AB%012
           1688/LI        1690-TEXTC
    AB%013
           1693/LI        1695-TEXTC
    AB%014
           1698/LI        1700-TEXTC
    AB%015
           1703/LI        1705-TEXTC
    AB%016
           1708/LI        1710-TEXTC
    AB%018
           1719/LI        1740-TEXTC
    AB%018A
           1724/LI        1741-TEXTC
    AB%018B
           1727/LI        1742-TEXTC
    AB%019
           1749/LI        1751-TEXTC
    AB%02
           1541/LI        1543-TEXTC
    AB%020
           1755/LI        1762-TEXTC
    AB%021
           1767/LI        1770-TEXTC
    AB%023
           1777/LI        1779-TEXTC
    AB%024
           1782/LI        1784-TEXTC
    AB%025
           1787/LI        1789-TEXTC
    AB%03
           1546/LI        1548-TEXTC
    AB%04
           1551/LI        1553-TEXTC
    AB%05
           1558/LI        1581-TEXTC
    AB%06
           1637/LI        1656-TEXTC
    AB%07
           1661/LI        1665-TEXTC
    AB%08
           1668/LI        1670-TEXTC
    AB%09
           1673/LI        1675-TEXTC
    AB%1
           1288/AB        1535-RES
    AB%10
           1297/AB        1677-RES
    AB%11
           1298/AB        1682-RES
    AB%12
           1299/AB        1687-RES
    AB%13
           1300/AB        1692-RES
    AB%14
           1301/AB        1697-RES       1792/EQU
    AB%15
           1302/AB        1702-RES
    AB%16
           1303/AB        1707-RES
    AB%17
           1304/AB        1712-EQU
    AB%18
           1305/AB        1717-RES
    AB%18A
           1720-BAL       1750/B         1778/B
    AB%18C
           1731-RES       1737/BDR
    AB%19
           1306/AB        1746-RES
    AB%2
           1289/AB        1540-RES
    AB%20
           1307/AB        1754-RES
    AB%21
           1308/AB        1766-RES
    AB%23
           1310/AB        1775-RES
    AB%24
           1311/AB        1781-RES
    AB%25
           1312/AB        1786-RES
    AB%27
           1314/AB        1792-EQU
    AB%3
           1290/AB        1545-RES
    AB%4
           1291/AB        1550-RES
    AB%5
           1292/AB        1557-RES       1712/EQU
    AB%6
           1293/AB        1635-RES
    AB%7
           1294/AB        1660-RES
    AB%8
           1295/AB        1667-RES
    AB%9
           1296/AB        1672-RES
    ABN
            778/M:SETDCB   844/M:OPEN     861/M:OPEN     878/M:OPEN     907/M:OPEN     918/M:OPEN
            961/M:OPEN     976/M:OPEN    1004/M:OPEN    1043/M:OPEN    1053/M:OPEN    1096/M:OPEN
           1103/M:OPEN    1258/M:SETDCB  1261/M:SETDCB  1269/M:OPEN    1272/M:OPEN
    ABN%%STD
             64/REF        778/M:SETDCB   783/LI         792/BNE
    ABN%%X1
             62/REF        844/M:OPEN
    ABN%%X2
             63/REF        861/M:OPEN
    ABN%%X3
             62/REF        878/M:OPEN
    ABN%%X4
             63/REF        907/M:OPEN
    ABORT
             65/REF
    ABORT%CODE
           1195-RES       1253/STW       1405/LW        1415/LW
    ABORT%1
           1319-RES       1480/B         1537/B         1542/B         1547/B         1552/B         1674/B
           1679/B         1684/B         1689/B         1694/B         1699/B         1704/B         1709/B
           1768/B         1783/B         1788/B
    ABORT%10
           1479/LI        1481-TEXTC
    ABORT%2
           1321-RES       1532/B         1580/B         1739/B         1761/B
    ABORT%3
           1323-MTW       1655/B
    ABORT%4
           1324/BLEZ      1330-RES
    ABORT%5
           1354-RES
    ABORT%7
           1407/BEZ       1418/BE        1426/BGE       1429/B         1469-RES
    ABORT%9
           1278/BG        1280/BLZ       1477-RES
    ABORTAP
           1331/LI        1498-TEXTC
    ABORTSYS
           1325/LI        1497-TEXTC
    ABORT10
            134-EQU        535/ABORT
    ABORT11
            135-EQU        788/ABORT
    ABORT12
            136-EQU        831/ABORT
    ABORT9
            133-EQU        426/ABORT
    ABRTBASE
           1282/B         1284/COM       1518-RES
    ABRTTBL
           1281/LH        1286-RES       1315/EQU
    ABSIZE
           1277/CI        1315-EQU
    ABSVAL
           1229/RES
    AC%CODE
            430/LB        1217-RES
    AC%FLAG
             51/REF        386/MTW
    AC%FND
            418/BE         421-RES
    AC%TABLE
            417/CW        1200-RES
    ACCOUNTS
             66/REF        279/STB        407/STD        431/STB        439/STB        773/STD        775/STD
    ACCT%OK
            409/BL         424/BL         427-RES
    ADDRFLD
            173-EQU        780/LV
    AF
            207/DATA      1284/COM       1583/COM       1583/COM
    AM
            164-EQU       1325/LI        1327/LI        1331/LI        1334/LW        1340/LI        1355/LI
           1358/LI        1362/LI        1365/LI        1369/LI        1372/LI        1376/LI        1379/LI
           1383/LI        1386/LI        1390/LI        1393/LI        1396/LI        1401/LI        1409/LI
           1479/LI        1528/LI        1530/LW        1536/LI        1541/LI        1546/LI        1551/LI
           1558/LI        1569/LB        1570/AI        1572/LI        1577/LI        1637/LI        1641/LI
           1643/LI        1647/LI        1661/LI        1668/LI        1673/LI        1678/LI        1683/LI
           1688/LI        1693/LI        1698/LI        1703/LI        1708/LI        1719/LI        1721/LI
           1724/LI        1727/LI        1732/LI        1734/LI        1735/STB       1749/LI        1755/LI
           1759/LI        1767/LI        1777/LI        1782/LI        1787/LI        1826/LB        1828/AI
           1829/LB        1856/LI        1866/LI        1876/LW        1877/CW        1966/BDR       1983/STW
           1988/EXIT
    ANZ
            678/IF
    AP%ABORT
             56/DEF       1250-RES
    APCODE
           1379/LI        1502-TEXTC
    APDATA
           1358/LI        1499-TEXTC
    APD1
           1365/LI        1500-TEXTC
    APMODULE
           1386/LI        1503-TEXTC
    APOPTFLG
           1372/LI        1501-TEXTC
    AR
            163-EQU       1253/STW       1277/CI        1279/LW
    ASSEMBLE%FLAG
            100/REF        690/STW        698/STW
    AZ
           1180/IF
    BA
           1325/LI        1327/LI        1331/LI        1340/LI        1355/LI        1358/LI        1365/LI
           1372/LI        1379/LI        1386/LI        1393/LI        1396/LI        1401/LI        1409/LI
           1479/LI        1484/DATA      1485/DATA      1486/DATA      1487/DATA      1488/DATA      1489/DATA
           1528/LI        1536/LI        1541/LI        1546/LI        1551/LI        1558/LI        1570/AI
           1572/LI        1583/COM       1583/COM       1637/LI        1643/LI        1661/LI        1668/LI
           1673/LI        1678/LI        1683/LI        1688/LI        1693/LI        1698/LI        1703/LI
           1708/LI        1719/LI        1724/LI        1727/LI        1749/LI        1755/LI        1767/LI
           1777/LI        1782/LI        1787/LI
    BA%FLAG
            213-OPTION
    BAD%SYNTAX
            312/B          367/BG         373/BEZ        391/BNE        402/BG         414/BNE        420/B
            472/BLZ        496/BG         504/BNE        508/B          524-EQU
    BIN
            962/M:DEVICE  1008/M:DEVICE  1104/M:DEVICE
    BLANK%SWITCH
            254/STW        539/MTW        550/MTW        563/STW       1196-RES
    BLANKS
            247/STW        248/STW       1230-EQU
    BLOCK
            864/M:DEVICE   910/M:DEVICE
    BO%FLAG
            214-OPTION     446/LI         689/OR         724/MTW
    BO%IDWDS
            105/REF        447/LI
    BPMUTS
             33-EQU         35/EQU         39/DO          75/DO         106/DO         117/DO         236/DO
            262/DO         404/DO         574/DO         691/DO         701/DO         766/DO         793/DO
            802/DO         838/DO         855/DO         872/DO         889/DO         920/DO1        928/DO
            977/DO        1021/DO        1063/DO        1107/DO        1118/DO        1224/DO        1255/DO
           1420/DO        1604/DO        1928/DO        2004/DO        2012/DO
    BUF
            273/M:WRITE    527/M:WRITE    534/M:WRITE    572/M:READ     580/M:WRITE
    BUF%PRINT
            517/STW        519/STW        520/M:PRINT   1236-RES
    BYX1SIZE
            104/REF        846/M:DEVICE  1034/M:DEVICE
    BYX3SIZE
            104/REF        880/M:DEVICE
    CCI%SEG
           1484/DATA      1490-TEXTC
    CCI1
             38-CSECT      129/DEF        210/USECT     1198/USECT     1238/USECT     1388/LI
    CI%FLAG
            215-OPTION     704/LW         712/MTW        760/MTW
    CLOSE%FILES
             86/REF       1471/BAL
    CLR%MOVE
           1320/BAL       1326/BAL       1332/BAL       1356/BAL       1359/BAL       1366/BAL       1373/BAL
           1380/BAL       1387/BAL       1394/BAL       1397/BAL       1402/BAL       1410/BAL       1529/BAL
           1559/BAL       1639/BAL       1720/BAL       1725/BAL       1728/BAL       1756/BAL       1820-RES
    CLRLSTBF
             93/REF       1822/BAL
    CO%FLAG
            216-OPTION     450/LI         720/MTW       1108/MTH
    CO%IDWDS
            105/REF        451/LI
    CO%SIZE
             58/REF       1114/STW
    COLLECT%OPTION
            304/B          309/BE         313-EQU
    COLON%SYS
            774/LD        1225-RES
    CONC%SEG
           1489/DATA      1495-TEXTC
    CORRES
            923/M:DEVICE   926/M:DEVICE  1044/M:DEVICE  1275/M:DEVICE
    CORRESWD
             68/REF        743/STB        925/STB        927/STB       1046/STB       1276/STB
    CPRABNEO
            185-EQU        784/STS
    CPRERREO
            186-EQU        782/STS
    CTL%CARD
            283/STW        533/STB        545/LB         559/STB        572/M:READ     580/M:WRITE   1234-EQU
    CTL%CARD%DISPLAY
            527/M:WRITE    530/STD        534/M:WRITE    570/STD       1232-EQU
    CTL%CARD%INTERPRETER
             54/DEF        230-EQU
    D%1
           1355/LI        1393/LI        1409/LI        1572/LI        1586/DCBT      1614-TEXTC     1643/LI
    D%10
           1595/DCBT      1623-TEXTC
    D%11
           1596/DCBT      1624-TEXTC
    D%12
           1598/DCBT      1605/DCBT      1625-TEXTC
    D%13
           1599/DCBT      1606/DCBT      1626-TEXTC
    D%14
           1600/DCBT      1607/DCBT      1627-TEXTC
    D%15
           1601/DCBT      1628-TEXTC
    D%16
           1602/DCBT      1609/DCBT      1629-TEXTC
    D%17
           1608/DCBT      1630-TEXTC
    D%2
           1587/DCBT      1615-TEXTC
    D%3
           1588/DCBT      1616-TEXTC
    D%4
           1589/DCBT      1617-TEXTC
    D%5
           1590/DCBT      1618-TEXTC
    D%6
           1591/DCBT      1619-TEXTC
    D%7
           1592/DCBT      1620-TEXTC
    D%8
           1593/DCBT      1621-TEXTC
    D%9
           1594/DCBT      1622-TEXTC
    DC%FLAG
            217-OPTION     341/MTH        674/LH         676/LW         680/STW
    DCBMSG
           1570/AI        1583/COM       1613-RES
    DCBSIZE
           1561/LI        1611-EQU
    DCBT
           1583-COM
    DCBTABLE
           1564/CS        1568/LW        1585-RES       1611/EQU
    DECEDIT
           1343/CALL      1349/CALL      1895-RES
    DECED1
           1897-RES       1901/BDR
    DECED2
           1899/BGE       1903-RES       1911/BGEZ
    DEF%SEG
           1486/DATA      1492-TEXTC
    DELETED
           1309/AB        1313/AB        1478-RES
    DO%ONLINE
            107/REF        979/STW        996/MTW       2013/MTW
    DOBIT
            195-EQU        696/LI
    DUMP%SW
           1406/LB        1416/LB        1511-RES
    D1
            187-EQU        278/LV         437/LI         816/CV
    E
            901/M:OPEN
    EADRFLD
            174-EQU       1131/AND
    END%SEG
           1488/DATA      1494-TEXTC
    ENDCORE
             71/REF       1126/STW       1140/STW       1425/CW        1440/CW        1448/CW        1450/LW
           1464/LW
    EQ
            329/IF         340/IF        1109/IF        1165/IF        1174/EXIT
    ERR
            777/M:SETDCB   844/M:OPEN     861/M:OPEN     878/M:OPEN     907/M:OPEN     918/M:OPEN
            961/M:OPEN     976/M:OPEN    1004/M:OPEN    1043/M:OPEN    1053/M:OPEN    1096/M:OPEN
           1103/M:OPEN    1257/M:SETDCB  1260/M:SETDCB  1268/M:OPEN    1271/M:OPEN
    ERR%%BO
            102/REF        961/M:OPEN     961/M:OPEN
    ERR%%CI
            102/REF       1053/M:OPEN    1053/M:OPEN
    ERR%%CO
            102/REF       1103/M:OPEN    1103/M:OPEN
    ERR%%DO
            102/REF        976/M:OPEN     976/M:OPEN
    ERR%%GO
            103/REF       1004/M:OPEN    1004/M:OPEN
    ERR%%LO
            103/REF        918/M:OPEN     918/M:OPEN
    ERR%%SI
            103/REF       1043/M:OPEN    1043/M:OPEN
    ERR%%SO
            103/REF       1096/M:OPEN    1096/M:OPEN
    ERR%%STD
             69/REF        777/M:SETDCB   781/LI
    ERR%%X1
             60/REF        844/M:OPEN
    ERR%%X2
             61/REF        861/M:OPEN
    ERR%%X3
             60/REF        878/M:OPEN
    ERR%%X4
             61/REF        907/M:OPEN
    F:STD
            112/REF        776/M:SETDCB   782/STS        784/STS        799/AND        803/LW         806/LW
            814/LW         819/LW         822/LW        1015/M:OPEN    1023/M:OPEN    1031/M:OPEN
           1033/M:DEVICE  1595/DCBT
    F:SYS
            112/REF       1596/DCBT
    F:X1
            110/REF        839/LI        1605/DCBT
    F:X2
            110/REF        856/LI        1606/DCBT
    F:X2KF
            110/REF        890/LI        1608/DCBT
    F:X3
            110/REF        873/LI        1607/DCBT
    F:X5
            110/REF       1609/DCBT
    FILE
            903/M:OPEN    1023/M:OPEN
    FIND%LAST
           1430/BNEZ      1436-RES
    FIND%L1
           1432-RES       1458/B
    FIND%L2
           1438-RES       1445/BNEZ
    FIND%VARP
           1070/CALL      1160-RES
    FIND%1ST
           1424-RES       1434/B
    FX
           1117/M:TRAP
    GEN%SEG
           1487/DATA      1493-TEXTC
    GET%NEXT%CHAR
            295/BAL        360/BAL        394/BAL        466/BAL        492/BAL        505/BAL        538-EQU
    GET%NEXT%NONBLANK
            293/BAL        300/BAL        315/BAL        384/BAL        443/BAL        540-EQU
    GET%NEXT%RETURN
            541/STW        564/B*        1194-RES
    GETSEQ
            470/BE         489-RES
    GETSEQ1
            491-RES        501/B
    GO%FLAG
            218-OPTION     271/MTW        668/MTW        687/LW         728/MTW
    GOBIT
            194-EQU        269/CI         696/LI
    HA
           1315/EQU       1315/EQU
    HEXDUMP
           1414/BAL       1454/BAL       1466/BAL       1847-RES
    HEXDUMP1
           1400/BAL       1404/BAL       1859-RES
    HEXEDIT
           1363/BAL       1370/BAL       1377/BAL       1384/BAL       1391/BAL       1579/BAL       1642/BAL
           1648/BAL       1722/BAL       1733/BAL       1760/BAL       1858/BAL       1867/BAL       1960-RES
           1966/BDR
    HEXTABLE
           1963/LB        1969-TEXT
    IDENTBL
            475/LH         597-RES
    IGNORE
           1117/M:TRAP
    IGNORE%TRAPS
            670/BAL       1116-RES
    ILLEGAL%OPTION
            353/B          511-EQU
    IN
            969/M:OPEN    1015/M:OPEN    1023/M:OPEN    1043/M:OPEN    1053/M:OPEN
    INIT%TUNITS
             76/REF        241/STW
    IOADD
            156-EQU        839/LI         856/LI         873/LI         890/LI         903/M:OPEN*   1729/LI
           1737/BDR       1984/LI        2002/LI
    IORL
            158-EQU        258/BAL        259/BAL        260/BAL        718/BAL        722/BAL        726/BAL
            730/BAL        735/BAL        736/BAL        738/BAL        739/BAL        740/LW         743/STB
            748/BAL        753/BAL        758/BAL        762/BAL        810/BAL        848/B*         865/B*
            882/B*         902/B*         911/B*         934/BGEZ*      937/BAZ*       943/BNE*       955/B*
            963/EXIT       970/EXIT       983/BNE*       985/BGEZ*      988/BAZ*       994/BNE*       998/B*
           1009/B*        1016/B*        1024/B*        1037/B*        1047/B*        1054/B*        1097/B*
           1115/EXIT      1470/LI        1821/STW       1824/LW        1986/BAL       1987/BAL       2009/BAL
           2016/BAL
    IOSIZE
            157-EQU        840/LW         857/LW         874/LW         891/LW         898/STW        899/LW
            900/STH       1985/LW        2003/LW
    J:JIT
            118/SREF       237/LW         238/AW         239/AW         240/AW         265/LW         697/AND
    JOPT
            118/SREF       265/LW         697/AND
    K:BCKEND
            189-EQU       1133/LW
    K:BPEND
            188-EQU       1129/LW
    K:CCBUF
            191-EQU        282/LW*
    K:PAGE
            190-EQU        951/LB
    L
            815/AND        903/M:OPEN    1131/AND       1163/AND       1167/AND       1181/AND
    LF
            206/REF
    LINE%TYPE
             99/REF        250/STW        711/MTW        714/MTW        732/LW         764/MTW
    LINE#MSG
           1340/LI        1496-TEXTC
    LO%FLAG
            219-OPTION     268/MTW        667/MTW        688/OR         740/LW
    LO%ONLINE
            108/REF        921/STW        945/MTW       2005/MTW
    LOBIT
            193-EQU        266/CI         696/LI
    LOWCORE
             70/REF       1120/STW       1132/STW       1135/SW        1139/AW        1423/LW        1463/LW
    LS%FLAG
            220-OPTION
    LSTBF
             92/REF       1347/STB       1735/STB       1830/STB       1853/STH       1863/STB       1907/STB
           1964/STB       1984/LI        2002/LI
    LU%FLAG
            221-OPTION
    M:BO
            115/REF        961/M:OPEN     962/M:DEVICE  1589/DCBT
    M:C
             59/REF        572/M:READ     923/M:DEVICE   969/M:OPEN    1044/M:DEVICE
    M:CI
            114/REF       1053/M:OPEN    1588/DCBT
    M:CO
            114/REF       1103/M:OPEN    1104/M:DEVICE  1590/DCBT
    M:DO
            115/REF        926/M:DEVICE   976/M:OPEN     980/LW         986/LW        1259/M:SETDCB
           1266/M:CLOSE   1270/M:OPEN    1275/M:DEVICE  1591/DCBT
    M:GO
            115/REF       1004/M:OPEN    1006/M:PFIL    1008/M:DEVICE  1592/DCBT
    M:LL
            527/M:WRITE    534/M:WRITE    580/M:WRITE
    M:LO
            115/REF        261/M:DEVICE   918/M:OPEN     923/M:DEVICE   926/M:DEVICE   929/LW         935/LW
           1256/M:SETDCB  1265/M:CLOSE   1267/M:OPEN    1275/M:DEVICE  1593/DCBT
    M:SI
            114/REF       1043/M:OPEN    1044/M:DEVICE  1587/DCBT
    M:SO
            114/REF       1068/LI        1096/M:OPEN    1594/DCBT
    M:UC
            109/REF        273/M:WRITE
    M:X1
            126/REF        844/M:OPEN     845/M:DEVICE  1598/DCBT
    M:X2
            126/REF        861/M:OPEN     862/M:DEVICE  1599/DCBT
    M:X3
            126/REF        878/M:OPEN     879/M:DEVICE  1600/DCBT
    M:X4
            126/REF        907/M:OPEN     908/M:DEVICE  1601/DCBT
    M:X5
            126/REF       1602/DCBT
    MAJLINE
             72/REF       1342/LW
    MESS
            520/M:PRINT
    MOVE
           1328/BAL       1335/CALL      1341/CALL      1531/BAL       1571/BAL       1573/BAL       1644/BAL
           1825-RES
    MOVE1
           1827-RES       1832/BDR
    MPX1
             84/REF       1636/STW       1640/LW*       1646/LW*       1650/LW        1663/MTW
    MSGS
            515/LI         519/STW       1222-EQU
    NAO
           1117/M:TRAP
    NCDR%SEG
           1485/DATA      1491-TEXTC
    ND%FLAG
            222-OPTION     685/MTW        746/MTW        828/STW
    NE
           1072/IF        1337/IF        1339/IF        1345/IF        2014/EXIT
    NEXT%AC
            416-RES        419/BDR
    NEXT%OPTION
            307-EQU        331/B          342/B          356/BNE        385/B          444/B          463/BNE
            513/BEZ        521/B
    NEXT%PG
           1428/CALL      1443/CALL      1929-RES
    NEXT%PRT
           1441/BGE       1444/B         1447-RES
    NS%FLAG
            223-OPTION
    NUM%PAGE%LINES
            101/REF        922/STW        948/STW        953/STW
    NXT%PG1
           1930/BDR       1939-RES
    NXT%PG2
           1932/BIR       1936-RES
    NXTCMP
           1875-RES       1881/BANZ      1886/B
    NXTLOC
           1852-RES       1878/BNE       1883/BG
    NXTWORD
           1861-RES       1869/BDR
    NZ
            675/IF
    OPEN%SYS
            761/BEZ        763-RES
    OPEN%TEMPS
            734/BNE        737-RES
    OPENBO
            726/BAL        960-RES
    OPENC
            258/BAL        968-RES
    OPENCI
            762/BAL       1052-RES
    OPENCO
            722/BAL       1102-RES
    OPENDO
            259/BAL        975-RES
    OPENDO1
            992/BE         995-RES
    OPENEND
            893/LI         904-RES
    OPENFPT
            893/LI         895/LW         903-M:OPEN
    OPENGO
            730/BAL       1003-RES
    OPENLO
            260/BAL        917-RES
    OPENLO2
            932/BNE        946-RES
    OPENLO3
            941/BE         944-RES
    OPENSI
            758/BAL       1042-RES
    OPENSO
            718/BAL       1061-RES
    OPENSTD
            748/BAL       1014-RES
    OPENSTD%SYS
            810/BAL       1022-RES
    OPENSTDOUT
            753/BAL       1030-RES
    OPENX1
            738/BAL        837-RES
    OPENX2
            736/BAL        854-RES
    OPENX2KF
            735/BAL        888-RES
    OPENX3
            739/BAL        871-RES
    OPNJN1
            894-RES        897/BDR
    OPNJOIN
            841/B          858/B          875/B          892-RES
    OPTION
            204-CNAME
    OPTION%FLAGS
             94/REF        330/MTW       1374/LI
    OPTION%IGNORED
            516/LW        1221-TEXTC     1222/EQU
    OPTION%NAMES
            211-RES        328/CW
    OPTIONS%DONE
            311/BE         669-EQU
    ORG
            847/M:DEVICE   864/M:DEVICE   881/M:DEVICE   910/M:DEVICE  1035/M:DEVICE
    OUT
            918/M:OPEN     961/M:OPEN     976/M:OPEN    1004/M:OPEN    1031/M:OPEN    1096/M:OPEN
           1103/M:OPEN
    OUTIN
            903/M:OPEN
    PAGETBL
             77/REF       1937/LW
    PATCH
           1193-RES
    PD%FLAG
             52/REF        354/MTW        683/MTW        751/MTW
    PGLINES
             95/REF        256/STW
    PRINT
           1322/BAL       1329/BAL       1353/BAL       1649/BAL       1723/BAL       1726/BAL       1982-RES
    PRINT%SWITCH
            255/STW        577/MTW        581/MTW       1197-RES
    RBM
             34-EQU         43/DO         125/DO         387/DO         411/DO         428/DO         436/DO
            813/DO         843/DO         860/DO         877/DO         906/DO         950/DO        1005/DO
           1032/DO        1128/DO        1199/DO        1264/DO        1462/DO        1597/DO
    READ%CTL%CARD
            274/BAL        290/BAL        556/BAL        567-EQU
    RL
            169-EQU        670/BAL       1142/EXIT      1320/BAL       1322/BAL       1326/BAL       1328/BAL
           1329/BAL       1332/BAL       1333/LW        1334/LW        1353/BAL       1356/BAL       1357/BAL
           1359/BAL       1363/BAL       1364/BAL       1366/BAL       1370/BAL       1371/BAL       1373/BAL
           1377/BAL       1378/BAL       1380/BAL       1384/BAL       1385/BAL       1387/BAL       1391/BAL
           1392/BAL       1394/BAL       1395/BAL       1397/BAL       1402/BAL       1410/BAL       1411/BAL
           1471/BAL       1529/BAL       1531/BAL       1559/BAL       1571/BAL       1573/BAL       1579/BAL
           1639/BAL       1642/BAL       1644/BAL       1648/BAL       1649/BAL       1720/BAL       1722/BAL
           1723/BAL       1725/BAL       1726/BAL       1728/BAL       1733/BAL       1756/BAL       1760/BAL
           1821/STW       1822/BAL       1824/LW        1833/EXIT      1858/BAL       1867/BAL       1870/BAL
           1913/EXIT      1934/EXIT      1942/B         1967/EXIT      1983/STW       2014/EXIT      2017/EXIT
    RO%R7
           1396/LI        1504-TEXTC
    ROOTRTN
             87/REF        231/STW        786/B*        1413/LI
    R0
            140-EQU
    R10
            150-EQU        516/LW         517/STW
    R11
            151-EQU
    R12
            152-EQU        392/LD         399/STB        407/STD        417/CW         528/LD         530/STD
            569/LD         570/STD       1178/LW        1179/CV        1181/AND       1182/AW
    R13
            153-EQU       1399/STW       1413/LI        1437/LW        1439/AI        1440/CW        1448/CW
           1450/LW        1453/AI        1457/LW        1464/LW        1465/AI        1849/AND       1850/AI
           1871/CW        1882/CW
    R14
            154-EQU        446/LI         450/LI         454/STB*       455/MTH*       471/MTB*      1860/LI
           1869/BDR
    R15
            155-EQU        231/STW       1400/BAL       1404/BAL       1414/BAL       1454/BAL       1466/BAL
           1872/BG*
    R8
            148-EQU        282/LW         283/STW        314/LI         318/SLS        319/OR         328/CW
            339/CI         345/CI         347/CI         349/CI         351/CI         371/LW         372/SW
            374/STB        512/AI         514/OR         519/STW        532/LI         533/STB        674/LH
            676/LW         677/CI         679/LI         680/STW        687/LW         688/OR         689/OR
            690/STW        694/LW         696/LI         697/AND        698/STW        704/LW         732/LW
            733/CI         770/LW         773/STD        774/LD         775/STD        781/LI         782/STS
            783/LI         784/STS        790/LB         791/CI         798/LI         799/AND        800/CI
            803/LW         804/CW         806/LW         807/CW         819/LW         820/CW         822/LW
            823/CW
    R8%R15
           1401/LI        1505-TEXTC
    R9
            149-EQU        296/CI         298/CI         301/CI         308/CI         310/CI         316/CI
            319/OR         355/CI         361/CI         363/CI         368/STB        375/CI         390/CI
            395/CI         397/CI         399/STB        434/CI         462/CI         467/CI         469/CI
            474/AND        475/LH         477/SLS        480/LH         485/AH         486/STH        493/AI
            495/CI         499/AW         503/CI         506/CI         545/LB         546/CI         548/CI
            552/CI         554/CI         558/LI         559/STB        560/LI         772/LW         780/LV
    SALUTE%END
            181-DATA
    SALUTE%START
            178-TEXT       273/M:WRITE
    SAVAREA
             88/REF        896/STW        898/STW        900/STH        901/M:OPEN    1452/STM       1456/LM
    SAVE
           1265/M:CLOSE   1266/M:CLOSE
    SAVEREGS
            461/STW        490/LW        1237-EQU       1252/STM       1398/LI        1403/LI        1473/LM
           1523/LW        1562/LW        1654/STM       1730/LW
    SD%FLAG
            224-OPTION
    SDFCON
             96/REF        251/STW        358/STW        370/MTW        383/STH
    SDFNOTHR
            801/BNE        805/BNE        808/BNE        817/BNE        821/BNE        824/BNE        830-RES
    SDFSYS
             97/REF        368/STB        374/STB
    SDFSYS%SIZE
             98/REF        366/CI
    SEARCH%OPTIONS
            317/BL         326-EQU
    SEG%MSG
           1334/LW        1483-RES
    SEGMENT#
             73/REF        257/STW       1333/LW        1336/LW
    SEQEND
            494/BL         502-RES
    SET%DEFAULTS
            302/BE         665-EQU
    SFTBL
            476/LB         509-DATA
    SI%FLAG
            225-OPTION     666/MTW        706/MTW        709/MTW        756/MTW
    SIZE
            273/M:WRITE    527/M:WRITE    534/M:WRITE    572/M:READ     580/M:WRITE    846/M:DEVICE
            863/M:DEVICE   880/M:DEVICE   909/M:DEVICE  1034/M:DEVICE
    SNAPRINT
           1357/BAL       1364/BAL       1371/BAL       1378/BAL       1385/BAL       1392/BAL       1395/BAL
           1411/BAL       1870/BAL       2001-RES
    SNAPRT1
           2006/BNEZ      2011-RES
    SO%ADJ%FPT
             78/REF       1090/CAL1
    SO%ADJ%NAME
             79/REF       1084/STB       1087/STW
    SO%FLAG
            226-OPTION     716/MTW
    SO%KEY
             80/REF        243/STW       1092/STB
    SR1
            159-EQU        919/LI         921/STW        922/STW        925/STB        927/STB        929/LW
            930/AND        931/CI         933/LW         935/LW         936/CI         938/SLS        939/AND
            940/CI         942/CI         947/LI         948/STW        951/LB         952/AI         953/STW
            978/LI         979/STW        980/LW         981/AND        982/CI         984/LW         986/LW
            987/CI         989/SLS        990/AND        991/CI         993/CI        1046/STB       1120/STW
           1125/AW        1129/LW        1130/AI        1131/AND       1132/STW       1133/LW        1134/AI
           1135/SW        1136/CI        1138/LI        1139/AW        1140/STW       1276/STB
    SR2
            160-EQU
    SR3
            161-EQU        790/LB        1121/CI        1123/LI        1124/SLS       1125/AW        1126/STW
           1562/LW        1562/LW        1564/CS        1574/SLD       1576/SLD
    SR4
            162-EQU       1560/LI        1575/SLS       1578/LW
    STDERROR
             55/DEF        789-RES
    STDERR5
            795/BNE        827-RES
    SU%FLAG
            227-OPTION
    SUBLINE
             72/REF       1344/LW
    SYS
             35-EQU         39/DO          43/DO          75/DO         106/DO         117/DO         125/DO
            236/DO         262/DO         387/DO         404/DO         411/DO         428/DO         436/DO
            574/DO         691/DO         701/DO         766/DO         793/DO         802/DO         813/DO
            838/DO         843/DO         855/DO         860/DO         872/DO         877/DO         889/DO
            906/DO         920/DO1        928/DO         950/DO         977/DO        1005/DO        1021/DO
           1032/DO        1063/DO        1107/DO        1118/DO        1128/DO        1199/DO        1224/DO
           1255/DO        1264/DO        1420/DO        1462/DO        1597/DO        1604/DO        1928/DO
           2004/DO        2012/DO
    SYSLEVEL
             83/REF        252/STW       1323/MTW
    SYSNAME
             85/REF       1327/LI
    TENS
           1898/CW        1905/DW        1915-DATA
    TEST%BO
            721/BEZ        723-RES
    TEST%CI
            757/BEZ        759-RES
    TEST%CO
            717/BEZ        719-RES
    TEST%GO
            725/BEZ        727-RES
    TEST%PD
            747/BNEZ       750-RES
    TEST%SI
            749/B          752/BEZ        754-RES        811/B          829/B
    TEST%SO
            713/BEZ        715-RES
    TEST%STD
            741/BNEZ       744-RES
    TEST%TEMPS
            729/BEZ        731-RES
    TPEXT
            119/SREF       237/LW
    TPOVT
            120/SREF       238/AW
    TRAP
           1117/M:TRAP
    TRAPLOC
            113/REF       1117/M:TRAP
    TUEXT
            121/SREF       239/AW
    TUOVT
            122/SREF       240/AW
    UNBLOCK
            847/M:DEVICE   881/M:DEVICE  1035/M:DEVICE
    VFC
            261/M:DEVICE
    WDX3SIZE
             90/REF       1237/EQU
    WRITEDO
             91/REF       1987/BAL       2016/BAL
    WRITELO
             91/REF       1986/BAL       2009/BAL
    XAPCODE
             89/REF       1381/LI
    XAPDATA
             36-DSECT     1192/USECT     1228/USECT     1360/LI        1412/LI
    XAPD1
             37-DSECT     1367/LI
    XT
            166-EQU        167/EQU        168/EQU        237/LW         238/AW         239/AW         240/AW
            241/STW        242/LI         243/STW        278/LV         279/STB        814/LW         815/AND
            816/CV         924/LI         925/STB       1045/LI        1046/STB       1068/LI        1083/LB
           1084/STB       1086/LW        1087/STW       1088/BDR       1091/LI        1092/STB       1105/LI
           1110/LI        1114/STW       1162/LW        1166/LW        1279/LW        1281/LH        1281/LH
           1282/B         1336/LW        1338/CI        1346/LI        1347/STB       1405/LW        1406/LB
           1415/LW        1416/LB        1523/LW        1523/LW        1524/SLS       1527/AW        1561/LI
           1564/CS        1566/BDR       1568/LW        1568/LW        1569/LB        1829/LB        1830/STB
    XT1
            167-EQU       1071/CI        1083/LB*       1086/LW*       1162/LW        1163/AND       1164/CI
           1166/LW        1167/AND       1173/CB*       1178/LW        1182/AW        1183/BIR       1187/LI
           1347/STB       1348/AI        1406/LB        1416/LB        1417/CI        1718/STH       1735/STB
           1736/AI        1738/AI        1823/LI        1830/STB       1831/AI        1857/LI        1863/STB
           1864/AI        1907/STB       1908/AI        1964/STB       1965/AI        1985/LW        2003/LW
    XT2
            168-EQU       1069/LI        1082/LI        1083/LB        1084/STB       1086/LW        1087/STW
           1173/CB        1826/LB        1832/BDR
    XW
            165-EQU       1525/AI        1526/SLS       1527/AW        1530/LW
    X1
            141-EQU        246/LW         247/STW        248/STW        249/LI         250/STW        251/STW
            252/STW        253/STW        254/STW        255/STW        256/STW        257/STW        265/LW
            266/CI         269/CI         277/LI         282/LW         283/STW        284/AI         285/CI
            327/LI         328/CW         330/MTW        334/BDR        422/LW         423/CI         431/STB
            438/AI         439/STB        476/LB         478/CI         487/AI         529/LI         530/STD
            531/BDR        568/LI         570/STD        571/BDR        745/LI         769/LI         770/LW
            771/AI         772/LW         794/CI         809/LI         825/LI         828/STW        893/LI
            895/LW         896/STW        897/BDR       1421/LI        1636/STW       1645/LI        1646/LW
           1650/LW        1652/LM        1730/LW        1932/BIR       1937/LW
    X2
            142-EQU        292/LI         303/AI         533/STB        542/CI         544/AI         545/LB
            559/STB        561/LI         573/LI         895/LW         896/STW       1422/LI        1851/LI
           1853/STH       1862/LI        1863/STB       1874/LI        1885/LI        1904/LI        1905/DW
           1909/LW        1930/BDR       1938/LI        1961/LI        1962/SLD       1963/LB        1963/LB
           1964/STB       2008/STD       2010/LD
    X3
            143-EQU        447/LI         451/LI         457/STW        458/STW        459/STW        460/STW
            461/STW        464/SLS        481/AH         482/STH        483/AI         485/AH         486/STH
            490/LW         497/LW         500/STW       1342/LW        1344/LW        1360/LI        1361/SLS
           1367/LI        1368/SLS       1374/LI        1375/SLS       1381/LI        1382/SLS       1388/LI
           1389/SLS       1578/LW        1640/LW        1646/LW        1718/STH       1730/LW        1747/AI
           1748/SLS       1757/AI        1758/SLS       1776/SLS       1854/LW        1855/SLS       1865/LW
           1873/LW        1876/LW        1877/CW        1879/AI        1880/CI        1882/CW        1884/STW
           1898/CW        1906/AI        1907/STB       1909/LW
    X3BUF
             90/REF       1237/EQU
    X4
            144-EQU       1940/SLD       1941/AND
    X5
            145-EQU        359/LW         372/SW         374/STB        393/LI         399/STB        400/AI
            401/CI         405/LW         407/STD        408/CI         413/CI         415/LI         417/CW
            419/BDR        429/AI         430/LB        1937/LW
    X6
            146-EQU        357/LI         358/STW        359/LW         365/AI         366/CI         368/STB
            371/LW         377/AI         381/AI         382/SAS        383/STH       1398/LI        1399/STW
           1403/LI        1412/LI        1423/LW        1425/CW        1433/AI        1437/LW        1457/LW
           1463/LW        1848/AND       1854/LW        1865/LW        1868/AI        1871/CW        1873/LW
           1884/STW       1896/LI        1898/CW        1901/BDR       1905/DW        1910/AI        2008/STD
           2010/LD
    X7
            147-EQU        274/BAL        290/BAL        293/BAL        295/BAL        300/BAL        315/BAL
            360/BAL        384/BAL        394/BAL        430/LB         431/STB        437/LI         439/STB
            443/BAL        453/LI         454/STB        456/LI         457/STW        458/STW        459/STW
            460/STW        466/BAL        473/LI         474/AND        475/LH         476/LB         477/SLS
            480/LH         481/AH         482/STH        492/BAL        497/LW         498/MI         499/AW
            500/STW        505/BAL        515/LI         516/LW         517/STW        518/BDR        541/STW
            556/BAL        562/LI         563/STW        576/BLZ        582/B          767/LW         773/STD
            775/STD
    8BLANKS
            392/LD         528/LD         569/LD        1231-EQU
    %
            230/EQU        267/BAZ        270/BAZ        307/EQU        313/EQU        326/EQU        511/EQU
            518/BDR        524/EQU        538/EQU        540/EQU        567/EQU        665/EQU        669/EQU
            684/BEZ       1122/BLE       1137/BLE       1222/EQU       1229/RES       1230/EQU       1231/EQU
           1232/EQU       1234/EQU       1315/EQU       1449/BLE       1565/BE        1611/EQU
    %06
            703/BGEZ       705/BNEZ       708-RES
    %12
            294-RES        299/BNE
    #ACCTS
             67/REF        253/STW        280/MTW        388/MTW        405/LW         406/MTW        422/LW
            432/MTW        440/MTW        767/LW         768/MTW
    #SIMPLE%OPTIONS
            202-SET        208-SET        208/SET        327/LI
    #0
            587-EQU        631/DATA       632/DATA       633/DATA       634/DATA       635/DATA       636/DATA
            637/DATA       638/DATA       639/DATA       641/DATA       642/DATA       643/DATA       644/DATA
            645/DATA       646/DATA
    #1
            588-EQU        599/DATA       615/DATA       631/DATA       647/DATA
    #11
            586-EQU        615/DATA       616/DATA       617/DATA       618/DATA       619/DATA       620/DATA
            621/DATA       622/DATA       623/DATA       624/DATA       625/DATA       626/DATA       628/DATA
            629/DATA       630/DATA       640/DATA
    #12
            585-EQU        599/DATA       600/DATA       601/DATA       602/DATA       603/DATA       604/DATA
            605/DATA       606/DATA       607/DATA       608/DATA       609/DATA       610/DATA       612/DATA
            613/DATA       614/DATA       640/DATA
    #2
            589-EQU        600/DATA       608/DATA       616/DATA       624/DATA       632/DATA       648/DATA
            656/DATA
    #3
            590-EQU        601/DATA       609/DATA       617/DATA       625/DATA       633/DATA       641/DATA
            649/DATA       657/DATA
    #4
            591-EQU        602/DATA       610/DATA       618/DATA       626/DATA       634/DATA       642/DATA
            650/DATA       658/DATA
    #5
            592-EQU        603/DATA       619/DATA       635/DATA       643/DATA       651/DATA       659/DATA
    #6
            593-EQU        604/DATA       612/DATA       620/DATA       628/DATA       636/DATA       644/DATA
            652/DATA       660/DATA
    #7
            594-EQU        605/DATA       613/DATA       621/DATA       629/DATA       637/DATA       645/DATA
            653/DATA       661/DATA
    #8
            595-EQU        606/DATA       608/DATA       609/DATA       610/DATA       612/DATA       613/DATA
            622/DATA       624/DATA       625/DATA       626/DATA       628/DATA       629/DATA       638/DATA
            641/DATA       642/DATA       643/DATA       644/DATA       645/DATA       654/DATA       656/DATA
            657/DATA       658/DATA       659/DATA       660/DATA       661/DATA
    #9
            596-EQU        607/DATA       623/DATA       639/DATA       655/DATA
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APCCI'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APCCI                   %%%%%
         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         00000002           BPMUTS   EQU      2
        34         00000003           RBM      EQU      3
        35         00000002           SYS      EQU      BPMUTS
        36   02 00000                 XAPDATA  DSECT    0                 OVERLAY DATA AREA
        37   03 00000                 XAPD1    DSECT    0                 OVERLAY DATA AREA
        38   04 00000                 CCI1     CSECT    1                 CODE SECTION
        39         00000001                    DO       SYS=BPMUTS
        40         H00                         SYSTEM   BPM
        41                                     M:PT     1                 GENERATE FPT'S IN PROTECT. TYPE 1
        42                                     FIN
        43         00000000                    DO       SYS=RBM
        44                        *S*          SYSTEM   RBM
        45                                     FIN
        46                            *
        47                                     SYSTEM   AP%IL
        48                            *
        49                            *        XEROX ASSEMBLY PROGRAM CONTROL CARD INTERPRETER.
        50                            *
        51                                     REF      AC%FLAG
        52                                     REF      PD%FLAG
        53                            *
        54                                     DEF      CTL%CARD%INTERPRETER     (ENTRY POINT.)
        55                                     DEF      STDERROR
        56                                     DEF      AP%ABORT          (ENTRY POINT)
        57                            *
        58                                     REF      CO%SIZE           BYTE SIZE OF CO RECORD
        59                                     REF      M:C
        60                                     REF      ERR%%X1,ERR%%X3
        61                                     REF      ERR%%X2,ERR%%X4
        62                                     REF      ABN%%X1,ABN%%X3
        63                                     REF      ABN%%X2,ABN%%X4
        64                                     REF      ABN%%STD
        65                                     REF      ABORT
        66                                     REF      ACCOUNTS
        67                                     REF      #ACCTS
        68                                     REF      CORRESWD          FLAGS INDIC. IDEN. DCB ASSIGNMENTS
        69                                     REF      ERR%%STD                                            *D-CCI
        70                                     REF      LOWCORE
        71                                     REF      ENDCORE
        72                                     REF      MAJLINE,SUBLINE   ASSEMBLY LINE NUMBER
        73                                     REF      SEGMENT#          AP OVERLAY SEGMENT
        74                            *
        75         00000001                    DO       SYS=BPMUTS
        76                                     REF      INIT%TUNITS
        77                                     REF      PAGETBL
        78                                     REF      SO%ADJ%FPT
        79                                     REF      SO%ADJ%NAME
        80                                     REF      SO%KEY
        81                                     FIN
        82                            *
        83                                     REF      SYSLEVEL
        84                                     REF      MPX1
        85                                     REF      SYSNAME
        86                                     REF      CLOSE%FILES
        87                                     REF      ROOTRTN
        88                                     REF      SAVAREA
        89                                     REF      XAPCODE
        90                                     REF      X3BUF,WDX3SIZE
        91                                     REF      WRITEDO,WRITELO
        92                                     REF      LSTBF
        93                                     REF      CLRLSTBF
        94                                     REF      OPTION%FLAGS
        95                                     REF      PGLINES
        96                                     REF      SDFCON
        97                                     REF      SDFSYS
        98                                     REF      SDFSYS%SIZE
        99                                     REF      LINE%TYPE
       100                                     REF      ASSEMBLE%FLAG
       101                                     REF      NUM%PAGE%LINES
       102                                     REF      ERR%%BO,ERR%%CI,ERR%%CO,ERR%%DO
       103                                     REF      ERR%%GO,ERR%%LO,ERR%%SI,ERR%%SO
       104                                     REF      BYX1SIZE,BYX3SIZE
       105                                     REF      BO%IDWDS,CO%IDWDS
       106         00000001                    DO       SYS=BPMUTS
       107                                     REF      DO%ONLINE
       108                                     REF      LO%ONLINE
       109                                     REF      M:UC
       110                                     REF      F:X1,F:X2,F:X3,F:X2KF,F:X5
       111                                     FIN
       112                                     REF      F:STD,F:SYS
       113                                     REF      TRAPLOC
       114                                    REF      M:SI,M:SO,M:CI,M:CO
       115                                     REF      M:BO,M:DO,M:GO,M:LO
       116                            *
       117         00000001                    DO       SYS=BPMUTS
       118                                     SREF     J:JIT,JOPT
       119                                     SREF     TPEXT
       120                                     SREF     TPOVT
       121                                     SREF     TUEXT
       122                                     SREF     TUOVT
       123                                     FIN
       124                            *
       125         00000000                    DO       SYS=RBM
       126                        *S*          REF      M:X1,M:X2,M:X3,M:X4,M:X5
       127                                     FIN
       128                            *
       129                                     DEF      CCI1
       130                            *
       131                            *   EQUATES FOR ABORT
       132                            *
       133         00000009           ABORT9   EQU      9
       134         0000000A           ABORT10  EQU      10
       135         0000000B           ABORT11  EQU      11
       136         0000000C           ABORT12  EQU      12
       137                            *
       138                            *        REGISTERS.
       139                            *
       140         00000000           R0       EQU      0
       141         00000001           X1       EQU      1                 TEMP INDEX.
       142         00000002           X2       EQU      2                 INDEX TO CURRENT CHARACTER.
       143         00000003           X3       EQU      3
       144         00000004           X4       EQU      4
       145         00000005           X5       EQU      5
       146         00000006           X6       EQU      6
       147         00000007           X7       EQU      7                 INTERNAL LINK REGISTER.
       148         00000008           R8       EQU      8                 OPTION-NAME ACCUMULATOR.
       149         00000009           R9       EQU      9                 CURRENT CHARACTER.
       150         0000000A           R10      EQU      10                TEMP.
       151         0000000B           R11      EQU      11                TEMP.
       152         0000000C           R12      EQU      12                TEMP.
       153         0000000D           R13      EQU      13                TEMP.
       154         0000000E           R14      EQU      14
       155         0000000F           R15      EQU      15                EXTERNAL LINK REGISTER.
       156         00000008           IOADD    EQU      8
       157         00000009           IOSIZE   EQU      9
       158         0000000A           IORL     EQU      10
       159         00000008           SR1      EQU      8
       160         00000009           SR2      EQU      9
       161         0000000A           SR3      EQU      10
       162         0000000B           SR4      EQU      11
       163         00000000           AR       EQU      0                 ABORT REGISTER
       164         00000001           AM       EQU      1                 ABORT MESSAGE REGISTER
       165         00000002           XW       EQU      2
       166         00000004           XT       EQU      4                 TEMP (EVEN)
       167         00000005           XT1      EQU      XT+1              TEMP (ODD)
       168         00000006           XT2      EQU      XT+2              TEMP
       169         00000007           RL       EQU      7                 SUBROUTINE LINK REGISTER
       170                            *                                                                     *D-CCI
       171                            *  MISCELLANEOUS                                                      *D-CCI
       172                            *                                                                     *D-CCI
       173         0001FFFF           ADDRFLD  EQU      X'1FFFF'          WORD ADDRESS FIELD MASK           *D-CCI
       174         0001FFFE           EADRFLD  EQU      X'1FFFE'          (EVEN) WORD ADDRESS FIELD MASK    *D-CCI
       175                            *
       176                            *  SALUTE MESSAGE
       177                            *
       178   04 00000    40E3C5D3 A   SALUTE%START      TEXT ' TELEFILE ASSEMBLY PROGRAM '
             04 00001    C5C6C9D3 A
             04 00002    C540C1E2 A
             04 00003    E2C5D4C2 A
             04 00004    D3E840D7 A
             04 00005    D9D6C7D9 A
             04 00006    C1D44040 A
       179   04 00007    0D       A                     DATA,1 X'0D',X'40',C'O',C'P'
             04 00007 1  40       A
             04 00007 2  D6       A
             04 00007 3  D7       A
       180   04 00008    E3C9D6D5 A                     TEXT 'TIONS '
             04 00009    E2404040 A
       181   04 0000A    16000000 A   SALUTE%END        DATA   X'16000000'
       182                            *
       183                            *  EQUATES FOR LOCATIONS WITHIN RBM
       184                            *
       185         00000004           CPRABNEO EQU      4                 DCB ABN FIELD OFFSET (CP-R)       *D-CCI
       186         00000003           CPRERREO EQU      3                 CPR ERR FIELD OFFSET (CP-R)       *D-CCI
       187         00000006           D1       EQU      6                 TYPE CODE FOR 'D1' AREA ON DISK
       188         00000153           K:BPEND  EQU      X'153'            FWA OF USABLE BACKGROUND
       189         00000141           K:BCKEND EQU      X'141'            LWA OF USABLE BACKGROUND
       190         00000174           K:PAGE   EQU      X'174'            BYTE 0 HAS NO. LINES ON PRINT PAGE
       191         00000144           K:CCBUF  EQU      X'144'            CONTAINS LOCATION OF CONTROL CARD
       192                            * UTS JIT OPTION BITS.  MASKS FOR BITS WITHIN JOPT WORD
       193         00000001           LOBIT    EQU      1                 BIT 31. SET BY TEL 'LIST'
       194         00000080           GOBIT    EQU      X'80'             BIT 24. SET BY TEL 'OUTPUT'
       195         00000100           DOBIT    EQU      X'100'            BIT 23. SET BY TEL 'COMMENT'
       196                            *
       197                            *        SIMPLE OPTIONS - THOSE REQUIRING ONLY A PRESENCE FLAG.
       198                            *        TO ADD A SIMPLE OPTION USE THE 'OPTION' COMMAND WITH LF(1) =
       199                            *        FLAG NAME & AF(1) = OPTION-STRING (<= 4 CHARACTERS).  DON'T
       200                            *        FORGET TO ADD CORRESPONDING ENTRY TO OPTION%FLAGS TABLE (ROOT).
       201                            *
       202         00000000           #SIMPLE%OPTIONS   SET 0
       203                            *
       204         00000000           OPTION   CNAME
       205                                     PROC
       206                                     REF      LF                (THESE ARE IN THE ROOT)
       207                                     DATA     AF(1)
       208                            #SIMPLE%OPTIONS   SET #SIMPLE%OPTIONS+1
       209                                     PEND
       210   04 0000B                          USECT    CCI1
       211   04 0000B                 OPTION%NAMES   RES 0
       212                            *
       213   04 0000B    0000C2C1 A   BA%FLAG  OPTION   'BA'
       214   04 0000C    0000C2D6 A   BO%FLAG  OPTION   'BO'
       215   04 0000D    0000C3C9 A   CI%FLAG  OPTION   'CI'
       216   04 0000E    0000C3D6 A   CO%FLAG  OPTION   'CO'
       217   04 0000F    0000C4C3 A   DC%FLAG  OPTION   'DC'
       218   04 00010    0000C7D6 A   GO%FLAG  OPTION   'GO'
       219   04 00011    0000D3D6 A   LO%FLAG  OPTION   'LO'
       220   04 00012    0000D3E2 A   LS%FLAG  OPTION   'LS'
       221   04 00013    0000D3E4 A   LU%FLAG  OPTION   'LU'
       222   04 00014    0000D5C4 A   ND%FLAG  OPTION   'ND'
       223   04 00015    0000D5E2 A   NS%FLAG  OPTION   'NS'
       224   04 00016    0000E2C4 A   SD%FLAG  OPTION   'SD'              SYMBOLIC DEBUGGING OUTPUT
       225   04 00017    0000E2C9 A   SI%FLAG  OPTION   'SI'
       226   04 00018    0000E2D6 A   SO%FLAG  OPTION   'SO'
       227   04 00019    0000E2E4 A   SU%FLAG  OPTION   'SU'
1
       229                                     LOCAL    %05,%10,%20,%30
       230         04 0001A           CTL%CARD%INTERPRETER EQU %
       231   04 0001A    35F00000 X            STW,R15  ROOTRTN           SAVE RETURN ADDRESS
       232                            *
       233                            *   SET UP CURRENT TIMER UNIT COUNT FOR STATUS
       234                            *        REPORTING BY ON-LINE BREAK RECEIVER.
       235                            *
       236         00000001                    DO       SYS=BPMUTS
       237   04 0001B    32400000 F            LW,XT    J:JIT+TPEXT       GET CURRENT CHARGEABLE
       238   04 0001C    30400000 F            AW,XT    J:JIT+TPOVT         TIME UNITS AND SAVE
       239   04 0001D    30400000 F            AW,XT    J:JIT+TUEXT         FOR LATER STATUS.
       240   04 0001E    30400000 F            AW,XT    J:JIT+TUOVT
       241   04 0001F    35400000 X            STW,XT   INIT%TUNITS
       242   04 00020    22400000 A            LI,XT    0
       243   04 00021    35400000 X            STW,XT   SO%KEY
       244                                     FIN
       245                            *
       246   04 00022    321004E7              LW,X1    ='    '
       247   04 00023    35100024 02           STW,X1   BLANKS
       248   04 00024    35100025 02           STW,X1   BLANKS+1
       249   04 00025    22100000 A            LI,X1    0
       250   04 00026    35100000 X            STW,X1   LINE%TYPE
       251   04 00027    35100000 X            STW,X1   SDFCON            INITIAL SYSTEM NAME TABLE LENGTH
       252   04 00028    35100000 X            STW,X1   SYSLEVEL
       253   04 00029    35100000 X            STW,X1   #ACCTS
       254   04 0002A    35100022 02           STW,X1   BLANK%SWITCH      SET TO IGNORE BLANKS
       255   04 0002B    35100023 02           STW,X1   PRINT%SWITCH
       256   04 0002C    35100000 X            STW,X1   PGLINES
       257   04 0002D    35100000 X            STW,X1   SEGMENT#
       258   04 0002E    6AA001DF              BAL,IORL OPENC
       259   04 0002F    6AA001E1              BAL,IORL OPENDO
       260   04 00030    6AA001C0              BAL,IORL OPENLO
       261   04 00031    04100000 06           M:DEVICE M:LO,(VFC)
             06 00000    05000000 X
             06 00001    00000010 A
       262         00000001                    DO       SYS=BPMUTS
       263   04 00032    B300004F A            MTW,0    *X'4F'            ARE WE ONLINE?
       264   04 00033    68100000 F            BGEZ     %05               BRANCH IF NO.
       265   04 00034    32100000 F            LW,X1    J:JIT+JOPT
       266   04 00035    21100001 A            CI,X1    LOBIT             SET LO%FLAG IF 'LIST' BIT IS ON
       267   04 00036    68400038              BAZ      %+2               IT'S OFF
       268   04 00037    33100000 X            MTW,+1   LO%FLAG
       269   04 00038    21100080 A            CI,X1    GOBIT             SET GO%FLAG IF 'OUTPUT' IS ON
       270   04 00039    6840003B              BAZ      %+2               IT'S OFF
       271   04 0003A    33100000 X            MTW,+1   GO%FLAG
       272   04 0003B    041004E8              CAL1,1   =X'2C00006E'      SET '>' AS PROMPT CHARACTER
       273   04 0003C    04100002 06           M:WRITE  M:UC,(BUF,SALUTE%START),(SIZE,38)
             06 00002    11000000 N
                         30000000
             06 00004    00000000 04
             06 00005    00000026 A
       274   04 0003D    6A70010A              BAL,X7   READ%CTL%CARD     READ CONTROL CARD.
       275   04 0003E    68000000 F            B        %20
       276                                     ELSE
       277                        *S*          LI,X1    0
       278                        *S*          LV,XT    D1
       279                        *S*          STB,XT   ACCOUNTS          PRESET DEFAULT ACCOUNT AREA
       280                        *S*          MTW,+1   #ACCTS            SET DEFAULT # ACCTS TO 1
       281                        *S* %30      RES      0
       282                        *S*          LW,R8    *K:CCBUF,X1       MOVE CONTROL CARD
       283                        *S*          STW,R8   CTL%CARD,X1       TO CTL%CARD AREA
       284                        *S*          AI,X1    1
       285                        *S*          CI,X1    20
       286                        *S*          BL       %30
       287                        *S*          B        %10
       288                                     FIN
       289   04 0003F                 %05      RES      0
       290   04 0003F    6A70010A              BAL,X7   READ%CTL%CARD     READ CONTROL CARD
       291   04 00040                 %10      RES      0
       292   04 00040    22200000 A            LI,X2    0
       293   04 00041    6A7000F2              BAL,X7   GET%NEXT%NONBLANK SKIP LEADING BLANKS
       294   04 00042                 %12      RES      0
       295   04 00042    6A7000F1              BAL,X7   GET%NEXT%CHAR     SKIP TO THE
       296   04 00043    21900040 A            CI,R9    ' '                 TERMINATOR AFTER
       297   04 00044    68300000 F            BE       %20                 THE PROCESSOR NAME
       298   04 00045    2190006B A            CI,R9    ','
       299   04 00046    69300042              BNE      %12
       300   04 00047    6A7000F2     %20      BAL,X7   GET%NEXT%NONBLANK GET 1ST OPTION CHARACTER.
       301   04 00048    2190004B A            CI,R9    '.'               IS IT PERIOD?
       302   04 00049    68300137              BE       SET%DEFAULTS      BRANCH IF YES.
       303   04 0004A    202FFFFF A            AI,X2    -1                BACK UP FOR RESCAN OF 1ST CHAR.
       304   04 0004B    68000051              B        COLLECT%OPTION    GO GET OPTIONS.
1
       306                                     LOCAL    %10
       307         04 0004C           NEXT%OPTION       EQU %
       308   04 0004C    2190006B A            CI,R9    ','               IS CURRENT CHAR A COMMA?
       309   04 0004D    68300051              BE       COLLECT%OPTION    BRANCH IF YES.
       310   04 0004E    2190004B A            CI,R9    '.'               IS IT A PERIOD?
       311   04 0004F    6830013A              BE       OPTIONS%DONE      BRANCH IF YES.  (ALL DONE.)
       312   04 00050    680000E7              B        BAD%SYNTAX        IT'S STRANGE; REPORT ERROR.
       313         04 00051           COLLECT%OPTION    EQU %
       314   04 00051    22800000 A            LI,R8    0                 CLEAR OPTION-NAME ACCUMULATOR.
       315   04 00052    6A7000F2     %10      BAL,X7   GET%NEXT%NONBLANK GET A CHARACTER.
       316   04 00053    219000C1 A            CI,R9    'A'               IS IT LETTER OR DIGIT?
       317   04 00054    69100058              BL       SEARCH%OPTIONS    BRANCH IF NO.
       318   04 00055    25800008 A            SLS,R8   +8                SHIFT PREVIOUS CHARS OVER.
       319   04 00056    49800009 A            OR,R8    R9                MERGE IN NEWEST.
       320   04 00057    68000052              B        %10               GO GET ANOTHER.
1
       322                                     LOCAL    %10,%20,%30,%40,%50,%60,%70,%80,%90
       323                                     LOCAL    %100,%110,%120
       324                                     LOCAL    %130,%140,%150,%160,%170,%180
       325                                     LOCAL    %200,%210,%220,%125
       326         04 00058           SEARCH%OPTIONS    EQU %
       327   04 00058    2210000F A            LI,X1    #SIMPLE%OPTIONS   SEARCH ALL SIMPLE OPTIONS.
       328   04 00059    3182000A     %10      CW,R8    OPTION%NAMES-1,X1 IS IT THIS ONE?
       329         001F0000                    IF,EQ
             04 0005A    6930005D
       330   04 0005B    3313FFFF N            MTW,+1   OPTION%FLAGS-1,X1
       331   04 0005C    6800004C              B        NEXT%OPTION
       332                            *
       333         00F10000                    FI
       334   04 0005D    64100059              BDR,X1   %10               TRY ANOTHER.
       335                            *
       336                            *   NOT A SIMPLE OPTION - IS IT ONE OF THE SPECIAL OR
       337                            *      AUGMENTED OPTIONS?
       338                            *
       339   04 0005E    2180C3D5 A            CI,R8    'CN'
       340         001F0000                    IF,EQ
             04 0005F    69300062
       341   04 00060    53100000 X            MTH,+1   DC%FLAG
       342   04 00061    6800004C              B        NEXT%OPTION
       343                            *
       344         00F10000                    FI
       345   04 00062    2180D7C4 A            CI,R8    'PD'
       346   04 00063    68300000 F            BE       %40               BRANCH IF YES.
       347   04 00064    2180C1C3 A            CI,R8    'AC'              IS IT 'AC'?
       348   04 00065    68300000 F            BE       %90               BRANCH IF YES.
       349   04 00066    2180E2C2 A            CI,R8    'SB'              IS IT 'SB'?
       350   04 00067    68300000 F            BE       %130              BRANCH IF YES.
       351   04 00068    2180E2C3 A            CI,R8    'SC'              IS IT 'SC'?
       352   04 00069    68300000 F            BE       %140              BRANCH IF YES.
       353   04 0006A    680000DD              B        ILLEGAL%OPTION    NOT FOUND; REPORT ERROR.
       354   04 0006B    33100000 X   %40      MTW,+1   PD%FLAG           SET FLAG.
       355   04 0006C    2190004D A            CI,R9    '('               ARE THERE SYSTEM NAMES?
       356   04 0006D    6930004C              BNE      NEXT%OPTION       BRANCH IF NO.
       357   04 0006E    22600000 A            LI,X6    0                 INITIALIZE NAME-TABLE INDEX.
       358   04 0006F    35600000 X            STW,X6   SDFCON            CLEAR SDFSYS SIZE & NO. OF ENTRIES
       359   04 00070    32500006 A   %50      LW,X5    X6                SAVE INDEX FOR STORING LENGTH.
       360   04 00071    6A7000F1     %60      BAL,X7   GET%NEXT%CHAR     GET CHARACTER.
       361   04 00072    2190005D A            CI,R9    ')'               ARE WE FINISHED WITH ALL NAMES?
       362   04 00073    68300000 F            BE       %70               BRANCH IF YES.
       363   04 00074    2190006B A            CI,R9    ','               ARE WE FINISHED WITH THIS NAME?
       364   04 00075    68300000 F            BE       %70               BRANCH IF YES.
       365   04 00076    20600001 A            AI,X6    +1                BUMP INDEX.
       366   04 00077    21600000 N            CI,X6    SDFSYS%SIZE       HAVE WE EXCEEDED TABLE SIZE?
       367   04 00078    692000E7              BG       BAD%SYNTAX        BRANCH IF YES.
       368   04 00079    759C0000 X            STB,R9   SDFSYS,X6         STORE CHAR IN TABLE.
       369   04 0007A    68000071              B        %60               GO GET ANOTHER CHAR.
       370   04 0007B    33100000 X   %70      MTW,+1   SDFCON            BUMP NAME COUNT.
       371   04 0007C    32800006 A            LW,R8    X6                CALCULATE NAME
       372   04 0007D    38800005 A            SW,R8    X5                LENGTH.
       373   04 0007E    683000E7              BEZ      BAD%SYNTAX        ZERO LENGTH = ERROR.
       374   04 0007F    758A0000 X            STB,R8   SDFSYS,X5         STORE LENGTH.
       375   04 00080    2190005D A            CI,R9    ')'               ARE ALL NAMES FINISHED?
       376   04 00081    68300000 F            BE       %80               BRANCH IF YES.
       377   04 00082    20600001 A            AI,X6    +1                BUMP INDEX.
       378   04 00083    68000070              B        %50               GO GET NEXT NAME.
       379                            *
       380   04 00084                 %80      RES      0
       381   04 00084    20600004 A            AI,X6    +4                CONVERT BYTES
       382   04 00085    2560047E A            SAS,X6   -2                TO WORDS.
       383   04 00086    55600000 X            STH,X6   SDFCON            STORE COUNT OF BYTES.
       384   04 00087    6A7000F2              BAL,X7   GET%NEXT%NONBLANK GET CHAR.  (SHOULD BE ',' IF MORE.)
       385   04 00088    6800004C              B        NEXT%OPTION       GO PROCESS NEXT OPTION.
       386   04 00089    33100000 X   %90      MTW,+1   AC%FLAG           INDICATE OPTION.
       387         00000000                    DO       SYS=RBM
       388                        *S*          MTW,-1   #ACCTS            DELETE LAST ACCOUNT  (SP AREA)
       389                                     FIN
       390   04 0008A    2190004D A            CI,R9    '('               IF NOT '('
       391   04 0008B    693000E7              BNE      BAD%SYNTAX        THEN ERROR.
       392   04 0008C    12C00024 02  %100     LD,R12   8BLANKS           INITIALIZE ACCT-NAME ACCUMULATOR.
       393   04 0008D    22500000 A            LI,X5    0                 INITIALIZE ACCUM. INDEX.
       394   04 0008E    6A7000F1     %110     BAL,X7   GET%NEXT%CHAR     GET NEXT CHAR.
       395   04 0008F    2190006B A            CI,R9    ','               IS IT COMMA?
       396   04 00090    68300000 F            BE       %120              BRANCH IF YES.
       397   04 00091    2190005D A            CI,R9    ')'               IS IT ')'?
       398   04 00092    68300000 F            BE       %120              BRANCH IF YES.
       399   04 00093    759A000C A            STB,R9   R12,X5            STORE INTO ACCUM.
       400   04 00094    20500001 A            AI,X5    +1                BUMP INDEX.
       401   04 00095    21500008 A            CI,X5    +8                MORE THAN 8
       402   04 00096    692000E7              BG       BAD%SYNTAX        CHARS IS ERROR.
       403   04 00097    6800008E              B        %110              GO GET NEXT CHAR.
       404         00000001                    DO       SYS=BPMUTS
       405   04 00098    32500000 X   %120     LW,X5    #ACCTS            GET ACCT-NAME COUNT.
       406   04 00099    33100000 X            MTW,+1   #ACCTS            INCREMENT COUNT (IN MEMORY).
       407   04 0009A    15CA0000 X            STD,R12  ACCOUNTS,X5       USE FORMER COUNT AS STORE INDEX.
       408   04 0009B    21500008 A            CI,X5    8
       409   04 0009C    6910009F              BL       ACCT%OK
       410                                     FIN
       411         00000000                    DO       SYS=RBM
       412                        *S* %120     RES      0
       413                        *S*          CI,X5    2                 ACCOUNTS MUST BE TWO CHARS
       414                        *S*          BNE      BAD%SYNTAX
       415                        *S*          LI,X5    16                TOTAL NUMBER OF ACCOUNTS
       416                        *S* NEXT%AC  RES      0
       417                        *S*          CW,R12   AC%TABLE-1,X5     FIND THE ACCOUNT NAME
       418                        *S*          BE       AC%FND
       419                        *S*          BDR,X5   NEXT%AC
       420                        *S*          B        BAD%SYNTAX
       421                        *S* AC%FND   RES      0
       422                        *S*          LW,X1    #ACCTS
       423                        *S*          CI,X1    15                TEST FOR TOO MANY
       424                        *S*          BL       ACCT%OK
       425                                     FIN
       426   04 0009D    22000009 A            ABORT    ABORT9            TOO MANY ACCOUNT AREAS SPECIFIED
             04 0009E    68000000 X
       427   04 0009F                 ACCT%OK  RES      0
       428         00000000                    DO       SYS=RBM
       429                        *S*          AI,X5    -1
       430                        *S*          LB,X7    AC%CODE,X5        ACCOUNT CODE
       431                        *S*          STB,X7   ACCOUNTS,X1
       432                        *S*          MTW,+1   #ACCTS            BUMP NUMBER OF ACCTS
       433                                     FIN
       434   04 0009F    2190006B A            CI,R9    ','               IS THERE ANOTHER NAME?
       435   04 000A0    6830008C              BE       %100              BRANCH IF YES.
       436         00000000                    DO       SYS=RBM
       437                        *S*          LI,X7    D1                ADD D1 AREA AS LAST ACCT.  /27062/*D-CCI
       438                        *S*          AI,X1    1
       439                        *S*          STB,X7   ACCOUNTS,X1
       440                        *S*          MTW,+1   #ACCTS            AND BUMP # OF ACCTS
       441                                     FIN
       442   04 000A1                 %125     RES      0
       443   04 000A1    6A7000F2              BAL,X7   GET%NEXT%NONBLANK GET CHAR.  (SHOULD BE '.' OR ',')
       444   04 000A2    6800004C              B        NEXT%OPTION       GO PROCESS NEXT OPTION.
       445   04 000A3                 %130     RES      0
       446   04 000A3    22E00000 N            LI,R14   BO%FLAG
       447   04 000A4    22300000 N            LI,X3    BO%IDWDS
       448   04 000A5    68000000 F            B        %150
       449   04 000A6                 %140     RES      0
       450   04 000A6    22E00000 N            LI,R14   CO%FLAG
       451   04 000A7    22300000 N            LI,X3    CO%IDWDS
       452   04 000A8                 %150     RES      0
       453   04 000A8    22700008 A            LI,X7    8                 SET NO. OF DIGITS TO 8
       454   04 000A9    F570000E A            STB,X7   *R14
       455   04 000AA    D310000E A            MTH,1    *R14              SET SB OR SC FLAG
       456   04 000AB    22700000 A            LI,X7    0
       457   04 000AC    35760000 A            STW,X7   0,X3              CLEAR THE 3 ID/SEQ-NO
       458   04 000AD    35760001 A            STW,X7   1,X3                WORDS
       459   04 000AE    35760002 A            STW,X7   2,X3
       460   04 000AF    35760003 A            STW,X7   3,X3              CLEAR THE INITIAL SEQNO. WORD
       461   04 000B0    35300000 F            STW,X3   SAVEREGS          SAVE FOR ADDRESS OF SEQUENCE NO.
       462   04 000B1    2190004D A            CI,R9    '('               IS THERE AN IDENT STRING
       463   04 000B2    6930004C              BNE      NEXT%OPTION       NO. GO GET NEXT OPTION
       464   04 000B3    25300001 A            SLS,X3   1                 CONVERT TO HALFWORD ADDRESS
       465   04 000B4                 %160     RES      0
       466   04 000B4    6A7000F1              BAL,X7   GET%NEXT%CHAR     NEXT IDENT CHARACTER
       467   04 000B5    2190005D A            CI,R9    ')'
       468   04 000B6    683000A1              BE       %125              END OF IDENT. GO READ TRAILING ','
       469   04 000B7    2190004D A            CI,R9    '('               IS THERE AN INITIAL SEQUENCE NUMBER
       470   04 000B8    683000CA              BE       GETSEQ            YES. GO CONVERT IT
       471   04 000B9    F3F0000E A            MTB,-1   *R14              SUBT. 1 FROM BYTE COUNT
       472   04 000BA    691000E7              BLZ      BAD%SYNTAX        MORE THAN 8 IDENT. CHARACTERS
       473   04 000BB    2270003F A            LI,X7    X'3F'             TRIM IDENT CHAR TO 6 BITS
       474   04 000BC    4B700009 A            AND,X7   R9
       475   04 000BD    529E0117              LH,R9    IDENTBL,X7        TRANSLATE TO A 12-BIT COLUMN CODE
       476   04 000BE    727200DB              LB,X7    SFTBL,X1          GET NEXT SHIFT AMOUNT
       477   04 000BF    259E0000 A            SLS,R9   0,X7              SHIFT 12-BIT CODE TO NEXT FIELD
       478   04 000C0    21100003 A            CI,X1    3                 IS THIS 1ST OR 5TH CHARACTER
       479   04 000C1    68400000 F            BAZ      %180                YES, DON'T BUMP HALFWORD ADDRESS
       480   04 000C2    52700009 A            LH,X7    R9                STORE HIGH ORDER
       481   04 000C3    50760000 A            AH,X7    0,X3                BITS IN
       482   04 000C4    55760000 A            STH,X7   0,X3                CURRENT HALFWORD
       483   04 000C5    20300001 A            AI,X3    1                 BUMP HALFWORD ADDRESS
       484   04 000C6                 %180     RES      0
       485   04 000C6    50960000 A            AH,R9    0,X3              STORE LOW ORDER BITS
       486   04 000C7    55960000 A            STH,R9   0,X3
       487   04 000C8    20100001 A            AI,X1    1                 BUMP INDEX TO SHIFT TABLE
       488   04 000C9    680000B4              B        %160
       489   04 000CA                 GETSEQ   RES      0
       490   04 000CA    32300000 F            LW,X3    SAVEREGS          GET ADDR (-3) OF SEQUENCE NO.
       491   04 000CB                 GETSEQ1  RES      0
       492   04 000CB    6A7000F1              BAL,X7   GET%NEXT%CHAR     NEXT SEQUENCE CHARACTER
       493   04 000CC    209FFF10 A            AI,R9    -'0'              IS IT NUMERIC
       494   04 000CD    691000D5              BL       SEQEND              NO, TEST FOR RT PAREN
       495   04 000CE    21900009 A            CI,R9    9                 ERROR IF GREATER THAN 9
       496   04 000CF    692000E7              BG       BAD%SYNTAX
       497   04 000D0    32760003 A            LW,X7    3,X3              PARTIAL SEQUENCE WORD
       498   04 000D1    2370000A A            MI,X7    10
       499   04 000D2    30700009 A            AW,X7    R9
       500   04 000D3    35760003 A            STW,X7   3,X3
       501   04 000D4    680000CB              B        GETSEQ1
       502   04 000D5                 SEQEND   RES      0
       503   04 000D5    219FFF6D A            CI,R9    ')'-'0'           TERMINATOR MUST BE RT PAREN
       504   04 000D6    693000E7              BNE      BAD%SYNTAX
       505   04 000D7    6A7000F1              BAL,X7   GET%NEXT%CHAR     GET TERMINATOR FOR IDENT
       506   04 000D8    2190005D A            CI,R9    ')'               IT MUST ALSO BE RT PAREN
       507   04 000D9    683000A1              BE       %125
       508   04 000DA    680000E7              B        BAD%SYNTAX
       509   04 000DB    04       A   SFTBL    DATA,1   4,8,12,16,4,8,12,16
             04 000DB 1  08       A
             04 000DB 2  0C       A
             04 000DB 3  10       A
             04 000DC    04       A
             04 000DC 1  08       A
             04 000DC 2  0C       A
             04 000DC 3  10       A
       510                                     BOUND    4
       511         04 000DD           ILLEGAL%OPTION    EQU %
       512   04 000DD    20800000 A            AI,R8    0                 IGNORE
       513   04 000DE    6830004C              BEZ      NEXT%OPTION       NULL OPTION.
       514   04 000DF    498004E7              OR,R8    ='    '           INSERT LEADING BLANKS.
       515   04 000E0    22700007 A            LI,X7    MSGS              SIZE OF MESSAGE
       516   04 000E1    32AE0236              LW,R10   OPTION%IGNORED-1,X7
       517   04 000E2    35AE0039 02           STW,R10  BUF%PRINT-1,X7    MOVE MESSAGE TO PRINT AREA
       518   04 000E3    647000E1              BDR,X7   %-2
       519   04 000E4    35800040 02           STW,R8   BUF%PRINT-1+MSGS  STORE UNKNOWN OPTION
       520   04 000E5    04200006 06           M:PRINT  (MESS,BUF%PRINT)
             06 00006    01000000 A
             06 00007    80000000 A
             06 00008    0000003A 02
       521   04 000E6    6800004C              B        NEXT%OPTION       GO GET NEXT OPTION.
1
       523                                     LOCAL    %10
       524         04 000E7           BAD%SYNTAX        EQU %
       525                            *        PRINT CONTROL CARD IN ERROR, PRINT ERROR POINTER,
       526                            *        PRINT ERROR MESSAGE, EXIT TO MONITOR.
       527   04 000E7    04100009 06           M:WRITE  M:LL,(BUF,CTL%CARD%DISPLAY),(SIZE,88)
             06 00009    11000000 N
                         30000000
             06 0000B    00000024 02
             06 0000C    00000058 A
       528   04 000E8    12C00024 02           LD,R12   8BLANKS
       529   04 000E9    2210000A A            LI,X1    +10
       530   04 000EA    15C20024 02  %10      STD,R12  CTL%CARD%DISPLAY,X1
       531   04 000EB    641000EA              BDR,X1   %10
       532   04 000EC    2280007A A            LI,R8    ':'
       533   04 000ED    75840026 02           STB,R8   CTL%CARD,X2
       534   04 000EE    0410000D 06           M:WRITE  M:LL,(BUF,CTL%CARD%DISPLAY),(SIZE,88)
             06 0000D    11000000 N
                         30000000
             06 0000F    00000024 02
             06 00010    00000058 A
       535   04 000EF    2200000A A            ABORT    ABORT10           CONTROL CARD ERROR
             04 000F0    68000000 X
1
       537                                     LOCAL    %05,%10,%15,%20
       538         04 000F1           GET%NEXT%CHAR     EQU %
       539   04 000F1    33100022 02           MTW,+1   BLANK%SWITCH      DON'T IGNORE BLANKS.
       540         04 000F2           GET%NEXT%NONBLANK EQU %
       541   04 000F2    35700020 02           STW,X7   GET%NEXT%RETURN   SAVE RETURN.
       542   04 000F3    2120004F A   %05      CI,X2    +79               ARE WE AT END OF RECORD?
       543   04 000F4    68100000 F            BGE      %15               BRANCH IF YES.
       544   04 000F5    20200001 A            AI,X2    +1                BUMP INDEX TO NEXT CHAR.
       545   04 000F6    72940026 02           LB,R9    CTL%CARD,X2       GET CHARACTER.
       546   04 000F7    21900015 A            CI,R9    X'15'             IS IT LINE-FEED?
       547   04 000F8    68300000 F            BE       %10               BRANCH IF YES.
       548   04 000F9    2190000D A            CI,R9    X'0D'             IS IT CARRIAGE-RETURN?
       549   04 000FA    68300000 F            BE       %10               BRANCH IF YES.
       550   04 000FB    33000022 02           MTW,0    BLANK%SWITCH      SHALL WE IGNORE BLANKS?
       551   04 000FC    69300000 F            BNEZ     %20               BRANCH IF NO.
       552   04 000FD    21900040 A            CI,R9    ' '               IS IT A BLANK?
       553   04 000FE    683000F3              BE       %05               BRANCH IF YES.
       554   04 000FF    2190005E A            CI,R9    ';'               IS IT SEMICOLON?
       555   04 00100    69300000 F            BNE      %20               BRANCH IF NO.
       556   04 00101    6A70010A              BAL,X7   READ%CTL%CARD     READ CONTINUATION RECORD.
       557   04 00102    680000F3              B        %05               GO GET CHARACTER.
       558   04 00103    22900040 A   %10      LI,R9    ' '               REPLACE LF OR
       559   04 00104    75940026 02           STB,R9   CTL%CARD,X2       CR WITH BLANK.
       560   04 00105    2290004B A   %15      LI,R9    '.'               RETURN FAKE PERIOD.
       561   04 00106    22200050 A            LI,X2    +80
       562   04 00107    22700000 A   %20      LI,X7    0                 INSURE
       563   04 00108    35700022 02           STW,X7   BLANK%SWITCH      SWITCH OFF.
       564   04 00109    E8000020 02           B        *GET%NEXT%RETURN  RETURN.
1
       566                                     LOCAL    %10,%20
       567         04 0010A           READ%CTL%CARD     EQU %
       568   04 0010A    2210000A A            LI,X1    +10                   CLEAR
       569   04 0010B    12C00024 02           LD,R12   8BLANKS               BUFFER
       570   04 0010C    15C20024 02  %10      STD,R12  CTL%CARD%DISPLAY,X1   TO
       571   04 0010D    6410010C              BDR,X1   %10                   BLANKS.
       572   04 0010E    04100011 06           M:READ   M:C,(BUF,CTL%CARD),(SIZE,80)
             06 00011    10000000 N
                         30000000
             06 00013    00000026 02
             06 00014    00000050 A
       573   04 0010F    222FFFFF A            LI,X2    -1                INITIALIZE BUFFER INDEX.
       574         00000001                    DO       SYS=BPMUTS
       575   04 00110    B300004F A            MTW,0    *X'4F'            ARE WE ONLINE?
       576   04 00111    691E0000 A            BLZ      0,X7              RETURN IF YES.
       577   04 00112    33000023 02           MTW,0    PRINT%SWITCH      IS THIS 1ST CTL CARD?
       578   04 00113    68300000 F            BEZ      %20
       579                                     FIN
       580   04 00114    04100015 06           M:WRITE  M:LL,(BUF,CTL%CARD),(SIZE,80)
             06 00015    11000000 N
                         30000000
             06 00017    00000026 02
             06 00018    00000050 A
       581   04 00115    33100023 02  %20      MTW,+1   PRINT%SWITCH      SET TO PRINT CONTINUATIONS.
       582   04 00116    680E0000 A            B        0,X7              RETURN.
1
       584                            * EQUATES FOR COLUMN NUMBERS USED IN IDENTBL
       585         00000800           #12      EQU      X'800'            COLUMN 12
       586         00000400           #11      EQU      X'400'            COLUMN 11
       587         00000200           #0       EQU      X'200'            COLUMN 0
       588         00000100           #1       EQU      X'100'            COLUMN 1
       589         00000080           #2       EQU      X'080'            COLUMN 2
       590         00000040           #3       EQU      X'040'            COLUMN 3
       591         00000020           #4       EQU      X'020'            COLUMN 4
       592         00000010           #5       EQU      X'010'            COLUMN 5
       593         00000008           #6       EQU      X'008'            COLUMN 6
       594         00000004           #7       EQU      X'004'            COLUMN 7
       595         00000002           #8       EQU      X'002'            COLUMN 8
       596         00000001           #9       EQU      X'001'            COLUMN 9
       597   04 00117                 IDENTBL  RES      0
       598   04 00117    0000     A            DATA,2   0                 BLANK
       599   04 00117 2  0900     A            DATA,2   #12+#1            A        12-1
       600   04 00118    0880     A            DATA,2   #12+#2            B        12-2
       601   04 00118 2  0840     A            DATA,2   #12+#3            C        12-3
       602   04 00119    0820     A            DATA,2   #12+#4            D        12-4
       603   04 00119 2  0810     A            DATA,2   #12+#5            E        12-5
       604   04 0011A    0808     A            DATA,2   #12+#6            F        12-6
       605   04 0011A 2  0804     A            DATA,2   #12+#7            G        12-7
       606   04 0011B    0802     A            DATA,2   #12+#8            H        12-8
       607   04 0011B 2  0801     A            DATA,2   #12+#9            I        12-9
       608   04 0011C    0882     A            DATA,2   #12+#8+#2         CENT     12-8-2
       609   04 0011C 2  0842     A            DATA,2   #12+#8+#3         DEC PT   12-8-3
       610   04 0011D    0822     A            DATA,2   #12+#8+#4         LESS     12-8-4
       611   04 0011D 2  0000     A            DATA,2   0                 LT PAREN
       612   04 0011E    080A     A            DATA,2   #12+#8+#6         PLUS     12-8-6
       613   04 0011E 2  0806     A            DATA,2   #12+#8+#7         OR       12-8-7
       614   04 0011F    0800     A            DATA,2   #12               AND      12
       615   04 0011F 2  0500     A            DATA,2   #11+#1            J        11-1
       616   04 00120    0480     A            DATA,2   #11+#2            K        11-2
       617   04 00120 2  0440     A            DATA,2   #11+#3            L        11-3
       618   04 00121    0420     A            DATA,2   #11+#4            M        11-4
       619   04 00121 2  0410     A            DATA,2   #11+#5            N        11-5
       620   04 00122    0408     A            DATA,2   #11+#6            O        11-6
       621   04 00122 2  0404     A            DATA,2   #11+#7            P        11-7
       622   04 00123    0402     A            DATA,2   #11+#8            Q        11-8
       623   04 00123 2  0401     A            DATA,2   #11+#9            R        11-9
       624   04 00124    0482     A            DATA,2   #11+#8+#2         EXCLAM   11-8-2
       625   04 00124 2  0442     A            DATA,2   #11+#8+#3         DOLLAR   11-8-3
       626   04 00125    0422     A            DATA,2   #11+#8+#4         ASTERISK 11-8-4
       627   04 00125 2  0000     A            DATA,2   0                 RT PAREN
       628   04 00126    040A     A            DATA,2   #11+#8+#6         SEMICLN  11-8-6
       629   04 00126 2  0406     A            DATA,2   #11+#8+#7         NOT      11-8-7
       630   04 00127    0400     A            DATA,2   #11               MINUS    11
       631   04 00127 2  0300     A            DATA,2   #0+#1             SLASH    0-1
       632   04 00128    0280     A            DATA,2   #0+#2             S        0-2
       633   04 00128 2  0240     A            DATA,2   #0+#3             T        0-3
       634   04 00129    0220     A            DATA,2   #0+#4             U        0-4
       635   04 00129 2  0210     A            DATA,2   #0+#5             V        0-5
       636   04 0012A    0208     A            DATA,2   #0+#6             W        0-6
       637   04 0012A 2  0204     A            DATA,2   #0+#7             X        0-7
       638   04 0012B    0202     A            DATA,2   #0+#8             Y        0-8
       639   04 0012B 2  0201     A            DATA,2   #0+#9             Z        0-9
       640   04 0012C    0C00     A            DATA,2   #12+#11                    12-11
       641   04 0012C 2  0242     A            DATA,2   #0+#8+#3          COMMA    0-8-3
       642   04 0012D    0222     A            DATA,2   #0+#8+#4          PERCENT  0-8-4
       643   04 0012D 2  0212     A            DATA,2   #0+#8+#5          UNDSCORE 0-8-5
       644   04 0012E    020A     A            DATA,2   #0+#8+#6          GREATER  0-8-6
       645   04 0012E 2  0206     A            DATA,2   #0+#8+#7          QUESTION 0-8-7
       646   04 0012F    0200     A            DATA,2   #0                0        0
       647   04 0012F 2  0100     A            DATA,2   #1                1        1
       648   04 00130    0080     A            DATA,2   #2                2        2
       649   04 00130 2  0040     A            DATA,2   #3                3        3
       650   04 00131    0020     A            DATA,2   #4                4        4
       651   04 00131 2  0010     A            DATA,2   #5                5        5
       652   04 00132    0008     A            DATA,2   #6                6        6
       653   04 00132 2  0004     A            DATA,2   #7                7        7
       654   04 00133    0002     A            DATA,2   #8                8        8
       655   04 00133 2  0001     A            DATA,2   #9                9        9
       656   04 00134    0082     A            DATA,2   #8+#2             COLON    8-2
       657   04 00134 2  0042     A            DATA,2   #8+#3             NUMBER   8-3
       658   04 00135    0022     A            DATA,2   #8+#4             AT       8-4
       659   04 00135 2  0012     A            DATA,2   #8+#5             PRIME    8-5
       660   04 00136    000A     A            DATA,2   #8+#6             EQUAL    8-6
       661   04 00136 2  0006     A            DATA,2   #8+#7             QUOTES   8-7
       662                                     BOUND    4
1
       664                                     LOCAL    %05,%10,%20,%30
       665         04 00137           SET%DEFAULTS      EQU %
       666   04 00137    33100000 X            MTW,+1   SI%FLAG           SET
       667   04 00138    33100000 X            MTW,+1   LO%FLAG           DEFAULT
       668   04 00139    33100000 X            MTW,+1   GO%FLAG           OPTIONS.
       669         04 0013A           OPTIONS%DONE      EQU %
       670   04 0013A    6A70021D              BAL,RL   IGNORE%TRAPS
       671                            *
       672                            *   'DC' OVERRIDES 'CN' IF BOTH WERE SPECIFIED
       673                            *
       674   04 0013B    52800000 X            LH,R8    DC%FLAG
       675         001F0000                    IF,NZ
             04 0013C    68300142
       676   04 0013D    32800000 X            LW,R8    DC%FLAG
       677   04 0013E    2180FFFF A            CI,R8    X'FFFF'
       678         001F0100                    IF,ANZ
             04 0013F    68400142
       679   04 00140    22800001 A            LI,R8    1
       680   04 00141    35800000 X            STW,R8   DC%FLAG
       681         00F10100                    FI
       682         00F10000                    FI
       683   04 00142    33000000 X            MTW,0    PD%FLAG           FORCE NO STD DEF FILE READ
       684   04 00143    68300145              BEZ      %+2                 IF WE'RE PRODUCING ONE
       685   04 00144    33100000 X            MTW,1    ND%FLAG
       686                            *  SET ASSEMBLE%FLAG TO REFLECT WHETHER THE DEFGEN PASS IS REQUIRED
       687   04 00145    32800000 X            LW,R8    GO%FLAG
       688   04 00146    49800000 X            OR,R8    LO%FLAG
       689   04 00147    49800000 X            OR,R8    BO%FLAG
       690   04 00148    35800000 X            STW,R8   ASSEMBLE%FLAG
       691         00000001                    DO       SYS=BPMUTS
       692   04 00149    69300000 F            BNEZ     %05               IT'S REQUIRED
       693                            *  IF ON-LINE, DEFGEN IS REQ'D IF 'LIST','OUTPUT',OR 'COMMENT' IS ON
       694   04 0014A    B280004F A            LW,R8    *X'4F'
       695   04 0014B    68100000 F            BGEZ     %05               BRANCH IF NOT ON LINE
       696   04 0014C    22800181 A            LI,R8    LOBIT+GOBIT+DOBIT
       697   04 0014D    4B800000 F            AND,R8   J:JIT+JOPT
       698   04 0014E    35800000 X            STW,R8   ASSEMBLE%FLAG
       699                                     FIN
       700   04 0014F                 %05      RES      0
       701         00000001                    DO       SYS=BPMUTS
       702   04 0014F    B300004F A            MTW,0    *X'4F'            IF ON-LINE, SET SI AS DEFAULT
       703   04 00150    68100154              BGEZ     %06               BRANCH IF NOT ON-LINE
       704   04 00151    32800000 X            LW,R8    CI%FLAG
       705   04 00152    69300154              BNEZ     %06
       706   04 00153    33100000 X            MTW,+1   SI%FLAG
       707                                     FIN
       708   04 00154                 %06      RES      0
       709   04 00154    33000000 X            MTW,0    SI%FLAG           IS THERE SI?
       710   04 00155    68300000 F            BEZ      %10               BRANCH IF NO.
       711   04 00156    33100000 X            MTW,+1   LINE%TYPE         INDICATE SI.
       712   04 00157    33000000 X   %10      MTW,0    CI%FLAG           IS THERE CI?
       713   04 00158    6830015A              BEZ      TEST%SO           BRANCH IF NO.
       714   04 00159    33200000 X            MTW,2    LINE%TYPE
       715   04 0015A                 TEST%SO  RES      0
       716   04 0015A    33000000 X            MTW,0    SO%FLAG
       717   04 0015B    6830015D              BEZ      TEST%CO
       718   04 0015C    6AA00205              BAL,IORL OPENSO
       719   04 0015D                 TEST%CO  RES      0
       720   04 0015D    33000000 X            MTW,0    CO%FLAG
       721   04 0015E    68300160              BEZ      TEST%BO
       722   04 0015F    6AA00215              BAL,IORL OPENCO
       723   04 00160                 TEST%BO  RES      0
       724   04 00160    33000000 X            MTW,0    BO%FLAG
       725   04 00161    68300163              BEZ      TEST%GO
       726   04 00162    6AA001DC              BAL,IORL OPENBO
       727   04 00163                 TEST%GO  RES      0
       728   04 00163    33000000 X            MTW,0    GO%FLAG
       729   04 00164    68300166              BEZ      TEST%TEMPS
       730   04 00165    6AA001F5              BAL,IORL OPENGO
       731   04 00166                 TEST%TEMPS  RES   0
       732   04 00166    32800000 X            LW,R8    LINE%TYPE
       733   04 00167    21800003 A            CI,R8    3
       734   04 00168    6930016B              BNE      OPEN%TEMPS
       735   04 00169    6AA001AC              BAL,IORL OPENX2KF
       736   04 0016A    6AA001A6              BAL,IORL OPENX2
       737   04 0016B                 OPEN%TEMPS  RES   0
       738   04 0016B    6AA001A3              BAL,IORL OPENX1
       739   04 0016C    6AA001A9              BAL,IORL OPENX3
       740   04 0016D    32A00000 X            LW,IORL  LO%FLAG           TURN OFF DO-LO CORRESPONDANCE
       741   04 0016E    69300170              BNEZ     TEST%STD            IF 'LO' IS NOT REQUESTED
       742                            *
       743   04 0016F    75A00000 X            STB,IORL CORRESWD
       744   04 00170                 TEST%STD RES      0
       745   04 00170    22100000 A            LI,X1    0
       746   04 00171    33000000 X            MTW,0    ND%FLAG
       747   04 00172    69300175              BNEZ     TEST%PD
       748   04 00173    6AA001F8              BAL,IORL OPENSTD           OPEN F:STD IN USER'S ACCOUNT
       749   04 00174    68000178              B        TEST%SI           IT'S OPEN
       750   04 00175                 TEST%PD  RES      0
       751   04 00175    33000000 X            MTW,0    PD%FLAG
       752   04 00176    68300178              BEZ      TEST%SI
       753   04 00177    6AA001FC              BAL,IORL OPENSTDOUT        OPEN F:STD FOR OUTPUT
       754   04 00178                 TEST%SI  RES      0
       755                            * DON'T OPEN SI OR CI UNTIL ALL OUTPUT FILES HAVE BEEN OPENED
       756   04 00178    33000000 X            MTW,0    SI%FLAG
       757   04 00179    6830017B              BEZ      TEST%CI
       758   04 0017A    6AA001FE              BAL,IORL OPENSI
       759   04 0017B                 TEST%CI  RES      0
       760   04 0017B    33000000 X            MTW,0    CI%FLAG
       761   04 0017C    6830017E              BEZ      OPEN%SYS
       762   04 0017D    6AA00203              BAL,IORL OPENCI
       763   04 0017E                 OPEN%SYS RES      0
       764   04 0017E    33000000 X   %20      MTW,0    LINE%TYPE         IS THERE ANYTHING INDICATED?
       765   04 0017F    68300000 F            BEZ      %30               BRANCH IF NO.
       766         00000001                    DO       SYS=BPMUTS
       767   04 00180    32700000 X            LW,X7    #ACCTS
       768   04 00181    33200000 X            MTW,2    #ACCTS
       769   04 00182    22100001 A            LI,X1    1                 INSERT USER'S ACCOUNT
       770   04 00183    B282004F A            LW,R8    *X'4F',X1
       771   04 00184    20100001 A            AI,X1    1
       772   04 00185    B292004F A            LW,R9    *X'4F',X1
       773   04 00186    158E0000 X            STD,R8   ACCOUNTS,X7
       774   04 00187    1280023E              LD,R8    COLON%SYS         INSERT :SYS ACCOUNT
       775   04 00188    158E0002 N            STD,R8   ACCOUNTS+2,X7
       776                                     M:SETDCB F:STD,;           CHANGE TO ROOT-RESIDENT ROUTINES
       777                                              (ERR,ERR%%STD),;
       778   04 00189    04100019 06                    (ABN,ABN%%STD)
             06 00019    06000000 N
                         C0000000
             06 0001B    00000000 X
             06 0001C    00000000 X
       779                                     ELSE
       780                        *S*          LV,R9    ADDRFLD
       781                        *S*          LI,R8    ERR%%STD
       782                        *S*          STS,R8   F:STD+CPRERREO
       783                        *S*          LI,R8    ABN%%STD
       784                        *S*          STS,R8   F:STD+CPRABNEO
       785                                     FIN
       786   04 0018A    E8000000 X            B        *ROOTRTN          RETURN TO THE ROOT
       787   04 0018B                 %30      RES      0
       788   04 0018B    2200000B A            ABORT    ABORT11           NO INPUT SPECIFIED
             04 0018C    68000000 X
       789   04 0018D                 STDERROR RES      0
       790   04 0018D    7280000A A            LB,R8    SR3               ERROR CODE
       791   04 0018E    21800003 A            CI,R8    3
       792   04 0018F    69300000 X            BNE      ABN%%STD
       793         00000001                    DO       SYS=BPMUTS
       794   04 00190    21100000 A            CI,X1    0                 WAS OPEN IN :SYS ACCOUNT
       795   04 00191    6930019F              BNE      STDERR5             YES
       796                                     FIN
       797                            *  ABORT IF F:STD WAS RE-ASSIGNED
       798   04 00192    2280000F A            LI,R8    X'F'
       799   04 00193    4B800000 X            AND,R8   F:STD
       800   04 00194    21800001 A            CI,R8    1
       801   04 00195    693001A1              BNE      SDFNOTHR
       802         00000001                    DO       SYS=BPMUTS
       803   04 00196    32800017 N            LW,R8    F:STD+X'17'
       804   04 00197    318004E9              CW,R8    =X'085B7AE2'      COMPARE FOR '%:STDDEF'
       805   04 00198    693001A1              BNE      SDFNOTHR
       806   04 00199    32800018 N            LW,R8    F:STD+X'18'
       807   04 0019A    318004EA              CW,R8    ='TDDE'
       808   04 0019B    693001A1              BNE      SDFNOTHR
       809   04 0019C    22100001 A            LI,X1    1                 SET FLAG FOR :SYS ACCT
       810   04 0019D    6AA001FA              BAL,IORL OPENSTD%SYS       TRY OPEN IN :SYS ACCOUNT
       811   04 0019E    68000178              B        TEST%SI           IT'S OPEN
       812                                     FIN
       813         00000000                    DO       SYS=RBM
       814                        *S*          LW,XT    F:STD+1
       815                        *S*          AND,XT   L(X'3F'**8)
       816                        *S*          CV,XT    D1**8
       817                        *S*          BNE      SDFNOTHR          REASSIGNED IF NOT IN DEFAULT AREA
       818                        *S* *
       819                        *S*          LW,R8    F:STD+5           IF NAME ISN'T '%:STDDEF',
       820                        *S*          CW,R8    ='%:ST'
       821                        *S*          BNE      SDFNOTHR
       822                        *S*          LW,R8    F:STD+6
       823                        *S*          CW,R8    ='DDEF'
       824                        *S*          BNE      SDFNOTHR
       825                        *S*          LI,X1    1
       826                                     FIN
       827   04 0019F                 STDERR5  RES      0
       828   04 0019F    35100000 X            STW,X1   ND%FLAG
       829   04 001A0    68000178              B        TEST%SI
       830   04 001A1                 SDFNOTHR RES      0
       831   04 001A1    2200000C A            ABORT    ABORT12           STD DEF FILE DOES NOT EXIST
             04 001A2    68000000 X
1
       833                            *
       834                            *  O P E N X 1
       835                            *        OPEN THE X1 (ENCODED TEXT) FILE
       836                            *
       837   04 001A3                 OPENX1   RES      0
       838         00000001                    DO       SYS=BPMUTS
       839   04 001A3    22800000 N            LI,IOADD  F:X1
       840   04 001A4    329004EB              LW,IOSIZE  =X'05C6E7F1'    'FX1'
       841   04 001A5    680001AE              B        OPNJOIN
       842                                     FIN
       843         00000000                    DO       SYS=RBM
       844                        *S*          M:OPEN   M:X1,(ERR,ERR%%X1),(ABN,ABN%%X1)
       845                        *S*          M:DEVICE M:X1,;
       846                        *S*                   (SIZE,BYX1SIZE),;
       847                        *S*                   (ORG,UNBLOCK)
       848                        *S*          B        *IORL
       849                                     FIN
       850                            *
       851                            *  O P E N X 2
       852                            *        OPEN THE X2 FILE
       853                            *
       854   04 001A6                 OPENX2   RES      0
       855         00000001                    DO       SYS=BPMUTS
       856   04 001A6    22800000 N            LI,IOADD  F:X2
       857   04 001A7    329004EC              LW,IOSIZE  =X'05C6E7F2'    'FX2'
       858   04 001A8    680001AE              B        OPNJOIN
       859                                     FIN
       860         00000000                    DO       SYS=RBM
       861                        *S*          M:OPEN   M:X2,(ERR,ERR%%X2),(ABN,ABN%%X2)
       862                        *S*          M:DEVICE M:X2,;
       863                        *S*                   (SIZE,80),;
       864                        *S*                   (ORG,BLOCK)
       865                        *S*          B        *IORL
       866                                     FIN
       867                            *
       868                            *  O P E N X 3
       869                            *        OPEN THE X3 (COMPRESSED SOURCE) FILE
       870                            *
       871   04 001A9                 OPENX3   RES      0
       872         00000001                    DO       SYS=BPMUTS
       873   04 001A9    22800000 N            LI,IOADD  F:X3
       874   04 001AA    329004ED              LW,IOSIZE  =X'05C6E7F3'    'FX3'
       875   04 001AB    680001AE              B        OPNJOIN
       876                                     FIN
       877         00000000                    DO       SYS=RBM
       878                        *S*          M:OPEN   M:X3,(ERR,ERR%%X3),(ABN,ABN%%X3)
       879                        *S*          M:DEVICE M:X3,;
       880                        *S*                   (SIZE,BYX3SIZE),;
       881                        *S*                   (ORG,UNBLOCK)
       882                        *S*          B        *IORL
       883                                     FIN
       884                            *
       885                            *  O P E N X 2 K F
       886                            *        OPEN THE X2KF FILE
       887                            *
       888   04 001AC                 OPENX2KF RES      0
       889         00000001                    DO       SYS=BPMUTS
       890   04 001AC    22800000 N            LI,IOADD  F:X2KF
       891   04 001AD    329004EE              LW,IOSIZE  =X'05F2D2C6'    '2KF'
       892   04 001AE                 OPNJOIN  RES      0
       893   04 001AE    22100009 A            LI,X1    OPENEND-OPENFPT   SIZE OF FPT TO MOVE
       894   04 001AF                 OPNJN1   RES      0
       895   04 001AF    322201B6              LW,X2    OPENFPT-1,X1      MOVE AN FPT WORD TO TEMP
       896   04 001B0    3523FFFF N            STW,X2   SAVAREA-1,X1
       897   04 001B1    641001AF              BDR,X1   OPNJN1
       898   04 001B2    35900004 N            STW,IOSIZE  SAVAREA+4      STORE FILE NAME
       899   04 001B3    B290004F A            LW,IOSIZE  *X'4F'
       900   04 001B4    55900005 N            STH,IOSIZE  SAVAREA+5      UNIQUE ACCOUNT I.D.
       901   04 001B5    04100000 X            M:OPEN,E SAVAREA           OPEN THE TEMP FILE
       902   04 001B6    E800000A A            B        *IORL
       903   04 001B7    94000008 A   OPENFPT  M:OPEN,L *IOADD,(FILE,'2KF  '),(OUTIN)
             04 001B8    01000009 A
             04 001B9    00000008 A
             04 001BA    01000202 A
             04 001BB    05F2D2C6 A
             04 001BC    40404040 A
             04 001BD    02000002 A
             04 001BD 1  01       A
       904   04 001C0                 OPENEND  RES      0
       905                                     FIN
       906         00000000                    DO       SYS=RBM
       907                        *S*          M:OPEN   M:X4,(ERR,ERR%%X4),(ABN,ABN%%X4)
       908                        *S*          M:DEVICE M:X4,;
       909                        *S*                   (SIZE,12),;
       910                        *S*                   (ORG,BLOCK)
       911                        *S*          B        *IORL
       912                                     FIN
       913                            *
       914                            *  O P E N L O
       915                            *        OPEN THE LISTING OUTPUT FILE
       916                            *
       917   04 001C0                 OPENLO   RES      0
       918   04 001C0    0410001D 06           M:OPEN   M:LO,(OUT),(ERR,ERR%%LO),(ABN,ERR%%LO)
             06 0001D    14000000 X
             06 0001E    C1000000 A
             06 0001F    00000000 X
             06 00020    00000000 X
             06 00021    00000002 A
       919   04 001C1    22800000 A            LI,SR1   0
       920   04 001C2                          DO1      SYS=BPMUTS
       921   04 001C2    35800000 X            STW,SR1  LO%ONLINE
       922   04 001C3    35800000 X            STW,SR1  NUM%PAGE%LINES
       923   04 001C4    04100022 06           M:DEVICE M:LO,(CORRES,M:C)
             06 00022    2B000000 X
             06 00023    00000000 X
       924   04 001C5    22400001 A            LI,XT    1                 TO BYTE 1
       925   04 001C6    75880000 X            STB,SR1  CORRESWD,XT
       926   04 001C7    04100024 06           M:DEVICE  M:LO,(CORRES,M:DO)
             06 00024    2B000000 X
             06 00025    00000000 X
       927   04 001C8    75800000 X            STB,SR1  CORRESWD          TO BYTE 0
       928         00000001                    DO       SYS=BPMUTS
       929   04 001C9    32800000 X            LW,SR1   M:LO              CHECK FOR
       930   04 001CA    4B8004EF              AND,SR1  =X'F'               DEVICE
       931   04 001CB    21800003 A            CI,SR1   3                   TYPE ASSIGNMENT
       932   04 001CC    693001D9              BNE      OPENLO2           NO,  SET PAGE SIZE VERY LARGE
       933   04 001CD    B280004F A            LW,SR1   *X'4F'
       934   04 001CE    E810000A A            BGEZ     *IORL             EXIT IF NOT ON-LINE
       935   04 001CF    32800001 N            LW,SR1   M:LO+1            CHECK IF NOT OP LABEL
       936   04 001D0    21808000 A            CI,SR1   X'8000'
       937   04 001D1    E840000A A            BAZ      *IORL             EXIT IF AN OP LABEL
       938   04 001D2    25800078 A            SLS,SR1  -8                RT JUSTIFY 'TYPE' ITEM
       939   04 001D3    4B8004F0              AND,SR1  =X'3F'            TEST FOR TYPEWRITER CODE
       940   04 001D4    21800001 A            CI,SR1   1
       941   04 001D5    683001D8              BE       OPENLO3           TYPEWRITER
       942   04 001D6    21800010 A            CI,SR1   X'10'             TEST FOR USER CONSOLE DEVICE
       943   04 001D7    E930000A A            BNE      *IORL             NO
       944   04 001D8                 OPENLO3  RES      0
       945   04 001D8    33100000 X            MTW,+1   LO%ONLINE         SET LO-IS-ONLINE FLAG
       946   04 001D9                 OPENLO2  RES      0
       947   04 001D9    2287FFFF A            LI,SR1   X'7FFFF'          LARGE NUMBER TO PAGE SIZE
       948   04 001DA    35800000 X            STW,SR1  NUM%PAGE%LINES
       949                                     FIN
       950         00000000                    DO       SYS=RBM
       951                        *S*          LB,SR1   K:PAGE
       952                        *S*          AI,SR1   -2
       953                        *S*          STW,SR1  NUM%PAGE%LINES
       954                                     FIN
       955   04 001DB    E800000A A            B        *IORL             EXIT
       956                            *
       957                            *  O P E N B O
       958                            *        OPEN THE BINARY OUTPUT FILE
       959                            *
       960   04 001DC                 OPENBO   RES      0
       961   04 001DC    04100026 06           M:OPEN   M:BO,(OUT),(ERR,ERR%%BO),(ABN,ERR%%BO)
             06 00026    14000000 X
             06 00027    C1000000 A
             06 00028    00000000 X
             06 00029    00000000 X
             06 0002A    00000002 A
       962   04 001DD    0410002B 06           M:DEVICE  M:BO,(BIN)
             06 0002B    22000000 X
             06 0002C    00000010 A
       963   04 001DE    E800000A A            EXIT     IORL
       964                            *
       965                            *  O P E N C
       966                            *        OPEN THE CONTROL DEVICE
       967                            *
       968   04 001DF                 OPENC    RES      0
       969   04 001DF    0410002D 06           M:OPEN   M:C,(IN)
             06 0002D    14000000 X
             06 0002E    01000000 A
             06 0002F    00000001 A
       970   04 001E0    E800000A A            EXIT     IORL
       971                            *
       972                            *  O P E N D O
       973                            *        OPEN THE DO (DIAGNOSTIC OUTPUT) FILE
       974                            *
       975   04 001E1                 OPENDO   RES      0
       976   04 001E1    04100030 06           M:OPEN   M:DO,(OUT),(ERR,ERR%%DO),(ABN,ERR%%DO)
             06 00030    14000000 X
             06 00031    C1000000 A
             06 00032    00000000 X
             06 00033    00000000 X
             06 00034    00000002 A
       977         00000001                    DO       SYS=BPMUTS
       978   04 001E2    22800000 A            LI,SR1   0
       979   04 001E3    35800000 X            STW,SR1  DO%ONLINE
       980   04 001E4    32800000 X            LW,SR1   M:DO
       981   04 001E5    4B8004EF              AND,SR1  =X'F'
       982   04 001E6    21800003 A            CI,SR1   3
       983   04 001E7    E930000A A            BNE      *IORL             EXIT IF NOT A DEVICE TYPE ASSIGNMENT
       984   04 001E8    B280004F A            LW,SR1   *X'4F'
       985   04 001E9    E810000A A            BGEZ     *IORL             EXIT IF NOT ON-LINE
       986   04 001EA    32800001 N            LW,SR1   M:DO+1
       987   04 001EB    21808000 A            CI,SR1   X'8000'
       988   04 001EC    E840000A A            BAZ      *IORL             EXIT IF AN OP LABEL
       989   04 001ED    25800078 A            SLS,SR1  -8                RIGHT JUSTIFY 'TYPE' ITEM
       990   04 001EE    4B8004F0              AND,SR1  =X'3F'
       991   04 001EF    21800001 A            CI,SR1   1
       992   04 001F0    683001F3              BE       OPENDO1           BRANCH IF DEVICE IS TYPEWRITER
       993   04 001F1    21800010 A            CI,SR1   X'10'
       994   04 001F2    E930000A A            BNE      *IORL             EXIT IF NOT USER CONSOLE DEVICE
       995   04 001F3                 OPENDO1  RES      0
       996   04 001F3    33100000 X            MTW,1    DO%ONLINE         SET DO-IS-ON-LINE FLAG
       997                                     FIN
       998   04 001F4    E800000A A            B        *IORL             EXIT
       999                            *
      1000                            *  O P E N G O
      1001                            *        OPEN THE GO FILE
      1002                            *
      1003   04 001F5                 OPENGO   RES      0
      1004   04 001F5    04100035 06           M:OPEN   M:GO,(OUT),(ERR,ERR%%GO),(ABN,ERR%%GO)
             06 00035    14000000 X
             06 00036    C1000000 A
             06 00037    00000000 X
             06 00038    00000000 X
             06 00039    00000002 A
      1005         00000000                    DO       SYS=RBM
      1006                        *S*          M:PFIL   M:GO
      1007                                     FIN
      1008   04 001F6    0410003A 06           M:DEVICE  M:GO,(BIN)
             06 0003A    22000000 X
             06 0003B    00000010 A
      1009   04 001F7    E800000A A            B        *IORL             EXIT
      1010                            *
      1011                            *  O P E N S T D
      1012                            *        OPEN THE F:STD FILE IN THE USER ACCOUNT
      1013                            *
      1014   04 001F8                 OPENSTD  RES      0
      1015   04 001F8    0410003C 06           M:OPEN   F:STD,(IN)
             06 0003C    14000000 X
             06 0003D    01000000 A
             06 0003E    00000001 A
      1016   04 001F9    E800000A A            B        *IORL
      1017                            *
      1018                            *  O P E N S T D % S Y S
      1019                            *        OPEN THE F:STD FILE IN THE :SYS ACCOUNT
      1020                            *
      1021         00000001                    DO       SYS=BPMUTS
      1022   04 001FA                 OPENSTD%SYS  RES  0
      1023   04 001FA    0410003F 06           M:OPEN   F:STD,(FILE,'%:STDDEF',':SYS'),(IN)
             06 0003F    14000000 X
             06 00040    01000009 A
             06 00041    00000001 A
             06 00042    01000303 A
             06 00043    085B7AE2 A
             06 00044    E3C4C4C5 A
             06 00045    C6404040 A
             06 00046    02000202 A
             06 00047    7AE2E8E2 A
             06 00048    40404040 A
             06 00046 1  01       A
      1024   04 001FB    E800000A A            B        *IORL
      1025                                     FIN
      1026                            *
      1027                            *  O P E N S T D O U T
      1028                            *        OPEN THE F:STD FILE FOR OUTPUT
      1029                            *
      1030   04 001FC                 OPENSTDOUT  RES   0
      1031   04 001FC    04100049 06           M:OPEN   F:STD,(OUT)
             06 00049    14000000 X
             06 0004A    01000000 A
             06 0004B    00000002 A
      1032         00000000                    DO       SYS=RBM                                      /27493/*D-CCI
      1033                        *S*          M:DEVICE F:STD,;                                      /27493/*D-CCI
      1034                        *S*                   (SIZE,BYX1SIZE),;                            /27493/*D-CCI
      1035                        *S*                   (ORG,UNBLOCK)                                /27493/*D-CCI
      1036                                     FIN                                                   /27493/*D-CCI
      1037   04 001FD    E800000A A            B        *IORL
      1038                            *
      1039                            *  O P E N S I
      1040                            *        OPEN THE SYMBOLIC INPUT FILE
      1041                            *
      1042   04 001FE                 OPENSI   RES      0
      1043   04 001FE    0410004C 06           M:OPEN   M:SI,(IN),(ERR,ERR%%SI),(ABN,ERR%%SI)
             06 0004C    14000000 X
             06 0004D    C1000000 A
             06 0004E    00000000 X
             06 0004F    00000000 X
             06 00050    00000001 A
      1044   04 001FF    04100051 06           M:DEVICE M:SI,(CORRES,M:C)
             06 00051    2B000000 X
             06 00052    00000000 X
      1045   04 00200    22400002 A            LI,XT    2                 TO BYTE 2
      1046   04 00201    75880000 X            STB,SR1  CORRESWD,XT
      1047   04 00202    E800000A A            B        *IORL             EXIT
      1048                            *
      1049                            *  O P E N C I
      1050                            *        OPEN THE COMPRESSED INPUT FILE
      1051                            *
      1052   04 00203                 OPENCI   RES      0
      1053   04 00203    04100053 06           M:OPEN   M:CI,(IN),(ERR,ERR%%CI),(ABN,ERR%%CI)
             06 00053    14000000 X
             06 00054    C1000000 A
             06 00055    00000000 X
             06 00056    00000000 X
             06 00057    00000001 A
      1054   04 00204    E800000A A            B        *IORL             EXIT
      1055                            *
      1056                            *  O P E N S O
      1057                            *        OPEN THE SYMBOLIC OUTPUT FILE
      1058                            *
      1059                                     LOCAL    %10
      1060                            *
      1061   04 00205                 OPENSO   RES      0
      1062                            *
      1063         00000001                    DO       SYS=BPMUTS
      1064                            *
      1065                            *  IF M:SO IS CURRENTLY ASSIGNED TO A FILE, ADJUST ITS DCB
      1066                            *     FOR KEYED OUTPUT.
      1067                            *
      1068   04 00205    22400000 N            LI,XT    M:SO
      1069   04 00206    22600001 A            LI,XT2   1                 WANT FILE NAME
      1070   04 00207    6A700227              CALL     FIND%VARP         RETURNS PTR TO NAME IN XT1 IF FILE
      1071   04 00208    21500000 A            CI,XT1   0
      1072         001F0000                    IF,NE                 -00- DOIF ASN=FILE
             04 00209    68300213
      1073                            *
      1074                            *        MOVE THE FILE NAME INTO THE ADJUST FPT.  THIS MESSING ABOUT
      1075                            *        SHOULD NOT BE NECESSARY WITH CP-V E00, BUT FOR NOW, M:SO
      1076                            *        IS SUBJECT TO FILE EXTENSION, EVEN THOUGH IT IS A KEYED
      1077                            *        FILE.  CHANGING THE NAME (SAME NAME, BUT...) DEFEATS FILE
      1078                            *        EXTENSION, AND THUS THE INOUT MODE WHICH WOULD CAUSE A
      1079                            *        1600 ABNORMAL (MAYBE) WHEN WE WENT TO WRITE THE KEYED
      1080                            *        RECORDS.
      1081                            *
      1082   04 0020A    22600002 A            LI,XT2   2
      1083   04 0020B    F24C0005 A            LB,XT    *XT1,XT2          JUST MOVE THE WORDS IN USE
      1084   04 0020C    754C0000 X            STB,XT   SO%ADJ%NAME,XT2
      1085   04 0020D                 %10      RES      0
      1086   04 0020D    B2680005 A            LW,XT2   *XT1,XT
      1087   04 0020E    35680000 X            STW,XT2  SO%ADJ%NAME,XT
      1088   04 0020F    6440020D              BDR,XT   %10
      1089                            *
      1090   04 00210    04100000 X            CAL1,1   SO%ADJ%FPT
      1091   04 00211    22400003 A            LI,XT    3
      1092   04 00212    75400000 X            STB,XT   SO%KEY            SET FLAG (SKELETON KEY)
      1093         00F10000                    FI                    -00-
      1094                                     FIN
      1095                            *
      1096   04 00213    04100058 06           M:OPEN   M:SO,(OUT),(ERR,ERR%%SO),(ABN,ERR%%SO)
             06 00058    14000000 X
             06 00059    C1000000 A
             06 0005A    00000000 X
             06 0005B    00000000 X
             06 0005C    00000002 A
      1097   04 00214    E800000A A            B        *IORL             EXIT
      1098                            *
      1099                            *  O P E N C O
      1100                            *        OPEN THE COMPRESSED OUTPUT FILE
      1101                            *
      1102   04 00215                 OPENCO   RES      0
      1103   04 00215    0410005D 06           M:OPEN   M:CO,(OUT),(ERR,ERR%%CO),(ABN,ERR%%CO)
             06 0005D    14000000 X
             06 0005E    C1000000 A
             06 0005F    00000000 X
             06 00060    00000000 X
             06 00061    00000002 A
      1104   04 00216    04100062 06           M:DEVICE  M:CO,(BIN)
             06 00062    22000000 X
             06 00063    00000010 A
      1105   04 00217    22400078 A            LI,XT    120               STANDARD RECORD LENGTH
      1106                            *
      1107         00000001                    DO       SYS=BPMUTS
      1108   04 00218    53000000 X            MTH,0    CO%FLAG
      1109         001F0000                    IF,EQ                      DOIF 'SC' NOT SPECIFIED
             04 00219    6930021B
      1110   04 0021A    2240006C A            LI,XT    108               'SHORT' BINARY RECORDS
      1111         00F10000                    FI
      1112                                     FIN
      1113                            *
      1114   04 0021B    35400000 X            STW,XT   CO%SIZE           BYTE SIZE OF CO RECORD
      1115   04 0021C    E800000A A            EXIT     IORL
      1116   04 0021D                 IGNORE%TRAPS  RES  0
      1117   04 0021D    04800064 06           M:TRAP   TRAPLOC,(IGNORE,FX),(TRAP,NAO)
             06 00064    14000000 X
             06 00065    00200001 A
      1118         00000001                    DO       SYS=BPMUTS
      1119   04 0021E    04800066 06           M:GDDL                     GET DYNAMIC DATA LIMITS
             06 00066    1B000000 A
      1120   04 0021F    35800000 X            STW,SR1  LOWCORE
      1121   04 00220    21A00080 A            CI,SR3   128
      1122   04 00221    68200223              BLE      %+2               BRANCH IF LESS THAN 128 PAGES
      1123   04 00222    22A00080 A            LI,SR3   128               USE 128 PAGES AS MAXIMUM
      1124   04 00223    25A00009 A            SLS,SR3  9                 # PAGES * 512 = AMT OF CORE
      1125   04 00224    30A00008 A            AW,SR3   SR1               ADD AMT OF CORE TO LOWCORE
      1126   04 00225    35A00000 X            STW,SR3  ENDCORE
      1127                                     FIN
      1128         00000000                    DO       SYS=RBM
      1129                        *S*          LW,SR1   K:BPEND           MOVE LOWEST ADDRESS
      1130                        *S*          AI,SR1   1                 FORCE TO DOUBLEWORD BOUND  /26685/*D-CCI
      1131                        *S*          AND,SR1  L(EADRFLD)                                   /26685/*D-CCI
      1132                        *S*          STW,SR1  LOWCORE           USABLE BY THE ASSEMBLER
      1133                        *S*          LW,SR1   K:BCKEND
      1134                        *S*          AI,SR1   1
      1135                        *S*          SW,SR1   LOWCORE           MAKE SURE THAT
      1136                        *S*          CI,SR1   65536               ENDCORE IS NOT
      1137                        *S*          BLE      %+2                 MORE THAN 65536
      1138                        *S*          LI,SR1   65536               WORDS BEYOND
      1139                        *S*          AW,SR1   LOWCORE             LOWCORE
      1140                        *S*          STW,SR1  ENDCORE
      1141                                     FIN
      1142   04 00226    680E0000 A            EXIT     RL
1
      1144                            *
      1145                            *  F I N D % V A R P
      1146                            *        TESTS A DCB FOR HAVING BEEN ASSIGNED TO A FILE, AND RETURNS
      1147                            *        A POINTER TO THE VARIABLE PARAMETER OF INTEREST.
      1148                            *
      1149                            *        INPUT:   XT IS ADDRESS OF DCB
      1150                            *                 XT2 IS VARIABLE PARAMETER CODE (1 = NAME, ETC.)
      1151                            *
      1152                            *        OUTPUT:  XT  PRESERVED
      1153                            *                 XT1 IS 0 IF NOT A FILE, OR IS ADDRESS OF
      1154                            *                     VARIABLE PARAMETER CONTROL WORD.
      1155                            *
      1156                            *        USES:    R12
      1157                            *
      1158                                     LOCAL    %10
      1159                            *
      1160   04 00227                 FIND%VARP   RES   0
      1161                            *
      1162   04 00227    32580000 A            LW,XT1   0,XT              WORD 0 OF DCB TO XT1
      1163   04 00228    4B5004EF              AND,XT1  L(X'F')           ASN FIELD
      1164   04 00229    21500001 A            CI,XT1   1                 TEST FOR ASSIGNMENT TO FILE
      1165         001F0000                    IF,EQ                 -20-
             04 0022A    69300235
      1166   04 0022B    32580006 A            LW,XT1   6,XT
      1167   04 0022C    4B5004F1              AND,XT1  L(X'1FFFF')       FLP
      1168                            *
      1169                            *        SEARCH THE VARP LIST FOR THE DESIRED CONTROL.  IF NOT
      1170                            *        FOUND, RETURN A 0, AS IF NOT A FILE.
      1171                            *
      1172   04 0022D                 %10      RES      0
      1173   04 0022D    F1600005 A            CB,XT2   *XT1              TEST TYPE BYTE AGAINST DESIRED
      1174         0FF00100                    EXIT,EQ                    GET OUT IF FOUND (XT1 IS SET)
             04 0022E    683E0000 A
      1175                            *
      1176                            *        ADVANCE TO NEXT PARAMETER
      1177                            *
      1178   04 0022F    32CA0000 A            LW,R12   0,XT1
      1179   04 00230    21C10000 A            CV,R12   X'00010000'       WAS THIS THE LAST ONE?
      1180         001F0100                    IF,AZ                 -10- DOIF NOT LAST
             04 00231    69400235
      1181   04 00232    4BC004F2              AND,R12  L(X'FF')
      1182   04 00233    3050000C A            AW,XT1   R12               SIZE
      1183   04 00234    6550022D              BIR,XT1  %10               ADVANCE TO NEXT CONTROL
      1184                            *
      1185         00F10100                    FI                    -10-
      1186         00F10000                    FI                    -20-
      1187   04 00235    22500000 A            LI,XT1   0                 FAIL RETURN
      1188   04 00236    680E0000 A            EXIT
1
      1190                            *        DATA AREA.
      1191                            *
      1192   04 00237                          USECT    XAPDATA
      1193   02 00000                 PATCH    RES      32                ***** PATCH AREA *****
      1194   02 00020                 GET%NEXT%RETURN   RES 1
      1195   02 00021                 ABORT%CODE  RES   1                 SAVED CODE FOR ABORT TYPE
      1196   02 00022                 BLANK%SWITCH  RES  1                0=IGNORE BLANKS; 1=DON'T
      1197   02 00023                 PRINT%SWITCH  RES  1
      1198   02 00024                          USECT    CCI1
      1199         00000000                    DO       SYS=RBM
      1200                        *S* AC%TABLE RES      0
      1201                        *S*          TEXT     'SP  '
      1202                        *S*          TEXT     'D1  '
      1203                        *S*          TEXT     'D2  '
      1204                        *S*          TEXT     'D3  '
      1205                        *S*          TEXT     'D4  '
      1206                        *S*          TEXT     'D5  '
      1207                        *S*          TEXT     'D6  '
      1208                        *S*          TEXT     'D7  '
      1209                        *S*          TEXT     'D8  '
      1210                        *S*          TEXT     'D9  '
      1211                        *S*          TEXT     'DA  '
      1212                        *S*          TEXT     'DB  '
      1213                        *S*          TEXT     'DC  '
      1214                        *S*          TEXT     'DD  '
      1215                        *S*          TEXT     'DE  '
      1216                        *S*          TEXT     'DF  '
      1217                        *S* AC%CODE  RES      0
      1218                        *S*          DATA,1   0,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
      1219                        *S*          BOUND    4
      1220                                     FIN
      1221   04 00237    1BC9D3D3 A   OPTION%IGNORED    TEXTC 'ILLEGAL OPTION IGNORED:    '
             04 00238    C5C7C1D3 A
             04 00239    40D6D7E3 A
             04 0023A    C9D6D540 A
             04 0023B    C9C7D5D6 A
             04 0023C    D9C5C47A A
             04 0023D    40404040 A
      1222         00000007           MSGS     EQU      %-OPTION%IGNORED
      1223                                     BOUND    8
      1224         00000001                    DO       SYS=BPMUTS
      1225   04 0023E                 COLON%SYS   RES   0
      1226   04 0023E    7AE2E8E2 A            TEXT     ':SYS    '
             04 0023F    40404040 A
      1227                                     FIN
      1228   04 00240                          USECT    XAPDATA
      1229   02 00024                          RES      ABSVAL(%)&1       BOUND 8 WITH NO ZERO'S GENERATED
      1230         02 00024           BLANKS   EQU      %
      1231         02 00024           8BLANKS  EQU      %
      1232         02 00024           CTL%CARD%DISPLAY  EQU %
      1233   02 00024                          RES      2
      1234         02 00026           CTL%CARD EQU      %
      1235   02 00026                          RES      20
      1236   02 0003A                 BUF%PRINT  RES    20                TEMP PRINT AREA
      1237         FFFFFFF0  S        SAVEREGS EQU      X3BUF+WDX3SIZE-16  SAVE AREA FOR REGISTERS 0-15
      1238   02 0004E                          USECT    CCI1
1
      1240                            *
      1241                            *   A P % A B O R T
      1242                            *        THIS ROUTINE PROCESSES ABORT CONDITIONS.
      1243                            *
      1244                            *        INPUT:   REGISTER AR CONTAINS AN ABORT NUMBER
      1245                            *
      1246                            *        OUTPUT:  AN ABORT MESSAGE IS OUTPUT ON THE 'LO' AND 'DO'
      1247                            *                   DEVICES; ALL FILES ARE CLOSED; AND, A RETURN TO
      1248                            *                   MONITOR IS PERFORMED VIA AN M:ERR CALL.
      1249                            *
      1250   04 00240                 AP%ABORT RES      0
      1251   04 00240    02200000 A            LCI      0
      1252   04 00241    2B000000 F            STM,0    SAVEREGS          SAVE REGISTERS 0-15
      1253   04 00242    35000021 02           STW,AR   ABORT%CODE        SAVE CODE FOR ABORT TYPE
      1254                            *
      1255         00000001                    DO       SYS=BPMUTS
      1256                                     M:SETDCB M:LO,;            LET MOTHER DIAGNOSE               *D-CCI
      1257                                              (ERR,0),;                                           *D-CCI
      1258   04 00243    04100067 06                    (ABN,0)                                             *D-CCI
             06 00067    06000000 N
                         C0000000
             06 00069    00000000 A
             06 0006A    00000000 A
      1259                                     M:SETDCB M:DO,;                                              *D-CCI
      1260                                              (ERR,0),;                                           *D-CCI
      1261   04 00244    0410006B 06                    (ABN,0)                                             *D-CCI
             06 0006B    06000000 N
                         C0000000
             06 0006D    00000000 A
             06 0006E    00000000 A
      1262                                     FIN
      1263                            *
      1264         00000000                    DO       SYS=RBM
      1265                        *S*          M:CLOSE  M:LO,SAVE
      1266                        *S*          M:CLOSE  M:DO,SAVE
      1267                        *S*          M:OPEN   M:LO,;            LET MOTHER DIAGNOSE               *D-CCI
      1268                        *S*                   (ERR,0),;                                           *D-CCI
      1269                        *S*                   (ABN,0)                                             *D-CCI
      1270                        *S*          M:OPEN   M:DO,;                                              *D-CCI
      1271                        *S*                   (ERR,0),;                                           *D-CCI
      1272                        *S*                   (ABN,0)                                             *D-CCI
      1273                                     FIN
      1274                            *
      1275   04 00245    0410006F 06           M:DEVICE M:LO,(CORRES,M:DO)   CHANGE DOLOSAME TO IGNORE
             06 0006F    2B000000 X
             06 00070    00000000 X
      1276   04 00246    75800000 X            STB,SR1  CORRESWD
      1277   04 00247    2100001B A            CI,AR    ABSIZE-1
      1278   04 00248    692002D8              BG       ABORT%9           ABORT NUMBER IS OUT OF RANGE
      1279   04 00249    32400000 A            LW,XT    AR
      1280   04 0024A    691002D8              BLZ      ABORT%9           ABORT NUMBER IS OUT OF RANGE
      1281   04 0024B    5248024D              LH,XT    ABRTTBL,XT        LOAD INDEX TO ABORT PROCESSOR
      1282   04 0024C    6808032D              B        ABRTBASE,XT       BRANCH TO SPECIFIED ROUTINE
      1283                            *
      1284                            AB       COM,16   AF(1)-ABRTBASE
      1285                            *
      1286   04 0024D                 ABRTTBL  RES      0                 TABLE OF INDEXES TO ABORT ROUTINES
      1287   04 0024D    0000     A            AB       AB%0              SYSTEM                 DG
      1288   04 0024D 2  0010     A            AB       AB%1              HILIMIT                DG
      1289   04 0024E    0018     A            AB       AB%2              SCAN                   DG
      1290   04 0024E 2  001F     A            AB       AB%3              OVERFLOW               NCDR
      1291   04 0024F    0027     A            AB       AB%4              RDSDF                  NCDR
      1292   04 0024F 2  0030     A            AB       AB%5              IO%ABORT               ROOT
      1293   04 00250    006C     A            AB       AB%6              TRAPLOC                ROOT
      1294   04 00250 2  0085     A            AB       AB%7              CANTHAVE               ROOT
      1295   04 00251    0090     A            AB       AB%8              BADTRAP                ROOT
      1296   04 00251 2  009A     A            AB       AB%9              AC%FND                 CCI
      1297   04 00252    00A5     A            AB       AB%10             BAD%SYNTAX             CCI
      1298   04 00252 2  00AC     A            AB       AB%11             OPEN%SYS               CCI
      1299   04 00253    00B3     A            AB       AB%12             SDFNOTHR               CCI
      1300   04 00253 2  00BC     A            AB       AB%13             ERR%ABN2               CD
      1301   04 00254    00C3     A            AB       AB%14             ABNSI5                 CD
      1302   04 00254 2  00CA     A            AB       AB%15             SYSOPNR                CD
      1303   04 00255    00D4     A            AB       AB%16             2MANYSYS               CD
      1304   04 00255 2  0030     A            AB       AB%17             ABNX2KF                CD
      1305   04 00256    00DD     A            AB       AB%18             VALIDATE               CD
      1306   04 00256 2  010C     A            AB       AB%19             VALID%2                CD
      1307   04 00257    0118     A            AB       AB%20             BADCTRL                CD
      1308   04 00257 2  0126     A            AB       AB%21             WDOUT                  NCD /27493/*D-CCI
      1309   04 00258    FFAB     A            AB       DELETED
      1310   04 00258 2  0130     A            AB       AB%23             PRINT%ER1              CD
      1311   04 00259    013A     A            AB       AB%24             PRINT%ER2              CD
      1312   04 00259 2  0148     A            AB       AB%25             LECTURE%MAJ            INIT
      1313   04 0025A    FFAB     A            AB       DELETED
      1314   04 0025A 2  00C3     A            AB       AB%27             ABNSI5                 INIT
      1315         0000001C           ABSIZE   EQU      HA(%)-HA(ABRTTBL) NUMBER OF AB ENTRIES
      1316                            *
      1317                                     BOUND    4
      1318                            *
      1319   04 0025B                 ABORT%1  RES      0
      1320   04 0025B    6A700483              BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1321   04 0025C                 ABORT%2  RES      0
      1322   04 0025C    6A7004D6              BAL,RL   PRINT             OUTPUT MESSAGE
      1323   04 0025D    33000000 X   ABORT%3  MTW,0    SYSLEVEL
      1324   04 0025E    68200264              BLEZ     ABORT%4           NOT WITHIN A SYSTEM FILE
      1325   04 0025F    22100C14              LI,AM    BA(ABORTSYS)      ADDRESS OF 'PROCESSING SYSTEM- '
      1326   04 00260    6A700483              BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1327   04 00261    22100000 N            LI,AM    BA(SYSNAME)       ADDRESS OF SYSTEM NAME
      1328   04 00262    6A700487              BAL,RL   MOVE              APPEND SYSNAME TO MESSAGE IN BUFFER
      1329   04 00263    6A7004D6              BAL,RL   PRINT             OUTPUT MESSAGE
      1330   04 00264                 ABORT%4  RES      0
      1331   04 00264    22100C28              LI,AM    BA(ABORTAP)       ADDRESS OF 'AP ABORT ERROR'
      1332   04 00265    6A700483              BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1333   04 00266    32700000 X            LW,RL    SEGMENT#
      1334   04 00267    321E02E3              LW,AM    SEG%MSG,RL
      1335   04 00268    6A700487              CALL     MOVE
      1336   04 00269    32400000 X            LW,XT    SEGMENT#
      1337         001F0000                    IF,NE                 -20- DOIF NOT CCI
             04 0026A    68300277
      1338   04 0026B    21400004 A            CI,XT    4
      1339         001F0100                    IF,NE                 -21- DOIF NOT END
             04 0026C    68300277
      1340   04 0026D    22100C00              LI,AM    BA(LINE#MSG)
      1341   04 0026E    6A700487              CALL     MOVE
      1342   04 0026F    32300000 X            LW,X3    MAJLINE
      1343   04 00270    6A7004B1              CALL     DECEDIT
      1344   04 00271    32300000 X            LW,X3    SUBLINE
      1345         001F0200                    IF,NE                 -22- DOIF NO SUB-LINE #
             04 00272    68300277
      1346   04 00273    2240004B A            LI,XT    '.'
      1347   04 00274    754A0000 X            STB,XT   LSTBF,XT1
      1348   04 00275    20500001 A            AI,XT1   1
      1349   04 00276    6A7004B1              CALL     DECEDIT
      1350         00F10200                    FI                    -22-
      1351         00F10100                    FI                    -21-
      1352         00F10000                    FI                    -20-
      1353   04 00277    6A7004D6              BAL,RL   PRINT             OUTPUT MESSAGE
      1354   04 00278                 ABORT%5  RES      0
      1355   04 00278    22100E1C              LI,AM    BA(D%1)
      1356   04 00279    6A700483              BAL,RL   CLR%MOVE
      1357   04 0027A    6A7004DC              BAL,RL   SNAPRINT          PRINT A BLANK LINE
      1358   04 0027B    22100C3C              LI,AM    BA(APDATA)
      1359   04 0027C    6A700483              BAL,RL   CLR%MOVE
      1360   04 0027D    22300000 02           LI,X3    XAPDATA
      1361   04 0027E    2530000C A            SLS,X3   12
      1362   04 0027F    22100005 A            LI,AM    5
      1363   04 00280    6A7004CB              BAL,RL   HEXEDIT
      1364   04 00281    6A7004DC              BAL,RL   SNAPRINT          'XAPDATA = XXXXX'
      1365   04 00282    22100C48              LI,AM    BA(APD1)
      1366   04 00283    6A700483              BAL,RL   CLR%MOVE
      1367   04 00284    22300000 03           LI,X3    XAPD1
      1368   04 00285    2530000C A            SLS,X3   12
      1369   04 00286    22100005 A            LI,AM    5
      1370   04 00287    6A7004CB              BAL,RL   HEXEDIT
      1371   04 00288    6A7004DC              BAL,RL   SNAPRINT          'XAPD1 = XXXXX'
      1372   04 00289    22100C54              LI,AM    BA(APOPTFLG)
      1373   04 0028A    6A700483              BAL,RL   CLR%MOVE
      1374   04 0028B    22300000 N            LI,X3    OPTION%FLAGS
      1375   04 0028C    2530000C A            SLS,X3   12
      1376   04 0028D    22100005 A            LI,AM    5
      1377   04 0028E    6A7004CB              BAL,RL   HEXEDIT
      1378   04 0028F    6A7004DC              BAL,RL   SNAPRINT          'OPTION%FLAGS = XXXXX'
      1379   04 00290    22100C64              LI,AM    BA(APCODE)
      1380   04 00291    6A700483              BAL,RL   CLR%MOVE
      1381   04 00292    22300000 N            LI,X3    XAPCODE
      1382   04 00293    2530000C A            SLS,X3   12
      1383   04 00294    22100005 A            LI,AM    5
      1384   04 00295    6A7004CB              BAL,RL   HEXEDIT
      1385   04 00296    6A7004DC              BAL,RL   SNAPRINT          'XAPCODE = XXXXX'
      1386   04 00297    22100C70              LI,AM    BA(APMODULE)
      1387   04 00298    6A700483              BAL,RL   CLR%MOVE
      1388   04 00299    22300000              LI,X3    CCI1
      1389   04 0029A    2530000C A            SLS,X3   12
      1390   04 0029B    22100005 A            LI,AM    5
      1391   04 0029C    6A7004CB              BAL,RL   HEXEDIT
      1392   04 0029D    6A7004DC              BAL,RL   SNAPRINT          'AP OVERLAY MODULE = XXXXX'
      1393   04 0029E    22100E1C              LI,AM    BA(D%1)
      1394   04 0029F    6A700483              BAL,RL   CLR%MOVE
      1395   04 002A0    6A7004DC              BAL,RL   SNAPRINT          PRINT A BLANK LINE
      1396   04 002A1    22100C88              LI,AM    BA(RO%R7)
      1397   04 002A2    6A700483              BAL,RL   CLR%MOVE
      1398   04 002A3    226FFFF0 N            LI,X6    SAVEREGS
      1399   04 002A4    3560000D A            STW,X6   R13
      1400   04 002A5    6AF00498              BAL,R15  HEXDUMP1          DUMP REGS 0-7 IN HEX FORMAT
      1401   04 002A6    22100C90              LI,AM    BA(R8%R15)
      1402   04 002A7    6A700483              BAL,RL   CLR%MOVE
      1403   04 002A8    226FFFF8 N            LI,X6    SAVEREGS+8
      1404   04 002A9    6AF00498              BAL,R15  HEXDUMP1          DUMP REGS 8-15 IN HEX FORMAT
      1405   04 002AA    32400021 02           LW,XT    ABORT%CODE        GET SAVED CODE
      1406   04 002AB    72580326              LB,XT1   DUMP%SW,XT
      1407   04 002AC    683002D3              BEZ      ABORT%7           BRIF MINI-DUMP REQUIRED
      1408                            *
      1409   04 002AD    22100E1C              LI,AM    BA(D%1)
      1410   04 002AE    6A700483              BAL,RL   CLR%MOVE
      1411   04 002AF    6A7004DC              BAL,RL   SNAPRINT          PRINT A BLANK LINE
      1412   04 002B0    22600000 02           LI,X6    XAPDATA           START ADDRESS FOR DUMP
      1413   04 002B1    22D00000 N            LI,R13   ROOTRTN           END ADDRESS FOR DUMP
      1414   04 002B2    6AF0048E              BAL,R15  HEXDUMP           DUMP MEMORY IN HEX FORMAT
      1415   04 002B3    32400021 02           LW,XT    ABORT%CODE        GET SAVED CODE
      1416   04 002B4    72580326              LB,XT1   DUMP%SW,XT        GET DUMP FLAG
      1417   04 002B5    21500001 A            CI,XT1   1
      1418   04 002B6    683002D3              BE       ABORT%7           BRIF MIDI-DUMP IS REQUIRED
      1419                            *
      1420         00000001                    DO       SYS=BPMUTS
      1421   04 002B7    221FFFFB A            LI,X1    -5                INDEX TO PAGETBL
      1422   04 002B8    22200001 A            LI,X2    1                 # BITS REMAINING (+1) IN LAST WORD
      1423   04 002B9    32600000 X            LW,X6    LOWCORE           INITIAL DUMP ADDRESS
      1424   04 002BA                 FIND%1ST RES      0                 LOOK FOR INIT. DUMP ADDRESS
      1425   04 002BA    31600000 X            CW,X6    ENDCORE
      1426   04 002BB    681002D3              BGE      ABORT%7           BRIF END-OF-CORE
      1427                            *
      1428   04 002BC    6A7004C3              CALL     NEXT%PG
      1429   04 002BD    680002D3              B        ABORT%7           END-OF-PAGETBL EXIT
      1430   04 002BE    693002C1              BNEZ     FIND%LAST         BRIF PAGE USED
      1431                            *
      1432   04 002BF                 FIND%L1  RES      0
      1433   04 002BF    20600200 A            AI,X6    512               BUMP TO NEXT CORE PAGE
      1434   04 002C0    680002BA              B        FIND%1ST
      1435                            *
      1436   04 002C1                 FIND%LAST   RES   0                 LOOK FOR END ADDRESS FOR DUMP
      1437   04 002C1    32D00006 A            LW,R13   X6                INIT -> FINAL DUMP ADDRESS
      1438   04 002C2                 FIND%L2  RES      0
      1439   04 002C2    20D00200 A            AI,R13   512               BUMP END ADDRESS
      1440   04 002C3    31D00000 X            CW,R13   ENDCORE
      1441   04 002C4    681002C8              BGE      NEXT%PRT          BRIF END OF CORE
      1442                            *
      1443   04 002C5    6A7004C3              CALL     NEXT%PG           GET NEXT 'PAGE-USED' BIT
      1444   04 002C6    680002C8              B        NEXT%PRT          END-OF-PAGETBL
      1445   04 002C7    693002C2              BNEZ     FIND%L2           BRIF LAST ADDR. NOT FOUND
      1446                            *
      1447   04 002C8                 NEXT%PRT RES      0
      1448   04 002C8    31D00000 X            CW,R13   ENDCORE           DECREASE END ADDRESS IF REQ'D
      1449   04 002C9    682002CB              BLE      %+2
      1450   04 002CA    32D00000 X            LW,R13   ENDCORE
      1451   04 002CB    022000F0 A            LCI      15
      1452   04 002CC    2B000000 X            STM,0    SAVAREA           SAVE REGS
      1453   04 002CD    20DFFFFF A            AI,R13   -1                ADJUST LAST ADDRESS
      1454   04 002CE    6AF0048E              BAL,R15  HEXDUMP
      1455   04 002CF    022000F0 A            LCI      15
      1456   04 002D0    2A000000 X            LM,0     SAVAREA
      1457   04 002D1    3260000D A            LW,X6    R13               LAST ADDRESS -> FIRST
      1458   04 002D2    680002BF              B        FIND%L1
      1459                            *
      1460                                     FIN
      1461                            *
      1462         00000000                    DO       SYS=RBM
      1463                        *S*          LW,X6    LOWCORE
      1464                        *S*          LW,R13   ENDCORE
      1465                        *S*          AI,R13   -1
      1466                        *S*          BAL,R15  HEXDUMP
      1467                                     FIN
      1468                            *
      1469   04 002D3                 ABORT%7  RES      0
      1470   04 002D3    22A00001 A            LI,IORL  1                 ABNORMAL CLOSE
      1471   04 002D4    6A700000 X            BAL,RL   CLOSE%FILES
      1472   04 002D5    02200000 A            LCI      0
      1473   04 002D6    2A000000 F            LM,0     SAVEREGS          RESTORE REGISTERS 0-15
      1474   04 002D7    04900002 A            M:ERR                      RETURN TO MONITOR
      1475                            *
      1476                            *   HERE IF ABORT NUMBER IS OUT OF RANGE
      1477   04 002D8                 ABORT%9  RES      0
      1478   04 002D8                 DELETED  RES      0
      1479   04 002D8    22100B68              LI,AM    BA(ABORT%10)
      1480   04 002D9    6800025B              B        ABORT%1
      1481   04 002DA    22C1C2D6 A   ABORT%10 TEXTC    'ABORT CALLED WITH ILLEGAL ARGUMENT'
             04 002DB    D9E340C3 A
             04 002DC    C1D3D3C5 A
             04 002DD    C440E6C9 A
             04 002DE    E3C840C9 A
             04 002DF    D3D3C5C7 A
             04 002E0    C1D340C1 A
             04 002E1    D9C7E4D4 A
             04 002E2    C5D5E340 A
      1482                            *
      1483   04 002E3                 SEG%MSG  RES      0
      1484   04 002E3    00000BA4              DATA     BA(CCI%SEG)
      1485   04 002E4    00000BBC              DATA     BA(NCDR%SEG)
      1486   04 002E5    00000BC4              DATA     BA(DEF%SEG)
      1487   04 002E6    00000BD4              DATA     BA(GEN%SEG)
      1488   04 002E7    00000BE4              DATA     BA(END%SEG)
      1489   04 002E8    00000BF4              DATA     BA(CONC%SEG)
      1490   04 002E9    16C3D6D5 A   CCI%SEG  TEXTC    'CONTROL CARD PROCESSOR'
             04 002EA    E3D9D6D3 A
             04 002EB    40C3C1D9 A
             04 002EC    C440D7D9 A
             04 002ED    D6C3C5E2 A
             04 002EE    E2D6D940 A
      1491   04 002EF    07C5D5C3 A   NCDR%SEG TEXTC    'ENCODER'
             04 002F0    D6C4C5D9 A
      1492   04 002F1    0FC1E2E2 A   DEF%SEG  TEXTC    'ASSEMBLY PASS 1'
             04 002F2    C5D4C2D3 A
             04 002F3    E840D7C1 A
             04 002F4    E2E240F1 A
      1493   04 002F5    0FC1E2E2 A   GEN%SEG  TEXTC    'ASSEMBLY PASS 2'
             04 002F6    C5D4C2D3 A
             04 002F7    E840D7C1 A
             04 002F8    E2E240F2 A
      1494   04 002F9    0DC5D5C4 A   END%SEG  TEXTC    'END SUMMARIES'
             04 002FA    40E2E4D4 A
             04 002FB    D4C1D9C9 A
             04 002FC    C5E24040 A
      1495   04 002FD    0BC3D6D5 A   CONC%SEG TEXTC    'CONCORDANCE'
             04 002FE    C3D6D9C4 A
             04 002FF    C1D5C3C5 A
      1496   04 00300    124040D7 A   LINE#MSG TEXTC    '  PROCESSING LINE '
             04 00301    D9D6C3C5 A
             04 00302    E2E2C9D5 A
             04 00303    C740D3C9 A
             04 00304    D5C54040 A
      1497   04 00305    13D7D9D6 A   ABORTSYS TEXTC    'PROCESSING SYSTEM- '
             04 00306    C3C5E2E2 A
             04 00307    C9D5C740 A
             04 00308    E2E8E2E3 A
             04 00309    C5D46040 A
      1498   04 0030A    12C1D740 A   ABORTAP  TEXTC    'AP ABORT ERROR IN '
             04 0030B    C1C2D6D9 A
             04 0030C    E340C5D9 A
             04 0030D    D9D6D940 A
             04 0030E    C9D54040 A
      1499   04 0030F    0AE7C1D7 A   APDATA   TEXTC    'XAPDATA = '
             04 00310    C4C1E3C1 A
             04 00311    407E4040 A
      1500   04 00312    08E7C1D7 A   APD1     TEXTC    'XAPD1 = '
             04 00313    C4F1407E A
             04 00314    40404040 A
      1501   04 00315    0FD6D7E3 A   APOPTFLG TEXTC    'OPTION%FLAGS = '
             04 00316    C9D6D55B A
             04 00317    C6D3C1C7 A
             04 00318    E2407E40 A
      1502   04 00319    0AE7C1D7 A   APCODE   TEXTC    'XAPCODE = '
             04 0031A    C3D6C4C5 A
             04 0031B    407E4040 A
      1503   04 0031C    14C1D740 A   APMODULE TEXTC    'AP OVERLAY MODULE = '
             04 0031D    D6E5C5D9 A
             04 0031E    D3C1E840 A
             04 0031F    D4D6C4E4 A
             04 00320    D3C5407E A
             04 00321    40404040 A
      1504   04 00322    0640D9F0 A   RO%R7    TEXTC    ' R0-R7'
             04 00323    60D9F740 A
      1505   04 00324    0640D9F8 A   R8%R15   TEXTC    ' R8-RF'
             04 00325    60D9C640 A
      1506                            *
      1507                            *  DUMP SWITCHES TABLE.  INDEXED BY ERROR CODE.
      1508                            *
      1509                            *        0=MINI DUMP.  1=MIDI DUMP.  2=MAXI DUMP.
      1510                            *
      1511   04 00326                 DUMP%SW  RES      0
      1512   04 00326    00       A            DATA,1   0,2,2,2,1,1,2,2,2,0     CODES 0 THRU 9
             04 00326 1  02       A
             04 00326 2  02       A
             04 00326 3  02       A
             04 00327    01       A
             04 00327 1  01       A
             04 00327 2  02       A
             04 00327 3  02       A
             04 00328    02       A
             04 00328 1  00       A
      1513   04 00328 2  00       A            DATA,1   0,0,0,0,0,0,1,1,1,1     CODES 10 THRU 19
             04 00328 3  00       A
             04 00329    00       A
             04 00329 1  00       A
             04 00329 2  00       A
             04 00329 3  00       A
             04 0032A    01       A
             04 0032A 1  01       A
             04 0032A 2  01       A
             04 0032A 3  01       A
      1514   04 0032B    00       A            DATA,1   0,1,2,1,1,1,2,0   CODES 20 THRU 27           /27493/*D-CCI
             04 0032B 1  01       A
             04 0032B 2  02       A
             04 0032B 3  01       A
             04 0032C    01       A
             04 0032C 1  01       A
             04 0032C 2  02       A
             04 0032C 3  00       A
      1515                                     BOUND    4
1
      1517                            *
      1518   04 0032D                 ABRTBASE RES      0
      1519                            *   HERE FOR ABORT FROM SYSTEM DIRECTIVE IN AP-DG
      1520                            *        XT CONTAINS BASE ADDRESS OF ENCODED TEXT AT WORD RESOLUTION
      1521                            *        XW POINTS TO HALFWORD PRECEEDING SYSTEM NAME
      1522   04 0032D                 AB%0     RES      0
      1523   04 0032D    32400000 F            LW,XT    SAVEREGS+XT       GET BASE ADDRESS OF ENCODED TEXT
      1524   04 0032E    25400002 A            SLS,XT   2                 CONVERT WORD ADDRESS TO BYTE
      1525   04 0032F    20200001 A            AI,XW    1                 SKIP MULTI-INTEGER HALFWORD
      1526   04 00330    25200001 A            SLS,XW   1                 CONVERT HALFWORD OFFSET TO BYTE
      1527   04 00331    30200004 A            AW,XW    XT                SAVE ADDRESS OF SYSTEM NAME
      1528   04 00332    22100CDC              LI,AM    BA(AB%00)         ADDRESS OF 'UNABLE TO FIND SYSTEM-'
      1529   04 00333    6A700483              BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1530   04 00334    32100002 A            LW,AM    XW                ADDRESS OF SYSTEM NAME
      1531   04 00335    6A700487              BAL,RL   MOVE              APPEND NAME TO MESSAGE IN BUFFER
      1532   04 00336    6800025C              B        ABORT%2
      1533   04 00337    17E4D5C1 A   AB%00    TEXTC    'UNABLE TO FIND SYSTEM- '
             04 00338    C2D3C540 A
             04 00339    E3D640C6 A
             04 0033A    C9D5C440 A
             04 0033B    E2E8E2E3 A
             04 0033C    C5D46040 A
      1534                            *   HERE FOR ABORT FROM HILIMIT ROUTINE IN AP-DG
      1535   04 0033D                 AB%1     RES      0
      1536   04 0033D    22100CFC              LI,AM    BA(AB%01)         ADDRESS OF 'SPACE OVERFLOW'
      1537   04 0033E    6800025B              B        ABORT%1
      1538   04 0033F    16C4C5C6 A   AB%01    TEXTC    'DEF/GEN SPACE OVERFLOW'
             04 00340    61C7C5D5 A
             04 00341    40E2D7C1 A
             04 00342    C3C540D6 A
             04 00343    E5C5D9C6 A
             04 00344    D3D6E640 A
      1539                            *   HERE FOR ABORT FROM SCAN ROUTINE IN AP-DG
      1540   04 00345                 AB%2     RES      0
      1541   04 00345    22100D1C              LI,AM    BA(AB%02)         ADDRESS OF 'BAD ENCODED TEXT'
      1542   04 00346    6800025B              B        ABORT%1
      1543   04 00347    10C2C1C4 A   AB%02    TEXTC    'BAD ENCODED TEXT'
             04 00348    40C5D5C3 A
             04 00349    D6C4C5C4 A
             04 0034A    40E3C5E7 A
             04 0034B    E3404040 A
      1544                            *   HERE FOR ABORT FROM OVERFLOW IN AP-NCDR
      1545   04 0034C                 AB%3     RES      0
      1546   04 0034C    22100D38              LI,AM    BA(AB%03)         ADDRESS OF 'ENCODER SPACE OVERFLOW'
      1547   04 0034D    6800025B              B        ABORT%1
      1548   04 0034E    16C5D5C3 A   AB%03    TEXTC    'ENCODER SPACE OVERFLOW'
             04 0034F    D6C4C5D9 A
             04 00350    40E2D7C1 A
             04 00351    C3C540D6 A
             04 00352    E5C5D9C6 A
             04 00353    D3D6E640 A
      1549                            *   HERE FOR ABORT FROM RDSDF IN AP-NCDR
      1550   04 00354                 AB%4     RES      0
      1551   04 00354    22100D58              LI,AM    BA(AB%04)         ADDRESS OF MESSAGE
      1552   04 00355    6800025B              B        ABORT%1
      1553   04 00356    19E2E3C4 A   AB%04    TEXTC    'STD DEF FILE INCOMPATIBLE'
             04 00357    40C4C5C6 A
             04 00358    40C6C9D3 A
             04 00359    C540C9D5 A
             04 0035A    C3D6D4D7 A
             04 0035B    C1E3C9C2 A
             04 0035C    D3C54040 A
      1554                            *   HERE FOR ABORT FROM IO%ABORT IN AP-ROOT
      1555                            *        REGISTER SR3 CONTAINS ERRORCODE (BITS 0-14) AND DCB
      1556                            *          ADDRESS (BITS 15-31)
      1557   04 0035D                 AB%5     RES      0
      1558   04 0035D    22100DC8              LI,AM    BA(AB%05)         ADDRESS OF 'ERR OR ABN ON FILE'
      1559   04 0035E    6A700483              BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1560   04 0035F    22B1FFFF A            LI,SR4   X'1FFFF'          MASK FOR ADDRESS FIELD
      1561   04 00360    2240000F A            LI,XT    DCBSIZE-1         NUMBER OF DCBT ENTRIES TO SEARCH
      1562   04 00361    32A00000 F            LW,SR3   SAVEREGS+SR3      GET ERRORCODE & DCB ADDRESS
      1563   04 00362                 AB%%51   RES      0
      1564   04 00362    45A80377              CS,SR3   DCBTABLE,XT       FIND DCB WHICH GAVE
      1565   04 00363    68300365              BE       %+2                 ERROR OR ABNORMAL
      1566   04 00364    64400362              BDR,XT   AB%%51              RETURN
      1567                            *   XT CONTAINS INDEX TO DCB NAME
      1568   04 00365    32480377              LW,XT    DCBTABLE,XT
      1569   04 00366    72100004 A            LB,AM    XT                LOAD INDEX TO DCB NAME
      1570   04 00367    20100E1C              AI,AM    BA(DCBMSG)        AM NOW CONTAINS ADDRESS OF DCB NAME
      1571   04 00368    6A700487              BAL,RL   MOVE              MOVE DCB NAME TO LIST BUFFER
      1572   04 00369    22100E1C              LI,AM    BA(D%1)
      1573   04 0036A    6A700487              BAL,RL   MOVE              MOVE A BLANK TO LIST BUFFER
      1574   04 0036B    25A00168 A            SLD,SR3  -24               RIGHT ADJUST HIGH ORDER 8 BITS
      1575   04 0036C    25B0007F A            SLS,SR4  -1                INSERT A ZERO
      1576   04 0036D    25A00178 A            SLD,SR3  -8                NOW 16 BITS ARE CONTIGUOUS
      1577   04 0036E    22100004 A            LI,AM    4
      1578   04 0036F    3230000B A            LW,X3    SR4
      1579   04 00370    6A7004CB              BAL,RL   HEXEDIT           EDIT ERROR CODE INTO LIST BUFFER
      1580   04 00371    6800025C              B        ABORT%2
      1581   04 00372    13C5D9D9 A   AB%05    TEXTC    'ERR OR ABN ON FILE '
             04 00373    40D6D940 A
             04 00374    C1C2D540 A
             04 00375    D6D540C6 A
             04 00376    C9D3C540 A
      1582                            *
      1583                            DCBT     COM,8,24 BA(AF(1))-BA(DCBMSG),AF(2)
      1584                            *
      1585   04 00377                 DCBTABLE RES      0
      1586   04 00377    00000000 A            DCBT     D%1,0
      1587   04 00378    04000000 N            DCBT     D%2,M:SI
      1588   04 00379    08000000 N            DCBT     D%3,M:CI
      1589   04 0037A    0C000000 N            DCBT     D%4,M:BO
      1590   04 0037B    10000000 N            DCBT     D%5,M:CO
      1591   04 0037C    14000000 N            DCBT     D%6,M:DO
      1592   04 0037D    18000000 N            DCBT     D%7,M:GO
      1593   04 0037E    1C000000 N            DCBT     D%8,M:LO
      1594   04 0037F    20000000 N            DCBT     D%9,M:SO
      1595   04 00380    24000000 N            DCBT     D%10,F:STD
      1596   04 00381    28000000 N            DCBT     D%11,F:SYS
      1597         00000000                    DO       SYS=RBM
      1598                        *S*          DCBT     D%12,M:X1
      1599                        *S*          DCBT     D%13,M:X2
      1600                        *S*          DCBT     D%14,M:X3
      1601                        *S*          DCBT     D%15,M:X4
      1602                        *S*          DCBT     D%16,M:X5
      1603                                     FIN
      1604         00000001                    DO       SYS=BPMUTS
      1605   04 00382    2C000000 N            DCBT     D%12,F:X1
      1606   04 00383    30000000 N            DCBT     D%13,F:X2
      1607   04 00384    34000000 N            DCBT     D%14,F:X3
      1608   04 00385    40000000 N            DCBT     D%17,F:X2KF
      1609   04 00386    3C000000 N            DCBT     D%16,F:X5
      1610                                     FIN
      1611         00000010           DCBSIZE  EQU      %-DCBTABLE        NUMBER OF DCBT ENTRIES
      1612                            *
      1613   04 00387                 DCBMSG   RES      0
      1614   04 00387    01404040 A   D%1      TEXTC    ' '
      1615   04 00388    02E2C940 A   D%2      TEXTC    'SI'
      1616   04 00389    02C3C940 A   D%3      TEXTC    'CI'
      1617   04 0038A    02C2D640 A   D%4      TEXTC    'BO'
      1618   04 0038B    02C3D640 A   D%5      TEXTC    'CO'
      1619   04 0038C    02C4D640 A   D%6      TEXTC    'DO'
      1620   04 0038D    02C7D640 A   D%7      TEXTC    'GO'
      1621   04 0038E    02D3D640 A   D%8      TEXTC    'LO'
      1622   04 0038F    02E2D640 A   D%9      TEXTC    'SO'
      1623   04 00390    03E2E3C4 A   D%10     TEXTC    'STD'
      1624   04 00391    03E2E8E2 A   D%11     TEXTC    'SYS'
      1625   04 00392    02E7F140 A   D%12     TEXTC    'X1'
      1626   04 00393    02E7F240 A   D%13     TEXTC    'X2'
      1627   04 00394    02E7F340 A   D%14     TEXTC    'X3'
      1628   04 00395    02E7F440 A   D%15     TEXTC    'X4'
      1629   04 00396    02E7F540 A   D%16     TEXTC    'X5'
      1630   04 00397    04E7F2D2 A   D%17     TEXTC    'X2KF'
             04 00398    C6404040 A
      1631                            *
      1632                            *   HERE FOR ABORT FROM TRAPLOC IN AP-ROOT (RBM VERSION)
      1633                            *        X1 CONTAINS A POINTER TO A 19 WORD AREA CONTAINING THE
      1634                            *          PSD, REGS 0-15, AND THE TRAP LOCATION
      1635   04 00399                 AB%6     RES      0
      1636   04 00399    35100000 X            STW,X1   MPX1              SAVE POINTER TO PSD-REG BLOCK
      1637   04 0039A    22100EB0              LI,AM    BA(AB%06)         ADDRESS OF MESSAGE
      1638   04 0039B                 AB%%61   RES      0
      1639   04 0039B    6A700483              BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1640   04 0039C    B2300000 X            LW,X3    *MPX1             GET PSW1
      1641   04 0039D    22100008 A            LI,AM    8
      1642   04 0039E    6A7004CB              BAL,RL   HEXEDIT           HEX OF PSW1 TO LIST BUFFER
      1643   04 0039F    22100E1C              LI,AM    BA(D%1)
      1644   04 003A0    6A700487              BAL,RL   MOVE              MOVE A BLANK TO LIST BUFFER
      1645   04 003A1    22100001 A            LI,X1    1
      1646   04 003A2    B2320000 X            LW,X3    *MPX1,X1          GET PSW2
      1647   04 003A3    22100008 A            LI,AM    8
      1648   04 003A4    6A7004CB              BAL,RL   HEXEDIT           HEX OF PSW2 TO LIST BUFFER
      1649   04 003A5    6A7004D6              BAL,RL   PRINT             PRINT THE LIST BUFFER
      1650   04 003A6    32100000 X            LW,X1    MPX1
      1651   04 003A7    02200000 A            LCI      0                 MOVE RESIGTES 0-15
      1652   04 003A8    2A020002 A            LM,0     2,X1                FROM TRAP ROUTINE'S SAVE AREA
      1653   04 003A9    02200000 A            LCI      0                   TO ABORT ROUTINE'S SAVE AREA
      1654   04 003AA    2B000000 F            STM,0    SAVEREGS
      1655   04 003AB    6800025D              B        ABORT%3
      1656   04 003AC    14D4D6D5 A   AB%06    TEXTC    'MONITOR TRAP, PSD = '
             04 003AD    C9E3D6D9 A
             04 003AE    40E3D9C1 A
             04 003AF    D76B40D7 A
             04 003B0    E2C4407E A
             04 003B1    40404040 A
      1657                            *   HERE FOR ABORT FROM CANTHAVE IN AP-ROOT (UTS VERSION)
      1658                            *        MPX1 CONTAINS A POINTER TO A 19 WORD AREA CONTAINING THE
      1659                            *          PSD, REGS 0-15, AND THE TRAP LOCATION
      1660   04 003B2                 AB%7     RES      0
      1661   04 003B2    22100ED4              LI,AM    BA(AB%07)         ADDRESS OF MESSAGE
      1662   04 003B3                 AB%%71   RES      0
      1663   04 003B3    33E00000 X            MTW,-2   MPX1              POINTER TO PSD-REG BLOCK
      1664   04 003B4    6800039B              B        AB%%61
      1665   04 003B5    1ED4C5D4 A   AB%07    TEXTC    'MEMORY PROTECTION TRAP, PSD = '
             04 003B6    D6D9E840 A
             04 003B7    D7D9D6E3 A
             04 003B8    C5C3E3C9 A
             04 003B9    D6D540E3 A
             04 003BA    D9C1D76B A
             04 003BB    40D7E2C4 A
             04 003BC    407E4040 A
      1666                            *   HERE FOR ABORT FROM BADTRAP IN AP-ROOT (UTS VERSION)
      1667   04 003BD                 AB%8     RES      0
      1668   04 003BD    22100EFC              LI,AM    BA(AB%08)         ADDRESS OF MESSAGE
      1669   04 003BE    680003B3              B        AB%%71
      1670   04 003BF    1CC2C1C4 A   AB%08    TEXTC    'BAD INSTRUCTION TRAP, PSD = '
             04 003C0    40C9D5E2 A
             04 003C1    E3D9E4C3 A
             04 003C2    E3C9D6D5 A
             04 003C3    40E3D9C1 A
             04 003C4    D76B40D7 A
             04 003C5    E2C4407E A
             04 003C6    40404040 A
      1671                            *   HERE FOR ABORT FROM AC%FND IN AP-CCI
      1672   04 003C7                 AB%9     RES      0
      1673   04 003C7    22100F24              LI,AM    BA(AB%09)         ADDRESS OF MESSAGE
      1674   04 003C8    6800025B              B        ABORT%1
      1675   04 003C9    20E3D6D6 A   AB%09    TEXTC    'TOO MANY ACCOUNT AREAS SPECIFIED'
             04 003CA    40D4C1D5 A
             04 003CB    E840C1C3 A
             04 003CC    C3D6E4D5 A
             04 003CD    E340C1D9 A
             04 003CE    C5C1E240 A
             04 003CF    E2D7C5C3 A
             04 003D0    C9C6C9C5 A
             04 003D1    C4404040 A
      1676                            *   HERE FOR ABORT FROM BAD%SYNTAX IN AP-CCI
      1677   04 003D2                 AB%10    RES      0
      1678   04 003D2    22100F50              LI,AM    BA(AB%010)        ADDRESS OF MESSAGE
      1679   04 003D3    6800025B              B        ABORT%1
      1680   04 003D4    12C3D6D5 A   AB%010   TEXTC    'CONTROL CARD ERROR'
             04 003D5    E3D9D6D3 A
             04 003D6    40C3C1D9 A
             04 003D7    C440C5D9 A
             04 003D8    D9D6D940 A
      1681                            *   HERE FOR ABORT FROM OPEN%SYS IN AP-CCI
      1682   04 003D9                 AB%11    RES      0
      1683   04 003D9    22100F6C              LI,AM    BA(AB%011)        ADDRESS OF MESSAGE
      1684   04 003DA    6800025B              B        ABORT%1
      1685   04 003DB    12D5D640 A   AB%011   TEXTC    'NO INPUT SPECIFIED'
             04 003DC    C9D5D7E4 A
             04 003DD    E340E2D7 A
             04 003DE    C5C3C9C6 A
             04 003DF    C9C5C440 A
      1686                            *   HERE FOR ABORT FROM SDFNOTHR IN AP-CCI
      1687   04 003E0                 AB%12    RES      0
      1688   04 003E0    22100F88              LI,AM    BA(AB%012)        ADDRESS OF MESSAGE
      1689   04 003E1    6800025B              B        ABORT%1
      1690   04 003E2    1BE2E3C4 A   AB%012   TEXTC    'STD DEF FILE DOES NOT EXIST'
             04 003E3    40C4C5C6 A
             04 003E4    40C6C9D3 A
             04 003E5    C540C4D6 A
             04 003E6    C5E240D5 A
             04 003E7    D6E340C5 A
             04 003E8    E7C9E2E3 A
      1691                            *   HERE FOR ABORT FROM ERR%ABN2 IN AP-CD
      1692   04 003E9                 AB%13    RES      0
      1693   04 003E9    22100FAC              LI,AM    BA(AB%013)        ADDRESS OF MESSAGE
      1694   04 003EA    6800025B              B        ABORT%1
      1695   04 003EB    13C5E7D7 A   AB%013   TEXTC    'EXPECTED CI MISSING'
             04 003EC    C5C3E3C5 A
             04 003ED    C440C3C9 A
             04 003EE    40D4C9E2 A
             04 003EF    E2C9D5C7 A
      1696                            *   HERE FOR ABORT FROM ABNSIS IN AP-CD
      1697   04 003F0                 AB%14    RES      0
      1698   04 003F0    22100FC8              LI,AM    BA(AB%014)        ADDRESS OF MESSAGE
      1699   04 003F1    6800025B              B        ABORT%1
      1700   04 003F2    13C5E7D7 A   AB%014   TEXTC    'EXPECTED SI MISSING'
             04 003F3    C5C3E3C5 A
             04 003F4    C440E2C9 A
             04 003F5    40D4C9E2 A
             04 003F6    E2C9D5C7 A
      1701                            *   HERE FOR ABORT FROM SYSOPNR IN AP-CD
      1702   04 003F7                 AB%15    RES      0
      1703   04 003F7    22100FE4              LI,AM    BA(AB%015)        ADDRESS OF MESSAGE
      1704   04 003F8    6800025B              B        ABORT%1
      1705   04 003F9    1DC5D9D9 A   AB%015   TEXTC    'ERR OR ABN WHEN OPENING F:SYS'
             04 003FA    40D6D940 A
             04 003FB    C1C2D540 A
             04 003FC    E6C8C5D5 A
             04 003FD    40D6D7C5 A
             04 003FE    D5C9D5C7 A
             04 003FF    40C67AE2 A
             04 00400    E8E24040 A
      1706                            *   HERE FOR ABORT FROM 2MANYSYS IN AP-CD
      1707   04 00401                 AB%16    RES      0
      1708   04 00401    2210100C              LI,AM    BA(AB%016)        ADDRESS OF MESSAGE
      1709   04 00402    6800025B              B        ABORT%1
      1710   04 00403    19E2E8E2 A   AB%016   TEXTC    'SYSTEMS NESTED TOO DEEPLY'
             04 00404    E3C5D4E2 A
             04 00405    40D5C5E2 A
             04 00406    E3C5C440 A
             04 00407    E3D6D640 A
             04 00408    C4C5C5D7 A
             04 00409    D3E84040 A
      1711                            *   HERE FOR ABORT FROM ABNX2KF IN AP-CD
      1712         04 0035D           AB%17    EQU      AB%5
      1713                            *
      1714                            *   HERE FOR ABORT FROM VALIDATE IN AP-CD
      1715                            *        X1 CONTAINS THE CONTROL WORD OF THE CURRENT COMPRESSED RECORD
      1716                            *        XT1 CONTAINS THE EXPECTED RECORD NUMBER
      1717   04 0040A                 AB%18    RES      0
      1718   04 0040A    55500003 A            STH,XT1  X3                SAVE RECORD NUMBER LEFT ADJUSTED
      1719   04 0040B    2210107C              LI,AM    BA(AB%018)        ADDRESS OF MESSAGE
      1720   04 0040C    6A700483     AB%18A   BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1721   04 0040D    22100004 A            LI,AM    4
      1722   04 0040E    6A7004CB              BAL,RL   HEXEDIT           EDIT RECORD NUMBER INTO LIST BUFFER
      1723   04 0040F    6A7004D6              BAL,RL   PRINT             PRINT THE LIST BUFFER
      1724   04 00410    2210109C              LI,AM    BA(AB%018A)       ADDRESS OF NEXT MESSAGE
      1725   04 00411    6A700483              BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1726   04 00412    6A7004D6              BAL,RL   PRINT             PRINT LIST BUFFER
      1727   04 00413    221010D0              LI,AM    BA(AB%018B)       ADDRESS OF NEXT MESSAGE
      1728   04 00414    6A700483              BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1729   04 00415    22800004 A            LI,IOADD 4
      1730   04 00416    32300000 F            LW,X3    SAVEREGS+X1       GET COMPRESSED RECORD CONTROL WORD
      1731   04 00417                 AB%18C   RES      0
      1732   04 00417    22100002 A            LI,AM    2                 EDIT NEXT 2 DIGITS OF CONTROL WORD
      1733   04 00418    6A7004CB              BAL,RL   HEXEDIT             INTO LIST BUFFER
      1734   04 00419    22100061 A            LI,AM    '/'
      1735   04 0041A    751A0000 X            STB,AM   LSTBF,XT1         STORE A SLASH IN LIST BUFFER
      1736   04 0041B    20500001 A            AI,XT1   1                 INCREMENT LIST BUFFER INDEX
      1737   04 0041C    64800417              BDR,IOADD AB%18C           CONTINUE UNTIL CONTROL WORD EDITED
      1738   04 0041D    205FFFFF A            AI,XT1   -1                REMOVE LAST SLASH
      1739   04 0041E    6800025C              B        ABORT%2
      1740   04 0041F    1EE2C5D8 A   AB%018   TEXTC    'SEQUENCE ERROR ON CI RECORD # '
             04 00420    E4C5D5C3 A
             04 00421    C540C5D9 A
             04 00422    D9D6D940 A
             04 00423    D6D540C3 A
             04 00424    C940D9C5 A
             04 00425    C3D6D9C4 A
             04 00426    407B4040 A
      1741   04 00427    32C3D6D4 A   AB%018A  TEXTC    'COMPRESSED RECORD  ID/SEQUENCE/CHECKSUM/BYTE COUNT'
             04 00428    D7D9C5E2 A
             04 00429    E2C5C440 A
             04 0042A    D9C5C3D6 A
             04 0042B    D9C44040 A
             04 0042C    C9C461E2 A
             04 0042D    C5D8E4C5 A
             04 0042E    D5C3C561 A
             04 0042F    C3C8C5C3 A
             04 00430    D2E2E4D4 A
             04 00431    61C2E8E3 A
             04 00432    C540C3D6 A
             04 00433    E4D5E340 A
      1742   04 00434    13404040 A   AB%018B  TEXTC    '               IS  '
             04 00435    40404040 A
             04 00436    40404040 A
             04 00437    40404040 A
             04 00438    C9E24040 A
      1743                            *   HERE FOR ABORT FROM VALID%2 IN AP-CD
      1744                            *        X1 CONTAINS THE CONTROL WORD OF THE CURRENT COMPRESSED RECORD
      1745                            *        X3 CONTAINS THE RECORD NUMBER+1
      1746   04 00439                 AB%19    RES      0
      1747   04 00439    203FFFFF A            AI,X3    -1                DECREMENT RECORD NUMBER
      1748   04 0043A    25300010 A            SLS,X3   16                LEFT ADJUST RECORD NUMBER
      1749   04 0043B    221010F4              LI,AM    BA(AB%019)        ADDRESS OF MESSAGE
      1750   04 0043C    6800040C              B        AB%18A
      1751   04 0043D    1EC3C8C5 A   AB%019   TEXTC    'CHECKSUM ERROR ON CI RECORD # '
             04 0043E    C3D2E2E4 A
             04 0043F    D440C5D9 A
             04 00440    D9D6D940 A
             04 00441    D6D540C3 A
             04 00442    C940D9C5 A
             04 00443    C3D6D9C4 A
             04 00444    407B4040 A
      1752                            *   HERE FOR ABORT FROM ENDFILE OR BADCTRL IN AP-CD
      1753                            *        X3 CONTAINS RECORD NUMBER+1
      1754   04 00445                 AB%20    RES      0
      1755   04 00445    22101130              LI,AM    BA(AB%020)        ADDRESS OF MESSAGE
      1756   04 00446    6A700483              BAL,RL   CLR%MOVE          MOVE MESSAGE TO LIST BUFFER
      1757   04 00447    203FFFFF A            AI,X3    -1                DECREMENT RECORD NUMBER
      1758   04 00448    25300010 A            SLS,X3   16                LEFT ADJUST RECORD NUMBER
      1759   04 00449    22100004 A            LI,AM    4
      1760   04 0044A    6A7004CB              BAL,RL   HEXEDIT           EDIT RECORD NUMBER INTO LIST BUFFER
      1761   04 0044B    6800025C              B        ABORT%2
      1762   04 0044C    1AC3C940 A   AB%020   TEXTC    'CI CODE ERROR ON RECORD # '
             04 0044D    C3D6C4C5 A
             04 0044E    40C5D9D9 A
             04 0044F    D6D940D6 A
             04 00450    D540D9C5 A
             04 00451    C3D6D9C4 A
             04 00452    407B4040 A
      1763                            *                                                              /27493/*D-CCI
      1764                            *   HERE FROM WDOUT IN AP-NCD WHEN STATEMENT CANNOT BE ENCODED /27493/*D-CCI
      1765                            *        INTO A SINGLE BUFFER.                                 /27493/*D-CCI
      1766   04 00453                 AB%21    RES      0                                            /27493/*D-CCI
      1767   04 00453    22101154              LI,AM    BA(AB%021)        ADDRESS OF MESSAGE         /27493/*D-CCI
      1768   04 00454    6800025B              B        ABORT%1                                      /27493/*D-CCI
      1769                            *                                                              /27493/*D-CCI
      1770   04 00455    1CE2E3C1 A   AB%021   TEXTC    'STATEMENT TOO LONG TO ENCODE'               /27493/*D-CCI
             04 00456    E3C5D4C5 A
             04 00457    D5E340E3 A
             04 00458    D6D640D3 A
             04 00459    D6D5C740 A
             04 0045A    E3D640C5 A
             04 0045B    D5C3D6C4 A
             04 0045C    C5404040 A
      1771                            *
      1772                            *   HERE FOR ABORT FROM PRINT%ER1 IN AP-CD
      1773                            *        X1 CONTAINS THE CONTROL WORD OF THE CURRENT COMPRESSED RECORD
      1774                            *        X3 CONTAINS THE RECORD NUMBER
      1775   04 0045D                 AB%23    RES      0
      1776   04 0045D    25300010 A            SLS,X3   16                LEFT ADJUST RECORD NUMBER
      1777   04 0045E    22101180              LI,AM    BA(AB%023)        ADDRESS OF MESSAGE
      1778   04 0045F    6800040C              B        AB%18A
      1779   04 00460    18C9C440 A   AB%023   TEXTC    'ID ERROR ON CI RECORD # '
             04 00461    C5D9D9D6 A
             04 00462    D940D6D5 A
             04 00463    40C3C940 A
             04 00464    D9C5C3D6 A
             04 00465    D9C4407B A
             04 00466    40404040 A
      1780                            *   HERE FOR ABORT FROM PRINT%ER2 IN AP-CD
      1781   04 00467                 AB%24    RES      0
      1782   04 00467    221011A4              LI,AM    BA(AB%024)        ADDRESS OF MESSAGE
      1783   04 00468    6800025B              B        ABORT%1
      1784   04 00469    2CC3D6D4 A   AB%024   TEXTC    'COMPRESSED OR BINARY RECORD FOUND IN SI FILE'
             04 0046A    D7D9C5E2 A
             04 0046B    E2C5C440 A
             04 0046C    D6D940C2 A
             04 0046D    C9D5C1D9 A
             04 0046E    E840D9C5 A
             04 0046F    C3D6D9C4 A
             04 00470    40C6D6E4 A
             04 00471    D5C440C9 A
             04 00472    D540E2C9 A
             04 00473    40C6C9D3 A
             04 00474    C5404040 A
      1785                            *   HERE FOR ABORT FROM LECTURE%MAJ IN AP-INIT
      1786   04 00475                 AB%25    RES      0
      1787   04 00475    221011DC              LI,AM    BA(AB%025)        ADDRESS OF MESSAGE
      1788   04 00476    6800025B              B        ABORT%1
      1789   04 00477    2DE4D7C4 A   AB%025   TEXTC    'UPDATE FILE IS IN COMPRESSED OR BINARY FORMAT'
             04 00478    C1E3C540 A
             04 00479    C6C9D3C5 A
             04 0047A    40C9E240 A
             04 0047B    C9D540C3 A
             04 0047C    D6D4D7D9 A
             04 0047D    C5E2E2C5 A
             04 0047E    C440D6D9 A
             04 0047F    40C2C9D5 A
             04 00480    C1D9E840 A
             04 00481    C6D6D9D4 A
             04 00482    C1E34040 A
      1790                            *
      1791                            *   HERE FOR ABORT FROM ABNSI5 IN AP-INIT
      1792         04 003F0           AB%27    EQU      AB%14
      1793                            *
1
      1795                            *
      1796                            *   C L R % M O V E
      1797                            *        THIS ROUTINE CLEARS THE LIST BUFFER AND THEN STORES A
      1798                            *          CHARACTER STRING INTO IT.
      1799                            *
      1800                            *   M O V E
      1801                            *        THIS IS AN ALTERNATE ENTRY POINT WHICH STORES A CHARACTER
      1802                            *          STRING INTO THE LIST BUFFER WITHOUT FIRST CLEARING IT.
      1803                            *
      1804                            *        INPUT:   REGISTER AM CONTAINS THE BYTE ADDRESS OF A 'TEXTC'
      1805                            *                   CHARACTER STRING
      1806                            *                 REGISTER XT1 CONTAINS THE FIRST CHARACTER POSITION
      1807                            *                   IN LIST BUFFER TO STORE INTO. (INITIALIZED TO ONE
      1808                            *                   IF CLR%MOVE IS CALLED)
      1809                            *
      1810                            *        OUTPUT:  REGISTER XT1 CONTAINS THE NEXT CHARACTER POSITION
      1811                            *                   IN LIST BUFFER TO STORE INTO
      1812                            *
      1813                            *        USES REGISTER
      1814                            *                 AM
      1815                            *                 XT
      1816                            *                 XT1
      1817                            *                 XT2
      1818                            *                 IORL
      1819                            *
      1820   04 00483                 CLR%MOVE RES      0
      1821   04 00483    3570000A A            STW,RL   IORL
      1822   04 00484    6A700000 X            BAL,RL   CLRLSTBF          CLEAR LIST BUFFER
      1823   04 00485    22500001 A            LI,XT1   1                 INITIALIZE LIST BUFFER INDEX
      1824   04 00486    3270000A A            LW,RL    IORL
      1825   04 00487                 MOVE     RES      0
      1826   04 00487    72620000 A            LB,XT2   0,AM              LOAD CHARACTER COUNT
      1827   04 00488                 MOVE1    RES      0
      1828   04 00488    20100001 A            AI,AM    1                 INCREMENT 'FROM' ADDRESS
      1829   04 00489    72420000 A            LB,XT    0,AM              MOVE NEXT CHARACTER FROM MESSAGE TO
      1830   04 0048A    754A0000 X            STB,XT   LSTBF,XT1           NEXT POSITION IN LIST BUFFER
      1831   04 0048B    20500001 A            AI,XT1   1                 INCREMENT 'TO' INDEX
      1832   04 0048C    64600488              BDR,XT2  MOVE1             CONTINUE UNTIL ALL CHARS MOVED
      1833   04 0048D    680E0000 A            EXIT     RL
1
      1835                            *
      1836                            *   H E X D U M P
      1837                            *        DUMP A SPECIFIED AREA OF MEMORY IN HEXADECIMAL FORMAT
      1838                            *
      1839                            *        INPUT:   REGISTER X6 CONTAINS THE ADDRESS OF THE FIRST
      1840                            *                   WORD TO BE DUMPED
      1841                            *                 REGISTER R13 CONTAINS THE ADDRESS OF THE LAST
      1842                            *                   WORD TO BE DUMPED
      1843                            *
      1844                            *        USES REGISTER
      1845                            *                 X1, X2, X3, X6
      1846                            *
      1847   04 0048E                 HEXDUMP  RES      0
      1848   04 0048E    4B6004F3              AND,X6   =X'FFFFFFF8'      TRUNCATE START & END ADDRESSES TO
      1849   04 0048F    4BD004F3              AND,R13  =X'FFFFFFF8'        AN 8 WORD BOUNDARY
      1850   04 00490    20D00007 A            AI,R13   7
      1851   04 00491    22204040 A            LI,X2    '  '
      1852   04 00492                 NXTLOC   RES      0
      1853   04 00492    55200000 X            STH,X2   LSTBF             1ST 2 BYTES OF LIST BUFFER
      1854   04 00493    32300006 A            LW,X3    X6                ADDRESS OF 1ST WORD OF THIS LINE
      1855   04 00494    2530000C A            SLS,X3   12                LEFT ADJUST ADDRESS
      1856   04 00495    22100005 A            LI,AM    5                 NUMBER OF HEX DIGITS
      1857   04 00496    22500002 A            LI,XT1   2                 NEXT POSITION IN LIST BUFFER
      1858   04 00497    6A7004CB              BAL,RL   HEXEDIT           EDIT ADDRESS INTO LIST BUFFER
      1859   04 00498                 HEXDUMP1 RES      0                 ENTRY POINT FOR REGISTER DUMP
      1860   04 00498    22E00008 A            LI,R14   8
      1861   04 00499                 NXTWORD  RES      0
      1862   04 00499    22200040 A            LI,X2    ' '
      1863   04 0049A    752A0000 X            STB,X2   LSTBF,XT1         STORE A BLANK IN LIST BUFFER
      1864   04 0049B    20500001 A            AI,XT1   1                 INCREMENT INDEX TO LIST BUFFER
      1865   04 0049C    323C0000 A            LW,X3    0,X6              LOAD NEXT WORD TO BE CONVERTED
      1866   04 0049D    22100008 A            LI,AM    8                 NUMBER OF HEX DIGITS
      1867   04 0049E    6A7004CB              BAL,RL   HEXEDIT           EDIT WORD INTO LIST BUFFER
      1868   04 0049F    20600001 A            AI,X6    1                 ADDRESS OF NEXT WORD TO CONVERT
      1869   04 004A0    64E00499              BDR,R14  NXTWORD           CONTINUE UNTIL EIGHT WORDS EDITED
      1870   04 004A1    6A7004DC              BAL,RL   SNAPRINT          PRINT THE LIST BUFFER
      1871   04 004A2    3160000D A            CW,X6    R13               EXIT WHEN ALL WORDS
      1872   04 004A3    E920000F A            BG       *R15                HAVE BEEN CONVERTED
      1873   04 004A4    32300006 A            LW,X3    X6
      1874   04 004A5    22204040 A            LI,X2    '  '
      1875   04 004A6                 NXTCMP   RES      0
      1876   04 004A6    32160000 A            LW,AM    0,X3              BRANCH IF THIS WORD DIFFERS FROM
      1877   04 004A7    3117FFF8 A            CW,AM    -8,X3               CORRESPONDING WORD OF LAST LINE
      1878   04 004A8    69300492              BNE      NXTLOC              DUMPED
      1879   04 004A9    20300001 A            AI,X3    1
      1880   04 004AA    21300007 A            CI,X3    7                 CONTINUE UNTIL ALL EIGHT WORDS
      1881   04 004AB    694004A6              BANZ     NXTCMP              HAVE BEEN EXAMINED
      1882   04 004AC    3130000D A            CW,X3    R13
      1883   04 004AD    69200492              BG       NXTLOC            FORCE LAST LINE OUT
      1884   04 004AE    35300006 A            STW,X3   X6
      1885   04 004AF    2220405C A            LI,X2    ' *'
      1886   04 004B0    680004A6              B        NXTCMP
1
      1888                            *
      1889                            *  D E C E D I T
      1890                            *        CONVERT A BINARY NUMBER TO DECIMAL DIGITS AND STORE
      1891                            *
      1892                            *        INPUT:   NUMBER IS IN X3
      1893                            *                 XT1 HAS BYTE INDEX TO OUTPUT AREA  (LSTBF)
      1894                            *
      1895   04 004B1                 DECEDIT  RES      0
      1896   04 004B1    22600004 A            LI,X6    4                 INDEX TO TENS TABLE
      1897   04 004B2                 DECED1   RES      0                 FIND NUMBER OF SIGNIF. DIGITS
      1898   04 004B2    313C04BE              CW,X3    TENS,X6
      1899   04 004B3    681004B5              BGE      DECED2            1ST DIGIT FOUND
      1900                            *
      1901   04 004B4    646004B2              BDR,X6   DECED1
      1902                            *
      1903   04 004B5                 DECED2   RES      0
      1904   04 004B5    22200000 A            LI,X2    0
      1905   04 004B6    362C04BE              DW,X2    TENS,X6           CONVERT AND
      1906   04 004B7    203000F0 A            AI,X3    '0'                 STORE NEXT
      1907   04 004B8    753A0000 X            STB,X3   LSTBF,XT1           DIGIT
      1908   04 004B9    20500001 A            AI,XT1   1                 BUMP OUTPUT INDEX
      1909   04 004BA    32300002 A            LW,X3    X2                REMAINDER -> DIVIDEND
      1910   04 004BB    206FFFFF A            AI,X6    -1                BUMP TO NEXT TENS ENTRY
      1911   04 004BC    681004B5              BGEZ     DECED2            BRIF NOT DONE
      1912                            *
      1913   04 004BD    680E0000 A            EXIT     RL
      1914                            *
      1915   04 004BE    00000001 A   TENS     DATA     1,10,100,1000,10000
             04 004BF    0000000A A
             04 004C0    00000064 A
             04 004C1    000003E8 A
             04 004C2    00002710 A
1
      1917                            *
      1918                            *  N E X T % P G
      1919                            *        GET NEXT PAGETBL BIT
      1920                            *
      1921                            *        INPUT:   X2 HAS # BITS REMAINING IN CURRENT PAGETBL WORD
      1922                            *                 X1 HAS INDEX TO CURRENT PAGETBL WORD
      1923                            *                 X4 HAS PARTIAL PAGETBL WORD
      1924                            *
      1925                            *        OUTPUT:  X4 AND COMPARITOR HAVE NEXT PAGETBL BIT
      1926                            *                 RETURN TO CALL+1 IF END-OF-PAGETBL;  ELSE TO CALL+2
      1927                            *
      1928         00000001                    DO       SYS=BPMUTS
      1929   04 004C3                 NEXT%PG  RES      0
      1930   04 004C3    642004C8              BDR,X2   NXT%PG1           DEC. PG COUNT.  BRIF MORE PAGES
      1931                            *
      1932   04 004C4    651004C6              BIR,X1   NXT%PG2           BUMP PAGETBL INDEX AND BRANCH
      1933                            *
      1934   04 004C5    680E0000 A            EXIT     RL                END-OF-PAGETBL EXIT
      1935                            *
      1936   04 004C6                 NXT%PG2  RES      0
      1937   04 004C6    32520004 N            LW,X5    PAGETBL+4,X1      NEXT PAGETBL WORD
      1938   04 004C7    22200020 A            LI,X2    32                PAGE COUNT FOR THIS WORD
      1939   04 004C8                 NXT%PG1  RES      0
      1940   04 004C8    25400101 A            SLD,X4   1                 NEXT PAGE-USED BIT -> X4
      1941   04 004C9    4B4004F4              AND,X4   =1                SET COMPARITOR
      1942   04 004CA    680E0001 A            B        1,RL              NORMAL EXIT
      1943                            *
      1944                                     FIN
1
      1946                            *
      1947                            *   H E X E D I T
      1948                            *        THIS ROUTINE CONVERTS A NUMBER TO HEXADECIMAL AND STORES IT
      1949                            *          IN THE LIST BUFFER
      1950                            *
      1951                            *        INPUT:   NUMBER OF DIGITS TO STORE IS IN REGISTER AM
      1952                            *                 INDEX TO LEFT-MOST CHAR POSITION OF LIST BUFFER IS
      1953                            *                   IN REGISTER XT1
      1954                            *                 NUMBER TO CONVERT IS LEFT-ADJUSTED IN REGISTER X3
      1955                            *
      1956                            *        OUTPUT:  REGISTER AM IS ZERO
      1957                            *                 REGISTER XT1 IS INDEX TO NEXT CHAR POSITION OF LIST
      1958                            *                   BUFFER TO BE STORED
      1959                            *
      1960   04 004CB                 HEXEDIT  RES      0
      1961   04 004CB    22200000 A            LI,X2    0                 SHIFT HIGH ORDER HEX DIGIT
      1962   04 004CC    25200104 A            SLD,X2   4                   TO LOW ORDER OF REGISTER X2
      1963   04 004CD    722404D2              LB,X2    HEXTABLE,X2       CONVERT IT TO A HEX CHARACTER
      1964   04 004CE    752A0000 X            STB,X2   LSTBF,XT1           AND STORE IT IN LIST BUFFER
      1965   04 004CF    20500001 A            AI,XT1   1                 INCREMENT INDEX TO LIST BUFFER
      1966   04 004D0    641004CB              BDR,AM   HEXEDIT           CONTINUE UNTIL ALL DIGITS CONVERTED
      1967   04 004D1    680E0000 A            EXIT     RL
      1968                            *
      1969   04 004D2    F0F1F2F3 A   HEXTABLE TEXT     '0123456789ABCDEF'  TABLE OF HEX CHARACTERS
             04 004D3    F4F5F6F7 A
             04 004D4    F8F9C1C2 A
             04 004D5    C3C4C5C6 A
1
      1971                            *
      1972                            *
      1973                            *   P R I N T
      1974                            *        PRINT THE CONTENTS OF LIST BUFFER ON 'LO' AND 'DO' FILES
      1975                            *
      1976                            *        INPUT:   REGISTER XT1 CONTAINS THE NUMBER OF BYTES IN LIST
      1977                            *                   BUFFER
      1978                            *
      1979                            *        USES REGISTER
      1980                            *                 AM, IOADD, IOSIZE, IORL.
      1981                            *
      1982   04 004D6                 PRINT    RES      0
      1983   04 004D6    35700001 A            STW,RL   AM
      1984   04 004D7    22800000 N            LI,IOADD LSTBF             ADDRESS OF LIST BUFFER
      1985   04 004D8    32900005 A            LW,IOSIZE XT1              NUMBER OF BYTES TO OUTPUT
      1986   04 004D9    6AA00000 X            BAL,IORL WRITELO           WRITE ON 'LO' FILE
      1987   04 004DA    6AA00000 X            BAL,IORL WRITEDO           WRITE ON 'DO' FILE
      1988   04 004DB    68020000 A            EXIT     AM
1
      1990                            *
      1991                            *   S N A P R I N T
      1992                            *        PRINT THE CONTENTS OF LIST BUFFER ON 'LO' AND/OR 'DO'
      1993                            *          IF THEY ARE NOT ASSIGNED TO A TERMINAL
      1994                            *
      1995                            *        INPUT:   REGISTER XT1 CONTAINS THE NUMBER OF BYTES IN LIST
      1996                            *                   BUFFER
      1997                            *
      1998                            *        USES REGISTER
      1999                            *                 IOADD, IOSIZE, IORL
      2000                            *
      2001   04 004DC                 SNAPRINT RES      0
      2002   04 004DC    22800000 N            LI,IOADD LSTBF             ADDRESS OF LIST BUFFER
      2003   04 004DD    32900005 A            LW,IOSIZE XT1              NUMBER OF BYTES TO OUTPUT
      2004         00000001                    DO       SYS=BPMUTS
      2005   04 004DE    33000000 X            MTW,0    LO%ONLINE         BRANCH IF 'LO' IS ASSIGNED TO A
      2006   04 004DF    693004E3              BNEZ     SNAPRT1             TERMINAL
      2007                                     FIN
      2008   04 004E0    15600002 A            STD,X6   X2
      2009   04 004E1    6AA00000 X            BAL,IORL WRITELO           WRITE ON 'LO'
      2010   04 004E2    12600002 A            LD,X6    X2
      2011   04 004E3                 SNAPRT1  RES      0
      2012         00000001                    DO       SYS=BPMUTS
      2013   04 004E3    33000000 X            MTW,0    DO%ONLINE         EXIT IF 'DO' IS ASSIGNED TO A
      2014   04 004E4    693E0000 A            EXIT,NE  RL                  TERMINAL
      2015                                     FIN
      2016   04 004E5    6AA00000 X            BAL,IORL WRITEDO           WRITE ON 'DO'
      2017   04 004E6    680E0000 A            EXIT     RL
      2018                                     END
             04 004E7    40404040 A
             04 004E8    2C00006E A
             04 004E9    085B7AE2 A
             04 004EA    E3C4C4C5 A
             04 004EB    05C6E7F1 A
             04 004EC    05C6E7F2 A
             04 004ED    05C6E7F3 A
             04 004EE    05F2D2C6 A
             04 004EF    0000000F A
             04 004F0    0000003F A
             04 004F1    0001FFFF A
             04 004F2    000000FF A
             04 004F3    FFFFFFF8 A
             04 004F4    00000001 A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 0004E   PT 0     03 00000   PT 0     04 004F5   PT 1
                             05 00000   PT 0     06 00071   PT 1
1
  *    SYMBOL VALUES
           AB%%51/04 00362          AB%%61/04 0039B          AB%%71/04 003B3          AB%0/04 0032D
           AB%00/04 00337           AB%01/04 0033F           AB%010/04 003D4          AB%011/04 003DB
           AB%012/04 003E2          AB%013/04 003EB          AB%014/04 003F2          AB%015/04 003F9
           AB%016/04 00403          AB%018/04 0041F          AB%018A/04 00427         AB%018B/04 00434
           AB%019/04 0043D          AB%02/04 00347           AB%020/04 0044C          AB%021/04 00455
           AB%023/04 00460          AB%024/04 00469          AB%025/04 00477          AB%03/04 0034E
           AB%04/04 00356           AB%05/04 00372           AB%06/04 003AC           AB%07/04 003B5
           AB%08/04 003BF           AB%09/04 003C9           AB%1/04 0033D            AB%10/04 003D2
           AB%11/04 003D9           AB%12/04 003E0           AB%13/04 003E9           AB%14/04 003F0
           AB%15/04 003F7           AB%16/04 00401           AB%17/04 0035D           AB%18/04 0040A
           AB%18A/04 0040C          AB%18C/04 00417          AB%19/04 00439           AB%2/04 00345
           AB%20/04 00445           AB%21/04 00453           AB%23/04 0045D           AB%24/04 00467
           AB%25/04 00475           AB%27/04 003F0           AB%3/04 0034C            AB%4/04 00354
           AB%5/04 0035D            AB%6/04 00399            AB%7/04 003B2            AB%8/04 003BD
           AB%9/04 003C7            ABORT%CODE/02 00021      ABORT%1/04 0025B         ABORT%10/04 002DA
           ABORT%2/04 0025C         ABORT%3/04 0025D         ABORT%4/04 00264         ABORT%5/04 00278
           ABORT%7/04 002D3         ABORT%9/04 002D8         ABORTAP/04 0030A         ABORTSYS/04 00305
           ABORT10/0000000A         ABORT11/0000000B         ABORT12/0000000C         ABORT9/00000009
           ABRTBASE/04 0032D        ABRTTBL/04 0024D         ABSIZE/0000001C          ACCT%OK/04 0009F
           ADDRFLD/0001FFFF         AM/00000001              APCODE/04 00319          APDATA/04 0030F
           APD1/04 00312            APMODULE/04 0031C        APOPTFLG/04 00315        AR/00000000
           BAD%SYNTAX/04 000E7      BLANK%SWITCH/02 00022                             BLANKS/02 00024
           BPMUTS/00000002          BUF%PRINT/02 0003A       CCI%SEG/04 002E9         CLR%MOVE/04 00483
           COLLECT%OPTION/04 00051                           COLON%SYS/04 0023E       CONC%SEG/04 002FD
           CPRABNEO/00000004        CPRERREO/00000003        CTL%CARD/02 00026
           CTL%CARD%DISPLAY/02 00024                         D%1/04 00387             D%10/04 00390
           D%11/04 00391            D%12/04 00392            D%13/04 00393            D%14/04 00394
           D%15/04 00395            D%16/04 00396            D%17/04 00397            D%2/04 00388
           D%3/04 00389             D%4/04 0038A             D%5/04 0038B             D%6/04 0038C
           D%7/04 0038D             D%8/04 0038E             D%9/04 0038F             DCBMSG/04 00387
           DCBSIZE/00000010         DCBTABLE/04 00377        DECEDIT/04 004B1         DECED1/04 004B2
           DECED2/04 004B5          DEF%SEG/04 002F1         DELETED/04 002D8         DOBIT/00000100
           DUMP%SW/04 00326         D1/00000006              EADRFLD/0001FFFE         END%SEG/04 002F9
           FIND%LAST/04 002C1       FIND%L1/04 002BF         FIND%L2/04 002C2         FIND%VARP/04 00227
           FIND%1ST/04 002BA        GEN%SEG/04 002F5         GET%NEXT%CHAR/04 000F1
           GET%NEXT%NONBLANK/04 000F2                        GET%NEXT%RETURN/02 00020
           GETSEQ/04 000CA          GETSEQ1/04 000CB         GOBIT/00000080           HEXDUMP/04 0048E
           HEXDUMP1/04 00498        HEXEDIT/04 004CB         HEXTABLE/04 004D2        IDENTBL/04 00117
           IGNORE%TRAPS/04 0021D                             ILLEGAL%OPTION/04 000DD
           IOADD/00000008           IORL/0000000A            IOSIZE/00000009          K:BCKEND/00000141
           K:BPEND/00000153         K:CCBUF/00000144         K:PAGE/00000174          LINE#MSG/04 00300
           LOBIT/00000001           MOVE/04 00487            MOVE1/04 00488           MSGS/00000007
           NCDR%SEG/04 002EF        NEXT%OPTION/04 0004C                              NEXT%PG/04 004C3
           NEXT%PRT/04 002C8        NXT%PG1/04 004C8         NXT%PG2/04 004C6         NXTCMP/04 004A6
           NXTLOC/04 00492          NXTWORD/04 00499         OPEN%SYS/04 0017E        OPEN%TEMPS/04 0016B
           OPENBO/04 001DC          OPENC/04 001DF           OPENCI/04 00203          OPENCO/04 00215
           OPENDO/04 001E1          OPENDO1/04 001F3         OPENEND/04 001C0         OPENFPT/04 001B7
           OPENGO/04 001F5          OPENLO/04 001C0          OPENLO2/04 001D9         OPENLO3/04 001D8
           OPENSI/04 001FE          OPENSO/04 00205          OPENSTD/04 001F8         OPENSTD%SYS/04 001FA
           OPENSTDOUT/04 001FC      OPENX1/04 001A3          OPENX2/04 001A6          OPENX2KF/04 001AC
           OPENX3/04 001A9          OPNJN1/04 001AF          OPNJOIN/04 001AE         OPTION%IGNORED/04 00237
           OPTION%NAMES/04 0000B                             OPTIONS%DONE/04 0013A
           PATCH/02 00000           PRINT/04 004D6           PRINT%SWITCH/02 00023
           RBM/00000003             READ%CTL%CARD/04 0010A                            RL/00000007
           RO%R7/04 00322           R0/00000000              R10/0000000A             R11/0000000B
           R12/0000000C             R13/0000000D             R14/0000000E             R15/0000000F
           R8/00000008              R8%R15/04 00324          R9/00000009              S:S/FUNC
           SALUTE%END/04 0000A      SALUTE%START/04 00000                             SAVEREGS/FFFFFFF0  S
           SDFNOTHR/04 001A1        SEARCH%OPTIONS/04 00058                           SEG%MSG/04 002E3
           SEQEND/04 000D5          SET%DEFAULTS/04 00137                             SFTBL/04 000DB
           SNAPRINT/04 004DC        SNAPRT1/04 004E3         SR1/00000008             SR2/00000009
           SR3/0000000A             SR4/0000000B             STDERR5/04 0019F         SYS/00000002
           TENS/04 004BE            TEST%BO/04 00160         TEST%CI/04 0017B         TEST%CO/04 0015D
           TEST%GO/04 00163         TEST%PD/04 00175         TEST%SI/04 00178         TEST%SO/04 0015A
           TEST%STD/04 00170        TEST%TEMPS/04 00166      XT/00000004              XT1/00000005
           XT2/00000006             XW/00000002              X1/00000001              X2/00000002
           X3/00000003              X4/00000004              X5/00000005              X6/00000006
           X7/00000007              8BLANKS/02 00024         %06/04 00154             %12/04 00042
           #SIMPLE%OPTIONS/0000000F                          #0/00000200              #1/00000100
           #11/00000400             #12/00000800             #2/00000080              #3/00000040
           #4/00000020              #5/00000010              #6/00000008              #7/00000004
           #8/00000002              #9/00000001
  *    EXTERNAL DEFINITIONS
           AP%ABORT/04 00240        CCI1/04 00000            CTL%CARD%INTERPRETER/04 0001A
           STDERROR/04 0018D        XAPDATA/02 00000         XAPD1/03 00000
  *    PRIMARY REFERENCES
           ABN%%STD       ABN%%X1        ABN%%X2        ABN%%X3        ABN%%X4        ABORT          AC%FLAG
           ACCOUNTS       ASSEMBLE%FLAG                 BA%FLAG        BO%FLAG        BO%IDWDS       BYX1SIZE
           BYX3SIZE       CI%FLAG        CLOSE%FILES    CLRLSTBF       CO%FLAG        CO%IDWDS       CO%SIZE
           CORRESWD       DC%FLAG        DO%ONLINE      ENDCORE        ERR%%BO        ERR%%CI        ERR%%CO
           ERR%%DO        ERR%%GO        ERR%%LO        ERR%%SI        ERR%%SO        ERR%%STD       ERR%%X1
           ERR%%X2        ERR%%X3        ERR%%X4        F:STD          F:SYS          F:X1           F:X2
           F:X2KF         F:X3           F:X5           GO%FLAG        INIT%TUNITS    LINE%TYPE      LO%FLAG
           LO%ONLINE      LOWCORE        LS%FLAG        LSTBF          LU%FLAG        M:BO           M:C
           M:CI           M:CO           M:DO           M:GO           M:LL           M:LO           M:SI
           M:SO           M:UC           MAJLINE        MPX1           ND%FLAG        NS%FLAG
           NUM%PAGE%LINES                OPTION%FLAGS                  PAGETBL        PD%FLAG        PGLINES
           ROOTRTN        SAVAREA        SD%FLAG        SDFCON         SDFSYS         SDFSYS%SIZE    SEGMENT#
           SI%FLAG        SO%ADJ%FPT     SO%ADJ%NAME    SO%FLAG        SO%KEY         SU%FLAG        SUBLINE
           SYSLEVEL       SYSNAME        TRAPLOC        WDX3SIZE       WRITEDO        WRITELO        XAPCODE
           X3BUF          #ACCTS
  *    SECONDARY REFERENCES
           J:JIT          JOPT           TPEXT          TPOVT          TUEXT          TUOVT
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
