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




ASSIGN M:CI,(FILE,CI:APPART,APRH00CI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:APPART,APRH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1
    ABORT
             40/REF
    ADJKLINE
             37/DEF         70-RES        165/BAL
    ADJKLN1
             94/BL          98-RES        102/BDR
    ADV%ITM
             38/DEF        195/BAL        254/BAL        387/BAL        531/BAL        592-RES
    ADV%RTN
            598/STW        668/B*
    AFA%FLG
            412/STW        481/MTW        490/MTW
    AFASSYM
            409/CV
    AFASYM
            245/CV
    AFSSYM
            129/CI         191/CV
    AFSYM
            137/CI
    ASTFLG
            258/CV         379/CV         645/CV
    BEGINEXP
            332/CI         656/CV
    BEGINLIST
            187/CV         224/CV         277/CV         317/LV         472/CV         496/CV         505/LV
            528/CV         654/CV
    BLANKEXP
            298/LV         309/CV         375/CV         480/LV         498/CV         513/CV         658/CV
    BUFFFLD
            393/AND        427/AND
    CFSSYM
            131/CI         448/CV
    CFSYM
            139/CI         271/CV
    CMND
            273/LW         450/LW
    CNTRLSTK
            180/STW        183/STW*       210/LW*        231/STS*       239/STW*       240/MTW*       266/STS*
            339/LW*        357/STW*       363/LW*        368/MTW*       370/LW*        392/LW*        402/MTW
            420/LW         426/LW*        488/MTW        564/MTW        565/LW
    DELETEXP
             42/REF        164/BAL
    DGPART
             33-CSECT       34/DEF         53/USECT
    ECT
             76/LCW         78/LW          83/AW         178/LW         414/LW         423/STW        440/STW
    ECTSAVE
            415/STW        439/LW
    ENCITEM
            365/AND        444/AND        575/AND        667/AND
    ENCLSYM
            307/CS         503/CV         518/CV
    ENCSMINT
            373/LI
    ENCSYM
            305/CS         501/CV         516/CV
    ENC0
            251/LV         483/LV
    ENC1
            260/LV
    ENDLINE
            424/LI
    ENDLIST
            198/CV         322/LV         523/CV
    ENDSBSYM
            202/CV         289/CV         385/CV         533/CV
    EQ
             73/EXIT       130/EXIT       138/EXIT
    ER
             79/LI          97/LI          99/AW         565/LW         566/CW
    EVT
             77/AW          91/SW          96/LW         176/LW         344/STW        419/STW
    FINDSPCXIT
             72/MTB         75/STW         85/BL*         89/BG*        107/B*
    FLDCNT
            173/STW        219/MTW        220/LW         281/LW         301/LW         494/OR
    G
            567/EXIT
    GETCNTRL
            238/BAL        355/BAL        563-RES
    GETPLOC1
             43/REF        184/BAL        442/BAL
    GETPRTC
            237/BAL        262/BAL        318/BAL        351/BAL        395/BAL        425/BAL        506/BAL
            581-RES        631/BAL        638/BAL
    HILIMIT4
            182/BLE        568-RES        587/B
    IFFLD
            229/LV         265/LV
    IGNRLST
            204/LV         576/CV         649/CV
    INTSSYM
            128-RES        230/BAL        398/BAL
    INTSYM
            136-RES        243/BAL
    INTSYM1
            134/B          142-RES
    INTSYM2
            132/BL         140/BL         144/BNE        147-RES
    KLINE
             93/CW         100/LW*        104/SW         105/STW        168/SW         179/AW         364/LH*
            421/SW         443/LH*        582/STH*
    L
            143/EXIT       340/OR         347/AND        365/AND        393/AND        427/AND        432/OR
            444/AND        500/AND        575/AND        585/EXIT
    LBL
            171/LW         268/LW         445/LW
    LFLD
            347/AND        634/AND
    LFSSYM
            446/CV
    LFSYM
            269/CV
    LINE%FLDS
             44/REF        166/BAL
    LOADXM
             45/REF        248/BAL        275/BAL        297/BAL        371/BAL        452/BAL        459/BAL
            600/BAL
    LOADXW
             46/REF        341/BAL        433/BAL        437/BAL
    LSTCT
            469/MTW        485/MTW
    LVL
             76/LCW         77/AW          78/LW          83/AW          91/SW          96/LW         104/SW
            106/AW         171/LW         175/STW        176/LW         178/LW         247/LW         268/LW
            273/LW         292/LW         295/LW         337/LW         338/STW        344/STW        413/LW
            414/LW         419/STW        423/STW        440/STW        441/STW        445/LW         450/LW
            454/LW         457/LW
    MOVE
            497/BE         509-RES
    MOVE%ITM
            279/BAL        287/BAL        319/BAL        507/BAL        595-RES
    MOVE1
            524-RES        529/B
    MOVE5
            514/BE         517/BE         520-RES
    NAMELOC
            295/LW         457/LW
    NAMESSYM
            133/CI         193/CV         455/CV
    NAMESYM
            141/CI         293/CV
    NE
            146/EXIT
    NUMSSYM
            366/CV
    NXT%ITM
            186/BAL        190/BAL        197/BAL        201/BAL        211/BAL        223/BAL        226/BAL
            573-RES        577/BE
    NXTLOCAL
             80/LW          88/CW         167/LW
    NXTSYMT
             81/AW          84/CW         181/CW         566/CW
    OPRND
            247/LW         292/LW         454/LW
    PARTIC
             35/DEF        161-RES
    PARTICBASE
            340/OR         432/OR
    PARTICRTN
            145/MTB        162/STW        163/STB        345/B*
    PLVLLOB
            234/SLS        327/SLS
    PPLVL
            174/STW        216/MTW        282/OR         302/OR         359/MTW        405/MTW        489/MTW
            493/LW
    PROCREF
            233/LW         326/LW
    PRTC%2
            294/BNE        296-RES
    PRTC%3
            456/BNE        458-RES
    PRTC%4
            321-RES        508/B
    PRTC%5
            447/BE         451-RES
    PT1%BASE
            208-RES        215/B          335/B          538/BYTE       548/BYTE
    PT1%JUMP
            214/LB         537-RES
    PT2%JUMP
            334/LB         547-RES
    RL
             73/EXIT        75/STW         76/LCW         77/AW          87/AW          92/AI         102/BDR
            130/EXIT       138/EXIT       143/EXIT       146/EXIT       148/B          162/STW        164/BAL
            165/BAL        166/BAL        184/BAL        186/BAL        190/BAL        195/BAL        197/BAL
            201/BAL        211/BAL        223/BAL        226/BAL        230/BAL        237/BAL        238/BAL
            243/BAL        248/BAL        252/LH         254/BAL        262/BAL        265/LV         266/STS
            275/BAL        279/BAL        287/BAL        297/BAL        318/BAL        319/BAL        341/BAL
            351/BAL        355/BAL        371/BAL        387/BAL        395/BAL        398/BAL        425/BAL
            433/BAL        434/BAL        437/BAL        442/BAL        452/BAL        459/BAL        465/BAL
            477/BAL        493/LW         494/OR         506/BAL        507/BAL        531/BAL        567/EXIT
            585/EXIT       598/STW        600/BAL        605/LV         606/AND        608/SHIFT      611/B
            631/BAL        638/BAL
    SAMP
            338/STW
    SAVELVL
            175/STW        337/LW         413/LW         441/STW
    SAVEXR
            429/STW        438/LW
    SAVEXT
            599/STW        665/LW
    SAVEXW
            185/STW        206/LW         209/LW         428/STW        436/LW
    SCAN
             47/REF        434/BAL
    SUB#
            467/CW
    SUBLOC
            435/STW
    SUBVAL
             48/REF        465/BAL        477/BAL
    SYMT
            205/STH*       207/STH*
    SYNERR
            652/CV
    TEST%STRIP
            495/BNEZ       527-RES
    TFLD
            304/LV         500/AND        515/AND        605/LV
    TLOB
            213/SHIFT      608/SHIFT
    TMP1
            154/OPEN       158-EQU        593/LI         596/LI         628/CI         635/CI
            672/CLOSE
    TMP2
            154/OPEN       159-EQU        389/CI         601/LI         621/AI         661/AI
            672/CLOSE
    TMP3
            154/OPEN       160-EQU        602/LI         609/CI         620/LI         622/CI         625/LI
            643/CI         672/CLOSE
    TX1
            153/OPEN       155-EQU        299/LH         305/CS         307/CS         309/CV
            671/CLOSE
    TX2
            153/OPEN       156-EQU        304/LV         460/LH         464/LI         467/CW         535/AI
            671/CLOSE
    VALCNT
            170/STW        584/CW
    XM
            189/STW        196/XW         247/LW         252/LH         255/AI         256/LH         257/AI
            268/LW         273/LW         276/LH         285/AI         292/LW         295/LW         299/LH
            312/LW         370/LW         372/AI         374/LH         445/LW         450/LW         454/LW
            457/LW         460/LH         471/LH         474/AI         492/LH         510/LW         604/LH
            627/AI         637/LH         639/AI         641/LH         666/LH
    XMBASE
            252/LH*        256/LH*        276/LH*        299/LH*        314/LH*        374/LH*        378/LH*
            383/LH*        460/LH*        471/LH*        492/LH*        512/LH*        522/LH*        604/LH*
            637/LH*        641/LH*        666/LH*
    XR
            176/LW         177/SLS        183/STW        210/LW         236/AI         239/STW        249/AI
            267/AI         329/BDR        342/AI         343/SLS        344/STW        392/LW         393/AND
            416/LW         426/LW         427/AND        429/STW        430/LW         438/LW         443/LH
            582/STH        583/AI         584/CW
    XS
            435/STW
    XT
             80/LW          81/AW          82/SLS         83/AW          84/CW          87/AW          88/CW
             91/SW          93/CW         101/STW*       105/STW        106/AW         129/CI         131/CI
            133/CI         137/CI         139/CI         141/CI         163/STB        178/LW         179/AW
            180/STW        181/CW         187/CV         191/CV         193/CV         198/CV         202/CV
            204/LV         205/STH        207/STH        212/STW        224/CV         235/OR         245/CV
            251/LV         260/LV         269/CV         271/CV         293/CV         298/LV         312/LW
            313/AI         314/LH         317/LV         322/LV         328/OR         332/CI         334/LB
            347/AND        348/LW         364/LH         365/AND        366/CV         373/LI         388/AI
            391/AI         409/CV         424/LI         443/LH         444/AND        446/CV         448/CV
            455/CV         478/CI         480/LV         483/LV         505/LV         510/LW         511/AI
            512/LH         521/AI         522/LH         575/AND        576/CV         582/STH        599/STW
            630/LW         637/LH         665/LW
    XT1
             78/LW          96/LW          99/AW         100/LW         101/STW        212/STW
            213/SHIFT      214/LB         214/LB         215/B          229/LV         231/STS        233/LW
            234/SLS        235/OR         326/LW         327/SLS        328/OR         334/LB         335/B
            348/LW         352/BDR        363/LW         364/LH         377/AI         378/LH         382/AI
            383/LH
    XT1
            558/OPEN       559-EQU        604/LH         606/AND        630/LW         634/AND        640/BDR
            641/LH         645/CV         649/CV         652/CV         654/CV         656/CV         658/CV
            670/CLOSE
    XT2
            100/LW         101/STW
    XT2
            153/OPEN       157-EQU        158/EQU        167/LW         168/SW         169/SLS        170/STW
            172/LI         173/STW        174/STW        220/LW         221/CI         256/LH         258/CV
            276/LH         277/CV         281/LW         282/OR         289/CV         301/LW         302/OR
            314/LH         356/LI         357/STW        374/LH         375/CV         378/LH         379/CV
            383/LH         385/CV         408/LI         411/LI         412/STW        414/LW         415/STW
            416/LW         417/SLS        418/AI         419/STW        420/LW         421/SW         422/AI
            423/STW        439/LW         440/STW        471/LH         472/CV         492/LH         496/CV
            498/CV         500/AND        501/CV         503/CV         512/LH         513/CV         515/AND
            516/CV         518/CV         522/LH         523/CV         528/CV         533/CV         666/LH
            667/AND        671/CLOSE
    XW
            171/LW         185/STW        189/STW        196/XW         200/AI         205/STH        206/LW
            207/STH        209/LW         338/STW        339/LW         340/OR         428/STW        430/LW
            431/AI         432/OR         436/LW
    %
            259/BNE        612/EQU
    %10
            211-BAL        217/BNEZ       222/BNE        333/BG         360/B          539/BYTE       544/BYTE
            549/BYTE
    %10
            557/OPEN       603-RES        629/BE         632/B
    %100
            369/BGEZ       396/B          401-RES        552/BYTE
    %110
            404-RES        550/BYTE
    %120
            355-BAL        555/BYTE
    %130
            227/B          241/B          359-MTW        554/BYTE
    %140
            362-RES        551/BYTE
    %141
            380/BNE        384-RES
    %142
            376/BNE        387-BAL        390/BE
    %144
            386/BE         392-LW
    %146
            367/BNE        407-RES
    %148
            397-RES        410/BNE
    %149
            399/B          412-STW
    %1494
            449/BNE        454-LW
    %15
            611/B          612-EQU
    %150
            466-RES        536/B
    %151
            453/B          471-LH
    %152
            473/BNE        476-RES        486/BGZ
    %160
            461/BEZ        480-LV         534/BLE
    %161
            394-RES        482/BEZ        484/B
    %164
            479/BE         485-MTW
    %170
            470/BEZ        487-RES
    %180
            463-RES        475/B
    %184
            468/BL         530-RES
    %20
            216-MTW        246/BNE        263/B          280/B          291/B          353/B          406/B
            553/BYTE
    %20
            557/OPEN       607/BEZ        643-CI
    %21
            644/BNE        648-RES
    %22
            218-RES        225/BNE
    %22
            557/OPEN       661-AI
    %24
            624-RES        662/BEZ
    %26
            610/BE         646/BL         650/BL         664-RES
    %30
            228-RES        542/BYTE
    %30
            557/OPEN       613/B          614/B          615/B          618/B          622-CI         642/B
            653/BE         659/BE
    %32
            250-RES        491/BNEZ
    %40
            233-LW         543/BYTE
    %40
            557/OPEN       616/B          617/B          620-LI         655/BE         657/BE
    %42
            232/B          238-BAL
    %5
            594/B          597-RES
    %50
            242-RES        540/BYTE
    %50
            557/OPEN       619/B          633-RES
    %51
            284-RES        526/B
    %52
            244/B          264-RES
    %56
            270/BE         274-RES
    %57
            279-BAL        283/BEZ        499/BE         502/BE         504/BE         519/BNE        525/BNE
    %58
            278/BE         281-LW
    %59
            286-RES        290/BG         303/BNEZ       315/BEZ
    %60
            325-RES        541/BYTE
    %60
            557/OPEN       635-CI         640/BDR
    %62
            272/BNE        292-LW
    %62
            557/OPEN       636/BE         639-AI
    %64
            306/BE         308/BE         311-RES
    %65
            253/BEZ        261-RES        300/BEZ        323/B          329/BDR
    %66
            310/BNE        316-RES
    %70
            347-AND        545/BYTE
    %70
            557/OPEN       623/BNE        626-RES        647/B          651/BE         660/BG         663/BGZ
    %72
            319-BAL        320/BNEZ
    %74
            349-RES        352/BDR
    %8
            188/BNE        192/BL         194/BG         199/BNE        203/BNE        209-LW
    %80
            331-RES        538/BYTE
    %90
            337-LW         548/BYTE
1
         1                             TITLE 'TELEFILE ASSEMBLY PROGRAM - APPART'
1
         2                                     PCC      0
E
         4                            *   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
         5                            *   %%%%%     MODULE NAME:     APPART                  %%%%%
         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                 DGPART   CSECT    1                 PROCEDURE
        34                                     DEF      DGPART
        35                                     DEF      PARTIC
        36                            *
        37                                     DEF      ADJKLINE
        38                                     DEF      ADV%ITM
        39                            *
        40                                     REF      ABORT
        41                            *
        42                                     REF      DELETEXP
        43                                     REF      GETPLOC1
        44                                     REF      LINE%FLDS
        45                                     REF      LOADXM
        46                                     REF      LOADXW
        47                                     REF      SCAN
        48                                     REF      SUBVAL
        49                            *
        50                                     SYSTEM   AP%IL
        51                                     SYSTEM   AP%DG
  C00
1
        53   04 000BE                          USECT    DGPART
        54                            *
        55                            *   A D J K L I N E
        56                            *        THIS SUBROUTINE ADJUSTS KLINE WITHIN AVAILABLE DYNAMIC
        57                            *          STORAGE IF FINDSPCXIT (BYTE 0) IS NON-ZERO.  KLINE AND
        58                            *          ALL EXISTING ECT, EVT, AND PROCEDURE LEVEL TABLES WILL
        59                            *          BE MOVED TO THE MID-POINT OF AVAILABLE STORAGE.
        60                            *
        61                            *        INPUT:   BYTE ZERO OF FINDSPCXIT IS 0 IF NO ADJUSTMENT IS
        62                            *                   NEEDED; NON-ZERO IF ADJUSTMENT IS REQUIRED.
        63                            *
        64                            *        OUTPUT:  BYTE ZERO OF FINDSPCXIT IS ZERO
        65                            *                 KLINE AND LVL HAVE BEEN ADJUSTED
        66                            *
        67                            *        USES REGISTERS
        68                            *                 ER, RL, XT, XT1, XT2, LVL
        69                            *
        70   02 00000                 ADJKLINE RES      0
        71                            *
        72   02 00000    73000013 03           MTB,0    FINDSPCXIT
        73   02 00001    683E0000 A            EXIT,EQ  RL                EXIT IF NO KLINE ADJUSTMENT NEEDED
        74                            *
        75   02 00002    35700013 03           STW,RL   FINDSPCXIT        SAVE EXIT & RESET ADJUST INDICATOR
        76   02 00003    3A760002 A            LCW,RL   ECT,LVL
        77   02 00004    30760001 A            AW,RL    EVT,LVL
        78   02 00005    32560002 A            LW,XT1   ECT,LVL
        79   02 00006    22F00001 A            LI,ER    1
        80   02 00007    3240009F 04           LW,XT    NXTLOCAL
        81   02 00008    304000A0 04           AW,XT    NXTSYMT
        82   02 00009    2540007F A            SLS,XT   -1                COMPUTE ADDRESS OF MID-POINT
        83   02 0000A    30460002 A            AW,XT    ECT,LVL           EXIT IF MOVE WOULD RESULT IN
        84   02 0000B    314000A0 04           CW,XT    NXTSYMT             ECT OVERLAPPING NXTSYMT
        85   02 0000C    E9100013 03           BL       *FINDSPCXIT
        86                            *
        87   02 0000D    30400007 A            AW,XT    RL
        88   02 0000E    3140009F 04           CW,XT    NXTLOCAL          EXIT IF MOVE WOULD RESULT IN
        89   02 0000F    E9200013 03           BG       *FINDSPCXIT         EVT OVERLAPPING NXTLOCAL
        90                            *
        91   02 00010    38460001 A            SW,XT    EVT,LVL
        92   02 00011    207FFFFF A            AI,RL    -1                NUMBER OF WORDS TO MOVE
        93   02 00012    31400035 03           CW,XT    KLINE             IF MID-POINT IS LESS THAN KLINE,
        94   02 00013    69100016              BL       ADJKLN1             KLINE MUST BE MOVED DOWN
        95                            *
        96   02 00014    32560001 A            LW,XT1   EVT,LVL
        97   02 00015    22FFFFFF A            LI,ER    -1
        98   02 00016                 ADJKLN1  RES      0
        99   02 00016    3050000F A            AW,XT1   ER                MOVE KLINE, AND ALL TABLES THAT
       100   02 00017    B26A0035 03           LW,XT2   *KLINE,XT1          INDEX OFF OF KLINE, SUCH THAT
       101   02 00018    B56A0004 A            STW,XT2  *XT,XT1             KLINE OCCUPIES THE MID-POINT
       102   02 00019    64700016              BDR,RL   ADJKLN1             OF AVAILABLE DYNAMIC STORAGE
       103                            *
       104   02 0001A    38300035 03           SW,LVL   KLINE
       105   02 0001B    35400035 03           STW,XT   KLINE             STORE NEW ADDRESS FOR KLINE
       106   02 0001C    30300004 A            AW,LVL   XT                  AND NEW ADDRESS FOR LVL
       107   02 0001D    E8000013 03           B        *FINDSPCXIT
1
       109                            *
       110                            *   I N T S S Y M
       111                            *        TEST THE ENCODED ITEM FOR BEING INTRINSIC SUBSCRIPTED
       112                            *          SYMBOL LF, CF, AF, OR NAME
       113                            *
       114                            *   I N T S Y M
       115                            *        TEST THE ENCODED ITEM FOR BEING INTRINSIC SYMBOL
       116                            *          LF, CF, AF, OR NAME
       117                            *
       118                            *        INPUT:   REGISTER XT CONTAINS THE ENCODED ITEM
       119                            *
       120                            *        OUTPUT:  RETURN IS TO CALLING LINE+1 IF ENCODED ITEM
       121                            *                   IS LF, CF, AF, OR NAME
       122                            *                 RETURN IS TO CALLING LINE+2 IF ENCODED ITEM
       123                            *                   IS NOT LF, CF, AF, OR NAME
       124                            *
       125                            *        CALL:    BAL,RL  INTSSYM   INTRINSIC SUBSCRIPTED SYMBOL
       126                            *                 BAL,RL  INTSYM    INTRINSIC SYMBOL
       127                            *
       128   02 0001E                 INTSSYM  RES      0
       129   02 0001E    2140803E A            CI,XT    AFSSYM
       130   02 0001F    683E0000 A            EXIT,EQ  RL                RETURN IF SUBSCRIPTED SYMBOL IS AF
       131   02 00020    21408040 A            CI,XT    CFSSYM
       132   02 00021    6910002D              BL       INTSYM2           NOT CF, LF, OR NAME
       133   02 00022    21408042 A            CI,XT    NAMESSYM
       134   02 00023    68000029              B        INTSYM1
       135                            *
       136   02 00024                 INTSYM   RES      0
       137   02 00024    2140403E A            CI,XT    AFSYM
       138   02 00025    683E0000 A            EXIT,EQ  RL                RETURN IF SYMBOL IS AF
       139   02 00026    21404040 A            CI,XT    CFSYM
       140   02 00027    6910002D              BL       INTSYM2           NOT LF, CF, OR NAME
       141   02 00028    21404042 A            CI,XT    NAMESYM
       142   02 00029                 INTSYM1  RES      0
       143   02 00029    691E0000 A            EXIT,L   RL                RETURN IF ITEM IS CF OR LF
       144   02 0002A    6930002D              BNE      INTSYM2           BRANCH IF ITEM IS NOT NAME
       145   02 0002B    7300004C 04           MTB,0    PARTICRTN         IS THIS A REFERENCE TO A COM
       146   02 0002C    693E0000 A            EXIT,NE  RL                NO,  ITEM IS NAME
       147   02 0002D                 INTSYM2  RES      0
       148   02 0002D    680E0001 A            B        1,RL              SYMBOL WAS NOT LF, CF, AF, OR NAME
1
       150                            *
       151                            *    P A R T I C
       152                            *
       153                                     OPEN     TX1,TX2,XT2
       154                                     OPEN     TMP1,TMP2,TMP3
       155         0000000A           TX1      EQU      10
       156         0000000B           TX2      EQU      11
       157         0000000C           XT2      EQU      12
       158         0000000C           TMP1     EQU      XT2
       159         0000000E           TMP2     EQU      14
       160         0000000D           TMP3     EQU      13
       161   02 0002E                 PARTIC   RES      0
       162   02 0002E    3570004C 04           STW,RL   PARTICRTN
       163   02 0002F    7540004C 04           STB,XT   PARTICRTN         STORE 'NAME' FLAG
       164   02 00030    6A700000 X            BAL,RL   DELETEXP          DELETE PREVIOUS PARTIC BUFFER
       165   02 00031    6A700000              BAL,RL   ADJKLINE          ADJUST KLINE IF NEEDED
       166   02 00032    6A700000 X            BAL,RL   LINE%FLDS         SAVE LBL & CMND LOCATIONS
       167   02 00033    32C0009F 04           LW,XT2   NXTLOCAL
       168   02 00034    38C00035 03           SW,XT2   KLINE             AMT OF ROOM IN PARTIC AREA
       169   02 00035    25C00001 A            SLS,XT2  1                 CONVERT TO HALF WORDS
       170   02 00036    35C00063 04           STW,XT2  VALCNT            SAVE IN TEMP FOR TEST IN GETPRTC
       171   02 00037    32260003 A            LW,XW    LBL,LVL           SET XW BACK TO LABEL
       172   02 00038    22C00000 A            LI,XT2   0
       173   02 00039    35C00051 04           STW,XT2  FLDCNT
       174   02 0003A    35C00056 04           STW,XT2  PPLVL
       175   02 0003B    353000AB 04           STW,LVL  SAVELVL           SAVE CURRENT PROC LEVEL TBL PTR
       176   02 0003C    32660001 A            LW,XR    EVT,LVL           FORM INDEX TO START OF
       177   02 0003D    25600001 A            SLS,XR   1                   PARTIC BUFFER
       178   02 0003E    32460002 A            LW,XT    ECT,LVL           SET UP POINTER TO CONTROL STACK
       179   02 0003F    30400035 03           AW,XT    KLINE
       180   02 00040    35400048 04           STW,XT   CNTRLSTK
       181   02 00041    314000A0 04           CW,XT    NXTSYMT           IS THERE SPACE
       182   02 00042    6820017E              BLE      HILIMIT4          NO, ABORT
       183   02 00043    B5600048 04           STW,XR   *CNTRLSTK         PUSH INIT BUFFER INDEX ONTO STACK
       184   02 00044    6A700000 X            BAL,RL   GETPLOC1          GET ADDRESS OF PREVIOUS PROC LVL TBL
       185   02 00045    35200058 04           STW,XW   SAVEXW            SAVE SAMPLE LINE INDEX
       186   02 00046    6A700180              BAL,RL   NXT%ITM           GET FIRST ITEM
       187   02 00047    21400006 A            CV,XT    BEGINLIST         IS IT A BEGIN LIST
       188   02 00048    6930005C              BNE      %8                NO
       189   02 00049    35200001 A            STW,XW   XM
       190   02 0004A    6A700180              BAL,RL   NXT%ITM           YES, GET NEXT ITEM
       191   02 0004B    2140803E A            CV,XT    AFSSYM            IS IT = AFA,AF,CF,LF
       192   02 0004C    6910005C              BL       %8                NO
       193   02 0004D    21408042 A            CV,XT    NAMESSYM
       194   02 0004E    6920005C              BG       %8                NO
       195   02 0004F    6A70018A              BAL,RL   ADV%ITM           ADVANCE ITEM
       196   02 00050    46200001 A            XW,XW    XM
       197   02 00051    6A700180              BAL,RL   NXT%ITM
       198   02 00052    21400002 A            CV,XT    ENDLIST           IS NEXT ITEM AN END LIST
       199   02 00053    6930005C              BNE      %8                NO
       200   02 00054    202FFFFE A            AI,XW    -2                YES
       201   02 00055    6A700180              BAL,RL   NXT%ITM           IS PREVIOUS ITEM AN END SUB SYM
       202   02 00056    21400003 A            CV,XT    ENDSBSYM
       203   02 00057    6930005C              BNE      %8                NO
       204   02 00058    22400001 A            LV,XT    IGNRLST           YES
       205   02 00059    D5440037 03           STH,XT   *SYMT,XW          REPLACE ENDLIST WITH IGNORELIST
       206   02 0005A    32200058 04           LW,XW    SAVEXW
       207   02 0005B    D5440037 03           STH,XT   *SYMT,XW          REPLACE BEGINLIST WITH IGNORELIST
       208   02 0005C                 PT1%BASE RES      0
       209   02 0005C    32200058 04  %8       LW,XW    SAVEXW            RESTORE XW
       210   02 0005D    B2600048 04           LW,XR    *CNTRLSTK         RESTORE XR
       211   02 0005E    6A700180     %10      BAL,RL   NXT%ITM           MOVE NEXT ITEM TO LINE BUFFER
       212   02 0005F    35400005 A            STW,XT   XT1               GET TYPE OF ITEM
       213   02 00060    25500073 A            SHIFT,XT1  TLOB,31         RT ADJUST ITEM TYPE
       214   02 00061    725A0176              LB,XT1   PT1%JUMP,XT1      BRANCH TO APPROPRIATE
       215   02 00062    680A005C              B        PT1%BASE,XT1        PROCESSING ROUTINE
       216   02 00063    33000056 04  %20      MTW,0    PPLVL             IS NESTING LEVEL 0
       217   02 00064    6930005E              BNEZ     %10               NO
       218   02 00065                 %22      RES      0
       219   02 00065    33100051 04           MTW,1    FLDCNT            YES, BUMP FIELD COUNT TO NEXT FIELD
       220   02 00066    32C00051 04           LW,XT2   FLDCNT
       221   02 00067    21C00001 A            CI,XT2   1                 ARE WE PROCESSING CF(1)
       222   02 00068    6930005E              BNE      %10               NO
       223   02 00069    6A700180              BAL,RL   NXT%ITM           YES, GET NEXT ITEM
       224   02 0006A    21400006 A            CV,XT    BEGINLIST         IS 1ST ITEM A BEGINLIST
       225   02 0006B    69300065              BNE      %22               NO, MOVE TO NEXT FIELD
       226   02 0006C    6A700180              BAL,RL   NXT%ITM           GET NEXT ITEM
       227   02 0006D    680000DC              B        %130              BUMP NESTING LEVEL
       228   02 0006E                 %30      RES      0
       229   02 0006E    325001CD              LV,XT1   IFFLD             MASK FOR IF FIELD
       230   02 0006F    6A70001E              BAL,RL   INTSSYM           CHECK FOR SUBSCRIPTED INTRINSIC
       231   02 00070    C7500048 04           STS,XT1  *CNTRLSTK           SYMBOL LF, CF, AF, OR NAME
       232   02 00071    68000077              B        %42               NONE OF ABOVE
       233   02 00072    32500021 03  %40      LW,XT1   PROCREF           MAKE LOCAL SPECIFIC TO THIS
       234   02 00073    25500008 A            SLS,XT1  31-PLVLLOB          LEVEL BY ADDING PROC LEVEL
       235   02 00074    49400005 A            OR,XT    XT1                 TO SYMBOL NUMBER
       236   02 00075    206FFFFF A            AI,XR    -1
       237   02 00076    6A700185              BAL,RL   GETPRTC           STORE AND BUMP PARTIC INDEX
       238   02 00077    6A70017A     %42      BAL,RL   GETCNTRL          GET A WORD FOR CONTROL STACK
       239   02 00078    B5600048 04           STW,XR   *CNTRLSTK         SAVE POINTER TO START OF SUBSCRIPT
       240   02 00079    B3F00048 04           MTW,-1   *CNTRLSTK
       241   02 0007A    680000DC              B        %130
       242   02 0007B                 %50      RES      0
       243   02 0007B    6A700024              BAL,RL   INTSYM            CHECK FOR INTRINSIC SYMBOL LF, CF,
       244   02 0007C    6800008E              B        %52                 AF, OR NAME          FOUND
       245   02 0007D    2140403F A            CV,XT    AFASYM            NO, IS SYMBOL = AFA
       246   02 0007E    69300063              BNE      %20               NO
       247   02 0007F    32160005 A            LW,XM    OPRND,LVL         YES, GET POINTER TO PRL AF
       248   02 00080    6A700000 X            BAL,RL   LOADXM            SET XM BASE
       249   02 00081    206FFFFF A            AI,XR    -1                DELETE PREVIOUS SYMBOL ENTRY
       250   02 00082                 %32      RES      0
       251   02 00082    2240C000 A            LV,XT    ENC0
       252   02 00083    D27200BB 04           LH,RL    *XMBASE,XM        GET FIRST ITEM
       253   02 00084    6830008C              BEZ      %65
       254   02 00085    6A70018A              BAL,RL   ADV%ITM
       255   02 00086    201FFFFF A            AI,XM    -1
       256   02 00087    D2C200BB 04           LH,XT2   *XMBASE,XM        GET 1ST ITEM
       257   02 00088    20100001 A            AI,XM    1
       258   02 00089    21C00008 A            CV,XT2   ASTFLG            IS IT = '*'
       259   02 0008A    6930008C              BNE      %+2               NO, SUBSTITUTE A 0
       260   02 0008B    2240C001 A            LV,XT    ENC1              YES, SUBSTITUTE A ONE
       261   02 0008C                 %65      RES      0
       262   02 0008C    6A700185              BAL,RL   GETPRTC           STORE AND BUMP PARTIC INDEX
       263   02 0008D    68000063              B        %20
       264   02 0008E                 %52      RES      0                 SET INTRINSIC FLAG AT THIS LEVEL
       265   02 0008E    327001CD              LV,RL    IFFLD
       266   02 0008F    C7700048 04           STS,RL   *CNTRLSTK
       267   02 00090    206FFFFF A            AI,XR    -1
       268   02 00091    32160003 A            LW,XM    LBL,LVL           GET POINTER TO LABEL FIELD
       269   02 00092    21404041 A            CV,XT    LFSYM             IS ITEM = LF
       270   02 00093    68300097              BE       %56               YES
       271   02 00094    21404040 A            CV,XT    CFSYM             IS ITEM = CF
       272   02 00095    693000A5              BNE      %62               NO
       273   02 00096    32160004 A            LW,XM    CMND,LVL          YES, GET POINTER TO COMMAND FIELD
       274   02 00097                 %56      RES      0
       275   02 00097    6A700000 X            BAL,RL   LOADXM            SET XM BASE
       276   02 00098    D2C200BB 04           LH,XT2   *XMBASE,XM
       277   02 00099    21C00006 A            CV,XT2   BEGINLIST         IS 1ST ITEM A BEGIN LIST
       278   02 0009A    6830009D              BE       %58               YES
       279   02 0009B    6A70018C     %57      BAL,RL   MOVE%ITM          NO, MOVE ITEM
       280   02 0009C    68000063              B        %20
       281   02 0009D    32C00051 04  %58      LW,XT2   FLDCNT            ARE WE PROCESSING LABEL FIELD
       282   02 0009E    49C00056 04           OR,XT2   PPLVL               AND DOES NESTING LEVEL = 0
       283   02 0009F    6830009B              BEZ      %57               YES
       284   02 000A0                 %51      RES      0
       285   02 000A0    20100001 A            AI,XM    1
       286   02 000A1                 %59      RES      0
       287   02 000A1    6A70018C              BAL,RL   MOVE%ITM          MOVE UNTIL END-LIST, END-LINE,
       288                            *                                     OR END-SUBSCRIPTED-SYMBOL
       289   02 000A2    21C00003 A            CV,XT2   ENDSBSYM
       290   02 000A3    692000A1              BG       %59
       291   02 000A4    68000063              B        %20
       292   02 000A5    32160005 A   %62      LW,XM    OPRND,LVL         GET POINTER TO AF FIELD
       293   02 000A6    21404042 A            CV,XT    NAMESYM           IS ITEM = NAME
       294   02 000A7    693000A9              BNE      PRTC%2            NO
       295   02 000A8    3216000B A            LW,XM    NAMELOC,LVL       GET POINTER TO 'NAME' FIELD
       296   02 000A9                 PRTC%2   RES      0
       297   02 000A9    6A700000 X            BAL,RL   LOADXM            SET XM BASE
       298   02 000AA    22400005 A            LV,XT    BLANKEXP          MOVE A BLANK IF 1ST ITEM IN AF
       299   02 000AB    D2A200BB 04           LH,TX1   *XMBASE,XM          IS END-LINE
       300   02 000AC    6830008C              BEZ      %65
       301   02 000AD    32C00051 04           LW,XT2   FLDCNT            ARE WE IN LABEL FIELD AND DOES
       302   02 000AE    49C00056 04           OR,XT2   PPLVL               NESTING LEVEL = 0
       303   02 000AF    693000A1              BNEZ     %59               NO
       304   02 000B0    22B0E000 A            LV,TX2   TFLD
       305   02 000B1    45A001CE              CS,TX1   =ENCSYM           IS ITEM A SYMBOL
       306   02 000B2    683000B7              BE       %64               YES
       307   02 000B3    45A001CF              CS,TX1   =ENCLSYM          NO, IS IT A LOCAL SYMBOL
       308   02 000B4    683000B7              BE       %64               YES
       309   02 000B5    21A00005 A            CV,TX1   BLANKEXP          NO, IS IT A BLANK EXP
       310   02 000B6    693000BB              BNE      %66               NO
       311   02 000B7                 %64      RES      0
       312   02 000B7    32400001 A            LW,XT    XM
       313   02 000B8    20400001 A            AI,XT    1
       314   02 000B9    D2C800BB 04           LH,XT2   *XMBASE,XT        LOOK AHEAD FOR END OF LINE
       315   02 000BA    683000A1              BEZ      %59               NEXT ITEM IS END OF LINE
       316   02 000BB                 %66      RES      0
       317   02 000BB    22400006 A            LV,XT    BEGINLIST
       318   02 000BC    6A700185              BAL,RL   GETPRTC           STORE AND BUMP PARTIC INDEX
       319   02 000BD    6A70018C     %72      BAL,RL   MOVE%ITM          MOVE ITEM UNTIL END OF LINE
       320   02 000BE    693000BD              BNEZ     %72               BRANCH IF NOT END OF LINE
       321   02 000BF                 PRTC%4   RES      0
       322   02 000BF    22400002 A            LV,XT    ENDLIST
       323   02 000C0    6800008C              B        %65
       324                            *    HERE FOR LOCAL SYMBOL
       325   02 000C1                 %60      RES      0
       326   02 000C1    32500021 03           LW,XT1   PROCREF           MAKE LOCAL SPECIFIC TO THIS LEVEL
       327   02 000C2    25500008 A            SLS,XT1  31-PLVLLOB          BY ADDING PROC LEVEL
       328   02 000C3    49400005 A            OR,XT    XT1
       329   02 000C4    6460008C              BDR,XR   %65               SUBT. 1 FROM XR AND BRANCH
       330                            *    HERE FOR CONTROL
       331   02 000C5                 %80      RES      0
       332   02 000C5    21400007 A            CI,XT    BEGINEXP
       333   02 000C6    6920005E              BG       %10
       334   02 000C7    72580178              LB,XT1   PT2%JUMP,XT       BRANCH TO APPROPRIATE
       335   02 000C8    680A005C              B        PT1%BASE,XT1        CONTROL ROUTINE
       336                            *    HERE FOR END LINE
       337   02 000C9    323000AB 04  %90      LW,LVL   SAVELVL           RESTORE CURRENT PROC LVL TBL PTR
       338   02 000CA    35260008 A            STW,XW   SAMP,LVL
       339   02 000CB    B2200048 04           LW,XW    *CNTRLSTK         SET ENCODED INPUT POINTER
       340   02 000CC    492001CD              OR,XW    L(PARTICBASE)       TO PARTIC BUFFER
       341   02 000CD    6A700000 X            BAL,RL   LOADXW
       342   02 000CE    20600001 A            AI,XR    1                 CALCULATE NEW VALUE OF EVT
       343   02 000CF    2560007F A            SLS,XR   -1
       344   02 000D0    35660001 A            STW,XR   EVT,LVL
       345   02 000D1    E800004C 04           B        *PARTICRTN        RETURN
       346                            *    HERE FOR INTEGER
       347   02 000D2    4B4001D0     %70      AND,XT   L(LFLD)           GET LENGTH OF CONSTANT
       348   02 000D3    32500004 A            LW,XT1   XT                ANY MORE
       349   02 000D4                 %74      RES      0
       350   02 000D4    D24400BA 04           NXTENC                     YES
             02 000D5    20200001 A
       351   02 000D6    6A700185              BAL,RL   GETPRTC           STORE NEXT HALFWORD OF INTEGER
       352   02 000D7    645000D4              BDR,XT1  %74
       353   02 000D8    68000063              B        %20
       354                            *    HERE FOR BEGIN EXPRESSION
       355   02 000D9    6A70017A     %120     BAL,RL   GETCNTRL          GET A WORD FOR CONTROL STACK
       356   02 000DA    22C00000 A            LI,XT2   0
       357   02 000DB    B5C00048 04           STW,XT2  *CNTRLSTK
       358                            *    HERE FOR BEGIN LIST
       359   02 000DC    33100056 04  %130     MTW,1    PPLVL
       360   02 000DD    6800005E              B        %10
       361                            *    HERE FOR END SUBSCRIPTED SYMBOL
       362   02 000DE                 %140     RES      0
       363   02 000DE    B2500048 04           LW,XT1   *CNTRLSTK         GET POINTER TO START OF SUBSCRIPT
       364   02 000DF    D24A0035 03           LH,XT    *KLINE,XT1        GET SUBSCRIPTED SYMBOL
       365   02 000E0    4B4001D1              AND,XT   L(ENCITEM)        CLEAN IT
       366   02 000E1    21408049 A            CV,XT    NUMSSYM           IS SYMBOL = NUM
       367   02 000E2    69300102              BNE      %146              NO
       368   02 000E3    B3000048 04           MTW,0    *CNTRLSTK         YES, IS INTRINSIC FLAG SET
       369   02 000E4    681000FF              BGEZ     %100              NO
       370   02 000E5    B2100048 04           LW,XM    *CNTRLSTK         YES, SET UP POINTER TO
       371   02 000E6    6A700000 X            BAL,RL   LOADXM            SET XM BASE
       372   02 000E7    20100001 A            AI,XM    1                   ARGUMENT OF NUM
       373   02 000E8    2240C000 A            LI,XT    ENCSMINT
       374   02 000E9    D2C200BB 04           LH,XT2   *XMBASE,XM
       375   02 000EA    21C00005 A            CV,XT2   BLANKEXP          IS IT A BLANK EXPRESSION
       376   02 000EB    693000F4              BNE      %142              NO
       377   02 000EC    20500002 A            AI,XT1   2                 YES
       378   02 000ED    D2CA00BB 04           LH,XT2   *XMBASE,XT1
       379   02 000EE    21C00008 A            CV,XT2   ASTFLG            IS IT AN ASTERISK FLAG
       380   02 000EF    693000F2              BNE      %141              NO
       381                            *
       382   02 000F0    20500001 A            AI,XT1   1                 YES
       383   02 000F1    D2CA00BB 04           LH,XT2   *XMBASE,XT1
       384   02 000F2                 %141     RES      0
       385   02 000F2    21C00003 A            CV,XT2   ENDSBSYM          IS NEXT ITEM END SUB-SYMBOL
       386   02 000F3    683000F9              BE       %144              YES
       387   02 000F4    6A70018A     %142     BAL,RL   ADV%ITM           NO, SKIP NEXT ITEM
       388   02 000F5    20400001 A            AI,XT    1
       389   02 000F6    21E00000 A            CI,TMP2  0                 BRANCH IF END-SUB-SYMBOL
       390   02 000F7    683000F4              BE       %142                NOT YET FOUND
       391   02 000F8    204FFFFF A            AI,XT    -1
       392   02 000F9    B2600048 04  %144     LW,XR    *CNTRLSTK
       393   02 000FA    4B6001D2              AND,XR   L(BUFFFLD)
       394   02 000FB                 %161     RES      0
       395   02 000FB    6A700185              BAL,RL   GETPRTC           STORE AND BUMP PARTIC INDEX
       396   02 000FC    680000FF              B        %100
       397   02 000FD                 %148     RES      0
       398   02 000FD    6A70001E              BAL,RL   INTSSYM           CHECK FOR SUBSCRIPTED INTRINSIC
       399   02 000FE    68000106              B        %149                SYMBOL LF, CF, AF, OR NAME
       400                            *   HERE FOR END EXPRESSION
       401   02 000FF                 %100     RES      0
       402   02 000FF    33100048 04           MTW,1    CNTRLSTK
       403                            *   HERE FOR END LIST
       404   02 00100                 %110     RES      0
       405   02 00100    33F00056 04           MTW,-1   PPLVL
       406   02 00101    68000063              B        %20
       407   02 00102                 %146     RES      0
       408   02 00102    22C00000 A            LI,XT2   0
       409   02 00103    2140803F A            CV,XT    AFASSYM           IS SYMBOL = AFA
       410   02 00104    693000FD              BNE      %148              NO
       411   02 00105    22C00001 A            LI,XT2   1                 YES
       412   02 00106    35C0004A 04  %149     STW,XT2  AFA%FLG           0=NO, 1=YES
       413   02 00107    323000AB 04           LW,LVL   SAVELVL           RESTORE CURRENT PROC LVL TBL PTR
       414   02 00108    32C60002 A            LW,XT2   ECT,LVL           SAVE ECT VALUE
       415   02 00109    35C00049 04           STW,XT2  ECTSAVE
       416   02 0010A    32C00006 A            LW,XT2   XR                CALCULATE NEW VALUE OF EVT
       417   02 0010B    25C0007F A            SLS,XT2  -1
       418   02 0010C    20C00001 A            AI,XT2   1
       419   02 0010D    35C60001 A            STW,XT2  EVT,LVL
       420   02 0010E    32C00048 04           LW,XT2   CNTRLSTK          CALCULATE NEW VALUE OF ECT
       421   02 0010F    38C00035 03           SW,XT2   KLINE
       422   02 00110    20CFFFFF A            AI,XT2   -1
       423   02 00111    35C60002 A            STW,XT2  ECT,LVL
       424   02 00112    22400000 A            LI,XT    ENDLINE           STORE IN CASE SUBSCRIPTS HAVE
       425   02 00113    6A700185              BAL,RL   GETPRTC             NON-ARGUMENT FNAME REFERENCE
       426   02 00114    B2600048 04           LW,XR    *CNTRLSTK         GET POINTER TO SUBSCRIPTED SYMBOL
       427   02 00115    4B6001D2              AND,XR   L(BUFFFLD)
       428   02 00116    35200058 04           STW,XW   SAVEXW            SAVE INPUT POINTER
       429   02 00117    35600057 04           STW,XR   SAVEXR            SAVE PARTIC BUF POINTER
       430   02 00118    32200006 A            LW,XW    XR                SET INPUT POINTER TO BEGINNING
       431   02 00119    20200001 A            AI,XW    1                   OF SUBSCRIPT
       432   02 0011A    492001CD              OR,XW    L(PARTICBASE)
       433   02 0011B    6A700000 X            BAL,RL   LOADXW
       434   02 0011C    6A700000 X            BAL,RL   SCAN              EVALUATE SUBSCRIPT
       435   02 0011D    351000B4 04           STW,XS   SUBLOC            SET POINTER TO START OF ECT
       436   02 0011E    32200058 04           LW,XW    SAVEXW            RESTORE INPUT BUFFER
       437   02 0011F    6A700000 X            BAL,RL   LOADXW
       438   02 00120    32600057 04           LW,XR    SAVEXR            RESTORE PARTIC BUF POINTER
       439   02 00121    32C00049 04           LW,XT2   ECTSAVE           RESTORE ECT VALUE
       440   02 00122    35C60002 A            STW,XT2  ECT,LVL
       441   02 00123    353000AB 04           STW,LVL  SAVELVL           SAVE ADDRESS OF CURRENT PROC LVL TBL
       442   02 00124    6A700000 X            BAL,RL   GETPLOC1          GET ADDRESS OF PREVIOUS PROC LVL TBL
       443   02 00125    D24C0035 03           LH,XT    *KLINE,XR         GET SYMBOL
       444   02 00126    4B4001D1              AND,XT   L(ENCITEM)        CLEAN IT
       445   02 00127    32160003 A            LW,XM    LBL,LVL           GET POINTER TO LABEL FIELD
       446   02 00128    21408041 A            CV,XT    LFSSYM            IS IT LF
       447   02 00129    6830012D              BE       PRTC%5            ITEM IS LF
       448   02 0012A    21408040 A            CV,XT    CFSSYM            IS ITEM = CF
       449   02 0012B    6930012F              BNE      %1494             NO
       450   02 0012C    32160004 A            LW,XM    CMND,LVL          YES, GET POINTER TO COMMAND FIELD
       451   02 0012D                 PRTC%5   RES      0
       452   02 0012D    6A700000 X            BAL,RL   LOADXM            SET XM BASE
       453   02 0012E    6800013C              B        %151
       454   02 0012F    32160005 A   %1494    LW,XM    OPRND,LVL
       455   02 00130    21408042 A            CV,XT    NAMESSYM          IS ITEM = NAME
       456   02 00131    69300133              BNE      PRTC%3            NO
       457   02 00132    3216000B A            LW,XM    NAMELOC,LVL       GET POINTER TO 'NAME' FIELD
       458   02 00133                 PRTC%3   RES      0
       459   02 00133    6A700000 X            BAL,RL   LOADXM            SET XM BASE
       460   02 00134    D2B200BB 04           LH,TX2   *XMBASE,XM        IS THERE AN 'AF' FIELD
       461   02 00135    68300144              BEZ      %160              BRIF NO
       462                            *
       463   02 00136                 %180     RES      0
       464   02 00136    22B00001 A            LI,TX2   1                 PRESET ELEMENT NUMBER TO 1
       465   02 00137    6A700000 X            BAL,RL   SUBVAL            GET SUBSCRIPT VALUE
       466   02 00138                 %150     RES      0
       467   02 00138    31B000B3 04           CW,TX2   SUB#              IS THIS REQUIRED ELEMENT
       468   02 00139    69100171              BL       %184
       469   02 0013A    33F00097 04           MTW,-1   LSTCT
       470   02 0013B    6830014B              BEZ      %170
       471   02 0013C    D2C200BB 04  %151     LH,XT2   *XMBASE,XM
       472   02 0013D    21C00006 A            CV,XT2   BEGINLIST         IS ITEM A BEGIN LIST
       473   02 0013E    69300141              BNE      %152              NO
       474   02 0013F    20100001 A            AI,XM    1                 YES
       475   02 00140    68000136              B        %180
       476   02 00141                 %152     RES      0
       477   02 00141    6A700000 X            BAL,RL   SUBVAL            GET NEXT SUBSCRIPT
       478   02 00142    21400001 A            CI,XT    1                 CONTINUE IF IT'S = 1
       479   02 00143    68300149              BE       %164              SUBSCRIPT = 1
       480   02 00144    22400005 A   %160     LV,XT    BLANKEXP
       481   02 00145    3300004A 04           MTW,0    AFA%FLG
       482   02 00146    683000FB              BEZ      %161
       483   02 00147    2240C000 A            LV,XT    ENC0
       484   02 00148    680000FB              B        %161
       485   02 00149    33F00097 04  %164     MTW,-1   LSTCT
       486   02 0014A    69200141              BGZ      %152
       487   02 0014B                 %170     RES      0
       488   02 0014B    33100048 04           MTW,+1   CNTRLSTK          DELETE CONTROL ENTRY
       489   02 0014C    33F00056 04           MTW,-1   PPLVL             DECREASE PARTIC LEVEL
       490   02 0014D    3300004A 04           MTW,0    AFA%FLG
       491   02 0014E    69300082              BNEZ     %32               BRANCH IF AFA
       492   02 0014F    D2C200BB 04           LH,XT2   *XMBASE,XM        LOOK AHEAD FOR BEGIN-LIST
       493   02 00150    32700056 04           LW,RL    PPLVL             IS NESTING LEVEL 0, AND ARE WE
       494   02 00151    49700051 04           OR,RL    FLDCNT              SUBSTITUTING INTO LABEL
       495   02 00152    6930016F              BNEZ     TEST%STRIP        GO LOOK FOR REDUNDANT BEGIN-LIST
       496   02 00153    21C00006 A            CV,XT2   BEGINLIST
       497   02 00154    68300160              BE       MOVE              YES. SEE WHETHER IT'S REQUIRED
       498   02 00155    21C00005 A            CV,XT2   BLANKEXP
       499   02 00156    6830009B              BE       %57
       500   02 00157    4BC001D3              AND,XT2  L(TFLD)
       501   02 00158    21C04000 A            CV,XT2   ENCSYM
       502   02 00159    6830009B              BE       %57
       503   02 0015A    21C06000 A            CV,XT2   ENCLSYM
       504   02 0015B    6830009B              BE       %57               BRANCH FOR LOCAL SYMBOL
       505   02 0015C    22400006 A            LV,XT    BEGINLIST         MOVE A BEGINLIST TO PARTIC BUFFER
       506   02 0015D    6A700185              BAL,RL   GETPRTC           BUMP PARTIC INDEX
       507   02 0015E    6A70018C              BAL,RL   MOVE%ITM          MOVE SUBSCRIPTED ITEM
       508   02 0015F    680000BF              B        PRTC%4            GO STORE ENDLIST
       509   02 00160                 MOVE     RES      0
       510   02 00160    32400001 A            LW,XT    XM
       511   02 00161    20400001 A            AI,XT    1
       512   02 00162    D2C800BB 04           LH,XT2   *XMBASE,XT        LOOK FOR A BLANK OR SYMBOL
       513   02 00163    21C00005 A            CV,XT2   BLANKEXP            FOLLOWED BY END-LIST
       514   02 00164    6830016A              BE       MOVE5
       515   02 00165    4BC001D3              AND,XT2  =TFLD
       516   02 00166    21C04000 A            CV,XT2   ENCSYM
       517   02 00167    6830016A              BE       MOVE5
       518   02 00168    21C06000 A            CV,XT2   ENCLSYM           LOCAL SYMBOL
       519   02 00169    6930009B              BNE      %57
       520   02 0016A                 MOVE5    RES      0
       521   02 0016A    20400001 A            AI,XT    1
       522   02 0016B    D2C800BB 04           LH,XT2   *XMBASE,XT
       523   02 0016C    21C00002 A            CV,XT2   ENDLIST
       524   02 0016D                 MOVE1    RES      0
       525   02 0016D    6930009B              BNE      %57
       526   02 0016E    680000A0              B        %51
       527   02 0016F                 TEST%STRIP  RES   0
       528   02 0016F    21C00006 A            CV,XT2   BEGINLIST         DISCARD BEGIN-LIST IF PRESENT
       529   02 00170    6800016D              B        MOVE1
       530   02 00171                 %184     RES      0
       531   02 00171    6A70018A              BAL,RL   ADV%ITM
       532                            *                                   TEST FOR END-LINE, END-LIST,
       533   02 00172    21C00003 A            CV,XT2   ENDSBSYM            OR END-SUBSCRIPTED SYMBOL
       534   02 00173    68200144              BLE      %160              YES, THE ITEM ISN'T THERE
       535   02 00174    20B00001 A            AI,TX2   1                 BUMP ELEMENT NUMBER
       536   02 00175    68000138              B        %150
       537   02 00176                 PT1%JUMP RES      0
       538   02 00176    69       A            BYTE,PT1%BASE  %80         CONTROL
       539   02 00176 1  02       A            BYTE     %10               DIRECTIVE
       540   02 00176 2  1F       A            BYTE     %50               GLOBAL SYMBOL
       541   02 00176 3  65       A            BYTE     %60               LOCAL SYMBOL
       542   02 00177    12       A            BYTE     %30               GLOBAL SUBSCRIPTED SYMBOL
       543   02 00177 1  16       A            BYTE     %40               LOCAL  SUBSCRIPTED SYMBOL
       544   02 00177 2  02       A            BYTE     %10               SMALL INTEGER
       545   02 00177 3  76       A            BYTE     %70               LARGE INTEGER
       546                                     BOUND    4
       547   02 00178                 PT2%JUMP RES      0
       548   02 00178    6D       A            BYTE,PT1%BASE  %90         END LINE
       549   02 00178 1  02       A            BYTE     %10
       550   02 00178 2  A4       A            BYTE     %110              END LIST
       551   02 00178 3  82       A            BYTE     %140              END SUBSCRIPTED SYMBOL
       552   02 00179    A3       A            BYTE     %100              END EXPRESSION
       553   02 00179 1  07       A            BYTE     %20               BLANK EXPRESSION
       554   02 00179 2  80       A            BYTE     %130              BEGIN LIST
       555   02 00179 3  7D       A            BYTE     %120              BEGIN EXPRESSION
       556                                     BOUND    4
       557                                     OPEN     %10,%20,%30,%40,%50,%60,%70,%22,%62
       558                                     OPEN     XT1
       559         0000000A           XT1      EQU      10
       560                            *
       561                            *    G E T C N T R L
       562                            *
       563   02 0017A                 GETCNTRL RES      0
       564   02 0017A    33F00048 04           MTW,-1   CNTRLSTK          GET A WORD FOR THE CONTROL STACK
       565   02 0017B    32F00048 04           LW,ER    CNTRLSTK
       566   02 0017C    31F000A0 04           CW,ER    NXTSYMT           IS THE WORD AVAILABLE
       567   02 0017D    692E0000 A            EXIT,G   RL                YES, RETURN
       568   02 0017E                 HILIMIT4 RES      0
       569   02 0017E    22000001 A            ABORT    1                 SPACE OVERFLOW
             02 0017F    68000000 X
       570                            *
       571                            *    N X T % I T M
       572                            *
       573   02 00180                 NXT%ITM  RES      0
       574   02 00180    D24400BA 04           NXTENC                     GET NEXT ENCODED ITEM
             02 00181    20200001 A
       575   02 00182    4B4001D1              AND,XT   L(ENCITEM)        CLEAN IT
       576   02 00183    21400001 A            CV,XT    IGNRLST           IS THIS ITEM AN IGNORE LIST
       577   02 00184    68300180              BE       NXT%ITM           YES
       578                            *
       579                            *    GETPRTC
       580                            *
       581   02 00185                 GETPRTC  RES      0
       582   02 00185    D54C0035 03           STH,XT   *KLINE,XR         STORE ITEM IN PARTIC BUFFER
       583   02 00186    20600001 A            AI,XR    1                 GET NEXT HALF-WD FOR PARTIC BUFFER
       584   02 00187    31600063 04           CW,XR    VALCNT            TEST MAX HALFWORDS AVAILABLE
       585   02 00188    691E0000 A            EXIT,L   RL                EXIT IF OKAY
       586                            *
       587   02 00189    6800017E              B        HILIMIT4
       588                            *
       589                            *    A D V % I T M
       590                            *    M O V E % I T M
       591                            *
       592   02 0018A                 ADV%ITM  RES      0
       593   02 0018A    22C00000 A            LI,TMP1  0                 INDICATE NO MOVE
       594   02 0018B    6800018D              B        %5
       595   02 0018C                 MOVE%ITM RES      0
       596   02 0018C    22C00001 A            LI,TMP1  1
       597   02 0018D                 %5       RES      0
       598   02 0018D    35700065 04           STW,RL   ADV%RTN
       599   02 0018E    354000AC 04           STW,XT   SAVEXT
       600   02 0018F    6A700000 X            BAL,RL   LOADXM
       601   02 00190    22E00000 A            LI,TMP2  0
       602   02 00191    22DFFFFF A            LI,TMP3  -1
       603   02 00192                 %10      RES      0                 GET NEXT ITEM FROM THE SOURCE LINE
       604   02 00192    D2A200BB 04           LH,XT1   *XMBASE,XM
       605   02 00193    2270E000 A            LV,RL    TFLD
       606   02 00194    4B70000A A            AND,RL   XT1
       607   02 00195    683001B5              BEZ      %20               TYPE = CONTROL
       608   02 00196    25700073 A            SHIFT,RL TLOB,31
       609   02 00197    21D00001 A            CI,TMP3  1                 IS MAIN ITEM PROCESSED
       610   02 00198    683001C9              BE       %26               YES, GO RETURN
       611   02 00199    680E0199              B        %15,RL
       612         02 00199           %15      EQU      %-1
       613   02 0019A    680001A3              B        %30               DIRECTIVE
       614   02 0019B    680001A3              B        %30               GLOBAL SYMBOL
       615   02 0019C    680001A3              B        %30               LOCAL SYMBOL
       616   02 0019D    680001A1              B        %40               GLOBAL SUBSCRIPTED SYMBOL
       617   02 0019E    680001A1              B        %40               LOCAL SUBSCRIPTED SYMBOL
       618   02 0019F    680001A3              B        %30               SMALL INTEGER
       619   02 001A0    680001AC              B        %50               INTEGER
       620   02 001A1    22D00000 A   %40      LI,TMP3  0                 INDICATE SUBSCRIPTED SYMBOL
       621   02 001A2    20E00001 A            AI,TMP2  1                 BUMP NESTING LEVEL
       622   02 001A3    21DFFFFF A   %30      CI,TMP3  -1
       623   02 001A4    693001A6              BNE      %70
       624   02 001A5                 %24      RES      0
       625   02 001A5    22D00001 A            LI,TMP3  1                 INDICATE MAIN ITEM PROCESSED
       626   02 001A6                 %70      RES      0
       627   02 001A6    20100001 A            AI,XM    1                 BUMP INPUT POINTER
       628   02 001A7    21C00000 A            CI,TMP1  0                 WANT TO MOVE ITEM
       629   02 001A8    68300192              BE       %10               NO
       630   02 001A9    3240000A A            LW,XT    XT1
       631   02 001AA    6A700185              BAL,RL   GETPRTC           STORE AND BUMP PARTIC INDEX
       632   02 001AB    68000192              B        %10
       633   02 001AC                 %50      RES      0                 HERE FOR MULTI-ITEM INTEGER
       634   02 001AC    4BA001D0              AND,XT1  =LFLD
       635   02 001AD    21C00000 A   %60      CI,TMP1  0                 IS ITEM TO BE MOVED
       636   02 001AE    683001B1              BE       %62               NO
       637   02 001AF    D24200BB 04           LH,XT    *XMBASE,XM        GET NEXT ITEM OF INTEGER
       638   02 001B0    6A700185              BAL,RL   GETPRTC           STORE IT & BUMP PARTIC INDEX
       639   02 001B1    20100001 A   %62      AI,XM    1                 BUMP INDEX TO SOURCE
       640   02 001B2    64A001AD              BDR,XT1  %60
       641   02 001B3    D2A200BB 04           LH,XT1   *XMBASE,XM        GET LAST WORD OF CONSTANT
       642   02 001B4    680001A3              B        %30
       643   02 001B5    21D00001 A   %20      CI,TMP3  1                 IS MAIN ITEM PROCESSED
       644   02 001B6    693001BA              BNE      %21               NO
       645   02 001B7    21A00008 A            CV,XT1   ASTFLG            YES, IS ITEM A PREFIX CONTROL
       646   02 001B8    691001C9              BL       %26               NO
       647   02 001B9    680001A6              B        %70               YES, CONTINUE
       648   02 001BA                 %21      RES      0
       649   02 001BA    21A00001 A            CV,XT1   IGNRLST
       650   02 001BB    691001C9              BL       %26               YES, RETURN
       651   02 001BC    683001A6              BE       %70
       652   02 001BD    21A0000A A            CV,XT1   SYNERR            NO, ITEM = SYNTAX ERROR
       653   02 001BE    683001A3              BE       %30               YES
       654   02 001BF    21A00006 A            CV,XT1   BEGINLIST         NO, ITEM = BEGIN LIST
       655   02 001C0    683001A1              BE       %40               YES
       656   02 001C1    21A00007 A            CV,XT1   BEGINEXP          NO, ITEM = BEGIN EXP
       657   02 001C2    683001A1              BE       %40               YES
       658   02 001C3    21A00005 A            CV,XT1   BLANKEXP          NO, ITEM = BLANK OR END-SOMETHING
       659   02 001C4    683001A3              BE       %30               YES, BLANK
       660   02 001C5    692001A6              BG       %70               NOT END-LIST,-EXPR,-SUBSYMBOL
       661   02 001C6    20EFFFFF A   %22      AI,TMP2  -1                DECR NESTING LEVEL
       662   02 001C7    683001A5              BEZ      %24
       663   02 001C8    692001A6              BGZ      %70
       664   02 001C9                 %26      RES      0                 HERE TO RETURN
       665   02 001C9    324000AC 04           LW,XT    SAVEXT            RESTORE XT
       666   02 001CA    D2C200BB 04           LH,XT2   *XMBASE,XM        LOAD HALFWORD AFTER SKIPPED ITEM
       667   02 001CB    4BC001D1              AND,XT2  =ENCITEM            AND TRIM IT TO 16 BITS
       668   02 001CC    E8000065 04           B        *ADV%RTN          RETURN
       669                            *
       670                                     CLOSE    XT1
       671                                     CLOSE    TX1,TX2,XT2
       672                                     CLOSE    TMP1,TMP2,TMP3
       673                                     LOCAL
       674                            *
       675                                     END
             02 001CD    80000000 A
             02 001CE    00004000 A
             02 001CF    00006000 A
             02 001D0    000000FF A
             02 001D1    0000FFFF A
             02 001D2    0001FFFF A
             02 001D3    0000E000 A

    CONTROL SECTION SUMMARY: 01 00000   PT 0     02 001D4   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           ADJKLN1/02 00016         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
           DEFFLD/0C000000          DEFLBLXIT/04 0004C       DEFLOB/00000005          DEFLOCXIT/04 00071
           DESTIN/04 00072          DFNEXIT/04 0004D         DISP#/00000017           DLISTET/DPI
           DLRCS/03 0000A           DLRRS/03 0000C           DLRVAL/03 0000E          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#/00000007            ENDADDR/04 0007D
           ENDBUF/000020FF          ENDDIR/00004007          ENDEXP/00000004          ENDLINE/00000000
           ENDLIST/00000002         ENDORG/03 00030          ENDSBSYM/00000003        ENTEXIT/04 0007E
           EQU#/0000001B            EQUALOP/00000023         ER/0000000F              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         GETCNTRL/02 0017A        GETPRTC/02 00185
           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
           HILIMIT4/02 0017E        HVLENGTH/04 0008A        I:#/00000053             IFFLD/DPI
           IGNRLST/00000001         IN/04 0003E              INBASE/04 0003F          INITORG/03 00000
           INITORG1/03 00009        INTET/58000000           INTSSYM/02 0001E         INTSYM/02 00024
           INTSYM1/02 00029         INTSYM2/02 0002D         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         LITORG/03 00002          LITSRCHXIT/04 00093
           LITTABLE/03 00003        LNGTH1/00000001          LNGTH2/00000002          LNGTH3/00000003
           LO%INT%FUNC/0000003B                              LO%PREFIX%FUNC/0000004F
           LO%VAL%FUNC/00000043                              LOADXWRTN/04 00094       LOBFLD/DPI
           LOC#/00000021            LOCAL#/00000002          LOCALCT/00000009         LOCALCTFLD/DPI
           LOCALDIR/00004002        LOCALFLG/03 00017        LOCALORG/00000009        LOCALORGFLD/00FFFFFF
           LOCALSYM/00006000        LOCALXIT/04 00095        LOCFLD/0001FFFF          LOWD/00000008
           LPTR/04 00041            LPTRFLD/0000FFFF         LPTRLOB/0000001F         LSRCHXIT/04 00096
           LSSYM/0000804F           LSTCT/04 00097           LVAL/04 0003E            LVL/00000003
           LVLSIZE/0000000D         LVLT/00000006            MAIN/04 00098            MAJERRFLD/00FFFFFF
           MAJERRLN/03 00018        MAXCSECT/03 00019        MAXDD/00000001           MAXDDFLD/0007FFFF
           MAXLOCXIT/04 00099       MAXPREF/0000001F         MAXSEV/03 0001A          MINUSOP/00000029
           MOVE/02 00160            MOVE%ITM/02 0018C        MOVESYMXIT/04 0009A      MOVE1/02 0016D
           MOVE5/02 0016A           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        NEXTXW/04 00054          NLITS/03 00005
           NOBYTES/04 0009D         NOLIST/03 0001D          NOWORDS/04 0009E         NSAVES/0000001D
           NUM#/00000049            NUMSSYM/00008049         NXT%ITM/02 00180         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
           PRTC%2/02 000A9          PRTC%3/02 00133          PRTC%4/02 000BF          PRTC%5/02 0012D
           PSECT#/00000023          PSR#/00000012            PSRTRIG/03 00022         PSTRIG/03 00023
           PSTRIGFLD/00000001       PSTRIGLOB/0000001F       PSTYPE/0000001E          PSYS#/00000024
           PT/00000000              PTFLD/00C00000           PTLOB/00000009           PT1%BASE/02 0005C
           PT1%JUMP/02 00176        PT2%JUMP/02 00178        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
           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         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           TEST%STRIP/02 0016F
           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
           %10/02 0005E             %10/02 00192             %100/02 000FF            %110/02 00100
           %120/02 000D9            %130/02 000DC            %140/02 000DE            %141/02 000F2
           %142/02 000F4            %144/02 000F9            %146/02 00102            %148/02 000FD
           %149/02 00106            %1494/02 0012F           %15/02 00199             %150/02 00138
           %151/02 0013C            %152/02 00141            %160/02 00144            %161/02 000FB
           %164/02 00149            %170/02 0014B            %180/02 00136            %184/02 00171
           %20/02 00063             %20/02 001B5             %21/02 001BA             %22/02 00065
           %22/02 001C6             %24/02 001A5             %26/02 001C9             %30/02 0006E
           %30/02 001A3             %32/02 00082             %40/02 00072             %40/02 001A1
           %42/02 00077             %5/02 0018D              %50/02 0007B             %50/02 001AC
           %51/02 000A0             %52/02 0008E             %56/02 00097             %57/02 0009B
           %58/02 0009D             %59/02 000A1             %60/02 000C1             %60/02 001AD
           %62/02 000A5             %62/02 001B1             %64/02 000B7             %65/02 0008C
           %66/02 000BB             %70/02 000D2             %70/02 001A6             %72/02 000BD
           %74/02 000D4             %8/02 0005C              %80/02 000C5             %90/02 000C9
           #ELEM/04 000BD
  *    EXTERNAL DEFINITIONS
           ADJKLINE/02 00000        ADV%ITM/02 0018A         DGPART/02 00000          PARTIC/02 0002E
           XAPDATA/04 00000         XAPD1/03 00000
  *    PRIMARY REFERENCES
           ABORT          DELETEXP       GETPLOC1       LINE%FLDS      LOADXM         LOADXW         SCAN
           SUBVAL
  * NO SECONDARY REFERENCES
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
