BANNER TELEFILE,AP H00,APDGINT.
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     DDDDDDDDDDD       GGGGGGGGGGG       IIIIIIII       NN         NN    TTTTTTTTTTTT
AAAAAAAAAAAAA    PPPPPPPPPPPPP    DDDDDDDDDDDD     GGGGGGGGGGGGG      IIIIIIII       NNN        NN    TTTTTTTTTTTT
AA         AA    PP         PP    DD         DD    GG         GG         II          NNNN       NN         TT
AA         AA    PP         PP    DD         DD    GG         GG         II          NN NN      NN         TT
AA         AA    PP         PP    DD         DD    GG                    II          NN  NN     NN         TT
AAAAAAAAAAAAA    PPPPPPPPPPPPP    DD         DD    GG                    II          NN   NN    NN         TT
AAAAAAAAAAAAA    PPPPPPPPPPPP     DD         DD    GG      GGGG          II          NN    NN   NN         TT
AA         AA    PP               DD         DD    GG      GGGGG         II          NN     NN  NN         TT
AA         AA    PP               DD         DD    GG         GG         II          NN      NN NN         TT
AA         AA    PP               DD         DD    GG        GGG         II          NN       NNNN         TT
AA         AA    PP               DDDDDDDDDDDD     GGGGGGGGGGGGG      IIIIIIII       NN        NNN         TT
AA         AA    PP               DDDDDDDDDDD       GGGGGGGGG GG      IIIIIIII       NN         NN         TT




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




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




 AAAAAAAAAAA     PPPPPPPPPPPP     DDDDDDDDDDD       GGGGGGGGGGG       IIIIIIII       NN         NN    TTTTTTTTTTTT
AAAAAAAAAAAAA    PPPPPPPPPPPPP    DDDDDDDDDDDD     GGGGGGGGGGGGG      IIIIIIII       NNN        NN    TTTTTTTTTTTT
AA         AA    PP         PP    DD         DD    GG         GG         II          NNNN       NN         TT
AA         AA    PP         PP    DD         DD    GG         GG         II          NN NN      NN         TT
AA         AA    PP         PP    DD         DD    GG                    II          NN  NN     NN         TT
AAAAAAAAAAAAA    PPPPPPPPPPPPP    DD         DD    GG                    II          NN   NN    NN         TT
AAAAAAAAAAAAA    PPPPPPPPPPPP     DD         DD    GG      GGGG          II          NN    NN   NN         TT
AA         AA    PP               DD         DD    GG      GGGGG         II          NN     NN  NN         TT
AA         AA    PP               DD         DD    GG         GG         II          NN      NN NN         TT
AA         AA    PP               DD         DD    GG        GGG         II          NN       NNNN         TT
AA         AA    PP               DDDDDDDDDDDD     GGGGGGGGGGGGG      IIIIIIII       NN        NNN         TT
AA         AA    PP               DDDDDDDDDDD       GGGGGGGGG GG      IIIIIIII       NN         NN         TT




ASSIGN M:CI,(FILE,CI:APDGINT,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APDGINT,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    ACONVAL
            347/LI         349/STW        587/STW        589/LI         648/STW        655/STH        660/LI
    ADDFLD
            319/LV
    ADDRET
            623/CV
    ARFLD
            631/AND
    ARG
            233/STW        467/STW        473/STW        496/STW        499/MTW        607/STW        619/LW*
    ARLOB
            632/SHIFT
    BA
            337/LI         347/LI         540/LI         544/LI         563/LI         589/LI         660/LI
            701/LI
    BEDIT
             63/REF        338/BAL        350/BAL        568/BAL        594/BAL        661/CALL       702/BAL
    BOBUF
            176/STH        181/STW
    BOCT
            180/STW
    BOMAX
            178/STW
    BOUND4
             66/REF        430/BAL        682/BAL
    CLRLSTBF
             39/REF        237/BAL
    CMPLXSUM
            491/CS
    CPTRLOB
            151/LV
    CS
            525/STW        570/LW
    CSBASE
            512/STW
    CST
            534/LS
    CSTBLSIZE
            170/AI
    CSTFLD
            533/LV
    CSTYPE
            210/LV
    CS0LOC
            164/STW
    DC%FLAG
             40/REF        242/LB
    DD%TYPE
            335/STW        337/LI         719/LS
    DDLRCS
            205/MTW
    DDLRRS
            207/MTW
    DDLRVAL
            439/AWM        481/MTW
    DECLRNUM
            263/XW         316/MTW        317/LW         328/MTW        329/LW         511/LW         558/LW
            569/MTW        575/LW
    DEFEXT
            311/CV
    DEFEXTCD
            592/LI         663-EQU
    DEFFLD
            465/BFNZ       476/BFZ
    DEFGEN1
            185-RES        674/B
    DEFGEN2
            249/BEZ        252-RES
    DEFHEXLBL
             67/REF        518/CALL
    DEFINE2
             68/REF        235/BAL
    DEFLOB
            132/LV         669/LV
    DELETEXP
             69/REF        226/BAL
    DGI
             33-CSECT       34/DEF         90/USECT
    DGINIT
             35/DEF         96-RES
    DLRCS
            204/MTW        426/LW
    DLRRS
            206/MTW
    DLRVAL
            432/LW         438/AWM        480/MTW        519/LW         684/LW
    DOCT
            221/STW
    DO1CT
            222/STW
    DSNUM
            546/LW
    DSNUMLOB
            547/SLS
    DSTYPE
            537/CI
    ECTORG
            225/STW
    EDITV
             70/REF        697/BAL
    EERR
             71/REF        695/BAL
    END%1
            271-RES        368/B
    END%10
            362/BNEZ       369-RES
    END%3
            284-RES        307/BEZ
    END%4
            281/BE         305-RES
    END%9
            353/BLZ        357-RES
    ENDADDR
            520/STW
    ENDCORE
             41/REF        117/CW         129/LW         138/CW         172/CW
    ENDDEF
             36/DEF        259-RES
    ENDGEN
             37/DEF        678-RES
    ENDORG
            189/STW
    END10
            375-RES        423/BG
    END11
            388-RES        403/BE         406/BE
    END12
            386/B          394/BGZ        399-RES        419/BGZ
    END13
            409/BNE        415-RES
    END14
            378/BFNZ       380/BEZ        383/BFNZ       420-RES
    END15
            269/BNEZ       425-RES
    END16
            442-RES        453/BFNZ       463/B          465/BFNZ       492/BNE        500/BLZ
    END17
            447-RES        486/B
    END18
            458-RES        490/BE
    END19
            456/BAZ        464-RES
    END2
            273-RES        300/BEZ        304/B          359/BNEZ
    END20
            452/BFZ        487-RES
    END21
            497-RES        504/BNE        509/B
    END22
            469/BFNZ       475-RES
    END23
            471/BEZ        476/BFZ        479/BEZ        482-RES
    END25
            448/BEZ        510-RES
    END26
            524-RES        573/BLE
    END27
            538/BE         543-RES
    END28
            549-RES        552/BNE
    END3
            283/BEZ        289/BEZ        296-RES        308/B          312/BL
    END30
            560/BL         565-RES
    END31
            542/B          567-RES
    END32
            577/BL         579-RES        586/BEZ        602/B          613/BEZ        624/BNE        662/B
    END34
            600/BNEZ       603-RES
    END35
            598/BFNZ       605-RES
    END4
            287/BFNZ       293/BFNZ       309-RES
    END40
            531/BNEZ       582/BLZ        668-RES
    END5
            294/BFNZ       313/BE         323-RES
    END51
            708-RES        729/B
    END52
            694/BEZ        696-RES
    END53
            693/BLZ        705-RES
    END54
            681/BEZ        683-RES
    END55
            688/BE         691-RES
    END6
            322/B          333-RES
    END60
            710/BEZ        736-RES
    END7
            344-RES        352/BGZ
    END8
            346-RES        356/B
    END9
            276/BL         360-RES
    ER
            301/LW         303/BDR        556/LI         557/STH        695/BAL
    ERRTRIG
            238/STW
    EXPEND
             72/REF        601/BAL
    EXTET
            408/CV
    EXTFLD
            294/BFNZ       310/AND
    EXTLOB
            321/SHIFT
    EXTREF
            489/CS         503/CS
    EZ
            645/IF         699/IF
    FLDCNT
            725/STW
    FLDPTR
            727/STW
    FREELIST
            127/LI         128/STW
    GENERATE1
             73/REF        728/BAL
    GENERATE3
             74/REF        608/BAL        703/BAL
    GETCSADD
             75/REF        526/BAL
    HILIMIT4
             64/REF        118/BGE        139/BGE        173/BGE
    HWX1SIZE
             42/REF        761/CI
    HWX3SIZE
             43/REF        157/CI
    IOADD
            148/LI
    IORL
             97/STW        149/BAL        240/BAL        241/BAL        244/BAL        260/STW        367/BAL
            516/BAL        679/STW
    IOSIZE
            242/LB         364/LW         365/SW         366/AWM        513/LW         514/SW         515/AI
    KLINE
            215/STW        717/SW
    L
            631/AND
    LABELLOC
            267/STW        364/LW         513/LW
    LAST
            760/STW        769/B*
    LCLDLTE
             76/REF        521/BAL        706/BAL
    LENGTH
             77/REF        416/CALL
    LENGTHFLD
            396/AND        411/LV         459/LV         494/AND        505/LV
    LISTET
            402/CV
    LITCS
            427/STW
    LITFS
            726/LI         731-SPIECT
    LITORG
            435/STW        687/CW
    LITSIZE
            731/SPIECT     732-SPECINT
    LITSRCH
             78/REF        477/BAL
    LITTABLE
            440/LI         709/LW         712/STW
    LO%FLAG
             44/REF        197/MTW
    LOCALORG
            219/STW
    LOCFLD
            718/LV
    LOWCORE
             45/REF        107/LW
    LPTRFLD
            288/AND        379/AND        470/AND        599/AND
    LSTCT
            692/MTW
    LVL
            212/LW         213/AW         214/SLS        215/STW        219/STW        221/STW        222/STW
            223/STW        225/STW
    MAJERRLN
            201/MTW
    MAJLINE
             46/REF        193/STW
    MARKCF1
            152-RES        158/BL
    MARKEND
            154/BL         160-RES
    MAXCSECT
            203/MTW        572/CW
    MAXDD
            527/LW         529/STW
    MAXDDFLD
            433/AND        528/AND        685/AND
    MAXLOC
             79/REF        522/BAL        737/BAL
    NAMENUM
            578/MTW        590/SW         591/AW         644/LW
    NBYTES
            336/LI         345/LI         355/LI         385/LI         393/AI         398/LW         418/SW
            541/LI         545/LI         564/LI         588/LI         591/AW         644/LW         659/AI
            700/LI         763/LW         765/LW
    NCDITEM
            278/STW        325/LW
    NCLEARS
            183/LI
    NCLEARS1
            673/LI
    NE
            622/IF
    NEXTITEM
            274/BAL        297/BAL        302/BAL        339/BAL        348/BAL        759-RES
    NLITS
            428/LW         436/LW         483/MTW        680/LW         690/STW
    NOLIST
            199/MTW        250/MTW
    NOWORDS
            262/STW        324/LW         331/MTW        548/LW         581/MTW        583/LW         584/MTW
            595/LW         636/LW
    NXSYMB
             48/REF        112/LW         136/LW         141/LW         163/AW         372/LW
    NXTITEM1
            762/BL         766-RES
    NXTLOCAL
            131/STW        213/AW         217/LW
    NXTRECRD
             80/REF        272/BAL        517/BAL        764/BAL
    NXTSYMT
            171/STW        212/LW         264/AW         318/STW*       413/LW*        461/LW*        507/LW*
    NZ
            111/IF         243/IF         429/IF
    OLDCSECT
             81/REF        209/BAL
    PASS
            671/MTW
    PASSDEF
            133/STW        230/AW         670/STW
    PGLINES
             49/REF        191/STW
    POSITIONX1
             50/REF        367/BAL        516/BAL
    POSITIONX3
             51/REF        244/BAL
    PRINT
             82/REF        707/BAL
    PSTRIG
            202/MTW
    PTFLD
            533/LV
    RD%STD
             52/REF        247/LW         248/STH
    READCF1
            147-RES        159/B
    READX3
             53/REF        149/BAL
    REFORSREF
            455/CV
    REWX1
             54/REF        240/BAL
    REWX3
             55/REF        241/BAL
    RL
            142/LV         143/STW        145/STW        165/LI         166/STW        167/STW        168/STW
            169/STW        181/STW        209/BAL        226/BAL        235/BAL        237/BAL        272/BAL
            274/BAL        297/BAL        302/BAL        338/BAL        339/BAL        348/BAL        350/BAL
            401/BAL        430/BAL        477/BAL        517/BAL        521/BAL        522/BAL        526/BAL
            546/LW         547/SLS        551/CH         554/LH         555/STB        561/SLS        562/STW
            568/BAL        585/LH         587/STW        592/LI         593/STB        594/BAL        601/BAL
            608/BAL        643/LH         646/SLS        648/STW        682/BAL        697/BAL        702/BAL
            703/BAL        706/BAL        707/BAL        711/LW         712/STW        716/BAL        728/BAL
            737/BAL        760/STW        764/BAL
    ROOTRTN
             56/REF         97/STW        251/B*         255/B*         260/STW        679/STW        738/B*
    S:IVAL#
            234/LV
    SD%FLAG
             57/REF        110/LW         612/MTW
    SDEXTSYMCD
             88-EQU        654/AV
    SDTT
            108/STW        652/LB*
    SEGMENT#
             47/REF         98/MTW        672/MTW
    SF
            254/MTW
    SOCW%FLG
            268/MTW        530/MTW        698/MTW
    SPADDRET
            621/CV
    SPAFLD
            229/AV         287/BFNZ       293/BFNZ       378/BFNZ       383/BFNZ       452/BFZ        469/BFNZ
            598/BFNZ
    SPALOB
            142/LV
    SPINTFLD
            229/AV         453/BFNZ
    STARTCD
            701/LI         733-DATA
    STYPEFLD
            488/LV         502/LV
    SUBLINE
             46/REF        194/STW
    SUMET
            405/CV
    SYMBOL
            489/CS         491/CS
    SYMT
            109/STW        115/AWM        116/LW         123/STW*       137/AW         143/STW*       145/STW*
            155/STW*       162/LW         218/SW         285/AW         290/AW         373/AW         381/AW
            422/CW         449/AW         466/AW         472/AW         597/LW*        606/AW         711/LW*
            713/AW
    SYSLEVEL
             58/REF        192/STW
    SYSLVL
            223/STW
    TEMP
            231/STW        232/LI         342/STW        351/MTW        374/STW        376/MTW        377/LW*
            421/LW         544/LI         562/STW        563/LI
    TEMPO
            265/STW        326/STH*       330/STH*       551/CH*        554/LH*        557/STH*       585/LH*
            596/LH*        637/LH*        643/LH*        720/STW        721/LI
    TEMP1
            535/STW        536/LB         540/LI         555/STB
    TEXTCT
            266/LW         365/SW         366/AWM        514/SW
    TX1
            441/STW        444/LW         450/STW        484/LW*
    TX2
            445/STW        485/STW*
    TYPE
             83/REF        401/BAL        620/CALL       716/BAL
    TYPEFLD
            488/LV
    VAL%S:IVAL
             59/REF        228/LW
    VALCNT
            724/STW
    VALPTR
            722/STW
    VFLD
            277/AND
    XT
            107/LW         108/STW        109/STW        110/LW         112/LW         113/AI         114/SLS
            115/AWM        120/LCW        120/LCW        123/STW        124/BIR        127/LI         128/STW
            129/LW         130/AI         131/STW        132/LV         133/STW        136/LW         137/AW
            138/CW         141/LW         143/STW        144/BDR        153/LH         155/STW        162/LW
            163/AW         164/STW        166/STW        167/STW        168/STW        169/STW        170/AI
            171/STW        172/CW         175/LI         176/STH        177/LI         178/STW        179/LI
            180/STW        181/STW        182/BDR        188/LI         189/STW        191/STW        192/STW
            193/STW        194/STW        210/LV         211/STB        217/LW         218/SW         219/STW
            220/LI         221/STW        222/STW        223/STW        224/LI         225/STW        228/LW
            229/AV         230/AW         231/STW        232/LI         233/STW        234/LV         247/LW
            248/STH        261/LI         262/STW        263/XW         264/AW         265/STW        266/LW
            267/STW        275/CI         277/AND        278/STW        280/CS         285/AW         286/LW
            291/LW         292/LW         298/SLS        299/CI         301/LW         315/LW         320/STS
            324/LW         326/STH        327/AI         330/STH        341/SLS        342/STW        349/STW
            372/LW         373/AW         374/STW        377/LW         378/BFNZ       379/AND        381/AW
            382/LW         392/AI         400/LW         412/LS         414/STS        417/AW         421/LW
            422/CW         426/LW         427/STW        428/LW         432/LW         433/AND        434/SLS
            435/STW        436/LW         437/SLS        438/AWM        439/AWM        440/LI         441/STW
            444/LW         445/STW        446/LW         451/LW         452/BFZ        453/BFNZ       455/CV
            460/AND        461/LW         461/LW         462/STS        465/BFNZ       466/AW         467/STW
            468/LW         468/LW         469/BFNZ       470/AND        472/AW         473/STW        474/LW
            474/LW         476/BFZ        478/CI         489/CS         491/CS         494/AND        495/AI
            496/STW        501/LW         503/CS         506/AND        507/LW         507/LW         508/STS
            511/LW         512/STW        519/LW         520/STW        527/LW         528/AND        529/STW
            534/LS         535/STW        536/LB         537/CI         566/STB        575/LW         576/CI
            583/LW         585/LH         595/LW         596/LH         596/LH         597/LW         604/LW
            606/AW         607/STW        637/LH         652/LB         652/LB         653/AW         654/AV
            655/STH        669/LV         670/STW        680/LW         684/LW         685/AND        686/SLS
            687/CW         689/LI         690/STW        709/LW         711/LW         713/AW         714/AI
            715/LW         717/SW         719/LS         720/STW        721/LI         722/STW        723/LI
            724/STW        725/STW        726/LI         727/STW        763/LW         765/LW         767/LH
    XT1
            116/LW         117/CW         121/LI         123/STW        151/LV         155/STW        183/LI
            184/STW        189/STW        190/BIR        279/LI         286/LW         287/BFNZ       288/AND
            290/AW         291/LW         292/LW         293/BFNZ       294/BFNZ       310/AND        311/CV
            321/SHIFT      325/LW         326/STH        329/LW         330/STH        332/LI         334/AI
            335/STW        337/LI         347/LI         382/LW         383/BFNZ       396/AND        397/AI
            398/LW         400/LW         417/AW         418/SW         459/LV         460/AND        488/LV
            502/LV         505/LV         506/AND        533/LV         540/LI         544/LI         563/LI
            566/STB        589/LI         590/SW         593/STB        597/LW         598/BFNZ       599/AND
            604/LW         619/LW         631/AND        632/SHIFT      653/AW         660/LI         673/LI
            701/LI         715/LW         718/LV
    XT2
            211/STB*       238/STW        317/LW         318/STW        320/STS        402/CV         405/CV
            408/CV         412/LS         413/LW         413/LW         414/STS        446/LW         449/AW
            450/STW        451/LW         462/STS        484/LW         485/STW        498/AI         501/LW
            508/STS        523/LI         525/STW        527/LW         529/STW        534/LS         546/LW
            548/LW         550/AI         551/CH         553/AI         554/LH         557/STH        558/LW
            559/CI         570/LW         571/AI         572/CW         621/CV         623/CV         636/LW
            637/LH         642/AI         643/LH
    XT3
            315/LW         318/STW        319/LV         411/LV
    XW
            150/LI         153/LH         156/AI         157/CI         343/AI         761/CI         767/LH
            768/AI
    X1BUF
             60/REF        767/LH
    X3BUF
             61/REF        148/LI         153/LH
    1STDEF
            184/STW        280/CS         282/MTH        306/MTH        358/MTH        361/MTH        363/MTH
    %
            144/BDR        182/BDR        190/BIR        198/BNEZ       303/BDR
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APDGINT'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APDGINT                 %%%%%
         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                 DGI      CSECT    1                 PROCEDURE
        34                                     DEF      DGI
        35                                     DEF      DGINIT
        36                                     DEF      ENDDEF
        37                                     DEF      ENDGEN
        38                            *
        39                                     REF      CLRLSTBF
        40                                     REF      DC%FLAG           CONCORDANCE CONTROL
        41                                     REF      ENDCORE
        42                                     REF      HWX1SIZE
        43                                     REF      HWX3SIZE
        44                                     REF      LO%FLAG
        45                                     REF      LOWCORE
        46                                     REF      MAJLINE,SUBLINE   ASSEMBLY LINE NUMBER
        47                                     REF      SEGMENT#          AP OVERLAY SEGMENT
        48                                     REF      NXSYMB
        49                                     REF      PGLINES
        50                                     REF      POSITIONX1
        51                                     REF      POSITIONX3
        52                                     REF      RD%STD
        53                                     REF      READX3
        54                                     REF      REWX1
        55                                     REF      REWX3
        56                                     REF      ROOTRTN
        57                                     REF      SD%FLAG
        58                                     REF      SYSLEVEL
        59                                     REF      VAL%S:IVAL
        60                                     REF      X1BUF
        61                                     REF      X3BUF
        62                            *
        63                                     REF      BEDIT
        64                                     REF      HILIMIT4          ABORT W/ SPACE OVERFLOW
        65                            *
        66                                     REF      BOUND4
        67                                     REF      DEFHEXLBL
        68                                     REF      DEFINE2
        69                                     REF      DELETEXP
        70                                     REF      EDITV
        71                                     REF      EERR
        72                                     REF      EXPEND
        73                                     REF      GENERATE1
        74                                     REF      GENERATE3
        75                                     REF      GETCSADD
        76                                     REF      LCLDLTE
        77                                     REF      LENGTH
        78                                     REF      LITSRCH
        79                                     REF      MAXLOC
        80                                     REF      NXTRECRD
        81                                     REF      OLDCSECT
        82                                     REF      PRINT
        83                                     REF      TYPE
        84                            *
        85                                     SYSTEM   AP%IL
        86                                     SYSTEM   AP%DG
  C00
        87                            *
        88         00000011           SDEXTSYMCD  EQU   17                LOADER CODE FOR EXT. SYM. TYPE INFO.
1
        90   04 000BE                          USECT    DGI
        91                            *
        92                            *   D E F G E N        * * *  I N I T I A L I Z A T I O N  * * *
        93                            *
        94                                     LOCAL    %10
        95                            *
        96   02 00000                 DGINIT   RES      0
        97   02 00000    35A00000 X            STW,IORL ROOTRTN           SAVE RETURN ADDRESS TO ROOT
        98   02 00001    33100000 X            MTW,+1   SEGMENT#          BUMP OVERLAY SEGMENT NUMBER
        99                            *
       100                            *   INITIALIZATION FOR THE DEFINITION PASS ONLY
       101                            *
       102                            *        IF THE 'SD' OPTION IS NOT SPECIFIED, THE FIXED PORTION OF THE
       103                            *        GLOBAL SYMBOL TABLE BEGINS AT THE BASE OF DYNAMIC STORAGE.  IF
       104                            *        'SD' IS SPECIFIED, HOLD OUT 'NXSYMB' BYTES FOR TYPE INFORMATION
       105                            *        AND START THE GLOBAL TABLE AFTER THAT.
       106                            *
       107   02 00002    32400000 X            LW,XT    LOWCORE
       108   02 00003    35400036 03           STW,XT   SDTT              SD TYPE-TABLE BASE
       109   02 00004    35400037 03           STW,XT   SYMT              GLOBAL SYMBOL TABLE BASE
       110   02 00005    32400000 X            LW,XT    SD%FLAG
       111         001F0000                    IF,NZ                 -20- DOIF SD SPECIFIED
             02 00006    68300012
       112   02 00007    32400000 X            LW,XT    NXSYMB
       113   02 00008    20400004 A            AI,XT    4
       114   02 00009    2540007E A            SLS,XT   -2
       115   02 0000A    66400037 03           AWM,XT   SYMT              BUMP BASE BY (NXSYMB+1)//4
       116   02 0000B    32500037 03           LW,XT1   SYMT
       117   02 0000C    31500000 X            CW,XT1   ENDCORE
       118   02 0000D    68100000 X            BGE      HILIMIT4          NO ROOM TO EVEN GET STARTED
       119                            *
       120   02 0000E    3A400004 A            LCW,XT   XT
       121   02 0000F    22500000 A            LI,XT1   0
       122   02 00010                 %10      RES      0                 CLEAR SDTT
       123   02 00010    B5580037 03           STW,XT1  *SYMT,XT
       124   02 00011    65400010              BIR,XT   %10
       125                            *
       126         00F10000                    FI                    -20-
       127   02 00012    22400087 04           LI,XT    FREELIST          SELF-ADDRESS FREE LIST POINTER
       128   02 00013    35400087 04           STW,XT   FREELIST
       129   02 00014    32400000 X            LW,XT    ENDCORE
       130   02 00015    204FFFFF A            AI,XT    -1                INITIALIZE START ADDRESS OF
       131   02 00016    3540009F 04           STW,XT   NXTLOCAL            LOCAL SYMBOL TABLE
       132   02 00017    324001F9              LV,XT    1**(31-DEFLOB)
       133   02 00018    354000A5 04           STW,XT   PASSDEF           INITIALIZE FOR DEFINITION PASS
       134                            *   INITIALIZE SYMBOL TABLE TO SPECIAL ADDRESS
       135                            *
       136   02 00019    32400000 X            LW,XT    NXSYMB
       137   02 0001A    30400037 03           AW,XT    SYMT
       138   02 0001B    31400000 X            CW,XT    ENDCORE
       139   02 0001C    68100000 X            BGE      HILIMIT4          NO ROOM TO EVEN GET STARTED
       140                            *
       141   02 0001D    32400000 X            LW,XT    NXSYMB            NUMBER OF SYMBOL TABLE ENTRIES
       142   02 0001E    327001FA              LV,RL    1**(31-SPALOB)    SPA BIT=1 , ALL OTHERS=0
       143   02 0001F    B5780037 03           STW,RL   *SYMT,XT
       144   02 00020    6440001F              BDR,XT   %-1
       145   02 00021    B5700037 03           STW,RL   *SYMT
       146                            *   READ THE NAMES USED AS COMMANDS AND MARK THEIR SYMBOL TABLE ENTRIES
       147   02 00022                 READCF1  RES      0
       148   02 00022    22800000 N            LI,IOADD X3BUF
       149   02 00023    6AA00000 X            BAL,IORL READX3            READ A RECORD OF CF1 SYMBOL #S
       150   02 00024    22200000 A            LI,XW    0                 RESET INDEX
       151   02 00025    22510000 A            LV,XT1   1**(31-CPTRLOB)   VALUE OF 1 FOR CPTR FIELD
       152   02 00026                 MARKCF1  RES      0
       153   02 00026    52440000 X            LH,XT    X3BUF,XW          LOAD NEXT SYMBOL NUMBER
       154   02 00027    6910002D              BL       MARKEND           DONE IF SYMBOL NUMBER IS NEGATIVE
       155   02 00028    B5580037 03           STW,XT1  *SYMT,XT            FIELD BY SETTING CPTR TO ONE
       156   02 00029    20200001 A            AI,XW    1                 INCREMENT INDEX
       157   02 0002A    21200000 N            CI,XW    HWX3SIZE
       158   02 0002B    69100026              BL       MARKCF1           CONTINUE UNTIL END OF RECORD
       159   02 0002C    68000022              B        READCF1
       160   02 0002D                 MARKEND  RES      0
       161                            *   DETERMINE THE BEGINNING OF DYNAMIC TABLE STORAGE
       162   02 0002D    32400037 03           LW,XT    SYMT              ORIGIN OF SYMBOL TABLE PLUS NUMBER
       163   02 0002E    30400000 X            AW,XT    NXSYMB              OF SYMBOLS IS ADDRESS OF NEXT
       164   02 0002F    35400033 03           STW,XT   CS0LOC              AVAILABLE SYMBOL TABLE ENTRY
       165   02 00030    22700000 A            LI,RL    0
       166   02 00031    35780000 A            STW,RL   0,XT              INITIALIZE
       167   02 00032    35780001 A            STW,RL   1,XT                CONTROL
       168   02 00033    35780003 A            STW,RL   3,XT                SECTIONS
       169   02 00034    35780004 A            STW,RL   4,XT                ZERO AND ONE
       170   02 00035    20400030 A            AI,XT    16*CSTBLSIZE      ROOM FOR CONTROL SECTIONS 0-15
       171   02 00036    354000A0 04           STW,XT   NXTSYMT           START OF DYNAMIC TABLE STORAGE
       172   02 00037    31400000 X            CW,XT    ENDCORE
       173   02 00038    68100000 X            BGE      HILIMIT4          NO ROOM TO EVEN GET STARTED
       174                            *
       175   02 00039    22403CFF A            LI,XT    X'3CFF'           SET BOBUF BINARY FORMAT
       176   02 0003A    55400020 04           STH,XT   BOBUF               AND SEQ. NO. BYTES
       177   02 0003B    2240006C A            LI,XT    108
       178   02 0003C    35400031 03           STW,XT   BOMAX             MAX # ACTIVE BYTES / BINARY RECORD
       179   02 0003D    22400004 A            LI,XT    4
       180   02 0003E    35400030 03           STW,XT   BOCT              INITIALIZE BO COUNT FOR BEDIT
       181   02 0003F    35780039 04           STW,RL   BOBUF+25,XT       CLEAR LAST FOUR WORDS
       182   02 00040    6440003F              BDR,XT   %-1                 OF BINARY OUTPUT BUFFER
       183   02 00041    225FFFD0 A            LI,XT1   -NCLEARS          NUMBER OF VARIABLES TO CLEAR
       184   02 00042    35500038 03           STW,XT1  1STDEF
       185   02 00043                 DEFGEN1  RES      0
       186                            *   INITIALIZATION THAT IS COMMON TO BOTH PASSES
       187                            *   CLEAR VARIABLES
       188   02 00043    22400000 A            LI,XT    0
       189   02 00044    354A0030 03           STW,XT   ENDORG,XT1
       190   02 00045    65500044              BIR,XT1  %-1
       191   02 00046    35400000 X            STW,XT   PGLINES           FORCE TOP OF PAGE
       192   02 00047    35400000 X            STW,XT   SYSLEVEL          INITIALIZE TO SOURCE LEVEL
       193   02 00048    35400000 X            STW,XT   MAJLINE           CLEAR LINE NUMBER
       194   02 00049    35400000 X            STW,XT   SUBLINE
       195                            *
       196                            *   SET LISTING CONTROL
       197   02 0004A    33000000 X            MTW,0    LO%FLAG
       198   02 0004B    6930004D              BNEZ     %+2               BRANCH IF 'LO' OUTPUT REQUESTED
       199   02 0004C    3380001D 03           MTW,8    NOLIST            SUPPRESS LO OUTPUT
       200                            *   INITIALIZE VARIABLES
       201   02 0004D    33F00018 03           MTW,-1   MAJERRLN
       202   02 0004E    33100023 03           MTW,1    PSTRIG            SET SYSTEM LISTING CONTROL OFF
       203   02 0004F    33100019 03           MTW,1    MAXCSECT          NEXT CONTROL SECTION IS # 1
       204   02 00050    3310000A 03           MTW,1    DLRCS             INITIALIZE CONTROL SECTION TO ONE
       205   02 00051    3310000B 03           MTW,1    DDLRCS              AND %% CONTROL SECTION TO ONE
       206   02 00052    3320000C 03           MTW,2    DLRRS             INITIALIZE LOCATION COUNTERS
       207   02 00053    3320000D 03           MTW,2    DDLRRS              TO WORD RESOLUTION
       208                            *   INITIALIZE CONTROL SECTION NUMBER ONE (DEFAULT CONTROL SECTION)
       209   02 00054    6A700000 X            BAL,RL   OLDCSECT          SAVE LOC COUNTER VAL AND RESOLUTION
       210   02 00055    2240000C A            LV,XT    CSTYPE            INITIALIZE CONTROL SECTION
       211   02 00056    F5400006 A            STB,XT   *XT2                ONE TO CSECT TYPE
       212   02 00057    323000A0 04           LW,LVL   NXTSYMT
       213   02 00058    3030009F 04           AW,LVL   NXTLOCAL
       214   02 00059    2530007F A            SLS,LVL  -1
       215   02 0005A    35300035 03           STW,LVL  KLINE             ORIGIN OF MISC DYNAMIC TABLES
       216                            *   INITIALIZE THE PROCEDURE LEVEL TABLE
       217   02 0005B    3240009F 04           LW,XT    NXTLOCAL          INITIALIZE LOCALCT TO ZERO, AND
       218   02 0005C    38400037 03           SW,XT    SYMT                LOCALORG TO THE ORIGIN OF THE
       219   02 0005D    35460009 A            STW,XT   LOCALORG,LVL        LOCAL SYMBOL TABLE
       220   02 0005E    22400000 A            LI,XT    0
       221   02 0005F    35460006 A            STW,XT   DOCT,LVL          ZERO BOTH
       222   02 00060    35460007 A            STW,XT   DO1CT,LVL           DO COUNTS
       223   02 00061    3546000A A            STW,XT   SYSLVL,LVL        CLEAR NUMBER SYSTEMS AT THIS LEVEL
       224   02 00062    224FFFFF A            LI,XT    -1                INITIALIZE OFFSET TO EXPRESSION
       225   02 00063    3546000C A            STW,XT   ECTORG,LVL        CONTROL TABLE ORIGIN
       226   02 00064    6A700000 X            BAL,RL   DELETEXP          INITIALIZE ECT,LVL AND EVT,LVL
       227                            *   INITIALIZE INTRINSIC SYMBOLS
       228   02 00065    32400000 X            LW,XT    VAL%S:IVAL        VALUE TO ASSIGN TO S:IVAL
       229   02 00066    304001FB              AV,XT    SPAFLD+SPINTFLD
       230   02 00067    304000A5 04           AW,XT    PASSDEF
       231   02 00068    35400046 04           STW,XT   TEMP              MAKE IT A SPECIAL INTEGER
       232   02 00069    22400046 04           LI,XT    TEMP
       233   02 0006A    35400066 04           STW,XT   ARG               POINTER TO VALUE TO ASSIGN
       234   02 0006B    2240003B A            LV,XT    S:IVAL#           SYMBOL NUMBER FOR S:IVAL
       235   02 0006C    6A700000 X            BAL,RL   DEFINE2           DEFINE S:IVAL
       236                            *   SET THE LISTING BUFFER TO BLANKS
       237   02 0006D    6A700000 X            BAL,RL   CLRLSTBF          CLEAR LIST BUFFER
       238   02 0006E    35600012 03           STW,XT2  ERRTRIG
       239                            *   POSITION FILES
       240   02 0006F    6AA00000 X            BAL,IORL REWX1             REWIND ENCODED TEXT
       241   02 00070    6AA00000 X            BAL,IORL REWX3             REWIND INTERMEDIATE SYMBOLIC
       242   02 00071    72900000 X            LB,IOSIZE   DC%FLAG
       243         001F0000                    IF,NZ                      SKIP PAST CN CONTROL INFO
             02 00072    68300074
       244   02 00073    6AA00000 X            BAL,IORL POSITIONX3
       245         00F10000                    FI
       246                            *   INITIALIZE INPUT FLAG (0,INPUT FROM X1 FILE ; 1,INPUT FROM STD FILE)
       247   02 00074    32400000 X            LW,XT    RD%STD            LOAD PRE-ENCODED SYSTEM FLAG
       248   02 00075    55400000 X            STH,XT   RD%STD            STORE AS INPUT FILE FLAG
       249   02 00076    68300079              BEZ      DEFGEN2           NO PRE-ENCODED SYSTEM
       250   02 00077    3340001D 03           MTW,4    NOLIST        DONT LIST DURING PRE-ENCODED PROCESSING
       251   02 00078    E8000000 X            B        *ROOTRTN          LEAVE SF ZERO FOR STD FILE PROCESSING
       252   02 00079                 DEFGEN2  RES      0
       253                            *   INITIALIZE SOURCE FLAG TO ONE FOR X1 FILE PROCESSING
       254   02 00079    33100024 03           MTW,1    SF
       255   02 0007A    E8000000 X            B        *ROOTRTN          RETURN TO THE ROOT
       256                            *
       257                            *   E N D  O F  D E F I N I T I O N  P A S S
       258                            *
       259   02 0007B                 ENDDEF   RES      0
       260   02 0007B    35A00000 X            STW,IORL ROOTRTN           SAVE RETURN ADDRESS TO ROOT
       261   02 0007C    22400000 A            LI,XT    0
       262   02 0007D    3540009E 04           STW,XT   NOWORDS           INITIALIZE NUMBER OF DEFS TO ZERO
       263   02 0007E    46400000 03           XW,XT    DECLRNUM          NUMBER OF REF AND SREFS
       264   02 0007F    304000A0 04           AW,XT    NXTSYMT
       265   02 00080    35400061 04           STW,XT   TEMPO             BASE ADDRESS FOR DEF NUMBERS
       266   02 00081    3240002E 03           LW,XT     TEXTCT
       267   02 00082    3540008B 04           STW,XT    LABELLOC            SAVE ENCODED TEXT RECORD NUMBER
       268   02 00083    33000007 03           MTW,0    SOCW%FLG
       269   02 00084    693000FE              BNEZ     END15
       270                            *
       271   02 00085                 END%1    RES       0
       272   02 00085    6A700000 X            BAL,RL   NXTRECRD          READ 1ST RECORD OF EBCDIC NAMES
       273   02 00086                 END2     RES      0
       274   02 00086    6A7001F0              BAL,RL   NEXTITEM          GET SYMBOL NUMBER OF NEXT NAME
       275   02 00087    21400000 A            CI,XT    0
       276   02 00088    691000D0              BL       END9              END OF EBCDIC NAMES
       277   02 00089    4B4001FC              AND,XT   =VFLD
       278   02 0008A    3540009B 04           STW,XT   NCDITEM
       279   02 0008B    2250FFFF A            LI,XT1    X'FFFF'
       280   02 0008C    45400038 03           CS,XT     1STDEF              BRANCH IF THIS SYMBOL OCCURRED
       281   02 0008D    683000A3              BE        END%4                 AS THE FIRST DEF
       282   02 0008E    53000038 03           MTH,0     1STDEF              SKIP THIS SYMBOL IF
       283   02 0008F    6830009B              BEZ       END3                  LOOKING FOR FIRST DEF
       284   02 00090                 END%3    RES       0
       285   02 00090    30400037 03           AW,XT    SYMT              SYMBOL TABLE ADDRESS OF NAME
       286   02 00091    32580000 A            LW,XT1   0,XT
       287   02 00092    691000A6              BFNZ,XT1 SPAFLD,END4       ONE WORD ENTRY
       288   02 00093    4B5001FD              AND,XT1  =LPTRFLD
       289   02 00094    6830009B              BEZ      END3              ITEM USED AS A COMMAND NAME ONLY
       290   02 00095    30500037 03           AW,XT1   SYMT              ADDRESS OF SYMBOL
       291   02 00096    32400005 A            LW,XT    XT1
       292   02 00097    32580000 A            LW,XT1   0,XT
       293   02 00098    691000A6              BFNZ,XT1 SPAFLD,END4       ONE WORD ENTRY
       294   02 00099    315001FE              BFNZ,XT1 EXTFLD,END5       ITEM MUST BE AN EXTERNAL DEFINITION
             02 0009A    694000B2
       295                            *   HERE IF NAME IS TO BE SKIPPED
       296   02 0009B                 END3     RES      0
       297   02 0009B    6A7001F0              BAL,RL   NEXTITEM          GET BYTE COUNT FOR CURRENT NAME
       298   02 0009C    25400077 A            SLS,XT   -9                CONVERT BYTE COUNT TO HALFWORD COUNT
       299   02 0009D    21400000 A            CI,XT    0
       300   02 0009E    68300086              BEZ      END2              NO MORE TO SKIP
       301   02 0009F    32F00004 A            LW,ER    XT                NUMBER OF HALFWORDS TO SKIP
       302   02 000A0    6A7001F0              BAL,RL   NEXTITEM          GET NEXT HALFWORD
       303   02 000A1    64F000A0              BDR,ER   %-1               CONTINUE SKIPPING UNTIL ENTIRE
       304   02 000A2    68000086              B        END2                NAME HAS BEEN SKIPPED
       305   02 000A3                 END%4    RES       0
       306   02 000A3    53000038 03           MTH,0     1STDEF              OUTPUT THIS SYMBOL IF
       307   02 000A4    68300090              BEZ       END%3                 LOOKING FOR FIRST DEF
       308   02 000A5    6800009B              B         END3                SKIP THE FIRST DEF SYMBOL
       309   02 000A6                 END4     RES      0
       310   02 000A6    4B5001FE              AND,XT1  =EXTFLD
       311   02 000A7    315001FF              CV,XT1   DEFEXT
       312   02 000A8    6910009B              BL       END3              ENTRY IS NOT EXTERNAL, SKIP IT
       313   02 000A9    683000B2              BE       END5              ENTRY IS AN EXTERNAL DEFINITION
       314                            *   HERE IF ENTRY IS AN EXTERNAL REFERENCE
       315   02 000AA    32780000 A            LW,XT3   0,XT              GET PREVIOUSLY ASSIGNED DECLR. NUM.
       316   02 000AB    33100000 03           MTW,1    DECLRNUM          INCREMENT DECLARATION NUMBER
       317   02 000AC    32600000 03           LW,XT2   DECLRNUM
       318   02 000AD    B56E00A0 04           STW,XT2  *NXTSYMT,XT3      SAVE NEW ASSIGNMENT
       319   02 000AE    2271FFFF A            LV,XT3   ADDFLD
       320   02 000AF    47680000 A            STS,XT2  0,XT              REASSIGN DECLR. NUM. IN SEQUENCE
       321   02 000B0    2550020A A            SHIFT,XT1 EXTLOB,31
       322   02 000B1    680000BB              B        END6
       323   02 000B2                 END5     RES      0
       324   02 000B2    3240009E 04           LW,XT    NOWORDS           NUMBER OF DEFS
       325   02 000B3    3250009B 04           LW,XT1   NCDITEM           STORE SYMBOL NUMBER OF DEF SYMBOL
       326   02 000B4    D5580061 04           STH,XT1  *TEMPO,XT           IN LEFT HALF OF WORD
       327   02 000B5    20400001 A            AI,XT    1                 INCREMENT INDEX TO RIGHT HALF
       328   02 000B6    33100000 03           MTW,1    DECLRNUM          INCREMENT DECLARATION NUMBER
       329   02 000B7    32500000 03           LW,XT1   DECLRNUM
       330   02 000B8    D5580061 04           STH,XT1  *TEMPO,XT         STORE DECLARATION NUMBER OF DEF
       331   02 000B9    3320009E 04           MTW,2    NOWORDS           INCREMENT NUMBER OF DEFS
       332   02 000BA    22500000 A            LI,XT1   0
       333   02 000BB                 END6     RES      0
       334   02 000BB    20500003 A            AI,XT1   3                 FORM LOADER CODES OF 3, 5, OR 6
       335   02 000BC    35500060 04           STW,XT1  DD%TYPE             TO DECLARE EXTERNAL NAME
       336   02 000BD    22800001 A            LI,NBYTES 1                NUMBER OF BYTES TO OUTPUT
       337   02 000BE    22500183 04           LI,XT1   BA(DD%TYPE)+3     BYTE ADDRESS OF ITEM TO OUTPUT
       338   02 000BF    6A700000 X            BAL,RL   BEDIT             OUTPUT LOADER CODE
       339   02 000C0    6A7001F0              BAL,RL   NEXTITEM          GET BYTE COUNT FOR EXTERNAL NAME
       340                            *                                     AND FIRST EBCDIC CHARACTER
       341   02 000C1    25400078 A            SLS,XT   -8
       342   02 000C2    35400046 04           STW,XT   TEMP              SAVE CHARACTER COUNT
       343   02 000C3    202FFFFF A            AI,XW    -1                BACK UP XW TO RELOAD CT AND 1ST CHAR
       344   02 000C4                 END7     RES      0
       345   02 000C4    22800002 A            LI,NBYTES 2                NUMBER OF BYTES TO OUTPUT
       346   02 000C5                 END8     RES      0
       347   02 000C5    225001E2 04           LI,XT1   BA(ACONVAL)+2     BYTE ADDRESS OF ITEMS TO OUTPUT
       348   02 000C6    6A7001F0              BAL,RL   NEXTITEM          GET NEXT 2 BYTES TO OUTPUT
       349   02 000C7    35400078 04           STW,XT   ACONVAL
       350   02 000C8    6A700000 X            BAL,RL   BEDIT             OUTPUT NEXT 2 BYTES OF EXT. NAME
       351   02 000C9    33E00046 04           MTW,-2   TEMP              DECREASE CHARACTER COUNT BY 2
       352   02 000CA    692000C4              BGZ      END7              MORE CHARACTERS TO OUTPUT
       353   02 000CB    691000CE              BLZ       END%9               ALL CHARACTERS HAVE BEEN OUTPUT
       354                            *   HERE IF ONLY ONE CHARACTER REMAINS TO BE OUTPUT
       355   02 000CC    22800001 A            LI,NBYTES 1                NUMBER OF BYTES TO OUTPUT
       356   02 000CD    680000C5              B        END8
       357   02 000CE                 END%9    RES       0
       358   02 000CE    53000038 03           MTH,0     1STDEF              CONTINUE WITH ALL EXTERNALS
       359   02 000CF    69300086              BNEZ      END2                  IF NOT LOOKING FOR FIRST DEF
       360   02 000D0                 END9     RES      0
       361   02 000D0    53000038 03           MTH,0     1STDEF              DONE PROCESSING ALL EXTERNALS
       362   02 000D1    693000D8              BNEZ      END%10                IF NOT LOOKING FOR FIRST DEF
       363   02 000D2    53100038 03           MTH,1     1STDEF              FIRST DEF HAS BEEN OUTPUT
       364   02 000D3    3290008B 04           LW,IOSIZE  LABELLOC
       365   02 000D4    3890002E 03           SW,IOSIZE  TEXTCT
       366   02 000D5    6690002E 03           AWM,IOSIZE  TEXTCT            POSITION X1 FILE BACK TO FIRST
       367   02 000D6    6AA00000 X            BAL,IORL  POSITIONX1            RECORD OF EBCDIC NAMES
       368   02 000D7    68000085              B        END%1             BACK TO PROCESS ALL EXTERNALS
       369   02 000D8                 END%10   RES      0
       370                            *   SEARCH THE DYNAMIC SYMBOL TABLE FOR ANY EXTERNAL REFERENCE ENTRIES
       371                            *     AND RE-ASSIGN THE EXTERNAL REFERENCE NUMBER
       372   02 000D8    32400000 X            LW,XT    NXSYMB            NUMBER OF SYMBOLS IN FIXED TABLE
       373   02 000D9    30400037 03           AW,XT    SYMT                PLUS BASE ADDRESS OF TABLE IS END
       374   02 000DA    35400046 04           STW,XT   TEMP                ADDRESS + 1
       375   02 000DB                 END10    RES      0
       376   02 000DB    33F00046 04           MTW,-1   TEMP              POINTER TO NEXT CONTROL WORD
       377   02 000DC    B2400046 04           LW,XT    *TEMP             LOAD ENTRY FROM FIXED SYMBOL TABLE
       378   02 000DD    691000FB              BFNZ,XT  SPAFLD,END14      ONE WORD ENTRY
       379   02 000DE    4B4001FD              AND,XT   =LPTRFLD
       380   02 000DF    683000FB              BEZ      END14             ENTRY NOT USED AS A SYMBOL
       381   02 000E0    30400037 03           AW,XT    SYMT
       382   02 000E1    32580000 A            LW,XT1   0,XT              LOAD DYNAMIC SYMBOL TABLE ENTRY
       383   02 000E2    691000FB              BFNZ,XT1 SPAFLD,END14      ONE WORD ENTRY
       384                            *
       385   02 000E3    22800001 A            LI,NBYTES 1                SET # OF ENTRIES TO PROCESS TO 1
       386   02 000E4    680000EB              B        END12
       387                            *
       388   02 000E5                 END11    RES      0
       389                            *
       390                            *   HERE FOR COMPLEX SUM OR LIST
       391                            *
       392   02 000E5    20400002 A            AI,XT    2                 POINT TO NEXT CONTROL WORD
       393   02 000E6    208FFFFE A            AI,NBYTES -2          REDUCE # OF ENTRIES TO PROCESS AND BRANCH
       394   02 000E7    692000EB              BGZ      END12           IF NOT OUTER-MOST LIST OR SUM
       395                            *
       396   02 000E8    4B500200              AND,XT1  =LENGTHFLD        GET LENGTH OF LIST OR SUM
       397   02 000E9    205FFFFE A            AI,XT1   -2                LENGTH LESS 2 (FOR CONTROL ITEMS)
       398   02 000EA    32800005 A            LW,NBYTES XT1                IS NUMBER OF ENTRIES TO PROCESS
       399   02 000EB                 END12    RES      0
       400   02 000EB    32580000 A            LW,XT1   0,XT              LOAD CONTROL WORD
       401   02 000EC    6A700000 X            BAL,RL   TYPE              GET ITEM'S TYPE
       402   02 000ED    31600201              CV,XT2   LISTET
       403   02 000EE    683000E5              BE       END11             BRANCH IF ITEM IS A LIST
       404                            *
       405   02 000EF    31600202              CV,XT2   SUMET
       406   02 000F0    683000E5              BE       END11             ENTRY IS A SUM
       407                            *
       408   02 000F1    31600203              CV,XT2   EXTET             SKIP THIS ITEM IF IT IS NOT AN
       409   02 000F2    693000F7              BNE      END13               EXTERNAL REFERENCE
       410                            *
       411   02 000F3    22707FFF A            LV,XT3   LENGTHFLD
       412   02 000F4    4A680000 A            LS,XT2   0,XT              GET DECLARATION NUMBER
       413   02 000F5    B26C00A0 04           LW,XT2   *NXTSYMT,XT2
       414   02 000F6    47680000 A            STS,XT2  0,XT              RE-ASSIGN DECLARATION NUMBER
       415   02 000F7                 END13    RES      0
       416   02 000F7    6A700000 N            CALL     LENGTH            SKIP THIS ITEM AND REDUCE
       417   02 000F8    30400005 A            AW,XT    XT1                 COUNT BY THE NUMBER OF WORDS
       418   02 000F9    38800005 A            SW,NBYTES XT1                SKIPPED
       419   02 000FA    692000EB              BGZ      END12             CONTINUE UNTIL ALL ENTRIES PROCESSED
       420   02 000FB                 END14    RES      0
       421   02 000FB    32400046 04           LW,XT    TEMP              ADDRESS OF CURRENT TABLE ENTRY
       422   02 000FC    31400037 03           CW,XT    SYMT              BASE ADDRESS OF TABLE
       423   02 000FD    692000DB              BG       END10             PROCESS ENTIRE SYMBOL TABLE
       424                            *
       425   02 000FE                 END15    RES      0
       426   02 000FE    3240000A 03           LW,XT    DLRCS
       427   02 000FF    35400001 03           STW,XT   LITCS             CONTROL SECTION FOR LITERALS
       428   02 00100    32400005 03           LW,XT    NLITS             DON'T ADVANCE THE LOCATION COUNTERS
       429         001F0000                    IF,NZ
             02 00101    68300103
       430   02 00102    6A700000 X            BAL,RL   BOUND4            LOCATION COUNTERS TO WORD BOUNDARY
       431         00F10000                    FI
       432   02 00103    3240000E 03           LW,XT    DLRVAL
       433   02 00104    4B400204              AND,XT   =MAXDDFLD        TRIM LOCATION COUNTER
       434   02 00105    2540007E A            SLS,XT   -2                CONVERT FROM BYTE TO WORD
       435   02 00106    35400002 03           STW,XT   LITORG            ORIGIN FOR LITERALS
       436   02 00107    32400005 03           LW,XT    NLITS             INCREASE BOTH LOCATION
       437   02 00108    25400002 A            SLS,XT   2                   COUNTERS BY THE NUMBER
       438   02 00109    6640000E 03           AWM,XT   DLRVAL              OF WORDS REQUIRED
       439   02 0010A    6640000F 03           AWM,XT   DDLRVAL             FOR THE LITERALS
       440   02 0010B    22400003 03           LI,XT    LITTABLE          ADDRESS OF WORD CONTAINING INDEX
       441   02 0010C    354000B8 04           STW,XT   TX1                 TO FIRST LITERAL TABLE ENTRY
       442   02 0010D                 END16    RES      0
       443                            *   HERE TO PROCEED TO NEXT LITERAL TABLE ENTRY
       444   02 0010D    324000B8 04           LW,XT    TX1               SAVE ADDRESS OF WORD CONTAINING
       445   02 0010E    354000B9 04           STW,XT   TX2                 OFFSET TO NEXT LITERAL ENTRY
       446   02 0010F    32680000 A            LW,XT2   0,XT              LOAD OFFSET TO NEXT LITERAL ENTRY
       447   02 00110                 END17    RES      0
       448   02 00110    68300148              BEZ      END25             END OF LITERAL TABLE
       449   02 00111    30600037 03           AW,XT2   SYMT              ADDRESS OF NEXT LITERAL ENTRY
       450   02 00112    356000B8 04           STW,XT2  TX1
       451   02 00113    324C0001 A            LW,XT    1,XT2
       452   02 00114    68100134              BFZ,XT   SPAFLD,END20      ENTRY IS NOT A ONE WORD ITEM
       453   02 00115    31400205              BFNZ,XT  SPINTFLD,END16    ENTRY IS A SPECIAL INTEGER, SKIP IT
             02 00116    6940010D
       454                            *   HERE IF ENTRY IS A SPECIAL ADDRESS
       455   02 00117    31400206              CV,XT    REFORSREF
       456   02 00118    6840011E              BAZ      END19             ENTRY IS NOT A REF OR SREF
       457                            *   HERE IF ENTRY IS AN EXTERNAL REF OR SREF
       458   02 00119                 END18    RES      0
       459   02 00119    22507FFF A            LV,XT1   LENGTHFLD
       460   02 0011A    4B400005 A            AND,XT   XT1
       461   02 0011B    B24800A0 04           LW,XT    *NXTSYMT,XT       LOAD DECLARATION NUMBER
       462   02 0011C    474C0001 A            STS,XT   1,XT2             REASSIGN EXTERNAL DECLARATION NUMBER
       463   02 0011D    6800010D              B        END16
       464   02 0011E                 END19    RES      0
       465   02 0011E    31400207              BFNZ,XT  DEFFLD,END16      LITERAL IS DEFINED, SKIP IT
             02 0011F    6940010D
       466   02 00120    30400037 03           AW,XT    SYMT
       467   02 00121    35400066 04           STW,XT   ARG               STORE POINTER TO SYMBOL TABLE ENTRY
       468   02 00122    32480000 A            LW,XT    0,XT
       469   02 00123    69100129              BFNZ,XT  SPAFLD,END22      ENTRY IS A ONE WORD ITEM
       470   02 00124    4B4001FD              AND,XT   =LPTRFLD
       471   02 00125    68300130              BEZ      END23             SYMBOL IS UNDEFINED, DELETE LITERAL
       472   02 00126    30400037 03           AW,XT    SYMT
       473   02 00127    35400066 04           STW,XT   ARG               POINTER TO SYMBOL TABLE ENTRY
       474   02 00128    32480000 A            LW,XT    0,XT
       475   02 00129                 END22    RES      0
       476   02 00129    31400207              BFZ,XT   DEFFLD,END23      SYMBOL IS UNDEFINED, DELETE LITERAL
             02 0012A    68400130
       477   02 0012B    6A700000 X            BAL,RL   LITSRCH           SEARCH FOR MATCH OF DEFINED VALUE
       478   02 0012C    21400000 A            CI,XT    0
       479   02 0012D    68300130              BEZ      END23             NO MATCH FOUND
       480   02 0012E    33C0000E 03           MTW,-4   DLRVAL            ENTRY EXISTS, DECREMENT NUMBER OF
       481   02 0012F    33C0000F 03           MTW,-4   DDLRVAL             WORDS REQUIRED FOR LITERALS
       482   02 00130                 END23    RES      0
       483   02 00130    33F00005 03           MTW,-1   NLITS             DECREMENT NUMBER OF LITERALS
       484   02 00131    B26000B8 04           LW,XT2   *TX1              REMOVE THE CURRENT UNDEFINED ENTRY
       485   02 00132    B56000B9 04           STW,XT2  *TX2                FROM THE LITERAL TABLE
       486   02 00133    68000110              B        END17
       487   02 00134                 END20    RES      0
       488   02 00134    32500208              LV,XT1   TYPEFLD+STYPEFLD  MASK FOR TYPE AND STYPE FIELDS
       489   02 00135    45400209              CS,XT    =SYMBOL+EXTREF
       490   02 00136    68300119              BE       END18             ENTRY IS A SINGLE EXTERNAL REFERENCE
       491   02 00137    4540020A              CS,XT    =SYMBOL+CMPLXSUM
       492   02 00138    6930010D              BNE      END16             ENTRY IS NOT A COMPLEX SUM, SKIP IT
       493                            *   HERE IF LITERAL IS A COMPLEX SUM
       494   02 00139    4B400200              AND,XT   =LENGTHFLD
       495   02 0013A    204FFFFE A            AI,XT    -2
       496   02 0013B    35400066 04           STW,XT   ARG               NUMBER OF ITEMS IN COMPLEX SUM
       497   02 0013C                 END21    RES      0
       498   02 0013C    20600001 A            AI,XT2   1
       499   02 0013D    33F00066 04           MTW,-1   ARG               DECREMENT ITEM COUNT
       500   02 0013E    6910010D              BLZ      END16             DONE WITH COMPLEX SUM
       501   02 0013F    324C0002 A            LW,XT    2,XT2             LOAD NEXT SYMBOL ITEM
       502   02 00140    3250020B              LV,XT1   STYPEFLD
       503   02 00141    4540020C              CS,XT    =EXTREF
       504   02 00142    6930013C              BNE      END21             ITEM IS NOT AN EXTERNAL REFERENCE
       505   02 00143    22507FFF A            LV,XT1   LENGTHFLD         REASSIGN EXTERNAL DECLARATION NUMBER
       506   02 00144    4B400005 A            AND,XT   XT1
       507   02 00145    B24800A0 04           LW,XT    *NXTSYMT,XT       LOAD DECLARATION NUMBER
       508   02 00146    474C0002 A            STS,XT   2,XT2             REASSIGN EXTERNAL DECLARATION NUMBER
       509   02 00147    6800013C              B        END21
       510   02 00148                 END25    RES      0
       511   02 00148    32400000 03           LW,XT    DECLRNUM          DECLARATION NUMBER CONTROL
       512   02 00149    35400032 03           STW,XT   CSBASE              SECTION BASE (CONTROL SECTION 0)
       513   02 0014A    3290008B 04           LW,IOSIZE  LABELLOC
       514   02 0014B    3890002E 03           SW,IOSIZE  TEXTCT
       515   02 0014C    209FFFFF A            AI,IOSIZE  -1              BACKSPACE THE X1 FILE TO THE RECORD
       516   02 0014D    6AA00000 X            BAL,IORL POSITIONX1          CONTAINING THE END STATEMENT
       517   02 0014E    6A700000 X            BAL,RL   NXTRECRD          RE-READ RECORD CONTAINING END LINE
       518   02 0014F    6A700000 N            CALL     DEFHEXLBL         DEFINE LABEL ON END STATEMENT
       519   02 00150    3240000E 03           LW,XT    DLRVAL            SAVE ADDRESS ASSIGNED
       520   02 00151    3540007D 04           STW,XT   ENDADDR             TO END LABEL
       521   02 00152    6A700000 X            BAL,RL   LCLDLTE           DELETE LOCAL SYMBOL TABLE
       522   02 00153    6A700000 X            BAL,RL   MAXLOC
       523   02 00154    22600001 A            LI,XT2   1                 START WITH CONTROL SECTION NUMBER 1
       524   02 00155                 END26    RES      0
       525   02 00155    35600062 04           STW,XT2  CS
       526   02 00156    6A700000 X            BAL,RL   GETCSADD          GET ADDRESS OF CONT SECT TABLE ENTRY
       527   02 00157    324C0001 A            LW,XT    MAXDD,XT2
       528   02 00158    4B400204              AND,XT   =MAXDDFLD         GET MAX VALUE OF LOAD LOC COUNTER
       529   02 00159    354C0002 A            STW,XT   MAXDD+1,XT2       SAVE MAX %% VALUE FOR PASS 1
       530   02 0015A    33000007 03           MTW,0    SOCW%FLG
       531   02 0015B    693001B8              BNEZ     END40
       532                            *
       533   02 0015C    3250020D              LV,XT1   CSTFLD+PTFLD
       534   02 0015D    4A4C0000 A            LS,XT    CST,XT2           MERGE IN CST AND PT
       535   02 0015E    35400047 04           STW,XT   TEMP1
       536   02 0015F    72400047 04           LB,XT    TEMP1
       537   02 00160    21400009 A            CI,XT    DSTYPE
       538   02 00161    68300165              BE       END27             CONTROL SECTION IS A DSECT
       539                            *   HERE IF CONTROL SECTION IS A CSECT OR PSECT
       540   02 00162    2250011C 04           LI,XT1   BA(TEMP1)         BYTE ADDRESS OF 1ST ITEM TO OUTPUT
       541   02 00163    22800004 A            LI,NBYTES 4                NUMBER OF BYTES TO OUTPUT
       542   02 00164    6800017A              B        END31
       543   02 00165                 END27    RES      0
       544   02 00165    2250011B 04           LI,XT1   BA(TEMP)+3        BYTE ADDRESS OF 1ST ITEM TO OUTPUT
       545   02 00166    22800005 A            LI,NBYTES 5                NUMBER OF BYTES TO OUTPUT
       546   02 00167    327C0001 A            LW,RL    DSNUM,XT2
       547   02 00168    2570006D A            SLS,RL   DSNUMLOB-31
       548   02 00169    3260009E 04           LW,XT2   NOWORDS           NUMBER OF DEFS
       549   02 0016A                 END28    RES      0
       550   02 0016A    206FFFFE A            AI,XT2   -2
       551   02 0016B    D17C0061 04           CH,RL    *TEMPO,XT2        FIND DSECT SYMBOL NUMBER IN
       552   02 0016C    6930016A              BNE      END28               THE TABLE OF DEF NUMBERS
       553   02 0016D    20600001 A            AI,XT2   1
       554   02 0016E    D27C0061 04           LH,RL    *TEMPO,XT2        LOAD DECLARATION NUMBER OF DEF
       555   02 0016F    75700047 04           STB,RL   TEMP1             DECLARATION NUMBER OF DSECT
       556   02 00170    22F00000 A            LI,ER    0                 CLEAR DECLARATION NUMBER SO THAT
       557   02 00171    D5FC0061 04           STH,ER   *TEMPO,XT2        NO 'DEFINE EXT. DEF.' IS OUTPUT
       558   02 00172    32600000 03           LW,XT2   DECLRNUM
       559   02 00173    21600100 A            CI,XT2   256
       560   02 00174    69100179              BL       END30             DECLARATION NUMBER IS ONE BYTE
       561   02 00175    25700078 A            SLS,RL   -8                STORE SECOND BYTE (HIGH ORDER PART)
       562   02 00176    35700046 04           STW,RL   TEMP                OF DECLARATION NUMBER
       563   02 00177    2250011A 04           LI,XT1   BA(TEMP)+2        BYTE ADDRESS OF 1ST ITEM TO OUTPUT
       564   02 00178    22800006 A            LI,NBYTES 6                NUMBER OF BYTES TO OUTPUT
       565   02 00179                 END30    RES      0
       566   02 00179    754A0000 A            STB,XT   0,XT1             STORE CONTROL SECTION TYPE
       567   02 0017A                 END31    RES      0
       568   02 0017A    6A700000 X            BAL,RL   BEDIT             OUTPUT CONTROL SECTION DECLARATION
       569   02 0017B    33100000 03           MTW,1    DECLRNUM          INCREMENT DECLARATION NUMBER
       570   02 0017C    32600062 04           LW,XT2   CS
       571   02 0017D    20600001 A            AI,XT2   1
       572   02 0017E    31600019 03           CW,XT2   MAXCSECT
       573   02 0017F    68200155              BLE      END26
       574                            *   OUTPUT EXTERNAL DEFINITION VALUES
       575   02 00180    32400000 03           LW,XT    DECLRNUM
       576   02 00181    21400100 A            CI,XT    256               BRANCH IF HIGHEST DECLARATION
       577   02 00182    69100184              BL       END32               NUMBER FITS IN ONE BYTE
       578   02 00183    33100004 03           MTW,1    NAMENUM           INDICATE 2 BYTE DECLARATION NUMBERS
       579   02 00184                 END32    RES      0
       580                            *   HERE TO OUTPUT 'DEFINE EXTERNAL DEFINITION'
       581   02 00184    33F0009E 04           MTW,-1   NOWORDS           DECREMENT NUMBER OF DEFS
       582   02 00185    691001B8              BLZ      END40               UNTIL ALL ARE OUTPUT
       583   02 00186    3240009E 04           LW,XT    NOWORDS           NUMBER OF DEFS
       584   02 00187    33F0009E 04           MTW,-1   NOWORDS
       585   02 00188    D2780061 04           LH,RL    *TEMPO,XT         LOAD DECLARATION NUMBER OF DEF
       586   02 00189    68300184              BEZ      END32             BRANCH IF A DSECT
       587   02 0018A    35700078 04           STW,RL   ACONVAL
       588   02 0018B    22800002 A            LI,NBYTES  2               NUMBER OF BYTES TO OUTPUT
       589   02 0018C    225001E2 04           LI,XT1   BA(ACONVAL)+2     BYTE ADDRESS OF 1ST ITEM TO OUTPUT
       590   02 0018D    38500004 03           SW,XT1   NAMENUM           ADJUST ADDRESS FOR 2-BYTE DECLNUM
       591   02 0018E    30800004 03           AW,NBYTES NAMENUM          ADJUST BYTE COUNT ALSO
       592   02 0018F    2270000A A            LI,RL    DEFEXTCD          LOADER CODE FOR EXTERNAL DEFINITION
       593   02 00190    757A0000 A            STB,RL   0,XT1
       594   02 00191    6A700000 X            BAL,RL   BEDIT             OUTPUT THE DECLARATION NUMBER
       595   02 00192    3240009E 04           LW,XT    NOWORDS
       596   02 00193    D2480061 04           LH,XT    *TEMPO,XT         GET SYMBOL NUMBER OF DEF
       597   02 00194    B2580037 03           LW,XT1   *SYMT,XT          LOAD ENTRY FROM FIXED SYMBOL TABLE
       598   02 00195    6910019B              BFNZ,XT1 SPAFLD,END35      ONE WORD ENTRY
       599   02 00196    4B5001FD              AND,XT1  =LPTRFLD
       600   02 00197    6930019A              BNEZ     END34             OFFSET TO DYNAMIC SYMBOL TABLE
       601   02 00198    6A700000 X            BAL,RL   EXPEND            SYMBOL IS UNDEFINED, OUTPUT AN
       602   02 00199    68000184              B        END32               'EXPRESSION END'
       603   02 0019A                 END34    RES      0
       604   02 0019A    32400005 A            LW,XT    XT1
       605   02 0019B                 END35    RES      0
       606   02 0019B    30400037 03           AW,XT    SYMT
       607   02 0019C    35400066 04           STW,XT   ARG               STORE POINTER TO SYMBOL TABLE ENTRY
       608   02 0019D    6A700000 X            BAL,RL   GENERATE3         GENERATE AN EXTERNAL DEFINITION
       609                            *
       610                            *   IF 'SD' SPECIFIED, OUTPUT TYPE INFO. FOR DEF AT THIS POINT
       611                            *
       612   02 0019E    33000000 X            MTW,0    SD%FLAG
       613   02 0019F    68300184              BEZ      END32             BRIF NO SD.
       614                            *
       615                            *        THE FOLLOWING TEST FOR ADDRESSES IS HERE FOR META-SYMBOL
       616                            *           COMPATIBILITY - IT DOESN'T MAKE A GREAT DEAL OF SENSE
       617                            *           OTHERWISE.
       618                            *
       619   02 001A0    B2500066 04           LW,XT1   *ARG              CONTROL WORD FROM SYMT
       620   02 001A1    6A700000 N            CALL     TYPE
       621   02 001A2    3160020E              CV,XT2   SPADDRET
       622         001F0000                    IF,NE                 -80- DOIF NOT SPECIAL ADDRESS
             02 001A3    683001A6
       623   02 001A4    3160020F              CV,XT2   ADDRET
       624   02 001A5    69300184              BNE      END32             FALL THRU IF ADDRESS
       625                            *
       626         00F10000                    FI                    -80-
       627                            *
       628                            *        HAVE AN ADDRESS SYMBOL - NEED 'SD%TYPE' FOR SYMBOL, ITS
       629                            *           RESOLUTION, AND THE DECLARATION NUMBER ASSIGNED TO THE DEF.
       630                            *
       631   02 001A6    4B500210              AND,XT1  L(ARFLD)
       632   02 001A7    25500208 A            SHIFT,XT1  ARLOB,31        AR RIGHT-ADJ. IN XT1
       633                            *
       634                            *        NEED THE SYMBOL NUMBER IN ORDER TO FETCH ASSOCIATED 'SD%TYPE'
       635                            *
       636   02 001A8    3260009E 04           LW,XT2   NOWORDS
       637   02 001A9    D24C0061 04           LH,XT    *TEMPO,XT2        SYMBOL NO. IN XT
       638                            *
       639                            *        NOW SNEAK IN AND GET THE DECLARATION NUMBER - SET IT UP
       640                            *           IN 'ACONVAL'.
       641                            *
       642   02 001AA    20600001 A            AI,XT2   1
       643   02 001AB    D27C0061 04           LH,RL    *TEMPO,XT2
       644   02 001AC    32800004 03           LW,NBYTES  NAMENUM         (REMEMBER THIS ONE)
       645         001F0000                    IF,EZ                 -90- DOIF 1-BYTE DECL. NO.
             02 001AD    693001AF
       646   02 001AE    25700008 A            SLS,RL   8                 JOG IT LEFT
       647         00F10000                    FI                    -90-
       648   02 001AF    35700078 04           STW,RL   ACONVAL
       649                            *
       650                            *        BACK TO BUILDING THE TYPE CONTROL ---
       651                            *
       652   02 001B0    F2480036 03           LB,XT    *SDTT,XT          SD%TYPE (POSITIONED)
       653   02 001B1    30400005 A            AW,XT    XT1                 + AR
       654   02 001B2    20401100 A            AV,XT    SDEXTSYMCD**8       + LOAD CONTROL
       655   02 001B3    55400078 04           STH,XT   ACONVAL             = FINISHED ITEM IN ACONVAL
       656                            *
       657                            *        DUMP TO BINARY, AND GO ON TO NEXT
       658                            *
       659   02 001B4    20800003 A            AI,NBYTES  3               (3 OR 4)
       660   02 001B5    225001E0 04           LI,XT1   BA(ACONVAL)
       661   02 001B6    6A700000 N            CALL     BEDIT
       662   02 001B7    68000184              B        END32
       663         0000000A           DEFEXTCD EQU      10                LOADER CODE FOR EXTERNAL DEFINITION
       664                            *
       665                            *   INITIALIZATION FOR THE GENERATION PASS ONLY
       666                            *   INITIALIZE VARIABLES
       667                            *
       668   02 001B8                 END40    RES      0
       669   02 001B8    32400207              LV,XT    3**(31-DEFLOB)
       670   02 001B9    354000A5 04           STW,XT   PASSDEF           INITIALIZE FOR GENERATION PASS
       671   02 001BA    33100006 03           MTW,1    PASS
       672   02 001BB    33100000 X            MTW,+1   SEGMENT#          BUMP OVERLAY SEGMENT NUMBER
       673   02 001BC    225FFFD9 A            LI,XT1   -NCLEARS1         NUMBER OF VARIABLES TO CLEAR
       674   02 001BD    68000043              B        DEFGEN1           BEGIN GENERATION PASS
       675                            *
       676                            *   E N D   O F   G E N E R A T I O N   P A S S
       677                            *
       678   02 001BE                 ENDGEN   RES      0
       679   02 001BE    35A00000 X            STW,IORL ROOTRTN           SAVE RETURN ADDRESS TO ROOT
       680   02 001BF    32400005 03           LW,XT    NLITS             BOUND4 IF THERE ARE LITERALS
       681   02 001C0    683001C2              BEZ      END54
       682   02 001C1    6A700000 X            BAL,RL   BOUND4
       683   02 001C2                 END54    RES      0
       684   02 001C2    3240000E 03           LW,XT    DLRVAL
       685   02 001C3    4B400204              AND,XT   =MAXDDFLD         TEST LITERAL C.S. FOR SAME
       686   02 001C4    2540007E A            SLS,XT   -2                  SIZE AS IN
       687   02 001C5    31400002 03           CW,XT    LITORG              DEF PASS
       688   02 001C6    683001C9              BE       END55             SAME
       689   02 001C7    22400000 A            LI,XT    0                 SET NLITS SO THAT A CONTROL SECT.
       690   02 001C8    35400005 03           STW,XT   NLITS               ERROR WILL BE REPORTED
       691   02 001C9                 END55    RES      0
       692   02 001C9    33F00097 04           MTW,-1   LSTCT
       693   02 001CA    691001D4              BLZ      END53             BRANCH IF OPERAND FIELD WAS BLANK
       694   02 001CB    683001CD              BEZ      END52             BRANCH IF SINGLE OPERAND
       695   02 001CC    6AF00000 X            BAL,ER   EERR              REPORT OPERAND ERROR
       696   02 001CD                 END52    RES      0
       697   02 001CD    6A700000 X            BAL,RL   EDITV             EDIT THE 'END' OPERAND VALUE
       698   02 001CE    33000007 03           MTW,0    SOCW%FLG
       699         001F0000                    IF,EZ                      DON'T BOTHER W/ START IF SOCW
             02 001CF    693001D4
       700   02 001D0    22800001 A            LI,NBYTES  1               NUMBER OF BYTES TO OUTPUT
       701   02 001D1    225007B4              LI,XT1   BA(STARTCD)       ADDRESS OF BYTE TO OUTPUT
       702   02 001D2    6A700000 X            BAL,RL   BEDIT             OUTPUT A 'DEFINE START' LOAD ITEM
       703   02 001D3    6A700000 X            BAL,RL   GENERATE3         OUTPUT THE START ADDRESS
       704         00F10000                    FI
       705   02 001D4                 END53    RES      0
       706   02 001D4    6A700000 X            BAL,RL   LCLDLTE           DELETE LOCAL SYMBOL TABLE
       707   02 001D5    6A700000 X            BAL,RL   PRINT             PRINT THE END LINE
       708   02 001D6                 END51    RES      0
       709   02 001D6    32400003 03           LW,XT    LITTABLE          GET LINK TO NEXT LITERAL
       710   02 001D7    683001EE              BEZ      END60             NO MORE LITERALS
       711   02 001D8    B2780037 03           LW,RL    *SYMT,XT
       712   02 001D9    35700003 03           STW,RL   LITTABLE          SAVE NEXT LINK
       713   02 001DA    30400037 03           AW,XT    SYMT
       714   02 001DB    20400001 A            AI,XT    1
       715   02 001DC    32580000 A            LW,XT1   0,XT              GET CONTROL WORD OF VALUE
       716   02 001DD    6A700000 X            BAL,RL   TYPE              GET LITERAL'S TYPE
       717   02 001DE    38400035 03           SW,XT    KLINE             OFFSET FROM KLINE
       718   02 001DF    225E0000 A            LV,XT1   ~LOCFLD           MASK FOR ALL BUT LOC FIELD
       719   02 001E0    4A400060 04           LS,XT    DD%TYPE           MERGE IN ITEM'S TYPE
       720   02 001E1    35400061 04           STW,XT   TEMPO             PSEUDO ECT ENTRY
       721   02 001E2    22400061 04           LI,XT    TEMPO
       722   02 001E3    35400064 04           STW,XT   VALPTR            POINTER TO PSEUDO ECT ENTRY
       723   02 001E4    22400001 A            LI,XT    1
       724   02 001E5    35400063 04           STW,XT   VALCNT            NUMBER OF VALUE ENTRIES
       725   02 001E6    35400051 04           STW,XT   FLDCNT            NUMBER OF FIELD ENTRIES
       726   02 001E7    224001EB              LI,XT    LITFS
       727   02 001E8    35400052 04           STW,XT   FLDPTR            POINTER TO LITERAL FIELD SIZE
       728   02 001E9    6A700000 X            BAL,RL   GENERATE1         GENERATE A LITERAL
       729   02 001EA    680001D6              B        END51
       730                            *
       731   02 001EB    480001EC     LITFS    SPIECT   LITSIZE           ADDRESS OF LITERAL FIELD SIZE
       732   02 001EC    CC000020 A   LITSIZE  SPECINT  32                LITERAL'S FIELD SIZE
       733   02 001ED    0D       A   STARTCD  DATA,1   13                CONTROL BYTE FOR START ADDRESS
       734                                     BOUND    4
       735                            *
       736   02 001EE                 END60    RES      0
       737   02 001EE    6A700000 X            BAL,RL   MAXLOC
       738   02 001EF    E8000000 X            B        *ROOTRTN          RETURN TO ROOT FOR DGEND OVERLAY
1
       740                            *
       741                            *   N E X T I T E M
       742                            *        THIS SUBROUTINE OBTAINS THE NEXT ITEM (HALFWORD) FROM THE
       743                            *          RECORD(S) CONSISTING OF EBCDIC SYMBOL NAMES. THIS ROUTINE
       744                            *          IS USED BY THE END PROCESSOR ONLY.
       745                            *
       746                            *        INPUT:   XW CONTAINS AN INDEX TO THE HALFWORD TO BE LOADED
       747                            *                 INBUF CONTAINS THE EBCDIC RECORD
       748                            *
       749                            *        OUTPUT:  XT CONTAINS A HALFWORD ITEM TO PROCESS
       750                            *                 XW CONTAINS AN INDEX TO THE HALFWORD FOLLOWING THE
       751                            *                   ONE LOADED INTO XT
       752                            *
       753                            *        CALL:    BAL,RL  NEXTITEM
       754                            *
       755                            *        USES REGISTERS
       756                            *                 XT
       757                            *                 XW
       758                            *
       759   02 001F0                 NEXTITEM RES      0
       760   02 001F0    3570008D 04           STW,RL   LAST
       761   02 001F1    21200000 N            CI,XW    HWX1SIZE
       762   02 001F2    691001F6              BL       NXTITEM1          INDEX IS WITHIN RECORD
       763   02 001F3    32400008 A            LW,XT    NBYTES
       764   02 001F4    6A700000 X            BAL,RL   NXTRECRD          READ NEXT RECORD OF EBCDIC NAMES
       765   02 001F5    32800004 A            LW,NBYTES  XT
       766   02 001F6                 NXTITEM1 RES      0
       767   02 001F6    52440000 X            LH,XT    X1BUF,XW          GET HALFWORD FROM INPUT BUFFER
       768   02 001F7    20200001 A            AI,XW    1                 INCREMENT INDEX TO NEXT HALFWORD
       769   02 001F8    E800008D 04           B        *LAST             RETURN
       770                                     END
             02 001F9    04000000 A
             02 001FA    80000000 A
             02 001FB    C0000000 A
             02 001FC    00001FFF A
             02 001FD    0000FFFF A
             02 001FE    00C00000 A
             02 001FF    00400000 A
             02 00200    00007FFF A
             02 00201    90000000 A
             02 00202    20000000 A
             02 00203    28000000 A
             02 00204    0007FFFF A
             02 00205    40000000 A
             02 00206    00800000 A
             02 00207    0C000000 A
             02 00208    001F8000 A
             02 00209    00098000 A
             02 0020A    00058000 A
             02 0020B    001C0000 A
             02 0020C    00080000 A
             02 0020D    FFC00000 A
             02 0020E    08000000 A
             02 0020F    18000000 A
             02 00210    03000000 A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00211   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            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         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        CMND/00000004
           CMNDCW/04 00048          CMNDLIST/04 0004B        CMNDLSN/04 00049         CMNDNAME/00028000
           CMPLXSUM/00040000        CNAME#/00000014          CNAMECOMT/000C0000       CNTRLSTK/04 00048
           CODE/04 0006B            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
           CSFLD/003E0000           CSLOB/0000000E           CSNAME/04 00061          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        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          DEFEXTCD/0000000A
           DEFFLD/0C000000          DEFGEN1/02 00043         DEFGEN2/02 00079         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          DO#/00000018             DOCFLD/0000FFFF          DOCOUNT/03 00010
           DOCT/00000006            DOCWD/00000001           DODIR/00004018           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         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        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%1/02 00085           END%10/02 000D8          END%3/02 00090           END%4/02 000A3
           END%9/02 000CE           END#/00000007            ENDADDR/04 0007D         ENDBUF/000020FF
           ENDDIR/00004007          ENDEXP/00000004          ENDLINE/00000000         ENDLIST/00000002
           ENDORG/03 00030          ENDSBSYM/00000003        END10/02 000DB           END11/02 000E5
           END12/02 000EB           END13/02 000F7           END14/02 000FB           END15/02 000FE
           END16/02 0010D           END17/02 00110           END18/02 00119           END19/02 0011E
           END2/02 00086            END20/02 00134           END21/02 0013C           END22/02 00129
           END23/02 00130           END25/02 00148           END26/02 00155           END27/02 00165
           END28/02 0016A           END3/02 0009B            END30/02 00179           END31/02 0017A
           END32/02 00184           END34/02 0019A           END35/02 0019B           END4/02 000A6
           END40/02 001B8           END5/02 000B2            END51/02 001D6           END52/02 001CD
           END53/02 001D4           END54/02 001C2           END55/02 001C9           END6/02 000BB
           END60/02 001EE           END7/02 000C4            END8/02 000C5            END9/02 000D0
           ENTEXIT/04 0007E         EQU#/0000001B            EQUALOP/00000023         ER/0000000F
           ERROR#/0000001C          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
           EXTLOB/00000009          EXTREF/00080000          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                 FLTLONG/00140000         FLTSHORT/00100000
           FNAME#/0000001D          FND/04 00086             FREEAFLD/0001FFFF        FREELFLD/DPI
           FREELIST/04 00087        FREELLOB/0000000E        FSET/78000000            FUNCET/DPI
           FUNCNAME/00030000        FWDNUM/03 00014          FXDEC/000C0000           FXET/70000000
           GEN#/0000001E            GENCOMXIT/04 00053       GENEXIT/04 00088         GLBLAXIT/04 000BC
           GOTO#/0000001F           GOTOARG/04 00089         HA#/00000044             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            LFSSYM/00008041          LFSUMSZ/04 00090
           LFSYM/00004041           LFWDFLG/04 0005D         LFWDHET/38000000         LINENUMXIT/04 00091
           LINEORG/04 00092         LINEXIT/04 00091         LIST#/00000020           LISTCT/04 00097
           LISTET/DPI               LISTFLD/00000002         LISTLOB/0000001E         LISTS/00008000
           LISTXIT/04 00050         LITCS/03 00001           LITFLAG/04 0005E         LITFS/02 001EB
           LITORG/03 00002          LITSIZE/02 001EC         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
           MARKCF1/02 00026         MARKEND/02 0002D         MAXCSECT/03 00019        MAXDD/00000001
           MAXDDFLD/0007FFFF        MAXLOCXIT/04 00099       MAXPREF/0000001F         MAXSEV/03 0001A
           MINUSOP/00000029         MOVESYMXIT/04 0009A      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        NERRS/03 0001C           NEWCSXIT/04 0009C        NEXTITEM/02 001F0
           NEXTXW/04 00054          NLITS/03 00005           NOBYTES/04 0009D         NOLIST/03 0001D
           NOWORDS/04 0009E         NSAVES/0000001D          NUM#/00000049            NUMSSYM/00008049
           NXTITEM1/02 001F6        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           READCF1/02 00022         REF#/00000010            REFADD/04 000A9
           REFEXT/00800000          REFORSREF/00800000       RELOFLD/02000000         RES#/00000025
           RL/00000007              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
           SDEXTSYMCD/00000011      SDHEXC/00000030          SDINSTC/00000000         SDTEXTC/00000038
           SDTLOB/0000001C          SDTT/03 00036            SET#/00000027            SETFLD/10000000
           SETLOB/00000003          SETVALUE/04 00062        SF/03 00024              SIMPADD/00000000
           SINSUBXIT/04 0004F       SINTFLD/03C00000         SINTLOB/00000009         SKGLF1XIT/04 000B0
           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         STARTCD/02 001ED         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          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           TEXT#/00000029           TEXTC#/0000002A          TEXTCT/03 0002E
           TEXTET/68000000          TEXTEXIT/04 000B6        TFLD/0000E000            TITLE#/0000002B
           TITLENUM/03 0002F        TLOB/00000012            TMP/00000006             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         UNDITM/DPI
           USECT#/0000002C          VALCNT/04 00063          VALFLD/003FFFFF          VALPTR/04 00064
           VFLD/00001FFF            WA#/00000045             WDRES/02000000           WDRS/00000002
           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
           DGI/02 00000             DGINIT/02 00000          ENDDEF/02 0007B          ENDGEN/02 001BE
           XAPDATA/04 00000         XAPD1/03 00000
  *    PRIMARY REFERENCES
           BEDIT          BOUND4         CLRLSTBF       DC%FLAG        DEFHEXLBL      DEFINE2        DELETEXP
           EDITV          EERR           ENDCORE        EXPEND         GENERATE1      GENERATE3      GETCSADD
           HILIMIT4       HWX1SIZE       HWX3SIZE       LCLDLTE        LENGTH         LITSRCH        LO%FLAG
           LOWCORE        MAJLINE        MAXLOC         NXSYMB         NXTRECRD       OLDCSECT       PGLINES
           POSITIONX1     POSITIONX3     PRINT          RD%STD         READX3         REWX1          REWX3
           ROOTRTN        SD%FLAG        SEGMENT#       SUBLINE        SYSLEVEL       TYPE           VAL%S:IVAL
           X1BUF          X3BUF
  * NO SECONDARY REFERENCES
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
