BANNER TELEFILE,AP H00,APEND.
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     EEEEEEEEEEEEE    NN         NN    DDDDDDDDDDD
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    EEEEEEEEEEEEE    NNN        NN    DDDDDDDDDDDD
                 AA         AA    PP         PP    EE               NNNN       NN    DD         DD
                 AA         AA    PP         PP    EE               NN NN      NN    DD         DD
                 AA         AA    PP         PP    EE               NN  NN     NN    DD         DD
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    EEEEEEEE         NN   NN    NN    DD         DD
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     EEEEEEEE         NN    NN   NN    DD         DD
                 AA         AA    PP               EE               NN     NN  NN    DD         DD
                 AA         AA    PP               EE               NN      NN NN    DD         DD
                 AA         AA    PP               EE               NN       NNNN    DD         DD
                 AA         AA    PP               EEEEEEEEEEEEE    NN        NNN    DDDDDDDDDDDD
                 AA         AA    PP               EEEEEEEEEEEEE    NN         NN    DDDDDDDDDDD




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




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




                  AAAAAAAAAAA     PPPPPPPPPPPP     EEEEEEEEEEEEE    NN         NN    DDDDDDDDDDD
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    EEEEEEEEEEEEE    NNN        NN    DDDDDDDDDDDD
                 AA         AA    PP         PP    EE               NNNN       NN    DD         DD
                 AA         AA    PP         PP    EE               NN NN      NN    DD         DD
                 AA         AA    PP         PP    EE               NN  NN     NN    DD         DD
                 AAAAAAAAAAAAA    PPPPPPPPPPPPP    EEEEEEEE         NN   NN    NN    DD         DD
                 AAAAAAAAAAAAA    PPPPPPPPPPPP     EEEEEEEE         NN    NN   NN    DD         DD
                 AA         AA    PP               EE               NN     NN  NN    DD         DD
                 AA         AA    PP               EE               NN      NN NN    DD         DD
                 AA         AA    PP               EE               NN       NNNN    DD         DD
                 AA         AA    PP               EEEEEEEEEEEEE    NN        NNN    DDDDDDDDDDDD
                 AA         AA    PP               EEEEEEEEEEEEE    NN         NN    DDDDDDDDDDD




ASSIGN M:CI,(FILE,CI:APEND,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APEND,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    ACONVAL
            941/STH        944/STB        946/LI
    ADDFLD
            619/LV
    ADV%RTN
             86/EQU
    AEDIT
             57/REF        685/BAL
    AF
             73/DATA        74/TEXT       592/COM        688/COM
    ARFLD
            925/AND
    ARG
            198/STW        204/STW        266/STW        283/LW         588/LW         755/LW*        880/LW*
            923/LW*
    ARLOB
            632/SHIFT      926/SHIFT
    AZ
            735/IF
    BA
            377/LI         381/LI         683/AI         688/COM        688/COM        946/LI         953/AI
    BASE
             88/EQU
    BEDIT
             58/REF        378/BAL        947/CALL       955/CALL
    BEDITEND
            382/BAL        454-RES
    BEDIT4
             59/REF        471/B
    BEDIT9
            465-RES        469/BL
    BLDPLTXIT
             90/EQU
    BNDEXIT
             89/EQU
    BO%FLAG
             38/REF        455/LW
    BOBUF
            462/STB        466/STB
    BOCT
            464/LW         470/LW
    BOMAX
            468/CW
    BYTEOFFSET
             86-EQU        529/STW        535/LW         539/STW        544/LW
    CCFLD
            668/BFNZ
    CLOSEFLD
             79-EQU        734/CV
    CLRLSTBF
             39/REF        145/BAL       1056/BAL
    CNTLHEAD
            115-HEAD       162/LI
    COLSIZE
             87-EQU        972/AW         979/AW         995/STW
    CSERRHEAD
            124-HEAD       447/LI
    CSFLD
            621/LV
    CSLOB
            623/SHIFT
    CSSUB
            163/BAL        449/BAL        487-RES
    CSSUBXIT
             88-EQU        100/EQU        147/STB        445/MTB        488/STW        519/MTB        567/B*
    CSSUB1
            496-RES        526/BNEZ       564/B
    CSSUB2
            509/BE         515/BNE        522/BLE        524-RES
    CSSUB3
            518/BNEZ       528-RES
    CSSUB4
            545/BEZ        550-RES
    CSSUB5
            500/BG         565-RES
    CSSUB6
            510/BG         513/BNE        516-RES
    CSSUM
            149/BEZ        152/BLE        157-RES
    CTCHRS
             60/REF        399/BAL        409/BAL        424/BAL        440/BAL
    CURPP
             89-EQU        225/LW         970/STW        971/LW         993/STW
    DD%TYPE
            584/LW         680/LW         881/LW
    DEDIT
             40/REF        403/BAL        413/BAL        426/BAL        442/BAL        648/BAL
    DEFEXT
            208/CS         274/CS
    DEFFLD
            214/CV         350/CV
    DEFLOCXIT
             98/EQU
    DESTIN
             99/EQU
    DGEND
             34/DEF        136-RES
    DGENDD
             35/DEF         82-EQU
    DGENDP
             33-CSECT       36/DEF        109/USECT
    DMSG
            702/EM         716-TEXT
    DOFLAG
             90-EQU        140/STW        310/MTW       1050/MTW
    DOSKIPXIT
             94/EQU
    DPIFLAG
            102/EQU
    DPIMSG
            707/EM         721-TEXT
    ECTHW
            101/EQU
    EDITDXIT
            583/STW        647/BEZ*       650/B*         665/B*         686/B*         754/STW        759/B*
    EDITVAL
            229/BAL        582-RES
    EDITVJMP
            590/B          592/COM        616-RES
    EDITVMSG
            683/AI         688/COM        712-RES
    EDITVMSGTBL
            682/LB         689-RES
    EDITVTBL
            586/LB         593-RES
    EDITV10
            594/EJ         596/EJ         599/EJ         600/EJ         601/EJ         602/EJ         606/EJ
            607/EJ         608/EJ         609/EJ         610/EJ         611/EJ         612/EJ         613/EJ
            668/BFNZ       679-RES
    EDITV2
            595/EJ         618-RES
    EDITV3
            597/EJ         626-RES
    EDITV4
            624/B          631-RES
    EDITV5
            598/EJ         652-RES
    EDITV6
            605/EJ         659-RES
    EDITV7
            661-RES        671/B          675/B
    EDITV8
            603/EJ         667-RES
    EDITV9
            604/EJ         673-RES
    EJ
            592-COM
    EM
            688-COM
    ENDADDR
             87/EQU
    ENTEXIT
             91/EQU
    EQ
            457/EXIT       862/EXIT       874/EXIT      1039/EXIT
    ERRHEAD
            119-HEAD       383/LI
    ERRORSUM
            326/B          370-RES
    ERRORS10
            405/BEZ        414-RES
    ERRORS20
            394/BEZ        429-RES
    ERROR30
            428/B          431/BNEZ       435-RES
    ERROR40
            437/BEZ        444-RES
    ETLOB
            585/SHIFT      681/SHIFT      757/SHIFT      882/SHIFT
    EXPR%DEF
             92/EQU
    EXTFLD
            196/LV         267/LV
    EXTHEAD
            117-HEAD       245/LI
    EXTLOB
            277/SHIFT
    EXTMSG
            692/EM         695/EM         714-TEXT
    EXTNAME
            128-RES        294/LB
    EXTSKIP
            271/BEZ        275/BL         301-RES
    EXTSUM
            244-RES
    EXTSUM10
            269/BLZ        273-RES
    EXTSUM12
            285/BNE        290-RES
    EXTSUM15
            293-RES        298/BDR
    EXTSUM20
            265/B          304-RES
    EXTSUM3
            248/BNEZ       252-RES
    EXTSUM5
            263-RES        300/B          303/B
    EZ
            372/IF         460/IF
    FCSFLD
            628/LV
    FCSLOB
            630/SHIFT
    FLMSG
            706/EM         720-TEXT
    FND
             93/EQU
    FREELIST
             95/EQU
    FSMSG
            705/EM         719-TEXT
    FUNCMSG
            709/EM         723-TEXT
    FXMSG
            704/EM         718-TEXT
    GENERATE3
             61/REF        956/CALL
    GETCSADD
             62/REF        504/BAL
    GETSYM
            194/BAL        264/BAL        340/BAL        728-RES
    GETSYMRTN
             91-EQU        729/STW        733/BANZ*      740/MTW        741/B*
    GETSYM5
            730-RES        748/B
    GETVSIZE
            223/BAL        753-RES
    GO%FLAG
             41/REF        456/AW
    GOTOARG
             96/EQU
    HEAD
             71-CNAME
    HEADADDR
             92-EQU        375/STW        377/LI         517/MTB        525/MTB        788/STW        793/LW*
            796/LW*
    HWX1SIZE
             42/REF        829/CI
    IOADD
           1047/LI        1052/LI
    IORL
            137/STW        256/BAL        330/BAL        851/BAL       1049/BAL       1054/BAL
    IOSIZE
            254/LCW        255/AWM        328/LCW        329/AWM       1048/LI        1053/LI
    L
            201/AND        208/CS         270/AND        344/AND        381/LI         387/OR         388/CW
            390/SW         398/AND        736/AND        918/AND        925/AND       1030/EXIT
    LABELLOC
             97/EQU
    LAST
            103/EQU
    LBX
            188/LI         225/LW         257/LI         286/AI         288/STB        289/AI         295/STB
            297/AI         332/LI         336/LI         400/AW         401/STW        402/AI         406/LW
            408/STB        410/AW         411/STW        425/AW         441/AW         492/AW         534/AI
            543/AI         549/AI         551/AI         553/STB        554/AI         556/STB        557/AI
            639/AI         644/AI         649/AI         653/AI         655/STB        656/AI         664/AW
            793/LW         794/STW        796/LW         808/STB        809/AI         812/STB        813/AI
            818/STB        819/AI         929/STW        957/LW         966/CW         968/LW         970/STW
            985/LW         992/STW        993/STW       1028/AW        1038/CW
    LENGTHFLD
            918/AND
    LF
             73-DATA
    LFND
            104/EQU
    LFRMSG
            696/EM         697/EM         715-TEXT
    LFSUMSZ
            105/EQU
    LINEHEAD
            120-HEAD       395/LI
    LINEORG
            106/EQU
    LISTMSG
            708/EM         722-TEXT
    LITCS
            512/CW
    LITSRCHXIT
            107/EQU
    LO%FLAG
             43/REF        158/MTW        168/LW         183/STW        240/STW        318/MTW       1045/MTW
    LPTRFLD
            201/AND        270/AND        344/AND
    LSTBF
             44/REF        288/STB        295/STB        391/STW        408/STB        418/STB        553/STB
            556/STB        655/STB        794/STW        808/STB        812/STB        818/STB        843/STH
            951/STB        953/AI        1047/LI        1052/LI
    MAJERRFLD
            398/AND
    MAJERRLN
            397/LW         415/LB
    MAXCSECT
            499/CW
    MAXDD
            506/LW         508/CS         527/LW
    MAXDDFLD
            507/LV         537/AND
    MAXPP
             93-EQU        973/CW         981/CW         994/STW
    MAXSEV
            151/CB         153/STB        373/LB         385/LW         430/MTB        521/CB         523/STB
    MOVEHD
            186/BAL        246/BAL        312/BAL        384/BAL        396/BAL        422/BAL        433/BAL
            439/BAL        489/BAL        787-RES
    MOVEHD1
            792-RES        795/BDR
    MOVESYM
            227/BAL        282/BAL        355/BAL        802-RES
    MOVESYMRTN
             94-EQU        803/STW        814/B*
    MOVESYM1
            807-RES        821/BDR
    MOVESYM2
            811-RES        822/B
    MOVESYM3
            810/BDR        815-RES
    NBYTES
            376/LI         380/LI         466/STB        532/LI         541/LI         547/LI         561/LI
            637/LI         642/LI         662/LI         684/LI         945/LI         954/LW
    NERRHEAD
            122-HEAD       432/LI
    NERRS
            393/MTW        423/LW
    NEXTCS
             95-EQU        495/STW        497/MTW        498/LW         511/LW         530/LW
    NEXTPP
             97-EQU        966/CW         968/LW         975/STW        978/LW         980/STW        997/STW
    NLITS
            514/MTW
    NS%FLAG
             45/REF        172/LW         316/MTW
    NUMEXT
             98-EQU        142/STW        211/MTW        233/MTW        247/MTW
    NUMHEAD
            121-HEAD       421/LI
    NUMUND
             99-EQU        143/STW        218/MTW        322/MTW        352/MTW        362/MTW
    NXT%ITEM
            731/BAL        804/BAL        816/BAL        827-RES       1005/BAL       1010/BAL       1019/BAL
    NXT%ITEMRTN
             96-EQU        828/STW        836/B*
    NXT%ITM5
            830/BL         832-RES
    NZ
            416/IF         865/EXIT
    OL
            738/IF
    PGLINES
             46/REF        175/STW
    POSITIONX1
             47/REF        256/BAL        330/BAL
    PT
            558/LW
    PTFLD
            559/AND
    PTLOB
            560/SHIFT
    PUT%NO%
            249/BAL        324/BAL        364/BAL        841-RES
    READSYM
            192/BAL        261/BAL        337/BAL        831/BAL        849-RES
    READX1
             48/REF        851/BAL
    RL
            145/BAL        161/BAL        163/BAL        186/BAL        187/BAL        191/BAL        192/BAL
            194/BAL        221/BAL        223/BAL        226/BAL        227/BAL        229/BAL        230/BAL
            235/BAL        238/BAL        246/BAL        249/BAL        250/BAL        253/BAL        260/BAL
            261/BAL        264/BAL        279/BAL        281/BAL        282/BAL        294/LB         295/STB
            299/BAL        302/BAL        305/BAL        312/BAL        324/BAL        325/BAL        335/BAL
            337/BAL        340/BAL        353/BAL        354/BAL        355/BAL        356/BAL        359/BAL
            364/BAL        366/BAL        378/BAL        382/BAL        384/BAL        392/BAL        396/BAL
            399/BAL        403/BAL        409/BAL        413/BAL        420/BAL        422/BAL        424/BAL
            426/BAL        427/BAL        433/BAL        434/BAL        439/BAL        440/BAL        442/BAL
            443/BAL        449/BAL        457/EXIT       488/STW        489/BAL        493/BAL        504/BAL
            533/BAL        542/BAL        548/BAL        562/BAL        563/BAL        566/BAL        583/STW
            621/LV         622/AND        623/SHIFT      628/LV         629/AND        630/SHIFT      636/LW
            638/BAL        643/BAL        648/BAL        663/BAL        685/BAL        729/STW        731/BAL
            747/BAL        754/STW        756/BAL        797/EXIT       803/STW        804/BAL        816/BAL
            828/STW        831/BAL        844/EXIT       853/EXIT       862/EXIT       874/EXIT       911/EXIT
            928/STW        964/STW        984/BAL        998/EXIT      1004/STW       1005/BAL       1010/BAL
           1018/STW       1019/BAL       1030/EXIT      1031/STW       1039/EXIT      1044/STW       1056/BAL
    RNG%SUM%EXCL
            113-DATA       737/CLM
    ROOTRTN
             49/REF        137/STW        446/BEZ*       450/B*
    S:IVAL#
            114/DATA
    S:NUMC
             73/DATA
    SD%FLAG
             50/REF        179/LW         313/MTW        861/MTW
    SD%TYPE
            739/STW        937/LW
    SDCOM
            915/B          927-RES
    SDEDIT
            228/CALL       860-RES
    SDEDITXIT
            100-EQU        928/STW        958/B*
    SDINT
            896/BYTE       898/BYTE       913-RES        920/BNE
    SDINTSYMCD
             80-EQU        940/AV
    SDJ%BASE
            884/B          887/BYTE       908-RES
    SDJ%TBL
            883/LB         886-RES
    SDRET
            887/BYTE       895/BYTE       897/BYTE       899/BYTE       900/BYTE       901/BYTE       902/BYTE
            903/BYTE       904/BYTE       905/BYTE       906/BYTE       910-RES
    SDSUM
            891/BYTE       917-RES
    SDSYM
            888/BYTE       889/BYTE       890/BYTE       892/BYTE       893/BYTE       894/BYTE       924-RES
    SDTT
            938/LB*
    SEGMENT#
             51/REF        138/MTW
    SETPP
            230/BAL        299/BAL        356/BAL        563/BAL        963-RES
    SETPPRTN
            101-EQU        964/STW        974/BG*        976/B*        1031/STW
    SETPP1
            965-RES        982/BLE
    SETPP10
            983-RES       1032/B
    SETPP3
            969-RES        986/B
    SETPP7
            967/BGE        977-RES
    SETUP%PP
            191/BAL        260/BAL        335/BAL        493/BAL        991-RES
    SKIPSYM
            235/BAL        302/BAL        359/BAL        747/BAL       1003-RES
    SKIPSYMRTN
            102-EQU       1004/STW       1009/BE*       1012/B*
    SOCW%FLG
            371/MTW        459/MTW        864/MTW
    SPAFLD
            216/CV         348/CV
    STARTPP
            103-EQU        985/LW         992/STW        996/AW        1038/CW
    SUBERRLN
            404/LW
    SYMCT
            221/BAL        279/BAL        353/BAL       1017-RES
    SYMCTRTN
            104-EQU       1018/STW       1022/B*
    SYMHEAD
            116-HEAD       185/LI
    SYMSIZE
            105-EQU        222/STW        224/AW         278/STW        291/LW         942/LW         952/SW
            954/LW
    SYMSKIP
            202/BEZ        217/BE         219/B          234-RES
    SYMSUM
            159/BEZ        167-RES
    SYMSUM10
            200/BLZ        206-RES
    SYMSUM12
            210/BL         213-RES
    SYMSUM13
            215/BANZ       220-RES
    SYMSUM15
            209/BG         232-RES
    SYMSUM2
            170/BEZ        173/BNEZ       178-RES
    SYMSUM20
            195/B          237-RES
    SYMSUM3
            176/B          184-RES
    SYMSUM5
            193-RES        231/B          236/B
    SYMT
            197/AW         203/AW         268/LW*        272/LW*        342/LW*        346/LW*
    TEMPO
            169/STW        239/LW
    TESTOV
            226/BAL        281/BAL        354/BAL       1027-RES
    TEXTCT
            141/STW        254/LCW        255/AWM        328/LCW        329/AWM        850/MTW
    TEXTMSG
            699/EM         703/EM         717-TEXT
    TMPPP
            106-EQU        929/STW        948/LW         957/LW
    TX1
            635/STW        640/LW         645/LW
    TYPE
             63/REF        756/BAL
    UNDHEAD
            118-HEAD       311/LI
    UNDMSG
            690/EM         691/EM         693/EM         694/EM         698/EM         700/EM         701/EM
            713-TEXT
    UNDSKIP
            345/BEZ        349/BE         351/BANZ       358-RES
    UNDSUM
            180/BEZ        251/B          309-RES
    UNDSUM05
            314/BNEZ       321-RES
    UNDSUM10
            323/BNEZ       327-RES
    UNDSUM15
            317/BNEZ       319/BEZ        331-RES
    UNDSUM20
            339-RES        357/B          360/B
    UNDSUM22
            343/BLZ        347-RES
    UNDSUM25
            341/B          361-RES
    UNDSUM30
            363/BNEZ       365-RES
    UPDT%ERROR
             52/REF        148/MTW        436/LW
    UPDTHEAD
            123-HEAD       438/LI
    VALFLD
            669/LV
    VFLD
            736/AND
    VSIZETBL
            758/LB         761-RES
    WRITE
            161/BAL        187/BAL        250/BAL        253/BAL        325/BAL        392/BAL        420/BAL
            427/BAL        434/BAL        443/BAL        984/BAL       1043-RES
    WRITEC
            238/BAL        305/BAL        366/BAL        566/BAL       1037-RES
    WRITEDO
             53/REF       1054/BAL
    WRITELO
             54/REF       1049/BAL
    WRITERTN
            107-EQU       1044/STW       1057/B*
    WRITE20
           1046/BEZ       1050-MTW
    WRITE30
           1051/BEZ       1055-RES
    XAPDATA
             82/EQU
    XEDIT
             64/REF        533/BAL        542/BAL        548/BAL        562/BAL        638/BAL        643/BAL
            663/BAL
    XS
            207/LI         212/LI         262/LI         338/LI         401/STW        406/LW         407/LI
            408/STB        411/STW        412/AI         418/STB        498/LW         499/CW         503/XW
            505/XW         506/LW         508/CS         527/LW         558/LW         587/LI         657/LI
            664/AW         812/STB        873/CI
    XT
            139/LI         140/STW        141/STW        142/STW        143/STW        144/STH        146/LI
            147/STB        150/LI         151/CB         153/STB        162/LI         168/LW         169/STW
            172/LW         175/STW        179/LW         182/LI         183/STW        185/LI         189/LI
            197/AW         198/STW        199/LW         199/LW         201/AND        203/AW         204/STW
            205/LW         205/LW         208/CS         214/CV         216/CV         222/STW        224/AW
            239/LW         240/STW        245/LI         258/LI         266/STW        268/LW         268/LW
            270/AND        272/LW         272/LW         274/CS         276/AND        280/AI         283/LW
            284/CW         287/LI         288/STB        292/LI         298/BDR        311/LI         333/LI
            342/LW         342/LW         344/AND        346/LW         346/LW         348/CV         350/CV
            373/LB         374/AI         375/STW        383/LI         385/LW         386/SLS        387/OR
            388/CW         390/SW         391/STW        395/LI         400/AW         410/AW         415/LB
            417/AI         418/STB        421/LI         425/AW         432/LI         438/LI         441/AW
            447/LI         448/MTB        455/LW         456/AW         461/LI         462/STB        464/LW
            466/STB        467/AI         468/CW         470/LW         490/LI         494/LI         495/STW
            506/LW         508/CS         520/LI         521/CB         523/STB        527/LW         529/STW
            536/LI         538/SCD        539/STW        584/LW         585/SHIFT      586/LB         586/LB
            590/B          619/LV         620/AND        627/LW         629/AND        634/SCS        635/STW
            669/LV         670/AND        680/LW         681/SHIFT      682/LB         732/CV         734/CV
            736/AND        737/CLM        739/STW        758/LB         788/STW        789/LW         789/LW
            790/AI         791/SLS        793/LW         794/STW        795/BDR        805/STW        808/STB
            817/SCS        818/STB        820/SCS        833/LH         834/AND        842/LI         843/STH
            881/LW         882/SHIFT      883/LB         883/LB         884/B          922/LI         923/LW
            937/LW         938/LB         938/LB         939/AW         940/AV         941/STH        942/LW
            944/STB        950/LI         951/STB        995/STW        996/AW         997/STW       1006/STW
           1021/SLS       1028/AW        1029/CI
    XT1
            190/LI         196/LV         259/LI         267/LV         276/AND        277/SHIFT      278/STW
            291/LW         294/LB         296/AI         334/LI         377/LI         381/LI         397/LW
            398/AND        404/LW         423/LW         436/LW         491/LI         492/AW         507/LV
            511/LW         512/CW         530/LW         531/STB        531/STB        535/LW         537/AND
            540/SLS        544/LW         546/SLS        552/LI         553/STB        555/LI         556/STB
            558/LW         559/AND        560/SHIFT      589/LW         620/AND        622/AND
            632/SHIFT      633/AND        634/SCS        636/LW         640/LW         641/SLS        645/LW
            646/AND        654/LI         655/STB        660/LW         668/BFNZ       670/AND        674/LI
            682/LB         683/AI         755/LW         805/STW        806/SLS        810/BDR        821/BDR
            880/LW         914/LI         918/AND        919/CI         923/LW         925/AND
            926/SHIFT      939/AW         943/LI         944/STB        946/LI         948/LW         949/AI
            951/STB        952/SW         953/AI         971/LW         972/AW         973/CW         975/STW
            978/LW         979/AW         980/STW        981/CW         994/STW       1006/STW       1007/SLS
           1008/CI        1011/BDR
    XT2
            503/XW         505/XW         757/SHIFT      758/LB
    XT3
            588/LW         589/LW         627/LW         660/LW
    XW
            829/CI         833/LH         835/AI         852/LI        1020/AI
    X1BUF
             55/REF        833/LH
    1STDEF
            144/STH        284/CW
    %
            389/BLE       1011/BDR
    %%#
            114/DATA
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APEND'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APEND                   %%%%%
         6                            *   %%%%%     LAST UPDATED:    MAR 07, 1984            %%%%%
         7                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
A

        10                            *        T E L E F I L E    P R O P R I E T A R Y    P R O D U C T
A
        12                            *        THIS DOCUMENT INCLUDES DATA AND INFORMATION WHICH IS CONSIDERED
        13                            *        PROPRIETARY TO TELEFILE COMPUTER PRODUCTS, INC. REPRODUCTION,
        14                            *        DUPLICATION, DISCLOSURE OR DISSEMINATION, IN WHOLE OR IN PART,
        15                            *        TO OTHERS THAN REPRESENTATIVES OF THE UNITED STATES GOVERNMENT
        16                            *        SHALL NOT BE MADE WITHOUT PRIOR WRITTEN AUTHORIZATION OF TELEFILE
        17                            *        COMPUTER PRODUCTS, INC. NOTWITHSTANDING THE FOREGOING, USE OF
        18                            *        THE DATA OR INFORMATION IN WHOLE OR IN PART FOR DESIGN,
        19                            *        PROCUREMENT OR MANUFACTURE IS STRICTLY FORBIDDEN.
1

        22                            *        T E L E F I L E    P R O P R I E T A R Y    P R O D U C T
A
        24                            *        THIS DOCUMENT INCLUDES DATA AND INFORMATION WHICH IS CONSIDERED
        25                            *        PROPRIETARY TO TELEFILE COMPUTER PRODUCTS, INC. REPRODUCTION,
        26                            *        DUPLICATION, DISCLOSURE OR DISSEMINATION, IN WHOLE OR IN PART,
        27                            *        TO OTHERS THAN REPRESENTATIVES OF THE UNITED STATES GOVERNMENT
        28                            *        SHALL NOT BE MADE WITHOUT PRIOR WRITTEN AUTHORIZATION OF TELEFILE
        29                            *        COMPUTER PRODUCTS, INC. NOTWITHSTANDING THE FOREGOING, USE OF
        30                            *        THE DATA OR INFORMATION IN WHOLE OR IN PART FOR DESIGN,
        31                            *        PROCUREMENT OR MANUFACTURE IS STRICTLY FORBIDDEN.
1
        33   02 00000                 DGENDP   CSECT    1
        34                                     DEF      DGEND
        35                                     DEF      DGENDD
        36                                     DEF      DGENDP
        37                            *
        38                                     REF      BO%FLAG
        39                                     REF      CLRLSTBF
        40                                     REF      DEDIT
        41                                     REF      GO%FLAG
        42                                     REF      HWX1SIZE
        43                                     REF      LO%FLAG
        44                                     REF      LSTBF
        45                                     REF      NS%FLAG
        46                                     REF      PGLINES
        47                                     REF      POSITIONX1
        48                                     REF      READX1
        49                                     REF      ROOTRTN
        50                                     REF      SD%FLAG
        51                                     REF      SEGMENT#          AP OVERLAY SEGMENT
        52                                     REF      UPDT%ERROR
        53                                     REF      WRITEDO
        54                                     REF      WRITELO
        55                                     REF      X1BUF
        56                            *
        57                                     REF      AEDIT
        58                                     REF      BEDIT
        59                                     REF      BEDIT4
        60                                     REF      CTCHRS
        61                                     REF      GENERATE3
        62                                     REF      GETCSADD
        63                                     REF      TYPE
        64                                     REF      XEDIT
        65                            *
        66                                     SYSTEM   AP%IL
        67                                     SYSTEM   AP%DG
  C00
        68                            *
        69                            * H E A D
        70                            *
        71         00000000           HEAD     CNAME
        72                                     PROC
        73                            LF       DATA     S:NUMC(AF)
        74                                     TEXT     AF
        75                                     PEND
        76                            *
        77                            *   MISCELLANEOUS EQUATES
        78                            *
        79         00004000           CLOSEFLD EQU      X'4000'           SYMBOL NUMBER CLOSE FIELD
        80         00000012           SDINTSYMCD  EQU   X'12'             LOADER CODE FOR INT. SYM TYPE
1
        82         04 00000           DGENDD   EQU      XAPDATA
        83                            *
        84                            *   STORAGE
        85                            *
        86         04 00065           BYTEOFFSET  EQU   ADV%RTN           BYTE OFFSET FOR CONTROL SECTION SUM
        87         04 0007D           COLSIZE  EQU      ENDADDR           COLUMN SIZE FOR SUMMARIES
        88         04 00068           CSSUBXIT EQU      BASE              RETURN ADDRESS FOR CSSUB
        89         04 00069           CURPP    EQU      BNDEXIT           CURRENT PRINT POSITION
        90         04 0006A           DOFLAG   EQU      BLDPLTXIT         WRITE ON 'DO' FLAG
        91         04 0007E           GETSYMRTN  EQU    ENTEXIT           RETURN ADDRESS FOR GETSYM
        92         04 0007F           HEADADDR EQU      EXPR%DEF          HEADING ADDRESS
        93         04 00086           MAXPP    EQU      FND               MAX PRINT POSITION FOR SUMMARIES
        94         04 00073           MOVESYMRTN  EQU   DOSKIPXIT         RETURN ADDRESS FOR MOVESYM
        95         04 00087           NEXTCS   EQU      FREELIST          NEXT CONTROL SECTION FOR CSSUM
        96         04 00089           NXT%ITEMRTN  EQU  GOTOARG           RETURN ADDRESS FOR NXT%ITEM
        97         04 0008B           NEXTPP   EQU      LABELLOC          NEXT PRINT POSITION FOR SUMMARIES
        98         04 00071           NUMEXT   EQU      DEFLOCXIT         NUMBER OF EXTERNAL SYMBOLS
        99         04 00072           NUMUND   EQU      DESTIN            NUMBER OF UNDEFINED SYMBOLS
       100         04 00068           SDEDITXIT  EQU    CSSUBXIT          RETURN ADDRESS FROM SDEDIT
       101         04 00075           SETPPRTN EQU      ECTHW             RETURN ADDRESS FOR SETPP
       102         04 00074           SKIPSYMRTN  EQU   DPIFLAG           RETURN ADDRESS FOR SKIPSYM
       103         04 0008D           STARTPP  EQU      LAST              START PRINT POSITION FOR SUMMARIES
       104         04 0008F           SYMCTRTN EQU      LFND              RETURN ADDRESS FOR SYMCT
       105         04 00090           SYMSIZE  EQU      LFSUMSZ           SYMBOL SIZE FOR SUMMARIES
       106         04 00092           TMPPP    EQU      LINEORG           SCRATCH IN 'SDEDIT'
       107         04 00093           WRITERTN EQU      LITSRCHXIT
       108                            *
       109   04 000BE                          USECT    DGENDP
       110                            *
       111                                     BOUND    8
       112                            *
       113                            RNG%SUM%EXCL      ;                 SYMBOLS EXCLUDED FROM SUMMARY
       114   02 00000    0000003B A            DATA     S:IVAL#,%%#
             02 00001    0000003D A
       115   02 00002    0000001B A   CNTLHEAD HEAD     '  CONTROL SECTION SUMMARY: '
             02 00003    4040C3D6 A
             02 00004    D5E3D9D6 A
             02 00005    D340E2C5 A
             02 00006    C3E3C9D6 A
             02 00007    D540E2E4 A
             02 00008    D4D4C1D9 A
             02 00009    E87A4040 A
       116   02 0000A    00000014 A   SYMHEAD  HEAD     '  *    SYMBOL VALUES'
             02 0000B    40405C40 A
             02 0000C    404040E2 A
             02 0000D    E8D4C2D6 A
             02 0000E    D340E5C1 A
             02 0000F    D3E4C5E2 A
       117   02 00010    00000017 A   EXTHEAD  HEAD     '  *    EXTERNAL SYMBOLS'
             02 00011    40405C40 A
             02 00012    404040C5 A
             02 00013    E7E3C5D9 A
             02 00014    D5C1D340 A
             02 00015    E2E8D4C2 A
             02 00016    D6D3E240 A
       118   02 00017    00000018 A   UNDHEAD  HEAD     '  *    UNDEFINED SYMBOLS'
             02 00018    40405C40 A
             02 00019    404040E4 A
             02 0001A    D5C4C5C6 A
             02 0001B    C9D5C5C4 A
             02 0001C    40E2E8D4 A
             02 0001D    C2D6D3E2 A
       119   02 0001E    0000001C A   ERRHEAD  HEAD     '  *    ERROR SEVERITY LEVEL:'
             02 0001F    40405C40 A
             02 00020    404040C5 A
             02 00021    D9D9D6D9 A
             02 00022    40E2C5E5 A
             02 00023    C5D9C9E3 A
             02 00024    E840D3C5 A
             02 00025    E5C5D37A A
       120   02 00026    00000018 A   LINEHEAD HEAD     '  *    LAST ERROR LINE: '
             02 00027    40405C40 A
             02 00028    404040D3 A
             02 00029    C1E2E340 A
             02 0002A    C5D9D9D6 A
             02 0002B    D940D3C9 A
             02 0002C    D5C57A40 A
       121   02 0002D    0000001D A   NUMHEAD  HEAD     '  *    NUMBER OF ERROR LINES:'
             02 0002E    40405C40 A
             02 0002F    404040D5 A
             02 00030    E4D4C2C5 A
             02 00031    D940D6C6 A
             02 00032    40C5D9D9 A
             02 00033    D6D940D3 A
             02 00034    C9D5C5E2 A
             02 00035    7A404040 A
       122   02 00036    00000012 A   NERRHEAD HEAD     '  * NO ERROR LINES'
             02 00037    40405C40 A
             02 00038    D5D640C5 A
             02 00039    D9D9D6D9 A
             02 0003A    40D3C9D5 A
             02 0003B    C5E24040 A
       123   02 0003C    0000001F A   UPDTHEAD HEAD     '  *    NUMBER OF UPDATE ERRORS:'
             02 0003D    40405C40 A
             02 0003E    404040D5 A
             02 0003F    E4D4C2C5 A
             02 00040    D940D6C6 A
             02 00041    40E4D7C4 A
             02 00042    C1E3C540 A
             02 00043    C5D9D9D6 A
             02 00044    D9E27A40 A
       124   02 00045    0000001F A   CSERRHEAD  HEAD   '  CONTROL SECTION SIZE ERRORS: '
             02 00046    4040C3D6 A
             02 00047    D5E3D9D6 A
             02 00048    D340E2C5 A
             02 00049    C3E3C9D6 A
             02 0004A    D540E2C9 A
             02 0004B    E9C540C5 A
             02 0004C    D9D9D6D9 A
             02 0004D    E27A4040 A
       125                            *
       126                            *   EXTERNAL TYPES FOR EXTERNAL SUMMARY
       127                            *
       128   02 0004E                 EXTNAME  RES      0
       129   02 0004E    C4C5C640 A            TEXT     'DEF '
       130   02 0004F    D9C5C640 A            TEXT     'REF '
       131   02 00050    E2D9C5C6 A            TEXT     'SREF'
1
       133                            *
       134                            *    D G E N D
       135                            *
       136   02 00051                 DGEND    RES      0
       137   02 00051    35A00000 X            STW,IORL ROOTRTN           SAVE RETURN LINK TO ROOT
       138   02 00052    33100000 X            MTW,+1   SEGMENT#          BUMP OVERLAY # (NOW IT'S 4)
       139   02 00053    22400000 A            LI,XT    0
       140   02 00054    3540006A 04           STW,XT   DOFLAG            INDICATE NO WRITE ON 'DO'
       141   02 00055    3540002E 03           STW,XT   TEXTCT            SET NUMBER OF RECORDS READ TO 0
       142   02 00056    35400071 04           STW,XT   NUMEXT            SET NUMBER OF EXTERNALS TO ZERO
       143   02 00057    35400072 04           STW,XT   NUMUND            SET NUMBER OF UNDEFINES TO ZERO
       144   02 00058    55400038 03           STH,XT   1STDEF            CLEAR 1ST DEF FLAG
       145   02 00059    6A700000 X            BAL,RL   CLRLSTBF          CLEAR LIST BUFFER
       146   02 0005A    22400001 A            LI,XT    1
       147   02 0005B    75400068 04           STB,XT   CSSUBXIT
       148   02 0005C    33000000 X            MTW,0    UPDT%ERROR        IF THERE ARE ANY + CARD ERRORS,
       149   02 0005D    68300062              BEZ      CSSUM               UPDATE MAX SEVERITY TO 5
       150   02 0005E    22400005 A            LI,XT    5
       151   02 0005F    7140001A 03           CB,XT    MAXSEV
       152   02 00060    68200062              BLE      CSSUM             SEVERITY FOR THIS ERROR NOT MAX
       153   02 00061    7540001A 03           STB,XT   MAXSEV            UPDATE MAXIMUM SEVERITY
       154                            *
       155                            *    C S S U M
       156                            *
       157   02 00062                 CSSUM    RES      0
       158   02 00062    33000000 X            MTW,0    LO%FLAG           WAS LO SPECIFIED
       159   02 00063    68300067              BEZ      SYMSUM            NO, SKIP SECTION SUMMARY
       160                            *
       161   02 00064    6A70029D              BAL,RL   WRITE             WRITE A BLANK LINE
       162   02 00065    22400002              LI,XT    CNTLHEAD          ADDRESS OF HEADING
       163   02 00066    6A700160              BAL,RL   CSSUB             CONTROL SECTION SUMMARY
       164                            *
       165                            *    S Y M S U M
       166                            *
       167   02 00067                 SYMSUM   RES      0
       168   02 00067    32400000 X            LW,XT    LO%FLAG
       169   02 00068    35400061 04           STW,XT   TEMPO             SAVE IN CASE 'SD' SPECIFIED
       170   02 00069    6830006E              BEZ      SYMSUM2           BRIF NOT PRINTING SUMMARY
       171                            *
       172   02 0006A    32400000 X            LW,XT    NS%FLAG           NO SUMMARIES FLAG ON
       173   02 0006B    6930006E              BNEZ     SYMSUM2           BRIF NOT PRINTING SUMMARY
       174                            *
       175   02 0006C    35400000 X            STW,XT   PGLINES           NO, FORCE TOP OF PAGE
       176   02 0006D    68000072              B        SYMSUM3           'SD' WILL BE TESTED ON THE FLY
       177                            *
       178   02 0006E                 SYMSUM2  RES      0
       179   02 0006E    32400000 X            LW,XT    SD%FLAG
       180   02 0006F    683000D9              BEZ      UNDSUM            BRIF NO REASON TO CYCLE THRU SYMS
       181                            *
       182   02 00070    22400000 A            LI,XT    0                 MUST CYCLE, BUT KILL PRINT TEMP'LY
       183   02 00071    35400000 X            STW,XT   LO%FLAG
       184   02 00072                 SYMSUM3  RES      0
       185   02 00072    2240000A              LI,XT    SYMHEAD           SET SYMBOL VALUE HEADING
       186   02 00073    6A700213              BAL,RL   MOVEHD            MOVE HEADING TO LIST BUFFER
       187   02 00074    6A70029D              BAL,RL   WRITE             WRITE HEADING
       188   02 00075    2260000A A            LI,LBX   10                STARTING PRINT POSITION
       189   02 00076    22400019 A            LI,XT    25                COLUMN SIZE
       190   02 00077    22500055 A            LI,XT1   85                MAXIMUM PRINT POSITION
       191   02 00078    6A700281              BAL,RL   SETUP%PP          SET UP PRINT POSITIONS
       192   02 00079    6A700238              BAL,RL   READSYM           READ FIRST RECORD
       193   02 0007A                 SYMSUM5  RES      0
       194   02 0007A    6A7001FA              BAL,RL   GETSYM            GET NEXT SYMBOL
       195   02 0007B    680000A0              B        SYMSUM20          NO MORE SYMBOLS
       196   02 0007C    325002AA              LV,XT1   EXTFLD
       197   02 0007D    30400037 03           AW,XT    SYMT              BUILD POINTER TO SYMBOL VALUE
       198   02 0007E    35400066 04           STW,XT   ARG               SAVE
       199   02 0007F    32480000 A            LW,XT    0,XT              GET VALUE
       200   02 00080    69100086              BLZ      SYMSUM10          IT IS NOT A POINTER
       201   02 00081    4B4002AB              AND,XT   L(LPTRFLD)        POINTER, CLEAN OFFSET
       202   02 00082    6830009E              BEZ      SYMSKIP           OFFSET = 0, SYMBOL = COMMAND
       203   02 00083    30400037 03           AW,XT    SYMT              BUILD POINTER TO SYMBOL VALUE
       204   02 00084    35400066 04           STW,XT   ARG               SAVE
       205   02 00085    32480000 A            LW,XT    0,XT              GET VALUE
       206   02 00086                 SYMSUM10 RES      0
       207   02 00086    22100061 A            LI,XS    '/'
       208   02 00087    454002AC              CS,XT    L(DEFEXT)
       209   02 00088    6920009D              BG       SYMSUM15          ITS A REF OR SREF
       210   02 00089    6910008C              BL       SYMSUM12          ITS NOT A DEF
       211   02 0008A    33100071 04           MTW,1    NUMEXT            COUNT EXTERNAL SYMBOLS
       212   02 0008B    22100060 A            LI,XS    '-'               DEF SYMBOL
       213   02 0008C                 SYMSUM12 RES      0
       214   02 0008C    314002AD              CV,XT    DEFFLD            IS SYMBOL UNDEFINED
       215   02 0008D    69400092              BANZ     SYMSUM13          NO
       216   02 0008E    314002AE              CV,XT    SPAFLD            IS SYMBOL REFERENCED
       217   02 0008F    6830009E              BE       SYMSKIP           NO
       218   02 00090    33100072 04           MTW,1    NUMUND            YES, COUNT UNDEFINED SYMBOL
       219   02 00091    6800009E              B        SYMSKIP
       220   02 00092                 SYMSUM13 RES      0
       221   02 00092    6A700291              BAL,RL   SYMCT             GET NUMBER OF CHARACTERS IN
       222   02 00093    35400090 04           STW,XT   SYMSIZE             SYMBOL AND SAVE IT
       223   02 00094    6A700208              BAL,RL   GETVSIZE          GET NUMBER OF CHARACTERS IN VALUE
       224   02 00095    30400090 04           AW,XT    SYMSIZE           TOTAL # OF CHARS FOR THIS FIELD
       225   02 00096    32600069 04           LW,LBX   CURPP             SET CURRENT PRINT POSITION
       226   02 00097    6A700296              BAL,RL   TESTOV            OUTPUT LINE IF FIELD EXCEEDS BUFFER
       227   02 00098    6A70021C              BAL,RL   MOVESYM           MOVE SYMBOL TO LIST BUFFER
       228   02 00099    6A70023C              CALL     SDEDIT            BUILD SYMBOL DICTIONARY IN ROM
       229   02 0009A    6A7001A8              BAL,RL   EDITVAL           OUTPUT SYMBOL VALUE
       230   02 0009B    6A70026E              BAL,RL   SETPP             SET NEXT PRINT POSITION
       231   02 0009C    6800007A              B        SYMSUM5
       232   02 0009D                 SYMSUM15 RES      0
       233   02 0009D    33100071 04           MTW,1    NUMEXT            COUNT EXTERNAL SYMBOLS
       234   02 0009E                 SYMSKIP  RES      0
       235   02 0009E    6A700288              BAL,RL   SKIPSYM           SKIP SYMBOL
       236   02 0009F    6800007A              B        SYMSUM5           CONTINUE
       237   02 000A0                 SYMSUM20 RES      0
       238   02 000A0    6A70029B              BAL,RL   WRITEC            WRITE A LINE IF THERE IS ONE
       239   02 000A1    32400061 04           LW,XT    TEMPO             DONE WITH 'SD' TRICKERY - RESET
       240   02 000A2    35400000 X            STW,XT   LO%FLAG
       241                            *
       242                            *    E X T S U M
       243                            *
       244   02 000A3                 EXTSUM   RES      0
       245   02 000A3    22400010              LI,XT    EXTHEAD           SET EXTERNAL HEADING
       246   02 000A4    6A700213              BAL,RL   MOVEHD            MOVE HEADING TO LIST BUFFER
       247   02 000A5    33000071 04           MTW,0    NUMEXT            ARE THERE ANY EXTERNALS
       248   02 000A6    693000AA              BNEZ     EXTSUM3           YES
       249   02 000A7    6A700235              BAL,RL   PUT%NO%           NO, PUT 'NO' IN HEADING
       250   02 000A8    6A70029D              BAL,RL   WRITE             WRITE HEADING
       251   02 000A9    680000D9              B        UNDSUM            GO DO UNDEFINED SUMMARY
       252   02 000AA                 EXTSUM3  RES      0
       253   02 000AA    6A70029D              BAL,RL   WRITE             WRITE HEADING
       254   02 000AB    3A90002E 03           LCW,IOSIZE  TEXTCT         GET NUM OF RECORDS IN SYMBOL TABLE
       255   02 000AC    6690002E 03           AWM,IOSIZE  TEXTCT         CLEAR NUM OF RECORDS
       256   02 000AD    6AA00000 X            BAL,IORL POSITIONX1        BACKSPACE TO START OF TABLE
       257   02 000AE    2260000A A            LI,LBX   10                STARTING PRINT POSITION
       258   02 000AF    2240000F A            LI,XT    15                COLUMN SIZE
       259   02 000B0    2250005A A            LI,XT1   90                MAXIMUM PRINT POSITION
       260   02 000B1    6A700281              BAL,RL   SETUP%PP          SET UP PRINT POSITIONS
       261   02 000B2    6A700238              BAL,RL   READSYM           READ FIRST RECORD
       262   02 000B3    22100060 A            LI,XS    '-'
       263   02 000B4                 EXTSUM5  RES      0
       264   02 000B4    6A7001FA              BAL,RL   GETSYM            GET NEXT SYMBOL
       265   02 000B5    680000D8              B        EXTSUM20
       266   02 000B6    35400066 04           STW,XT   ARG               SAVE SYMBOL NUMBER
       267   02 000B7    325002AA              LV,XT1   EXTFLD
       268   02 000B8    B2480037 03           LW,XT    *SYMT,XT          GET SYMBOL VALUE
       269   02 000B9    691000BD              BLZ      EXTSUM10          IT IS NOT A POINTER
       270   02 000BA    4B4002AB              AND,XT   L(LPTRFLD)        POINTER CLEAN OFFSET
       271   02 000BB    683000D6              BEZ      EXTSKIP           OFFSET = 0, SYMBOL = COMMAND
       272   02 000BC    B2480037 03           LW,XT    *SYMT,XT          GET SYMBOL VALUE
       273   02 000BD                 EXTSUM10 RES      0
       274   02 000BD    454002AC              CS,XT    =DEFEXT           IS IT AN EXTERNAL
       275   02 000BE    691000D6              BL       EXTSKIP           NO
       276   02 000BF    4B500004 A            AND,XT1  XT                GET EXT VALUE
       277   02 000C0    2550020C A            SHIFT,XT1  EXTLOB,29       FORM BYTE POINTER TO EXTERNAL NAME
       278   02 000C1    35500090 04           STW,XT1  SYMSIZE             AND SAVE IT
       279   02 000C2    6A700291              BAL,RL   SYMCT             GET NUMBER OF CHARACTERS IN
       280   02 000C3    20400004 A            AI,XT    4                   FIELD AND OUTPUT A LINE IF
       281   02 000C4    6A700296              BAL,RL   TESTOV              FIELD EXCEEDS LIST BUFFER
       282   02 000C5    6A70021C              BAL,RL   MOVESYM           MOVE SYMBOL TO LIST BUFFER
       283   02 000C6    32400066 04           LW,XT    ARG               IF THIS SYMBOL
       284   02 000C7    31400038 03           CW,XT    1STDEF              IS THE
       285   02 000C8    693000CD              BNE      EXTSUM12            FIRST DEF,
       286   02 000C9    206FFFFF A            AI,LBX   -1                  CHANGE
       287   02 000CA    2240005C A            LI,XT    '*'                 THE '-'
       288   02 000CB    754C0000 X            STB,XT   LSTBF,LBX           TO
       289   02 000CC    20600001 A            AI,LBX   1                   AN '*'
       290   02 000CD                 EXTSUM12 RES      0
       291   02 000CD    32500090 04           LW,XT1   SYMSIZE
       292   02 000CE    22400004 A            LI,XT    4
       293   02 000CF                 EXTSUM15 RES      0
       294   02 000CF    727A004D              LB,RL    EXTNAME-1,XT1     MOVE EXTERNAL TYPE
       295   02 000D0    757C0000 X            STB,RL   LSTBF,LBX           TO THE LIST BUFFER
       296   02 000D1    20500001 A            AI,XT1   1
       297   02 000D2    20600001 A            AI,LBX   1
       298   02 000D3    644000CF              BDR,XT   EXTSUM15
       299   02 000D4    6A70026E              BAL,RL   SETPP             SET NEXT PRINT POSITION
       300   02 000D5    680000B4              B        EXTSUM5
       301   02 000D6                 EXTSKIP  RES      0
       302   02 000D6    6A700288              BAL,RL   SKIPSYM           SKIP SYMBOL
       303   02 000D7    680000B4              B        EXTSUM5           CONTINUE
       304   02 000D8                 EXTSUM20 RES      0
       305   02 000D8    6A70029B              BAL,RL   WRITEC            WRITE A LINE IF THERE IS ONE
       306                            *
       307                            *    U N D S U M
       308                            *
       309   02 000D9                 UNDSUM   RES      0
       310   02 000D9    3310006A 04           MTW,1    DOFLAG            SET TO WRITE ON 'DO'
       311   02 000DA    22400017              LI,XT    UNDHEAD           NO
       312   02 000DB    6A700213              BAL,RL   MOVEHD            MOVE HEADING TO LIST BUFFER
       313   02 000DC    33000000 X            MTW,0    SD%FLAG           'SD' SPECIFIED?
       314   02 000DD    693000E2              BNEZ     UNDSUM05          YES, SYMBOL TABLE WAS READ
       315                            *
       316   02 000DE    33000000 X            MTW,0    NS%FLAG           NO SUMMARIES
       317   02 000DF    693000EA              BNEZ     UNDSUM15          YES, MUST READ SYMBOL TABLE
       318   02 000E0    33000000 X            MTW,0    LO%FLAG           WAS 'LO' SPECIFIED
       319   02 000E1    683000EA              BEZ      UNDSUM15          NO, MUST READ SYMBOL TABLE
       320                            *
       321   02 000E2                 UNDSUM05 RES      0
       322   02 000E2    33000072 04           MTW,0    NUMUND            NO, ARE THERE ANY UNDEFINES
       323   02 000E3    693000E7              BNEZ     UNDSUM10          YES
       324   02 000E4    6A700235              BAL,RL   PUT%NO%           MOVE 'NO' TO HEADING
       325   02 000E5    6A70029D              BAL,RL   WRITE             WRITE HEADING
       326   02 000E6    68000108              B        ERRORSUM          GO DO ERROR SUMMARIES
       327   02 000E7                 UNDSUM10 RES      0
       328   02 000E7    3A90002E 03           LCW,IOSIZE  TEXTCT         NUMBER OF RECORDS READ
       329   02 000E8    6690002E 03           AWM,IOSIZE  TEXTCT         CLEAR NUM OF RECORDS
       330   02 000E9    6AA00000 X            BAL,IORL  POSITIONX1       BACKSPACE TO START OF TABLE
       331   02 000EA                 UNDSUM15 RES      0
       332   02 000EA    2260000A A            LI,LBX   10                STARTING PRINT POSITION
       333   02 000EB    2240000F A            LI,XT    15                COLUMN SIZE
       334   02 000EC    2250005A A            LI,XT1   90                MAXIMUM PRINT POSITION
       335   02 000ED    6A700281              BAL,RL   SETUP%PP          SET UP PRINT POSITIONS
       336   02 000EE    2260006A A            LI,LBX   106               FORCE OUT HEADING BEFORE 1ST SYMBOL
       337   02 000EF    6A700238              BAL,RL   READSYM           READ FIRST RECORD
       338   02 000F0    22100040 A            LI,XS    ' '
       339   02 000F1                 UNDSUM20 RES      0
       340   02 000F1    6A7001FA              BAL,RL   GETSYM            GET NEXT SYMBOL
       341   02 000F2    68000104              B        UNDSUM25          FINISHED
       342   02 000F3    B2480037 03           LW,XT    *SYMT,XT          GET SYMBOL VALUE
       343   02 000F4    691000F8              BLZ      UNDSUM22          ITS NOT A POINTER
       344   02 000F5    4B4002AB              AND,XT   L(LPTRFLD)        POINTER, CLEAN OFFSET
       345   02 000F6    68300102              BEZ      UNDSKIP           OFFSET = 0,SKIP
       346   02 000F7    B2480037 03           LW,XT    *SYMT,XT          GET SYMBOL VALUE
       347   02 000F8                 UNDSUM22 RES      0
       348   02 000F8    314002AE              CV,XT    SPAFLD            IS THIS SYMBOL UNREFERENCED
       349   02 000F9    68300102              BE       UNDSKIP           YES
       350   02 000FA    314002AD              CV,XT    DEFFLD            IS SYMBOL UNDEFINED
       351   02 000FB    69400102              BANZ     UNDSKIP           NO
       352   02 000FC    33100072 04           MTW,1    NUMUND            COUNT NUMBER OF UNDEFINES
       353   02 000FD    6A700291              BAL,RL   SYMCT             OUTPUT LIST BUFFER IF THIS FIELD
       354   02 000FE    6A700296              BAL,RL   TESTOV              WILL NOT FIT IN BUFFER
       355   02 000FF    6A70021C              BAL,RL   MOVESYM           MOVE SYMBOL TO LIST BUFFER
       356   02 00100    6A70026E              BAL,RL   SETPP             SET NEXT PRINT POSITION
       357   02 00101    680000F1              B        UNDSUM20
       358   02 00102                 UNDSKIP  RES      0
       359   02 00102    6A700288              BAL,RL   SKIPSYM           SKIP SYMBOL
       360   02 00103    680000F1              B        UNDSUM20          CONTINUE
       361   02 00104                 UNDSUM25 RES      0
       362   02 00104    33000072 04           MTW,0    NUMUND            BRANCH IF THERE WERE ANY
       363   02 00105    69300107              BNEZ     UNDSUM30            UNDEFINED SYMBOLS
       364   02 00106    6A700235              BAL,RL   PUT%NO%           PUT 'NO' IN HEADING
       365   02 00107                 UNDSUM30 RES      0
       366   02 00107    6A70029B              BAL,RL   WRITEC            WRITE A LINE IF THERE IS ONE
       367                            *
       368                            *    E R R O R S U M
       369                            *
       370   02 00108                 ERRORSUM RES      0
       371   02 00108    33000007 03           MTW,0    SOCW%FLG
       372         001F0000                    IF,EZ                      DON'T BOTHER W/ SEVERITY IF SOCW
             02 00109    69300110
       373   02 0010A    7240001A 03           LB,XT    MAXSEV            GET ERROR SEVERITY
       374   02 0010B    20400E00 A            AI,XT    X'0E00'           END MODULE LOAD ITEM CODE
       375   02 0010C    3540007F 04           STW,XT   HEADADDR
       376   02 0010D    22800002 A            LI,NBYTES 2                NUMBER OF BYTES TO OUTPUT
       377   02 0010E    225001FE 04           LI,XT1   BA(HEADADDR)+2    ADDRESS OF 1ST BYTE TO OUTPUT
       378   02 0010F    6A700000 X            BAL,RL   BEDIT             OUTPUT MODULE END AND SEVERITY
       379         00F10000                    FI
       380   02 00110    22800000 A            LI,NBYTES   0
       381   02 00111    22500ABC              LI,XT1   BA(L(0))
       382   02 00112    6A700152              BAL,RL   BEDITEND          TERMINATE LAST BO RECORD
       383   02 00113    2240001E              LI,XT    ERRHEAD
       384   02 00114    6A700213              BAL,RL   MOVEHD            MOVE HEADING TO LIST BUFFER
       385   02 00115    3240001A 03           LW,XT    MAXSEV            GET ERROR SEVERITY
       386   02 00116    25400078 A            SLS,XT   -8
       387   02 00117    494002B0              OR,XT    L(X'40F04040')    CONVERT TO EBCDIC
       388   02 00118    314002B1              CW,XT    L(X'40F94040')    IS SEVERITY LEVEL > 9
       389   02 00119    6820011B              BLE      %+2               NO
       390   02 0011A    384002B2              SW,XT    L(X'390000')      YES, CONVERT INTO A-F
       391   02 0011B    35400007 N            STW,XT   LSTBF+7           STORE IN LIST BUFFER
       392   02 0011C    6A70029D              BAL,RL   WRITE             WRITE HEADING
       393   02 0011D    3300001C 03           MTW,0    NERRS             ANY ERRORS
       394   02 0011E    6830013F              BEZ      ERRORS20          NO
       395   02 0011F    22400026              LI,XT    LINEHEAD
       396   02 00120    6A700213              BAL,RL   MOVEHD            MOVE HEADING TO LIST BUFFER
       397   02 00121    32500018 03           LW,XT1   MAJERRLN          GET MAJOR ERROR LINE NUMBER
       398   02 00122    4B5002B3              AND,XT1  L(MAJERRFLD)      SCRUB POSSIBLE SYSLEVEL           *D-END
       399   02 00123    6A700000 X            BAL,RL   CTCHRS            COUNT NUMBER OF CHARACTERS
       400   02 00124    30600004 A            AW,LBX   XT
       401   02 00125    35600001 A            STW,LBX  XS
       402   02 00126    206FFFFF A            AI,LBX   -1
       403   02 00127    6A700000 X            BAL,RL   DEDIT             EDIT TO LO BUFFER
       404   02 00128    3250002B 03           LW,XT1   SUBERRLN          IS THERE A SUB ERROR LINE
       405   02 00129    68300132              BEZ      ERRORS10          NO
       406   02 0012A    32600001 A            LW,LBX   XS                YES
       407   02 0012B    2210004B A            LI,XS    '.'               STORE A '.'
       408   02 0012C    751C0000 X            STB,XS   LSTBF,LBX           IN THE LIST BUFFER
       409   02 0012D    6A700000 X            BAL,RL   CTCHRS            COUNT CHARS IN SUB LINE
       410   02 0012E    30600004 A            AW,LBX   XT                CALCULATE START OF MINOR LINE NUMBER
       411   02 0012F    35600001 A            STW,LBX  XS                                                  *D-END
       412   02 00130    20100001 A            AI,XS    +1                                                  *D-END
       413   02 00131    6A700000 X            BAL,RL   DEDIT             EDIT TO LO BUFFER
       414   02 00132                 ERRORS10 RES      0
       415   02 00132    72400018 03           LB,XT    MAJERRLN          SEE IF LAST ERROR WAS             *D-END
       416         001F0000                    IF,NZ                        WITHIN SYSTEM.                  *D-END
             02 00133    68300136
       417   02 00134    204000C0 A            AI,XT    'A'-1             'TWAS                             *D-END
       418   02 00135    75420000 X            STB,XT   LSTBF,XS                                            *D-END
       419         00F10000                    FI                                                           *D-END
       420   02 00136    6A70029D              BAL,RL   WRITE             WRITE HEADING
       421   02 00137    2240002D              LI,XT    NUMHEAD
       422   02 00138    6A700213              BAL,RL   MOVEHD            MOVE HEADING TO LIST BUFFER
       423   02 00139    3250001C 03           LW,XT1   NERRS             GET NUMBER OF ERROR LINES
       424   02 0013A    6A700000 X            BAL,RL   CTCHRS            COUNT CHARS
       425   02 0013B    30600004 A            AW,LBX   XT
       426   02 0013C    6A700000 X            BAL,RL   DEDIT             EDIT NUMBER OF ERRORS
       427   02 0013D    6A70029D              BAL,RL   WRITE             WRITE HEADING
       428   02 0013E    68000144              B        ERROR30
       429   02 0013F                 ERRORS20 RES      0
       430   02 0013F    7300001A 03           MTB,0    MAXSEV            DON'T OUTPUT 'NO ERROR' HEADING
       431   02 00140    69300144              BNEZ     ERROR30             IF SEVERITY IS NON-ZERO
       432   02 00141    22400036              LI,XT    NERRHEAD
       433   02 00142    6A700213              BAL,RL   MOVEHD            MOVE HEADING TO LIST BUFFER
       434   02 00143    6A70029D              BAL,RL   WRITE             WRITE 'NO ERROR' HEADING
       435   02 00144                 ERROR30  RES      0
       436   02 00144    32500000 X            LW,XT1   UPDT%ERROR        IF THERE ARE NO UPDATE ERRORS,
       437   02 00145    6830014C              BEZ      ERROR40             CHECK CONTROL SECTIONS
       438   02 00146    2240003C              LI,XT    UPDTHEAD
       439   02 00147    6A700213              BAL,RL   MOVEHD            MOVE HEADING TO LIST BUFFER
       440   02 00148    6A700000 X            BAL,RL   CTCHRS            COUNT CHARS
       441   02 00149    30600004 A            AW,LBX   XT                POSITION FOR RIGHT MOST DIGIT
       442   02 0014A    6A700000 X            BAL,RL   DEDIT             EDIT NUMBER OF UPDATE ERRORS
       443   02 0014B    6A70029D              BAL,RL   WRITE             WRITE HEADING
       444   02 0014C                 ERROR40  RES      0
       445   02 0014C    73000068 04           MTB,0    CSSUBXIT          IF THERE ARE NO CONTROL SECTION
       446   02 0014D    E8300000 X            BEZ      *ROOTRTN            SIZE ERRORS, RETURN TO THE ROOT
       447   02 0014E    22400045              LI,XT    CSERRHEAD         ADDRESS OF HEADING
       448   02 0014F    73100004 A            MTB,1    XT                INDICATE PROCESSING CS ERRORS
       449   02 00150    6A700160              BAL,RL   CSSUB             CONTROL SECTION ERROR SUMMARY
       450   02 00151    E8000000 X            B        *ROOTRTN          RETURN TO THE ROOT
1
       452                            *
       453                            *   HERE TO FORCE OUT LAST BO RECORD
       454   02 00152                 BEDITEND RES      0
       455   02 00152    32400000 X            LW,XT    BO%FLAG           EXIT IF NO OUTPUT IS SPECIFIED
       456   02 00153    30400000 X            AW,XT    GO%FLAG             FOR BOTH 'BO' AND 'GO'
       457   02 00154    683E0000 A            EXIT,EQ  RL
       458                            *
       459   02 00155    33000007 03           MTW,0    SOCW%FLG
       460         001F0000                    IF,EZ                      DON'T CLOBBER DATA UNDER SOCW
             02 00156    69300159
       461   02 00157    2240001C A            LI,XT    X'1C'             SET RECORD TYPE BYTE TO LAST RECORD,
       462   02 00158    75400020 04           STB,XT   BOBUF               MODE= BINARY, & FORMAT= OBJECT
       463         00F10000                    FI
       464   02 00159    32400030 03           LW,XT    BOCT
       465   02 0015A                 BEDIT9   RES      0
       466   02 0015A    75880020 04           STB,NBYTES  BOBUF,XT       STORE ZEROS IN
       467   02 0015B    20400001 A            AI,XT    1                   THE UNUSED
       468   02 0015C    31400031 03           CW,XT    BOMAX               PORTION OF
       469   02 0015D    6910015A              BL       BEDIT9              THE BO BUFFER
       470   02 0015E    32400030 03           LW,XT    BOCT              PICK UP THE BO COUNT
       471   02 0015F    68000000 X            B        BEDIT4            FORCE THE LAST RECORD OUT
1
       473                            *
       474                            *   C S S U B
       475                            *        THIS SUBROUTINE PRODUCES THE CONTROL SECTION SUMMARY.
       476                            *
       477                            *        INPUT:   REGISTER XT CONTAINS THE ADDRESS OF THE HEADING
       478                            *                   TO BE PRINTED, AND A FLAG IN BYTE 0; 0 PRODUCES
       479                            *                   A CONTROL SECTION SUMMARY, 1 PRODUCES A CONTROL
       480                            *                   SECTION ERROR SUMMARY.
       481                            *
       482                            *        OUTPUT:  BYTE 0 OF CSSUBXIT CONTAINS A FLAG WHICH IS SET
       483                            *                   IF CSSUB IS PRODUCING A CONTROL SECTION SUMMARY;
       484                            *                   0 IF NO CONTROL SECTIONS HAVE SIZE INCONSISTENCIES,
       485                            *                   1 IF ANY HAVE SIZE ERRORS.
       486                            *
       487   02 00160                 CSSUB    RES      0
       488   02 00160    35700068 04           STW,RL   CSSUBXIT          SAVE RETURN ADDRESS
       489   02 00161    6A700213              BAL,RL   MOVEHD            MOVE HEADING TO LIST BUFFER
       490   02 00162    22400014 A            LI,XT    20                COLUMN SIZE
       491   02 00163    2250003C A            LI,XT1   60
       492   02 00164    30500006 A            AW,XT1   LBX               MAXIMUM PRINT POSITION
       493   02 00165    6A700281              BAL,RL   SETUP%PP          SET UP PRINT POSITIONS
       494   02 00166    22400000 A            LI,XT    0
       495   02 00167    35400087 04           STW,XT   NEXTCS            BEGIN WITH CONTROL SECTION ONE
       496   02 00168                 CSSUB1   RES      0
       497   02 00168    33100087 04           MTW,1    NEXTCS            INCREMENT CONTROL SECTION NUMBER
       498   02 00169    32100087 04           LW,XS    NEXTCS            GET NEXT CONTROL SECTION NUMBER
       499   02 0016A    31100019 03           CW,XS    MAXCSECT
       500   02 0016B    692001A6              BG       CSSUB5            BRANCH IF DONE
       501                            *
       502                            *        (LBX IS XT2...IS A ROSE IS A ROSE...)
       503   02 0016C    46100006 A            XW,XS    XT2               INPUT REGISTER FOR 'GETCSADD'
       504   02 0016D    6A700000 X            BAL,RL   GETCSADD          GET ADDRESS OF CONTROL SECTION
       505   02 0016E    46100006 A            XW,XS    XT2
       506   02 0016F    32420001 A            LW,XT    MAXDD,XS          GET MAXDD FOR GEN PASS
       507   02 00170    2257FFFF A            LV,XT1   MAXDDFLD          MASK FOR MAXDD FIELD
       508   02 00171    45420002 A            CS,XT    MAXDD+1,XS        BRANCH IF CONTROL SECTION SIZE
       509   02 00172    68300180              BE       CSSUB2              IS THE SAME FOR BOTH PASSES
       510   02 00173    69200179              BG       CSSUB6            MORE IN GEN PASS IS AN ERROR
       511   02 00174    32500087 04           LW,XT1   NEXTCS
       512   02 00175    31500001 03           CW,XT1   LITCS             ERROR IF THIS IS NOT THE
       513   02 00176    69300179              BNE      CSSUB6              LITERAL CONTROL SECTION
       514   02 00177    33000005 03           MTW,0    NLITS             NOT AN ERROR IF GEN PASS NEEDS
       515   02 00178    69300180              BNE      CSSUB2              LESS SPACE FOR LITERALS
       516   02 00179                 CSSUB6   RES      0
       517   02 00179    7300007F 04           MTB,0    HEADADDR
       518   02 0017A    69300183              BNEZ     CSSUB3            PROCESSING CS ERRORS
       519   02 0017B    73100068 04           MTB,1    CSSUBXIT          INDICATE CONTROL SECTION ERROR
       520   02 0017C    22400007 A            LI,XT    7                 SEVERITY FOR THIS ERROR IS 7
       521   02 0017D    7140001A 03           CB,XT    MAXSEV
       522   02 0017E    68200180              BLE      CSSUB2            SEVERITY FOR THIS ERROR IS NOT MAX
       523   02 0017F    7540001A 03           STB,XT   MAXSEV            UPDATE MAXIMUM SEVERITY
       524   02 00180                 CSSUB2   RES      0
       525   02 00180    7300007F 04           MTB,0    HEADADDR
       526   02 00181    69300168              BNEZ     CSSUB1            PROCESSING CS ERRORS
       527   02 00182    32420002 A            LW,XT    MAXDD+1,XS        GET MAXDD FOR DEF PASS
       528   02 00183                 CSSUB3   RES      0
       529   02 00183    35400065 04           STW,XT   BYTEOFFSET        SAVE CONTROL SECTION SIZE
       530   02 00184    32500087 04           LW,XT1   NEXTCS            GET CONTROL SECTION NUMBER
       531   02 00185    75500005 A            STB,XT1  XT1               LEFT ADJUST
       532   02 00186    22800002 A            LI,NBYTES 2
       533   02 00187    6A700000 X            BAL,RL   XEDIT             EDIT CONTROL SECTION NUMBER
       534   02 00188    20600001 A            AI,LBX   1
       535   02 00189    32500065 04           LW,XT1   BYTEOFFSET        GET CONTROL SECTION SIZE
       536   02 0018A    22400000 A            LI,XT    0
       537   02 0018B    4B5002B4              AND,XT1  =MAXDDFLD         CLEAN CONTROL SECTION SIZE
       538   02 0018C    2540037E A            SCD,XT   -2                CONVERT TO WORD SIZE
       539   02 0018D    35400065 04           STW,XT   BYTEOFFSET        SAVE BYTE OFFSET
       540   02 0018E    2550000C A            SLS,XT1  12                LEFT ADJUST
       541   02 0018F    22800005 A            LI,NBYTES 5
       542   02 00190    6A700000 X            BAL,RL   XEDIT             EDIT CONTROL SECTION SIZE
       543   02 00191    20600001 A            AI,LBX   1
       544   02 00192    32500065 04           LW,XT1   BYTEOFFSET
       545   02 00193    68300198              BEZ      CSSUB4            DON'T PRINT A ZERO OFFSET
       546   02 00194    2550007E A            SLS,XT1  -2
       547   02 00195    22800001 A            LI,NBYTES 1
       548   02 00196    6A700000 X            BAL,RL   XEDIT             EDIT BYTE OFFSET
       549   02 00197    206FFFFF A            AI,LBX   -1
       550   02 00198                 CSSUB4   RES      0
       551   02 00198    20600002 A            AI,LBX   2
       552   02 00199    225000D7 A            LI,XT1   'P'               MOVE
       553   02 0019A    755C0000 X            STB,XT1  LSTBF,LBX              'PT'
       554   02 0019B    20600001 A            AI,LBX   1                           TO
       555   02 0019C    225000E3 A            LI,XT1   'T'                            LIST
       556   02 0019D    755C0000 X            STB,XT1  LSTBF,LBX                           BUFFER
       557   02 0019E    20600002 A            AI,LBX   2
       558   02 0019F    32520000 A            LW,XT1   PT,XS             GET PROTECTION TYPE
       559   02 001A0    4B5002AA              AND,XT1  =PTFLD            CLEAN IT
       560   02 001A1    25500006 A            SHIFT,XT1 PTLOB,3          LEFT ADJUST
       561   02 001A2    22800001 A            LI,NBYTES 1
       562   02 001A3    6A700000 X            BAL,RL   XEDIT             EDIT PROTECTION TYPE
       563   02 001A4    6A70026E              BAL,RL   SETPP             SET NEXT PRINT POSITION
       564   02 001A5    68000168              B        CSSUB1
       565   02 001A6                 CSSUB5   RES      0
       566   02 001A6    6A70029B              BAL,RL   WRITEC            WRITE A LINE IF THERE IS ONE
       567   02 001A7    E8000068 04           B        *CSSUBXIT         EXIT
1
       569                            *
       570                            *  E D I T V A L
       571                            *        EDIT A VALUE ITEM INTO THE LIST BUFFER.
       572                            *
       573                            *          INPUT: ARG POINTS TO THE VALUE ITEM
       574                            *                 DD%TYPE CONTAINS ITEM'S TYPE
       575                            *                 LBX CONTAINS LIST BUFFER INDEX
       576                            *
       577                            *        OUTPUT:  THE VALUE IS EDITED INTO THE LIST BUFFER AS:
       578                            *                 A) AN 8 DIGIT VALUE ITEM IF AN SP BINARY INTEGER
       579                            *                 B) AN ADDRESS IF IT'S A NON-EXTERNAL
       580                            *                 C) FX,FS,FL,EXT,D,DPI,OR LFR AS APPROPRIATE
       581                            *
       582   02 001A8                 EDITVAL  RES      0
       583   02 001A8    35700076 04           STW,RL   EDITDXIT          SAVE EXIT ADDRESS
       584   02 001A9    32400060 04           LW,XT    DD%TYPE           GET ITEM'S TYPE
       585   02 001AA    25400205 A            SHIFT,XT ETLOB,31          RIGHT ADJUST TYPE
       586   02 001AB    724801B0              LB,XT    EDITVTBL,XT
       587   02 001AC    22100001 A            LI,XS    1
       588   02 001AD    32700066 04           LW,XT3   ARG               ADDRESS OF ARGUMENT
       589   02 001AE    325E0000 A            LW,XT1   0,XT3             GET ITEM
       590   02 001AF    680801B5              B        EDITVJMP,XT       BRANCH ON ITEM'S TYPE
       591                            *
       592                            EJ       COM,8    AF-EDITVJMP
       593   02 001B0                 EDITVTBL RES      0
       594   02 001B0    2E       A            EJ       EDITV10           UNDEFINED
       595   02 001B0 1  00       A            EJ       EDITV2            SPECIAL ADDRESS
       596   02 001B0 2  2E       A            EJ       EDITV10           SPECIAL EXTERNAL
       597   02 001B0 3  06       A            EJ       EDITV3            SIMPLE ADDRESS
       598   02 001B1    1D       A            EJ       EDITV5            SUM
       599   02 001B1 1  2E       A            EJ       EDITV10           EXTERNAL
       600   02 001B1 2  2E       A            EJ       EDITV10           LOCAL FORWARD
       601   02 001B1 3  2E       A            EJ       EDITV10           LOCAL FORWARD AND HOLD
       602   02 001B2    2E       A            EJ       EDITV10           ONE WORD ADDRESS
       603   02 001B2 1  27       A            EJ       EDITV8            SPECIAL INTEGER
       604   02 001B2 2  2C       A            EJ       EDITV9            BLANK
       605   02 001B2 3  22       A            EJ       EDITV6            INTEGER
       606   02 001B3    2E       A            EJ       EDITV10           PACKED DECIMAL
       607   02 001B3 1  2E       A            EJ       EDITV10           TEXT
       608   02 001B3 2  2E       A            EJ       EDITV10           FX
       609   02 001B3 3  2E       A            EJ       EDITV10           FS
       610   02 001B4    2E       A            EJ       EDITV10           FL
       611   02 001B4 1  2E       A            EJ       EDITV10           DPI
       612   02 001B4 2  2E       A            EJ       EDITV10           LIST
       613   02 001B4 3  2E       A            EJ       EDITV10           FUNCTION
       614                                     BOUND    4
       615                            *
       616   02 001B5                 EDITVJMP RES      0
       617                            *   HERE FOR SPECIAL ADDRESS
       618   02 001B5                 EDITV2   RES      0
       619   02 001B5    2241FFFF A            LV,XT    ADDFLD            MASK FOR ADD FIELD
       620   02 001B6    4B400005 A            AND,XT   XT1               ADD FIELD AT INTRINSIC RESOLUTION
       621   02 001B7    327002B5              LV,RL    CSFLD             MASK FOR CS FIELD
       622   02 001B8    4B700005 A            AND,RL   XT1
       623   02 001B9    25700007 A            SHIFT,RL CSLOB,7           LEFT ADJUST CONTROL SECTION #
       624   02 001BA    680001BF              B        EDITV4
       625                            *   HER FOR SIMPLE ADDRESS
       626   02 001BB                 EDITV3   RES      0
       627   02 001BB    324E0001 A            LW,XT    1,XT3             GET OFFSET AND CONTROL SECTION
       628   02 001BC    327002B6              LV,RL    FCSFLD            MASK FOR FCS FIELD
       629   02 001BD    4B700004 A            AND,RL   XT
       630   02 001BE    25700002 A            SHIFT,RL FCSLOB,7          LEFT ADJUST CONTROL SECTION #
       631   02 001BF                 EDITV4   RES      0
       632   02 001BF    25500208 A            SHIFT,XT1 ARLOB,31         RIGHT ADJUST AR FIELD
       633   02 001C0    4B5002B7              AND,XT1  =3
       634   02 001C1    254A0200 A            SCS,XT   0,XT1             SHIFT OFFSET TO BYTE RESOLUTION
       635   02 001C2    354000B8 04           STW,XT   TX1                 AND SAVE IN TEMP
       636   02 001C3    32500007 A            LW,XT1   RL                LOAD LEFT ADJUSTED CONTROL SECTION #
       637   02 001C4    22800002 A            LI,NBYTES 2
       638   02 001C5    6A700000 X            BAL,RL   XEDIT             OUTPUT CONTROL SECTION AS 2 DIGITS
       639   02 001C6    20600001 A            AI,LBX   1                 LEAVE A BLANK COLUMN IN LSTBF
       640   02 001C7    325000B8 04           LW,XT1   TX1
       641   02 001C8    2550000A A            SLS,XT1  10                LEFT ADJUST WORD OFFSET FOR XEDIT
       642   02 001C9    22800005 A            LI,NBYTES 5
       643   02 001CA    6A700000 X            BAL,RL   XEDIT             OUTPUT WORD OFFSET AS 5 DIGITS
       644   02 001CB    20600001 A            AI,LBX   1                 LEAVE A BLANK COLUMN IN LSTBF
       645   02 001CC    325000B8 04           LW,XT1   TX1
       646   02 001CD    4B5002B7              AND,XT1  =3
       647   02 001CE    E8300076 04           BEZ      *EDITDXIT         EXIT IF NO BYTE OFFSET
       648   02 001CF    6A700000 X            BAL,RL   DEDIT             OUTPUT BYTE OFFSET IF NON-ZERO
       649   02 001D0    20600003 A            AI,LBX   3                   AND LEAVE A BLANK FOLLOWING IT
       650   02 001D1    E8000076 04           B        *EDITDXIT         EXIT
       651                            *   HERE FOR SUM
       652   02 001D2                 EDITV5   RES      0
       653   02 001D2    20600009 A            AI,LBX   9                 SKIP OVER 9 BYTES
       654   02 001D3    225000E2 A            LI,XT1   'S'
       655   02 001D4    755C0000 X            STB,XT1  LSTBF,LBX         OUTPUT A SUM INDICATOR
       656   02 001D5    206FFFF7 A            AI,LBX   -9                BACK UP 9 BYTES
       657   02 001D6    22100003 A            LI,XS    3
       658                            *   HERE FOR INTEGER
       659   02 001D7                 EDITV6   RES      0
       660   02 001D7    325E0001 A            LW,XT1   1,XT3             LOAD WORD FOLLOWING CONTROL WORD
       661   02 001D8                 EDITV7   RES      0
       662   02 001D8    22800008 A            LI,NBYTES 8
       663   02 001D9    6A700000 X            BAL,RL   XEDIT             OUTPUT 8 HEX DIGITS
       664   02 001DA    30600001 A            AW,LBX   XS                LEAVE A BLANK AFTER LAST CHAR
       665   02 001DB    E8000076 04           B        *EDITDXIT         EXIT
       666                            *   HERE FOR SPECIAL INTEGER
       667   02 001DC                 EDITV8   RES      0
       668   02 001DC    315002B8              BFNZ,XT1,1  CCFLD,EDITV10  BRANCH IF SPECIAL INTEGER TEXT
             02 001DD    694001E3
       669   02 001DE    324002B9              LV,XT    VALFLD            MASK FOR VAL FIELD
       670   02 001DF    4B500004 A            AND,XT1  XT
       671   02 001E0    680001D8              B        EDITV7
       672                            *   HERE FOR BLANK ITEM
       673   02 001E1                 EDITV9   RES      0
       674   02 001E1    22500000 A            LI,XT1   0                 OUTPUT A ZERO
       675   02 001E2    680001D8              B        EDITV7
       676                            *   HERE FOR UNDEFINED, SPECIAL EXTERNAL, EXTERNAL, LOCAL FORWARD,
       677                            *     LOCAL FORWARD & HOLD, ONE WORD ADDRESS, PACKED DECIMAL,
       678                            *     TEXT, FX, FS, FL, DPI, LIST, AND FUNCTION
       679   02 001E3                 EDITV10  RES      0
       680   02 001E3    32400060 04           LW,XT    DD%TYPE
       681   02 001E4    25400205 A            SHIFT,XT ETLOB,31          RIGHT ADJUST ITEM'S TYPE
       682   02 001E5    725801EA              LB,XT1   EDITVMSGTBL,XT
       683   02 001E6    205007BC              AI,XT1   BA(EDITVMSG)      BYTE ADDRESS OF TEXT MESSAGE
       684   02 001E7    22800004 A            LI,NBYTES 4
       685   02 001E8    6A700000 X            BAL,RL   AEDIT             OUTPUT A 4 CHARACTER MESSAGE
       686   02 001E9    E8000076 04           B        *EDITDXIT         EXIT
       687                            *
       688                            EM       COM,8    BA(AF)-BA(EDITVMSG)
       689   02 001EA                 EDITVMSGTBL  RES  0
       690   02 001EA    00       A            EM       UNDMSG            UNDEFINED
       691   02 001EA 1  00       A            EM       UNDMSG            SPECIAL ADDRESS
       692   02 001EA 2  04       A            EM       EXTMSG            SPECIAL EXTERNAL
       693   02 001EA 3  00       A            EM       UNDMSG            SIMPLE ADDRESS
       694   02 001EB    00       A            EM       UNDMSG            SUM
       695   02 001EB 1  04       A            EM       EXTMSG            EXTERNAL
       696   02 001EB 2  08       A            EM       LFRMSG            LOCAL FORWARD
       697   02 001EB 3  08       A            EM       LFRMSG            LOCAL FORWARD AND HOLD
       698   02 001EC    00       A            EM       UNDMSG            ONE WORD ADDRESS
       699   02 001EC 1  10       A            EM       TEXTMSG           SPECIAL INTEGER (TEXT)
       700   02 001EC 2  00       A            EM       UNDMSG            BLANK
       701   02 001EC 3  00       A            EM       UNDMSG            INTEGER
       702   02 001ED    0C       A            EM       DMSG              PACKED DECIMAL
       703   02 001ED 1  10       A            EM       TEXTMSG           TEXT
       704   02 001ED 2  14       A            EM       FXMSG             FX
       705   02 001ED 3  18       A            EM       FSMSG             FS
       706   02 001EE    1C       A            EM       FLMSG             FL
       707   02 001EE 1  20       A            EM       DPIMSG            DPI
       708   02 001EE 2  24       A            EM       LISTMSG           LIST
       709   02 001EE 3  28       A            EM       FUNCMSG           FUNCTION
       710                                     BOUND    4
       711                            *
       712   02 001EF                 EDITVMSG RES      0
       713   02 001EF    E4D5C440 A   UNDMSG   TEXT     'UND '
       714   02 001F0    C5E7E340 A   EXTMSG   TEXT     'EXT '
       715   02 001F1    D3C6D940 A   LFRMSG   TEXT     'LFR '
       716   02 001F2    C4404040 A   DMSG     TEXT     'D   '
       717   02 001F3    E3C5E7E3 A   TEXTMSG  TEXT     'TEXT'
       718   02 001F4    C6E74040 A   FXMSG    TEXT     'FX  '
       719   02 001F5    C6E24040 A   FSMSG    TEXT     'FS  '
       720   02 001F6    C6D34040 A   FLMSG    TEXT     'FL  '
       721   02 001F7    C4D7C940 A   DPIMSG   TEXT     'DPI '
       722   02 001F8    D3C9E2E3 A   LISTMSG  TEXT     'LIST'
       723   02 001F9    C6E4D5C3 A   FUNCMSG  TEXT     'FUNC'
1
       725                            *
       726                            *    G E T S Y M
       727                            *
       728   02 001FA                 GETSYM   RES      0
       729   02 001FA    3570007E 04           STW,RL   GETSYMRTN         SAVE RETURN LINK
       730   02 001FB                 GETSYM5  RES      0
       731   02 001FB    6A70022D              BAL,RL   NXT%ITEM          GET NEXT SYMBOL
       732   02 001FC    21408000 A            CV,XT    X'8000'           FINISHED
       733   02 001FD    E940007E 04           BANZ     *GETSYMRTN        YES
       734   02 001FE    21404000 A            CV,XT    CLOSEFLD          IS THIS SYMBOL CLOSED
       735         001F0000                    IF,AZ                      DOIF SYMBOL NOT CLOSED
             02 001FF    69400206
       736   02 00200    4B4002BA              AND,XT   L(VFLD)           CLEAN SYMBOL NUMBER
       737   02 00201    19400000              CLM,XT   RNG%SUM%EXCL
       738         001F0100                    IF,OL                      DOIF NOT S:IVAL, %, %%
             02 00202    68900206
       739   02 00203    354000AF 04           STW,XT   SD%TYPE           SAVE SYMBOL NO. FOR SD PROCESSING
       740   02 00204    3310007E 04           MTW,+1   GETSYMRTN         INCREMENT RETURN ADDRESS
       741   02 00205    E800007E 04           B        *GETSYMRTN
       742         00F10100                    FI
       743         00F10000                    FI
       744                            *
       745                            *        HERE TO BYPASS THIS SYMBOL
       746                            *
       747   02 00206    6A700288              BAL,RL   SKIPSYM           SKIP SYMBOL
       748   02 00207    680001FB              B        GETSYM5
1
       750                            *
       751                            *   G E T V S I Z E
       752                            *
       753   02 00208                 GETVSIZE RES      0
       754   02 00208    35700076 04           STW,RL   EDITDXIT          SAVE RETURN ADDRESS
       755   02 00209    B2500066 04           LW,XT1   *ARG              GET CONTROL WORD OF ITEM
       756   02 0020A    6A700000 X            BAL,RL   TYPE              DETERMINE TYPE OF ITEM
       757   02 0020B    25600205 A            SHIFT,XT2  ETLOB,31
       758   02 0020C    724C020E              LB,XT    VSIZETBL,XT2      GET NUMBER OF CHARACTERS FOR VALUE
       759   02 0020D    E8000076 04           B        *EDITDXIT
       760                            *
       761   02 0020E                 VSIZETBL RES      0
       762   02 0020E    04       A            DATA,1   4                 UNDEFINED
       763   02 0020E 1  0A       A            DATA,1   10                SPECIAL ADDRESS
       764   02 0020E 2  04       A            DATA,1   4                 SPECIAL EXTERNAL
       765   02 0020E 3  0A       A            DATA,1   10                SIMPLE ADDRESS
       766   02 0020F    0A       A            DATA,1   10                SUM
       767   02 0020F 1  04       A            DATA,1   4                 EXTERNAL
       768   02 0020F 2  04       A            DATA,1   4                 LOCAL FORWARD
       769   02 0020F 3  04       A            DATA,1   4                 LOCAL FORWARD AND HOLD
       770   02 00210    04       A            DATA,1   4                 ONE WORD ADDRESS
       771   02 00210 1  08       A            DATA,1   8                 SPECIAL INTEGER
       772   02 00210 2  08       A            DATA,1   8                 BLANK
       773   02 00210 3  08       A            DATA,1   8                 INTEGER
       774   02 00211    04       A            DATA,1   4                 PACKED DECIMAL
       775   02 00211 1  04       A            DATA,1   4                 TEXT
       776   02 00211 2  04       A            DATA,1   4                 FX
       777   02 00211 3  04       A            DATA,1   4                 FS
       778   02 00212    04       A            DATA,1   4                 FL
       779   02 00212 1  04       A            DATA,1   4                 DPI
       780   02 00212 2  04       A            DATA,1   4                 LIST
       781   02 00212 3  04       A            DATA,1   4                 FUNCTION
       782                                     BOUND    4
1
       784                            *
       785                            *    M O V E H D
       786                            *
       787   02 00213                 MOVEHD   RES      0
       788   02 00213    3540007F 04           STW,XT   HEADADDR          SAVE ADDRESS OF HEADING
       789   02 00214    32480000 A            LW,XT    0,XT              GET SIZE (IN BYTES) OF HEADING
       790   02 00215    20400003 A            AI,XT    3                 CONVERT NUMBER OF BYTES
       791   02 00216    2540007E A            SLS,XT   -2                  TO NUMBER OF WORDS
       792   02 00217                 MOVEHD1  RES      0
       793   02 00217    B268007F 04           LW,LBX   *HEADADDR,XT      MOVE
       794   02 00218    3569FFFF N            STW,LBX  LSTBF-1,XT          HEADING TO
       795   02 00219    64400217              BDR,XT   MOVEHD1             LIST BUFFER
       796   02 0021A    B260007F 04           LW,LBX   *HEADADDR         GET NEXT POSITION IN LIST BUFFER
       797   02 0021B    680E0000 A            EXIT     RL
1
       799                            *
       800                            *    M O V E S Y M
       801                            *
       802   02 0021C                 MOVESYM  RES      0
       803   02 0021C    35700073 04           STW,RL   MOVESYMRTN        SAVE RETURN
       804   02 0021D    6A70022D              BAL,RL   NXT%ITEM          GET CHAR COUNT AND FIRST CHAR
       805   02 0021E    35400005 A            STW,XT   XT1
       806   02 0021F    25500078 A            SLS,XT1  -8                RIGHT ADJUST CHARACTER COUNT
       807   02 00220                 MOVESYM1 RES      0
       808   02 00220    754C0000 X            STB,XT   LSTBF,LBX         STORE 2ND CHARACTER IN LIST BUFFER
       809   02 00221    20600001 A            AI,LBX   1                 INCREMENT LIST BUFFER INDEX
       810   02 00222    64500226              BDR,XT1  MOVESYM3          DECREMENT CHARACTER COUNT
       811   02 00223                 MOVESYM2 RES      0
       812   02 00223    751C0000 X            STB,XS   LSTBF,LBX         STORE SEPERATOR
       813   02 00224    20600001 A            AI,LBX   1                 INCREMENT LIST BUFFER INDEX
       814   02 00225    E8000073 04           B        *MOVESYMRTN       RETURN
       815   02 00226                 MOVESYM3 RES      0
       816   02 00226    6A70022D              BAL,RL   NXT%ITEM          GET NEXT 2 CHARACTERS
       817   02 00227    25400278 A            SCS,XT   -8
       818   02 00228    754C0000 X            STB,XT   LSTBF,LBX         STORE 1ST CHARACTER IN LIST BUFFER
       819   02 00229    20600001 A            AI,LBX   1                 INCREMENT LIST BUFFER INDEX
       820   02 0022A    25400208 A            SCS,XT   8
       821   02 0022B    64500220              BDR,XT1  MOVESYM1          DECREMENT CHARACTER COUNT
       822   02 0022C    68000223              B        MOVESYM2
1
       824                            *
       825                            *    N X T % I T E M
       826                            *
       827   02 0022D                 NXT%ITEM RES      0
       828   02 0022D    35700089 04           STW,RL   NXT%ITEMRTN       SAVE RETURN ADDRESS
       829   02 0022E    21200000 N            CI,XW    HWX1SIZE
       830   02 0022F    69100231              BL       NXT%ITM5          BRANCH IF NOT END OF RECORD
       831   02 00230    6A700238              BAL,RL   READSYM           READ NEXT RECORD
       832   02 00231                 NXT%ITM5 RES      0
       833   02 00231    52440000 X            LH,XT    X1BUF,XW          GET NEXT ITEM
       834   02 00232    4B4002AB              AND,XT   =X'FFFF'          CLEAN IT
       835   02 00233    20200001 A            AI,XW    1                 INCREMENT INDEX
       836   02 00234    E8000089 04           B        *NXT%ITEMRTN      RETURN
1
       838                            *
       839                            *    P U T % N O %
       840                            *
       841   02 00235                 PUT%NO%  RES      0
       842   02 00235    2240D5D6 A            LI,XT    'NO'              STORE 'NO' IN CHARACTER POSITIONS
       843   02 00236    55400001 N            STH,XT   LSTBF+1             5 AND 6 OF THE LIST BUFFER
       844   02 00237    680E0000 A            EXIT     RL                RETURN
1
       846                            *
       847                            *    R E A D S Y M
       848                            *
       849   02 00238                 READSYM  RES      0
       850   02 00238    3310002E 03           MTW,1    TEXTCT            BUMP RECORD COUNT
       851   02 00239    6AA00000 X            BAL,IORL READX1            READ NEXT RECORD
       852   02 0023A    22200000 A            LI,XW    0                 INITIALIZE X1BUF INDEX
       853   02 0023B    680E0000 A            EXIT     RL                RETURN
1
       855                            *
       856                            *   S D E D I T
       857                            *        IF THE 'SD' OPTION IS IN EFFECT, EDIT TYPE INFORMATION
       858                            *           INTO THE BINARY FILE FOR THE CURRENT GLOBAL SYMBOL.
       859                            *
       860   02 0023C                 SDEDIT   RES      0
       861   02 0023C    33000000 X            MTW,0    SD%FLAG
       862   02 0023D    683E0000 A            EXIT,EQ  RL
       863                            *
       864   02 0023E    33000007 03           MTW,0    SOCW%FLG
       865   02 0023F    693E0000 A            EXIT,NZ                    NO SD CODES UNDER SOCW CONTROL
       866                            *
       867                            *        THIS TEST IS NOT TOO CLEAN, BUT IS SIMPLY ONE
       868                            *           WAY OF SAYING, 'IF THE SYMBOL IS DEF'ED - SKIP
       869                            *           IT HERE;  IT WAS OUTPUT AT THE END OF THE DEF PASS
       870                            *           IN 'DGINT'. (COULD JUST AS WELL TEST 'EXT' FIELD
       871                            *           BY GOING THRU 'ARG')
       872                            *
       873   02 00240    21100060 A            CI,XS    '-'               DEF SYMBOL?
       874   02 00241    683E0000 A            EXIT,EQ  RL                RETURN IF IT IS
       875                            *
       876                            *        CONFORMING WITH META-SYMBOL AS CLOSELY AS POSSIBLE,
       877                            *           THERE ARE CURRENTLY ONLY NINE VALUE TYPES THAT WILL
       878                            *           GO OUT IN THE SYMBOL DICTIONARY.  SCREEN THEM HERE ---
       879                            *
       880   02 00242    B2500066 04           LW,XT1   *ARG              GET CONTROL WORD OF VALUE
       881   02 00243    32400060 04           LW,XT    DD%TYPE           SET BY CALL TO 'GETVSIZE'
       882   02 00244    25400205 A            SHIFT,XT ETLOB,31
       883   02 00245    72480247              LB,XT    SDJ%TBL,XT
       884   02 00246    6808024C              B        SDJ%BASE,XT
       885                            *
       886   02 00247                 SDJ%TBL  RES      0
       887   02 00247    00       A            BYTE,SDJ%BASE  SDRET       UNDEFINED GLOBAL
       888   02 00247 1  08       A            BYTE     SDSYM             SPECIAL ADDRESS
       889   02 00247 2  08       A            BYTE     SDSYM             SPECIAL EXTERNAL
       890   02 00247 3  08       A            BYTE     SDSYM             ADDRESS
       891   02 00248    03       A            BYTE     SDSUM             SUM
       892   02 00248 1  08       A            BYTE     SDSYM             EXTERNAL
       893   02 00248 2  08       A            BYTE     SDSYM             LOCAL FORWARD
       894   02 00248 3  08       A            BYTE     SDSYM             LOCAL FORWARD AND HOLD
       895   02 00249    00       A            BYTE     SDRET             ONE WORD ADDRESS
       896   02 00249 1  01       A            BYTE     SDINT             SPECIAL INTEGER
       897   02 00249 2  00       A            BYTE     SDRET             BLANK FIELD
       898   02 00249 3  01       A            BYTE     SDINT             INTEGER
       899   02 0024A    00       A            BYTE     SDRET             DECIMAL
       900   02 0024A 1  00       A            BYTE     SDRET             TEXT
       901   02 0024A 2  00       A            BYTE     SDRET             FX
       902   02 0024A 3  00       A            BYTE     SDRET             FS
       903   02 0024B    00       A            BYTE     SDRET             FL
       904   02 0024B 1  00       A            BYTE     SDRET             DPI
       905   02 0024B 2  00       A            BYTE     SDRET             LIST
       906   02 0024B 3  00       A            BYTE     SDRET             FUNCTION
       907                            *
       908   02 0024C                 SDJ%BASE RES      0
       909                            *
       910   02 0024C                 SDRET    RES      0
       911   02 0024C    680E0000 A            EXIT     RL                DOES NOT GO IN DICTIONARY
       912                            *
       913   02 0024D                 SDINT    RES      0
       914   02 0024D    22500004 A            LI,XT1   4                 'CONSTANT' RESOLUTION
       915   02 0024E    68000256              B        SDCOM
       916                            *
       917   02 0024F                 SDSUM    RES      0
       918   02 0024F    4B5002BB              AND,XT1  L(LENGTHFLD)      CHECK SIZE OF 'SUM'
       919   02 00250    21500003 A            CI,XT1   3                 ONLY 3-WORD SUM WILL USE NORMAL
       920   02 00251    6930024D              BNE      SDINT               'ADDRESS' RESOLUTION.
       921                            *
       922   02 00252    22400002 A            LI,XT    2                 GET SINGLE RELOCATABLE
       923   02 00253    B2580066 04           LW,XT1   *ARG,XT             ITEM IN 'SUM'.
       924   02 00254                 SDSYM    RES      0
       925   02 00254    4B5002B8              AND,XT1  L(ARFLD)
       926   02 00255    25500208 A            SHIFT,XT1  ARLOB,31        XT1 IS RESOLUTION
       927   02 00256                 SDCOM    RES      0
       928   02 00256    35700068 04           STW,RL   SDEDITXIT
       929   02 00257    35600092 04           STW,LBX  TMPPP             (LBX WILL GET CLOBBERED)
       930                            *
       931                            *        DICTIONARY ITEM IS:
       932                            *           X'12'
       933                            *           TYPE & RESOLUTION BYTE
       934                            *           TEXTC OF SYMBOL NAME
       935                            *           DEFINING EXPRESSION
       936                            *
       937   02 00258    324000AF 04           LW,XT    SD%TYPE           MISNOMER - IS SAVED SYMBOL NO.
       938   02 00259    F2480036 03           LB,XT    *SDTT,XT          GET TYPE SAVED BY 'DEFINE'
       939   02 0025A    30400005 A            AW,XT    XT1               COMBINE TYPE & RESOLUTION
       940   02 0025B    20401200 A            AV,XT    SDINTSYMCD**8     MERGE IN LOADER CONTROL
       941   02 0025C    55400078 04           STH,XT   ACONVAL
       942   02 0025D    32400090 04           LW,XT    SYMSIZE
       943   02 0025E    22500002 A            LI,XT1   2
       944   02 0025F    754A0078 04           STB,XT   ACONVAL,XT1       COUNT BYTE OF TEXTC NAME
       945   02 00260    22800003 A            LI,NBYTES  3
       946   02 00261    225001E0 04           LI,XT1   BA(ACONVAL)
       947   02 00262    6A700000 N            CALL     BEDIT             EDIT 1ST THREE BYTES
       948   02 00263    32500092 04           LW,XT1   TMPPP
       949   02 00264    205FFFFF A            AI,XT1   -1                TO SEPARATOR
       950   02 00265    2240005C A            LI,XT    '*'
       951   02 00266    754A0000 X            STB,XT   LSTBF,XT1         CHANGE SEPARATOR TO SD ID
       952   02 00267    38500090 04           SW,XT1   SYMSIZE           BACK UP TO START OF NAME
       953   02 00268    20500000 N            AI,XT1   BA(LSTBF)         FORM BYTE ADDRESS OF NAME
       954   02 00269    32800090 04           LW,NBYTES  SYMSIZE         SIZE OF NAME
       955   02 0026A    6A700000 N            CALL     BEDIT             EDIT OUT OF SUMMARY BUFFER
       956   02 0026B    6A700000 N            CALL     GENERATE3         DEFINE SYMBOL
       957   02 0026C    32600092 04           LW,LBX   TMPPP             RESTORE LISTING BUFFER INDEX
       958   02 0026D    E8000068 04           B        *SDEDITXIT
1
       960                            *
       961                            *    S E T P P
       962                            *
       963   02 0026E                 SETPP    RES      0
       964   02 0026E    35700075 04           STW,RL   SETPPRTN          SAVE RETURN LINK
       965   02 0026F                 SETPP1   RES      0
       966   02 0026F    3160008B 04           CW,LBX   NEXTPP            BRANCH IF CURRENT INDEX IS AT OR
       967   02 00270    68100279              BGE      SETPP7              BEYOND NEXT COLUMN START
       968   02 00271    3260008B 04           LW,LBX   NEXTPP            SET OUTPUT INDEX TO NEXT COLUMN
       969   02 00272                 SETPP3   RES      0
       970   02 00272    35600069 04           STW,LBX  CURPP             SAVE CURRENT PRINT POSITION
       971   02 00273    32500069 04           LW,XT1   CURPP             CURRENT PRINT POSITION
       972   02 00274    3050007D 04           AW,XT1   COLSIZE             PLUS COLUMN SIZE
       973   02 00275    31500086 04           CW,XT1   MAXPP               BECOMES NEXT COLUMN
       974   02 00276    E9200075 04           BG       *SETPPRTN           START, UNLESS IT
       975   02 00277    3550008B 04           STW,XT1  NEXTPP              EXCEEDS MAXIMUM
       976   02 00278    E8000075 04           B        *SETPPRTN           COLUMN START
       977   02 00279                 SETPP7   RES      0
       978   02 00279    3250008B 04           LW,XT1   NEXTPP
       979   02 0027A    3050007D 04           AW,XT1   COLSIZE
       980   02 0027B    3550008B 04           STW,XT1  NEXTPP            SET NEXT COLUMN START
       981   02 0027C    31500086 04           CW,XT1   MAXPP             BRANCH IF NEXT COLUMN START DOES
       982   02 0027D    6820026F              BLE      SETPP1              NOT EXCEED MAXIMUM COLUMN START
       983   02 0027E                 SETPP10  RES      0
       984   02 0027E    6A70029D              BAL,RL   WRITE             WRITE A LINE
       985   02 0027F    3260008D 04           LW,LBX   STARTPP           SET CURRENT INDEX TO START POSITION
       986   02 00280    68000272              B        SETPP3
1
       988                            *
       989                            *   S E T U P % P P
       990                            *
       991   02 00281                 SETUP%PP RES      0
       992   02 00281    3560008D 04           STW,LBX  STARTPP           SET START PRINT POSITION
       993   02 00282    35600069 04           STW,LBX  CURPP             SET CURRENT PRINT POSITION
       994   02 00283    35500086 04           STW,XT1  MAXPP             SET MAXIMUM PRINT POSITION
       995   02 00284    3540007D 04           STW,XT   COLSIZE           SET COLUMN SIZE
       996   02 00285    3040008D 04           AW,XT    STARTPP
       997   02 00286    3540008B 04           STW,XT   NEXTPP            SET NEXT PRINT POSITION
       998   02 00287    680E0000 A            EXIT     RL                RETURN
1
      1000                            *
      1001                            *    S K I P S Y M
      1002                            *
      1003   02 00288                 SKIPSYM  RES      0
      1004   02 00288    35700074 04           STW,RL   SKIPSYMRTN        SAVE RETURN ADDRESS
      1005   02 00289    6A70022D              BAL,RL   NXT%ITEM          GET NUMBER OF CHARS IN SYMBOL
      1006   02 0028A    35400005 A            STW,XT   XT1
      1007   02 0028B    25500077 A            SLS,XT1  -9                CONVERT COUNT TO NUMBER OF HALFWORDS
      1008   02 0028C    21500000 A            CI,XT1   0
      1009   02 0028D    E8300074 04           BE       *SKIPSYMRTN
      1010   02 0028E    6A70022D              BAL,RL   NXT%ITEM          READ PAST
      1011   02 0028F    6450028E              BDR,XT1  %-1                 SYMBOL
      1012   02 00290    E8000074 04           B        *SKIPSYMRTN
1
      1014                            *
      1015                            *   S Y M C T
      1016                            *
      1017   02 00291                 SYMCT    RES      0
      1018   02 00291    3570008F 04           STW,RL   SYMCTRTN          SAVE RETURN ADDRESS
      1019   02 00292    6A70022D              BAL,RL   NXT%ITEM          GET NUMBER OF CHARACTERS IN SYMBOL
      1020   02 00293    202FFFFF A            AI,XW    -1                BACK UP INDEX
      1021   02 00294    25400078 A            SLS,XT   -8                RIGHT ADJUST CHARACTER COUNT
      1022   02 00295    E800008F 04           B        *SYMCTRTN         RETURN
1
      1024                            *
      1025                            *   T E S T O V
      1026                            *
      1027   02 00296                 TESTOV   RES      0
      1028   02 00296    30400006 A            AW,XT    LBX
      1029   02 00297    2140006A A            CI,XT    106               RETURN IF INDEX IS LESS THAN
      1030   02 00298    691E0000 A            EXIT,L   RL                  COLUMN 106
      1031   02 00299    35700075 04           STW,RL   SETPPRTN          SAVE RETURN ADDRESS AND GO WRITE A
      1032   02 0029A    6800027E              B        SETPP10             LINE AND RESET PRINT POSITIONS
1
      1034                            *
      1035                            *   W R I T E C
      1036                            *
      1037   02 0029B                 WRITEC   RES      0
      1038   02 0029B    3160008D 04           CW,LBX   STARTPP           EXIT IF THERE IS
      1039   02 0029C    683E0000 A            EXIT,EQ  RL                  NO LINE TO PRINT
      1040                            *
      1041                            *   W R I T E
      1042                            *
      1043   02 0029D                 WRITE    RES      0
      1044   02 0029D    35700093 04           STW,RL   WRITERTN          SAVE RETURN ADDRESS
      1045   02 0029E    33000000 X            MTW,0    LO%FLAG           LO SPECIFIED
      1046   02 0029F    683002A3              BEZ      WRITE20           NO, DONT WRITE
      1047   02 002A0    22800000 N            LI,IOADD LSTBF             ADDRESS OF LIST BUFFER
      1048   02 002A1    22900084 A            LI,IOSIZE  132             NUMBER OF BYTES TO WRITE
      1049   02 002A2    6AA00000 X            BAL,IORL WRITELO           WRITE RECORD
      1050   02 002A3    3300006A 04  WRITE20  MTW,0    DOFLAG            WRITE ON 'DO' ALSO
      1051   02 002A4    683002A8              BEZ      WRITE30           NO
      1052   02 002A5    22800000 N            LI,IOADD LSTBF             YES
      1053   02 002A6    22900084 A            LI,IOSIZE 132
      1054   02 002A7    6AA00000 X            BAL,IORL WRITEDO
      1055   02 002A8                 WRITE30  RES      0
      1056   02 002A8    6A700000 X            BAL,RL   CLRLSTBF          CLEAR LIST BUFFER
      1057   02 002A9    E8000093 04           B        *WRITERTN         RETURN
      1058                            *
      1059                                     END
             02 002AA    00C00000 A
             02 002AB    0000FFFF A
             02 002AC    00400000 A
             02 002AD    0C000000 A
             02 002AE    80000000 A
             02 002AF    00000000 A
             02 002B0    40F04040 A
             02 002B1    40F94040 A
             02 002B2    00390000 A
             02 002B3    00FFFFFF A
             02 002B4    0007FFFF A
             02 002B5    003E0000 A
             02 002B6    1FC00000 A
             02 002B7    00000003 A
             02 002B8    03000000 A
             02 002B9    003FFFFF A
             02 002BA    00001FFF A
             02 002BB    00007FFF A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 002BC   PT 1     03 00039   PT 0     04 000BE   PT 0
1
  *    SYMBOL VALUES
           ABORT0/00000000          ABORT1/00000001          ABORT2/00000002          ABSVAL#/00000047
           ACONVAL/04 00078         ADDFLD/0001FFFF          ADDLOB/0000001F          ADDRET/18000000
           ADFLD/00200000           ADV%RTN/04 00065         AF#/0000003E             AFA%FLG/04 0004A
           AFA#/0000003F            AFASSYM/0000803F         AFASYM/0000403F          AFSSYM/0000803E
           AFSYM/0000403E           AR/00000000              ARFLD/03000000           ARG/04 00066
           ARGSAVE/04 0004A         ARLOB/00000007           ASECT#/00000009          ASTFLD/01000000
           ASTFLG/00000008          ASTRIG/04 00061          ASVCNT/04 00067          BA#/00000043
           BASE/04 00068            BEDITEND/02 00152        BEDIT9/02 0015A          BEGINEXP/00000007
           BEGINLIST/00000006       BLANK/00020000           BLANKET/50000000         BLANKEXP/00000005
           BLANKITM/00020001        BLDPLTXIT/04 0006A       BNDEXIT/04 00069         BOBUF/04 00020
           BOCT/03 00030            BOMAX/03 00031           BOUND#/00000013          BUFFFLD/0001FFFF
           BYTEOFFSET/04 00065      BYTE2FLD/0000FF00        BYTE2LOB/00000017        BYTE3FLD/000000FF
           BYTE3LOB/0000001F        CCFLD/03000000           CCLOB/00000007           CF#/00000040
           CFSSYM/00008040          CFSYM/00004040           CHCT/00000001            CHSTR/00080000
           CLOSE#/00000001          CLOSEDIR/00004001        CLOSEFLD/00004000        CMND/00000004
           CMNDCW/04 00048          CMNDLIST/04 0004B        CMNDLSN/04 00049         CMNDNAME/00028000
           CMPLXSUM/00040000        CNAME#/00000014          CNAMECOMT/000C0000       CNTLHEAD/02 00002
           CNTRLSTK/04 00048        CODE/04 0006B            COLSIZE/04 0007D         COM#/00000015
           COMDFLD/00200000         COMDLOB/0000000A         COMNT#/00000000          COMTFLD/001C0000
           COMTLOB/0000000D         COM0COMT/00000000        COM1COMT/00040000        CONSTANT/00010000
           CPTRFLD/7FFF0000         CPTRLOB/0000000F         CS/04 00062              CS#/00000048
           CSBASE/03 00032          CSECT#/00000016          CSERRHEAD/02 00045       CSFLD/003E0000
           CSLOB/0000000E           CSNAME/04 00061          CSSUB/02 00160           CSSUBXIT/04 00068
           CSSUB1/02 00168          CSSUB2/02 00180          CSSUB3/02 00183          CSSUB4/02 00198
           CSSUB5/02 001A6          CSSUB6/02 00179          CSSUM/02 00062           CST/00000000
           CSTBLSIZE/00000003       CSTFLD/DPI               CSTLOB/00000007          CSTYPE/0000000C
           CS0LOC/03 00033          CS16LOC/03 00034         CT/0000000E              CTFLD/00001F00
           CTLOB/00000017           CTYPEFLD/003C0000        CTYPELOB/0000000D        CURPP/04 00069
           DA#/00000046             DATA#/00000008           DATAGEN/03 00009         DD%TYPE/04 00060
           DDASV/04 0006C           DDCS/04 0006D            DDLRCS/03 0000B          DDLRRS/03 0000D
           DDLRVAL/03 0000F         DDNUM/04 0006E           DDREL/04 0006F           DDRS/04 00070
           DECET/60000000           DECLRNUM/03 00000        DEF#/0000000F            DEFEXT/00400000
           DEFFLD/0C000000          DEFLBLXIT/04 0004C       DEFLOB/00000005          DEFLOCXIT/04 00071
           DESTIN/04 00072          DFNEXIT/04 0004D         DISP#/00000017           DLISTET/DPI
           DLRCS/03 0000A           DLRRS/03 0000C           DLRVAL/03 0000E          DMSG/02 001F2
           DO#/00000018             DOCFLD/0000FFFF          DOCOUNT/03 00010         DOCT/00000006
           DOCWD/00000001           DODIR/00004018           DOFLAG/04 0006A          DOIWD/00000001
           DOLOC/03 00011           DOOWD/00000002           DOPFLD/00FFFFFF          DOPWD/00000000
           DOSKIPXIT/04 00073       DOSLOB/00000007          DOSWD/00000000           DO1#/00000019
           DO1CT/00000007           DO1LBL/04 0004E          DPI/00180000             DPIET/DPI
           DPIFLAG/04 00074         DPIMASK/00190002         DPIMSG/02 001F7          DSECT#/0000001A
           DSNUM/00000001           DSNUMFLD/DPI             DSNUMLOB/0000000C        DSTYPE/00000009
           DUPFLD/20000000          DUPLOB/00000002          EC/0000000E              ECSFLD/00007FFF
           ECSLOB/0000001F          ECT/00000002             ECTEXPR1/00000000        ECTEXPR2/FFFFFFFF
           ECTHW/04 00075           ECTORG/0000000C          ECTSAVE/04 00049         EDITDXIT/04 00076
           EDITVAL/02 001A8         EDITVJMP/02 001B5        EDITVMSG/02 001EF        EDITVMSGTBL/02 001EA
           EDITVTBL/02 001B0        EDITV10/02 001E3         EDITV2/02 001B5          EDITV3/02 001BB
           EDITV4/02 001BF          EDITV5/02 001D2          EDITV6/02 001D7          EDITV7/02 001D8
           EDITV8/02 001DC          EDITV9/02 001E1          EDITXIT/04 00077         EDNFLD/00007FFF
           EFLD/DPI                 ELEM/00000001            ELSE#/0000000B           ELSEDIR/0000400B
           ELSEFLG/03 00010         ENC%/0000403C            ENC%%/0000403D           ENCHOB/00008000
           ENCITEM/0000FFFF         ENCLSSYM/0000A000        ENCLSYM/00006000         ENCS:IFR/0000804A
           ENCS:KEYS/00008051       ENCS:NUMC/0000804B       ENCS:PT/0000804C         ENCS:UFV/0000804D
           ENCS:UT/0000804E         ENCSCOR/00008052         ENCSMINT/0000C000        ENCSSYM/00008000
           ENCSYM/00004000          ENCTCOR/00008053         ENCTYPE1/00002000        ENCTYPE2/00004000
           ENCVFLD/000000FF         ENC0/0000C000            ENC1/0000C001            END#/00000007
           ENDADDR/04 0007D         ENDBUF/000020FF          ENDDIR/00004007          ENDEXP/00000004
           ENDLINE/00000000         ENDLIST/00000002         ENDORG/03 00030          ENDSBSYM/00000003
           ENTEXIT/04 0007E         EQU#/0000001B            EQUALOP/00000023         ER/0000000F
           ERRHEAD/02 0001E         ERROR#/0000001C          ERRORSUM/02 00108        ERRORS10/02 00132
           ERRORS20/02 0013F        ERROR30/02 00144         ERROR40/02 0014C         ERRSEV/04 0004A
           ERRTRIG/03 00012         ETFLD/DPI                ETLOB/00000004           ETSHIFT/0000001B
           EVALARXIT/04 00050       EVALPTXIT/04 00050       EVEXPXIT/04 0004F        EVT/00000001
           EWD/00000003             EXPET/DPI                EXPFLD/04000000          EXPR%DEF/04 0007F
           EXTET/28000000           EXTFLD/00C00000          EXTHEAD/02 00010         EXTLOB/00000009
           EXTMSG/02 001F0          EXTNAME/02 0004E         EXTREF/00080000          EXTSKIP/02 000D6
           EXTSUM/02 000A3          EXTSUM10/02 000BD        EXTSUM12/02 000CD        EXTSUM15/02 000CF
           EXTSUM20/02 000D8        EXTSUM3/02 000AA         EXTSUM5/02 000B4         E1INTXIT/04 00050
           FCSFLD/1FC00000          FCSLOB/00000009          FIN#/0000000C            FINDIR/0000400C
           FINDSPCXIT/03 00013      FLDCNT/04 00051          FLDPTR/04 00052          FLDPTRBSE/04 00080
           FLDVAL/04 00081          FLENGTH/04 00085         FLET/DPI                 FLMSG/02 001F6
           FLTLONG/00140000         FLTSHORT/00100000        FNAME#/0000001D          FND/04 00086
           FREEAFLD/0001FFFF        FREELFLD/DPI             FREELIST/04 00087        FREELLOB/0000000E
           FSET/78000000            FSMSG/02 001F5           FUNCET/DPI               FUNCMSG/02 001F9
           FUNCNAME/00030000        FWDNUM/03 00014          FXDEC/000C0000           FXET/70000000
           FXMSG/02 001F4           GEN#/0000001E            GENCOMXIT/04 00053       GENEXIT/04 00088
           GETSYM/02 001FA          GETSYMRTN/04 0007E       GETSYM5/02 001FB         GETVSIZE/02 00208
           GLBLAXIT/04 000BC        GOTO#/0000001F           GOTOARG/04 00089         HA#/00000044
           HEADADDR/04 0007F        HEXVAL/04 00079          HI%DIR/0000002C          HI%INT%FUNC/00000053
           HI%PREFIX%FUNC/00000053                           HI%VAL%FUNC/00000050
           HVLENGTH/04 0008A        I:#/00000053             IFFLD/DPI                IGNRLST/00000001
           IN/04 0003E              INBASE/04 0003F          INITORG/03 00000         INITORG1/03 00009
           INTET/58000000           IOADD/00000008           IORL/0000000A            IOSIZE/00000009
           KLINE/03 00035           L#/0000004F              LABELLOC/04 0008B        LARG/04 0008C
           LARGR/0000000A           LAST/04 0008D            LASTCS/03 00015          LASTVAL/03 00016
           LBL/00000003             LBX/00000006             LCLDLXIT/04 0008E        LCLFWD/000C0000
           LCLFWDET/30000000        LCLFWDHD/00100000        LCLSBSYM/0000A000        LENGTHFLD/00007FFF
           LESSOP/00000028          LF#/00000041             LFLD/000000FF            LFND/04 0008F
           LFRMSG/02 001F1          LFSSYM/00008041          LFSUMSZ/04 00090         LFSYM/00004041
           LFWDFLG/04 0005D         LFWDHET/38000000         LINEHEAD/02 00026        LINENUMXIT/04 00091
           LINEORG/04 00092         LINEXIT/04 00091         LIST#/00000020           LISTCT/04 00097
           LISTET/DPI               LISTFLD/00000002         LISTLOB/0000001E         LISTMSG/02 001F8
           LISTS/00008000           LISTXIT/04 00050         LITCS/03 00001           LITFLAG/04 0005E
           LITORG/03 00002          LITSRCHXIT/04 00093      LITTABLE/03 00003        LNGTH1/00000001
           LNGTH2/00000002          LNGTH3/00000003          LO%INT%FUNC/0000003B
           LO%PREFIX%FUNC/0000004F                           LO%VAL%FUNC/00000043
           LOADXWRTN/04 00094       LOBFLD/DPI               LOC#/00000021            LOCAL#/00000002
           LOCALCT/00000009         LOCALCTFLD/DPI           LOCALDIR/00004002        LOCALFLG/03 00017
           LOCALORG/00000009        LOCALORGFLD/00FFFFFF                              LOCALSYM/00006000
           LOCALXIT/04 00095        LOCFLD/0001FFFF          LOWD/00000008            LPTR/04 00041
           LPTRFLD/0000FFFF         LPTRLOB/0000001F         LSRCHXIT/04 00096        LSSYM/0000804F
           LSTCT/04 00097           LVAL/04 0003E            LVL/00000003             LVLSIZE/0000000D
           LVLT/00000006            MAIN/04 00098            MAJERRFLD/00FFFFFF       MAJERRLN/03 00018
           MAXCSECT/03 00019        MAXDD/00000001           MAXDDFLD/0007FFFF        MAXLOCXIT/04 00099
           MAXPP/04 00086           MAXPREF/0000001F         MAXSEV/03 0001A          MINUSOP/00000029
           MOVEHD/02 00213          MOVEHD1/02 00217         MOVESYM/02 0021C         MOVESYMRTN/04 00073
           MOVESYMXIT/04 0009A      MOVESYM1/02 00220        MOVESYM2/02 00223        MOVESYM3/02 00226
           MULTINT/0000E000         NAME#/00000042           NAMELINK/03 0001B        NAMELOC/0000000B
           NAMENUM/03 00004         NAMESSYM/00008042        NAMESYM/00004042         NBYTES/00000008
           NCDITEM/04 0009B         NCLEARS/00000030         NCLEARS1/00000027        NERRHEAD/02 00036
           NERRS/03 0001C           NEWCSXIT/04 0009C        NEXTCS/04 00087          NEXTPP/04 0008B
           NEXTXW/04 00054          NLITS/03 00005           NOBYTES/04 0009D         NOLIST/03 0001D
           NOWORDS/04 0009E         NSAVES/0000001D          NUM#/00000049            NUMEXT/04 00071
           NUMHEAD/02 0002D         NUMSSYM/00008049         NUMUND/04 00072          NXT%ITEM/02 0022D
           NXT%ITEMRTN/04 00089                              NXT%ITM5/02 00231        NXTL/00000004
           NXTLOCAL/04 0009F        NXTSYMT/04 000A0         OFFSET/04 000A1          OFFSETFLD/003FFFFF
           OFFSETLOB/0000001F       OLDCSXIT/04 000A2        ONEWDADD/00140000        OPEN#/00000003
           OPENDIR/00004003         OPER/04 000A3            OPRND/00000005           OPRNDORG/04 00055
           ORG#/00000022            ORGLOCXIT/04 00053       ORIGXIT/04 000A4         OUTBASE/04 00040
           PAGE#/0000000D           PARTICBASE/DPI           PARTICRTN/04 0004C       PASS/03 00006
           PASSDEF/04 000A5         PATCH/04 00000           PCC#/0000000E            PCCTRIG/03 0001E
           PCCTRIGFLD/00000010      PCCTRIGLOB/0000001B      PCCXIT/04 00099          PEND#/00000006
           PENDDIR/00004006         PKDEC/00040000           PLOC/00000000            PLOCFLD/00FFFFFF
           PLUSOP/0000002A          PLVL/04 000A6            PLVLLOB/00000017         PPLVL/04 00056
           PRINTXIT/04 0008E        PROC#/00000005           PROCCOUNT/03 0001F       PROCDIR/00004005
           PROCLOC/04 000A7         PROCLV/03 00020          PROCREF/03 00021         PROTYPE/04 000A8
           PSECT#/00000023          PSR#/00000012            PSRTRIG/03 00022         PSTRIG/03 00023
           PSTRIGFLD/00000001       PSTRIGLOB/0000001F       PSTYPE/0000001E          PSYS#/00000024
           PT/00000000              PTFLD/00C00000           PTLOB/00000009           PUT%NO%/02 00235
           READSYM/02 00238         REF#/00000010            REFADD/04 000A9          REFEXT/00800000
           REFORSREF/00800000       RELOFLD/02000000         RES#/00000025            RL/00000007
           RNG%SUM%EXCL/02 00000                             RPTR/04 00045            RSFLD/00300000
           RSLOB/0000000B           RTSUMSZ/04 000AA         RVAL/04 00042            R8/00000008
           R9/00000009              S:AAD#/0000002D          S:AADSYM/0000402D        S:C#/0000002E
           S:CSYM/0000402E          S:D#/0000002F            S:DPI#/00000030          S:DPISYM/00004030
           S:DSYM/0000402F          S:EXT#/00000031          S:EXTSYM/00004031        S:FL#/00000032
           S:FLSYM/00004032         S:FR#/00000033           S:FRSYM/00004033         S:FS#/00000034
           S:FSSYM/00004034         S:FX#/00000035           S:FXSYM/00004035         S:IFR#/0000004A
           S:INT#/00000036          S:INTSYM/00004036        S:IVAL#/0000003B         S:KEYS#/00000051
           S:LFR#/00000037          S:LFRSYM/00004037        S:LIST#/00000038         S:LISTSYM/00004038
           S:NUMC#/0000004B         S:PT#/0000004C           S:RAD#/00000039          S:RADSYM/00004039
           S:S/FUNC                 S:SIN#/00000026          S:SINCOMT/00080000       S:SUM#/0000003A
           S:SUMSYM/0000403A        S:UFV#/0000004D          S:UT#/0000004E           SAMP/00000008
           SAVDLR/00000000          SAVDLRFLD/000FFFFF       SAVELVL/04 000AB         SAVEORG/04 00048
           SAVEXR/04 00057          SAVEXT/04 000AC          SAVEXW/04 00058          SBLBLSYM/04 00056
           SBSYM/00008000           SCANEXIT/04 00059        SCANXS/04 0005F          SCARG/04 0005C
           SCLVL/04 0005B           SCOR#/00000052           SCPPRTN/04 000AD         SCRSRTN/04 000AE
           SD%TYPE/04 000AF         SDCOM/02 00256           SDEDIT/02 0023C          SDEDITXIT/04 00068
           SDHEXC/00000030          SDINSTC/00000000         SDINT/02 0024D           SDINTSYMCD/00000012
           SDJ%BASE/02 0024C        SDJ%TBL/02 00247         SDRET/02 0024C           SDSUM/02 0024F
           SDSYM/02 00254           SDTEXTC/00000038         SDTLOB/0000001C          SDTT/03 00036
           SET#/00000027            SETFLD/10000000          SETLOB/00000003          SETPP/02 0026E
           SETPPRTN/04 00075        SETPP1/02 0026F          SETPP10/02 0027E         SETPP3/02 00272
           SETPP7/02 00279          SETUP%PP/02 00281        SETVALUE/04 00062        SF/03 00024
           SIMPADD/00000000         SINSUBXIT/04 0004F       SINTFLD/03C00000         SINTLOB/00000009
           SKGLF1XIT/04 000B0       SKIPSYM/02 00288         SKIPSYMRTN/04 00074      SKIPTRIG/03 00025
           SMINT/0000C000           SMPRCD/03 00026          SMPWD/03 00027           SOCW%FLG/03 00007
           SOCW#/0000000A           SOCW2LAT/03 00008        SOURCE/04 000B1          SOURCEONLY/03 00028
           SOURCEX/03 00029         SPACE#/00000028          SPADDRET/08000000        SPAFLD/DPI
           SPALOB/00000000          SPCONFLD/40000000        SPEXTET/10000000         SPI/00000000
           SPIMASK/00010002         SPINT/DPI                SPINT%ET/48000000        SPINTET/48000000
           SPINTFLD/40000000        SPINTLOB/00000001        SPITEMP/04 000B2         SREF#/00000011
           SREFEXT/00C00000         STARTPP/04 0008D         STO/00000001             STORESAMP/03 0002A
           STYPEFLD/001C0000        STYPELOB/0000000D        SUB#/04 000B3            SUBERRLN/03 0002B
           SUBLOC/04 000B4          SUBSYMET/DPI             SUM%FLAG/04 000B5        SUMET/20000000
           SYMBOL/00018000          SYMCT/02 00291           SYMCTRTN/04 0008F        SYMHEAD/02 0000A
           SYMSIZE/04 00090         SYMSKIP/02 0009E         SYMSUM/02 00067          SYMSUM10/02 00086
           SYMSUM12/02 0008C        SYMSUM13/02 00092        SYMSUM15/02 0009D        SYMSUM2/02 0006E
           SYMSUM20/02 000A0        SYMSUM3/02 00072         SYMSUM5/02 0007A         SYMT/03 00037
           SYMTBASE/40000000        SYNERR/0000000A          SYSCOUNT/03 0002C        SYSEXIT/04 00099
           SYSLVL/0000000A          SYSTEM#/00000004         SYSTEMDIR/00004004       SYSTYPEFLD/00001C00
           SYSTYPELOB/00000015      TCOR#/00000053           TCORFLG/03 0002D         TEMP/04 00046
           TEMPO/04 00061           TEMP1/04 00047           TESTOV/02 00296          TEXT#/00000029
           TEXTC#/0000002A          TEXTCT/03 0002E          TEXTET/68000000          TEXTEXIT/04 000B6
           TEXTMSG/02 001F3         TFLD/0000E000            TITLE#/0000002B          TITLENUM/03 0002F
           TLOB/00000012            TMP/00000006             TMPPP/04 00092           TOTALCT/04 000B7
           TRUNERR/00000009         TR0/00000008             TR1/00000009             TXTCTFLD/7FFF0000
           TXTCTLOB/0000000F        TXTCTWD/00000003         TXTFLG/04 00062          TX1/04 000B8
           TX2/04 000B9             TYPEFLD/00038000         TYPELOB/00000010         T1/0000000B
           T2/0000000C              T3/0000000D              UGLBLET/00000000         UNDHEAD/02 00017
           UNDITM/DPI               UNDMSG/02 001EF          UNDSKIP/02 00102         UNDSUM/02 000D9
           UNDSUM05/02 000E2        UNDSUM10/02 000E7        UNDSUM15/02 000EA        UNDSUM20/02 000F1
           UNDSUM22/02 000F8        UNDSUM25/02 00104        UNDSUM30/02 00107        UPDTHEAD/02 0003C
           USECT#/0000002C          VALCNT/04 00063          VALFLD/003FFFFF          VALPTR/04 00064
           VFLD/00001FFF            VSIZETBL/02 0020E        WA#/00000045             WDRES/02000000
           WDRS/00000002            WRITE/02 0029D           WRITEC/02 0029B          WRITERTN/04 00093
           WRITE20/02 002A3         WRITE30/02 002A8         XM/00000001              XMBASE/04 000BB
           XR/00000006              XS/00000001              XT/00000004              XT1/00000005
           XT2/00000006             XT3/00000007             XW/00000002              XWBASE/04 000BA
           1ARG/04 0005A            1ELEMXIT/04 000BC        1STDEF/03 00038          1WDADDET/40000000
           3WDSUM/00058003          %%#/0000003D             %#/0000003C              #ELEM/04 000BD
  *    EXTERNAL DEFINITIONS
           DGEND/02 00051           DGENDD/04 00000          DGENDP/02 00000          XAPDATA/04 00000
           XAPD1/03 00000
  *    PRIMARY REFERENCES
           AEDIT          BEDIT          BEDIT4         BO%FLAG        CLRLSTBF       CTCHRS         DEDIT
           GENERATE3      GETCSADD       GO%FLAG        HWX1SIZE       LO%FLAG        LSTBF          NS%FLAG
           PGLINES        POSITIONX1     READX1         ROOTRTN        SD%FLAG        SEGMENT#       TYPE
           UPDT%ERROR     WRITEDO        WRITELO        XEDIT          X1BUF
  * NO SECONDARY REFERENCES
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
