BANNER TELEFILE,AP H00,APINIT.
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       IIIIIIII       NN         NN      IIIIIIII       TTTTTTTTTTTT
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP      IIIIIIII       NNN        NN      IIIIIIII       TTTTTTTTTTTT
                 AA         AA    PP         PP         II          NNNN       NN         II               TT
                 AA         AA    PP         PP         II          NN NN      NN         II               TT
                 AA         AA    PP         PP         II          NN  NN     NN         II               TT
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP         II          NN   NN    NN         II               TT
                 AAAAAAAAAAAAA    PPPPPPPPPPPP          II          NN    NN   NN         II               TT
                 AA         AA    PP                    II          NN     NN  NN         II               TT
                 AA         AA    PP                    II          NN      NN NN         II               TT
                 AA         AA    PP                    II          NN       NNNN         II               TT
                 AA         AA    PP                 IIIIIIII       NN        NNN      IIIIIIII            TT
                 AA         AA    PP                 IIIIIIII       NN         NN      IIIIIIII            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       IIIIIIII       NN         NN      IIIIIIII       TTTTTTTTTTTT
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP      IIIIIIII       NNN        NN      IIIIIIII       TTTTTTTTTTTT
                 AA         AA    PP         PP         II          NNNN       NN         II               TT
                 AA         AA    PP         PP         II          NN NN      NN         II               TT
                 AA         AA    PP         PP         II          NN  NN     NN         II               TT
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP         II          NN   NN    NN         II               TT
                 AAAAAAAAAAAAA    PPPPPPPPPPPP          II          NN    NN   NN         II               TT
                 AA         AA    PP                    II          NN     NN  NN         II               TT
                 AA         AA    PP                    II          NN      NN NN         II               TT
                 AA         AA    PP                    II          NN       NNNN         II               TT
                 AA         AA    PP                 IIIIIIII       NN        NNN      IIIIIIII            TT
                 AA         AA    PP                 IIIIIIII       NN         NN      IIIIIIII            TT




ASSIGN M:CI,(FILE,CI:APINIT,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APINIT,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    ABN
            575/M:WRITE    581/M:WRITE    588/M:READ     899/M:READ     946/M:WRITE
    ABN%%C
            899/M:READ     976-RES
    ABN%%SI
            588/M:READ     627-RES
    ABN%%X1
             55/REF        946/M:WRITE
    ABN%%X2
            106/REF        581/M:WRITE
    ABN%%X4
            106/REF        575/M:WRITE
    ABNSI10
            639/BNEZ       643-RES
    ABNSI5
            630/BE         634/BNEZ       637-RES
    ABORT
             56/REF
    ABORT25
            178-EQU        595/ABORT
    ABORT27
            179-EQU        642/ABORT
    ADRDCB
             57/REF        251/STW        598/LH*
    ADRTRI
            165-RES        265/STW        268/STW*       272/STW*       273/STH*       294/STH*       297/STH*
            321/STH*       347/STH*       351/STH*       363/STD*       372/STD*       423/STW*       440/STD*
            461/LW*        464/LW*        469/STW*       474/STW*       493/STW*       516/STW*       531/LW*
            550/LW*        830/STW*
    ANZ
            282/IF
    APPEL%CONVERT
            292/BE         299-EQU        388/B          718/B
    AR
            177-EQU
    AVINDEX
            387/BAL        420-EQU
    BA%FLAG
            105/REF        640/MTW
    BLANC
             73/REF        228/LW         871/LW         937/LW
    BLOCK
            892/M:DEVICE
    BO%FLAG
             58/REF        239/MTH
    BO%SIZE
             59/REF        243/STW
    BPMUTS
             33-EQU         35/EQU         42/DO          94/DO         161/DO1        206/DO         238/LI
            737/DO
    BUF
            574/M:WRITE    580/M:WRITE    587/M:READ     900/M:READ     947/M:WRITE
    BUF%PRINT
            173-RES        397/STB        678/STB        703/STB        735/STW        753/STB        768/STW
            803/STB        809/STB        850/LI         862/LI         873/STW        934/STM        936/STM
            938/STW        939/LI
    BUFSI
            159-RES        163/EQU        290/LB         356/LB         379/LB         444/STH
            580/M:WRITE    587/M:READ     591/LB         614/LW         646/STW        661/LB         712/LB
            900/M:READ     933/LM         935/LM         947/M:WRITE    950/LB         953/LW         963/STW
            965/STW
    BUFSIEND
            163-EQU        604/LB         610/STB        734/LW         914/LB         921/STB
    BY%FIRST
            287-RES
    CARTE%J
            788/BAL        817-EQU
    CARTE%JK
            793/BAL        797-EQU
    CARTE%2
            785/BNE        790-EQU
    CAR1
             37-RES         40/EQU        154/USECT
    CAR2
             39-RES         41/EQU        185/USECT
    CHECK%FOR%PLUS%END
            601/BGEZ       613-EQU
    CK%PLUS%AST
            616/BNE        619-RES
    CNERR1
            195-TEXTC      958/LI
    CONVERT%BIN%DEC
            671-EQU        731/BAL        812/BAL
    CONVERT%DEC%CONSTANT
            301/BAL        335/BAL        657-EQU
    CONVERT%ERROR
            673-RES        680/BNEZ       800/BAL        806/BAL
    COPY%CN
            283/BAL        883-RES
    CORRESWD
             60/REF        280/LW         930/MTB
    CR
            181-EQU        916/CV
    CROISSANT
            454/LI         477-RES        478/EQU        483/EQU        486/EQU        521/LI
    DATA%DIX
            196-DATA       676/DW         750/DW
    DC%FLAG
             61/REF        278/MTH        887/STH
    DECROIS
            498/LI         501-RES
    DEP
            112-EQU        454/LI         458/B          466/B          472/B          476/B          498/LI
            521/LI         528/LI         551/MTH        558/CH
    DEUX
            143-EQU        270/LI         425/AI
    DIX
            148-EQU        664/MI
    ECRIRE%X2
            375-EQU        381/BNE
    ECRIT%CARTE%END
            436/BNE        442-EQU
    ENDMSG
            645/LW         651-TEXT       652/EQU
    ENDMSIZE
            644/LI         645/LW         646/STW        648/LI         652-EQU
    EODCNT
            103/REF        221/STW        633/MTW        635/MTW
    EODCNTCI
            103/REF        222/STW
    EQ
            952/IF
    ERR
            575/M:WRITE    581/M:WRITE    588/M:READ     898/M:READ     945/M:WRITE
    ERR%%C
             62/REF        898/M:READ     979/BOL
    ERR%%SI
            101/REF        588/M:READ     632/BNE
    ERR%%X1
             63/REF        945/M:WRITE
    ERR%%X2
            106/REF        581/M:WRITE
    ERR%%X4
            106/REF        575/M:WRITE
    ERR%PRINT
            399/BAL        704/BAL        770/BAL        813/BAL        849-RES
    ER3
            191-TEXTC      841/LI
    ER4
            193-TEXTC      705/LI
    ER5
            194-TEXTC      411/LI
    EXITINIT
            249/BNE        545-RES
    EZ
            931/IF
    F:X1
             87-EQU         95/REF        890/M:DEVICE   895/M:REW      944/M:WRITE
    F:X2
             89-EQU         96/REF        252/M:REW      543/M:WEOF     544/M:REW      580/M:WRITE
    F:X2KF
             91-EQU         96/REF        253/M:REW      539/M:WEOF     542/M:REW      574/M:WRITE
    FIN%TRI
            457/BGE        495/BE         518/BE         526-RES
    FIN%T1
            530-RES        568/B
    FIN%T2
            536/BLE        549-RES
    FIN%T3
            552/BNEZ       556-RES
    FIN%T4
            555/B          559-RES
    FIN%T5
            560/BG         563-RES
    FIN%T6
            562/B          565-RES
    FINMAJ
             99/REF        214/STW
    FIN1%UPDATE
            432-EQU        618/B
    FIVE%SIX
            187-DATA       978/CLM
    FLAG
            115-EQU        460/LI         475/LI         494/CI         517/CI
    HUIT
            147-EQU        672/LI
    I
            121-EQU        269/LI         272/STW        422/AI         423/STW        450/LW         451/STW
            461/LW         462/LW*        469/STW        470/LW         493/STW        516/STW        531/LW
            533/LM*        828/CW         830/STW        831/XW         838/LM*        861/STM        866/LM
    IGNORE
            767/LW         775-TEXT
    IM@INIT
             52/DEF        201-RES
    INDICNOTE
            157-RES        211/STW        212/STW        260/STW        261/STW        361/STH        362/LD
            366/MTW        368/STW        370/STH        371/LD         385/STW        386/STW        433/LD
    INITD
             40-EQU         53/DEF
    INITP
             41-EQU         53/DEF
    INVERS
            474-STW        484/BG         508/BL
    IOADD
            128-EQU        850/LI         862/LI         939/LI
    IORL
            130-EQU        852/BAL        864/BAL        941/BAL        961/BAL        969/BAL        981/BAL
    IOSIZE
            129-EQU        851/LI         863/LI         940/LI         960/LI
    J
            124-EQU        270/LI         273/STH        294/STH        296/AI         297/STH        321/STH
            347/STH        350/AI         351/STH        424/AI         464/LW         465/CW*        470/LW
            471/LW*        474/STW        550/LW         553/LW*        557/LH*        828/CW         831/XW
            834/LM*
    J%PLUS%UN
            323/B          349-EQU
    K
            123-EQU        271/LI         272/STW        273/STH        363/STD        372/STD        425/AI
            440/STD
    L
            911/IF
    LAST%UPDATE
            170-RES        223/STW        314/CW         319/STW        331/CW         348/STW        787/STW
            792/STW        799/LW         818/MTW        819/LW
    LEC%TEMP
            166-RES        623/STW        625/LW
    LECT%MAJ%1
            589-RES
    LECT%MAJ%2
            594/BNE        596-RES
    LECTURE%MAJ
            286/BAL        353/BAL        378/BAL        585-EQU        626/B          636/B          711/BAL
    LF
            182-EQU        915/IF
    LIMITE%NUMERIQUE
            188-EQU        662/CLM
    LINE%TYPE
             57/REF        247/LW
    LNKR
            133-EQU        788/BAL        793/BAL        814/B*
    LO%FLAG
             64/REF        853/LW
    LOWCORE
            100/REF        262/LW
    LU%FLAG
             65/REF        684/LW         854/OR
    M:C
             81/REF        897/M:READ     908/LH
    M:DO
             82/REF
    M:LO
             83/REF
    M:SI
             74/REF        250/LI         587/M:READ     741/LW         745/LW*
    M:X1
             86/REF         87/EQU
    M:X2
             88/REF         89/EQU
    M:X4
             90/REF         91/EQU
    MAXSI
            160-EQU        163/EQU        600/AI         910/AI
    MOVE%MSG
            393-RES        412/BAL        706/BAL        842/BAL        959/BAL
    MV%1
            396-LB         398/BDR
    NB
            122-EQU        262/LW         264/STW        265/STW        395/LB*        396/LB*        411/LI
            705/LI         841/LI         958/LI
    ND%FLAG
             71/REF        225/LW
    NE
            307/IF         337/IF         915/IF
    NEXT%UPDATE
            171-RES        791/STW        804/LW
    NIVO
             99/REF        213/STW
    NOTE%F:X2
            298/B          358/BNE        365-EQU
    NZ
            240/IF         279/IF
    OCTET%SUIVANT
            659-EQU        667/B
    ORG
            892/M:DEVICE
    OVERLAP%ERR
            561/BAL        824-RES
    OVRLAP1
            829/BG         832-RES
    PAGENUM
             67/REF        219/STW
    PAS
            117-EQU        481/AI         487/AI         488/AI         497/AI         505/AI         511/AI
            512/AI         520/AI
    PASSE
            455-RES        499/B          522/B
    PATCH
            155-RES
    PGLINES
             66/REF        218/STW        547/STW
    PGNUM
             66/REF        229/STW
    POSITIONX1
             68/REF        961/BAL
    PRINT
            773/BAL        859-EQU
    PRINT%FLAG
            167-RES        590/MTW        727/XW
    PRINT%UPDATE1
            352/BAL        376/BAL        617/BAL        624/BAL        683-EQU
    PT
            120-EQU        264/STW        267/AI         268/STW        421/AI         423/STW
    PTDEB
            113-EQU        449/LI         456/CW         479/LW         513/CW         520/AI
    PTFIN
            114-EQU        450/LW         456/CW         489/CW         497/AI         503/LW
    PTR1
            110-EQU        461/LW         469/STW        474/STW        479/LW         480/LW         487/AI
            489/CW         493/STW        503/LW         504/LW         511/AI         513/CW         516/STW
            527/LI         531/LW         566/AI
    PTR2
            111-EQU        464/LW         480/LW         481/AI         488/AI         504/LW         505/AI
            512/AI         529/LI         535/CW         550/LW         567/AI         830/STW
    QUATRE
            145-EQU        421/AI         422/AI
    R
            125-EQU        203/LI         204/STW        210/LI         211/STW        212/STW        213/STW
            214/STW        215/STW        216/STW        217/STW        218/STW        219/STW        220/STW
            221/STW        222/STW        223/STW        224/STW        225/LW         228/LW         229/STW
            232/STW        247/LW         248/CI         250/LI         251/STW        259/LI         260/STW
            261/STW        290/LB         291/CI         304/CI         306/CI         308/CI         336/CI
            338/CI         356/LB         357/CI         360/LW         361/STH        362/LD         363/STD
            367/LW         368/STW        369/LW         370/STH        371/LD         372/STD        379/LB
            380/CI         384/LI         385/STW        386/STW        396/LB         397/STB        433/LD
            434/AND        435/CI         437/LW         439/STH        440/STD        443/LI         444/STH
            462/LW         465/CW         471/LW         533/LM         534/STM        546/LI         547/STW
            553/LW         554/CW         557/LH         558/CH         604/LB         605/CI         607/CI
            614/LW         615/CW         620/SLS        621/CI         661/LB         662/CLM        665/AI
            666/AW         684/LW         702/LI         703/STB        712/LB         713/CI         726/LI
            727/XW         734/LW         735/STW        767/LW         768/STW        782/LH         783/STW
            801/LI         803/STB        807/LI         809/STB        834/LM         835/STM        838/LM
            839/STM        853/LW         854/OR         871/LW         873/STW
    RBM
             34-EQU         46/DO          85/DO         538/DO         587/M:READ     889/DO
            901/M:READ
    RD%STD
             69/REF        220/STW        227/MTW
    REPORT%STATUS
             97/REF        207/M:INT
    RES%LINE%COUNT
            169-RES        217/STW        367/LW         437/LW         582/MTW        783/STW        811/LW
    RETOUR
            135-EQU        280/LW         281/CV         283/BAL        286/BAL        301/BAL        335/BAL
            353/BAL        377/BAL        378/BAL        382/BAL        394/BAL        399/BAL        445/BAL
            583/B*         622/BNE*       623/STW        625/LW         663/BCS*       681/B*         697/BAL
            704/BAL        711/BAL        729/BAL        731/BAL        770/BAL        773/BAL        778/BAL
            800/BAL        806/BAL        812/BAL        813/BAL        855/BEZ*       867/B*         875/B*
            972/EXIT       984/EXIT
    RETRO
            134-EQU        316/BAL        333/BAL        352/BAL        376/BAL        387/BAL        400/B*
            409/BAL        412/BAL        415/B*         426/B*         537/BAL        561/BAL        564/BAL
            576/B*         617/BAL        624/BAL        687/B*         696/BAL        706/BAL        709/BAL
            724/STW        842/BAL        845/B*         959/BAL
    RETURN
            136-EQU        789/B*         794/B*         836/BAL        840/BAL
    REWX1
             70/REF        969/BAL        981/BAL
    ROOTEXIT
            104/REF        641/BNEZ
    ROOTRTN
             76/REF        202/STW        548/B*
    R1
            126-EQU        434/AND        602/LI         610/STB        649/LI
    R8
            127-EQU
    S:S
            238/LI
    SAVAREA
            102/REF        408/STM        414/LM         694/STM        699/LW         717/LM         827/STM
            844/LM         885/STM        971/LM         983/LM
    SAVE%I
            168-RES        224/STW        451/STW        535/CW         695/MTW        715/MTW        763/MTW
    SEGMENT#
             77/REF        204/STW
    SEPT
            146-EQU        424/AI
    SEQNCERR
            316/BAL        333/BAL        405-RES
    SIZE
            574/M:WRITE    580/M:WRITE    587/M:READ     891/M:DEVICE   901/M:READ     948/M:WRITE
    SP%BLANC
            394/BAL        697/BAL        729/BAL        778/BAL        870-EQU
    SP%OVERLAP
            777-EQU        836/BAL        840/BAL
    SP%PRINT
            409/BAL        685/BNEZ       696/BAL        709/BAL        723-EQU
    SP%PRINT1
            733-RES        736/BIR
    SP%PRINT2
            764/BEZ        772-RES
    SP%PRINT3
            766-RES        769/BIR
    SP%PRINT4
            744/BNE        761-RES
    SP%PRINT5
            748-RES        758/BG         760/BNE
    SP%PRINT6
            752-RES        757/BE
    SR1
            150-EQU
    SR2
            151-EQU
    SR3
            152-EQU        628/LB         645/LW         646/STW        977/LB
    STH%VAL1
            343/BLE        346-EQU
    STH%VAL11
            313/BEZ        315/BGE        317-RES
    SU%FLAG
             78/REF        312/MTW        329/MTW
    SUITE%ERROR
            805-EQU        821/B
    SUITE%ZAP
            608/BNE        611-EQU
    SYN%1
            708-RES        714/BNE
    SYN%2
            707/B          710-RES
    SYS
             35-EQU         42/DO          46/DO          85/DO          94/DO         161/DO1        206/DO
            238/LI         538/DO         587/M:READ     737/DO         889/DO         901/M:READ
    SYS%REGS
            164-RES        861/STM        866/LM
    TAB
            183-EQU        308/CI         338/CI
    TEST%VAL
            305/BE         326-EQU
    TEST%VAL1
            330/BEZ        332/BG         334-RES
    TITLEBUF
             72/REF        232/STW        234/M:TIME
    TRI
            441/B          448-EQU
    TROIS
            144-EQU        833/LCI        837/LCI
    TROIS%SUITE
            468-EQU        485/B          509/B
    T1
            137-EQU        912/LI         921/STB
    UN
            142-EQU        259/LI         261/STW        267/AI         271/LI         293/LI         296/AI
            302/CI         344/AI         350/AI         384/LI         386/STW        435/CI         475/LI
            660/AI         674/AI         780/LI         782/LH         802/AI         808/AI         818/MTW
            873/STW        874/BDR
    UNSUITE
            459-EQU        482/B          506/B
    UPDATE%LINE%COUNT
            172-RES        215/STW        360/LW         369/LW         410/MTW        438/LW         638/MTW
            686/MTW        725/MTW        730/LW
    UPDATE%SYNTAX%ERROR
            303/BE         309/BNE        328/BEZ        339/BNE        345/B          691-EQU
    UPDT%ERROR
             75/REF        216/STW        406/MTW        692/MTW        825/MTW
    VAL
            132-EQU        293/LI         294/STH        295/LI         297/STH        314/CW         319/STW
            320/AI         321/STH        322/LI         327/LW         342/CW         348/STW        351/STH
            658/LI         664/MI         666/AW         679/CI         730/LW         745/LW         746/AND
            759/CI         779/LH         787/STW        791/STW        799/LW         804/LW         811/LW
            819/LW
    VAL1
            131-EQU        327/LW         331/CW         342/CW         347/STH        675/LI         676/DW
            677/AI         678/STB        749/LI         750/DW         751/AI         753/STB        755/LI
            781/LH         784/CI         792/STW
    WAIT
            574/M:WRITE    580/M:WRITE    902/M:READ     949/M:WRITE
    WRITE%X2
            377/BAL        382/BAL        445/BAL        578-EQU
    WRITEDO
             79/REF        852/BAL
    WRITELO
             79/REF        864/BAL        941/BAL
    WRITEX4
            537/BAL        564/BAL        572-RES
    X
            118-EQU        395/LB         396/LB         397/STB        398/BDR        438/LW         439/STH
            628/LB         629/CI         631/CI         672/LI         674/AI         678/STB        732/LI
            734/LW         735/STW        736/BIR        741/LW         742/AND        743/CI         747/LI
            753/STB        754/AI         756/CI         765/LI         767/LW         768/STW        769/BIR
            780/LI         781/LH         798/LI         802/AI         803/STB        808/AI         809/STB
            820/LI         872/LI         873/STW        874/BDR
    XAPDATA
             36-DSECT
    XT
            138-EQU        238/LI         241/LI         243/STW        886/LI         887/STH        907/LI
            908/LH         908/LH         909/SLS        910/AI         913/AI         914/LB         921/STB
            923/BIR        929/LI         930/MTB        937/LW         938/STW        950/LB         951/CV
            953/LW         954/CV         962/LV         963/STW        964/LV         965/STW        977/LB
            978/CLM
    XT1
            139-EQU        914/LB         915/IF         916/CV
    X1
            119-EQU        231/LI         232/STW        233/BDR        300/LI         302/CI         344/AI
            660/AI         661/LB         699/LW         699/LW         700/AI         703/STB
    ZAP%LF%CR
            606/BE         609-EQU        612/BIR        650/B
    ZERO
            141-EQU        269/LI         295/LI         300/LI         322/LI         449/LI         460/LI
            494/CI         501/RES        517/CI         658/LI         675/LI         784/CI
    ZERO%SUR%INDICNOTE
            364/B          383-EQU
    ZONECI
            158-RES        534/STM        551/MTH        554/CW         558/CH         574/M:WRITE    724/STW
            728/BEZ*       771/B*         774/B*         779/LH         781/LH         782/LH         835/STM
            839/STM
    %
            188/EQU        226/BNEZ       233/BDR        299/EQU        326/EQU        346/EQU        349/EQU
            365/EQU        375/EQU        383/EQU        420/EQU        432/EQU        442/EQU        448/EQU
            459/EQU        468/EQU        478/EQU        483/EQU        486/EQU        578/EQU        585/EQU
            609/EQU        611/EQU        613/EQU        647/BIR        652/EQU        657/EQU        659/EQU
            671/EQU        683/EQU        691/EQU        723/EQU        777/EQU        790/EQU        797/EQU
            805/EQU        817/EQU        859/EQU        870/EQU        874/BDR
    %BOUCLE
            463-RES        490/BL         514/BG
    %QUATRE
            472/B          476/B          486-EQU
    %TROIS
            466/B          483-EQU
    %UN
            458/B          478-EQU
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APINIT'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APINIT                  %%%%%
         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
        37   02 00000                 CAR1     RES      0
        38   03 00000                          CSECT    1
        39   03 00000                 CAR2     RES      0
        40         02 00000           INITD    EQU      CAR1              ORIGIN OF INIT DATA
        41         03 00000           INITP    EQU      CAR2              ORIGIN OF INIT PROCEDURE
        42         00000001                    DO       SYS=BPMUTS
        43         H00                         SYSTEM   BPM
        44                                     M:PT     1                 GENERATE FPT'S IN PROTECT. TYPE 1
        45                                     FIN
        46         00000000                    DO       SYS=RBM
        47                        *S*          SYSTEM   RBM
        48                                     FIN
        49                            *
        50                                     SYSTEM   AP%IL
        51                            *
        52                                     DEF       IM@INIT             ENTRY POINT
        53                                     DEF      INITP,INITD       ORIGIN OF PROCEDURE AND DATA
        54                            *
        55                                     REF      ABN%%X1
        56                                     REF      ABORT
        57                                     REF      ADRDCB,LINE%TYPE
        58                                     REF      BO%FLAG
        59                                     REF      BO%SIZE           BINARY RECORD SIZE
        60                                     REF      CORRESWD
        61                                     REF      DC%FLAG
        62                                     REF      ERR%%C
        63                                     REF      ERR%%X1
        64                                     REF      LO%FLAG
        65                                     REF      LU%FLAG
        66                                     REF      PGLINES,PGNUM
        67                                     REF      PAGENUM
        68                                     REF      POSITIONX1
        69                                     REF      RD%STD
        70                                     REF      REWX1
        71                                     REF      ND%FLAG
        72                                     REF      TITLEBUF
        73                                     REF       BLANC
        74                                     REF      M:SI
        75                                     REF      UPDT%ERROR
        76                                     REF      ROOTRTN
        77                                     REF      SEGMENT#          AP OVERLAY SEGMENT
        78                                     REF      SU%FLAG
        79                                     REF      WRITEDO,WRITELO
        80                            *
        81                                     REF      M:C
        82                                     REF      M:DO
        83                                     REF      M:LO
        84                            *
        85         00000000                    DO       SYS=RBM
        86                        *S*          REF      M:X1
        87                        *S* F:X1     EQU      M:X1
        88                        *S*          REF      M:X2
        89                        *S* F:X2     EQU      M:X2
        90                        *S*          REF      M:X4
        91                        *S* F:X2KF   EQU      M:X4
        92                                     FIN
        93                            *
        94         00000001                    DO       SYS=BPMUTS
        95                                     REF      F:X1
        96                                     REF       F:X2,F:X2KF
        97                                     REF      REPORT%STATUS
        98                                     FIN
        99                                     REF      NIVO,FINMAJ
       100                                     REF      LOWCORE
       101                                     REF      ERR%%SI
       102                                     REF      SAVAREA
       103                                     REF      EODCNT,EODCNTCI
       104                                     REF      ROOTEXIT
       105                                     REF      BA%FLAG
       106                                     REF      ABN%%X2,ERR%%X2,ABN%%X4,ERR%%X4
       107                            *
       108                            *  REGISTERS USED TO CONTROL THE SORTING OF PLUS CARDS IN CORE
       109                            *
       110         00000001           PTR1     EQU      1                 POINTER TO LOWEST KEY
       111         00000002           PTR2     EQU      2                 POINTER TO HIGHEST KEY
       112         00000003           DEP      EQU      3                 PASS1/PASS2 ADDRESS
       113         0000000A           PTDEB    EQU      10                INITIAL VALUE OF PTR1
       114         0000000B           PTFIN    EQU      11                FINAL VALUE OF PTR1
       115         0000000F           FLAG     EQU      15                RECORD-INVERTED FLAG
       116                            *
       117         00000004           PAS      EQU      4                 NO. WORDS IN A '+' CARD RECORD
       118         00000001           X        EQU      1                 PRIMARY INDEX REGISTER
       119         00000002           X1       EQU      2                 SECONDARY INDEX REGISTER
       120         00000003           PT       EQU      3                 POINTER FOR NEXT '+' CARD RECORD
       121         00000004           I        EQU       4
       122         00000005           NB       EQU       5
       123         00000006           K        EQU       6
       124         00000007           J        EQU       7
       125         00000008           R        EQU       8
       126         00000009           R1       EQU       9
       127         00000008           R8       EQU      8
       128         00000008           IOADD    EQU      8
       129         00000009           IOSIZE   EQU      9
       130         0000000A           IORL     EQU      10
       131         0000000A           VAL1     EQU       10
       132         0000000B           VAL      EQU       11
       133         0000000C           LNKR     EQU       12
       134         0000000D           RETRO    EQU       13
       135         0000000E           RETOUR   EQU       14
       136         0000000F           RETURN   EQU       15
       137         00000008           T1       EQU      8                 TEMP - EVEN
       138         00000004           XT       EQU      4                 TEMP - EVEN
       139         00000005           XT1      EQU      5                 TEMP - ODD
       140                            *
       141         00000000           ZERO     EQU       0
       142         00000001           UN       EQU       1
       143         00000002           DEUX     EQU       2
       144         00000003           TROIS    EQU       3
       145         00000004           QUATRE   EQU       4
       146         00000007           SEPT     EQU       7
       147         00000008           HUIT     EQU       8
       148         0000000A           DIX      EQU       10
       149                            *
       150         00000008           SR1      EQU      8
       151         00000009           SR2      EQU      9
       152         0000000A           SR3      EQU      10
       153                            *
       154   03 00000                          USECT    CAR1
       155   02 00000                 PATCH    RES      32                ***** PATCH AREA *****
       156                                     BOUND    8
       157   02 00020                 INDICNOTE   RES   2
       158   02 00022                 ZONECI   RES      4
       159   02 00026                 BUFSI    RES      20
       160         00000050           MAXSI    EQU      80                MAX BYTES IN SI
       161   02 0003A                          DO1      SYS=BPMUTS
       162   02 0003A                          RES      10
       163         02 0003A           BUFSIEND EQU      BUFSI+(MAXSI/4)
       164   02 00044                 SYS%REGS RES       4
       165   02 00048                 ADRTRI   RES       1
       166   02 00049                 LEC%TEMP RES      1                 TEMP IN LECTURE%MAJ
       167   02 0004A                 PRINT%FLAG  RES   1                 0=UPDATE RECORD WAS PRINTED
       168   02 0004B                 SAVE%I   RES       1
       169   02 0004C                 RES%LINE%COUNT RES 1                X2 FILE RECORD NUMBER
       170   02 0004D                 LAST%UPDATE  RES  1
       171   02 0004E                 NEXT%UPDATE  RES  1
       172   02 0004F                 UPDATE%LINE%COUNT  RES  1
       173   02 00050                 BUF%PRINT   RES   30                TEMP PRINT AREA
       174                            *
       175                            *  EQUATES FOR THE ABORT PROC
       176                            *
       177         00000000           AR       EQU      0                 ABORT REGISTER
       178         00000019           ABORT25  EQU      25
       179         0000001B           ABORT27  EQU      27
       180                            *
       181         0000000D           CR       EQU      X'0D'             CARRIAGE RETURN
       182         00000015           LF       EQU      X'15'             LINE FEED
       183         00000005           TAB      EQU      5                 EBCDIC FOR 'TAB' CHAR
1
       185   02 0006E                          USECT    CAR2
       186                                    BOUND    8
       187   03 00000    00000005 A   FIVE%SIX DATA     5,6               EOF-EOT CODES
             03 00001    00000006 A
       188         03 00002           LIMITE%NUMERIQUE    EQU       %
       189   03 00002    000000F0 A            DATA      '0'
       190   03 00003    000000F9 A            DATA      '9'
       191                            ER3      TEXTC    'OVERLAPPING SEQUENCE NUMBERS.  ',;
       192   03 00004    3BD6E5C5 A                     'LAST UPDATE GROUP IS IGNORED'
             03 00005    D9D3C1D7 A
             03 00006    D7C9D5C7 A
             03 00007    40E2C5D8 A
             03 00008    E4C5D5C3 A
             03 00009    C540D5E4 A
             03 0000A    D4C2C5D9 A
             03 0000B    E24B4040 A
             03 0000C    D3C1E2E3 A
             03 0000D    40E4D7C4 A
             03 0000E    C1E3C540 A
             03 0000F    C7D9D6E4 A
             03 00010    D740C9E2 A
             03 00011    40C9C7D5 A
             03 00012    D6D9C5C4 A
       193   03 00013    15C9D3D3 A   ER4      TEXTC    'ILLEGAL UPDATE SYNTAX'
             03 00014    C5C7C1D3 A
             03 00015    40E4D7C4 A
             03 00016    C1E3C540 A
             03 00017    E2E8D5E3 A
             03 00018    C1E74040 A
       194   03 00019    17C9D3D3 A   ER5      TEXTC    'ILLEGAL UPDATE SEQUENCE'
             03 0001A    C5C7C1D3 A
             03 0001B    40E4D7C4 A
             03 0001C    C1E3C540 A
             03 0001D    E2C5D8E4 A
             03 0001E    C5D5C3C5 A
       195   03 0001F    28405C5C A   CNERR1   TEXTC    ' ** NO ''.'' IN COL 1 - CN SCAN TERMINATED'
             03 00020    40D5D640 A
             03 00021    7D4B7D40 A
             03 00022    C9D540C3 A
             03 00023    D6D340F1 A
             03 00024    406040C3 A
             03 00025    D540E2C3 A
             03 00026    C1D540E3 A
             03 00027    C5D9D4C9 A
             03 00028    D5C1E3C5 A
             03 00029    C4404040 A
       196   03 0002A    0000000A A   DATA%DIX DATA     10
1
       198                            *
       199                            *
       200                            *
       201   03 0002B                 IM@INIT  RES       0
       202   03 0002B    35A00000 X            STW,10   ROOTRTN           SAVE RETURN ADDRESS
       203   03 0002C    22800001 A            LI,R     1
       204   03 0002D    35800000 X            STW,R    SEGMENT#
       205                            *
       206         00000001                    DO       SYS=BPMUTS
       207   03 0002E    04800000 05           M:INT    REPORT%STATUS     SET BREAK RECEIVER ADDRESS
             05 00000    0E000000 X
       208                                     FIN
       209                            *
       210   03 0002F    22800000 A            LI,R     0
       211   03 00030    35800020 02           STW,R    INDICNOTE
       212   03 00031    35800021 02           STW,R    INDICNOTE+1
       213   03 00032    35800000 X            STW,R    NIVO              SYSTEM LEVEL INDICATOR
       214   03 00033    35800000 X            STW,R    FINMAJ            1=FINISHED WITH UPDATES
       215   03 00034    3580004F 02           STW,R    UPDATE%LINE%COUNT
       216   03 00035    35800000 X            STW,R    UPDT%ERROR        NO. OF '+' CARD ERRORS
       217   03 00036    3580004C 02           STW,R    RES%LINE%COUNT
       218   03 00037    35800000 X            STW,R    PGLINES           CLEAR NUMBER OF LINES PER PAGE
       219   03 00038    35800000 X            STW,R    PAGENUM
       220   03 00039    35800000 X            STW,R    RD%STD            SET RD%STD
       221   03 0003A    35800000 X            STW,R    EODCNT            EOD COUNT FOR SI
       222   03 0003B    35800000 X            STW,R    EODCNTCI          EOD COUNT FOR CI
       223   03 0003C    3580004D 02           STW,R    LAST%UPDATE
       224   03 0003D    3580004B 02           STW,R    SAVE%I            FLAG FOR SKIPPING UPDATES
       225   03 0003E    32800000 X            LW,R     ND%FLAG           ON IF
       226   03 0003F    69300041              BNEZ     %+2               F:STD IS
       227   03 00040    33100000 X            MTW,+1   RD%STD            REQUIRED
       228   03 00041    32800000 X            LW,R     BLANC
       229   03 00042    35800000 X            STW,R    PGNUM             BLANK PAGE NUMBER IN TITLE BUFFER
       230                            *   SET THE VARIABLE PART OF THE TITLE BUFFER TO BLANKS
       231   03 00043    22200012 A            LI,X1    18
       232   03 00044    35840005 N            STW,R    TITLEBUF+5,X1
       233   03 00045    64200044              BDR,X1   %-1
       234   03 00046    04800001 05           M:TIME   TITLEBUF+2
             05 00001    10000002 N
       235                            *
       236                            *   INITIALIZE BINARY RECORD SIZE
       237                            *
       238   03 00047    2240006C A            LI,XT    S:S(SYS=BPMUTS,120,108)   BINARY RECORD SIZE
       239   03 00048    53000000 X            MTH,0    BO%FLAG
       240         001F0000                    IF,NZ                      DOIF 'SB' SPECIFIED
             03 00049    6830004B
       241   03 0004A    22400078 A            LI,XT    120               STANDARD RECORD LENGTH
       242         00F10000                    FI
       243   03 0004B    35400000 X            STW,XT   BO%SIZE
       244                            *
       245                            *   CHECK FOR UPDATES
       246                            *
       247   03 0004C    32800000 X            LW,R     LINE%TYPE         IS THERE
       248   03 0004D    21800003 A            CI,R     3                   AN UPDATE PACKET
       249   03 0004E    69300119              BNE      EXITINIT          NO.  EXIT
       250   03 0004F    22800000 N            LI,R     M:SI
       251   03 00050    35800000 X            STW,R    ADRDCB
       252   03 00051    04100002 05           M:REW    F:X2
             05 00002    01000000 X
       253   03 00052    04100003 05           M:REW    F:X2KF
             05 00003    01000000 X
1
       255                            *
       256                            *
       257                            *  READ UPDATE CONTROL CARDS, WRITE THEM ON F:X2, LIST THEM IF LU WAS RE
       258                            *  BUILD CONTROL RECORDS & WRITE THEM ON F:X2KF.
       259   03 00053    228FFFFF A            LI,R      -UN
       260   03 00054    35800020 02           STW,R     INDICNOTE
       261   03 00055    35800021 02           STW,R     INDICNOTE+UN
       262   03 00056    32500000 X            LW,NB    LOWCORE
       263                            * INITIALIZE 'ADRTRI' AND ADRMAX'.
       264   03 00057    35500003 A            STW,NB    PT
       265   03 00058    35500048 02           STW,NB    ADRTRI
       266                            *  BUILD 1ST POINTER AND INITIALIZE INDEX REGISTERS.
       267   03 00059    20300001 A            AI,PT     UN
       268   03 0005A    B5300048 02           STW,PT    *ADRTRI
       269   03 0005B    22400000 A            LI,I      ZERO
       270   03 0005C    22700002 A            LI,J      DEUX
       271   03 0005D    22600001 A            LI,K      UN
       272   03 0005E    B54C0048 02           STW,I    *ADRTRI,K         PRESET UPDATE NUMBERS
       273   03 0005F    D56E0048 02           STH,K    *ADRTRI,J         IN CASE THE
       274                            *                                   FIRST UPDATE CARD IS '+END'
       275                            *
       276                            *   IF CN CONTROL CARDS ARE IN THE WAY, BUFFER THEM OUT TO X1
       277                            *
       278   03 00060    53000000 X            MTH,0    DC%FLAG
       279         001F0000                    IF,NZ                      'CN' SPECIFIED
             03 00061    68300066
       280   03 00062    32E00000 X            LW,RETOUR   CORRESWD
       281   03 00063    21E0FF00 A            CV,RETOUR   X'0000FF00'
       282         001F0100                    IF,ANZ                     SI & C ARE THE SAME DEVICE
             03 00064    68400066
       283   03 00065    6AE00215              BAL,RETOUR   COPY%CN
       284         00F10100                    FI
       285         00F10000                    FI
       286   03 00066    6AE00130              BAL,RETOUR  LECTURE%MAJ
       287   03 00067                 BY%FIRST RES      0
       288                            *
       289                            *  EXAMINE 1ST CHAR OF 'BUFSI' TO DETERMINE IF IT IS AN UPDATE CONTROL C
       290   03 00067    72800026 02           LB,R      BUFSI
       291   03 00068    2180004E A            CI,R      X'4E'
       292   03 00069    68300070              BE        APPEL%CONVERT
       293   03 0006A    22B00001 A            LI,VAL    UN
       294   03 0006B    D5BE0048 02           STH,VAL   *ADRTRI,J
       295   03 0006C    22B00000 A            LI,VAL    ZERO
       296   03 0006D    20700001 A            AI,J      UN
       297   03 0006E    D5BE0048 02           STH,VAL   *ADRTRI,J
       298   03 0006F    680000A2              B         NOTE%F:X2
       299         03 00070           APPEL%CONVERT       EQU       %
       300   03 00070    22200000 A            LI,X1     ZERO
       301   03 00071    6AE00173              BAL,RETOUR CONVERT%DEC%CONSTANT
       302   03 00072    21200001 A            CI,X1     UN
       303   03 00073    68300189              BE        UPDATE%SYNTAX%ERROR
       304   03 00074    2180006B A            CI,R      X'6B'     CARACTERE SUIVANT=VIRGULE?
       305   03 00075    68300084              BE        TEST%VAL
       306   03 00076    21800040 A            CI,R      X'40'     CARACTERE SUIVANT=BLANC?
       307         001F0000                    IF,NE                 -20- NOT COMMA OR BLANK
             03 00077    6830007A
       308   03 00078    21800005 A            CI,R     TAB
       309   03 00079    69300189              BNE       UPDATE%SYNTAX%ERROR
       310                            *
       311         00F10000                    FI                    -20-
       312   03 0007A    33000000 X            MTW,+0   SU%FLAG           CHECK SEQUENCE IF SU OPTION
       313   03 0007B    6830007F              BEZ      STH%VAL11           IS REQUESTED
       314   03 0007C    31B0004D 02           CW,VAL   LAST%UPDATE
       315   03 0007D    6810007F              BGE      STH%VAL11         SEQUENCE IS OKAY
       316   03 0007E    6AD000BC              BAL,RETRO SEQNCERR         REPORT A SEQUENCE ERROR
       317   03 0007F                 STH%VAL11   RES   0
       318                            *  STORE 1ST HALF-WORD INTO TABLE OF CONTROL RECORDS.
       319   03 0007F    35B0004D 02           STW,VAL  LAST%UPDATE
       320   03 00080    20B00001 A            AI,VAL   1
       321   03 00081    D5BE0048 02           STH,VAL   *ADRTRI,J
       322   03 00082    22B00000 A            LI,VAL    ZERO
       323   03 00083    68000096              B         J%PLUS%UN
       324                            *  SYNTAX-CHECK UPDATE CONTROL CARDS & STORE 2ND
       325                            *  HALF-WORD INTO TABLE OF CONTROL RECORDS.
       326         03 00084           TEST%VAL EQU       %
       327   03 00084    32A0000B A            LW,VAL1   VAL
       328   03 00085    68300189              BEZ       UPDATE%SYNTAX%ERROR
       329   03 00086    33000000 X            MTW,+0   SU%FLAG           CHECK SEQUENCE IF SU OPTION
       330   03 00087    6830008B              BEZ      TEST%VAL1           IS REQUESTED
       331   03 00088    31A0004D 02           CW,VAL1  LAST%UPDATE
       332   03 00089    6920008B              BG       TEST%VAL1         OKAY
       333   03 0008A    6AD000BC              BAL,RETRO SEQNCERR         REPORT A SEQUENCE ERROR
       334   03 0008B                 TEST%VAL1   RES   0
       335   03 0008B    6AE00173              BAL,RETOUR CONVERT%DEC%CONSTANT
       336   03 0008C    21800040 A            CI,R      X'40'     OCTET SUIVANT=BLANC?
       337         001F0000                    IF,NE                 -40- NOT BLANK
             03 0008D    68300090
       338   03 0008E    21800005 A            CI,R     TAB
       339   03 0008F    69300189              BNE       UPDATE%SYNTAX%ERROR
       340                            *
       341         00F10000                    FI                    -40-
       342   03 00090    31A0000B A            CW,VAL1   VAL
       343   03 00091    68200094              BLE       STH%VAL1
       344   03 00092    202FFFFF A            AI,X1     -UN
       345   03 00093    68000189              B         UPDATE%SYNTAX%ERROR
       346         03 00094           STH%VAL1 EQU       %
       347   03 00094    D5AE0048 02           STH,VAL1  *ADRTRI,J
       348   03 00095    35B0004D 02           STW,VAL  LAST%UPDATE
       349         03 00096           J%PLUS%UN           EQU       %
       350   03 00096    20700001 A            AI,J      UN
       351   03 00097    D5BE0048 02           STH,VAL   *ADRTRI,J
       352   03 00098    6AD00185              BAL,RETRO PRINT%UPDATE1
       353   03 00099    6AE00130              BAL,RETOUR LECTURE%MAJ
       354                            *
       355                            *  DETERMINE IF 'BUFSI' CONTAINS AN UPDATE CONTROL CARD.
       356   03 0009A    72800026 02           LB,R      BUFSI
       357   03 0009B    2180004E A            CI,R      X'4E'     1ER CARACTERE=+?
       358   03 0009C    693000A2              BNE       NOTE%F:X2
       359                            *  STORE INDEX BLOCK INTO TABLE.
       360   03 0009D    3280004F 02           LW,R      UPDATE%LINE%COUNT
       361   03 0009E    55800020 02           STH,R     INDICNOTE
       362   03 0009F    12800020 02           LD,R      INDICNOTE
       363   03 000A0    958C0048 02           STD,R     *ADRTRI,K
       364   03 000A1    680000B0              B         ZERO%SUR%INDICNOTE
       365         03 000A2           NOTE%F:X2           EQU       %
       366   03 000A2    33100021 02           MTW,+1   INDICNOTE+1
       367   03 000A3    3280004C 02           LW,R     RES%LINE%COUNT
       368   03 000A4    35800020 02           STW,R    INDICNOTE
       369   03 000A5    3280004F 02           LW,R      UPDATE%LINE%COUNT
       370   03 000A6    55800020 02           STH,R     INDICNOTE
       371   03 000A7    12800020 02           LD,R      INDICNOTE
       372   03 000A8    958C0048 02           STD,R     *ADRTRI,K
       373                            *
       374                            *  READ UPDATE CARDS, WRITE THEM ON F:X2, & LIST THEM.
       375         03 000A9           ECRIRE%X2           EQU       %
       376   03 000A9    6AD00185              BAL,RETRO PRINT%UPDATE1
       377   03 000AA    6AE0012D              BAL,RETOUR WRITE%X2
       378   03 000AB    6AE00130              BAL,RETOUR LECTURE%MAJ
       379   03 000AC    72800026 02           LB,R      BUFSI
       380   03 000AD    2180004E A            CI,R      X'4E'     1ER OCTET=+?
       381   03 000AE    693000A9              BNE       ECRIRE%X2
       382   03 000AF    6AE0012D              BAL,RETOUR WRITE%X2
       383         03 000B0           ZERO%SUR%INDICNOTE  EQU       %
       384   03 000B0    228FFFFF A            LI,R      -UN
       385   03 000B1    35800020 02           STW,R     INDICNOTE
       386   03 000B2    35800021 02           STW,R     INDICNOTE+UN
       387   03 000B3    6AD000C6              BAL,RETRO AVINDEX
       388   03 000B4    68000070              B         APPEL%CONVERT
       389                            *
       390                            *  MOVE%MSG ROUTINE
       391                            *        MOVE A TEXTC MESSAGE TO THE BUF%PRINT AREA
       392                            *
       393   03 000B5                 MOVE%MSG RES      0
       394   03 000B5    6AE00210              BAL,RETOUR  SP%BLANC
       395   03 000B6    F2100005 A            LB,X     *NB               GET BYTE COUNT OF THE MESSAGE
       396   03 000B7    F2820005 A   MV%1     LB,R     *NB,X             MOVE NEXT BYTE
       397   03 000B8    75820050 02           STB,R    BUF%PRINT,X         TO BUF%PRINT
       398   03 000B9    641000B7              BDR,X    MV%1              COUNT & RETURN
       399   03 000BA    6AE00202              BAL,RETOUR ERR%PRINT       OUTPUT ON 'DO' & 'LO', IF REQ'D
       400   03 000BB    E800000D A            B        *RETRO            EXIT
       401                            *
       402                            *  SEQNCERR ROUTINE
       403                            *        PRINT A SEQUENCE ERROR MESSAGE
       404                            *
       405   03 000BC                 SEQNCERR RES      0
       406   03 000BC    33100000 X            MTW,+1   UPDT%ERROR
       407   03 000BD    022000F0 A            LCI      +15               SAVE REGISTERS
       408   03 000BE    2B100000 X            STM,1    SAVAREA
       409   03 000BF    6AD001A0              BAL,RETRO SP%PRINT         PRINT THE '+' CARD
       410   03 000C0    33F0004F 02           MTW,-1   UPDATE%LINE%COUNT    1 WILL BE ADDED BY PRINT%UPDATE1
       411   03 000C1    22500019              LI,NB    ER5               ADDRESS OF ERROR MESSAGE
       412   03 000C2    6AD000B5              BAL,RETRO MOVE%MSG         PRINT THE MESSAGE
       413   03 000C3    022000F0 A            LCI      +15               RESTORE REGISTERS
       414   03 000C4    2A100000 X            LM,1     SAVAREA
       415   03 000C5    E800000D A            B        *RETRO
1
       417                            *
       418                            *
       419                            *  INCREMENT INDEX REGS I,J,K
       420         03 000C6           AVINDEX  EQU       %
       421   03 000C6    20300004 A            AI,PT     QUATRE
       422   03 000C7    20400004 A            AI,I     QUATRE
       423   03 000C8    B5380048 02           STW,PT    *ADRTRI,I
       424   03 000C9    20700007 A            AI,J      SEPT
       425   03 000CA    20600002 A            AI,K      DEUX
       426   03 000CB    E800000D A            B         *RETRO
       427                            *
1
       429                            *
       430                            *  HERE MEANS 'COPY%UPDATE%PACKET' HAS FINISHED READING F:SI.
       431                            *
       432         03 000CC           FIN1%UPDATE         EQU       %
       433   03 000CC    12800020 02           LD,R      INDICNOTE
       434   03 000CD    4B800009 A            AND,R     R1
       435   03 000CE    218FFFFF A            CI,R      -UN
       436   03 000CF    693000D5              BNE       ECRIT%CARTE%END
       437   03 000D0    3280004C 02           LW,R     RES%LINE%COUNT
       438   03 000D1    3210004F 02           LW,X      UPDATE%LINE%COUNT
       439   03 000D2    55100008 A            STH,X     R
       440   03 000D3    958C0048 02           STD,R     *ADRTRI,K
       441   03 000D4    680000D8              B         TRI
       442         03 000D5           ECRIT%CARTE%END     EQU       %
       443   03 000D5    22804EC5 A            LI,R     '+E'              WRITE EOF
       444   03 000D6    55800026 02           STH,R    BUFSI             SENTINEL.
       445   03 000D7    6AE0012D              BAL,RETOUR WRITE%X2
       446                            *
       447                            *  SORT CONTROL RECORDS USING 1ST HALF-WORD AS KEY.
       448         03 000D8           TRI      EQU       %
       449   03 000D8    22A00000 A            LI,PTDEB  ZERO
       450   03 000D9    32B00004 A            LW,PTFIN  I
       451   03 000DA    3540004B 02           STW,I     SAVE%I   SAUVE I POUR FIN ECRIT X2KF
       452                            *  1ST PASS IS FORWARD THRU CONTROL RECORDS.
       453                            *  PUT CONTROL RECORD WITH HIGHEST KEY AT END OF TABLE.
       454   03 000DB    223000EC              LI,DEP    CROISSANT
       455   03 000DC                 PASSE    RES       0
       456   03 000DC    31A0000B A            CW,PTDEB  PTFIN
       457   03 000DD    6810010C              BGE       FIN%TRI
       458   03 000DE    68060000 A            B         %UN,DEP
       459         03 000DF           UNSUITE  EQU       %
       460   03 000DF    22F00000 A            LI,FLAG   ZERO
       461   03 000E0    B2420048 02           LW,I      *ADRTRI,PTR1
       462   03 000E1    B2800004 A            LW,R      *I
       463   03 000E2                 %BOUCLE  RES       0
       464   03 000E2    B2740048 02           LW,J      *ADRTRI,PTR2
       465   03 000E3    B1800007 A            CW,R      *J
       466   03 000E4    68060004 A            B         %TROIS,DEP
       467                            * THE COMPARED RECORDS ARE IN SEQUENCE.
       468         03 000E5           TROIS%SUITE         EQU       %
       469   03 000E5    B5420048 02           STW,I     *ADRTRI,PTR1
       470   03 000E6    32400007 A            LW,I      J
       471   03 000E7    B2800007 A            LW,R      *J
       472   03 000E8    68060006 A            B         %QUATRE,DEP
       473                            *  THE COMPARED RECORDS ARE NOT IN SEQUENCE.
       474   03 000E9    B5720048 02  INVERS   STW,J     *ADRTRI,PTR1
       475   03 000EA    22F00001 A            LI,FLAG   UN
       476   03 000EB    68060006 A            B         %QUATRE,DEP
       477   03 000EC                 CROISSANT           RES       0
       478         00000000           %UN      EQU       %-CROISSANT
       479   03 000EC    3210000A A            LW,PTR1   PTDEB
       480   03 000ED    32200001 A            LW,PTR2   PTR1
       481   03 000EE    20200004 A            AI,PTR2   PAS
       482   03 000EF    680000DF              B         UNSUITE
       483         00000004           %TROIS   EQU       %-CROISSANT
       484   03 000F0    692000E9              BG        INVERS
       485   03 000F1    680000E5              B         TROIS%SUITE
       486         00000006           %QUATRE  EQU       %-CROISSANT
       487   03 000F2    20100004 A            AI,PTR1   PAS
       488   03 000F3    20200004 A            AI,PTR2   PAS
       489   03 000F4    3110000B A            CW,PTR1   PTFIN
       490   03 000F5    691000E2              BL        %BOUCLE
       491                            *  END OF FORWARD PASS. STORE POINTER OF LARGEST KEY.
       492                            *  IF (FLAG) = ZERO, SORT IS FINISHED.
       493   03 000F6    B5420048 02           STW,I     *ADRTRI,PTR1
       494   03 000F7    21F00000 A            CI,FLAG   ZERO
       495   03 000F8    6830010C              BE         FIN%TRI
       496                            *  THE NEXT PASS GOES BACKWARD THRU THE TABLE.
       497   03 000F9    20BFFFFC A            AI,PTFIN  -PAS
       498   03 000FA    223000FC              LI,DEP    DECROIS
       499   03 000FB    680000DC              B         PASSE
       500                            *
       501   03 000FC                 DECROIS  RES       ZERO
       502                            *  %UN FOR BACKWARD PASS.
       503   03 000FC    3210000B A            LW,PTR1   PTFIN
       504   03 000FD    32200001 A            LW,PTR2   PTR1
       505   03 000FE    202FFFFC A            AI,PTR2   -PAS
       506   03 000FF    680000DF              B         UNSUITE
       507                            *  %TROIS FOR BACKWARD PASS.
       508   03 00100    691000E9              BL        INVERS
       509   03 00101    680000E5              B         TROIS%SUITE
       510                            *  %QUATRE FOR BACKWARD PASS.
       511   03 00102    201FFFFC A            AI,PTR1   -PAS
       512   03 00103    202FFFFC A            AI,PTR2   -PAS
       513   03 00104    3110000A A            CW,PTR1   PTDEB
       514   03 00105    692000E2              BG        %BOUCLE
       515                            *  END OF BACKWARD PASS.
       516   03 00106    B5420048 02           STW,I     *ADRTRI,PTR1
       517   03 00107    21F00000 A            CI,FLAG   ZERO
       518   03 00108    6830010C              BE        FIN%TRI
       519                            *  THE NEXT PASS IS FORWARD.
       520   03 00109    20A00004 A            AI,PTDEB  PAS
       521   03 0010A    223000EC              LI,DEP    CROISSANT
       522   03 0010B    680000DC              B         PASSE
       523                            *
       524                            *  WRITE SORTED CONTROL RECORDS ON M:X4 (OR F:X2KF)
       525                            *
       526   03 0010C                 FIN%TRI  RES      0
       527   03 0010C    22100000 A            LI,PTR1  0
       528   03 0010D    22300001 A            LI,DEP   1
       529   03 0010E    22200004 A            LI,PTR2  4
       530   03 0010F                 FIN%T1   RES      0
       531   03 0010F    B2420048 02           LW,I     *ADRTRI,PTR1      GET ADDRESS OF 1ST CONTROL RECORD
       532   03 00110    02200030 A            LCI      +3                MOVE RECORD
       533   03 00111    AA800004 A            LM,R     *I                  TO
       534   03 00112    2B800022 02           STM,R    ZONECI            PRINT AREA
       535   03 00113    3120004B 02           CW,PTR2  SAVE%I            TEST FOR LAST CONTROL RECORD
       536   03 00114    6820011C              BLE      FIN%T2            NO.
       537   03 00115    6AD0012B              BAL,RETRO WRITEX4          WRITE THE LAST CONTROL RECORD
       538         00000000                    DO       SYS=RBM
       539                        *S*          M:WEOF   F:X2KF
       540                                     FIN
       541                            *
       542   03 00116    04100004 05           M:REW    F:X2KF
             05 00004    01000000 X
       543   03 00117    04100005 05           M:WEOF   F:X2
             05 00005    02000000 X
       544   03 00118    04100006 05           M:REW    F:X2
             05 00006    01000000 X
       545   03 00119                 EXITINIT RES      0
       546   03 00119    22800000 A            LI,R     0
       547   03 0011A    35800000 X            STW,R    PGLINES
       548   03 0011B    E8000000 X            B        *ROOTRTN          RETURN TO THE ROOT
       549   03 0011C                 FIN%T2   RES      0
       550   03 0011C    B2740048 02           LW,J     *ADRTRI,PTR2      ADDRESS OF NEXT CONTROL RECORD
       551   03 0011D    53060022 02           MTH,0    ZONECI,DEP        WAS 'K' PRESENT ON THE PLUS CARD
       552   03 0011E    69300122              BNEZ     FIN%T3            BRANCH IF YES
       553   03 0011F    B2800007 A            LW,R     *J                COMPARE J AND K
       554   03 00120    31800022 02           CW,R     ZONECI
       555   03 00121    68000124              B        FIN%T4
       556   03 00122                 FIN%T3   RES      0
       557   03 00122    D2800007 A            LH,R     *J                COMPARE K(2) WITH J(1)
       558   03 00123    51860022 02           CH,R     ZONECI,DEP
       559   03 00124                 FIN%T4   RES      0
       560   03 00124    69200127              BG       FIN%T5            BRANCH IF OKAY
       561   03 00125    6AD001EE              BAL,RETRO OVERLAP%ERR
       562   03 00126    68000128              B        FIN%T6
       563   03 00127                 FIN%T5   RES      0
       564   03 00127    6AD0012B              BAL,RETRO WRITEX4          WRITE THIS CONTROL RECORD
       565   03 00128                 FIN%T6   RES      0
       566   03 00128    20100004 A            AI,PTR1  4                 BUMP POINTER ONE
       567   03 00129    20200004 A            AI,PTR2  4                 BUMP POINTER TWO
       568   03 0012A    6800010F              B        FIN%T1
       569                            *
       570                            *  WRITE A 12-BYTE CONTROL RECORD ON M:X4 (OR F:X2KF)
       571                            *        THE RECORD IS IN ZONECI
       572   03 0012B                 WRITEX4  RES      0
       573                            *
       574                                     M:WRITE  F:X2KF,(BUF,ZONECI),(SIZE,12),(WAIT),;
       575   03 0012B    04100007 05           (ABN,ABN%%X4),(ERR,ERR%%X4)
             05 00007    11000000 N
                         F0000010
             05 00009    00000000 X
             05 0000A    00000000 X
             05 0000B    00000022 02
             05 0000C    0000000C A
       576   03 0012C    E800000D A            B        *RETRO
       577                            *
       578         03 0012D           WRITE%X2 EQU       %
       579                            *
       580                                     M:WRITE  F:X2,(BUF,BUFSI),(SIZE,80),(WAIT),;
       581   03 0012D    0410000D 05                    (ABN,ABN%%X2),(ERR,ERR%%X2)
             05 0000D    11000000 N
                         F0000010
             05 0000F    00000000 X
             05 00010    00000000 X
             05 00011    00000026 02
             05 00012    00000050 A
       582   03 0012E    3310004C 02           MTW,+1   RES%LINE%COUNT
       583   03 0012F    E800000E A            B         *RETOUR
       584                            *
       585         03 00130           LECTURE%MAJ         EQU       %
       586                            *  CHECK LENGTH OF INPUT RECORD.
       587                                     M:READ   M:SI,(BUF,BUFSI),(SIZE,120-40*(SYS=RBM)),;
       588   03 00130    04100013 05           (ERR,ERR%%SI),(ABN,ABN%%SI)
             05 00013    10000000 N
                         F0000000
             05 00015    00000000 X
             05 00016    00000152 03
             05 00017    00000026 02
             05 00018    00000078 A
       589   03 00131                 LECT%MAJ%1  RES   0
       590   03 00131    3310004A 02           MTW,+1   PRINT%FLAG        SET FLAG TO 'LINE-NOT-PRINTED'
       591   03 00132    72100026 02           LB,1     BUFSI
       592   03 00133    4B100252              AND,1    =X'DB'            TEST FOR A BINARY
       593   03 00134    21100018 A            CI,1     X'18'               OR COMPRESSED
       594   03 00135    69300138              BNE      LECT%MAJ%2          RECORD
       595   03 00136    22000019 A            ABORT    ABORT25           UPDATE FILE IN COMPRESSED FORMAT
             03 00137    68000000 X
       596   03 00138                 LECT%MAJ%2  RES   0
       597   03 00138    22100008 A            LI,1     8                 GET
       598   03 00139    D2120000 X            LH,1     *ADRDCB,1         RECORD
       599   03 0013A    2510007F A            SLS,1    -1                LENGTH
       600   03 0013B    201FFFB0 A            AI,1     -MAXSI
       601   03 0013C    68100146              BGEZ     CHECK%FOR%PLUS%END
       602   03 0013D    22900040 A            LI,R1    X'40'             BLANK
       603   03 0013E    201FFFFF A            AI,1     -1                LAST
       604   03 0013F    7282003A 02           LB,R     BUFSIEND,1        CHARACTER.
       605   03 00140    21800015 A            CI,R     X'15'             IS IT LF?
       606   03 00141    68300144              BE       ZAP%LF%CR         BRANCH IF YES.
       607   03 00142    2180000D A            CI,R     X'0D'             IS IT CR?
       608   03 00143    69300145              BNE      SUITE%ZAP         BRANCH IF NO.
       609         03 00144           ZAP%LF%CR                           EQU %
       610   03 00144    7592003A 02           STB,R1   BUFSIEND,1        CR WITH BLANK
       611         03 00145           SUITE%ZAP                           EQU %
       612   03 00145    65100144              BIR,1    ZAP%LF%CR         BLANK BALANCE OF RECORD
       613         03 00146           CHECK%FOR%PLUS%END                  EQU %
       614   03 00146    32800026 02           LW,R     BUFSI             IS CARD A
       615   03 00147    31800253              CW,R     ='+END'           '+END'?
       616   03 00148    6930014B              BNE      CK%PLUS%AST
       617   03 00149    6AD00185              BAL,RETRO PRINT%UPDATE1
       618   03 0014A    680000CC              B        FIN1%UPDATE
       619   03 0014B                 CK%PLUS%AST  RES  0
       620   03 0014B    25800070 A            SLS,R    -16
       621   03 0014C    21804E5C A            CI,R     '+*'              TEST FOR AN UPDATE COMMENT
       622   03 0014D    E930000E A            BNE      *RETOUR           NO.  EXIT
       623   03 0014E    35E00049 02           STW,RETOUR LEC%TEMP        SAVE RETURN ADDRESS
       624   03 0014F    6AD00185              BAL,RETRO PRINT%UPDATE1
       625   03 00150    32E00049 02           LW,RETOUR  LEC%TEMP        RESTORE RETURN ADDRESS
       626   03 00151    68000130              B        LECTURE%MAJ
       627   03 00152                 ABN%%SI  RES      0
       628   03 00152    7210000A A            LB,X     SR3
       629   03 00153    21100006 A            CI,X     6                 TEST FOR EOF
       630   03 00154    6830015B              BE       ABNSI5            YES
       631   03 00155    21100005 A            CI,X     5                 TEST FOR EOD
       632   03 00156    69300000 X            BNE      ERR%%SI           NO. IT'S AN ERROR
       633   03 00157    33000000 X            MTW,+0   EODCNT            FIRST EOD
       634   03 00158    6930015B              BNEZ     ABNSI5            NO
       635   03 00159    33100000 X            MTW,+1   EODCNT            BUMP EOD COUNT
       636   03 0015A    68000130              B        LECTURE%MAJ       GO RE-READ
       637   03 0015B                 ABNSI5   RES      0
       638   03 0015B    3300004F 02           MTW,+0   UPDATE%LINE%COUNT TEST FOR FIRST READ
       639   03 0015C    69300161              BNEZ     ABNSI10           NOT FIRST
       640   03 0015D    33000000 X            MTW,+0   BA%FLAG           BATCH ASSEMBLIES
       641   03 0015E    69300000 X            BNEZ     ROOTEXIT          YES.  NORMAL TERMINATION
       642   03 0015F    2200001B A            ABORT    ABORT27           EXPECTED SI MISSING
             03 00160    68000000 X
       643   03 00161                 ABNSI10  RES      0
       644   03 00161    221FFFF5 A            LI,1     -ENDMSIZE         - SIZE OF 'END' MESSAGE
       645   03 00162    32A20173              LW,SR3   ENDMSG+ENDMSIZE,1 MOVE THE 'END' MESSAGE
       646   03 00163    35A20031 02           STW,SR3  BUFSI+ENDMSIZE,1    TO BUFSI
       647   03 00164    65100162              BIR,1    %-2
       648   03 00165    221FFFDC A            LI,1     ENDMSIZE*4-80     - BYTES REMAINING IN BUFSI
       649   03 00166    22900040 A            LI,R1    X'40'
       650   03 00167    68000144              B        ZAP%LF%CR
       651   03 00168    4EC5D5C4 A   ENDMSG   TEXT     '+END  --  SUPPLIED AS THE RESULT OF AN <EOD>'
             03 00169    40406060 A
             03 0016A    4040E2E4 A
             03 0016B    D7D7D3C9 A
             03 0016C    C5C440C1 A
             03 0016D    E240E3C8 A
             03 0016E    C540D9C5 A
             03 0016F    E2E4D3E3 A
             03 00170    40D6C640 A
             03 00171    C1D5404C A
             03 00172    C5D6C46E A
       652         0000000B           ENDMSIZE EQU      %-ENDMSG
1
       654                            *  CONVERT TO BINARY THE LINE NUMBERS FROM UPDATE CONTROL
       655                            *  CARDS (RESULT IN 'VAL' REG) & LEAVE THE FOLLOWING
       656                            *  CHARACTER IN REG 'R'.
       657         03 00173           CONVERT%DEC%CONSTANT EQU      %
       658   03 00173    22B00000 A            LI,VAL    ZERO
       659         03 00174           OCTET%SUIVANT     EQU  %
       660   03 00174    20200001 A            AI,X1    UN
       661   03 00175    72840026 02           LB,R     BUFSI,X1
       662   03 00176    19800002              CLM,R     LIMITE%NUMERIQUE
       663   03 00177    E990000E A            BCS,9     *RETOUR  RETOUR SI OCTET NON NUMERIQUE
       664   03 00178    23B0000A A            MI,VAL    DIX
       665   03 00179    208FFF10 A            AI,R      -240
       666   03 0017A    30B00008 A            AW,VAL    R
       667   03 0017B    68000174              B         OCTET%SUIVANT
       668                            *
       669                            *  CONVERT AN UPDATE LINE NUMBER
       670                            *  TO EBCDIC & PUT IT IN THE OUTPUT BUFFER 'BUF%PRINT'.
       671         03 0017C           CONVERT%BIN%DEC     EQU       %
       672   03 0017C    22100008 A            LI,X      HUIT
       673   03 0017D                 CONVERT%ERROR  RES  0
       674   03 0017D    201FFFFF A            AI,X     -UN
       675   03 0017E    22A00000 A            LI,VAL1   ZERO
       676   03 0017F    36A0002A              DW,VAL1   DATA%DIX
       677   03 00180    20A000F0 A            AI,VAL1   X'F0'
       678   03 00181    75A20050 02           STB,VAL1  BUF%PRINT,X
       679   03 00182    21B00000 A            CI,VAL   0
       680   03 00183    6930017D              BNEZ     CONVERT%ERROR
       681   03 00184    E800000E A            B        *RETOUR
1
       683         03 00185           PRINT%UPDATE1       EQU       %
       684   03 00185    32800000 X            LW,R     LU%FLAG
       685   03 00186    693001A0              BNEZ     SP%PRINT
       686   03 00187    3310004F 02           MTW,+1   UPDATE%LINE%COUNT
       687   03 00188    E800000D A            B        *RETRO
       688                            *
       689                            *    ROUTINE UPDATE%SYNTAX%ERROR
       690                            *
       691         03 00189           UPDATE%SYNTAX%ERROR EQU       %
       692   03 00189    33100000 X            MTW,+1   UPDT%ERROR
       693   03 0018A    022000F0 A            LCI      +15
       694   03 0018B    2B100000 X            STM,1    SAVAREA           SAVE REGS
       695   03 0018C    3310004B 02           MTW,+1   SAVE%I            SET 'SKIP' FLAG
       696   03 0018D    6AD001A0              BAL,RETRO SP%PRINT
       697   03 0018E    6AE00210              BAL,RETOUR SP%BLANC
       698                            *  (RESTORE X1 CONTENTS.)
       699   03 0018F    32200001 N            LW,X1    SAVAREA+X1-1
       700   03 00190    20200024 A            AI,X1    36
       701                            *  PRINT A COLON UNDER THE CHARACTER IN ERROR.
       702   03 00191    2280007A A            LI,R      X'7A'     CARACTERE ':'
       703   03 00192    75840050 02           STB,R     BUF%PRINT,X1
       704   03 00193    6AE00202              BAL,RETOUR ERR%PRINT       OUTPUT ON 'DO' & 'LO', IF REQ'D
       705   03 00194    22500013              LI,NB    ER4               ADDRESS OF ERROR MESSAGE
       706   03 00195    6AD000B5              BAL,RETRO MOVE%MSG         PRINT THE MESSAGE
       707   03 00196    68000198              B        SYN%2
       708   03 00197                 SYN%1    RES      0
       709   03 00197    6AD001A0              BAL,RETRO SP%PRINT
       710   03 00198                 SYN%2    RES      0
       711   03 00198    6AE00130              BAL,RETOUR LECTURE%MAJ     FIND THE NEXT '+' CARD
       712   03 00199    72800026 02           LB,R     BUFSI
       713   03 0019A    2180004E A            CI,R     '+'
       714   03 0019B    69300197              BNE      SYN%1
       715   03 0019C    33F0004B 02           MTW,-1   SAVE%I            RESET 'SKIP' FLAG
       716   03 0019D    022000F0 A            LCI      +15
       717   03 0019E    2A100000 X            LM,1     SAVAREA
       718   03 0019F    68000070              B        APPEL%CONVERT
       719                            *
       720                            *
       721                            *  PRINT THE UPDATE CARD IN ERROR.
       722                            *
       723         03 001A0           SP%PRINT EQU       %
       724   03 001A0    35D00022 02           STW,RETRO ZONECI
       725   03 001A1    3310004F 02           MTW,+1   UPDATE%LINE%COUNT
       726   03 001A2    22800000 A            LI,R     0
       727   03 001A3    4680004A 02           XW,R     PRINT%FLAG        SET TO 'LINE-PRINTED'
       728   03 001A4    E8300022 02           BEZ      *ZONECI
       729   03 001A5    6AE00210              BAL,RETOUR  SP%BLANC
       730   03 001A6    32B0004F 02           LW,VAL   UPDATE%LINE%COUNT
       731   03 001A7    6AE0017C              BAL,RETOUR CONVERT%BIN%DEC
       732   03 001A8    221FFFEC A            LI,X     -20
       733   03 001A9                 SP%PRINT1  RES    0
       734   03 001A9    3282003A 02           LW,R     BUFSIEND,X
       735   03 001AA    3582006D 02           STW,R    BUF%PRINT+29,X
       736   03 001AB    651001A9              BIR,X    SP%PRINT1
       737         00000001                    DO       SYS=BPMUTS
       738                            *
       739                            *  INSERT THE KEY IF SI IS FROM A KEYED FILE
       740                            *
       741   03 001AC    32100005 N            LW,X     M:SI+5            FILE ORGANIZATION
       742   03 001AD    4B100254              AND,X    =X'F0'
       743   03 001AE    21100020 A            CI,X     X'20'             TEST FOR ORG=KEYED
       744   03 001AF    693001BE              BNE      SP%PRINT4         NO
       745   03 001B0    B2B0000A N            LW,VAL   *M:SI+10          GET 3-BYTE KEY
       746   03 001B1    4BB00255              AND,VAL  =X'FFFFFF'        CLEAN IT
       747   03 001B2    22100021 A            LI,X     33                RIGHT-MOST COLUMN FOR KEY
       748   03 001B3                 SP%PRINT5   RES   0
       749   03 001B3    22A00000 A            LI,VAL1  0
       750   03 001B4    36A0002A              DW,VAL1  DATA%DIX          CONVERT NEXT DIGIT
       751   03 001B5    20A000F0 A            AI,VAL1  X'F0'
       752   03 001B6                 SP%PRINT6   RES   0
       753   03 001B6    75A20050 02           STB,VAL1 BUF%PRINT,X
       754   03 001B7    201FFFFF A            AI,X     -1
       755   03 001B8    22A0004B A            LI,VAL1  '.'
       756   03 001B9    2110001E A            CI,X     30                IS THIS THE COLUMN FOR DEC. PT.
       757   03 001BA    683001B6              BE       SP%PRINT6         YES
       758   03 001BB    692001B3              BG       SP%PRINT5           NOT YET
       759   03 001BC    21B00000 A            CI,VAL   0                 TERMINATE AFTER LAST DIGIT
       760   03 001BD    693001B3              BNE      SP%PRINT5         MORE DIGITS
       761   03 001BE                 SP%PRINT4   RES   0
       762                                     FIN
       763   03 001BE    3300004B 02           MTW,0    SAVE%I
       764   03 001BF    683001C6              BEZ      SP%PRINT2
       765   03 001C0    221FFFFC A            LI,X     -4
       766   03 001C1                 SP%PRINT3   RES   0
       767   03 001C1    328201CC              LW,R     IGNORE+4,X        MOVE IGNORED MESSAGE TO BUF%PRINT
       768   03 001C2    35820056 02           STW,R    BUF%PRINT+6,X
       769   03 001C3    651001C1              BIR,X    SP%PRINT3
       770   03 001C4    6AE00202              BAL,RETOUR ERR%PRINT       OUTPUT ON 'DO' & 'LO', IF REQ'D
       771   03 001C5    E8000022 02           B        *ZONECI
       772   03 001C6                 SP%PRINT2   RES   0
       773   03 001C6    6AE00208              BAL,RETOUR PRINT
       774   03 001C7    E8000022 02           B        *ZONECI           EXIT
       775   03 001C8    405C5C5C A   IGNORE   TEXT     ' *** IGNORED ***'
             03 001C9    40C9C7D5 A
             03 001CA    D6D9C5C4 A
             03 001CB    405C5C5C A
1
       777         03 001CC           SP%OVERLAP          EQU       %
       778   03 001CC    6AE00210              BAL,RETOUR SP%BLANC
       779   03 001CD    52B00022 02           LH,VAL    ZONECI
       780   03 001CE    22100001 A            LI,X      UN
       781   03 001CF    52A20022 02           LH,VAL1   ZONECI,X
       782   03 001D0    52800023 02           LH,R      ZONECI+UN
       783   03 001D1    3580004C 02           STW,R     RES%LINE%COUNT
       784   03 001D2    21A00000 A            CI,VAL1   ZERO
       785   03 001D3    693001D7              BNE       CARTE%2
       786                            *  RE-BUILD +J-TYPE CONTROL CARDS.
       787   03 001D4    35B0004D 02           STW,VAL   LAST%UPDATE
       788   03 001D5    6AC001EA              BAL,LNKR  CARTE%J
       789   03 001D6    E800000F A            B         *RETURN
       790         03 001D7           CARTE%2  EQU       %
       791   03 001D7    35B0004E 02           STW,VAL   NEXT%UPDATE
       792   03 001D8    35A0004D 02           STW,VAL1  LAST%UPDATE
       793   03 001D9    6AC001DB              BAL,LNKR  CARTE%JK
       794   03 001DA    E800000F A            B         *RETURN
       795                            *
       796                            *  RE-BUILD AND PRINT +J,K-TYPE CONTROL CARDS.
       797         03 001DB           CARTE%JK EQU       %
       798   03 001DB    22100032 A            LI,X     50
       799   03 001DC    32B0004D 02           LW,VAL   LAST%UPDATE
       800   03 001DD    6AE0017D              BAL,RETOUR CONVERT%ERROR
       801   03 001DE    2280006B A            LI,R      X'6B'       'VIRGULE'
       802   03 001DF    201FFFFF A            AI,X      -UN
       803   03 001E0    75820050 02           STB,R    BUF%PRINT,X
       804   03 001E1    32B0004E 02           LW,VAL   NEXT%UPDATE
       805         03 001E2           SUITE%ERROR         EQU       %
       806   03 001E2    6AE0017D              BAL,RETOUR CONVERT%ERROR
       807   03 001E3    2280004E A            LI,R      X'4E'      CARACTERE 'PLUS'
       808   03 001E4    201FFFFF A            AI,X      -UN
       809   03 001E5    75820050 02           STB,R    BUF%PRINT,X
       810                            *  CONVERT CARD NUMBER.
       811   03 001E6    32B0004C 02           LW,VAL   RES%LINE%COUNT
       812   03 001E7    6AE0017C              BAL,RETOUR CONVERT%BIN%DEC
       813   03 001E8    6AE00202              BAL,RETOUR ERR%PRINT       OUTPUT ON 'DO' & 'LO', IF REQ'D
       814   03 001E9    E800000C A            B         *LNKR
       815                            *
       816                            *  RE-BUILD +J CARD.
       817         03 001EA           CARTE%J  EQU       %
       818   03 001EA    33F0004D 02           MTW,-UN   LAST%UPDATE
       819   03 001EB    32B0004D 02           LW,VAL   LAST%UPDATE
       820   03 001EC    22100032 A            LI,X     50
       821   03 001ED    680001E2              B         SUITE%ERROR
       822                            *
1
       824   03 001EE                 OVERLAP%ERR  RES  0
       825   03 001EE    33100000 X            MTW,+1   UPDT%ERROR
       826   03 001EF    022000F0 A            LCI      +15
       827   03 001F0    2B100000 X            STM,1    SAVAREA
       828   03 001F1    31400007 A            CW,I     J                 SET TO IGNORE THE SECOND
       829   03 001F2    692001F5              BG       OVRLAP1             UPDATE RECORD
       830   03 001F3    B5440048 02           STW,I    *ADRTRI,PTR2      REPLACE ADDRESS POINTER
       831   03 001F4    46400007 A            XW,I     J
       832   03 001F5                 OVRLAP1  RES      0
       833   03 001F5    02200030 A            LCI       TROIS
       834   03 001F6    AA800007 A            LM,R     *J
       835   03 001F7    2B800022 02           STM,R     ZONECI
       836   03 001F8    6AF001CC              BAL,RETURN SP%OVERLAP
       837   03 001F9    02200030 A            LCI       TROIS
       838   03 001FA    AA800004 A            LM,R     *I
       839   03 001FB    2B800022 02           STM,R     ZONECI
       840   03 001FC    6AF001CC              BAL,RETURN SP%OVERLAP
       841   03 001FD    22500004              LI,NB    ER3               ADDRESS OF ERROR MESSAGE
       842   03 001FE    6AD000B5              BAL,RETRO MOVE%MSG         PRINT THE MESSAGE
       843   03 001FF    022000F0 A            LCI      +15
       844   03 00200    2A100000 X            LM,1     SAVAREA
       845   03 00201    E800000D A            B        *RETRO
       846                            *
       847                            *  OUTPUT AN ERROR LINE ON 'DO', AND ON 'LO' IF REQUIRED
       848                            *
       849   03 00202                 ERR%PRINT   RES   0
       850   03 00202    22800050 02           LI,IOADD BUF%PRINT
       851   03 00203    22900078 A            LI,IOSIZE 120
       852   03 00204    6AA00000 X            BAL,IORL WRITEDO
       853   03 00205    32800000 X            LW,R     LO%FLAG           OUTPUT ON 'LO' IF EITHER
       854   03 00206    49800000 X            OR,R     LU%FLAG             LU OR LO IS REQUESTED
       855   03 00207    E830000E A            BEZ      *RETOUR
       856                            *
       857                            *  PRINT THE LINE ON 'LO'
       858                            *
       859         03 00208           PRINT    EQU       %
       860   03 00208    02200040 A            LCI      +4
       861   03 00209    2B400044 02           STM,I    SYS%REGS
       862   03 0020A    22800050 02           LI,IOADD  BUF%PRINT
       863   03 0020B    22900078 A            LI,IOSIZE  120
       864   03 0020C    6AA00000 X            BAL,IORL WRITELO
       865   03 0020D    02200040 A            LCI      +4
       866   03 0020E    2A400044 02           LM,I     SYS%REGS
       867   03 0020F    E800000E A            B         *RETOUR
       868                            *
       869                            *  CLEAR 'BUF%PRINT' TO BLANKS.
       870         03 00210           SP%BLANC EQU       %
       871   03 00210    32800000 X            LW,R      BLANC
       872   03 00211    2210001E A            LI,X     30
       873   03 00212    3582004F 02           STW,R     BUF%PRINT-UN,X
       874   03 00213    64100212              BDR,X     %-UN
       875   03 00214    E800000E A            B         *RETOUR
1
       877                            *
       878                            *   C O P Y % C N
       879                            *        COPY CN CONTROLS FROM M:C, WRITING THEM TO LO & X1.
       880                            *
       881                                     LOCAL    %10,%20,%30,%40
       882                            *
       883   03 00215                 COPY%CN  RES      0
       884   03 00215    022000F0 A            LCI      15
       885   03 00216    2B100000 X            STM,1    SAVAREA           SAVE REGISTERS 1 - 15
       886   03 00217    22400002 A            LI,XT    2
       887   03 00218    55400000 X            STH,XT   DC%FLAG           TELL ENCODER TO READ X1, NOT C
       888                            *
       889         00000000                    DO       SYS=RBM
       890                        *S*          M:DEVICE F:X1,;            CHANGE TEMPORARILY TO NEW FORMAT
       891                        *S*                   (SIZE,80),;
       892                        *S*                   (ORG,BLOCK)
       893                                     FIN
       894                            *
       895   03 00219    04100019 05           M:REW F:X1
             05 00019    01000000 X
       896   03 0021A                 %10      RES      0
       897                                     M:READ   M:C,;             NEXT CN CONTROL
       898                                              (ERR,ERR%%C),;
       899                                              (ABN,ABN%%C),;
       900                                              (BUF,BUFSI),;
       901                                              (SIZE,120-40*(SYS=RBM)),;
       902   03 0021A    0410001A 05                    (WAIT)
             05 0001A    10000000 N
                         F0000010
             05 0001C    00000000 X
             05 0001D    0000024B 03
             05 0001E    00000026 02
             05 0001F    00000078 A
       903                            *
       904                            *   FILL RECORD WITH BLANKS, STRIPPING OFF A POSSIBLE
       905                            *        TRAILING CR OR LF.
       906                            *
       907   03 0021B    22400008 A            LI,XT    8
       908   03 0021C    52480000 X            LH,XT    M:C,XT
       909   03 0021D    2540007F A            SLS,XT   -1                ARS
       910   03 0021E    204FFFB0 A            AI,XT    -MAXSI
       911         001F0000                    IF,L                       DOIF PADDING NEEDED
             03 0021F    68100229
       912   03 00220    22800040 A            LI,T1    ' '               FILL CHARACTER
       913   03 00221    204FFFFF A            AI,XT    -1
       914   03 00222    7258003A 02           LB,XT1   BUFSIEND,XT
       915         001F0100                    IF,NE    LF,XT1
             03 00223    21500015 A
             03 00224    68300227
       916   03 00225    2150000D A            CV,XT1   CR
       917   03 00226    69300000 F            BNE      %30               SKIP INITIAL REPLACEMENT
       918                            *
       919         00F10100                    FI
       920   03 00227                 %20      RES      0
       921   03 00227    7588003A 02           STB,T1   BUFSIEND,XT
       922   03 00228                 %30      RES      0
       923   03 00228    65400227              BIR,XT   %20
       924                            *
       925         00F10000                    FI
       926                            *   NOW LOG THE RECORD READ, UNLESS WE WOULD BE ECHOING
       927                            *        IT BACK TO THE SAME DEVICE THAT IT CAME FROM.
       928                            *
       929   03 00229    22400001 A            LI,XT    1
       930   03 0022A    73080000 X            MTB,0    CORRESWD,XT       TEST LO=C FLAG
       931         001F0000                    IF,EZ
             03 0022B    69300236
       932   03 0022C    022000A0 A            LCI      10
       933   03 0022D    2A100026 02           LM,1     BUFSI
       934   03 0022E    2B100051 02           STM,1    BUF%PRINT+1
       935   03 0022F    2A100030 02           LM,1     BUFSI+10
       936   03 00230    2B10005B 02           STM,1    BUF%PRINT+11
       937   03 00231    32400000 X            LW,XT    BLANC
       938   03 00232    35400050 02           STW,XT   BUF%PRINT
       939   03 00233    22800050 02           LI,IOADD BUF%PRINT
       940   03 00234    22900054 A            LI,IOSIZE   84
       941   03 00235    6AA00000 X            BAL,IORL WRITELO
       942         00F10000                    FI
       943   03 00236                 %40      RES      0
       944                                     M:WRITE  F:X1,;            AND SAVE IT
       945                                              (ERR,ERR%%X1),;
       946                                              (ABN,ABN%%X1),;
       947                                              (BUF,BUFSI),;
       948                                              (SIZE,80),;
       949   03 00236    04100020 05                    (WAIT)
             05 00020    11000000 N
                         F0000010
             05 00022    00000000 X
             05 00023    00000000 X
             05 00024    00000026 02
             05 00025    00000050 A
       950   03 00237    72400026 02           LB,XT    BUFSI
       951   03 00238    2140004B A            CV,XT    '.'               CHECK FOR CN CONTROL COMMAND
       952         001F0000                    IF,EQ
             03 00239    6930023E
       953   03 0023A    32400026 02           LW,XT    BUFSI
       954   03 0023B    31400256              CV,XT    '.END'
       955   03 0023C    6930021A              BNE      %10               WAS '.' COMMAND, BUT NOT END
       956                            *
       957         000E0000                    ELS
             03 0023D    68000247
       958   03 0023E    2250001F              LI,NB    CNERR1
       959   03 0023F    6AD000B5              BAL,RETRO   MOVE%MSG       DIAGNOSE
       960   03 00240    229FFFFF A            LI,IOSIZE   -1
       961   03 00241    6AA00000 X            BAL,IORL POSITIONX1        BACK UP OVER BAD RECORD
       962   03 00242    32400256              LV,XT    '.END'            FAKE GOOD END
       963   03 00243    35400026 02           STW,XT   BUFSI
       964   03 00244    32400257              LV,XT    '    '
       965   03 00245    35400027 02           STW,XT   BUFSI+1
       966   03 00246    68000236              B        %40
       967                            *
       968         00F10000                    FI
       969   03 00247    6AA00000 X            BAL,IORL REWX1
       970   03 00248    022000F0 A            LCI      15
       971   03 00249    2A100000 X            LM,1     SAVAREA           RESTORE REGS
       972   03 0024A    E800000E A            EXIT     RETOUR
       973                            *
       974                            *   A B N % % C
       975                            *
       976   03 0024B                 ABN%%C   RES      0
       977   03 0024B    7240000A A            LB,XT    SR3
       978   03 0024C    19400000              CLM,XT   FIVE%SIX          CHECK FOR EOF OR EOT ON C
       979   03 0024D    69900000 X            BOL      ERR%%C            OTHER ERROR - STD. HANDLING
       980                            *
       981   03 0024E    6AA00000 X            BAL,IORL REWX1
       982   03 0024F    022000F0 A            LCI      15
       983   03 00250    2A100000 X            LM,1     SAVAREA           RESTORE REGS
       984   03 00251    E800000E A            EXIT     RETOUR
       985                            *
       986                                     END
             03 00252    000000DB A
             03 00253    4EC5D5C4 A
             03 00254    000000F0 A
             03 00255    00FFFFFF A
             03 00256    4BC5D5C4 A
             03 00257    40404040 A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 0006E   PT 0     03 00258   PT 1     04 00000   PT 0
                             05 00026   PT 1
1
  *    SYMBOL VALUES
           ABN%%C/03 0024B          ABN%%SI/03 00152         ABNSI10/03 00161         ABNSI5/03 0015B
           ABORT25/00000019         ABORT27/0000001B         ADRTRI/02 00048          APPEL%CONVERT/03 00070
           AR/00000000              AVINDEX/03 000C6         BPMUTS/00000002          BUF%PRINT/02 00050
           BUFSI/02 00026           BUFSIEND/02 0003A        BY%FIRST/03 00067        CARTE%J/03 001EA
           CARTE%JK/03 001DB        CARTE%2/03 001D7         CAR1/02 00000            CAR2/03 00000
           CHECK%FOR%PLUS%END/03 00146                       CK%PLUS%AST/03 0014B
           CNERR1/03 0001F          CONVERT%BIN%DEC/03 0017C
           CONVERT%DEC%CONSTANT/03 00173                     CONVERT%ERROR/03 0017D
           COPY%CN/03 00215         CR/0000000D              CROISSANT/03 000EC       DATA%DIX/03 0002A
           DECROIS/03 000FC         DEP/00000003             DEUX/00000002            DIX/0000000A
           ECRIRE%X2/03 000A9       ECRIT%CARTE%END/03 000D5                          ENDMSG/03 00168
           ENDMSIZE/0000000B        ERR%PRINT/03 00202       ER3/03 00004             ER4/03 00013
           ER5/03 00019             EXITINIT/03 00119        FIN%TRI/03 0010C         FIN%T1/03 0010F
           FIN%T2/03 0011C          FIN%T3/03 00122          FIN%T4/03 00124          FIN%T5/03 00127
           FIN%T6/03 00128          FIN1%UPDATE/03 000CC                              FIVE%SIX/03 00000
           FLAG/0000000F            HUIT/00000008            I/00000004               IGNORE/03 001C8
           INDICNOTE/02 00020       INVERS/03 000E9          IOADD/00000008           IORL/0000000A
           IOSIZE/00000009          J/00000007               J%PLUS%UN/03 00096       K/00000006
           LAST%UPDATE/02 0004D                              LEC%TEMP/02 00049        LECT%MAJ%1/03 00131
           LECT%MAJ%2/03 00138      LECTURE%MAJ/03 00130                              LF/00000015
           LIMITE%NUMERIQUE/03 00002                         LNKR/0000000C            MAXSI/00000050
           MOVE%MSG/03 000B5        MV%1/03 000B7            NB/00000005              NEXT%UPDATE/02 0004E
           NOTE%F:X2/03 000A2       OCTET%SUIVANT/03 00174                            OVERLAP%ERR/03 001EE
           OVRLAP1/03 001F5         PAS/00000004             PASSE/03 000DC           PATCH/02 00000
           PRINT/03 00208           PRINT%FLAG/02 0004A      PRINT%UPDATE1/03 00185
           PT/00000003              PTDEB/0000000A           PTFIN/0000000B           PTR1/00000001
           PTR2/00000002            QUATRE/00000004          R/00000008               RBM/00000003
           RES%LINE%COUNT/02 0004C                           RETOUR/0000000E          RETRO/0000000D
           RETURN/0000000F          R1/00000009              R8/00000008              S:S/FUNC
           SAVE%I/02 0004B          SEPT/00000007            SEQNCERR/03 000BC        SP%BLANC/03 00210
           SP%OVERLAP/03 001CC      SP%PRINT/03 001A0        SP%PRINT1/03 001A9       SP%PRINT2/03 001C6
           SP%PRINT3/03 001C1       SP%PRINT4/03 001BE       SP%PRINT5/03 001B3       SP%PRINT6/03 001B6
           SR1/00000008             SR2/00000009             SR3/0000000A             STH%VAL1/03 00094
           STH%VAL11/03 0007F       SUITE%ERROR/03 001E2                              SUITE%ZAP/03 00145
           SYN%1/03 00197           SYN%2/03 00198           SYS/00000002             SYS%REGS/02 00044
           TAB/00000005             TEST%VAL/03 00084        TEST%VAL1/03 0008B       TRI/03 000D8
           TROIS/00000003           TROIS%SUITE/03 000E5                              T1/00000008
           UN/00000001              UNSUITE/03 000DF         UPDATE%LINE%COUNT/02 0004F
           UPDATE%SYNTAX%ERROR/03 00189                      VAL/0000000B             VAL1/0000000A
           WRITE%X2/03 0012D        WRITEX4/03 0012B         X/00000001               XT/00000004
           XT1/00000005             X1/00000002              ZAP%LF%CR/03 00144       ZERO/00000000
           ZERO%SUR%INDICNOTE/03 000B0                       ZONECI/02 00022          %BOUCLE/03 000E2
           %QUATRE/00000006         %TROIS/00000004          %UN/00000000
  *    EXTERNAL DEFINITIONS
           IM@INIT/03 0002B         INITD/02 00000           INITP/03 00000           XAPDATA/02 00000
  *    PRIMARY REFERENCES
           ABN%%X1        ABN%%X2        ABN%%X4        ABORT          ADRDCB         BA%FLAG        BLANC
           BO%FLAG        BO%SIZE        CORRESWD       DC%FLAG        EODCNT         EODCNTCI       ERR%%C
           ERR%%SI        ERR%%X1        ERR%%X2        ERR%%X4        F:X1           F:X2           F:X2KF
           FINMAJ         LINE%TYPE      LO%FLAG        LOWCORE        LU%FLAG        M:C            M:DO
           M:LO           M:SI           ND%FLAG        NIVO           PAGENUM        PGLINES        PGNUM
           POSITIONX1     RD%STD         REPORT%STATUS                 REWX1          ROOTEXIT       ROOTRTN
           SAVAREA        SEGMENT#       SU%FLAG        TITLEBUF       UPDT%ERROR     WRITEDO        WRITELO
  * NO SECONDARY REFERENCES
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
