BANNER TELEFILE,AP H00,APROOT.
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     RRRRRRRRRRRR      OOOOOOOOOOO      OOOOOOOOOOO     TTTTTTTTTTTT
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    RRRRRRRRRRRRR    OOOOOOOOOOOOO    OOOOOOOOOOOOO    TTTTTTTTTTTT
                 AA         AA    PP         PP    RR         RR    OO         OO    OO         OO         TT
                 AA         AA    PP         PP    RR         RR    OO         OO    OO         OO         TT
                 AA         AA    PP         PP    RR         RR    OO         OO    OO         OO         TT
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    RRRRRRRRRRRRR    OO         OO    OO         OO         TT
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     RRRRRRRRRRRR     OO         OO    OO         OO         TT
                 AA         AA    PP               RR      RR       OO         OO    OO         OO         TT
                 AA         AA    PP               RR       RR      OO         OO    OO         OO         TT
                 AA         AA    PP               RR        RR     OO         OO    OO         OO         TT
                 AA         AA    PP               RR        RR     OOOOOOOOOOOOO    OOOOOOOOOOOOO         TT
                 AA         AA    PP               RR        RR      OOOOOOOOOOO      OOOOOOOOOOO          TT




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     RRRRRRRRRRRR      OOOOOOOOOOO      OOOOOOOOOOO     TTTTTTTTTTTT
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    RRRRRRRRRRRRR    OOOOOOOOOOOOO    OOOOOOOOOOOOO    TTTTTTTTTTTT
                 AA         AA    PP         PP    RR         RR    OO         OO    OO         OO         TT
                 AA         AA    PP         PP    RR         RR    OO         OO    OO         OO         TT
                 AA         AA    PP         PP    RR         RR    OO         OO    OO         OO         TT
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    RRRRRRRRRRRRR    OO         OO    OO         OO         TT
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     RRRRRRRRRRRR     OO         OO    OO         OO         TT
                 AA         AA    PP               RR      RR       OO         OO    OO         OO         TT
                 AA         AA    PP               RR       RR      OO         OO    OO         OO         TT
                 AA         AA    PP               RR        RR     OO         OO    OO         OO         TT
                 AA         AA    PP               RR        RR     OOOOOOOOOOOOO    OOOOOOOOOOOOO         TT
                 AA         AA    PP               RR        RR      OOOOOOOOOOO      OOOOOOOOOOO          TT




ASSIGN M:CI,(FILE,CI:APROOT,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APROOT,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    ABN
            799/M:DCB      805/M:DCB      811/M:DCB      817/M:DCB      820/M:DCB      826/M:DCB
            832/M:DCB      837/M:DCB      840/M:DCB      853/M:READ     864/M:WRITE    917/M:READ
            932/M:WRITE    960/M:READ     969/M:READ     988/M:WRITE    998/M:WRITE   1027/M:OPEN
           1126/M:WRITE   1210/M:WRITE   1221/M:READ    1229/M:WRITE
    ABN%%SI
            414-RES
    ABN%%STD
             87/DEF        430-RES       1221/M:READ    1229/M:WRITE
    ABN%%X1
            115/DEF        418-RES        799/M:DCB      853/M:READ     864/M:WRITE
    ABN%%X2
             88/DEF        420-RES        805/M:DCB
    ABN%%X2KF
            424-RES        817/M:DCB
    ABN%%X3
            115/DEF        422-RES        811/M:DCB      917/M:READ     932/M:WRITE
    ABN%%X4
             89/DEF        425-RES
    ABN%%X5
            428-RES        820/M:DCB      960/M:READ     969/M:READ     988/M:WRITE    998/M:WRITE
           1027/M:OPEN
    ABORT
             90/DEF        404-RES
    ABORT5
            171-EQU        431/ABORT
    ABORT6
            172-EQU        505/ABORT
    ABORT7
            173-EQU        554/ABORT
    ABORT8
            174-EQU        556/ABORT
    AC%FLAG
             85/DEF        198-DATA
    ACCOUNTS
             77/DEF        239-DATA
    ADRDCB
            116/DEF        260-RES
    ADVANCE
           1155/BAZ       1160-RES
    AF
            613/COM        613/COM        613/COM
    AP%ABORT
            160/REF        406/B
    AR
            170-EQU
    ASSEMBLE%FLAG
             81/DEF        261-RES        321/LW
    BA
            685/LI         685/LI         692/LI         692/LI         728/AI         728/AI         734/LI
            734/LI        1079/LI        1079/LI
    BA%FLAG
            182-OPTION     365/LW
    BADTRAP
            516/BNE        518/BCS        555-RES
    BLANC
            112/DEF        611-EQU
    BLANKS
            610-DATA       611/EQU        653/LD         709/LW
    BLOCK
            971/M:READ    1000/M:WRITE
    BO%FLAG
            183-OPTION    1109/MTH       1117/LB
    BO%IDWDS
            126/DEF        268-RES        269/EQU       1113/LM
    BO%SIZE
             91/DEF        270-RES       1128/M:WRITE   1212/M:WRITE
    BOBUF
            142/REF       1114/STM       1116/LI        1127/M:WRITE   1211/M:WRITE
    BOSEQNO
            269-EQU       1115/LW        1122/MTW
    BPMUTS
             33-EQU         35/EQU         45/DO          68/DO         127/DO         202/EQU        221/DO
            276/DO         311/DO         368/DO         507/DO         616/DO         627/DO         636/RES
            671/DO         786/DO         839/DO1        955/DO         983/DO        1012/DO        1052/DO
           1058/DO        1070/DO        1086/DO        1176/DO        1199/DO
    BTD
           1190/M:WRITE
    BUF
            852/M:READ     863/M:WRITE    918/M:READ     933/M:WRITE    961/M:READ     970/M:READ
            989/M:WRITE    999/M:WRITE   1075/M:WRITE   1081/M:WRITE   1100/M:WRITE   1127/M:WRITE
           1190/M:WRITE   1211/M:WRITE   1220/M:READ    1228/M:WRITE
    BYX1SIZE
             96/DEF        201-EQU        203/EQU        205/EQU        852/M:READ     863/M:WRITE
           1220/M:READ    1228/M:WRITE
    BYX3SIZE
             97/DEF        202-EQU        204/EQU        206/EQU        919/M:READ     934/M:WRITE
    CANTHAVE
            542/BCS        553-RES
    CARDSEQ
            126/DEF       1119/BAL       1142-RES
    CCI4
             43-CSECT      180/USECT      635/USECT      770/USECT
    CI%DCB
            117/DEF        266-DATA
    CI%FLAG
            184-OPTION
    CLOSE%FILES
            121/DEF        402/BAL        577-RES
    CLOSEX5
             98/DEF       1039-RES
    CLRLSTBF
             90/DEF        652-RES
    CO%FLAG
            185-OPTION
    CO%IDWDS
            126/DEF        271-RES
    CO%SIZE
             92/DEF        272-RES
    CONCORD
            154/REF        353/BAL
    CORRESWD
             93/DEF        200-DATA      1186/MTB
    CTL%CARD%INTERPRETER
            152/REF        309/BAL
    DC%FLAG
            186-OPTION     350/LW
    DCBCEND
            578/LI         580/LW         634-RES
    DCBCON
            613-COM
    DCBCORG
            578/LI         615-RES
    DEDIT
             57/DEF        493-RES        500/BDR        687/CALL       694/CALL       729/CALL       736/CALL
           1080/BAL
    DEFGEN
            155/REF        333/BAL        337/BAL        342/BAL        344/BAL
    DGEND
            156/REF        348/BAL
    DGINIT
            161/REF        331/BAL        341/BAL
    DGWRITELO
            123/DEF       1051-RES
    DIRECT
           1019/M:OPEN
    DO%ONLINE
            128/DEF        277-RES
    DOBIT
            284-EQU       1180/CI
    D1
            178-EQU        830/M:DCB
    E
            738/M:TYPE     745/M:TYPE     747/M:TYPE     754/M:TYPE
    ENDCORE
             64/DEF        210-RES        383/CW
    ENDDEF
            161/REF        335/BAL        343/BAL
    ENDGEN
            161/REF        339/BAL        345/BAL
    EODCNT
            111/DEF        212-RES
    EODCNTCI
            111/DEF        213-RES
    EQ
            495/EXIT       889/EXIT
    ERR
            798/M:DCB      804/M:DCB      810/M:DCB      816/M:DCB      820/M:DCB      825/M:DCB
            831/M:DCB      837/M:DCB      840/M:DCB      853/M:READ     864/M:WRITE    916/M:READ
            931/M:WRITE    959/M:READ     968/M:READ     987/M:WRITE    997/M:WRITE   1026/M:OPEN
           1125/M:WRITE   1209/M:WRITE   1221/M:READ    1229/M:WRITE
    ERR%%BO
            107/DEF        407-RES       1125/M:WRITE   1126/M:WRITE
    ERR%%C
            106/DEF        408-RES
    ERR%%CI
            107/DEF        409-RES
    ERR%%CO
            107/DEF        410-RES
    ERR%%DO
            107/DEF        411-RES
    ERR%%GO
            108/DEF        412-RES       1209/M:WRITE   1210/M:WRITE
    ERR%%LO
            108/DEF        413-RES
    ERR%%SI
            108/DEF        415-RES
    ERR%%SO
            108/DEF        416-RES
    ERR%%STD
            110/DEF        429-RES       1221/M:READ    1229/M:WRITE
    ERR%%X1
            114/DEF        417-RES        798/M:DCB      853/M:READ     864/M:WRITE
    ERR%%X2
            109/DEF        419-RES        804/M:DCB
    ERR%%X2KF
            423-RES        816/M:DCB
    ERR%%X3
            114/DEF        421-RES        810/M:DCB      916/M:READ     931/M:WRITE
    ERR%%X4
            109/DEF        426-RES
    ERR%%X5
            427-RES        820/M:DCB      959/M:READ     968/M:READ     987/M:WRITE    997/M:WRITE
           1026/M:OPEN
    F:STD
            144/DEF        633/DCBCON     783-CSECT      792-DSECT      821-M:DCB      830-M:DCB
           1220/M:READ    1228/M:WRITE   1236/LI        1243/M:REW
    F:SYS
            144/DEF        784-CSECT      793-DSECT      837-M:DCB      840-M:DCB
    F:X1
            146-EQU        628/DCBCON     787-DSECT      794-M:DCB      852/M:READ     863/M:WRITE
            874/M:REW      886/LI
    F:X2
            629/DCBCON     788-DSECT      800-M:DCB
    F:X2KF
            630/DCBCON     789-DSECT      812-M:DCB
    F:X3
            148-EQU        631/DCBCON     790-DSECT      806-M:DCB      906/LI         915/M:READ
            930/M:WRITE    945/M:REW
    F:X5
            150-EQU        791-DSECT      818-M:DCB      958/M:READ     967/M:READ     986/M:WRITE
            996/M:WRITE   1009/LW        1016/M:OPEN    1025/M:OPEN    1028/M:DEVICE  1041/M:CLOSE
    FCDBIT
            459/CW         470/CW         571-EQU        582/CW
    FILE
            794/M:DCB      800/M:DCB      806/M:DCB      812/M:DCB      818/M:DCB      821/M:DCB
            830/M:DCB      837/M:DCB      840/M:DCB     1022/M:OPEN
    FINMAJ
            121/DEF        274-RES
    FPG1
            371-RES        384/BL
    FPG2
            374-RES        380/BNEZ
    FPG3
            375/BGZ        377-RES
    FWD
            475/M:PFIL     891/M:PRECORD
    FZ
           1010/IF
    G
            724/IF         743/IF
    GO%FLAG
            187-OPTION
    GOBIT
            283-EQU       1203/CI
    GSZ
           1029/M:DEVICE
    HA
           1116/LI
    HWX1SIZE
             96/DEF        203-EQU
    HWX3SIZE
             97/DEF        204-EQU
    IM@INIT
            153/REF        318/BAL
    IM@NAME
            119/DEF        257-RES
    IN
            822/M:DCB      835/M:DCB
    INIT%TUNITS
             69/DEF        222-RES        682/SW
    IOADD
            290-EQU        886/LI         891/M:PRECORD* 895/M:PRECORD* 906/LI         918/M:READ
            933/M:WRITE    961/M:READ     970/M:READ     989/M:WRITE    999/M:WRITE   1009/LW        1010/IF
           1013/LW        1014/STH       1084/STB*      1089/LW        1095/XW        1100/M:WRITE   1147/LI
           1148/DW        1149/SW        1150/LI        1151/SLS       1152/AH        1153/STH       1157/LH
           1157/LH        1158/AH        1159/STH       1190/M:WRITE   1220/M:READ    1228/M:WRITE   1236/LI
    IORL
            292-EQU        401/LI         588/CW         854/EXIT       865/EXIT       875/EXIT       889/EXIT
            892/EXIT       896/EXIT       921/EXIT       936/EXIT       946/EXIT       974/EXIT      1003/EXIT
           1034/EXIT      1042/EXIT      1063/BAZ*      1101/EXIT      1130/EXIT      1181/BAZ*      1187/EXIT
           1191/EXIT      1204/BAZ*      1214/EXIT      1222/EXIT      1230/EXIT      1244/EXIT
    IOSIZE
            291-EQU        888/AI         891/M:PRECORD  894/LCW        894/LCW        895/M:PRECORD  956/OR
            957/STW        966/STW        984/OR         985/STW        995/STW       1055/LI
           1100/M:WRITE   1115/LW        1189/AI        1190/M:WRITE   1202/LW        1203/CI
    IOTERM
            390/BAL        393/BAL        395/BAL        397/BAL        399/BAL        468-RES
    J:JIT
            129/SREF       678/LW         679/AW         680/AW         681/AW        1061/LW        1179/LW
           1202/LW
    JOPT
            129/SREF      1061/LW        1179/LW        1202/LW
    KEY
            962/M:READ     990/M:WRITE
    KEYED
           1018/M:OPEN
    KEYM
           1021/M:OPEN
    L
            546/AND        676/LW         684/DW         691/DW         712/LW         719/LW         753/LI
            755/CAL1       956/OR         984/OR
    LF
            165/DEF        166-DATA
    LINE%NUMBER
            710/STW        711/STW        713/STW        720/STW        728/AI         734/LI         737/LI
            772-TEXTC
    LINE%TYPE
            120/DEF        262-RES
    LO%FLAG
            188-OPTION
    LO%ONLINE
            128/DEF        278-RES       1053/MTW       1071/MTW
    LOBIT
            282-EQU       1062/CI        1182/CI
    LOWCORE
             63/DEF        209-RES        369/LW         543/SW
    LS%FLAG
            189-OPTION
    LSTBF
             58/DEF        244-RES        499/STB        655/STD        685/LI         692/LI         728/AI
            734/LI        1079/LI
    LU%FLAG
            190-OPTION
    M:BO
            136/REF        620/DCBCON    1124/M:WRITE
    M:CI
            135/REF        266/DATA       618/DCBCON
    M:CO
            135/REF        356/LI         389/LI         621/DCBCON
    M:DO
            140/REF        360/LI         396/LI         622/DCBCON    1190/M:WRITE
    M:GO
            137/REF        391/LI         623/DCBCON    1208/M:WRITE
    M:LL
            138/REF        624/DCBCON
    M:LO
            139/REF        358/LI         394/LI         625/DCBCON    1075/M:WRITE   1081/M:WRITE
           1090/M:DEVICE  1100/M:WRITE
    M:SI
            135/REF        617/DCBCON
    M:SO
            140/REF        225/GEN        362/LI         398/LI         626/DCBCON
    M:X1
            145/REF        146/EQU
    M:X3
            147/REF        148/EQU
    M:X5
            149/REF        150/EQU
    MAJLINE
             65/DEF        217-DATA       735/LW
    MESS
            703/M:TYPE
    MPX1
             90/DEF        211-RES        509/STW        511/MTW        535/LM*       1144/STW       1163/B*
    N
            891/M:PRECORD  895/M:PRECORD
    NCDR
            157/REF        320/BAL
    ND%FLAG
            191-OPTION
    NE
            708/IF         715/IF        1187/EXIT
    NEXT%PROGRAM
            310-RES        386/B
    NEXTCOL
           1145-RES       1162/BDR
    NEXTST
             79/DEF        215-RES
    NINES
            723/CH         759-EQU
    NIVO
            113/DEF        258-RES        259/EQU
    NLINES
           1090/M:DEVICE
    NOTEXU
            528/BNE        533-RES
    NS%FLAG
            192-OPTION
    NUM%PAGE%LINES
             82/DEF        254-RES       1085/LW        1094/STW
    NXSYMB
             79/DEF        216-RES
    NZ
            593/IF
    ONEWKEY
            991/M:WRITE
    OPENX5
             98/DEF       1008-RES
    OPTION
            163-CNAME
    OPTION%FLAGS
             84/DEF        181-RES
    OUTIN
            795/M:DCB      801/M:DCB      807/M:DCB      813/M:DCB      818/M:DCB     1020/M:OPEN
    PAGENUM
             60/DEF        252-DATA      1068/MTW       1069/LW
    PAGETBL
             70/DEF        223-RES        314/STW        373/LW         551/AWM
    PD%FLAG
             86/DEF        197-DATA
    PGLINES
             59/DEF        251-RES       1066/MTW       1098/STW
    PGNUM
             59/DEF        250-TEXT      1079/LI
    PHASE%MAP
            699/LB         760-DATA
    POSBKWD
            890/BLZ        893-RES
    POSIT%1
            887-RES        907/B         1237/B
    POSITIONSTD
            105/DEF       1235-RES
    POSITIONX1
             94/DEF        884-RES
    POSITIONX3
             95/DEF        904-RES
    PREFLD
            572-EQU        591/LV
    RANDOM
            818/M:DCB
    RBM
             34-EQU         38/DO1         41/DO1         48/DO         143/DO         241/DO1        324/DO
            329/DO         355/DO         388/DO         432/DO         451/DO         503/DO         584/DO
            782/DO         829/DO         965/DO         994/DO        1024/DO
    RD%STD
             61/DEF        253-RES
    READSTD
            104/DEF       1219-RES
    READX1
             94/DEF        850-RES
    READX3
             95/DEF        913-RES
    READX5
             99/DEF        954-RES
    RECL
            796/M:DCB      802/M:DCB      808/M:DCB      814/M:DCB      819/M:DCB      823/M:DCB
            833/M:DCB     1017/M:OPEN
    REPORT%STATUS
             71/DEF        669-RES
    REV
            473/M:PFIL     474/M:PFIL     895/M:PRECORD
    REWSTD
            104/DEF       1242-RES
    REWX1
             94/DEF        872-RES
    REWX3
             95/DEF        943-RES
    RL
            289-EQU        350/LW         357/BAL        359/BAL        361/BAL        363/BAL        365/LW
            370/LI         373/LW         381/AI         390/BAL        392/BAL        393/BAL        395/BAL
            397/BAL        399/BAL        402/BAL        460/BAZ*       462/EXIT       471/BAZ*       476/EXIT
            495/EXIT       501/EXIT       607/B*         657/B         1080/BAL       1119/BAL       1144/STW
           1146/LB        1149/SW        1151/SLS
    ROOTEXIT
            122/DEF        366/BEZ        387-RES
    ROOTRTN
            124/DEF        638-RES
    R10
            293-EQU        318/BAL        320/BAL        331/BAL        333/BAL        335/BAL        337/BAL
            339/BAL        341/BAL        342/BAL        343/BAL        344/BAL        345/BAL        348/BAL
            353/BAL
    R15
            294-EQU        309/BAL
    R8
            302-EQU        683/LI         684/DW         690/LI         691/DW
    R9
            304-EQU        678/LW         679/AW         680/AW         681/AW         682/SW         686/LW
            693/LW
    SAVAREA
            120/DEF        273-RES       1112/STM       1121/LM
    SAVE
            600/M:CLOSE    613/COM        620/DCBCON     621/DCBCON     622/DCBCON     623/DCBCON
            624/DCBCON     625/DCBCON     626/DCBCON     628/DCBCON     629/DCBCON     630/DCBCON
            631/DCBCON     633/DCBCON     822/M:DCB      836/M:DCB
    SCOR
            613/COM
    SD%FLAG
            193-OPTION
    SDFCON
             62/DEF        255-RES        256/EQU
    SDFSYS
             62/DEF        256-EQU
    SDFSYS%SIZE
             83/DEF        207-EQU
    SEGMENT#
             66/DEF        219-DATA       595/CW         698/LW
    SFTBL
           1146/LB        1164-DATA
    SI%FLAG
            194-OPTION
    SIZE
            852/M:READ     863/M:WRITE    919/M:READ     934/M:WRITE   1030/M:DEVICE  1075/M:WRITE
           1081/M:WRITE   1100/M:WRITE   1128/M:WRITE   1190/M:WRITE   1212/M:WRITE   1220/M:READ
           1228/M:WRITE
    SKIP
            473/M:PFIL     474/M:PFIL     475/M:PFIL
    SO%ADJ%FPT
             72/DEF        224-GEN
    SO%ADJ%NAME
             73/DEF        231-DATA
    SO%FLAG
            195-OPTION
    SO%KEY
             74/DEF        234-RES
    SR1
            303-EQU       1091/AI        1093/LI        1094/STW
    START
            307-RES       1245/END
    STATUS%MESSAGE
            677/STW        685/LI         689/STB        692/LI         701/STH        702/LI
            774-TEXTC
    STDERROR
            158/REF        825/M:DCB      826/M:DCB      831/M:DCB      832/M:DCB
    SU%FLAG
            196-OPTION
    SUBLINE
             65/DEF        218-DATA       714/LW
    SYS
             35-EQU         38/DO1         41/DO1         45/DO          48/DO          68/DO         127/DO
            143/DO         202/EQU        221/DO         241/DO1        276/DO         311/DO         324/DO
            329/DO         355/DO         368/DO         388/DO         432/DO         451/DO         503/DO
            507/DO         584/DO         616/DO         627/DO         636/RES        671/DO         782/DO
            786/DO         829/DO         839/DO1        955/DO         965/DO         983/DO         994/DO
           1012/DO        1024/DO        1052/DO        1058/DO        1070/DO        1086/DO        1176/DO
           1199/DO
    SYSABN
            141/REF        837/M:DCB      840/M:DCB
    SYSLEVEL
             56/DEF        259-EQU        742/MTW
    SYSNAME
             90/DEF        636-RES        746/LI
    SYSOPNER
            159/REF        837/M:DCB      840/M:DCB
    SYSTEM%MESSAGE
            744/LI         767-TEXTC
    TEST%BA%FLAG
            351/BEZ        354-RES
    TITLEBUF
             58/DEF        245-RES       1075/M:WRITE   1081/M:WRITE
    TPEXT
            130/SREF       678/LW
    TPOVT
            131/SREF       679/AW
    TRAPLOC
             78/DEF        504-RES        508-RES
    TRIES
            797/M:DCB      803/M:DCB      809/M:DCB      815/M:DCB      819/M:DCB      824/M:DCB
            834/M:DCB
    TRYCONC
            322/BEZ        349-RES
    TUEXT
            132/SREF       680/AW
    TUOVT
            133/SREF       681/AW
    TYPEFPT
            703-M:TYPE     738/M:TYPE     745/M:TYPE     747/M:TYPE     754/M:TYPE
    UPDT%ERROR
            125/DEF        275-RES
    USERPSW1
            214-RES        513/STW        526/LB*        531/ANLZ*      532/STW        536/ANLZ*
    VAL%S:IVAL
             55/DEF        208-RES
    WAIT
            852/M:READ     863/M:WRITE    920/M:READ     935/M:WRITE    963/M:READ     972/M:READ
            992/M:WRITE   1001/M:WRITE   1075/M:WRITE   1081/M:WRITE   1100/M:WRITE   1129/M:WRITE
           1190/M:WRITE   1213/M:WRITE   1220/M:READ    1228/M:WRITE
    WDX1SIZE
             96/DEF        205-EQU        264/RES
    WDX3SIZE
             97/DEF        206-EQU        265/RES
    WEOF
            357/BAL        359/BAL        361/BAL        363/BAL        392/BAL        457-RES
    WRDO1
           1178/BGEZ      1185-RES
    WRDO2
           1183/BAZ       1188-RES
    WRGO1
           1201/BGEZ      1205-RES
    WRITEBO
            100/DEF       1108-RES
    WRITEBO1
           1110/BEZ       1123-RES
    WRITEDO
            101/DEF       1175-RES
    WRITEGO
            102/DEF       1198-RES
    WRITELO
            103/DEF       1054/BEZ       1057-RES
    WRITESTD
            104/DEF       1227-RES
    WRITEX1
             94/DEF        861-RES
    WRITEX3
             95/DEF        928-RES
    WRITEX5
             99/DEF        982-RES
    WRLO1
           1067/BGZ       1099-RES
    WRLO2
           1088/BGZ       1096-RES
    WRLO3
           1060/BGEZ      1064-RES
    WRLO5
           1072/BEZ       1077-RES
    WRLO6
           1074/BNE       1076/B         1082-RES
    XAPCCI
            308/M:SEGLD    405/M:SEGLD    433-EQU        444-TEXTC
    XAPCODE
             44-CSECT       54/DEF        306/USECT      640/USECT      842/USECT
    XAPCONC
            352/M:SEGLD    441-EQU        449-TEXTC
    XAPDATA
             36-DSECT
    XAPDG
            328/M:SEGLD    437-EQU        447-TEXTC
    XAPDGCOM
            325/M:SEGLD    436-EQU
    XAPDGINT
            330/M:SEGLD    334/M:SEGLD    338/M:SEGLD    438-EQU
    XAPD1
             40-DSECT
    XAPENDP
            347/M:SEGLD    440-EQU        448-TEXTC
    XAPINIT
            317/M:SEGLD    434-EQU        445-TEXTC
    XAPNCDR
            319/M:SEGLD    435-EQU        446-TEXTC
    XAPPART
            332/M:SEGLD    336/M:SEGLD    439-EQU
    XT
            286-EQU        287/EQU        288/EQU        653/LD         655/STD        676/LW         677/STW
            688/LI         689/STB        699/LB         700/AI         701/STH        702/LI
            703/M:TYPE     709/LW         710/STW        711/STW        712/LW         713/STW        719/LW
            720/STW        737/LI         744/LI         746/LI         753/LI        1116/LI        1152/AH
           1153/STH       1156/AI        1158/AH        1159/STH
    XT1
            287-EQU        686/LW         693/LW         698/LW         699/LB         707/CI         714/LW
            723/CH         735/LW        1117/LB        1162/BDR
    XT2
            288-EQU        654/LI         655/STD        656/BIR        685/LI         692/LI         721/LI
            723/CH         725/BIR        728/AI         734/LI        1143/LI        1146/LB        1154/CI
           1161/AI
    X1
            295-EQU        312/LI         314/STW        321/LW         369/LW         372/LW         382/AI
            383/CW         509/STW        510/STCF       512/LW         514/LW         517/LC         530/LM
            545/LW         546/AND        547/LCW        547/LCW        550/SLS
    X1BUF
             80/DEF        264-RES        852/M:READ     863/M:WRITE
    X2
            296-EQU        578/LI         580/LW         606/BIR
    X3
            297-EQU        356/LI         358/LI         360/LI         362/LI         389/LI         391/LI
            394/LI         396/LI         398/LI         458/LW         461/M:WEOF*    469/LW
            472/M:WEOF*    473/M:PFIL*    474/M:PFIL*    475/M:PFIL*    580/LW         581/LW         585/CI
            592/AND        600/M:CLOSE*   604/M:CLOSE*
    X3BUF
             80/DEF        265-RES
    X4
            298-EQU        458/LW         459/CW         469/LW         470/CW         496/LI         497/DW
            498/AI         499/STB        581/LW         582/CW         587/AND        588/CW         591/LV
            592/AND        594/LB         594/LB         595/CW        1083/LI        1084/STB       1085/LW
           1089/LW        1095/XW        1098/STW
    X5
            299-EQU        494/AI        1061/LW        1062/CI        1069/LW        1073/CI        1112/STM
           1113/LM        1114/STM       1121/LM        1179/LW        1180/CI        1182/CI
    X5%TKEY
            235-RES        957/STW        962/M:READ     985/STW        990/M:WRITE
    X5OPNFPT
           1014/STH       1015-M:OPEN    1014/STH
    X5RDFPT
            966/STW        967-M:READ
    X5WTFPT
            995/STW        996-M:WRITE
    X6
            300-EQU        372/LW         376/M:FVP*     378/AI         499/STB        500/BDR        537/STCF
            538/SLS        539/SLS        549/LW         550/SLS        551/AWM       1079/LI
    X7
            301-EQU        313/LI         314/STW        315/BDR        373/LW         379/AW         379/AW
            512/LW         513/STW        514/LW         515/CI         526/LB         527/CI         531/ANLZ
            532/STW        536/ANLZ       539/SLS        540/AND        541/M:GVP*     543/SW         544/SLS
            545/LW         548/SLS        551/AWM
    1ERLECTURE%LI
            118/DEF        267-RES
    %
            315/BDR        656/BIR        759/EQU       1092/BGZ       1118/BEZ
    #ACCTS
             77/DEF        263-RES
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APROOT'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APROOT                  %%%%%
         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                            *  FOR RBM, THE LARGEST DSECT MUST BE IN THE ROOT
        38   02 00000                          DO1      SYS=RBM
        39                        *S*          RES      X'D0'             LARGEST AREA IS IN DG OR CD
        40   03 00000                 XAPD1    DSECT    0
        41   03 00000                          DO1      SYS=RBM
        42                        *S*          RES      X'60'             USED ONLY BY CD & DG
        43   04 00000                 CCI4     CSECT    0                 PERMANENT DATA
        44   05 00000                 XAPCODE  CSECT    1                 CODE SECTION
        45         00000001                    DO       SYS=BPMUTS
        46         H00                         SYSTEM   BPM
        47                                     FIN
        48         00000000                    DO       SYS=RBM
        49                        *S*          SYSTEM   RBM
        50                                     FIN
        51                            *
        52                                     SYSTEM   AP%IL
        53                            *
        54                                     DEF      XAPCODE
        55                                     DEF      VAL%S:IVAL
        56                                     DEF      SYSLEVEL
        57                                     DEF      DEDIT
        58                                     DEF      LSTBF,TITLEBUF
        59                                     DEF      PGLINES,PGNUM
        60                                     DEF      PAGENUM
        61                                     DEF      RD%STD
        62                                     DEF      SDFCON,SDFSYS
        63                                     DEF      LOWCORE
        64                                     DEF      ENDCORE
        65                                     DEF      MAJLINE,SUBLINE   ASSEMBLY LINE NUMBER
        66                                     DEF      SEGMENT#          AP OVERLAY SEGMENT
        67                            *
        68         00000001                    DO       SYS=BPMUTS
        69                                     DEF      INIT%TUNITS       CHARGEABLE TIME @ START OF ASSEM.
        70                                     DEF      PAGETBL
        71                                     DEF      REPORT%STATUS     ON-LINE BREAK RECEIVER
        72                                     DEF      SO%ADJ%FPT
        73                                     DEF      SO%ADJ%NAME
        74                                     DEF      SO%KEY            FLAG/KEY FOR 'SO' TO FILE
        75                                     FIN
        76                            *
        77                                     DEF      ACCOUNTS,#ACCTS
        78                                     DEF      TRAPLOC
        79                                     DEF      NEXTST,NXSYMB
        80                                     DEF      X1BUF,X3BUF
        81                                     DEF      ASSEMBLE%FLAG
        82                                     DEF      NUM%PAGE%LINES
        83                                     DEF      SDFSYS%SIZE
        84                                     DEF      OPTION%FLAGS
        85                                     DEF      AC%FLAG
        86                                     DEF      PD%FLAG
        87                                     DEF      ABN%%STD
        88                                     DEF      ABN%%X2
        89                                     DEF      ABN%%X4
        90                                     DEF      ABORT,MPX1,CLRLSTBF,SYSNAME
        91                                     DEF      BO%SIZE           BYTE SIZE OF BO RECORD
        92                                     DEF      CO%SIZE           BYTE SIZE OF CO RECORD
        93                                     DEF      CORRESWD          FLAGS INDIC. IDEN. DCB ASSIGNMENTS
        94                                     DEF      READX1,WRITEX1,REWX1,POSITIONX1
        95                                     DEF      READX3,WRITEX3,REWX3,POSITIONX3
        96                                     DEF      BYX1SIZE,HWX1SIZE,WDX1SIZE
        97                                     DEF      BYX3SIZE,HWX3SIZE,WDX3SIZE
        98                                     DEF      OPENX5,CLOSEX5
        99                                     DEF      READX5,WRITEX5
       100                                     DEF      WRITEBO
       101                                     DEF      WRITEDO
       102                                     DEF      WRITEGO
       103                                     DEF      WRITELO
       104                                     DEF      READSTD,WRITESTD,REWSTD
       105                                     DEF      POSITIONSTD
       106                                     DEF      ERR%%C
       107                                     DEF      ERR%%BO,ERR%%CI,ERR%%CO,ERR%%DO
       108                                     DEF      ERR%%GO,ERR%%LO,ERR%%SI,ERR%%SO
       109                                     DEF      ERR%%X2,ERR%%X4
       110                                     DEF      ERR%%STD                                            *D-ROOT
       111                                     DEF      EODCNT,EODCNTCI
       112                                     DEF      BLANC
       113                                     DEF      NIVO
       114                                     DEF      ERR%%X1,ERR%%X3
       115                                     DEF      ABN%%X1,ABN%%X3
       116                                     DEF      ADRDCB
       117                                     DEF      CI%DCB
       118                                     DEF      1ERLECTURE%LI
       119                                      DEF       IM@NAME
       120                                      DEF       SAVAREA,LINE%TYPE
       121                                     DEF      FINMAJ,CLOSE%FILES
       122                                     DEF      ROOTEXIT
       123                                     DEF      DGWRITELO
       124                                     DEF      ROOTRTN
       125                                     DEF      UPDT%ERROR
       126                                     DEF      BO%IDWDS,CO%IDWDS,CARDSEQ
       127         00000001                    DO       SYS=BPMUTS
       128                                     DEF      DO%ONLINE,LO%ONLINE
       129                                     SREF     J:JIT,JOPT
       130                                     SREF     TPEXT
       131                                     SREF     TPOVT
       132                                     SREF     TUEXT
       133                                     SREF     TUOVT
       134                                     FIN
       135                                     REF      M:SI,M:CI,M:CO
       136                                     REF      M:BO
       137                                     REF      M:GO
       138                                     REF      M:LL                                         /27953/*D-ROOT
       139                                     REF      M:LO
       140                                     REF      M:DO,M:SO
       141                                     REF      SYSABN            ABNORMAL RETURN ON F:SYS OPEN
       142                                     REF      BOBUF
       143         00000000                    DO       SYS=RBM
       144                        *S*          DEF      F:SYS,F:STD
       145                        *S*          REF      M:X1
       146                        *S* F:X1     EQU      M:X1
       147                        *S*          REF      M:X3
       148                        *S* F:X3     EQU      M:X3
       149                        *S*          REF      M:X5
       150                        *S* F:X5     EQU      M:X5
       151                                     FIN
       152                                     REF      CTL%CARD%INTERPRETER
       153                                     REF      IM@INIT
       154                                     REF      CONCORD
       155                                     REF      DEFGEN
       156                                     REF      DGEND
       157                                     REF      NCDR
       158                                     REF      STDERROR
       159                                     REF      SYSOPNER
       160                                     REF      AP%ABORT
       161                                     REF      DGINIT,ENDDEF,ENDGEN
       162                            *
       163         00000000           OPTION   CNAME
       164                                     PROC
       165                                     DEF      LF
       166                            LF       DATA     0
       167                                     PEND
       168                            *
       169                            *  EQUATES FOR ABORT
       170         00000000           AR       EQU      0                 ABORT REGISTER
       171         00000005           ABORT5   EQU      5
       172         00000006           ABORT6   EQU      6
       173         00000007           ABORT7   EQU      7
       174         00000008           ABORT8   EQU      8
       175                            *
       176                            *   CP-R SYSTEM PARAMETERS
       177                            *
       178         00000006           D1       EQU      6                 TYPE CODE FOR 'D1' AREA ON DISK
1
       180   05 00000                          USECT    CCI4
       181   04 00000                 OPTION%FLAGS  RES  0
       182   04 00000    00000000 A   BA%FLAG  OPTION   'BA'
       183   04 00001    00000000 A   BO%FLAG  OPTION   'BO'
       184   04 00002    00000000 A   CI%FLAG  OPTION   'CI'
       185   04 00003    00000000 A   CO%FLAG  OPTION   'CO'
       186   04 00004    00000000 A   DC%FLAG  OPTION   'DC'
       187   04 00005    00000000 A   GO%FLAG  OPTION   'GO'
       188   04 00006    00000000 A   LO%FLAG  OPTION   'LO'
       189   04 00007    00000000 A   LS%FLAG  OPTION   'LS'
       190   04 00008    00000000 A   LU%FLAG  OPTION   'LU'
       191   04 00009    00000000 A   ND%FLAG  OPTION   'ND'
       192   04 0000A    00000000 A   NS%FLAG  OPTION   'NS'
       193   04 0000B    00000000 A   SD%FLAG  OPTION   'SD'              SYMBOLIC DEBUGGING OUTPUT
       194   04 0000C    00000000 A   SI%FLAG  OPTION   'SI'
       195   04 0000D    00000000 A   SO%FLAG  OPTION   'SO'
       196   04 0000E    00000000 A   SU%FLAG  OPTION   'SU'
       197   04 0000F    00000000 A   PD%FLAG  DATA     0
       198   04 00010    00000000 A   AC%FLAG  DATA     0
       199                            *
       200   04 00011    00000000 A   CORRESWD DATA     0                 (LO=DO)  (LO=C)  (SI=C)  (----)
       201         00000800           BYX1SIZE EQU      2048                     # BYTES IN X1BUF    /27493*D-ROOT/
       202         00000800           BYX3SIZE EQU      1024+1024*(SYS=BPMUTS)   # BYTES IN X3BUF
       203         00000400           HWX1SIZE EQU      BYX1SIZE/2        # OF HALFWORDS IN X1BUF
       204         00000400           HWX3SIZE EQU      BYX3SIZE/2        # OF HALFWORDS IN X3BUF
       205         00000200           WDX1SIZE EQU      BYX1SIZE/4        # WORDS IN X1BUF
       206         00000200           WDX3SIZE EQU      BYX3SIZE/4        # WORDS IN X3BUF
       207         00000050           SDFSYS%SIZE  EQU  20*4              SIZE OF SYSTEM FILE NAME TABLE
       208   04 00012                 VAL%S:IVAL  RES   1                 S:IVAL FOR SYSTEM SIG7'S
       209   04 00013                 LOWCORE  RES      1                 CONTAINS LOWEST DYNAMIC TABLE LOC
       210   04 00014                 ENDCORE  RES      1                 LAST DYNAMIC STORAGE ADDRESS +1
       211   04 00015                 MPX1     RES      1
       212   04 00016                 EODCNT   RES      1                 COUNT OF # OF EOD'S ENCOUNTERED
       213   04 00017                 EODCNTCI RES      1                 # OF EOD'S ENCOUNTERED IN CI
       214   04 00018                 USERPSW1 RES      1
       215   04 00019                 NEXTST   RES      1                 INDEX TO NEXT AVAIL SYM TAB LOC
       216   04 0001A                 NXSYMB   RES      1                 NEXT SYMBOL SEQUENCE NUMBER
       217   04 0001B    00000000 A   MAJLINE  DATA     0                 MAJOR PART OF A LINE NUMBER       *D-ROOT
       218   04 0001C    00000000 A   SUBLINE  DATA     0                 INSERT PART OF A LINE NUMBER      *D-ROOT
       219   04 0001D    00000000 A   SEGMENT# DATA     0                 AP SEGMENT # IN CORE       /27453/*D-ROOT
       220                            *
       221         00000001                    DO       SYS=BPMUTS
       222   04 0001E                 INIT%TUNITS  RES  1                 TIMER UNITS @ START OF ASSEM.
       223   04 0001F                 PAGETBL  RES      4                 BITS CORRESPOND TO CORE PAGES IN USE
       224                            SO%ADJ%FPT        ;                 ADJUST-DCB FPT SETS M:SO KEYED
       225   04 00023    14000000 N            GEN,8,24 X'14',M:SO
       226   04 00024    0000E000 A            GEN      X'E000'           VARPS PRESENT
       227   04 00025    06080000 A            GEN      X'06080000'       P6 P7 P13                         *D-ROOT
       228   04 00026    00000002 A            GEN      2                 ORG = KEYED
       229   04 00027    00000002 A            GEN      2                 ACC = DIRECT
       230   04 00028    00000003 A            GEN      3                 KEYM
       231                            SO%ADJ%NAME       ;
       232   04 00029    01010008 A            DATA     X'01010008'
       233   04 0002A                          RES      8
       234   04 00032                 SO%KEY   RES      1                 FLAG/KEY FOR 'SO' TO FILE
       235   04 00033                 X5%TKEY  RES      1                 TEMP FOR X5 KEY BUILD
       236                                     FIN
       237                            *
       238                                     BOUND    8
       239   04 00034    7AE2E8E2 A   ACCOUNTS DATA,8   ':SYS    '
                         40404040
       240   04 00036                          RES      2
       241   04 00038                          DO1      SYS~=RBM
       242   04 00038                          RES,8    8
       243                                     BOUND    8
       244   04 00048                 LSTBF    RES      34
       245   04 0006A                 TITLEBUF RES      0
       246   04 0006A    F15C40C1 A            TEXT     '1* AP * '
             04 0006B    D7405C40 A
       247   04 0006C                          DO1      22
       248   04 0006C    40404040 A            DATA     '    '
             04 0006D    40404040 A
             04 0006E    40404040 A
             04 0006F    40404040 A
             04 00070    40404040 A
             04 00071    40404040 A
             04 00072    40404040 A
             04 00073    40404040 A
             04 00074    40404040 A
             04 00075    40404040 A
             04 00076    40404040 A
             04 00077    40404040 A
             04 00078    40404040 A
             04 00079    40404040 A
             04 0007A    40404040 A
             04 0007B    40404040 A
             04 0007C    40404040 A
             04 0007D    40404040 A
             04 0007E    40404040 A
             04 0007F    40404040 A
             04 00080    40404040 A
             04 00081    40404040 A
       249   04 00082    4040D7C1 A            TEXT     '  PAGE  '
             04 00083    C7C54040 A
       250   04 00084    40404040 A   PGNUM    TEXT     '    '
       251   04 00085                 PGLINES  RES      1
       252   04 00086    00000000 A   PAGENUM  DATA     0                 PAGE NUMBER IN BINARY
       253   04 00087                 RD%STD   RES      1                 0=DON'T READ F:STD FILE
       254   04 00088                 NUM%PAGE%LINES  RES  1              NUMBER OF LINES PER PRINT PAGE - 3
       255   04 00089                 SDFCON   RES      21                SYSTEM NAME CONTROL INFO
       256         04 0008A           SDFSYS   EQU      SDFCON+1          SYSTEM NAME TABLE
       257   04 0009E                 IM@NAME  RES      1                 COUNT & BYTE ADDR OF SYSTEM NAME
       258   04 0009F                 NIVO     RES      1                 DEPTH OF SYSTEM NESTING
       259         04 0009F           SYSLEVEL EQU      NIVO
       260   04 000A0                 ADRDCB   RES      1                 ADDRESS OF SI DCB
       261   04 000A1                 ASSEMBLE%FLAG  RES  1               NON-ZERO WHEN DEFGEN IS REQUIRED
       262   04 000A2                 LINE%TYPE   RES   1                 1=SI, 2=CI, 3=BOTH
       263   04 000A3                 #ACCTS   RES      1
       264   04 000A4                 X1BUF    RES      WDX1SIZE          ENCODED TEXT BUFFER
       265   04 002A4                 X3BUF    RES      WDX3SIZE          COMPRESSED SOURCE BUFFER
       266   04 004A4    00000000 N   CI%DCB   DATA     M:CI
       267   04 004A5                 1ERLECTURE%LI  RES  1
       268   04 004A6                 BO%IDWDS RES      4                 3 WDS FOR BOBUF ID, 1 FOR BO SEQNO.
       269         04 004A9           BOSEQNO  EQU      BO%IDWDS+3        SEQ. NO. FOR COLS 73-80
       270   04 004AA                 BO%SIZE  RES      1                 BYTE SIZE OF BO RECORD
       271   04 004AB                 CO%IDWDS RES      4                 3 WDS OF COBUF ID, 1 FOR CO SEQNO.
       272   04 004AF                 CO%SIZE  RES      1                 BYTE SIZE OF CO RECORD
       273   04 004B0                 SAVAREA  RES      15                REGISTER SAVE AREA
       274   04 004BF                 FINMAJ   RES      1                 0=UPDATES NOT DONE ;1=DONE
       275   04 004C0                 UPDT%ERROR  RES   1                 NO. OF '+' CARD ERRORS
       276         00000001                    DO       SYS=BPMUTS
       277   04 004C1                 DO%ONLINE  RES    1                 NON-ZERO WHEN DO IS ON-LINE
       278   04 004C2                 LO%ONLINE  RES    1                 NON-ZERO WHEN LO IS ON-LINE
       279                                     FIN
       280                            *
       281                            * UTS JIT OPTION BITS. MASKS FOR BITS WITHIN JOPT WORD
       282         00000001           LOBIT    EQU      1
       283         00000080           GOBIT    EQU      X'80'
       284         00000100           DOBIT    EQU      X'100'
       285                            *
       286         00000004           XT       EQU      4
       287         00000005           XT1      EQU      XT+1
       288         00000006           XT2      EQU      XT+2
       289         00000007           RL       EQU      7
       290         00000008           IOADD    EQU      8
       291         00000009           IOSIZE   EQU      9
       292         0000000A           IORL     EQU      10
       293         0000000A           R10      EQU      10
       294         0000000F           R15      EQU      15
       295         00000001           X1       EQU      1
       296         00000002           X2       EQU      2
       297         00000003           X3       EQU      3
       298         00000004           X4       EQU      4
       299         00000005           X5       EQU      5
       300         00000006           X6       EQU      6
       301         00000007           X7       EQU      7
       302         00000008           R8       EQU      8
       303         00000008           SR1      EQU      8
       304         00000009           R9       EQU      9
1
       306   04 004C3                          USECT    XAPCODE
       307   05 00000                 START    RES      0
       308   05 00000    04800000 06           M:SEGLD  XAPCCI
             06 00000    01000000 N
                         0000002F
       309   05 00001    6AF00000 X            BAL,R15  CTL%CARD%INTERPRETER
       310   05 00002                 NEXT%PROGRAM  RES  0
       311         00000001                    DO       SYS=BPMUTS
       312   05 00002    22100000 A            LI,X1    0
       313   05 00003    22700004 A            LI,X7    4
       314   05 00004    351E001E 04           STW,X1   PAGETBL-1,X7
       315   05 00005    64700004              BDR,X7   %-1
       316                                     FIN
       317   05 00006    04800002 06           M:SEGLD  XAPINIT
             06 00002    01000000 N
                         00000032
       318   05 00007    6AA00000 X            BAL,R10  IM@INIT
       319   05 00008    04800004 06           M:SEGLD  XAPNCDR
             06 00004    01000000 N
                         00000035
       320   05 00009    6AA00000 X            BAL,R10  NCDR
       321   05 0000A    321000A1 04           LW,X1    ASSEMBLE%FLAG     IS DEFGEN PASS REQUIRED
       322   05 0000B    68300014              BEZ      TRYCONC
       323                            *
       324         00000000                    DO       SYS=RBM
       325                        *S*          M:SEGLD  XAPDGCOM          COMMON ASSEMBLY-PHASE ROUTINES
       326                                     FIN
       327                            *
       328   05 0000C    04800006 06           M:SEGLD  XAPDG
             06 00006    01000000 N
                         00000038
       329         00000000                    DO       SYS=RBM
       330                        *S*          M:SEGLD  XAPDGINT
       331                        *S*          BAL,R10  DGINIT            INITIALIZE FOR DEF PASS
       332                        *S*          M:SEGLD  XAPPART
       333                        *S*          BAL,R10  DEFGEN            EXECUTE DEF PASS
       334                        *S*          M:SEGLD  XAPDGINT
       335                        *S*          BAL,R10  ENDDEF            EXECUTE DEF-END PROCESSOR
       336                        *S*          M:SEGLD  XAPPART
       337                        *S*          BAL,R10  DEFGEN            EXECUTE GEN PASS
       338                        *S*          M:SEGLD  XAPDGINT
       339                        *S*          BAL,R10  ENDGEN            EXECUTE GEN-END PROCESSOR
       340                                     ELSE
       341   05 0000D    6AA00000 X            BAL,R10  DGINIT            INITIALIZE FOR DEF PASS
       342   05 0000E    6AA00000 X            BAL,R10  DEFGEN            EXECUTE DEF PASS
       343   05 0000F    6AA00000 X            BAL,R10  ENDDEF            EXECUTE DEF-END PROCESSOR
       344   05 00010    6AA00000 X            BAL,R10  DEFGEN            EXECUTE GEN PASS
       345   05 00011    6AA00000 X            BAL,R10  ENDGEN            EXECUTE GEN-END PROCESSOR
       346                                     FIN
       347   05 00012    04800008 06           M:SEGLD  XAPENDP
             06 00008    01000000 N
                         0000003A
       348   05 00013    6AA00000 X            BAL,R10  DGEND             CALL GEN 'END' PROCESSOR
       349   05 00014                 TRYCONC  RES      0
       350   05 00014    32700004 04           LW,RL    DC%FLAG
       351   05 00015    68300018              BEZ      TEST%BA%FLAG
       352   05 00016    0480000A 06           M:SEGLD  XAPCONC
             06 0000A    01000000 N
                         0000003D
       353   05 00017    6AA00000 X            BAL,R10  CONCORD
       354   05 00018                 TEST%BA%FLAG  RES  0
       355         00000000                    DO       SYS=RBM
       356                        *S*          LI,X3    M:CO              WRITE EOF ON CO IF OPEN
       357                        *S*          BAL,RL   WEOF
       358                        *S*          LI,X3    M:LO              WRITE EOF ON LO IF OPEN
       359                        *S*          BAL,RL   WEOF
       360                        *S*          LI,X3    M:DO              WRITE EOF ON DO IF OPEN
       361                        *S*          BAL,RL   WEOF
       362                        *S*          LI,X3    M:SO
       363                        *S*          BAL,RL   WEOF              WRITE EOF ON SO IF OPEN
       364                                     FIN
       365   05 00018    32700000 04           LW,RL    BA%FLAG
       366   05 00019    68300028              BEZ      ROOTEXIT
       367                            *  RELEASE ALL PAGES USED AT THE END OF THE ASSEMBLY
       368         00000001                    DO       SYS=BPMUTS
       369   05 0001A    32100013 04           LW,X1    LOWCORE
       370   05 0001B    22700000 A            LI,RL    0
       371   05 0001C                 FPG1     RES      0
       372   05 0001C    32600001 A            LW,X6    X1
       373   05 0001D    327E001F 04           LW,X7    PAGETBL,RL
       374   05 0001E                 FPG2     RES      0
       375   05 0001E    69200020              BGZ      FPG3
       376   05 0001F    0480000C 06           M:FVP    *X6
             06 0000C    85000006 A
       377   05 00020                 FPG3     RES      0
       378   05 00020    20600200 A            AI,X6    512
       379   05 00021    30700007 A            AW,X7    X7                SHIFT LEFT 1 AND SET COMPARITOR
       380   05 00022    6930001E              BNEZ     FPG2
       381   05 00023    20700001 A            AI,RL    1
       382   05 00024    20104000 A            AI,X1    512*32
       383   05 00025    31100014 04           CW,X1    ENDCORE
       384   05 00026    6910001C              BL       FPG1
       385                                     FIN
       386   05 00027    68000002              B        NEXT%PROGRAM
       387   05 00028                 ROOTEXIT RES      0
       388         00000000                    DO       SYS=RBM
       389                        *S*          LI,X3    M:CO
       390                        *S*          BAL,RL   IOTERM            WEOF, BACKSPACE 2, FORWARD 1
       391                        *S*          LI,X3    M:GO
       392                        *S*          BAL,RL   WEOF
       393                        *S*          BAL,RL   IOTERM            WEOF, BACKSPACE 2, FORWARD 1
       394                        *S*          LI,X3    M:LO
       395                        *S*          BAL,RL   IOTERM            WEOF, BACKSPACE 2, FORWARD 1
       396                        *S*          LI,X3    M:DO
       397                        *S*          BAL,RL   IOTERM            WEOF, BACKSPACE 2, FORWARD 1
       398                        *S*          LI,X3    M:SO
       399                        *S*          BAL,RL   IOTERM            WEOF, BACKSPACE 2, FORWARD 1
       400                                     FIN
       401   05 00028    22A00010 A            LI,IORL  16                NORMAL CLOSE
       402   05 00029    6A700070              BAL,RL   CLOSE%FILES
       403   05 0002A    04900001 A            M:EXIT
       404   05 0002B                 ABORT    RES      0
       405   05 0002B    0480000D 06           M:SEGLD  XAPCCI
             06 0000D    01000000 N
                         0000002F
       406   05 0002C    68000000 X            B        AP%ABORT
       407   05 0002D                 ERR%%BO  RES      0
       408   05 0002D                 ERR%%C   RES      0
       409   05 0002D                 ERR%%CI  RES      0
       410   05 0002D                 ERR%%CO  RES      0
       411   05 0002D                 ERR%%DO  RES      0
       412   05 0002D                 ERR%%GO  RES      0
       413   05 0002D                 ERR%%LO  RES      0
       414   05 0002D                 ABN%%SI  RES      0
       415   05 0002D                 ERR%%SI  RES      0
       416   05 0002D                 ERR%%SO  RES      0
       417   05 0002D                 ERR%%X1  RES      0
       418   05 0002D                 ABN%%X1  RES      0
       419   05 0002D                 ERR%%X2  RES      0
       420   05 0002D                 ABN%%X2  RES      0
       421   05 0002D                 ERR%%X3  RES      0
       422   05 0002D                 ABN%%X3  RES      0
       423   05 0002D                 ERR%%X2KF  RES    0
       424   05 0002D                 ABN%%X2KF  RES    0
       425   05 0002D                 ABN%%X4  RES      0
       426   05 0002D                 ERR%%X4  RES      0
       427   05 0002D                 ERR%%X5  RES      0
       428   05 0002D                 ABN%%X5  RES      0
       429   05 0002D                 ERR%%STD RES      0
       430   05 0002D                 ABN%%STD RES      0
       431   05 0002D    22000005 A            ABORT    ABORT5            ERROR OR ABN ON AN I/O FILE
             05 0002E    6800002B
       432         00000000                    DO       SYS=RBM
       433                        *S* XAPCCI   EQU      1
       434                        *S* XAPINIT  EQU      2
       435                        *S* XAPNCDR  EQU      3
       436                        *S* XAPDGCOM EQU      4                 ASM COMMON
       437                        *S* XAPDG    EQU      41                ASSEMBLER
       438                        *S* XAPDGINT EQU      411               ASM INITIALIZATION
       439                        *S* XAPPART  EQU      412               ASM PARTICULARIZATION
       440                        *S* XAPENDP  EQU      42                ASM END/SUMMARY
       441                        *S* XAPCONC  EQU      5                 CONCORDANCE
       442                        *S* *
       443                                     ELSE
       444   05 0002F    08C2D67A A   XAPCCI   TEXTC    'BO:APCCI'
             05 00030    C1D7C3C3 A
             05 00031    C9404040 A
       445   05 00032    09C2D67A A   XAPINIT  TEXTC    'BO:APINIT'
             05 00033    C1D7C9D5 A
             05 00034    C9E34040 A
       446   05 00035    08C2D67A A   XAPNCDR  TEXTC    'BO:APNCD'
             05 00036    C1D7D5C3 A
             05 00037    C4404040 A
       447   05 00038    07C2D67A A   XAPDG    TEXTC    'BO:APDG'
             05 00039    C1D7C4C7 A
       448   05 0003A    08C2D67A A   XAPENDP  TEXTC    'BO:APEND'
             05 0003B    C1D7C5D5 A
             05 0003C    C4404040 A
       449   05 0003D    08C2D67A A   XAPCONC  TEXTC    'BO:APCNC'
             05 0003E    C1D7C3D5 A
             05 0003F    C3404040 A
       450                                     FIN
       451         00000000                    DO       SYS=RBM
       452                        *S* *
       453                        *S* *  W E O F
       454                        *S* *  WRITE AN END-OF-FILE MARK IF THE (INPUT) FILE IS OPEN
       455                        *S* *      INPUT:  THE LOCATION OF THE DCB IS IN REGISTER X3
       456                        *S* *
       457                        *S* WEOF     RES      0
       458                        *S*          LW,X4    0,X3              FIRST WORD OF THE DCB
       459                        *S*          CW,X4    =FCDBIT           IS THE DCB OPEN
       460                        *S*          BAZ      *RL               EXIT IF IT'S CLOSED
       461                        *S*          M:WEOF   *X3
       462                        *S*          EXIT     RL
       463                        *S* *
       464                        *S* *  I O T E R M
       465                        *S* *   TERMINATE A FILE ON A GIVEN DCB (INPUT)
       466                        *S* *      INPUT:  THE LOCATION OF THE DCB IS IN REGISTER X3
       467                        *S* *
       468                        *S* IOTERM   RES      0
       469                        *S*          LW,X4    0,X3              FIRST WORD OF THE DCB
       470                        *S*          CW,X4    =FCDBIT           IS THE DCB OPEN
       471                        *S*          BAZ      *RL               EXIT IF IT'S CLOSED
       472                        *S*          M:WEOF   *X3
       473                        *S*          M:PFIL   *X3,(SKIP),(REV)
       474                        *S*          M:PFIL   *X3,(SKIP),(REV)
       475                        *S*          M:PFIL   *X3,(SKIP),(FWD)
       476                        *S*          EXIT     RL
       477                                     FIN
1
       479                            *
       480                            *  D E D I T
       481                            *        CONVERT A POSITIVE INTEGER TO EBCDIC DIGITS AND STORE IT
       482                            *          IN THE LISTING LINE IMAGE.
       483                            *
       484                            *          INPUT: NUMBER TO CONVERT IS IN REGISTER 5
       485                            *                 INDEX TO RIGHT-HAND DIGIT OF LSTBF IS IN
       486                            *                 REGISTER 6.
       487                            *
       488                            *         OUTPUT: REGISTER 5 CONTAINS ZERO.
       489                            *                 REGISTER 6 IS DECREASED BY THE NUMBER OF DIGITS STORED.
       490                            *
       491                            *        NO DIGITS ARE STORED IF THE INPUT NUMBER IS ZERO.
       492                            *
       493   05 00040                 DEDIT    RES      0
       494   05 00040    20500000 A            AI,X5    0                 EXIT IF ENTIRE NUMBER
       495   05 00041    683E0000 A            EXIT,EQ  RL                  IS CONVERTED
       496   05 00042    22400000 A            LI,X4    0
       497   05 00043    36400169              DW,X4    =10               REMAINDER IS NEXT DIGIT
       498   05 00044    204000F0 A            AI,X4    X'F0'
       499   05 00045    754C0048 04           STB,X4   LSTBF,X6
       500   05 00046    64600040              BDR,X6   DEDIT             DECREASE LSTBF INDEX AND RETURN
       501   05 00047    680E0000 A            EXIT     RL
1
       503         00000000                    DO       SYS=RBM
       504                        *S* TRAPLOC  RES      0
       505                        *S*          ABORT    ABORT6            ASSEMBLER ERROR
       506                                     FIN
       507         00000001                    DO       SYS=BPMUTS
       508   05 00048                 TRAPLOC  RES      0
       509   05 00048    35100015 04           STW,X1   MPX1              SAVE POINTER TO PSD-REG BLOCK
       510   05 00049    74000001 A            STCF     X1                SAVE CC TO TELL WHAT KIND OF TRAP
       511   05 0004A    33200015 04           MTW,2   MPX1               POINT TO SAVED R0
       512   05 0004B    32720000 A            LW,X7    0,X1              GET TRAPPED PSW1
       513   05 0004C    35700018 04           STW,X7   USERPSW1          SAVE IT
       514   05 0004D    32720012 A            LW,X7    18,X1
       515   05 0004E    21700040 A            CI,X7    X'40'             COULD IT BE MEMORY VIOLATION
       516   05 0004F    6930006E              BNE      BADTRAP             BRANCH IF NO
       517   05 00050    70200001 A            LC       X1                WAS TRAP FOR MEMORY PROTECTION
       518   05 00051    69E0006E              BCS,14   BADTRAP             BRANCH IF NO
       519                            *
       520                            *  THIS ROUTINE GETS PAGES FROM UTS ON DEMAND AFTER AN INSTRUCTION
       521                            *    HAS TRAPPED BECAUSE OF A MEMORY PROTECTION VIOLATION.  IT IS NOT
       522                            *    A GENERAL ROUTINE, AND CAN BE FOOLED BY SPECIAL CASES SUCH AS
       523                            *    PSM, TBS, MBS, AND MULTI-LEVEL EXU, BUT XAP DOESN'T HAVE ANY
       524                            *    INSTRUCTIONS LIKE THAT.
       525                            *
       526   05 00052    F2700018 04           LB,X7    *USERPSW1         IS TRAPPED INSTR AN
       527   05 00053    21700067 A            CI,X7    X'67'             EXECUTE-REMOTE
       528   05 00054    69300059              BNE      NOTEXU            BRANCH IF NO
       529   05 00055    02200000 A            LCI      0                 RESTORE USER'S REGS SO WE CAN
       530   05 00056    2A020002 A            LM,0     2,X1              GET ADDRESS OF REMOTE INSTRUCTION
       531   05 00057    C4700018 04           ANLZ,X7  *USERPSW1         & STORE IT AS ADDRESS OF
       532   05 00058    35700018 04           STW,X7   USERPSW1          INSTRUCTION TO BE ANALYZED NEXT
       533   05 00059                 NOTEXU   RES      0
       534   05 00059    02200000 A            LCI      0                 RESTORE REGISTERS
       535   05 0005A    AA000015 04           LM,0     *MPX1             OF TRAPPED PROGRAM
       536   05 0005B    C4700018 04           ANLZ,X7  *USERPSW1         ANALYZE TRAPPED INSTRUCTION
       537   05 0005C    74000006 A            STCF     X6                IF NECESSARY
       538   05 0005D    25600062 A            SLS,X6   -30               CONVERT EA OF TRAPPED
       539   05 0005E    257C007E A            SLS,X7   -2,X6             INSTRUCTION TO WORD RESOLUTION
       540   05 0005F    4B70016A              AND,X7   =X'1FE00'         BOUND BACK TO PAGE
       541   05 00060    0480000F 06           M:GVP    *X7               ASK SYSTEM FOR PAGE
             06 0000F    84000007 A
       542   05 00061    6980006C              BCS,8    CANTHAVE          BRANCH IF REFUSED
       543   05 00062    38700013 04           SW,X7    LOWCORE           X7 NOW HAS AN OFFSET ADDRESS
       544   05 00063    25700077 A            SLS,X7   -9                SHIFT TO AN OFFSET PAGE NUMBER
       545   05 00064    32100007 A            LW,X1    X7                                                  *D-ROOT
       546   05 00065    4B10016B              AND,X1   L(X'1F')          GET PAGE COUNT MOD 32             *D-ROOT
       547   05 00066    3A100001 A            LCW,X1   X1                SAVE AS RIGHT SHIFT COUNT         *D-ROOT
       548   05 00067    2570007B A            SLS,X7   -5                SHIFT TO GENERATE A WORD OFFSET
       549   05 00068    3260016C              LW,X6    =X'80000000'      SHIFT INDICATOR BIT
       550   05 00069    25620000 A            SLS,X6   0,X1                TO APPROPRIATE POSITION
       551   05 0006A    666E001F 04           AWM,X6   PAGETBL,X7          AND SET THAT PAGE BIT ON
       552   05 0006B    04900005 A            M:TRTN                     RETURN TO TRAPPED PROGRAM FOR RETRY
       553   05 0006C                 CANTHAVE RES      0
       554   05 0006C    22000007 A            ABORT    ABORT7            MAX MEMORY PAGES
             05 0006D    6800002B
       555   05 0006E                 BADTRAP  RES      0
       556   05 0006E    22000008 A            ABORT    ABORT8            BAD INSTRUCTION TRAP
             05 0006F    6800002B
       557                                     FIN
1
       559                            *
       560                            *  C L O S E % F I L E S
       561                            *        INPUT FILES ARE NOT SAVED.  OUTPUT FILES ARE SAVED(*)./27453/*D-ROOT
       562                            *        TEMP FILES ARE ALSO CLOSED WITH SAVE TO AID PATCHING, /27453/*D-ROOT
       563                            *        BUT WILL GO AWAY BECAUSE OPENED TO NAMED FILE.        /27453/*D-ROOT
       564                            *                                                              /27453/*D-ROOT
       565                            *        (*)IN AN ABORT, DO NOT SAVE CERTAIN OUTPUT IF ASSIGNED/27453/*D-ROOT
       566                            *        TO A FILE, AS THE OLD COPY MIGHT STILL BE USEABLE.    /27453/*D-ROOT
       567                            *        HOWEVER, IF FILE IS COMPLETE, IT MAY BE SAVED.        /27453/*D-ROOT
       568                            *
       569                            *        INPUT:   REGISTER IORL CONTAINS 1 IF ABNORMAL TERMINATION
       570                            *
       571         00200000           FCDBIT   EQU      X'200000'         OPEN/CLOSED BIT
       572         7F000000           PREFLD   EQU      X'7F000000'       'PRESERVE AFTER' SEG #     /27453/*D-ROOT
       573                            *                                                              /27453/*D-ROOT
       574                                     LOCAL    %10,%20,%30
       575                                     LOCAL    %15                                          /27453/*D-ROOT
       576                            *                                                              /27453/*D-ROOT
       577   05 00070                 CLOSE%FILES  RES  0
       578   05 00070    222FFFF2 A            LI,X2    DCBCORG-DCBCEND   - NUMBER OF DCB'S TO CLOSE
       579   05 00071                 %10      RES      0
       580   05 00071    32340096              LW,X3    DCBCEND,X2        SAVE FLAG AND DCB ADDRESS
       581   05 00072    32460000 A            LW,X4    0,X3              WORD 0 OF DCB
       582   05 00073    3140016D              CW,X4    =FCDBIT           IS DCB OPEN
       583   05 00074    68400000 F            BAZ      %30               BRANCH IF CLOSED
       584         00000001                    DO       SYS~=RBM
       585   05 00075    21300000 A            CI,X3    0                 SHOULD IT BE SAVED
       586   05 00076    69200000 F            BGZ      %20               BRANCH IF NO
       587   05 00077    4B40016E              AND,X4   =15               SAVE ASN FIELD
       588   05 00078    3140000A A            CW,X4    IORL              DON'T SAVE OUTPUT DCB'S
       589   05 00079    69300000 F            BNE      %15                 IF FILE, IN AN ABORT,    /27453/*D-ROOT
       590                            *                                     AND PROTECT FLAG IS SET. /27453/*D-ROOT
       591   05 0007A    3240016F              LV,X4    PREFLD                                       /27453/*D-ROOT
       592   05 0007B    4B400003 A            AND,X4   X3                GET 'PRESERVE AFTER' SEG # /27453/*D-ROOT
       593         001F0000                    IF,NZ                                                 /27953/*D-ROOT
             05 0007C    68300080
       594   05 0007D    72400004 A            LB,X4    X4                RIGHT-JUSTIFY              /27453/*D-ROOT
       595   05 0007E    3140001D 04           CW,X4    SEGMENT#          CAN WE SAVE IT YET?        /27453/*D-ROOT
       596   05 0007F    68100000 F            BGE      %20               NOT YET                    /27453/*D-ROOT
       597                            *                                                              /27453/*D-ROOT
       598         00F10000                    FI                                                    /27953/*D-ROOT
       599   05 00080                 %15      RES      0                                            /27453/*D-ROOT
       600   05 00080    04100010 06           M:CLOSE  *X3,(SAVE)
             06 00010    95000003 A
                         80000000
             06 00012    00000002 A
       601   05 00081    68000000 F            B        %30
       602                                     FIN
       603   05 00082                 %20      RES      0
       604   05 00082    04100013 06           M:CLOSE  *X3               CLOSE WITHOUT SAVE
             06 00013    95000003 A
                         00000000
       605   05 00083                 %30      RES      0
       606   05 00083    65200071              BIR,X2   %10
       607   05 00084    E8000007 A            B        *RL               EXIT
1
       609                                     BOUND    8
       610   05 00086    40404040 A   BLANKS   DATA,8   '        '        DOUBLE WORD OF BLANKS
                         40404040
       611         05 00086           BLANC    EQU      BLANKS
       612                            *                                                              /27453/*D-ROOT
       613                            DCBCON   COM,1,7,7,17 SCOR(AF(2),SAVE),AF(3),0,AF(1)           /27453/*D-ROOT
       614                            *                                                              /27453/*D-ROOT
       615   05 00088                 DCBCORG  RES      0
       616         00000001                    DO       SYS=BPMUTS
       617   05 00088    00000000 X            DCBCON   M:SI
       618   05 00089    00000000 X            DCBCON   M:CI
       619                                     FIN
       620   05 0008A    84000000 X            DCBCON   M:BO,SAVE,4       SAVE FILE AFTER END SEGMENT/27453/*D-ROOT
       621   05 0008B    81000000 X            DCBCON   M:CO,SAVE,1       SAVE FILE AFTER ENCODER SEG/27453/*D-ROOT
       622   05 0008C    80000000 X            DCBCON   M:DO,SAVE
       623   05 0008D    80000000 X            DCBCON   M:GO,SAVE
       624   05 0008E    80000000 X            DCBCON   M:LL,SAVE         SAVE LISTING LOG IF OPEN   /27953/*D-ROOT
       625   05 0008F    80000000 X            DCBCON   M:LO,SAVE
       626   05 00090    81000000 X            DCBCON   M:SO,SAVE,1       SAVE FILE AFTER ENCODER SEG/27453/*D-ROOT
       627         00000001                    DO       SYS=BPMUTS
       628   05 00091    80000000 08           DCBCON   F:X1,SAVE
       629   05 00092    80000000 09           DCBCON   F:X2,SAVE
       630   05 00093    80000000 0A           DCBCON   F:X2KF,SAVE
       631   05 00094    80000000 0B           DCBCON   F:X3,SAVE
       632                                     FIN
       633   05 00095    80000000 0D           DCBCON   F:STD,SAVE
       634   05 00096                 DCBCEND  RES      0
       635   05 00096                          USECT    CCI4
       636   04 004C3                 SYSNAME  RES,1    9+23*(SYS=BPMUTS)    ROOM FOR SYSTEM NAME (LVL=1)
       637                                     BOUND    4
       638   04 004CB                 ROOTRTN  RES      1                 ROOT RETURN ADDRESS
1
       640   04 004CC                          USECT    XAPCODE
       641                            *
       642                            *   C L R L S T B F
       643                            *        THIS ROUTINE STORES BLANKS IN THE LISTING BUFFER.
       644                            *
       645                            *        CALL:    BAL,RL  CLRLSTBF
       646                            *
       647                            *        USES REGISTERS
       648                            *                 XT
       649                            *                 XT1
       650                            *                 XT2
       651                            *
       652   05 00096                 CLRLSTBF RES 0
       653   05 00096    12400086              LD,XT    BLANKS
       654   05 00097    226FFFEF A            LI,XT2   -17
       655   05 00098    154C006A 04           STD,XT   LSTBF+34,XT2      BLANKS TO LISTING BUFFER
       656   05 00099    65600098              BIR,XT2  %-1
       657   05 0009A    680E0000 A            B        0,RL              RETURN
1
       659                            *
       660                            *   R E P O R T % S T A T U S
       661                            *        IF ON-LINE, AND THE BREAK KEY WAS HIT AT THE USER CONSOLE,
       662                            *           REPORT THE CHARGEABLE CPU TIME SINCE START OF THIS
       663                            *           ASSEMBLY - THE ASSEMBLY PHASE IN PROGRESS - THE LINE
       664                            *           NUMBER (WITH POSSIBLE UPDATE FRACTION) - AND, IF IN A
       665                            *           SYSTEM, THE NAME OF THE LEVEL ONE SYSTEM.
       666                            *
       667                                     LOCAL    %10
       668                            *
       669   05 0009B                 REPORT%STATUS RES 0
       670                            *
       671         00000001                    DO       SYS=BPMUTS
       672                            *
       673                            *   CALCULATE AND EDIT THE ELAPSED CPU TIME SINCE THE ASSEMBLER
       674                            *        WAS FIRST CALLED.
       675                            *
       676   05 0009B    32400170              LW,XT    L('.000')
       677   05 0009C    354004D3 04           STW,XT   STATUS%MESSAGE+2
       678   05 0009D    32900000 F            LW,R9    J:JIT+TPEXT       PROCESSOR EXECUTION TIME
       679   05 0009E    30900000 F            AW,R9    J:JIT+TPOVT       PROCESSOR OVERHEAD TIME
       680   05 0009F    30900000 F            AW,R9    J:JIT+TUEXT       USER EXECUTION TIME
       681   05 000A0    30900000 F            AW,R9    J:JIT+TUOVT       USER OVERHEAD TIME
       682   05 000A1    3890001E 04           SW,R9    INIT%TUNITS       MINUS JOB START COUNT
       683   05 000A2    22800000 A            LI,R8    0
       684   05 000A3    36800171              DW,R8    L(30)             CONVERT TO 1/1000 MIN.
       685   05 000A4    2260122F A            LI,XT2   BA(STATUS%MESSAGE)-BA(LSTBF)+11
       686   05 000A5    32500009 A            LW,XT1   R9                TO VALUE REGISTER
       687   05 000A6    6A700040              CALL     DEDIT
       688   05 000A7    2240004B A            LI,XT    '.'
       689   05 000A8    754004D3 04           STB,XT   STATUS%MESSAGE+2
       690   05 000A9    22800000 A            LI,R8    0
       691   05 000AA    36800172              DW,R8    L(1000)           CONVERT TO WHOLE MIN.
       692   05 000AB    2260122B A            LI,XT2   BA(STATUS%MESSAGE)-BA(LSTBF)+7
       693   05 000AC    32500009 A            LW,XT1   R9                TO VALUE REGISTER
       694   05 000AD    6A700040              CALL     DEDIT
       695                            *
       696                            *   EDIT THE NUMBER OF THE ASSEMBLER PHASE CURRENTLY IN EXECUTION
       697                            *
       698   05 000AE    3250001D 04           LW,XT1   SEGMENT#
       699   05 000AF    724A00D6              LB,XT    PHASE%MAP,XT1     MAP OVERLAY TO PHASE
       700   05 000B0    204040F0 A            AI,XT    ' 0'
       701   05 000B1    554004D6 04           STH,XT   STATUS%MESSAGE+5
       702   05 000B2    224004D1 04           LI,XT    STATUS%MESSAGE
       703   05 000B3    04200015 06  ,TYPEFPT M:TYPE   (MESS,*XT)
             06 00015    02000000 A
             06 00016    80000000 A
             06 00017    80000004 A
       704                            *
       705                            *   IF NOT IN CONCORDANCE PHASE, EDIT CURRENT LINE NUMBER.
       706                            *
       707   05 000B4    21500005 A            CI,XT1   5
       708         001F0000                    IF,NE                 -01-
             05 000B5    683000D0
       709   05 000B6    32400086              LW,XT    BLANKS
       710   05 000B7    354004CE 04           STW,XT   LINE%NUMBER+2
       711   05 000B8    354004D0 04           STW,XT   LINE%NUMBER+4
       712   05 000B9    32400173              LW,XT    L(' 0  ')
       713   05 000BA    354004CF 04           STW,XT   LINE%NUMBER+3
       714   05 000BB    3250001C 04           LW,XT1   SUBLINE
       715         001F0100                    IF,NE                 -02-
             05 000BC    683000C5
       716                            *
       717                            *        EDIT MINOR LINE NUMBER
       718                            *
       719   05 000BD    32400174              LW,XT    L('  .0')
       720   05 000BE    354004CF 04           STW,XT   LINE%NUMBER+3
       721   05 000BF    226FFFFC A            LI,XT2   -4                FIND SIZE OF MINOR LINE NUMBER
       722   05 000C0                 %10      RES      0
       723   05 000C0    515C00D6              CH,XT1   NINES,XT2
       724         001F0200                    IF,G                  -03-
             05 000C1    682000C3
       725   05 000C2    656000C0              BIR,XT2  %10
       726                            *
       727         00F10200                    FI                    -03-
       728   05 000C3    20601223 A            AI,XT2   BA(LINE%NUMBER)-BA(LSTBF)+19
       729   05 000C4    6A700040              CALL     DEDIT
       730         00F10100                    FI                    -02-
       731                            *
       732                            *        EDIT MAJOR LINE NUMBER
       733                            *
       734   05 000C5    2260121D A            LI,XT2   BA(LINE%NUMBER)-BA(LSTBF)+13
       735   05 000C6    3250001B 04           LW,XT1   MAJLINE
       736   05 000C7    6A700040              CALL     DEDIT
       737   05 000C8    224004CC 04           LI,XT    LINE%NUMBER
       738   05 000C9    04200015 06           M:TYPE,E TYPEFPT
       739                            *
       740                            *   IF IN SYSTEM, PRINT NAME OF LEVEL-ONE SYSTEM.
       741                            *
       742   05 000CA    3300009F 04           MTW,0    SYSLEVEL
       743         001F0100                    IF,G                  -04-
             05 000CB    682000D0
       744   05 000CC    224000D8              LI,XT    SYSTEM%MESSAGE
       745   05 000CD    04200015 06           M:TYPE,E TYPEFPT
       746   05 000CE    224004C3 04           LI,XT    SYSNAME
       747   05 000CF    04200015 06           M:TYPE,E TYPEFPT
       748         00F10100                    FI                    -04-
       749         00F10000                    FI                    -01-
       750                            *
       751                            *   PRINT NEW-LINE CHARACTER, RESET BREAK COUNT, AND RETURN
       752                            *
       753   05 000D0    22400175              LI,XT    L(X'01150000')
       754   05 000D1    04200015 06           M:TYPE,E TYPEFPT
       755   05 000D2    04800176              CAL1,8   L(X'06100000')    RESET BREAK COUNT
       756   05 000D3    04900005 A            M:TRTN
       757                            *
       758   05 000D4    0009     A            DATA,2   9,99,999,9999
             05 000D4 2  0063     A
             05 000D5    03E7     A
             05 000D5 2  270F     A
       759         05 000D6           NINES    EQU      %
       760                            PHASE%MAP  DATA,1 ;
       761                                              0,;               CCI - SHOULDN'T HAPPEN
       762                                              1,;               ENCODER
       763                                              2,;               DEF
       764                                              3,;               GENERATION
       765                                              3,;               END
       766   05 000D6    00       A                     4                 CONCORDANCE
             05 000D6 1  01       A
             05 000D6 2  02       A
             05 000D6 3  03       A
             05 000D7    03       A
             05 000D7 1  04       A
       767                            SYSTEM%MESSAGE    ;
       768   05 000D8    15406040 A            TEXTC    ' - PROCESSING SYSTEM '
             05 000D9    D7D9D6C3 A
             05 000DA    C5E2E2C9 A
             05 000DB    D5C740E2 A
             05 000DC    E8E2E3C5 A
             05 000DD    D4404040 A
       769                            *
       770   05 000DE                          USECT    CCI4
       771                            *
       772                            LINE%NUMBER       ;
       773   04 004CC    13407A40 A            TEXTC    ' : LINE NNNNN.MMMMM'
             04 004CD    D3C9D5C5 A
             04 004CE    40D5D5D5 A
             04 004CF    D5D54BD4 A
             04 004D0    D4D4D4D4 A
       774                            STATUS%MESSAGE    ;
       775   04 004D1    15C3D7E4 A            TEXTC    'CPU =  .FFF : PHASE N'
             04 004D2    407E4040 A
             04 004D3    4BC6C6C6 A
             04 004D4    407A40D7 A
             04 004D5    C8C1E2C5 A
             04 004D6    40D54040 A
       776                            *
       777                                     FIN
1
       779                            *
       780                            *        XAP DCB'S
       781                            *
       782         00000000                    DO       SYS=RBM
       783                        *S* F:STD    CSECT    0
       784                        *S* F:SYS    CSECT    0
       785                                     FIN
       786         00000001                    DO       SYS=BPMUTS
       787   08 00000                 F:X1     DSECT    1
       788   09 00000                 F:X2    DSECT    1
       789   0A 00000                 F:X2KF   DSECT    1
       790   0B 00000                 F:X3     DSECT    1
       791   0C 00000                 F:X5     DSECT    1
       792   0D 00000                 F:STD    DSECT    1
       793   0E 00000                 F:SYS    DSECT    1
       794                            F:X1     M:DCB    (FILE,'%%M:X1'),;
       795                                              (OUTIN),;
       796                                              (RECL,2048),;
       797                                              (TRIES,10),;
       798                                              (ERR,ERR%%X1),;
       799   08 00000    00000001 N                     (ABN,ABN%%X1)
                         00100000
             08 00002    0A000000 A
             08 00003    1000002D 05
             08 00004    0000002D 05
             08 00005    00000000 A
             08 00006    00000016 N
                         00000000
                         00000000
                         00000000
             08 0000A    00000000 F
             08 0000B    00000000 A
             08 0000C    00000000 A
                         00000000
             08 0000E    00000000 A
             08 0000F    00000000 A
                         00000000
                         00000000
                         00000000
             08 00013    00000000 A
             08 00014    00000000 A
             08 00015    00000000 A
             08 00016    01000202 A
             08 00017    065B5BD4 A
             08 00018    7AE7F140 A
             08 00019    02000002 A
             08 00019 1  01       A
       800                            F:X2     M:DCB    (FILE,'%%M:X2'),;
       801                                              (OUTIN),;
       802                                              (RECL,2048),;
       803                                              (TRIES,10),;
       804                                              (ERR,ERR%%X2),;
       805   09 00000    00000001 N                     (ABN,ABN%%X2)
                         00100000
             09 00002    0A000000 A
             09 00003    1000002D 05
             09 00004    0000002D 05
             09 00005    00000000 A
             09 00006    00000016 N
                         00000000
                         00000000
                         00000000
             09 0000A    00000000 F
             09 0000B    00000000 A
             09 0000C    00000000 A
                         00000000
             09 0000E    00000000 A
             09 0000F    00000000 A
                         00000000
                         00000000
                         00000000
             09 00013    00000000 A
             09 00014    00000000 A
             09 00015    00000000 A
             09 00016    01000202 A
             09 00017    065B5BD4 A
             09 00018    7AE7F240 A
             09 00019    02000002 A
             09 00019 1  01       A
       806                            F:X3     M:DCB    (FILE,'%%M:X3'),;
       807                                              (OUTIN),;
       808                                              (RECL,2048),;
       809                                              (TRIES,10),;
       810                                              (ERR,ERR%%X3),;
       811   0B 00000    00000001 N                     (ABN,ABN%%X3)
                         00100000
             0B 00002    0A000000 A
             0B 00003    1000002D 05
             0B 00004    0000002D 05
             0B 00005    00000000 A
             0B 00006    00000016 N
                         00000000
                         00000000
                         00000000
             0B 0000A    00000000 F
             0B 0000B    00000000 A
             0B 0000C    00000000 A
                         00000000
             0B 0000E    00000000 A
             0B 0000F    00000000 A
                         00000000
                         00000000
                         00000000
             0B 00013    00000000 A
             0B 00014    00000000 A
             0B 00015    00000000 A
             0B 00016    01000202 A
             0B 00017    065B5BD4 A
             0B 00018    7AE7F340 A
             0B 00019    02000002 A
             0B 00019 1  01       A
       812                            F:X2KF   M:DCB    (FILE,'FX2  ');
       813                                              ,(OUTIN);
       814                                              ,(RECL,2048);
       815                                              ,(TRIES,10);
       816                                              ,(ERR,ERR%%X2KF);
       817   0A 00000    00000001 N                     ,(ABN,ABN%%X2KF)
                         00100000
             0A 00002    0A000000 A
             0A 00003    1000002D 05
             0A 00004    0000002D 05
             0A 00005    00000000 A
             0A 00006    00000016 N
                         00000000
                         00000000
                         00000000
             0A 0000A    00000000 F
             0A 0000B    00000000 A
             0A 0000C    00000000 A
                         00000000
             0A 0000E    00000000 A
             0A 0000F    00000000 A
                         00000000
                         00000000
                         00000000
             0A 00013    00000000 A
             0A 00014    00000000 A
             0A 00015    00000000 A
             0A 00016    01000202 A
             0A 00017    05C6E7F2 A
             0A 00018    40404040 A
             0A 00019    02000002 A
             0A 00019 1  01       A
       818                            F:X5     M:DCB    (FILE,'%%M:X5'),(OUTIN),(RANDOM),;
       819                                              (RECL,2048),(TRIES,10),;
       820   0C 00000    00000001 N                     (ERR,ERR%%X5),(ABN,ABN%%X5)
                         00100000
             0C 00002    0A000000 A
             0C 00003    1000002D 05
             0C 00004    0000002D 05
             0C 00005    00000030 A
             0C 00006    00000016 N
                         00000000
                         00000000
                         00000000
             0C 0000A    00000000 F
             0C 0000B    00000000 A
             0C 0000C    00000000 A
                         00000000
             0C 0000E    00000000 A
             0C 0000F    00000000 A
                         00000000
                         00000000
                         00000000
             0C 00013    00000000 A
             0C 00014    00000001 A
             0C 00015    00000000 A
             0C 00016    01000202 A
             0C 00017    065B5BD4 A
             0C 00018    7AE7F540 A
             0C 00019    02000002 A
             0C 00019 1  01       A
       821                            F:STD    M:DCB    (FILE,'%:STDDEF'),;
       822                                              (IN),(SAVE),;
       823                                              (RECL,2048),;
       824                                              (TRIES,10),;
       825                                              (ERR,STDERROR),;
       826   0D 00000    00000001 N                     (ABN,STDERROR)
                         00020000
             0D 00002    0A000000 A
             0D 00003    10000000 X
             0D 00004    00000000 X
             0D 00005    80000000 A
             0D 00006    00000016 N
                         00000000
                         00000000
                         00000000
             0D 0000A    00000000 F
             0D 0000B    00000000 A
             0D 0000C    00000000 A
                         00000000
             0D 0000E    00000000 A
             0D 0000F    00000000 A
                         00000000
                         00000000
                         00000000
             0D 00013    00000000 A
             0D 00014    00000000 A
             0D 00015    00000000 A
             0D 00016    01000303 A
             0D 00017    085B7AE2 A
             0D 00018    E3C4C4C5 A
             0D 00019    C6404040 A
             0D 0001A    02000002 A
             0D 0001A 1  01       A
       827                                     FIN
       828                            *
       829         00000000                    DO       SYS=RBM
       830                        *S* F:STD    M:DCB    (FILE,'%:STDDEF',D1),;
       831                        *S*                   (ERR,STDERROR),;
       832                        *S*                   (ABN,STDERROR),;
       833                        *S*                   (RECL,2048),;
       834                        *S*                   (TRIES,10),;
       835                        *S*                   (IN),;
       836                        *S*                   (SAVE)
       837                        *S* F:SYS    M:DCB    (FILE,'        '),(ABN,SYSABN),(ERR,SYSOPNER)
       838                                     FIN
       839   0E 00000                          DO1      SYS=BPMUTS
       840   0E 00000    00000001 N   F:SYS    M:DCB    (FILE),(ABN,SYSABN),(ERR,SYSOPNER)
                         00000000
             0E 00002    0A000000 A
             0E 00003    00000000 X
             0E 00004    00000000 X
             0E 00005    00000000 A
             0E 00006    00000016 N
                         00000000
                         00000000
                         00000000
             0E 0000A    00000000 F
             0E 0000B    00000000 A
             0E 0000C    00000000 A
                         00000000
             0E 0000E    00000000 A
             0E 0000F    00000000 A
                         00000000
                         00000000
                         00000000
             0E 00013    00000000 A
             0E 00014    00000000 A
             0E 00015    00000000 A
             0E 00016    01000008 A
             0E 0001F    02000002 A
             0E 0001F 1  01       A
       841                            *
       842   0E 0002A                          USECT    XAPCODE
1
       844                            *
       845                            *  R E A D X 1
       846                            *        READ THE X1 (ENCODED TEXT) FILE
       847                            *
       848                            *          INPUT: NONE
       849                            *
       850   05 000DE                 READX1   RES      0
       851                            *
       852                                     M:READ   F:X1,(BUF,X1BUF),(SIZE,BYX1SIZE),(WAIT),;
       853   05 000DE    04100018 06                    (ABN,ABN%%X1),(ERR,ERR%%X1)
             06 00018    10000000 N
                         F0000010
             06 0001A    0000002D 05
             06 0001B    0000002D 05
             06 0001C    000000A4 04
             06 0001D    00000800 A
       854   05 000DF    E800000A A            EXIT     IORL
       855                            *
       856                            *  W R I T E X 1
       857                            *        WRITE THE X1 (ENCODED TEXT) FILE
       858                            *
       859                            *          INPUT: NONE
       860                            *
       861   05 000E0                 WRITEX1  RES      0
       862                            *
       863                                     M:WRITE  F:X1,(BUF,X1BUF),(SIZE,BYX1SIZE),(WAIT),;
       864   05 000E0    0410001E 06                    (ABN,ABN%%X1),(ERR,ERR%%X1)
             06 0001E    11000000 N
                         F0000010
             06 00020    0000002D 05
             06 00021    0000002D 05
             06 00022    000000A4 04
             06 00023    00000800 A
       865   05 000E1    E800000A A            EXIT     IORL
       866                            *
       867                            *  R E W X 1
       868                            *        REWIND THE X1 (ENCODED TEXT) FILE
       869                            *
       870                            *          INPUT: NONE
       871                            *
       872   05 000E2                 REWX1    RES      0
       873                            *
       874   05 000E2    04100024 06           M:REW    F:X1
             06 00024    01000000 08
       875   05 000E3    E800000A A            EXIT     IORL
       876                            *
       877                            *  P O S I T I O N X 1
       878                            *        POSITION THE X1 (ENCODED TEXT) FILE N RECORDS BACKWARD OR
       879                            *          FORWARD.
       880                            *
       881                            *          INPUT: IOSIZE CONTAINS THE NUMBER OF RECORDS AND THE
       882                            *                 DIRECTION (POSITIVE = FORWARD; NEGATIVE = BACKWARD)
       883                            *
       884   05 000E4                 POSITIONX1  RES   0
       885                            *
       886   05 000E4    22800000 08           LI,IOADD F:X1
       887   05 000E5                 POSIT%1  RES      0
       888   05 000E5    20900000 A            AI,IOSIZE  0
       889   05 000E6    E830000A A            EXIT,EQ  IORL
       890   05 000E7    691000EA              BLZ      POSBKWD
       891   05 000E8    04100025 06           M:PRECORD *IOADD,(N,*IOSIZE),(FWD)
             06 00025    9D000008 A
                         80000000
             06 00027    80000009 A
       892   05 000E9    E800000A A            EXIT     IORL
       893   05 000EA                 POSBKWD  RES      0
       894   05 000EA    3A900009 A            LCW,IOSIZE  IOSIZE         COMPLEMENT NEGATIVE COUNT
       895   05 000EB    04100028 06           M:PRECORD *IOADD,(N,*IOSIZE),(REV)
             06 00028    9D000008 A
                         80000010
             06 0002A    80000009 A
       896   05 000EC    E800000A A            EXIT     IORL
       897                            *
       898                            * P O S I T I O N X 3
       899                            *        POSITION THE X3 TEMPORARY FILE
       900                            *
       901                            *          INPUT: IOSIZE CONTAINS THE NUMBER OF RECORDS AND THE
       902                            *                 DIRECTION (POSITIVE = FORWARD; NEGATIVE = BACKWARD)
       903                            *
       904   05 000ED                 POSITIONX3  RES   0
       905                            *
       906   05 000ED    22800000 0B           LI,IOADD F:X3
       907   05 000EE    680000E5              B        POSIT%1
       908                            *  R E A D X 3
       909                            *        READ THE X3 (COMPRESSED SOURCE) FILE
       910                            *
       911                            *          INPUT: IOADD CONTAINS BUFFER (WORD) ADDRESS
       912                            *
       913   05 000EF                 READX3   RES      0
       914                            *
       915                                     M:READ   F:X3,;
       916                                              (ERR,ERR%%X3),;
       917                                              (ABN,ABN%%X3),;
       918                                              (BUF,*IOADD),;
       919                                              (SIZE,BYX3SIZE),;
       920   05 000EF    0410002B 06                    (WAIT)
             06 0002B    10000000 N
                         F0000010
             06 0002D    0000002D 05
             06 0002E    0000002D 05
             06 0002F    80000008 A
             06 00030    00000800 A
       921   05 000F0    E800000A A            EXIT     IORL
       922                            *
       923                            *  W R I T E X 3
       924                            *        WRITE THE X3 (COMPRESSED SOURCE) FILE
       925                            *
       926                            *          INPUT: IOADD CONTAINS BUFFER (WORD) ADDRESS
       927                            *
       928   05 000F1                 WRITEX3  RES      0
       929                            *
       930                                     M:WRITE  F:X3,;
       931                                              (ERR,ERR%%X3),;
       932                                              (ABN,ABN%%X3),;
       933                                              (BUF,*IOADD),;
       934                                              (SIZE,BYX3SIZE),;
       935   05 000F1    04100031 06                    (WAIT)
             06 00031    11000000 N
                         F0000010
             06 00033    0000002D 05
             06 00034    0000002D 05
             06 00035    80000008 A
             06 00036    00000800 A
       936   05 000F2    E800000A A            EXIT     IORL
       937                            *
       938                            *  R E W X 3
       939                            *        REWIND THE X3 (COMPRESSED SOURCE) FILE
       940                            *
       941                            *          INPUT: NONE
       942                            *
       943   05 000F3                 REWX3    RES      0
       944                            *
       945   05 000F3    04100037 06           M:REW    F:X3
             06 00037    01000000 0B
       946   05 000F4    E800000A A            EXIT     IORL
       947                            *
       948                            *  R E A D X 5
       949                            *        READ THE X5 (CONCORDANCE OVERFLOW) FILE
       950                            *
       951                            *          INPUT: IOSIZE CONTAINS THE BLOCK (OR KEY) NUMBER REQUIRED
       952                            *                 IOADD CONTAINS THE BUFFER ADDRESS
       953                            *
       954   05 000F5                 READX5   RES      0
       955         00000001                    DO       SYS=BPMUTS
       956   05 000F5    49900177              OR,IOSIZE   L(3**24)       MERGE KEY LENGTH
       957   05 000F6    35900033 04           STW,IOSIZE   X5%TKEY
       958                                     M:READ   F:X5,;
       959                                              (ERR,ERR%%X5),;
       960                                              (ABN,ABN%%X5),;
       961                                              (BUF,*IOADD),;
       962                                              (KEY,X5%TKEY),;
       963   05 000F7    04100038 06                    (WAIT)
             06 00038    10000000 N
                         E8000010
             06 0003A    0000002D 05
             06 0003B    0000002D 05
             06 0003C    80000008 A
             06 0003D    00000033 04
       964                                     FIN
       965         00000000                    DO       SYS=RBM
       966                        *S*          STW,IOSIZE  X5RDFPT+5
       967                        *S* ,X5RDFPT M:READ   F:X5,;
       968                        *S*                   (ERR,ERR%%X5),;
       969                        *S*                   (ABN,ABN%%X5),;
       970                        *S*                   (BUF,*IOADD),;
       971                        *S*                   (BLOCK,0),;
       972                        *S*                   (WAIT)
       973                                     FIN
       974   05 000F8    E800000A A            EXIT     IORL
       975                            *
       976                            *  W R I T E X 5
       977                            *        WRITE THE X5 (CONCORDANCE OVERFLOW) FILE
       978                            *
       979                            *          INPUT: IOSIZE CONTAINS THE BLOCK (OR KEY) NUMBER REQUIRED
       980                            *                 IOADD CONTAINS THE BUFFER ADDRESS
       981                            *
       982   05 000F9                 WRITEX5  RES      0
       983         00000001                    DO       SYS=BPMUTS
       984   05 000F9    49900177              OR,IOSIZE   L(3**24)       MERGE KEY LENGTH
       985   05 000FA    35900033 04           STW,IOSIZE   X5%TKEY
       986                                     M:WRITE  F:X5,;
       987                                              (ERR,ERR%%X5),;
       988                                              (ABN,ABN%%X5),;
       989                                              (BUF,*IOADD),;
       990                                              (KEY,X5%TKEY),;
       991                                              (ONEWKEY),;
       992   05 000FB    0410003E 06                    (WAIT)
             06 0003E    11000000 N
                         E8000050
             06 00040    0000002D 05
             06 00041    0000002D 05
             06 00042    80000008 A
             06 00043    00000033 04
       993                                     FIN
       994         00000000                    DO       SYS=RBM
       995                        *S*          STW,IOSIZE  X5WTFPT+5
       996                        *S* ,X5WTFPT M:WRITE  F:X5,;
       997                        *S*                   (ERR,ERR%%X5),;
       998                        *S*                   (ABN,ABN%%X5),;
       999                        *S*                   (BUF,*IOADD),;
      1000                        *S*                   (BLOCK,0),;
      1001                        *S*                   (WAIT)
      1002                                     FIN
      1003   05 000FC    E800000A A            EXIT     IORL
      1004                            *
      1005                            *  O P E N X 5
      1006                            *        OPEN THE X5 (CONCORDANCE OVERFLOW) FILE
      1007                            *
      1008   05 000FD                 OPENX5   RES      0
      1009   05 000FD    32800000 0C           LW,IOADD F:X5
      1010         001F0000                    IF,FZ    X'200000',IOADD
             05 000FE    3180016D
             05 000FF    69400103
      1011                            *
      1012         00000001                    DO       SYS=BPMUTS
      1013   05 00100    B280004F A            LW,IOADD *X'4F'
      1014   05 00101    5580004D 06           STH,IOADD   X5OPNFPT+9
      1015                            ,X5OPNFPT         ;
      1016                                     M:OPEN   F:X5,;
      1017                                              (RECL,2048),;
      1018                                              (KEYED),;
      1019                                              (DIRECT),;
      1020                                              (OUTIN),;
      1021                                              (KEYM,3),;
      1022   05 00102    04100044 06                    (FILE,'FX5  ')
             06 00044    14000000 0C
             06 00045    17080009 A
             06 00046    00000800 A
             06 00047    00000002 A
             06 00048    00000002 A
             06 00049    00000008 A
             06 0004A    00000003 A
             06 0004B    01000202 A
             06 0004C    05C6E7F5 A
             06 0004D    40404040 A
             06 0004E    02000002 A
             06 0004E 1  01       A
      1023                                     FIN
      1024         00000000                    DO       SYS=RBM
      1025                        *S*          M:OPEN   F:X5,;
      1026                        *S*                   (ERR,ERR%%X5),;
      1027                        *S*                   (ABN,ABN%%X5)
      1028                        *S*          M:DEVICE F:X5,;
      1029                        *S*                   (GSZ,2048),;
      1030                        *S*                   (SIZE,2048)
      1031                                     FIN
      1032                            *
      1033         00F10000                    FI
      1034   05 00103    E800000A A            EXIT     IORL
      1035                            *
      1036                            *  C L O S E X 5
      1037                            *        CLOSE THE X5 (CONCORDANCE OVERFLOW) FILE
      1038                            *
      1039   05 00104                 CLOSEX5  RES      0
      1040                            *
      1041   05 00104    04100051 06           M:CLOSE  F:X5
             06 00051    15000000 N
                         00000000
      1042   05 00105    E800000A A            EXIT IORL
      1043                            *  W R I T E L O
      1044                            *        WRITE THE LISTING FILE
      1045                            *
      1046                            *          INPUT: IOADD CONTAINS THE BUFFER ADDRESS
      1047                            *                 IOSIZE CONTAINS THE NUMBER OF BYTES IN THE BUFFER
      1048                            *
      1049                            *          BYTE 0 OF THE BUFFER IS THE VFC
      1050                            *
      1051   05 00106                 DGWRITELO   RES   0
      1052         00000001                    DO       SYS=BPMUTS
      1053   05 00106    330004C2 04           MTW,0    LO%ONLINE         TRUNCATE THE LINE IF LO
      1054   05 00107    68300109              BEZ      WRITELO             IS A TYPEWRITER OR TTY
      1055   05 00108    2290006D A            LI,IOSIZE 109              TRUNCATE AFTER COL. 72
      1056                                     FIN
      1057   05 00109                 WRITELO  RES      0
      1058         00000001                    DO       SYS=BPMUTS
      1059   05 00109    B300004F A            MTW,0    *X'4F'
      1060   05 0010A    6810010E              BGEZ     WRLO3             BRANCH IF NOT ON-LINE
      1061   05 0010B    32500000 F            LW,X5    J:JIT+JOPT        DON'T PRINT IF
      1062   05 0010C    21500001 A            CI,X5    LOBIT             LIST BIT (IN JIT) IS ZERO
      1063   05 0010D    E840000A A            BAZ      *IORL
      1064   05 0010E                 WRLO3    RES      0
      1065                                     FIN
      1066   05 0010E    33F00085 04           MTW,-1   PGLINES           LINES REMAINING ON THIS PAGE
      1067   05 0010F    69200127              BGZ      WRLO1
      1068   05 00110    33100086 04           MTW,+1   PAGENUM           BUMP LAST PAGE NUMBER
      1069   05 00111    32500086 04           LW,X5    PAGENUM           INSERT PAGE NUMBER IN TITLE
      1070         00000001                    DO       SYS=BPMUTS
      1071   05 00112    330004C2 04           MTW,0    LO%ONLINE         IF 'LO' IS TYPEWRITER OR TTY
      1072   05 00113    68300118              BEZ      WRLO5             PRINT ONLY ONE SHORT TITLE
      1073   05 00114    21500001 A            CI,X5    1
      1074   05 00115    6930011B              BNE      WRLO6             BRANCH IF NOT 1ST PAGE
      1075   05 00116    04100053 06           M:WRITE  M:LO,(BUF,TITLEBUF),(SIZE,96),(WAIT)
             06 00053    11000000 N
                         30000010
             06 00055    0000006A 04
             06 00056    00000060 A
      1076   05 00117    6800011B              B        WRLO6
      1077   05 00118                 WRLO5    RES      0
      1078                                     FIN
      1079   05 00118    226000F2 A            LI,X6    BA(PGNUM)-BA(LSTBF)+2
      1080   05 00119    6A700040              BAL,RL   DEDIT
      1081   05 0011A    04100057 06           M:WRITE  M:LO,(BUF,TITLEBUF),(SIZE,108),(WAIT)
             06 00057    11000000 N
                         30000010
             06 00059    0000006A 04
             06 0005A    0000006C A
      1082   05 0011B                 WRLO6    RES      0
      1083   05 0011B    224000C1 A            LI,X4    X'C1'             CAUSE A BLANK LINE TO BE OUTPUT
      1084   05 0011C    F5400008 A            STB,X4   *IOADD            AFTER THE TITLE LINE
      1085   05 0011D    32400088 04           LW,X4    NUM%PAGE%LINES
      1086         00000001                    DO       SYS=BPMUTS
      1087                            *  FIND NUMBER OF LINES PER PAGE IF IT HASN'T ALREADY BEEN FOUND
      1088   05 0011E    69200126              BGZ      WRLO2
      1089   05 0011F    32400008 A            LW,X4    IOADD
      1090   05 00120    0410005B 06           M:DEVICE M:LO,(NLINES)
             06 0005B    2A000000 X
      1091   05 00121    208FFFFE A            AI,SR1   -2
      1092   05 00122    69200124              BGZ      %+2               USE A VERY LARGE NUMBER IF MONITOR
      1093   05 00123    2287FFFF A            LI,SR1   X'7FFFF'            REFUSES TO PROVIDE NO. OF LINES
      1094   05 00124    35800088 04           STW,SR1  NUM%PAGE%LINES
      1095   05 00125    46400008 A            XW,X4    IOADD
      1096   05 00126                 WRLO2    RES      0
      1097                                     FIN
      1098   05 00126    35400085 04           STW,X4   PGLINES
      1099   05 00127                 WRLO1    RES      0
      1100   05 00127    0410005C 06           M:WRITE  M:LO,(BUF,*IOADD),(SIZE,*IOSIZE),(WAIT)
             06 0005C    11000000 N
                         30000010
             06 0005E    80000008 A
             06 0005F    80000009 A
      1101   05 00128    E800000A A            EXIT     IORL
      1102                            *
      1103                            *  W R I T E B O
      1104                            *        WRITE THE OBJECT MODULE FILE
      1105                            *
      1106                            *          INPUT: NONE
      1107                            *
      1108   05 00129                 WRITEBO  RES      0
      1109   05 00129    53000001 04           MTH,0    BO%FLAG           IS 'SB' OPTION REQUESTED
      1110   05 0012A    68300137              BEZ      WRITEBO1          NO, JUST WRITE BOBUF
      1111   05 0012B    02200030 A            LCI      3
      1112   05 0012C    2B5004B0 04           STM,X5   SAVAREA           SAVE REGISTERS
      1113   05 0012D    2A5004A6 04           LM,X5    BO%IDWDS          MOVE IDENT AND ZEROES
      1114   05 0012E    2B50001B N            STM,X5   BOBUF+27            TO BOBUF AREA
      1115   05 0012F    329004A9 04           LW,IOSIZE BOSEQNO          NEXT CARD SEQUENCE NUMBER
      1116   05 00130    2240003B N            LI,XT    HA(BOBUF)+59      ADDRESS OF COLUMN 80
      1117   05 00131    72500001 04           LB,XT1   BO%FLAG           NUMBER OF SEQUENCE DIGITS
      1118   05 00132    68300134              BEZ      %+2
      1119   05 00133    6A700139              BAL,RL   CARDSEQ           CONVERT AND STORE SEQUENCE NUMBER
      1120   05 00134    02200030 A            LCI      3
      1121   05 00135    2A5004B0 04           LM,X5    SAVAREA           RESTORE REGISTERS
      1122   05 00136    331004A9 04           MTW,+1   BOSEQNO           BUMP SEQUENCE NUMBER
      1123   05 00137                 WRITEBO1 RES      0
      1124                                     M:WRITE  M:BO,;
      1125                                              (ERR,ERR%%BO),;
      1126                                              (ABN,ERR%%BO),;
      1127                                              (BUF,BOBUF),;
      1128                                              (SIZE,*BO%SIZE),;
      1129   05 00137    04100060 06                    (WAIT)
             06 00060    11000000 N
                         F0000010
             06 00062    0000002D 05
             06 00063    0000002D 05
             06 00064    00000000 X
             06 00065    800004AA 04
      1130   05 00138    E800000A A            EXIT     IORL
1
      1132                            *
      1133                            * C A R D S E Q
      1134                            *        STORE SEQUENCE NUMBER IN COLS 73-80 FOR SB OR SC OPTION
      1135                            *
      1136                            *        INPUT:   XT CONTAINS HA OF COLUMN 80
      1137                            *                 XT1 CONTAINS NUMBER OF DIGITS TO STORE (NOT ZERO)
      1138                            *                 IOSIZE CONTAINS SEQUENCE NUMBER TO CONVERT
      1139                            *
      1140                            *        USES REGISTERS: XT,XT1,XT2,RL,IOADD,IOSIZE
      1141                            *
      1142   05 00139                 CARDSEQ  RES      0
      1143   05 00139    22600000 A            LI,XT2   0                 INDEX TO SHIFT TABLE
      1144   05 0013A    35700015 04           STW,RL   MPX1              SAVE RETURN
      1145   05 0013B                 NEXTCOL  RES      0
      1146   05 0013B    727C014C              LB,RL    SFTBL,XT2         SHIFT FOR THIS COLUMN
      1147   05 0013C    22800000 A            LI,IOADD 0                 CONVERT
      1148   05 0013D    36800169              DW,IOADD =10                 RIGHTMOST DIGIT
      1149   05 0013E    38700008 A            SW,RL    IOADD             ADD SHIFT AMOUNT FOR THIS COLUMN
      1150   05 0013F    22800001 A            LI,IOADD 1                 SHIFT A BIT TO
      1151   05 00140    258E0009 A            SLS,IOADD 9,RL               THE APPROPRIATE PLACE
      1152   05 00141    50880000 A            AH,IOADD  0,XT             INSERT RIGHT-MOST BITS
      1153   05 00142    55880000 A            STH,IOADD 0,XT               IN LOW ORDER HALFWORD
      1154   05 00143    21600003 A            CI,XT2   3                 IS THIS COLUMN 80 OR 76
      1155   05 00144    68400149              BAZ      ADVANCE             YES, DON'T BUMP COLUMN ADDRESS
      1156   05 00145    204FFFFF A            AI,XT    -1                BUMP COLUMN ADDRESS
      1157   05 00146    52800008 A            LH,IOADD  IOADD            ADD LEFT-MOST BITS
      1158   05 00147    50880000 A            AH,IOADD  0,XT               TO NEXT HALFWORD
      1159   05 00148    55880000 A            STH,IOADD 0,XT
      1160   05 00149                 ADVANCE  RES      0
      1161   05 00149    20600001 A            AI,XT2   1                 BUMP INDEX TO SFTBL
      1162   05 0014A    6450013B              BDR,XT1  NEXTCOL           DECREASE COLUMN COUNT AND RETURN
      1163   05 0014B    E8000015 04           B        *MPX1             EXIT
      1164   05 0014C    00       A   SFTBL    DATA,1   0,12,8,4,0,12,8,4
             05 0014C 1  0C       A
             05 0014C 2  08       A
             05 0014C 3  04       A
             05 0014D    00       A
             05 0014D 1  0C       A
             05 0014D 2  08       A
             05 0014D 3  04       A
      1165                                     BOUND    4
      1166                            *
      1167                            *  W R I T E D O
      1168                            *        WRITE THE DIAGNOSTIC OUTPUT FILE
      1169                            *
      1170                            *         INPUT:  IOADD CONTAINS THE BUFFER ADDRESS
      1171                            *                 IOSIZE CONTAINS THE NUMBER OF BYTES IN THE BUFFER
      1172                            *
      1173                            *          BYTE 0 OF THE BUFFER IS THE VFC.
      1174                            *
      1175   05 0014E                 WRITEDO  RES      0
      1176         00000001                    DO       SYS=BPMUTS
      1177   05 0014E    B300004F A            MTW,0    *X'4F'
      1178   05 0014F    68100155              BGEZ     WRDO1             BRANCH IF NOT ON-LINE
      1179   05 00150    32500000 F            LW,X5    J:JIT+JOPT        DON'T OUTPUT IF
      1180   05 00151    21500100 A            CI,X5    DOBIT             COMMENT BIT (IN JIT) IS ZERO
      1181   05 00152    E840000A A            BAZ      *IORL
      1182   05 00153    21500001 A            CI,X5    LOBIT
      1183   05 00154    68400157              BAZ      WRDO2
      1184                                     FIN
      1185   05 00155                 WRDO1    RES      0
      1186   05 00155    73000011 04           MTB,0    CORRESWD          DON'T OUTPUT IF 'DO' AND 'LO'
      1187   05 00156    E930000A A            EXIT,NE  IORL                ARE THE SAME DEVICE
      1188   05 00157                 WRDO2    RES      0
      1189   05 00157    209FFFFF A            AI,IOSIZE  -1              SUBT 1 FOR VFC
      1190   05 00158    04100066 06           M:WRITE  M:DO,(BUF,*IOADD),(SIZE,*IOSIZE),(BTD,1),(WAIT)
             06 00066    11000000 N
                         34000010
             06 00068    80000008 A
             06 00069    80000009 A
             06 0006A    00000001 A
      1191   05 00159    E800000A A            EXIT     IORL
      1192                            *
      1193                            *  W R I T E G O
      1194                            *        WRITE THE GO FILE
      1195                            *
      1196                            *          INPUT: NONE
      1197                            *
      1198   05 0015A                 WRITEGO  RES      0
      1199         00000001                    DO       SYS=BPMUTS
      1200   05 0015A    B300004F A            MTW,0    *X'4F'            BRANCH IF NOT ON-LINE
      1201   05 0015B    6810015F              BGEZ     WRGO1
      1202   05 0015C    32900000 F            LW,IOSIZE  J:JIT+JOPT      DON'T OUTPUT IF
      1203   05 0015D    21900080 A            CI,IOSIZE  GOBIT           OUTPUT BIT (IN JIT) IS ZERO
      1204   05 0015E    E840000A A            BAZ      *IORL
      1205   05 0015F                 WRGO1    RES      0
      1206                                     FIN
      1207                            *
      1208                                     M:WRITE  M:GO,;
      1209                                              (ERR,ERR%%GO),;
      1210                                              (ABN,ERR%%GO),;
      1211                                              (BUF,BOBUF),;
      1212                                              (SIZE,*BO%SIZE),;
      1213   05 0015F    0410006B 06                    (WAIT)
             06 0006B    11000000 N
                         F0000010
             06 0006D    0000002D 05
             06 0006E    0000002D 05
             06 0006F    00000000 X
             06 00070    800004AA 04
      1214   05 00160    E800000A A            EXIT     IORL
      1215                            *
      1216                            *  R E A D S T D
      1217                            *        READ THE STANDARD DEFINITION FILE
      1218                            *
      1219   05 00161                 READSTD  RES      0
      1220                                     M:READ   F:STD,(BUF,*IOADD),(SIZE,BYX1SIZE),(WAIT),;
      1221   05 00161    04100071 06                    (ERR,ERR%%STD),(ABN,ABN%%STD)
             06 00071    10000000 N
                         F0000010
             06 00073    0000002D 05
             06 00074    0000002D 05
             06 00075    80000008 A
             06 00076    00000800 A
      1222   05 00162    E800000A A            EXIT     IORL
      1223                            *
      1224                            *  W R I T E S T D
      1225                            *        WRITE THE STANDARD DEF FILE
      1226                            *
      1227   05 00163                 WRITESTD RES      0
      1228                                     M:WRITE  F:STD,(BUF,*IOADD),(SIZE,BYX1SIZE),(WAIT),;
      1229   05 00163    04100077 06                    (ERR,ERR%%STD),(ABN,ABN%%STD)
             06 00077    11000000 N
                         F0000010
             06 00079    0000002D 05
             06 0007A    0000002D 05
             06 0007B    80000008 A
             06 0007C    00000800 A
      1230   05 00164    E800000A A            EXIT     IORL
      1231                            *
      1232                            *  P O S I T I O N S T D
      1233                            *        POSITION THE STD FILE N RECORDS FORWARD OR BACKWARD
      1234                            *
      1235   05 00165                 POSITIONSTD  RES  0
      1236   05 00165    22800000 0D           LI,IOADD F:STD
      1237   05 00166    680000E5              B        POSIT%1
      1238                            *  R E W S T D
      1239                            *
      1240                            *        REWIND THE STANDARD DEF FILE
      1241                            *
      1242   05 00167                 REWSTD   RES      0
      1243   05 00167    0410007D 06           M:REW    F:STD
             06 0007D    01000000 0D
      1244   05 00168    E800000A A            EXIT IORL
      1245         05 00000                    END      START
             05 00169    0000000A A
             05 0016A    0001FE00 A
             05 0016B    0000001F A
             05 0016C    80000000 A
             05 0016D    00200000 A
             05 0016E    0000000F A
             05 0016F    7F000000 A
             05 00170    4BF0F0F0 A
             05 00171    0000001E A
             05 00172    000003E8 A
             05 00173    40F04040 A
             05 00174    40404BF0 A
             05 00175    01150000 A
             05 00176    06100000 A
             05 00177    03000000 A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00000   PT 0     03 00000   PT 0     04 004D7   PT 0
                             05 00178   PT 1     06 0007E   PT 0     07 00000   PT 1     08 00024   PT 1
                             09 00024   PT 1     0A 00024   PT 1     0B 00024   PT 1     0C 00024   PT 1
                             0D 00025   PT 1     0E 0002A   PT 1
1
  *    SYMBOL VALUES
           ABN%%SI/05 0002D         ABN%%X2KF/05 0002D       ABN%%X5/05 0002D         ABORT5/00000005
           ABORT6/00000006          ABORT7/00000007          ABORT8/00000008          ADVANCE/05 00149
           AR/00000000              BADTRAP/05 0006E         BLANKS/05 00086          BOSEQNO/04 004A9
           BPMUTS/00000002          CANTHAVE/05 0006C        CCI4/04 00000            DCBCEND/05 00096
           DCBCORG/05 00088         DOBIT/00000100           D1/00000006              ERR%%X2KF/05 0002D
           ERR%%X5/05 0002D         FCDBIT/00200000          FILE/UND                 FPG1/05 0001C
           FPG2/05 0001E            FPG3/05 00020            GOBIT/00000080           IOADD/00000008
           IORL/0000000A            IOSIZE/00000009          LINE%NUMBER/04 004CC
           LOBIT/00000001           NEXT%PROGRAM/05 00002                             NEXTCOL/05 0013B
           NINES/05 000D6           NOTEXU/05 00059          PHASE%MAP/05 000D6       POSBKWD/05 000EA
           POSIT%1/05 000E5         PREFLD/7F000000          RBM/00000003             RL/00000007
           R10/0000000A             R15/0000000F             R8/00000008              R9/00000009
           S:S/FUNC                 SFTBL/05 0014C           SR1/00000008             START/05 00000
           STATUS%MESSAGE/04 004D1                           SYS/00000002             SYSTEM%MESSAGE/05 000D8
           TEST%BA%FLAG/05 00018                             TRYCONC/05 00014         TYPEFPT/06 00015
           USERPSW1/04 00018        WRDO1/05 00155           WRDO2/05 00157           WRGO1/05 0015F
           WRITEBO1/05 00137        WRLO1/05 00127           WRLO2/05 00126           WRLO3/05 0010E
           WRLO5/05 00118           WRLO6/05 0011B           XAPCCI/05 0002F          XAPCONC/05 0003D
           XAPDG/05 00038           XAPENDP/05 0003A         XAPINIT/05 00032         XAPNCDR/05 00035
           XT/00000004              XT1/00000005             XT2/00000006             X1/00000001
           X2/00000002              X3/00000003              X4/00000004              X5/00000005
           X5%TKEY/04 00033         X5OPNFPT/06 00044        X6/00000006              X7/00000007
  *    EXTERNAL DEFINITIONS
           ABN%%STD/05 0002D        ABN%%X1/05 0002D         ABN%%X2/05 0002D         ABN%%X3/05 0002D
           ABN%%X4/05 0002D         ABORT/05 0002B           AC%FLAG/04 00010         ACCOUNTS/04 00034
           ADRDCB/04 000A0          ASSEMBLE%FLAG/04 000A1                            BA%FLAG/04 00000
           BLANC/05 00086           BO%FLAG/04 00001         BO%IDWDS/04 004A6        BO%SIZE/04 004AA
           BYX1SIZE/00000800        BYX3SIZE/00000800        CARDSEQ/05 00139         CI%DCB/04 004A4
           CI%FLAG/04 00002         CLOSE%FILES/05 00070                              CLOSEX5/05 00104
           CLRLSTBF/05 00096        CO%FLAG/04 00003         CO%IDWDS/04 004AB        CO%SIZE/04 004AF
           CORRESWD/04 00011        DC%FLAG/04 00004         DEDIT/05 00040           DGWRITELO/05 00106
           DO%ONLINE/04 004C1       ENDCORE/04 00014         EODCNT/04 00016          EODCNTCI/04 00017
           ERR%%BO/05 0002D         ERR%%C/05 0002D          ERR%%CI/05 0002D         ERR%%CO/05 0002D
           ERR%%DO/05 0002D         ERR%%GO/05 0002D         ERR%%LO/05 0002D         ERR%%SI/05 0002D
           ERR%%SO/05 0002D         ERR%%STD/05 0002D        ERR%%X1/05 0002D         ERR%%X2/05 0002D
           ERR%%X3/05 0002D         ERR%%X4/05 0002D         F:STD/0D 00000           F:SYS/0E 00000
           F:X1/08 00000            F:X2/09 00000            F:X2KF/0A 00000          F:X3/0B 00000
           F:X5/0C 00000            FINMAJ/04 004BF          GO%FLAG/04 00005         HWX1SIZE/00000400
           HWX3SIZE/00000400        IM@NAME/04 0009E         INIT%TUNITS/04 0001E
           LINE%TYPE/04 000A2       LO%FLAG/04 00006         LO%ONLINE/04 004C2       LOWCORE/04 00013
           LS%FLAG/04 00007         LSTBF/04 00048           LU%FLAG/04 00008         MAJLINE/04 0001B
           MPX1/04 00015            ND%FLAG/04 00009         NEXTST/04 00019          NIVO/04 0009F
           NS%FLAG/04 0000A         NUM%PAGE%LINES/04 00088                           NXSYMB/04 0001A
           OPENX5/05 000FD          OPTION%FLAGS/04 00000                             PAGENUM/04 00086
           PAGETBL/04 0001F         PD%FLAG/04 0000F         PGLINES/04 00085         PGNUM/04 00084
           POSITIONSTD/05 00165                              POSITIONX1/05 000E4      POSITIONX3/05 000ED
           RD%STD/04 00087          READSTD/05 00161         READX1/05 000DE          READX3/05 000EF
           READX5/05 000F5          REPORT%STATUS/05 0009B                            REWSTD/05 00167
           REWX1/05 000E2           REWX3/05 000F3           ROOTEXIT/05 00028        ROOTRTN/04 004CB
           SAVAREA/04 004B0         SD%FLAG/04 0000B         SDFCON/04 00089          SDFSYS/04 0008A
           SDFSYS%SIZE/00000050                              SEGMENT#/04 0001D        SI%FLAG/04 0000C
           SO%ADJ%FPT/04 00023      SO%ADJ%NAME/04 00029                              SO%FLAG/04 0000D
           SO%KEY/04 00032          SU%FLAG/04 0000E         SUBLINE/04 0001C         SYSLEVEL/04 0009F
           SYSNAME/04 004C3         TITLEBUF/04 0006A        TRAPLOC/05 00048         UPDT%ERROR/04 004C0
           VAL%S:IVAL/04 00012      WDX1SIZE/00000200        WDX3SIZE/00000200        WRITEBO/05 00129
           WRITEDO/05 0014E         WRITEGO/05 0015A         WRITELO/05 00109         WRITESTD/05 00163
           WRITEX1/05 000E0         WRITEX3/05 000F1         WRITEX5/05 000F9         XAPCODE/05 00000
           XAPDATA/02 00000         XAPD1/03 00000           X1BUF/04 000A4           X3BUF/04 002A4
           1ERLECTURE%LI/04 004A5                            #ACCTS/04 000A3
  *    PRIMARY REFERENCES
           AP%ABORT       BOBUF          CONCORD        CTL%CARD%INTERPRETER          DEFGEN         DGEND
           DGINIT         ENDDEF         ENDGEN         IM@INIT        M:BO           M:CI           M:CO
           M:DO           M:GO           M:LL           M:LO           M:OC           M:SI           M:SO
           NCDR           STDERROR       SYSABN         SYSOPNER
  *    SECONDARY REFERENCES
           J:JIT          JOPT           TPEXT          TPOVT          TUEXT          TUOVT
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
