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




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




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




                                   AAAAAAAAAAA     PPPPPPPPPPPP      CCCCCCCCCCC     DDDDDDDDDDD
                                  AAAAAAAAAAAAA    PPPPPPPPPPPPP    CCCCCCCCCCCCC    DDDDDDDDDDDD
                                  AA         AA    PP         PP    CC         CC    DD         DD
                                  AA         AA    PP         PP    CC               DD         DD
                                  AA         AA    PP         PP    CC               DD         DD
                                  AAAAAAAAAAAAA    PPPPPPPPPPPPP    CC               DD         DD
                                  AAAAAAAAAAAAA    PPPPPPPPPPPP     CC               DD         DD
                                  AA         AA    PP               CC               DD         DD
                                  AA         AA    PP               CC               DD         DD
                                  AA         AA    PP               CC         CC    DD         DD
                                  AA         AA    PP               CCCCCCCCCCCCC    DDDDDDDDDDDD
                                  AA         AA    PP                CCCCCCCCCCC     DDDDDDDDDDD




ASSIGN M:CI,(FILE,CI:APCD,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APCD,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    ABN
            208/M:READ     224/M:READ     280/M:WRITE    309/M:WRITE    321/M:WRITE    517/M:WRITE
            649/M:READ     651/M:READ     737/M:READ     855/M:READ    1155/M:READ    1205/M:READ
           1230/M:READ
    ABN%%C
           1205/M:READ    1251-RES
    ABN%%SI
            224/M:READ     224/M:READ     883-RES
    ABN%%X1
           1230/M:READ    1241-RES
    ABN%%X2
            116/REF        882/BNE
    ABNOK
            660/BE         663-EQU
    ABNSI10
            852/BNEZ       899/BNEZ       904-RES
    ABNX2KF
            649/M:READ     651/M:READ     657-EQU
    ABORT
             96/REF
    ABORT13
             52-EQU        810/ABORT
    ABORT14
             53-EQU        902/ABORT
    ABORT15
             54-EQU       1187/ABORT
    ABORT16
             55-EQU       1189/ABORT
    ABORT17
             56-EQU        670/ABORT
    ABORT18
             57-EQU        748/ABORT
    ABORT19
             58-EQU        772/ABORT
    ABORT20
             59-EQU        793/ABORT
    ABORT23
             60-EQU        920/ABORT
    ABORT24
             61-EQU        922/ABORT
    ABSVAL
            173/RES        185/RES
    ACCOUNTS
             90/REF       1031/LB        1036/LD
    ADRDCB
             98/REF        201/STW        574/STW        854/M:READ*    861/LH*        880/LW
           1154/M:READ*
    ALFNUM
            424/LB         444-DATA
    APPEL%CI%SI
            222/BE         243-RES
    AR
             51-EQU
    BA%FLAG
            121/REF        808/MTW        900/MTW
    BADCTRL
            690/B          775/BNE        777/BE         791-RES       1143/BNE
    BLANC
             99/REF        342/LW         976/LW        1000/LW        1221/LW
    BPMUTS
             33-EQU         35/EQU         40/DO         160/DO1        176/DO         284/DO         648/DO1
            943/DO        1071/DATA
    BUF
            207/M:READ     223/M:READ     279/M:WRITE    310/M:WRITE    322/M:WRITE    518/M:WRITE
            649/M:READ     651/M:READ     736/M:READ     854/M:READ    1128/M:READ    1154/M:READ
           1206/M:READ    1231/M:READ
    BUFSI
             71/DEF        158-RES        159/EQU        217/STW        223/M:READ     279/M:WRITE
            310/M:WRITE    322/M:WRITE    343/STW        345/STB        351/STB        400/LB         585/LB
            823/EQU        854/M:READ     856/LB         907/STW       1154/M:READ    1156/LB
           1206/M:READ    1217/LM        1219/LM        1231/M:READ
    BUFSIEND
            159-EQU        868/LB         874/STB
    BUMP%BLANKS
            385-RES        403/BE
    BUMP%MAJOR
            232/B          245/B          361-RES        911/LI
    BUMP%MINOR
            587/BNE        603-RES
    BYX1SIZE
             80/REF       1266/M:DEVICE
    CARDSEQ
             82/REF        509/BAL
    CAR1
             37-RES         62/DEF        156/USECT      559/USECT      816/USECT
    CAR2
             39-RES         62/DEF        189/USECT      566/USECT      824/USECT
    CHOOSE%LINE
            257-EQU        262/B
    CI%BSAV
            171-RES        952/STW       1085/LW
    CI%BUFR
            207/M:READ     209/LB         216/LW         721/LW         736/M:READ     738/LB         745/CB
            747/LW         750/LB         751/AH         753/AND        759/LB         763/LB         768/CB
            771/LW         822-RES        919/LW         951/LW        1086/STW       1128/M:READ    1136/LB
    CI%CARD
            679/STW        688/STB        780/STW        823-EQU
    CI%DCB
             97/REF        207/M:READ*    223/M:READ*    228/LH*        235/LW         736/M:READ*    949/STW
           1089/STW       1126/M:PRECORD*               1128/M:READ*
    CIRDREGS
             76/DEF        678/LM         817-EQU       1057/STM       1140/LM
    CIREC#
             76/DEF        226/MTW        563-RES        744/LW         766/MTW        770/LW         792/LW
            806/MTW        918/LW         956/LW         964/STW       1120/STW
    CIREGS
            815-DATA      1056/LM
    CLOSESYS
            955/BAL       1061-RES       1091/BAL
    CLRLSTBF
             95/REF       1160/BAL
    CNTERM
             81/REF       1247/B         1256/B
    CO%BUF
             78/DEF        484/STW        494/LB         498/STB        505/STM        506/LI
            518/M:WRITE    524/STW        528/STB        531/MTB        549/STW        552/STB        560-RES
    CO%FLAG
            100/REF        272/MTW        375/MTW        499/MTH        507/LB         604/MTW        836/MTW
           1175/MTW
    CO%IDWDS
             82/REF        503/LM         512/MTW
    CO%REGI
             78/DEF        382/LM         394/STM        543/LM         562-RES
    CO%REGO
            542/STM        556/LM         561-RES
    CO%SIZE
             83/REF        519/M:WRITE
    COMPAR%VAL%LAST
            596/BNE        609-EQU
    COMPTE%CI
             72/DEF        162-RES        259/CW         267/MTW        834/AWM
    CORRESWD
             84/REF       1214/MTB
    DC%FLAG
             85/REF       1200/LH
    DECODE%CI%SI
            244/BAL        271/BAL        676-EQU        840/BAL
    DEUX
            148-EQU
    ECRIRE%CO
            273/BNEZ       380-EQU
    ENDFILE
            692/B          773-EQU
    ENDFILE1
            778-RES        790/B
    ENDFILE2
            785-RES        807/BGZ
    ENDITALL
           1083/BLZ       1131-RES
    ENDITALL1
           1134/BAZ       1147/BNE       1149/BGZ       1158/BE        1172/BEZ       1174-RES       1182/BE
           1184/BE
    ENDITALL2
           1138/BE        1144-RES
    ENDITALL3
           1162-RES       1165/BDR
    ENDITALL4
           1150/LI        1153-RES
    ENDITALL5
           1155/M:READ    1155/M:READ    1179-RES
    ENDITALL6
           1152/B         1159-RES       1185/B
    ENDMOVE
           1019/BNE       1028-RES
    ENDMSG
            906/LW         913-TEXT       914/EQU
    ENDMSIZE
            905/LI         906/LW         907/STW        909/LI         914-EQU
    EODCNT
            119/REF        890/MTW        892/MTW
    EODCNTCI
            120/REF        801/MTW        803/MTW
    EOF%FLAG
             64/DEF        167-RES        851/LW         896/MTW
    ERR
            208/M:READ     224/M:READ     280/M:WRITE    308/M:WRITE    320/M:WRITE    516/M:WRITE
            736/M:READ     855/M:READ    1155/M:READ    1204/M:READ    1229/M:READ
    ERR%%C
             86/REF       1204/M:READ    1254/BOL
    ERR%%CI
            121/REF        208/M:READ     208/M:READ     787/BNE        789/BE         800/BNE
    ERR%%CO
            114/REF        516/M:WRITE    517/M:WRITE
    ERR%%SI
            116/REF        886/BOL
    ERR%%SO
            114/REF        280/M:WRITE    280/M:WRITE    308/M:WRITE    309/M:WRITE    320/M:WRITE
            321/M:WRITE
    ERR%%X1
             87/REF       1229/M:READ    1244/BOL
    ERR%ABN
            736/M:READ     737/M:READ     795-EQU
    ERR%ABN2
            798/BE         802/BNEZ       805-RES
    EZ
            889/IF         891/IF        1215/IF
    F:SYS
            113/REF        948/LI         970/LW         971/LW         973/AND        977/STW        978/STW
            990/STB       1034/STS       1042/M:REW     1062/LW        1065/M:CLOSE   1070/GEN       1095/STW
           1096/STW       1099/STS
    F:X1
            106-EQU        109/REF       1228/M:READ    1265/M:DEVICE
    F:X2
            110/REF        572/LI         633/M:PRECORD  642/M:PRECORD
    F:X2KF
            110/REF        649/M:READ
    FCDBIT
           1060-EQU       1063/CW
    FIN%X1
             65/DEF       1246/CALL      1261-RES
    FINMAJ
            115/REF        252/MTW        665/MTW       1148/LW
    FINSH%CO
            539-EQU       1177/BAL
    FIVE%SIX
            194-DATA       885/CLM       1243/CLM       1253/CLM
    FOUNDIT
           1044/B         1055-LCI
    FWD
            631/M:PRECORD  633/M:PRECORD 1126/M:PRECORD
    GE
            301/IF
    GET%COMPRESSED%LINE
            251/BE         253/BNEZ       260/BG         266-EQU        591/LI
    GET%SYMBOLIC%LINE
            250/BL         370-EQU
    GET%SYMBOLIC%LINE1
            374-EQU        607/B
    GET6BITS
            682/BAL        696/BAL        702-EQU       1141/BAL
    GET8BITS
            699/BAL        708-EQU
    GSL%1
            372-RES        605/BNE
    HA
            506/LI
    IM@COPY
             68/DEF        928-EQU
    IM@END
             68/DEF       1078-LCI
    IM@END1
           1053/B         1080-RES
    IM@END3
           1125/BEZ       1127-RES
    IM@MAJOR
            168-EQU        234/MTW        268/MTW        362/MTW        373/MTW        838/AWM        897/LW
            960/LW         965/STW       1115/STW
    IM@MINOR
            169-EQU        270/STW        606/MTW        898/OR
    IM@NAME
             89/REF        979/LB         983/STB        984/LW        1003/LB        1007/STB       1009/LW
           1025/CB
    IM@READ
             63/DEF        197-EQU
    IM@SYS
             67/DEF        172-RES        932/STW       1052/STW
    IOADD
            136-EQU       1163/LB        1164/STB       1167/LI        1223/LI
    IORL
            138-EQU       1169/BAL       1173/BAL       1225/BAL       1237/EXIT      1262/BAL
    IOSIZE
            137-EQU       1168/LB        1224/LI
    J
            130-EQU
    KEY
            312/M:WRITE
    L
            985/AND       1033/LW        1098/LW
    LAST%OUT
            391-LI         423/BAZ
    LAST%UPDATE
             73/DEF        163-RES        599/STW        611/STW        613/LW
    LECT%MAJ%1
            230/BAL        863-RES       1212/BAL
    LECTURE%MAJ
            371/BAL        583/BAL        850-EQU        893/B
    LECTURE%MAJ%ABN
            855/M:READ     855/M:READ     879-RES
    LINE%TYPE
             98/REF        248/LW         330/LW        1132/LW        1145/LW
    LINK
             96/REF        366/B*
    LIRE%X2
            579/BEZ        582-EQU
    LNKR
            139-EQU        244/BAL        261/BAL        269/LI         270/STW        271/BAL        557/B*
            623/B*         627/BEZ*       635/B*         644/B*         776/CI         784/B*         788/CI
            835/STW        840/BAL        844/LW        1177/BAL
    LO%FLAG
            101/REF       1170/LW
    LOAD%DM
            602/B          619-EQU
    LOAD%REG
            332/BNE        338/BNE        360/B          363-RES
    LSTBF
             95/REF       1164/STB       1167/LI        1218/STM       1220/STM       1222/STW       1223/LI
    LU%FLAG
            101/REF       1171/OR
    M:C
            103/REF       1203/M:READ    1210/LH
    M:CI
             88/REF       1088/LI
    M:CO
             88/REF        515/M:WRITE
    M:LO
             88/REF
    M:SI
             88/REF        200/LI         333/LI         881/CI
    M:SO
             88/REF        279/M:WRITE    307/M:WRITE    319/M:WRITE
    M:X1
            105/REF        106/EQU
    M:X2
            107/REF        570/LI         631/M:PRECORD  640/M:PRECORD
    M:X4
            107/REF        651/M:READ
    MAJLINE
             91/REF        168/EQU
    MAXSI
            150-EQU        159/EQU        864/AI
    MAXSYS
            182-EQU        184/RES        935/CI        1069/DATA
    MOVESYSNAME
           1020-RES       1026/BL
    N
            631/M:PRECORD  633/M:PRECORD  640/M:PRECORD  642/M:PRECORD 1126/M:PRECORD
    NB
            129-EQU        658/LB         659/CI         661/CI         796/LB         797/CI         799/CI
           1180/LB        1181/CI        1183/CI
    NE
            290/IF         295/IF        1202/IF
    NEWKEY
            313/M:WRITE
    NEXT%OUT
            387-RES        428/B          437/B
    NEXT%UPDATE
             73/DEF        164-RES        258/LW         600/STW        610/STW        614/SW
    NEXTCI
            715/BAL        728/BAL        735-EQU        804/B
    NIVO
            115/REF        203/MTW        888/MTW        933/MTW        934/LW        1017/LW        1081/MTW
           1121/MTW
    NIVO%1
            206/BGZ        220-RES
    NIVO%2
            211/BE         213/BE         238-RES
    NIVO%3
            219/B          225-RES
    OPT%SO
            274-EQU        376/BEZ        395/B
    OPT%SO1
            278/BEZ        281-RES
    OPT%SO2
            347-RES        355/BG         358/BNE
    OPT%SO3
            352-RES        356/BE
    OPT%SO4
            236/B          334-RES
    ORG
           1267/M:DEVICE
    PLUS
             73/DEF        170-RES        578/MTW        580/MTW        622/MTW
    POINT%X2
            621/BEZ        624-EQU
    PRECORD%BACK
            628/BLZ        636-EQU
    PRINT%ER1
            742/BNE        917-EQU
    PRINT%ER2
            859/BE         921-RES
    PUT%CHAR
            384/B          388/BIR        399-RES
    PUT%CHAR1
            390/B          401-RES
    PUT%CO%
            490-EQU        554/BAL
    PUT%CO%1
            500/BEZ        513-RES
    PUT6BITS
            392/BAL        415/BAL        418/BAL        427/BAL        434/BAL        469-AI         546/BAL
    PUT6BIT2
            470/BLZ        474-SLS
    PUT6BIT3
            476/BE         483-LI
    PUT6BIT4
            468/B          482/B          484-STW
    PUT8BITS
            436/BAL        459-AI
    PUT8BIT2
            460/BLZ        464-SLS
    PUT8BIT3
            466/BNE        477-RES
    R
            132-EQU        248/LW         249/CI         258/LW         259/CW         342/LW         343/STW
            344/LI         345/STB        348/LI         349/DW         350/AI         351/STB        570/LI
            572/LI         574/STW        585/LB         586/CI         868/LB         869/CI         871/CI
    RBM
             34-EQU         44/DO         104/DO         183/EQU        223/M:READ     231/DO         276/DO
            569/DO         630/DO         639/DO         650/DO1        854/M:READ     969/DO        1030/DO
           1041/DO        1092/DO        1154/M:READ    1264/DO
    READ%UPDATE
            261/BAL        568-EQU
    READ%X2KF
            592/BAL        647-EQU       1151/BAL
    READC
             69/DEF       1197-RES
    REGS567
            783/STM        819-RES        967/LM        1113/STM
    REG6
            242/STW        820-RES
    REG7
            821-RES
    RESTORE
            364-LCI       1058/B         1122/BEZ       1129/B         1176/BEZ       1178/B
    RETOUR
            141-EQU        230/BAL        371/BAL        583/BAL        592/BAL        652/B*         865/BGEZ*
            877/B*         911/LI        1151/BAL       1212/BAL
    RETRO
            140-EQU        601/BAL        612/BAL        664/BAL        833/BEZ*       845/B*        1135/BAL
    REV
            640/M:PRECORD  642/M:PRECORD
    REWX1
             92/REF       1262/BAL
    RL
            131-EQU       1160/BAL
    ROOTEXIT
            117/REF        809/BNEZ       901/BNEZ
    R1
            133-EQU        340/LW         341/AND        357/CI         832/LW         834/AWM        838/AWM
            866/LI         874/STB        910/LI
    R8
            125-EQU        216/LW         217/STW        939/LD         940/STD        941/LD         942/STD
            944/LD         945/STW        951/LW         952/STW        956/LW         958/STB        959/PSW
            960/LW         961/PSW        962/LI         963/STW        964/STW        965/STW        976/LW
            977/STW        978/STW        988/LB         990/STB       1000/LW        1001/STW       1013/LB
           1014/STB       1017/LW        1018/CI        1022/LB        1023/STB       1031/LB        1032/SLS
           1034/STS       1036/LD        1037/STW       1062/LW        1063/CW        1085/LW        1086/STW
           1097/LW        1099/STS       1117/LB        1118/STW       1136/LB        1137/CI
    R9
            126-EQU        946/STW        957/LW         958/STB       1033/LW        1038/STW       1098/LW
    SAVAREA
             93/REF        199/STM        365/LM         930/STM       1079/STM       1199/STM       1236/LM
    SIZE
            207/M:READ     223/M:READ     279/M:WRITE    311/M:WRITE    323/M:WRITE    519/M:WRITE
            649/M:READ     651/M:READ     736/M:READ     854/M:READ    1128/M:READ    1154/M:READ
           1207/M:READ    1232/M:READ    1266/M:DEVICE
    SKIP%COMPRESSED
            601/BAL        612/BAL        664/BAL        831-EQU       1135/BAL
    SKIP%COUNT
             74/DEF        165-RES        616/STW        832/LW         842/MTW
    SKIP%C1
            837/BNEZ       839-RES        843/BGZ
    SKIP%C2
            776/CI         788/CI         841-RES
    SO%FLAG
            100/REF        277/MTW        289/MTW
    SO%KEY
            111/REF        294/LW         306/STW        312/M:WRITE
    SO%KEY%INC
            152-EQU        154/EQU        304/AV
    SO%KEY%INC1
            153-EQU        302/AV
    SO%KEY%LIM
            154-EQU        300/CV
    SORTIE%ABANDON
            662/BNE        669-EQU
    SPECIALS
            429/LB         430/CB         442-TEXTC
    SR3
            124-EQU        796/LB         884/LB         906/LW         907/STW       1045/LB        1045/LB
           1046/CI        1242/LB        1252/LB
    STACK
            184-RES       1068/DATA
    STKINIT
            939/LD        1068-DATA
    STKL
            183-EQU        184/RES       1069/DATA
    SUBLINE
             91/REF        169/EQU
    SUITE%TEST
            204/BEZ        246-EQU
    SUITE%ZAP
            872/BNE        875-EQU
    SYS
             35-EQU         40/DO          44/DO         104/DO         160/DO1        176/DO         183/EQU
            223/M:READ     231/DO         276/DO         284/DO         569/DO         630/DO         639/DO
            648/DO1        650/DO1        854/M:READ     943/DO         969/DO        1030/DO        1041/DO
           1071/DATA      1092/DO        1154/M:READ    1264/DO
    SYSABN
             70/DEF       1045-LB
    SYSACCT
            180-RES        946/STW        997/LM        1037/STW       1038/STW       1103/STW       1104/STW
    SYSFILE
            178-RES        945/STW        994/LM        1001/STW       1008/STB       1014/STB       1108/STM
    SYSINIT
            941/LD        1070-GEN
    SYSINIT1
            944/LD        1073-DATA
    SYSNAME
             96/REF       1023/STB       1027/STB
    SYSOPEN
            174-EQU        942/STD       1040/CAL1      1123/CAL1
    SYSOPNER
             77/DEF       1047/BNE       1186-EQU
    SYSSTK
            186-RES        940/STD        959/PSW        961/PSW        968/PSM        975/PSM        995/PSM
            998/PSM       1094/PLM       1102/PLM       1106/PLM       1111/PLM       1114/PLW       1116/PLW
    TEST%NIVO
            202-EQU
    TEST1%SKIP
            581/B          590-EQU
    TROIS
            149-EQU
    UN
            147-EQU        267/MTW        580/MTW        594/LI         615/AI         622/MTW
    UNBLOCK
           1267/M:DEVICE
    UPDATE%LINE%COUNT
             66/DEF        166-RES        584/MTW        626/SW         629/AWM        637/AWM
    UPDATE%LINE%ERR
           1161/LB        1163/LB        1168/LB        1190-RES
    UPDT%ERROR
            118/REF       1166/MTW
    USERRTRN
            691/B          781-RES
    VAL
            135-EQU        593/LH         599/STW        600/STW        610/STW        835/STW        844/LW
    VALID%1
            746/BE         749-RES
    VALID%2
            758-RES        761/BDR
    VALID%3
            756/BEZ        762-RES
    VALIDATE
            239/BAL        740/BE         743-LI
    VAL1
            134-EQU        595/LH         611/STW        613/LW         614/SW         615/AI         616/STW
    WAIT
            207/M:READ     223/M:READ     279/M:WRITE    314/M:WRITE    324/M:WRITE    520/M:WRITE
            737/M:READ    1042/M:REW     1208/M:READ    1233/M:READ
    WRITEDO
             94/REF       1169/BAL
    WRITELO
             94/REF       1173/BAL       1225/BAL
    X
            123-EQU        199/STM        200/LI         201/STW        205/LW         209/LB         210/CI
            212/CI         215/LI         216/LW         217/STW        218/BDR        221/CI         241/LI
            242/STW        330/LW         331/CI         335/LW         336/AND        337/CI         346/LI
            351/STB        353/AI         354/CI         365/LM         591/LI         594/LI         595/LH
            625/INT        626/SW         629/AWM        631/M:PRECORD  633/M:PRECORD  637/AWM        638/LCW
            638/LCW        640/M:PRECORD  642/M:PRECORD  666/B*         747/LW         771/LW         779/LW
            780/STW        880/LW         881/CI         884/LB         885/CLM        897/LW         898/OR
            919/LW        1148/LW        1150/LI        1156/LB        1157/CI        1210/LH        1211/SLS
    XAPDATA
             36-DSECT
    XLATETBL
            685/LB         811-EQU
    XT
            142-EQU        294/LW         300/CV         302/AV         304/AV         306/STW       1209/LI
           1210/LH        1213/LI        1214/MTB       1221/LW        1222/STW       1242/LB        1243/CLM
           1252/LB        1253/CLM
    XT1
            143-EQU
    XT2
            144-EQU       1200/LH        1201/CI
    X1
            127-EQU
    X2
            927-EQU        984/LW         985/AND        986/AW         987/AI         988/LB        1009/LW
           1010/AND       1011/AW        1012/AI        1013/LB        1022/LB        1024/AI        1104/STW
    X7
            128-EQU        509/BAL
    ZAP%LF%CR
            870/BE         873-EQU        876/BIR        912/B
    ZERO
            146-EQU        252/MTW        272/MTW        277/MTW        578/MTW
    ZONECI
            157-RES        502/STM        511/LM         593/LH         595/LH         620/MTW        625/INT
            649/M:READ     651/M:READ
    1ERLECTURE%LI
            115/REF        205/LW         214/MTW        240/MTW        957/LW         963/STW       1118/STW
    2MANYSYS
            936/BG        1188-RES
    %
            173/RES        174/EQU        185/RES        197/EQU        202/EQU        218/BDR        246/EQU
            257/EQU        266/EQU        274/EQU        370/EQU        374/EQU        380/EQU        490/EQU
            496/BIR        508/BEZ        525/BDR        539/EQU        568/EQU        582/EQU        590/EQU
            609/EQU        619/EQU        624/EQU        636/EQU        647/EQU        657/EQU        663/EQU
            669/EQU        676/EQU        686/BIR        702/EQU        708/EQU        735/EQU        773/EQU
            795/EQU        811/EQU        817/EQU        831/EQU        850/EQU        873/EQU        875/EQU
            908/BIR        914/EQU        917/EQU        928/EQU        953/BDR        981/BLE       1002/BDR
           1005/BLE       1087/BDR       1186/EQU
    #ACCTS
             90/REF       1049/CW
    #BLANKS
             75/DEF        386/MTW        404/LW         420/STW        564-RES
    #1
            679-STW        680/BIR
    #11
            705/BLZ        714-BIR
    #12
            718/B          721-LW         731/B          733/B
    #13
            711/BLZ        727-BIR
    #14
            727/BIR        732-SLD
    #18
            714/BIR        719-RES
    #2
            682-BAL        689/B          698/B
    #3
            686-BIR        700/B
    #4
            684/BL         689-B
    #5
            693/B          699-BAL
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APCD'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APCD                    %%%%%
         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   02 00000                 CAR1     RES      0
        38   03 00000                          CSECT    1
        39   03 00000                 CAR2     RES      0
        40         00000001                    DO       SYS=BPMUTS
        41         H00                         SYSTEM   BPM
        42                                     M:PT     1                 GENERATE FPT'S IN PROTECT. TYPE 1
        43                                     FIN
        44         00000000                    DO       SYS=RBM
        45                        *S*          SYSTEM   RBM
        46                                     FIN
        47                            *
        48                                     SYSTEM   AP%IL
        49                            *
        50                            *  EQUATES FOR ABORT
        51         00000000           AR       EQU      0                 ABORT REGISTER
        52         0000000D           ABORT13  EQU      13
        53         0000000E           ABORT14  EQU      14
        54         0000000F           ABORT15  EQU      15
        55         00000010           ABORT16  EQU      16
        56         00000011           ABORT17  EQU      17
        57         00000012           ABORT18  EQU      18
        58         00000013           ABORT19  EQU      19
        59         00000014           ABORT20  EQU      20
        60         00000017           ABORT23  EQU      23
        61         00000018           ABORT24  EQU      24
        62                                     DEF       CAR1,CAR2
        63                                     DEF       IM@READ
        64                                     DEF      EOF%FLAG          END-OF-FILE FLAG
        65                                     DEF      FIN%X1
        66                                     DEF      UPDATE%LINE%COUNT
        67                                     DEF      IM@SYS
        68                                     DEF      IM@END,IM@COPY
        69                                     DEF      READC
        70                                     DEF      SYSABN            ABNORMAL RETURN ON OPEN F:SYS
        71                                     DEF       BUFSI
        72                                     DEF      COMPTE%CI
        73                                     DEF      LAST%UPDATE,NEXT%UPDATE,PLUS
        74                                     DEF      SKIP%COUNT
        75                                     DEF      #BLANKS
        76                                     DEF      CIRDREGS,CIREC#
        77                                     DEF      SYSOPNER
        78                                     DEF      CO%REGI,CO%BUF
        79                            *
        80                                     REF      BYX1SIZE
        81                                     REF      CNTERM
        82                                     REF      CO%IDWDS,CARDSEQ
        83                                     REF      CO%SIZE           BYTE SIZE OF CO RECORD
        84                                     REF      CORRESWD          (LO=DO)  (LO=C)  (SI=C)  (----)
        85                                     REF      DC%FLAG
        86                                     REF      ERR%%C
        87                                     REF      ERR%%X1
        88                                     REF      M:SI,M:SO,M:CI,M:CO,M:LO
        89                                     REF      IM@NAME
        90                                     REF      ACCOUNTS,#ACCTS
        91                                     REF      MAJLINE,SUBLINE   ASSEMBLY LINE NUMBER
        92                                     REF      REWX1
        93                                     REF      SAVAREA
        94                                     REF      WRITEDO,WRITELO
        95                                     REF      CLRLSTBF,LSTBF
        96                                     REF      LINK,ABORT,SYSNAME
        97                                     REF      CI%DCB
        98                                     REF       ADRDCB,LINE%TYPE
        99                                     REF       BLANC
       100                                     REF      CO%FLAG,SO%FLAG
       101                                     REF      LO%FLAG,LU%FLAG
       102                            *
       103                                     REF      M:C
       104         00000000                    DO       SYS=RBM
       105                        *S*          REF      M:X1
       106                        *S* F:X1     EQU      M:X1
       107                        *S*          REF      M:X2,M:X4
       108                                     ELSE
       109                                     REF      F:X1
       110                                     REF       F:X2,F:X2KF
       111                                     REF      SO%KEY
       112                                     FIN
       113                                     REF      F:SYS
       114                                     REF      ERR%%CO,ERR%%SO
       115                                     REF      NIVO,FINMAJ,1ERLECTURE%LI
       116                                     REF      ERR%%SI,ABN%%X2
       117                                     REF      ROOTEXIT
       118                                     REF      UPDT%ERROR
       119                                     REF      EODCNT
       120                                     REF      EODCNTCI
       121                                     REF      ERR%%CI,BA%FLAG
       122                            *
       123         00000001           X        EQU      1
       124         0000000A           SR3      EQU      10
       125         00000008           R8       EQU      8
       126         00000009           R9       EQU      9
       127         00000002           X1       EQU      2
       128         00000007           X7       EQU      7
       129         00000005           NB       EQU       5
       130         00000007           J        EQU       7
       131         00000007           RL       EQU      7
       132         00000008           R        EQU       8
       133         00000009           R1       EQU       9
       134         0000000A           VAL1     EQU       10
       135         0000000B           VAL      EQU       11
       136         00000008           IOADD    EQU      8
       137         00000009           IOSIZE   EQU      9
       138         0000000A           IORL     EQU      10
       139         0000000C           LNKR     EQU       12
       140         0000000D           RETRO    EQU       13
       141         0000000E           RETOUR   EQU       14
       142         00000004           XT       EQU      4                 TEMP - EVEN
       143         00000005           XT1      EQU      5                 TEMP - ODD
       144         00000006           XT2      EQU      6                 TEMP INDEX
       145                            *
       146         00000000           ZERO     EQU       0
       147         00000001           UN       EQU       1
       148         00000002           DEUX     EQU       2
       149         00000003           TROIS    EQU       3
       150         00000050           MAXSI    EQU      80
       151                            *
       152         000003E8           SO%KEY%INC   EQU  1000              NORMAL 'SO' INCREMENT
       153         00000002           SO%KEY%INC1  EQU  2                 TIGHT 'SO' INCREMENT
       154         03970FE0           SO%KEY%LIM   EQU  3**24+9900*SO%KEY%INC   BREAK FOR NORMAL/TIGHT INC.
1
       156   03 00000                          USECT    CAR1
       157   02 00000                 ZONECI   RES      4
       158   02 00004                 BUFSI    RES      22
       159         02 00018           BUFSIEND EQU      BUFSI+(MAXSI/4)
       160   02 0001A                          DO1      SYS=BPMUTS
       161   02 0001A                          RES      8
       162   02 00022                 COMPTE%CI         RES  1            NEXT CI LINE NUMBER
       163   02 00023                 LAST%UPDATE       RES  1            SECOND LINE # FROM + CARD
       164   02 00024                 NEXT%UPDATE       RES  1            FIRST LINE # FROM + CARD
       165   02 00025                 SKIP%COUNT        RES  1            # COMPRESSED LINES TO SKIP
       166   02 00026                 UPDATE%LINE%COUNT RES  1
       167   02 00027                 EOF%FLAG RES      1                 0= EOF NOT YET FOUND
       168         EXT                IM@MAJOR EQU      MAJLINE           MAJOR PART OF LINE NUMBER
       169         EXT                IM@MINOR EQU      SUBLINE           SUB-LINE PART OF LINE NUMBER
       170   02 00028                 PLUS     RES      1                 '+' CARD READ IS REQUIRED
       171   02 00029                 CI%BSAV  RES      27                SAVE AREA FOR CI%BUFR WHEN IN SYST.
       172   02 00044                 IM@SYS   RES       1
       173   02 00045                          RES      ABSVAL(%)&1       BOUND 8 WITH NO ZERO'S GENERATED
       174         02 00046           SYSOPEN  EQU      %
       175   02 00046                          RES      2
       176         00000001                    DO       SYS=BPMUTS
       177   02 00048                          RES      1                 CODE WORD FOR FILE NAME
       178   02 00049                 SYSFILE  RES      8
       179   02 00051                          RES      1                 CODE WORD FOR ACCOUNT
       180   02 00052                 SYSACCT  RES      2
       181                                     FIN
       182         00000008           MAXSYS   EQU      8
       183         0000000F           STKL     EQU      15-7*(SYS=RBM)
       184   02 00054                 STACK    RES       STKL*MAXSYS
       185   02 000CC                          RES      ABSVAL(%)&1       BOUND 8 WITH NO ZERO'S GENERATED
       186   02 000CC                 SYSSTK   RES      2
1
       188                            *
       189   02 000CE                          USECT    CAR2
       190                            *
       191                            *   S T A T I C   D A T A
       192                            *
       193                                     BOUND    8
       194   03 00000    00000005 A   FIVE%SIX DATA     5,6               EOF-EOT CODES
             03 00001    00000006 A
1
       196                            *
       197         03 00002           IM@READ  EQU       %
       198   03 00002    022000F0 A            LCI       15               SAVE
       199   03 00003    2B100000 X            STM,X     SAVAREA          REGS.
       200   03 00004    22100000 N            LI,X     M:SI
       201   03 00005    35100000 X            STW,X    ADRDCB
       202         03 00006           TEST%NIVO           EQU       %
       203   03 00006    33000000 X            MTW,0    NIVO
       204   03 00007    68300027              BEZ       SUITE%TEST
       205   03 00008    32100000 X            LW,X     1ERLECTURE%LI     IS THIS 1ST RECORD IN THE SYSTEM
       206   03 00009    69200016              BGZ      NIVO%1              NO
       207                                     M:READ   *CI%DCB,(BUF,CI%BUFR),(SIZE,120),(WAIT),;
       208   03 0000A    04100000 05                    (ABN,ERR%%CI),(ERR,ERR%%CI)
             05 00000    90000000 N
                         F0000010
             05 00002    00000000 X
             05 00003    00000000 X
             05 00004    000000FA 02
             05 00005    00000078 A
       209   03 0000B    721000FA 02           LB,X     CI%BUFR
       210   03 0000C    21100038 A            CI,X     X'38'
       211   03 0000D    68300021              BE       NIVO%2            THE RECORD IS COMPRESSED
       212   03 0000E    21100018 A            CI,X     X'18'
       213   03 0000F    68300021              BE       NIVO%2
       214   03 00010    33100000 X            MTW,+1   1ERLECTURE%LI     SET LINE TYPE TO SOURCE
       215   03 00011    22100014 A            LI,X     20                MOVE THE
       216   03 00012    328200F9 02           LW,R8    CI%BUFR-1,X         LINE TO THE
       217   03 00013    35820003 02           STW,R8   BUFSI-1,X           BUFSI AREA
       218   03 00014    64100012              BDR,X    %-2
       219   03 00015    68000019              B        NIVO%3
       220   03 00016                 NIVO%1   RES      0
       221   03 00016    21100002 A            CI,X     2                 IS THIS SYSTEM IN COMPRESSED FORMAT
       222   03 00017    68300025              BE       APPEL%CI%SI         YES
       223                                     M:READ  *CI%DCB,(BUF,BUFSI),(SIZE,108-28*(SYS=RBM)),(WAIT),;
       224   03 00018    04100006 05                    (ABN,ABN%%SI),(ERR,ABN%%SI)
             05 00006    90000000 N
                         F0000010
             05 00008    000001E6 03
             05 00009    000001E6 03
             05 0000A    00000004 02
             05 0000B    0000006C A
       225   03 00019                 NIVO%3   RES      0
       226   03 00019    331000F2 02           MTW,+1   CIREC#            BUMP RECORD NUMBER
       227   03 0001A    22100008 A            LI,1     8                 GET
       228   03 0001B    D2120000 X            LH,1     *CI%DCB,1         RECORD
       229   03 0001C    2510007F A            SLS,1    -1                SIZE
       230   03 0001D    6AE001D7              BAL,RETOUR  LECT%MAJ%1     FINISH TESTING SI RECORD
       231         00000000                    DO       SYS=RBM
       232                        *S*          B        BUMP%MAJOR
       233                                     ELSE
       234   03 0001E    33100000 X            MTW,+1   IM@MAJOR          BUMP MAJOR LINE NUMBER
       235   03 0001F    32500000 X            LW,5     CI%DCB            DCB ADDRESS
       236   03 00020    6800004A              B        OPT%SO4           BRANCH TO EDIT KEY IF REQUIRED
       237                                     FIN
       238   03 00021                 NIVO%2   RES      0
       239   03 00021    6A700170              BAL,7    VALIDATE          VALIDATE CKSUM & BUMP CIREC#
       240   03 00022    33200000 X            MTW,+2   1ERLECTURE%LI     SET LINE TYPE TO COMPRESSED
       241   03 00023    221FFFE5 A            LI,X     -27               SET WORD COUNT FOR A FULL RECORD
       242   03 00024    351000F8 02           STW,X    REG6
       243   03 00025                 APPEL%CI%SI  RES   0
       244   03 00025    6AC00135              BAL,LNKR  DECODE%CI%SI
       245   03 00026    68000061              B         BUMP%MAJOR
       246         03 00027           SUITE%TEST          EQU       %
       247                            *
       248   03 00027    32800000 X            LW,R      LINE%TYPE
       249   03 00028    21800002 A            CI,R     2
       250   03 00029    69100065              BL       GET%SYMBOLIC%LINE
       251   03 0002A    68300032              BE        GET%COMPRESSED%LINE
       252   03 0002B    33000000 X            MTW,ZERO  FINMAJ
       253   03 0002C    69300032              BNEZ      GET%COMPRESSED%LINE
       254                            *
       255                            *
       256                            *  PROCESS CI RECORDS UNTIL NEXT UPDATE POINT IS REACHED.
       257         03 0002D           CHOOSE%LINE         EQU       %
       258   03 0002D    32800024 02           LW,R      NEXT%UPDATE
       259   03 0002E    31800022 02           CW,R      COMPTE%CI
       260   03 0002F    69200032              BG       GET%COMPRESSED%LINE
       261   03 00030    6AC000FA              BAL,LNKR  READ%UPDATE
       262   03 00031    6800002D              B         CHOOSE%LINE
       263                            *
       264                            *
       265                            *  READ A COMPRESSED CARD AND DECOMPRESS IT INTO 'BUFSI'.
       266         03 00032           GET%COMPRESSED%LINE EQU       %
       267   03 00032    33100022 02           MTW,UN    COMPTE%CI
       268   03 00033    33100000 X            MTW,+1   IM@MAJOR          BUMP MAJOR LINE NUMBER
       269   03 00034    22C00000 A            LI,LNKR  0                   AND CLEAR MINOR
       270   03 00035    35C00000 X            STW,LNKR IM@MINOR            LINE NUMBER
       271   03 00036    6AC00135              BAL,LNKR  DECODE%CI%SI
       272   03 00037    33000000 X            MTW,ZERO  CO%FLAG
       273   03 00038    69300069              BNEZ      ECRIRE%CO
       274         03 00039           OPT%SO   EQU       %
       275                            *
       276         00000000                    DO       SYS=RBM
       277                        *S*          MTW,ZERO  SO%FLAG
       278                        *S*          BEZ      OPT%SO1
       279                        *S*          M:WRITE  M:SO,(BUF,BUFSI),(SIZE,80),(WAIT),;
       280                        *S*                   (ERR,ERR%%SO),(ABN,ERR%%SO)
       281                        *S* OPT%SO1  RES      0
       282                                     FIN
       283                            *
       284         00000001                    DO       SYS=BPMUTS
       285                            *
       286                            *  IF THE 'SO' OPTION WAS SPECIFIED, IT IS TIME TO WRITE THE
       287                            *     SOURCE RECORD SITTING IN 'BUFSI'.
       288                            *
       289   03 00039    33000000 X            MTW,0    SO%FLAG
       290         001F0000                    IF,NE                 -02- DOIF 'SO'
             03 0003A    68300046
       291                            *
       292                            *  MUST WRITE SOURCE RECORD -- EITHER SEQUENTIALLY OR KEYED
       293                            *
       294   03 0003B    32400000 X            LW,XT    SO%KEY
       295         001F0100                    IF,NE                 -04- DOIF 'SO' TO KEYED FILE
             03 0003C    68300045
       296                            *
       297                            *  TEST KEY FOR LIMITING VALUE -- USE SMALLER INCREMENT
       298                            *     IF OVER LIMIT.
       299                            *
       300   03 0003D    31400300              CV,XT    SO%KEY%LIM
       301         001F0200                    IF,GE                 -06- DOIF AT OR OVER LIMIT
             03 0003E    69100041
       302   03 0003F    20400002 A            AV,XT    SO%KEY%INC1       SMALL INCREMENT
       303         000E0200                    ELS                    06.
             03 00040    68000042
       304   03 00041    204003E8 A            AV,XT    SO%KEY%INC        NORMAL INCREMENT
       305         00F10200                    FI                    -06-
       306   03 00042    35400000 X            STW,XT   SO%KEY            SAVE NEW KEY
       307                                     M:WRITE  M:SO,;
       308                                              (ERR,ERR%%SO),;
       309                                              (ABN,ERR%%SO),;
       310                                              (BUF,BUFSI),;
       311                                              (SIZE,80),;
       312                                              (KEY,SO%KEY),;
       313                                              (NEWKEY),;
       314   03 00043    0410000C 05                    (WAIT)
             05 0000C    11000000 N
                         F8000030
             05 0000E    00000000 X
             05 0000F    00000000 X
             05 00010    00000004 02
             05 00011    00000050 A
             05 00012    00000000 X
       315         000E0100                    ELS                    04.
             03 00044    68000046
       316                            *
       317                            *  WRITE RECORD TO SEQUENTIAL DEVICE/FILE
       318                            *
       319                                     M:WRITE  M:SO,;
       320                                              (ERR,ERR%%SO),;
       321                                              (ABN,ERR%%SO),;
       322                                              (BUF,BUFSI),;
       323                                              (SIZE,80),;
       324   03 00045    04100013 05                    (WAIT)
             05 00013    11000000 N
                         F0000010
             05 00015    00000000 X
             05 00016    00000000 X
             05 00017    00000004 02
             05 00018    00000050 A
       325         00F10100                    FI                    -04-
       326         00F10000                    FI                    -02-
       327                            *
       328                            *  EDIT THE KEY INTO THE LISTING IF THIS IS A KEYED FILE
       329                            *
       330   03 00046    32100000 X            LW,X     LINE%TYPE         EDIT ONLY FOR SI
       331   03 00047    21100001 A            CI,X     1
       332   03 00048    69300062              BNE      LOAD%REG          BRANCH IF NOT SI ONLY
       333   03 00049    22500000 N            LI,5     M:SI              DCB ADDRESS
       334   03 0004A                 OPT%SO4  RES      0
       335   03 0004A    321A0005 A            LW,X     5,5               ORGANIZATION FIELD
       336   03 0004B    4B100301              AND,X    =X'F0'
       337   03 0004C    21100020 A            CI,X     X'20'             IS ORG KEYED
       338   03 0004D    69300062              BNE      LOAD%REG
       339   03 0004E    325A000A A            LW,5     10,5              GET THE
       340   03 0004F    329A0000 A            LW,R1    0,5                 3-BYTE KEY
       341   03 00050    4B900302              AND,R1   =X'FFFFFF'        CLEAN IT
       342   03 00051    32800000 X            LW,R     BLANC
       343   03 00052    35800016 02           STW,R    BUFSI+18          CLEAR COL'S 73-76
       344   03 00053    2280004B A            LI,R     '.'               INSERT THE DECIMAL POINT
       345   03 00054    75800017 02           STB,R    BUFSI+19
       346   03 00055    22100007 A            LI,X     7
       347   03 00056                 OPT%SO2  RES      0
       348   03 00056    22800000 A            LI,R     0
       349   03 00057    36800303              DW,R     =10
       350   03 00058    208000F0 A            AI,R     X'F0'
       351   03 00059    75820016 02           STB,R    BUFSI+18,X
       352   03 0005A                 OPT%SO3  RES      0
       353   03 0005A    201FFFFF A            AI,X     -1
       354   03 0005B    21100004 A            CI,X     4                 SKIP DECIMAL POINT POSITION
       355   03 0005C    69200056              BG       OPT%SO2           DON'T TERMINATE BEFORE DEC. POINT
       356   03 0005D    6830005A              BE       OPT%SO3           SKIP DEC POINT COLUMN
       357   03 0005E    21900000 A            CI,R1    0                 TERMINATE AFTER LAST
       358   03 0005F    69300056              BNE      OPT%SO2             SIGNIFICANT DIGIT
       359                                     FIN
       360   03 00060    68000062              B        LOAD%REG
       361   03 00061                 BUMP%MAJOR   RES  0
       362   03 00061    33100000 X            MTW,+1   IM@MAJOR
       363   03 00062                 LOAD%REG RES      0
       364   03 00062    022000F0 A   RESTORE  LCI      +15
       365   03 00063    2A100000 X            LM,X      SAVAREA
       366   03 00064    E8000000 X            B         *LINK
       367                            *
       368                            *
       369                            *  READ A SYMBOLIC CARD INTO 'BUFSI' & COMPRESS IT IF CO REQUESTED.
       370         03 00065           GET%SYMBOLIC%LINE   EQU       %
       371   03 00065    6AE001CD              BAL,RETOUR LECTURE%MAJ
       372   03 00066                 GSL%1    RES      0
       373   03 00066    33100000 X            MTW,+1   IM@MAJOR
       374         03 00067           GET%SYMBOLIC%LINE1  EQU  %
       375   03 00067    33000000 X            MTW,0    CO%FLAG
       376   03 00068    68300039              BEZ       OPT%SO
       377                            *
       378                            *
       379                            *  WRITE COMPRESSED ITEMS TO CO, STARTING WITH THE CARD IN 'ZONECI'.
       380         03 00069           ECRIRE%CO           EQU       %
       381   03 00069    02200030 A            LCI      3
       382   03 0006A    2A1000EF 02           LM,1     CO%REGI
       383   03 0006B    224FFFB0 A            LI,4     -80
       384   03 0006C    68000076              B        PUT%CHAR
       385   03 0006D                 BUMP%BLANKS  RES  0
       386   03 0006D    331000F3 02           MTW,+1   #BLANKS
       387   03 0006E                 NEXT%OUT RES      0
       388   03 0006E    65400076              BIR,4    PUT%CHAR
       389   03 0006F    22500100 A            LI,5     X'100'
       390   03 00070    68000077              B        PUT%CHAR1
       391   03 00071    22800002 A   LAST%OUT LI,8     2
       392   03 00072    6A7000BC              BAL,7    PUT6BITS
       393   03 00073    02200030 A            LCI      3
       394   03 00074    2B1000EF 02           STM,1    CO%REGI
       395   03 00075    68000039              B        OPT%SO
       396                            *
       397                                     LOCAL    %10,%20,%30,%40,%50,%60,%70,%80,%90
       398                                     LOCAL    %85
       399   03 00076                 PUT%CHAR RES      0
       400   03 00076    72580018 02           LB,5     BUFSI+20,4
       401   03 00077                 PUT%CHAR1   RES   0
       402   03 00077    21500040 A            CI,5     ' '
       403   03 00078    6830006D              BE       BUMP%BLANKS
       404   03 00079    326000F3 02           LW,6     #BLANKS
       405   03 0007A    68300000 F            BEZ      %50
       406   03 0007B    22800007 A            LI,8     +7
       407   03 0007C    21600001 A            CI,6     +1
       408   03 0007D    68300000 F            BE       %40
       409   03 0007E    22800005 A            LI,8     +5
       410   03 0007F    21600040 A            CI,6     +64
       411   03 00080    68200000 F            BLE      %30
       412   03 00081    20800001 A            AI,8     +1
       413   03 00082    206FFFC0 A            AI,6     -64
       414   03 00083    206FFFFF A   %30      AI,6     -1
       415   03 00084    6A7000BC              BAL,7    PUT6BITS
       416   03 00085    32800006 A            LW,8     6
       417   03 00086                 %40      RES      0
       418   03 00086    6A7000BC              BAL,7    PUT6BITS
       419   03 00087    22600000 A            LI,6     0
       420   03 00088    356000F3 02           STW,6    #BLANKS
       421   03 00089    215000C0 A   %50      CI,5     X'C0'
       422   03 0008A    69100000 F            BL       %70
       423   03 0008B    68400071              BAZ      LAST%OUT
       424   03 0008C    728A0072              LB,8     ALFNUM-X'C0'/4,5
       425   03 0008D    68300000 F            BEZ      %85
       426   03 0008E                 %20      RES      0
       427   03 0008E    6A7000BC              BAL,7    PUT6BITS
       428   03 0008F    6800006E              B        NEXT%OUT
       429   03 00090    7260009C     %70      LB,6     SPECIALS
       430   03 00091    715C009C     %80      CB,5     SPECIALS,6
       431   03 00092    68300000 F            BE       %90
       432   03 00093    64600091              BDR,6    %80
       433   03 00094    22800004 A   %85      LI,8     4
       434   03 00095    6A7000BC              BAL,7    PUT6BITS
       435   03 00096    32800005 A            LW,8     5
       436   03 00097    6A7000B2              BAL,7    PUT8BITS
       437   03 00098    6800006E              B        NEXT%OUT
       438   03 00099    2280002B A   %90      LI,8     +43
       439   03 0009A    30800006 A            AW,8     6
       440   03 0009B    6800008E              B        %20
       441                            *
       442   03 0009C    144B4C4D A   SPECIALS TEXTC    '.<(+|&%*);~-/,%>:''='
             03 0009D    4E4F505B A
             03 0009E    5C5D5E5F A
             03 0009F    60616B6C A
             03 000A0    6D6E7A7D A
             03 000A1    7E404040 A
       443                            *
       444                            ALFNUM   DATA,1   0,18,19,20,21,22,23,24,25,26,0,0,0,0,0,0,;
       445                                              0,27,28,29,30,31,32,33,34,35,0,0,0,0,0,0,;
       446                                              0,0,36,37,38,39,40,41,42,43,0,0,0,0,0,0,;
       447   03 000A2    00       A                     8,9,10,11,12,13,14,15,16,17,0,0,0,0,0,0
             03 000A2 1  12       A
             03 000A2 2  13       A
             03 000A2 3  14       A
             03 000A3    15       A
             03 000A3 1  16       A
             03 000A3 2  17       A
             03 000A3 3  18       A
             03 000A4    19       A
             03 000A4 1  1A       A
             03 000A4 2  00       A
             03 000A4 3  00       A
             03 000A5    00       A
             03 000A5 1  00       A
             03 000A5 2  00       A
             03 000A5 3  00       A
             03 000A6    00       A
             03 000A6 1  1B       A
             03 000A6 2  1C       A
             03 000A6 3  1D       A
             03 000A7    1E       A
             03 000A7 1  1F       A
             03 000A7 2  20       A
             03 000A7 3  21       A
             03 000A8    22       A
             03 000A8 1  23       A
             03 000A8 2  00       A
             03 000A8 3  00       A
             03 000A9    00       A
             03 000A9 1  00       A
             03 000A9 2  00       A
             03 000A9 3  00       A
             03 000AA    00       A
             03 000AA 1  00       A
             03 000AA 2  24       A
             03 000AA 3  25       A
             03 000AB    26       A
             03 000AB 1  27       A
             03 000AB 2  28       A
             03 000AB 3  29       A
             03 000AC    2A       A
             03 000AC 1  2B       A
             03 000AC 2  00       A
             03 000AC 3  00       A
             03 000AD    00       A
             03 000AD 1  00       A
             03 000AD 2  00       A
             03 000AD 3  00       A
             03 000AE    08       A
             03 000AE 1  09       A
             03 000AE 2  0A       A
             03 000AE 3  0B       A
             03 000AF    0C       A
             03 000AF 1  0D       A
             03 000AF 2  0E       A
             03 000AF 3  0F       A
             03 000B0    10       A
             03 000B0 1  11       A
             03 000B0 2  00       A
             03 000B0 3  00       A
             03 000B1    00       A
             03 000B1 1  00       A
             03 000B1 2  00       A
             03 000B1 3  00       A
       448                            *  PUT AN 8-BIT ITEM INTO COMPRESSED RECORD.
       449                            *  PUT A  6-BIT ITEM INTO COMPRESSED RECORD.
       450                            *  REGISTER USAGE:
       451                            *    R1= NUMBER OF BITS LEFT AVAILABLE IN CURRENT CO WORD.
       452                            *    R3= CURRENT CO WORD RIGHT-JUSTIFIED.
       453                            *    R2= CO WORD COUNT LEFT IN CARD (NEGATIBE).
       454                            *    R8= THING TO PUT IN CARD.
       455                            *    R7= LINK REGISTER.
       456                            *    R4= ****    MUST BE PRESERVED    ****
       457                            *    R5= ****    MUST BE PRESERVED    ****
       458                            *    R6= ****    MUST BE PRESERVED    ****
       459   03 000B2    201FFFF8 A   PUT8BITS AI,1     -8
       460   03 000B3    691000B7              BLZ      PUT8BIT2
       461   03 000B4    25300008 A            SLS,3    +8
       462   03 000B5    49300008 A            OR,3     8
       463   03 000B6    680E0000 A            B        0,7
       464   03 000B7    25320008 A   PUT8BIT2 SLS,3    8,1
       465   03 000B8    212FFFFF A            CI,2     -1
       466   03 000B9    693000C4              BNE      PUT8BIT3
       467   03 000BA    22100018 A            LI,1     24
       468   03 000BB    680000CA              B        PUT6BIT4
       469   03 000BC    201FFFFA A   PUT6BITS AI,1     -6
       470   03 000BD    691000C1              BLZ      PUT6BIT2
       471   03 000BE    25300006 A            SLS,3    +6
       472   03 000BF    49300008 A            OR,3     8
       473   03 000C0    680E0000 A            B        0,7
       474   03 000C1    25320006 A   PUT6BIT2 SLS,3    6,1
       475   03 000C2    212FFFFF A            CI,2     -1
       476   03 000C3    683000C9              BE       PUT6BIT3
       477   03 000C4                 PUT8BIT3 RES      0
       478   03 000C4    32900008 A            LW,9     8
       479   03 000C5    25920000 A            SLS,9    0,1
       480   03 000C6    49300009 A            OR,3     9
       481   03 000C7    20100020 A            AI,1     32
       482   03 000C8    680000CA              B        PUT6BIT4
       483   03 000C9    2210001A A   PUT6BIT3 LI,1     26
       484   03 000CA    353400E9 02  PUT6BIT4 STW,3    CO%BUF+27,2
       485   03 000CB    32300008 A             LW,3     8
       486   03 000CC    652E0000 A            BIR,2    0,7
       487                            *
       488                            *  WRITE A CO RECORD OUT.
       489                            *
       490         03 000CD           PUT%CO%  EQU      %
       491                            *  CALCULATE CHECKSUM & PUT IT IN CO RECORD.
       492   03 000CD    222FFF94 A            LI,2     -108
       493   03 000CE    22800000 A            LI,8     0
       494   03 000CF    729400E9 02           LB,9     CO%BUF+27,2
       495   03 000D0    30800009 A            AW,8     9
       496   03 000D1    652000CF              BIR,2    %-2
       497   03 000D2    22200002 A            LI,2     2
       498   03 000D3    758400CE 02           STB,8    CO%BUF,2
       499   03 000D4    53000000 X            MTH,0    CO%FLAG           IS 'SC' OPTION REQUESTED
       500   03 000D5    683000E2              BEZ      PUT%CO%1            NO, OUTPUT AS-IS
       501   03 000D6    02200040 A            LCI      4
       502   03 000D7    2B400000 02           STM,4    ZONECI            SAVE REGISTERS 4-7
       503   03 000D8    2A600000 X            LM,6     CO%IDWDS          3 ID WORDS AND CO SEQUENCE NUMBER
       504   03 000D9    02200030 A            LCI      3
       505   03 000DA    2B6000E9 02           STM,6    CO%BUF+27         STORE CO ID WORDS AND ZEROES
       506   03 000DB    224001D7 02           LI,4     HA(CO%BUF)+59     HA OF COLUMN 80
       507   03 000DC    72500000 X            LB,5     CO%FLAG           NUMBER OF SEQUENCE NUMBER DIGITS
       508   03 000DD    683000DF              BEZ      %+2
       509   03 000DE    6A700000 X            BAL,X7   CARDSEQ           CONVERT AND STORE SEQUENCE NUMBER
       510   03 000DF    02200040 A            LCI      4
       511   03 000E0    2A400000 02           LM,4     ZONECI            RESTORE REGISTERS
       512   03 000E1    33100003 N            MTW,+1   CO%IDWDS+3        BUMP NEXT CO SEQUENCE NUMBER
       513   03 000E2                 PUT%CO%1 RES      0
       514                            *  WRITE A CO RECORD.
       515                                     M:WRITE  M:CO,;
       516                                              (ERR,ERR%%CO),;
       517                                              (ABN,ERR%%CO),;
       518                                              (BUF,CO%BUF),;
       519                                              (SIZE,*CO%SIZE),;
       520   03 000E2    04100019 05                    (WAIT)
             05 00019    11000000 N
                         F0000010
             05 0001B    00000000 X
             05 0001C    00000000 X
             05 0001D    000000CE 02
             05 0001E    80000000 X
       521                            *  BLANK OUT THE CO CARD TO ALL ZEROS.
       522   03 000E3    22800000 A            LI,8     0
       523   03 000E4    2220001A A            LI,2     26
       524   03 000E5    358400CE 02           STW,8    CO%BUF,2
       525   03 000E6    642000E5              BDR,2    %-1
       526                            *  CLEAR THE CHECKSUM
       527   03 000E7    22200002 A            LI,2     2
       528   03 000E8    758400CE 02           STB,8    CO%BUF,2
       529                            *  BUMP CO CARD COUNT
       530   03 000E9    22200001 A            LI,2     1
       531   03 000EA    731400CE 02           MTB,+1   CO%BUF,2
       532                            *  SAY THERE'S A FULL CARD LEFT NOW AND RETURN.
       533   03 000EB    222FFFE6 A            LI,2     -26
       534   03 000EC    680E0000 A            B        0,7
1
       536                            *
       537                            *  FINISH UP THE COMPRESSED  FILE.
       538                            *
       539         03 000ED           FINSH%CO EQU      %
       540                            *        SAVE OUTSIDE REGS; GET INSIDE ONES.
       541   03 000ED    02200030 A            LCI      3
       542   03 000EE    2B1000EC 02           STM,1    CO%REGO
       543   03 000EF    2A1000EF 02           LM,1     CO%REGI
       544                            *  PUT AN ENDFILE BYTE INTO LAST ACRD.
       545   03 000F0    22800003 A            LI,8     3
       546   03 000F1    6A7000BC              BAL,7    PUT6BITS
       547                            *  PUT LAST PARTIAL WORD INTO CO CARD BUFFER.
       548   03 000F2    25320000 A            SLS,3    0,1
       549   03 000F3    353400E9 02           STW,3    CO%BUF+27,2
       550                            *  PUT A LAST-CARD CODE INTO CO CTLBYTE.
       551   03 000F4    22200018 A            LI,2     X'18'
       552   03 000F5    752000CE 02           STB,2    CO%BUF
       553                            *  WRITE OUT LAST CO RECORD.
       554   03 000F6    6A7000CD              BAL,7    PUT%CO%
       555   03 000F7    02200030 A            LCI      3
       556   03 000F8    2A1000EC 02           LM,1      CO%REGO
       557   03 000F9    E800000C A            B        *LNKR
1
       559   03 000FA                          USECT    CAR1
       560   02 000CE                 CO%BUF   RES      30
       561   02 000EC                 CO%REGO  RES      3                 CO OUTPUT REGISTERS
       562   02 000EF                 CO%REGI  RES      3
       563   02 000F2                 CIREC#   RES      1                 CI RECORD NUMBER
       564   02 000F3                 #BLANKS  RES      1                 # CONSECUTIVE BLANKS FOR DECODE%CI%S
       565                            *
       566   02 000F4                          USECT    CAR2
1
       568         03 000FA           READ%UPDATE         EQU       %
       569         00000000                    DO       SYS=RBM
       570                        *S*          LI,R     M:X2
       571                                     ELSE
       572   03 000FA    22800000 N            LI,R      F:X2
       573                                     FIN
       574   03 000FB    35800000 X            STW,R     ADRDCB
       575                            *  THE CONTROL-RECORDS ARE READ FROM F:X2KF;  THE
       576                            *  INFORMATION IN THE CONTROL RECORD IS THEN USED TO PROPERLY
       577                            *  POSITION F:X2 IN ORDER TO READ THE UPDATE RECORDS.
       578   03 000FC    33000028 02           MTW,ZERO  PLUS
       579   03 000FD    68300100              BEZ       LIRE%X2
       580   03 000FE    33F00028 02           MTW,-UN   PLUS      ZERO SUR PLUS
       581   03 000FF    68000105              B         TEST1%SKIP
       582         03 00100           LIRE%X2  EQU       %
       583   03 00100    6AE001CD              BAL,RETOUR LECTURE%MAJ
       584   03 00101    33100026 02           MTW,+1   UPDATE%LINE%COUNT
       585   03 00102    72800004 02           LB,R      BUFSI
       586   03 00103    2180004E A            CI,R      X'4E'     CARTE DE CONTROLE?
       587   03 00104    6930010F              BNE      BUMP%MINOR
       588                            *  IF THE CARD WHICH WAS READ IS NOT A CONTROL CARD,
       589                            *  IT IS PLACED IN 'BUFSI' AND (UPDATE%LINE%COUNT) IS BUMPED.
       590         03 00105           TEST1%SKIP          EQU       %
       591   03 00105    22100032              LI,X      GET%COMPRESSED%LINE  SET EOF EXIT
       592   03 00106    6AE00129              BAL,RETOUR READ%X2KF
       593   03 00107    52B00000 02           LH,VAL    ZONECI    APPEL 1ER DEMI-MOT
       594   03 00108    22100001 A            LI,X      UN
       595   03 00109    52A20000 02           LH,VAL1   ZONECI,X  APPEL 2EME DEMI-MOT
       596   03 0010A    69300113              BNE       COMPAR%VAL%LAST
       597                            *  RETURN VALUES
       598                            *  IN LAST%UPDATE, NEXT%UPDATE, AND SKIP%COUNT.
       599   03 0010B    35B00023 02           STW,VAL   LAST%UPDATE
       600   03 0010C    35B00024 02           STW,VAL   NEXT%UPDATE
       601   03 0010D    6AD001C1              BAL,RETRO SKIP%COMPRESSED
       602   03 0010E    6800011A              B         LOAD%DM
       603   03 0010F                 BUMP%MINOR  RES   0
       604   03 0010F    33000000 X            MTW,+0   CO%FLAG           BUMP MINOR LINE NUMBER
       605   03 00110    69300066              BNE      GSL%1               UNLESS 'CO' IS REQUIRED
       606   03 00111    33100000 X            MTW,+1   IM@MINOR
       607   03 00112    68000067              B        GET%SYMBOLIC%LINE1
       608                            *
       609         03 00113           COMPAR%VAL%LAST     EQU       %
       610   03 00113    35B00024 02           STW,VAL   NEXT%UPDATE
       611   03 00114    35A00023 02           STW,VAL1  LAST%UPDATE
       612   03 00115    6AD001C1              BAL,RETRO SKIP%COMPRESSED
       613   03 00116    32A00023 02           LW,VAL1   LAST%UPDATE
       614   03 00117    38A00024 02           SW,VAL1   NEXT%UPDATE
       615   03 00118    20A00001 A            AI,VAL1   UN
       616   03 00119    35A00025 02           STW,VAL1  SKIP%COUNT
       617                            *  USE INFORMATION IN CONTROL-RECORD DOUBLE-WORD TO POSITION
       618                            *  F:X2 FOR THE NEXT READ.
       619         03 0011A           LOAD%DM  EQU       %
       620   03 0011A    33000002 02           MTW,+0   ZONECI+2          ARE THERE UPDATE CARDS
       621   03 0011B    6830011E              BEZ      POINT%X2          BRANCH IF YES
       622   03 0011C    33100028 02           MTW,UN    PLUS
       623   03 0011D    E800000C A            B         *LNKR
       624         03 0011E           POINT%X2 EQU       %
       625   03 0011E    6B100001 02           INT,X    ZONECI+1          SAVE X2 RECORD NUMBER IN X
       626   03 0011F    38100026 02           SW,X     UPDATE%LINE%COUNT
       627   03 00120    E830000C A            BEZ      *LNKR
       628   03 00121    69100125              BLZ      PRECORD%BACK
       629   03 00122    66100026 02           AWM,X    UPDATE%LINE%COUNT
       630         00000000                    DO       SYS=RBM
       631                        *S*          M:PRECORD M:X2,(N,*X),(FWD)
       632                                     ELSE
       633   03 00123    0410001F 05           M:PRECORD F:X2,(N,*X),(FWD)
             05 0001F    1D000000 N
                         80000000
             05 00021    80000001 A
       634                                     FIN
       635   03 00124    E800000C A            B        *LNKR
       636         03 00125           PRECORD%BACK      EQU %
       637   03 00125    66100026 02           AWM,X    UPDATE%LINE%COUNT
       638   03 00126    3A100001 A            LCW,X    X                 GET ABS VALUE OF NO. OF RECORDS
       639         00000000                    DO       SYS=RBM
       640                        *S*          M:PRECORD M:X2,(N,*X),(REV)
       641                                     ELSE
       642   03 00127    04100022 05           M:PRECORD F:X2,(N,*X),(REV)
             05 00022    1D000000 N
                         80000010
             05 00024    80000001 A
       643                                     FIN
       644   03 00128    E800000C A            B         *LNKR
       645                            *
       646                            *
       647         03 00129           READ%X2KF  EQU    %
       648   03 00129                          DO1      SYS=BPMUTS
       649   03 00129    04100025 05           M:READ   F:X2KF,(BUF,ZONECI),(SIZE,12),(ABN,ABNX2KF)
             05 00025    10000000 N
                         70000000
             05 00027    0000012B 03
             05 00028    00000000 02
             05 00029    0000000C A
       650   03 0012A                          DO1      SYS=RBM
       651                        *S*          M:READ   M:X4,(BUF,ZONECI),(SIZE,12),(ABN,ABNX2KF)
       652   03 0012A    E800000E A            B        *RETOUR
       653                            *
1
       655                            *
       656                            *  HERE MEANS READING OF THE F:X2KF FILE IS FINISHED.
       657         03 0012B           ABNX2KF  EQU       %
       658   03 0012B    7250000A A            LB,NB    10                GET ABN CODE FROM SR3.
       659   03 0012C    21500005 A            CI,NB    +5                QUIT
       660   03 0012D    68300130              BE       ABNOK             IF
       661   03 0012E    21500006 A            CI,NB    +6                NOT
       662   03 0012F    69300133              BNE      SORTIE%ABANDON    EOD OR EOF,
       663         03 00130           ABNOK    EQU      %                 ELSE OK.
       664   03 00130    6AD001C1              BAL,RETRO SKIP%COMPRESSED
       665   03 00131    33100000 X            MTW,+1   FINMAJ
       666   03 00132    E8000001 A            B        *X
       667                            *
       668                            *  PRINT A MESSAGE AND THEN EXIT.
       669         03 00133           SORTIE%ABANDON  EQU  %
       670   03 00133    22000011 A            ABORT    ABORT17           ABNORMAL OR ERROR ON M:X4/F:X2KF
             03 00134    68000000 X
1
       672                            *
       673                            *  READ A COMPRESSED CARD AND
       674                            *  DECOMPRESS IT INTO BUFSI.
       675                            *
       676         03 00135           DECODE%CI%SI        EQU       %
       677   03 00135    02200060 A            LCI      +6
       678   03 00136    2A2000F4 02           LM,2     CIRDREGS          LOAD OURS.
       679   03 00137    35340018 02  #1       STW,3    CI%CARD+20,2      FILL CARD AREA
       680   03 00138    65200137              BIR,2    #1                WITH BLANKS.
       681   03 00139    222FFFAF A            LI,2     -81               INITIALIZE CARD INDEX.
       682   03 0013A    6A30014D     #2       BAL,3    GET6BITS          GET CI CTRL CODE
       683   03 0013B    21400007 A            CI,4     +7                IS IT CHARACTER?
       684   03 0013C    69180141              BL       #4,4              BRANCH IF NO.
       685   03 0013D    724801AB              LB,4     XLATETBL,4        TRANSLATE TO EBCDIC
       686   03 0013E    65200140     #3       BIR,2    %+2               BUMP CARD INDEX.
       687   03 0013F    22200000 A            LI,2     0                 RECORD>80 BYTES - IGNORE BEYOND 80
       688   03 00140    75440018 02           STB,4    CI%CARD+20,2      & STORE INTO CARD.
       689   03 00141    6800013A     #4       B        #2                PADDING.
       690   03 00142    6800019A              B        BADCTRL           ERROR; ILLEGAL CI CTRL CODE
       691   03 00143    68000192              B        USERRTRN          END-OF-RECORD.
       692   03 00144    6800018C              B        ENDFILE           END-OF-FILE.
       693   03 00145    6800014B              B        #5                8-BIT LITERAL.
       694   03 00146    202FFFC0 A            AI,2     -64               N+1 BLANKS
       695   03 00147    20200041 A            AI,2     +65               N+65 BLANKS
       696   03 00148    6A30014D              BAL,3    GET6BITS          GET COUNT
       697   03 00149    30200004 A            AW,2     4                 BUMP OUTPUT INDEX TO SKIP BLANKS
       698   03 0014A    6800013A              B        #2
       699   03 0014B    6A300152     #5       BAL,3    GET8BITS          PUT 8-BIT LITERAL
       700   03 0014C    6800013E              B        #3                INTO CARD & CONTINUE.
       701                            *
       702         03 0014D           GET6BITS EQU      %
       703   03 0014D    22400000 A            LI,4     +0                CLEAR ANSWER REG.
       704   03 0014E    207FFFFA A            AI,7     -6                ARE 6 BITS AVAILABLE IN REG 5?
       705   03 0014F    69100157              BLZ      #11               BRANCH IF NO.
       706   03 00150    25400106 A            SLD,4    +6                SHIFT THEM INTO ANSWER
       707   03 00151    68060000 A            B        0,3               REG & RETURN
       708         03 00152           GET8BITS EQU      %
       709   03 00152    22400000 A            LI,4     +0                CLEAR ANSWER REG.
       710   03 00153    207FFFF8 A            AI,7     -8                ARE 8 BITS AVAILABLE IN REG 5?
       711   03 00154    69100163              BLZ      #13               BRANCH IF NO.
       712   03 00155    25400108 A            SLD,4    +8                SHIFT THEM INTO ANSWER
       713   03 00156    68060000 A            B        0,3               REG & RETURN
       714   03 00157    6560015C     #11      BIR,6    #18               BRANCH IF MORE WORDS IN CI BUFFER
       715   03 00158    6A70016A              BAL,7    NEXTCI            READ NEW CI RECORD
       716   03 00159    22400000 A            LI,4     0
       717   03 0015A    227FFFFA A            LI,7     -6                INDICATE STILL 6 BITS TO GET.
       718   03 0015B    6800015D              B        #12               GO GET NEW WORD OF BITS.
       719   03 0015C                 #18      RES      0
       720   03 0015C    254E0106 A            SLD,4    +6,7              SHIFT REMAINING BITS INTO ANS REG.
       721   03 0015D    325C0115 02  #12      LW,5     CI%BUFR+27,6      GET NEXT CI WORD.
       722   03 0015E    3A700007 A            LCW,7    7                 SHIFT REST OF CTRL
       723   03 0015F    254E0100 A            SLD,4    0,7               CODE BITS INTO
       724   03 00160    3A700007 A            LCW,7    7                 ANSWER REG.
       725   03 00161    20700020 A            AI,7     +32               COMPUTE REMAINING BITS.
       726   03 00162    68060000 A            B        0,3               RETURN
       727   03 00163    65600168     #13      BIR,6    #14               BRANCH IF MORE WORDS IN CI BUFFER.
       728   03 00164    6A70016A              BAL,7    NEXTCI            READ NEW CI RECORD
       729   03 00165    22400000 A            LI,4     0
       730   03 00166    227FFFF8 A            LI,7     -8                INDICATE STILL 8 BITS  TO GET.
       731   03 00167    6800015D              B        #12               GO GET NEW WORD OF BITS.
       732   03 00168    254E0108 A   #14      SLD,4    +8,7              SHIFT REMAINING BITS INTO ANS REG.
       733   03 00169    6800015D              B        #12               GO GET NEW WORD OF BITS.
       734                            *
       735         03 0016A           NEXTCI   EQU      %
       736                                     M:READ   *CI%DCB,(BUF,CI%BUFR),(SIZE,120),(ERR,ERR%ABN),;
       737   03 0016A    0410002A 05                    (ABN,ERR%ABN),(WAIT)
             05 0002A    90000000 N
                         F0000010
             05 0002C    0000019D 03
             05 0002D    0000019D 03
             05 0002E    000000FA 02
             05 0002F    00000078 A
       738   03 0016B    725000FA 02           LB,5     CI%BUFR           IS RECORD
       739   03 0016C    21500038 A            CI,5     X'38'             IN CI FORMAT
       740   03 0016D    68300170              BE       VALIDATE
       741   03 0016E    21500018 A            CI,5     X'18'             MAYBE LAST CARD FORMAT
       742   03 0016F    69300209              BNE      PRINT%ER1
       743   03 00170    22600001 A   VALIDATE LI,6     1                 CHECK RECORD SEQUENCE NUMBER
       744   03 00171    325000F2 02           LW,5     CIREC#
       745   03 00172    715C00FA 02           CB,5     CI%BUFR,6
       746   03 00173    68300177              BE       VALID%1
       747   03 00174    321000FA 02           LW,X     CI%BUFR           CI RECORD CONTROL WORD
       748   03 00175    22000012 A            ABORT    ABORT18           SEQUENCE ERROR
             03 00176    68000000 X
       749   03 00177                 VALID%1  RES      0
       750   03 00177    725000FA 02           LB,5     CI%BUFR           I.D. BYTE
       751   03 00178    505000FA 02           AH,5     CI%BUFR           SEQUENCE NUMBER
       752   03 00179    226000FF A            LI,6     X'FF'
       753   03 0017A    4B6000FA 02           AND,6    CI%BUFR           BYTE COUNT
       754   03 0017B    30500006 A            AW,5     6
       755   03 0017C    206FFFFB A            AI,6     -5                ADJUST FOR BYTES NOT IN THE LOOP
       756   03 0017D    68300181              BEZ      VALID%3           BRANCH IF BYTE COUNT IS 5
       757                            *
       758   03 0017E                 VALID%2  RES      0
       759   03 0017E    724C00FB 02           LB,4     CI%BUFR+1,6       LOOP TO ADD REST OF
       760   03 0017F    30500004 A            AW,5     4                   RECORD TO CHECKSUM
       761   03 00180    6460017E              BDR,6    VALID%2
       762   03 00181                 VALID%3  RES      0
       763   03 00181    724000FB 02           LB,4     CI%BUFR+1         BYTE 4 ISN'T IN THE LOOP
       764   03 00182    30500004 A            AW,5     4
       765   03 00183    226FFFE6 A            LI,6     -26               # WORDS IN THE RECORD - 1
       766   03 00184    331000F2 02           MTW,+1   CIREC#            BUMP RECORD NUMBER
       767   03 00185    22400002 A            LI,4     2                 COMPARE TO RECORD
       768   03 00186    715800FA 02           CB,5     CI%BUFR,4           CHECKSUM
       769   03 00187    683E0000 A            BE       0,7               OKAY.  EXIT
       770   03 00188    323000F2 02           LW,3     CIREC#            NUMBER OF NEXT CI RECORD
       771   03 00189    321000FA 02           LW,X     CI%BUFR           CI RECORD CONTROL WORD
       772   03 0018A    22000013 A            ABORT    ABORT19           CHECKSUM ERROR
             03 0018B    68000000 X
       773         03 0018C           ENDFILE  EQU      %
       774   03 0018C    212FFFAF A            CI,2     -81               IS THIS THE FIRST BYTE
       775   03 0018D    6930019A              BNE      BADCTRL           BRANCH IF NO
       776   03 0018E    21C001C9              CI,LNKR  SKIP%C2           ARE WE IN SKIP MODE
       777   03 0018F    6830019A              BE       BADCTRL           BRANCH IF YES
       778   03 00190                 ENDFILE1 RES      0
       779   03 00190    32100304              LW,X     =' END'
       780   03 00191    35100004 02           STW,X    CI%CARD
       781   03 00192                 USERRTRN RES      0
       782   03 00192    02200030 A            LCI      +3                SAVE CURRENT REGISTERS FOR
       783   03 00193    2B5000F7 02           STM,5    REGS567             THE NEXT CI RECORD
       784   03 00194    E800000C A            B        *LNKR
       785   03 00195                 ENDFILE2 RES      0
       786   03 00195    212FFFAF A            CI,2     -81               IS THIS THE FIRST BYTE
       787   03 00196    69300000 X            BNE      ERR%%CI           BRANCH IF NO
       788   03 00197    21C001C9              CI,LNKR  SKIP%C2           ARE WE IN SKIP MODE
       789   03 00198    68300000 X            BE       ERR%%CI           BRANCH IF YES
       790   03 00199    68000190              B        ENDFILE1
       791   03 0019A                 BADCTRL  RES      0
       792   03 0019A    323000F2 02           LW,3     CIREC#            NUMBER OF NEXT CI RECORD
       793   03 0019B    22000014 A            ABORT    ABORT20           CI CODE ERROR
             03 0019C    68000000 X
       794                            *
       795         03 0019D           ERR%ABN  EQU      %
       796   03 0019D    7250000A A            LB,NB    SR3               ERROR OR ABN CODE
       797   03 0019E    21500006 A            CI,NB    6                 IS IT EOF
       798   03 0019F    683001A6              BE       ERR%ABN2          YES
       799   03 001A0    21500005 A            CI,NB    5                 IS IT EOD
       800   03 001A1    69300000 X            BNE      ERR%%CI           NO
       801   03 001A2    33000000 X            MTW,0    EODCNTCI          YES, IS THIS THE 1ST EOD
       802   03 001A3    693001A6              BNEZ     ERR%ABN2          NO
       803   03 001A4    33100000 X            MTW,1    EODCNTCI          YES, COUNT IT
       804   03 001A5    6800016A              B        NEXTCI            GO READ AGAIN
       805   03 001A6                 ERR%ABN2 RES      0
       806   03 001A6    330000F2 02           MTW,+0   CIREC#            TEST FOR FIRST READ
       807   03 001A7    69200195              BGZ      ENDFILE2          NO
       808   03 001A8    33000000 X            MTW,0    BA%FLAG           YES, BA SPECIFIED
       809   03 001A9    69300000 X            BNEZ     ROOTEXIT          YES, NORMAL TERMINATION
       810   03 001AA    2200000D A            ABORT    ABORT13           NO, ABORT WITH MISSING CI
             03 001AB    68000000 X
       811         03 001AB           XLATETBL EQU      %-1
       812   03 001AC    40404040 A            DATA     '    '            LAST BLANK IS 1ST ENTRY.
       813   03 001AD    F0F1F2F3 A            TEXT     '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
             03 001AE    F4F5F6F7 A
             03 001AF    F8F9C1C2 A
             03 001B0    C3C4C5C6 A
             03 001B1    C7C8C9D1 A
             03 001B2    D2D3D4D5 A
             03 001B3    D6D7D8D9 A
             03 001B4    E2E3E4E5 A
             03 001B5    E6E7E8E9 A
       814   03 001B6    4B4C4D4E A            TEXT     '.<(+|&%*);~-/,%>:''='
             03 001B7    4F505B5C A
             03 001B8    5D5E5F60 A
             03 001B9    616B6C6D A
             03 001BA    6E7A7D7E A
       815   03 001BB    FFFFFFEC A   CIREGS   DATA      -20,'    ',0,0,0,0
             03 001BC    40404040 A
             03 001BD    00000000 A
             03 001BE    00000000 A
             03 001BF    00000000 A
             03 001C0    00000000 A
       816   03 001C1                          USECT    CAR1
       817         02 000F4           CIRDREGS EQU      %
       818   02 000F4                          RES      3
       819   02 000F7                 REGS567  RES       1
       820   02 000F8                 REG6     RES       1
       821   02 000F9                 REG7     RES       1
       822   02 000FA                 CI%BUFR  RES,1    120
       823         02 00004           CI%CARD  EQU      BUFSI
       824   02 00118                          USECT    CAR2
       825                            *
1
       827                            *
       828                            *
       829                            *  SKIP NUMBER OF COMPRESSED RECORDS INDICATED BY
       830                            *  CONTROL RECORD; ALSO INCREMENT CI%LINE%COUNT.
       831         03 001C1           SKIP%COMPRESSED     EQU       %
       832   03 001C1    32900025 02           LW,R1    SKIP%COUNT        EXIT IF NO COMPRESSED LINES
       833   03 001C2    E830000D A            BEZ      *RETRO              TO SKIP
       834   03 001C3    66900022 02           AWM,R1   COMPTE%CI         ADD COUNT TO COMPRESSED LINE COUNT
       835   03 001C4    35C0000B A            STW,LNKR VAL               SAVE LNKR
       836   03 001C5    33000000 X            MTW,+0   CO%FLAG           BUMP MAJOR LINE NUMBER
       837   03 001C6    693001C8              BNEZ     SKIP%C1             UNLESS 'CO' IS REQUESTED
       838   03 001C7    66900000 X            AWM,R1   IM@MAJOR
       839   03 001C8                 SKIP%C1  RES      0
       840   03 001C8    6AC00135              BAL,LNKR DECODE%CI%SI      SKIP A COMPRESSED LINE
       841   03 001C9                 SKIP%C2  RES      0                 LABEL USED AS A FLAG IN DECODE%CI%SI
       842   03 001C9    33F00025 02           MTW,-1   SKIP%COUNT
       843   03 001CA    692001C8              BGZ      SKIP%C1
       844   03 001CB    32C0000B A            LW,LNKR  VAL               RESTORE LNKR
       845   03 001CC    E800000D A            B        *RETRO
1
       847                            *
       848                            *  READ A SYMBOLIC RECORD INTO THE 'BUFSI' AREA
       849                            *
       850         03 001CD           LECTURE%MAJ         EQU       %
       851   03 001CD    32100027 02           LW,1     EOF%FLAG          HAS END-OF-FILE BEEN READ
       852   03 001CE    693001F7              BNEZ     ABNSI10           BRIF YES
       853                            *
       854                                     M:READ   *ADRDCB,(BUF,BUFSI),(SIZE,120-40*(SYS=RBM)),;
       855   03 001CF    04100030 05                    (ABN,LECTURE%MAJ%ABN),(ERR,LECTURE%MAJ%ABN)
             05 00030    90000000 N
                         F0000000
             05 00032    000001E3 03
             05 00033    000001E3 03
             05 00034    00000004 02
             05 00035    00000078 A
       856   03 001D0    72100004 02           LB,1     BUFSI
       857   03 001D1    4B100305              AND,1    =X'DB'            TEST FOR A BINARY
       858   03 001D2    21100018 A            CI,1     X'18'               OR COMPRESSED RECORD
       859   03 001D3    6830020D              BE       PRINT%ER2
       860   03 001D4    22100008 A            LI,1     8                 GET
       861   03 001D5    D2120000 X            LH,1     *ADRDCB,1         RECORD
       862   03 001D6    2510007F A            SLS,1    -1                LENGTH
       863   03 001D7                 LECT%MAJ%1  RES   0
       864   03 001D7    201FFFB0 A            AI,1     -MAXSI
       865   03 001D8    E810000E A            BGEZ     *RETOUR
       866   03 001D9    22900040 A            LI,R1    X'40'             BLANK
       867   03 001DA    201FFFFF A            AI,1     -1                LAST
       868   03 001DB    72820018 02           LB,R     BUFSIEND,1        CHARACTER.
       869   03 001DC    21800015 A            CI,R     X'15'             IS IT LF?
       870   03 001DD    683001E0              BE       ZAP%LF%CR         BRANCH IF YES.
       871   03 001DE    2180000D A            CI,R     X'0D'             IS IT CR?
       872   03 001DF    693001E1              BNE      SUITE%ZAP         BRANCH IF NO.
       873         03 001E0           ZAP%LF%CR                           EQU %
       874   03 001E0    75920018 02           STB,R1   BUFSIEND,1        CR WITH BLANK
       875         03 001E1           SUITE%ZAP                           EQU %
       876   03 001E1    651001E0              BIR,1    ZAP%LF%CR         BLANK BALANCE OF RECORD
       877   03 001E2    E800000E A            B        *RETOUR
       878                            *
       879   03 001E3                 LECTURE%MAJ%ABN   RES   0
       880   03 001E3    32100000 X            LW,X     ADRDCB
       881   03 001E4    21100000 N            CI,X     M:SI              IS ERROR ON 'SI'
       882   03 001E5    69300000 X            BNE      ABN%%X2           NO
       883   03 001E6                 ABN%%SI  RES      0
       884   03 001E6    7210000A A            LB,X     SR3
       885   03 001E7    19100000              CLM,X    FIVE%SIX          EOD OR EOF ACCEPTABLE             *D-CD
       886   03 001E8    69900000 X            BOL      ERR%%SI            - ERROR ON ANYTHING ELSE.        *D-CD
       887                            *                                                                     *D-CD
       888   03 001E9    33000000 X            MTW,0    NIVO                                                *D-CD
       889         001F0000                    IF,EZ                      EITHER TERMINATES SYSTEM          *D-CD
             03 001EA    693001F7
       890   03 001EB    33000000 X            MTW,0    EODCNT            NEED TWO TO TERMINATE SOURCE,     *D-CD
       891         001F0100                    IF,EZ                        HOWEVER.                        *D-CD
             03 001EC    693001EF
       892   03 001ED    33100000 X            MTW,+1   EODCNT            BUMP EOD COUNT
       893   03 001EE    680001CD              B        LECTURE%MAJ       GO RE-READ
       894                            *                                                                     *D-CD
       895         00F10100                    FI                                                           *D-CD
       896   03 001EF    33100027 02           MTW,+1   EOF%FLAG          SET END-OF-FILE FLAG
       897   03 001F0    32100000 X            LW,X     IM@MAJOR          TEST FOR FIRST CARD READ
       898   03 001F1    49100000 X            OR,X     IM@MINOR
       899   03 001F2    693001F7              BNEZ     ABNSI10           NOT FIRST
       900   03 001F3    33000000 X            MTW,+0   BA%FLAG           BATCH ASSEMBLIES
       901   03 001F4    69300000 X            BNEZ     ROOTEXIT          YES, NORMAL TERMINATION       /10770/B-08773
       902   03 001F5    2200000E A            ABORT    ABORT14           NO, ABORT WITH MISSING SI
             03 001F6    68000000 X
       903         00F10000                    FI                                                           *D-CD
       904   03 001F7                 ABNSI10  RES      0
       905   03 001F7    221FFFF6 A            LI,1     -ENDMSIZE         - SIZE OF 'END' MESSAGE
       906   03 001F8    32A20209              LW,SR3   ENDMSG+ENDMSIZE,1 MOVE THE 'END' MESSAGE
       907   03 001F9    35A2000E 02           STW,SR3  BUFSI+ENDMSIZE,1    TO BUFSI
       908   03 001FA    651001F8              BIR,1    %-2
       909   03 001FB    221FFFD8 A            LI,1     ENDMSIZE*4-80     - BYTES REMAINING IN BUFSI
       910   03 001FC    22900040 A            LI,R1    X'40'
       911   03 001FD    22E00061              LI,RETOUR BUMP%MAJOR       SET EXIT FROM LECTURE%MAJOR
       912   03 001FE    680001E0              B        ZAP%LF%CR
       913   03 001FF    40C5D5C4 A   ENDMSG   TEXT     ' END  * END STATEMENT SUPPLIED BY AP *'
             03 00200    40405C40 A
             03 00201    C5D5C440 A
             03 00202    E2E3C1E3 A
             03 00203    C5D4C5D5 A
             03 00204    E340E2E4 A
             03 00205    D7D7D3C9 A
             03 00206    C5C440C2 A
             03 00207    E840C1D7 A
             03 00208    405C4040 A
       914         0000000A           ENDMSIZE EQU      %-ENDMSG
1
       916                            *  PRINT ERROR MESSAGE ER1.
       917         03 00209           PRINT%ER1           EQU       %
       918   03 00209    323000F2 02           LW,3     CIREC#            RECORD NUMBER
       919   03 0020A    321000FA 02           LW,X     CI%BUFR           CI RECORD CONTROL WORD
       920   03 0020B    22000017 A            ABORT    ABORT23           ILLEGAL I.D.
             03 0020C    68000000 X
       921   03 0020D                 PRINT%ER2   RES   0
       922   03 0020D    22000018 A            ABORT    ABORT24           COMPRESSED RECORD IN SI FILE
             03 0020E    68000000 X
1
       924                                     LOCAL    %10,%20,%30
       925                                     LOCAL    %08,X1
       926         00000001           X1       EQU      1
       927         00000002           X2       EQU      2
       928         03 0020F           IM@COPY  EQU      %
       929   03 0020F    022000F0 A            LCI      +15               SAVE CALLER'S
       930   03 00210    2B100000 X            STM,1    SAVAREA           REGISTERS
       931   03 00211    22100001 A            LI,X1    +1
       932   03 00212    35100044 02           STW,X1   IM@SYS
       933   03 00213    33100000 X            MTW,+1   NIVO              BUMP LEVEL #.
       934   03 00214    32100000 X            LW,X1    NIVO              IF IT'S
       935   03 00215    21100008 A            CI,X1    MAXSYS            TOO BIG,
       936   03 00216    692002CC              BG       2MANYSYS          QUIT.
       937   03 00217    21100001 A            CI,X1    +1
       938   03 00218    69200000 F            BG       %08
       939   03 00219    1280026E              LD,R8    STKINIT           INITIALIZE STACK DBLWORD
       940   03 0021A    158000CC 02           STD,R8   SYSSTK
       941   03 0021B    12800270              LD,R8    SYSINIT           INITIALIZE 'OPEN' FPT
       942   03 0021C    15800046 02           STD,R8   SYSOPEN
       943         00000001                    DO       SYS=BPMUTS
       944   03 0021D    12800272              LD,R8    SYSINIT1
       945   03 0021E    35800048 02           STW,R8   SYSFILE-1         CONTROL WORD FOR FILE NAME
       946   03 0021F    35900051 02           STW,R9   SYSACCT-1         CONTROL WORD FOR ACCOUNT NAME
       947                                     FIN
       948   03 00220    22100000 N            LI,X1    F:SYS
       949   03 00221    35100000 X            STW,X1   CI%DCB
       950   03 00222    2210001B A            LI,X1    27
       951   03 00223    328200F9 02           LW,R8    CI%BUFR-1,X1
       952   03 00224    35820028 02           STW,R8   CI%BSAV-1,X1
       953   03 00225    64100223              BDR,X1   %-2
       954   03 00226                 %08      RES      0
       955   03 00226    6A100268              BAL,X1   CLOSESYS          CLOSE F:SYS IF IT'S OPEN
       956   03 00227    328000F2 02  %10      LW,R8    CIREC#            SAVE CURRENT
       957   03 00228    32900000 X            LW,R9    1ERLECTURE%LI     LINE TYPE
       958   03 00229    75900008 A            STB,R9   R8
       959   03 0022A    098000CC 02           PSW,R8   SYSSTK            CI POSITION.
       960   03 0022B    32800000 X            LW,R8    IM@MAJOR          SAVE
       961   03 0022C    098000CC 02           PSW,R8   SYSSTK            LINE #.
       962   03 0022D    22800000 A            LI,R8    0
       963   03 0022E    35800000 X            STW,R8   1ERLECTURE%LI     CLEAR LINE TYPE
       964   03 0022F    358000F2 02           STW,R8   CIREC#            CLEAR RECORD NUMBER
       965   03 00230    35800000 X            STW,R8   IM@MAJOR
       966   03 00231    02200030 A            LCI       +3                  SAVE CURRENT
       967   03 00232    2A1000F7 02           LM,X1     REGS567             CI REGS.
       968   03 00233    0B1000CC 02           PSM,X1   SYSSTK
       969         00000000                    DO       SYS=RBM
       970                        *S*          LW,X1    F:SYS+5           SAVE CURRENT FILE NAME
       971                        *S*          LW,X1+1  F:SYS+6             AND AREA
       972                        *S*          LI,X1+2  X'3F00'
       973                        *S*          AND,X1+2 F:SYS+1
       974                        *S*          LCI      3
       975                        *S*          PSM,X1   SYSSTK
       976                        *S*          LW,R8    BLANC             BLANK OUT FILE NAME IN
       977                        *S*          STW,R8   F:SYS+5
       978                        *S*          STW,R8   F:SYS+6
       979                        *S*          LB,X1    IM@NAME           MOVE FILE NAME INTO DCB
       980                        *S*          CI,X1    8                   AND IN SYS NAME FOR 'ABORT'
       981                        *S*          BLE      %+2
       982                        *S*          LI,X1    8                 TRUNCATE FILE NAME TO 8 CHARS
       983                        *S*          STB,X1   IM@NAME
       984                        *S*          LW,X2    IM@NAME
       985                        *S*          AND,X2   L(X'FFFFFF')
       986                        *S*          AW,X2    X1
       987                        *S* %20      AI,X2    -1
       988                        *S*          LB,R8    0,X2
       989                        *S*          AI,X1    -1
       990                        *S*          STB,R8   F:SYS+5,X1
       991                        *S*          BGZ      %20
       992                                     ELSE
       993   03 00234    02200080 A            LCI      +8                SAVE CURRENT
       994   03 00235    2A100049 02           LM,X1    SYSFILE           FILE NAME.
       995   03 00236    0B1000CC 02           PSM,X1   SYSSTK
       996   03 00237    02200020 A            LCI      +2                SAVE
       997   03 00238    2A100052 02           LM,X1    SYSACCT           CURRENT
       998   03 00239    0B1000CC 02           PSM,X1   SYSSTK            ACCT.
       999   03 0023A    22100008 A            LI,X1    +8                BLANK OUT
      1000   03 0023B    32800000 X            LW,R8    BLANC             FILE
      1001   03 0023C    35820048 02           STW,R8   SYSFILE-1,X1      NAME
      1002   03 0023D    6410023B              BDR,X1   %-2               AREA
      1003   03 0023E    72100000 X            LB,X1    IM@NAME           MOVE
      1004   03 0023F    2110001F A            CI,X1    31
      1005   03 00240    68200242              BLE      %+2               LIMIT SYSTEM NAME TO 31 CHARS
      1006   03 00241    2210001F A            LI,X1    31
      1007   03 00242    75100000 X            STB,X1   IM@NAME
      1008   03 00243    75100049 02           STB,X1   SYSFILE           FILE
      1009   03 00244    32200000 X            LW,X2    IM@NAME           NAME
      1010   03 00245    4B200302              AND,X2   =X'FFFFFF'        INTO
      1011   03 00246    30200001 A            AW,X2    X1                FPT
      1012   03 00247    202FFFFF A   %20      AI,X2    -1                FILE
      1013   03 00248    72840000 A            LB,R8    0,X2              NAME
      1014   03 00249    75820049 02           STB,R8   SYSFILE,X1        AREA.
      1015   03 0024A    64100247              BDR,X1   %20
      1016                                     FIN
      1017   03 0024B    32800000 X            LW,R8    NIVO              MOVE SYSTEM NAME IF ON LEVEL ONE
      1018   03 0024C    21800001 A            CI,R8    1
      1019   03 0024D    69300255              BNE      ENDMOVE
      1020   03 0024E                 MOVESYSNAME  RES  0
      1021   03 0024E    20100001 A            AI,X1    1
      1022   03 0024F    72840000 A            LB,R8    0,X2
      1023   03 00250    75820000 X            STB,R8   SYSNAME,X1
      1024   03 00251    20200001 A            AI,X2    1
      1025   03 00252    71100000 X            CB,X1    IM@NAME
      1026   03 00253    6910024E              BL       MOVESYSNAME
      1027   03 00254    75100000 X            STB,X1   SYSNAME
      1028   03 00255                 ENDMOVE  RES      0
      1029   03 00255    22100000 A            LI,X1    0
      1030         00000000                    DO       SYS=RBM
      1031                        *S* %30      LB,R8    ACCOUNTS,X1
      1032                        *S*          SLS,R8   8
      1033                        *S*          LW,R9    L(X'3F00')
      1034                        *S*          STS,R8   F:SYS+1
      1035                                     ELSE
      1036   03 00256    12820000 X   %30      LD,R8    ACCOUNTS,X1       TRY TO
      1037   03 00257    35800052 02           STW,R8   SYSACCT           FIND
      1038   03 00258    35900053 02           STW,R9   SYSACCT+1         THE
      1039                                     FIN
      1040   03 00259    04100046 02           CAL1,1   SYSOPEN           FILE
      1041         00000000                    DO       SYS=RBM                                      /27492/*D-CD
      1042                        *S*          M:REW    F:SYS,(WAIT)                                 /27492/*D-CD
      1043                                     FIN                                                   /27492/*D-CD
      1044   03 0025A    68000264              B        FOUNDIT           BY
      1045   03 0025B    72A0000A A   SYSABN   LB,SR3   SR3               OPENING
      1046   03 0025C    21A00003 A            CI,SR3   X'03'             WITH EACH
      1047   03 0025D    693002CA              BNE      SYSOPNER          POTENTIAL ACCOUNT
      1048   03 0025E    20100001 A            AI,X1    1
      1049   03 0025F    31100000 X            CW,X1    #ACCTS
      1050   03 00260    69100256              BL       %30
      1051   03 00261    22100000 A            LI,X1    0
      1052   03 00262    35100044 02           STW,X1   IM@SYS
      1053   03 00263    68000276              B       IM@END1            CAN'T FIND.  RECOVER & RETURN
      1054                            *
      1055   03 00264    02200060 A   FOUNDIT  LCI       +6                  START CI
      1056   03 00265    2A1001BB              LM,X1    CIREGS            ROUTINE WITH
      1057   03 00266    2B1000F4 02           STM,X1   CIRDREGS          FRESH REGS.
      1058   03 00267    68000062              B        RESTORE           RESTORE REGS AND EXIT
      1059                            *
      1060         00200000           FCDBIT   EQU      X'00200000'       'OPEN' BIT IN THE DCB
      1061   03 00268                 CLOSESYS RES      0                 CLOSE F:SYS DBC IF IT'S OPEN
      1062   03 00268    32800000 X            LW,R8    F:SYS
      1063   03 00269    31800306              CW,R8    =FCDBIT           TEST FOR DCB OPEN
      1064   03 0026A    68420000 A            BAZ      0,X1              IT'S ALREADY CLOSED
      1065   03 0026B    04100036 05           M:CLOSE  F:SYS
             05 00036    15000000 N
                         00000000
      1066   03 0026C    68020000 A            B        0,X1
      1067                                     BOUND    8
      1068   03 0026E    00000053 02  STKINIT  DATA     STACK-1
      1069   03 0026F    0078     A            DATA,2   STKL*MAXSYS,0
             03 0026F 2  0000     A
      1070   03 00270    14000000 N   SYSINIT  GEN,8,24 X'14',F:SYS
      1071   03 00271    00000001 A            DATA     SYS=BPMUTS
      1072                            *  DATA WORDS TO INITIALIZE FPT FOR BPMUTS
      1073   03 00272    01000808 A   SYSINIT1 DATA     X'01000808'       FILE-NAME,NOT-LAST,SIG.,SIZE
      1074   03 00273    02010202 A            DATA     X'02010202'       ACCOUNT,LAST,SIG.,SIZE
1
      1076                                     LOCAL    %08,%10,X1
      1077         00000001           X1       EQU      1
      1078   03 00274    022000F0 A   IM@END   LCI      15
      1079   03 00275    2B100000 X            STM,1    SAVAREA
      1080   03 00276                 IM@END1  RES      0
      1081   03 00276    33F00000 X            MTW,-1   NIVO
      1082   03 00277    69200000 F            BGZ      %08
      1083   03 00278    6910029B              BLZ      ENDITALL
      1084   03 00279    2210001B A            LI,X1    27
      1085   03 0027A    32820028 02           LW,R8    CI%BSAV-1,X1
      1086   03 0027B    358200F9 02           STW,R8   CI%BUFR-1,X1
      1087   03 0027C    6410027A              BDR,X1   %-2
      1088   03 0027D    22100000 N            LI,X1    M:CI
      1089   03 0027E    35100000 X            STW,X1   CI%DCB
      1090   03 0027F                 %08      RES      0
      1091   03 0027F    6A100268              BAL,X1   CLOSESYS          CLOSE F:SYS IF IT'S OPEN
      1092         00000000                    DO       SYS=RBM
      1093                        *S* %10      LCI      3                 RECOVER PREVIOUS FILE NAME
      1094                        *S*          PLM,X1   SYSSTK              AND AREA
      1095                        *S*          STW,X1   F:SYS+5
      1096                        *S*          STW,X1+1 F:SYS+6
      1097                        *S*          LW,R8    X1+2
      1098                        *S*          LW,R9    L(X'3F00')
      1099                        *S*          STS,R8   F:SYS+1
      1100                                     ELSE
      1101   03 00280    02200020 A   %10      LCI      +2                RECOVER PREVIOUS
      1102   03 00281    0A1000CC 02           PLM,X1   SYSSTK
      1103   03 00282    35100052 02           STW,X1   SYSACCT           ACCT
      1104   03 00283    35200053 02           STW,X2   SYSACCT+1         NUMBER.
      1105   03 00284    02200080 A            LCI      +8                RECOVER
      1106   03 00285    0A1000CC 02           PLM,X1   SYSSTK            PREVIOUS
      1107   03 00286    02200080 A            LCI      +8                FILE
      1108   03 00287    2B100049 02           STM,X1   SYSFILE           NAME.
      1109                                     FIN
      1110   03 00288    02200030 A            LCI       +3                  RECOVER
      1111   03 00289    0A1000CC 02           PLM,X1   SYSSTK            PREVIOUS
      1112   03 0028A    02200030 A            LCI       +3                  CI
      1113   03 0028B    2B1000F7 02           STM,X1    REGS567             REGS.
      1114   03 0028C    081000CC 02           PLW,X1   SYSSTK            RECOVER
      1115   03 0028D    35100000 X            STW,X1   IM@MAJOR          LINE #.
      1116   03 0028E    081000CC 02           PLW,X1   SYSSTK            RECOVER
      1117   03 0028F    72800001 A            LB,R8    X1                PREVIOUS
      1118   03 00290    35800000 X            STW,R8   1ERLECTURE%LI     LINE TYPE
      1119   03 00291    4B100302              AND,X1   =X'FFFFFF'        AND
      1120   03 00292    351000F2 02           STW,X1   CIREC#            PREVIOUS RECORD #.
      1121   03 00293    33000000 X            MTW,0    NIVO
      1122   03 00294    68300062              BEZ      RESTORE
      1123   03 00295    04100046 02           CAL1,1   SYSOPEN           OPEN PREVIOUS FILE.
      1124   03 00296    201FFFFF A            AI,X1    -1                POSITION
      1125   03 00297    68300299              BEZ      IM@END3
      1126   03 00298    04100038 05           M:PRECORD *CI%DCB,(N,*X1),(FWD)
             05 00038    9D000000 N
                         80000000
             05 0003A    80000001 A
      1127   03 00299                 IM@END3  RES      0
      1128   03 00299    0410003B 05           M:READ   *CI%DCB,(BUF,CI%BUFR),(SIZE,120)
             05 0003B    90000000 N
                         30000000
             05 0003D    000000FA 02
             05 0003E    00000078 A
      1129   03 0029A    68000062              B        RESTORE           RESTORE REGS AND EXIT
      1130                            *
      1131   03 0029B                 ENDITALL   RES    0
      1132   03 0029B    32100000 X            LW,X1    LINE%TYPE         IS SI,CI REQUESTED
      1133   03 0029C    21100002 A            CI,X1    2
      1134   03 0029D    684002C0              BAZ      ENDITALL1         BRANCH IF ONLY SI
      1135   03 0029E    6AD001C1              BAL,RETRO SKIP%COMPRESSED
      1136   03 0029F    728000FA 02           LB,R8    CI%BUFR           IS LAST RECORD ALREADY READ
      1137   03 002A0    21800018 A            CI,R8    X'18'
      1138   03 002A1    683002A7              BE       ENDITALL2         YES, NO PROBLEM
      1139   03 002A2    02200060 A            LCI      +6
      1140   03 002A3    2A2000F4 02           LM,2     CIRDREGS          THE NEXT BYTE MUST BE END-FILE
      1141   03 002A4    6A30014D              BAL,3    GET6BITS          GET THE NEXT CONTROL BYTE
      1142   03 002A5    21400003 A            CI,4     3                 TEST FOR END-FILE
      1143   03 002A6    6930019A              BNE      BADCTRL
      1144   03 002A7                 ENDITALL2   RES   0
      1145   03 002A7    32100000 X            LW,X1    LINE%TYPE
      1146   03 002A8    21100003 A            CI,X1    3
      1147   03 002A9    693002C0              BNE      ENDITALL1         NOT SI,CI
      1148   03 002AA    32100000 X            LW,X     FINMAJ            BRANCH IF EOF WAS FOUND
      1149   03 002AB    692002C0              BGZ      ENDITALL1           ON X2KF FILE
      1150   03 002AC    221002AF              LI,X     ENDITALL4         SET EOF EXIT
      1151   03 002AD    6AE00129              BAL,RETOUR READ%X2KF
      1152   03 002AE    680002B3              B        ENDITALL6         NO EOF ON X2KF
      1153   03 002AF                 ENDITALL4   RES   0
      1154                                     M:READ   *ADRDCB,(BUF,BUFSI),(SIZE,108-28*(SYS=RBM)),;
      1155   03 002AF    0410003F 05                    (ABN,ENDITALL5),(ERR,ENDITALL5)
             05 0003F    90000000 N
                         F0000000
             05 00041    000002C4 03
             05 00042    000002C4 03
             05 00043    00000004 02
             05 00044    0000006C A
      1156   03 002B0    72100004 02           LB,X     BUFSI             MAKE SURE CURRENT UPDATE GROUP
      1157   03 002B1    2110004E A            CI,X     '+'                 IS FINISHED
      1158   03 002B2    683002C0              BE       ENDITALL1         YES, IT'S FINISHED
      1159   03 002B3                 ENDITALL6   RES   0
      1160   03 002B3    6A700000 X            BAL,RL   CLRLSTBF          CLEAR LSTBF AREA
      1161   03 002B4    721002CE              LB,X1    UPDATE%LINE%ERR   BYTE COUNT
      1162   03 002B5                 ENDITALL3   RES   0
      1163   03 002B5    728202CE              LB,IOADD UPDATE%LINE%ERR,X1
      1164   03 002B6    75820000 X            STB,IOADD LSTBF,X1         MOVE NEXT BYTE OF MESSAGE
      1165   03 002B7    641002B5              BDR,X1   ENDITALL3
      1166   03 002B8    33100000 X            MTW,+1   UPDT%ERROR
      1167   03 002B9    22800000 N            LI,IOADD LSTBF
      1168   03 002BA    729002CE              LB,IOSIZE UPDATE%LINE%ERR
      1169   03 002BB    6AA00000 X            BAL,IORL WRITEDO
      1170   03 002BC    32100000 X            LW,X1    LO%FLAG
      1171   03 002BD    49100000 X            OR,X1    LU%FLAG
      1172   03 002BE    683002C0              BEZ      ENDITALL1
      1173   03 002BF    6AA00000 X            BAL,IORL WRITELO
      1174   03 002C0                 ENDITALL1   RES   0
      1175   03 002C0    33000000 X            MTW,0    CO%FLAG
      1176   03 002C1    68300062              BEZ      RESTORE
      1177   03 002C2    6AC000ED              BAL,LNKR FINSH%CO
      1178   03 002C3    68000062              B        RESTORE           RESTORE REGS AND EXIT
      1179   03 002C4                 ENDITALL5   RES   0
      1180   03 002C4    7250000A A            LB,NB    10                MAKE SURE ABN OR ERR CODE
      1181   03 002C5    21500005 A            CI,NB    5                   IS EOD OR EOF
      1182   03 002C6    683002C0              BE       ENDITALL1
      1183   03 002C7    21500006 A            CI,NB    6                 TEST FOR EOF
      1184   03 002C8    683002C0              BE       ENDITALL1
      1185   03 002C9    680002B3              B        ENDITALL6
      1186         03 002CA           SYSOPNER EQU      %
      1187   03 002CA    2200000F A            ABORT    ABORT15           ERROR OR ABN WHEN OPENING F:SYS
             03 002CB    68000000 X
      1188   03 002CC                 2MANYSYS RES      0
      1189   03 002CC    22000010 A            ABORT    ABORT16           SYSTEMS NESTED TOO DEEPLY
             03 002CD    68000000 X
      1190   03 002CE                 UPDATE%LINE%ERR RES 0
      1191   03 002CE    2BE4D7C4 A            TEXTC    'UPDATE LINE NUMBERS EXCEED COMPRESSED FILE '
             03 002CF    C1E3C540 A
             03 002D0    D3C9D5C5 A
             03 002D1    40D5E4D4 A
             03 002D2    C2C5D9E2 A
             03 002D3    40C5E7C3 A
             03 002D4    C5C5C440 A
             03 002D5    C3D6D4D7 A
             03 002D6    D9C5E2E2 A
             03 002D7    C5C440C6 A
             03 002D8    C9D3C540 A
1
      1193                            *
      1194                            *   R E A D C
      1195                            *        PERFORM READ OF CN CONTROL COMMAND
      1196                            *
      1197   03 002D9                 READC    RES      0
      1198   03 002D9    022000F0 A            LCI      15
      1199   03 002DA    2B100000 X            STM,1    SAVAREA           SAVE REGISTERS
      1200   03 002DB    52600000 X            LH,XT2   DC%FLAG
      1201   03 002DC    21600002 A            CI,XT2   2
      1202         001F0000                    IF,NE                      NORMAL - READ FROM C DEVICE
             03 002DD    683002F1
      1203                                     M:READ   M:C,;
      1204                                              (ERR,ERR%%C),;
      1205                                              (ABN,ABN%%C),;
      1206                                              (BUF,BUFSI),;
      1207                                              (SIZE,80),;
      1208   03 002DE    04100045 05                    (WAIT)
             05 00045    10000000 N
                         F0000010
             05 00047    00000000 X
             05 00048    000002FA 03
             05 00049    00000004 02
             05 0004A    00000050 A
      1209   03 002DF    22400008 A            LI,XT    8
      1210   03 002E0    52180000 X            LH,X     M:C,XT
      1211   03 002E1    2510007F A            SLS,X    -1                ARS
      1212   03 002E2    6AE001D7              BAL,RETOUR   LECT%MAJ%1    FILL RECORD & STRIP CR OR LF
      1213   03 002E3    22400001 A            LI,XT    1
      1214   03 002E4    73080000 X            MTB,0    CORRESWD,XT
      1215         001F0100                    IF,EZ                      DON'T ECHO ON SAME DEVICE
             03 002E5    693002F0
      1216   03 002E6    022000A0 A            LCI      10
      1217   03 002E7    2A100004 02           LM,1     BUFSI
      1218   03 002E8    2B100001 N            STM,1    LSTBF+1
      1219   03 002E9    2A10000E 02           LM,1     BUFSI+10
      1220   03 002EA    2B10000B N            STM,1    LSTBF+11
      1221   03 002EB    32400000 X            LW,XT    BLANC
      1222   03 002EC    35400000 X            STW,XT   LSTBF
      1223   03 002ED    22800000 N            LI,IOADD LSTBF
      1224   03 002EE    22900054 A            LI,IOSIZE   84
      1225   03 002EF    6AA00000 X            BAL,IORL WRITELO
      1226         00F10100                    FI
      1227         000E0000                    ELS                        INIT HAD TO GET THEM OUT OF THE WAY
             03 002F0    680002F2
      1228                                     M:READ   F:X1,;
      1229                                              (ERR,ERR%%X1),;
      1230                                              (ABN,ABN%%X1),;
      1231                                              (BUF,BUFSI),;
      1232                                              (SIZE,80),;
      1233   03 002F1    0410004B 05                    (WAIT)
             05 0004B    10000000 N
                         F0000010
             05 0004D    00000000 X
             05 0004E    000002F5 03
             05 0004F    00000004 02
             05 00050    00000050 A
      1234         00F10000                    FI
      1235   03 002F2    022000F0 A            LCI      15
      1236   03 002F3    2A100000 X            LM,1     SAVAREA           RESTORE REGISTERS
      1237   03 002F4    E800000A A            EXIT     IORL
      1238                            *
      1239                            *   A B N % % X 1
      1240                            *
      1241   03 002F5                 ABN%%X1  RES      0
      1242   03 002F5    7240000A A            LB,XT    SR3
      1243   03 002F6    19400000              CLM,XT   FIVE%SIX          CHECK FOR EOF OR EOT ON X1
      1244   03 002F7    69900000 X            BOL      ERR%%X1           OTHER ERROR - STD. HANDLING
      1245                            *
      1246   03 002F8    6A7002FE              CALL     FIN%X1
      1247   03 002F9    68000000 X            B        CNTERM
      1248                            *
      1249                            *   A B N % % C
      1250                            *
      1251   03 002FA                 ABN%%C   RES      0
      1252   03 002FA    7240000A A            LB,XT    SR3
      1253   03 002FB    19400000              CLM,XT   FIVE%SIX          CHECK FOR EOF OR EOT ON C
      1254   03 002FC    69900000 X            BOL      ERR%%C            OTHER ERROR - STD. HANDLING
      1255                            *
      1256   03 002FD    68000000 X            B        CNTERM
      1257                            *
      1258                            *
      1259                            *   F I N % X 1
      1260                            *
      1261   03 002FE                 FIN%X1   RES      0
      1262   03 002FE    6AA00000 X            BAL,IORL REWX1
      1263                            *
      1264         00000000                    DO       SYS=RBM
      1265                        *S*          M:DEVICE F:X1,;            CHANGE BACK FOR ENCODED TEXT
      1266                        *S*                   (SIZE,BYX1SIZE),;
      1267                        *S*                   (ORG,UNBLOCK)
      1268                                     FIN
      1269                            *
      1270   03 002FF    680E0000 A            EXIT
      1271                            *
      1272                                     END
             03 00300    03970FE0 A
             03 00301    000000F0 A
             03 00302    00FFFFFF A
             03 00303    0000000A A
             03 00304    40C5D5C4 A
             03 00305    000000DB A
             03 00306    00200000 A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00118   PT 0     03 00307   PT 1     04 00000   PT 0
                             05 00051   PT 1
1
  *    SYMBOL VALUES
           ABN%%C/03 002FA          ABN%%SI/03 001E6         ABN%%X1/03 002F5         ABNOK/03 00130
           ABNSI10/03 001F7         ABNX2KF/03 0012B         ABORT13/0000000D         ABORT14/0000000E
           ABORT15/0000000F         ABORT16/00000010         ABORT17/00000011         ABORT18/00000012
           ABORT19/00000013         ABORT20/00000014         ABORT23/00000017         ABORT24/00000018
           ALFNUM/03 000A2          APPEL%CI%SI/03 00025                              AR/00000000
           BADCTRL/03 0019A         BPMUTS/00000002          BUFSIEND/02 00018        BUMP%BLANKS/03 0006D
           BUMP%MAJOR/03 00061      BUMP%MINOR/03 0010F      CHOOSE%LINE/03 0002D
           CI%BSAV/02 00029         CI%BUFR/02 000FA         CI%CARD/02 00004         CIREGS/03 001BB
           CLOSESYS/03 00268        CO%REGO/02 000EC         COMPAR%VAL%LAST/03 00113
           DECODE%CI%SI/03 00135                             DEUX/00000002            ECRIRE%CO/03 00069
           ENDFILE/03 0018C         ENDFILE1/03 00190        ENDFILE2/03 00195        ENDITALL/03 0029B
           ENDITALL1/03 002C0       ENDITALL2/03 002A7       ENDITALL3/03 002B5       ENDITALL4/03 002AF
           ENDITALL5/03 002C4       ENDITALL6/03 002B3       ENDMOVE/03 00255         ENDMSG/03 001FF
           ENDMSIZE/0000000A        ERR%ABN/03 0019D         ERR%ABN2/03 001A6        FCDBIT/00200000
           FINSH%CO/03 000ED        FIVE%SIX/03 00000        FOUNDIT/03 00264
           GET%COMPRESSED%LINE/03 00032                      GET%SYMBOLIC%LINE/03 00065
           GET%SYMBOLIC%LINE1/03 00067                       GET6BITS/03 0014D        GET8BITS/03 00152
           GSL%1/03 00066           IM@END1/03 00276         IM@END3/03 00299         IM@MAJOR/EXT
           IM@MINOR/EXT             IOADD/00000008           IORL/0000000A            IOSIZE/00000009
           J/00000007               LAST%OUT/03 00071        LECT%MAJ%1/03 001D7      LECTURE%MAJ/03 001CD
           LECTURE%MAJ%ABN/03 001E3                          LIRE%X2/03 00100         LNKR/0000000C
           LOAD%DM/03 0011A         LOAD%REG/03 00062        MAXSI/00000050           MAXSYS/00000008
           MOVESYSNAME/03 0024E                              NB/00000005              NEXT%OUT/03 0006E
           NEXTCI/03 0016A          NIVO%1/03 00016          NIVO%2/03 00021          NIVO%3/03 00019
           OPT%SO/03 00039          OPT%SO2/03 00056         OPT%SO3/03 0005A         OPT%SO4/03 0004A
           POINT%X2/03 0011E        PRECORD%BACK/03 00125                             PRINT%ER1/03 00209
           PRINT%ER2/03 0020D       PUT%CHAR/03 00076        PUT%CHAR1/03 00077       PUT%CO%/03 000CD
           PUT%CO%1/03 000E2        PUT6BITS/03 000BC        PUT6BIT2/03 000C1        PUT6BIT3/03 000C9
           PUT6BIT4/03 000CA        PUT8BITS/03 000B2        PUT8BIT2/03 000B7        PUT8BIT3/03 000C4
           R/00000008               RBM/00000003             READ%UPDATE/03 000FA
           READ%X2KF/03 00129       REGS567/02 000F7         REG6/02 000F8            REG7/02 000F9
           RESTORE/03 00062         RETOUR/0000000E          RETRO/0000000D           RL/00000007
           R1/00000009              R8/00000008              R9/00000009              S:S/FUNC
           SKIP%COMPRESSED/03 001C1                          SKIP%C1/03 001C8         SKIP%C2/03 001C9
           SO%KEY%INC/000003E8      SO%KEY%INC1/00000002                              SO%KEY%LIM/03970FE0
           SORTIE%ABANDON/03 00133                           SPECIALS/03 0009C        SR3/0000000A
           STACK/02 00054           STKINIT/03 0026E         STKL/0000000F            SUITE%TEST/03 00027
           SUITE%ZAP/03 001E1       SYS/00000002             SYSACCT/02 00052         SYSFILE/02 00049
           SYSINIT/03 00270         SYSINIT1/03 00272        SYSOPEN/02 00046         SYSSTK/02 000CC
           TEST%NIVO/03 00006       TEST1%SKIP/03 00105      TROIS/00000003           UN/00000001
           UPDATE%LINE%ERR/03 002CE                          USERRTRN/03 00192        VAL/0000000B
           VALID%1/03 00177         VALID%2/03 0017E         VALID%3/03 00181         VALIDATE/03 00170
           VAL1/0000000A            X/00000001               XLATETBL/03 001AB        XT/00000004
           XT1/00000005             XT2/00000006             X1/00000002              X2/00000002
           X7/00000007              ZAP%LF%CR/03 001E0       ZERO/00000000            ZONECI/02 00000
           2MANYSYS/03 002CC        #1/03 00137              #11/03 00157             #12/03 0015D
           #13/03 00163             #14/03 00168             #18/03 0015C             #2/03 0013A
           #3/03 0013E              #4/03 00141              #5/03 0014B
  *    EXTERNAL DEFINITIONS
           BUFSI/02 00004           CAR1/02 00000            CAR2/03 00000            CIRDREGS/02 000F4
           CIREC#/02 000F2          CO%BUF/02 000CE          CO%REGI/02 000EF         COMPTE%CI/02 00022
           EOF%FLAG/02 00027        FIN%X1/03 002FE          IM@COPY/03 0020F         IM@END/03 00274
           IM@READ/03 00002         IM@SYS/02 00044          LAST%UPDATE/02 00023
           NEXT%UPDATE/02 00024                              PLUS/02 00028            READC/03 002D9
           SKIP%COUNT/02 00025      SYSABN/03 0025B          SYSOPNER/03 002CA
           UPDATE%LINE%COUNT/02 00026                        XAPDATA/02 00000         #BLANKS/02 000F3
  *    PRIMARY REFERENCES
           ABN%%X2        ABORT          ACCOUNTS       ADRDCB         BA%FLAG        BLANC          BYX1SIZE
           CARDSEQ        CI%DCB         CLRLSTBF       CNTERM         CO%FLAG        CO%IDWDS       CO%SIZE
           CORRESWD       DC%FLAG        EODCNT         EODCNTCI       ERR%%C         ERR%%CI        ERR%%CO
           ERR%%SI        ERR%%SO        ERR%%X1        F:SYS          F:X1           F:X2           F:X2KF
           FINMAJ         IM@NAME        LINE%TYPE      LINK           LO%FLAG        LSTBF          LU%FLAG
           M:C            M:CI           M:CO           M:LO           M:SI           M:SO           MAJLINE
           NIVO           REWX1          ROOTEXIT       SAVAREA        SO%FLAG        SO%KEY         SUBLINE
           SYSNAME        UPDT%ERROR     WRITEDO        WRITELO        1ERLECTURE%LI                 #ACCTS
  * NO SECONDARY REFERENCES
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
