*
         ERROR,*  ' C00'
*   S Y S T E M   A P % D G
*        THIS SYSTEM CONTAINS PROCEDURE DEFINITIONS, FIELD
*          DEFINITIONS, SYMBOLIC ASSIGNMENTS, AND STORAGE
*          ASSIGNMENTS FOR THE APDG AND APEND OVERLAYS.
*
*
*  INTRINSIC SYMBOL NUMBERS
*
I:#      SET      0                 INTRINSIC SYMBOL #
*
ISYM     CNAME
         PROC
I:#      SET      I:#+1
LF       EQU      I:#
         PEND
*
COMNT#   EQU      I:#               COMMENT 'DIRECTIVE'
CLOSE#   ISYM     'CLOSE'
LOCAL#   ISYM     'LOCAL'
OPEN#    ISYM     'OPEN'
SYSTEM#  ISYM     'SYSTEM'
PROC#    ISYM     'PROC'
PEND#    ISYM     'PEND'
END#     ISYM     'END'
DATA#    ISYM     'DATA'
ASECT#   ISYM     'ASECT'
SOCW#    ISYM     'SOCW'
ELSE#    ISYM     'ELSE'
FIN#     ISYM     'FIN'
PAGE#    ISYM     'PAGE'
PCC#     ISYM     'PCC'
DEF#     ISYM     'DEF'
REF#     ISYM     'REF'
SREF#    ISYM     'SREF'
PSR#     ISYM     'PSR'
BOUND#   ISYM     'BOUND'
CNAME#   ISYM     'CNAME'
COM#     ISYM     'COM'
CSECT#   ISYM     'CSECT'
DISP#    ISYM     'DISP'
DO#      ISYM     'DO'
DO1#     ISYM     'DO1'
DSECT#   ISYM     'DSECT'
EQU#     ISYM     'EQU'
ERROR#   ISYM     'ERROR'
FNAME#   ISYM     'FNAME'
GEN#     ISYM     'GEN'
GOTO#    ISYM     'GOTO'
LIST#    ISYM     'LIST'
LOC#     ISYM     'LOC'
ORG#     ISYM     'ORG'
PSECT#   ISYM     'PSECT'
PSYS#    ISYM     'PSYS'
RES#     ISYM     'RES'
S:SIN#   ISYM     'S:SIN'
SET#     ISYM     'SET'
SPACE#   ISYM     'SPACE'
TEXT#    ISYM     'TEXT'
TEXTC#   ISYM     'TEXTC'
TITLE#   ISYM     'TITLE'
USECT#   ISYM     'USECT'
HI%DIR   EQU      I:#
*
S:AAD#   ISYM     'S:AAD'
S:C#     ISYM     'S:C'
S:D#     ISYM     'S:D'
S:DPI#   ISYM     'S:DPI'
S:EXT#   ISYM     'S:EXT'
S:FL#    ISYM     'S:FL'
S:FR#    ISYM     'S:FR'
S:FS#    ISYM     'S:FS'
S:FX#    ISYM     'S:FX'
S:INT#   ISYM     'S:INT'
S:LFR#   ISYM     'S:LFR'
S:LIST#  ISYM     'S:LIST'
S:RAD#   ISYM     'S:RAD'
S:SUM#   ISYM     'S:SUM'
*
LO%INT%FUNC       EQU   I:#+1
S:IVAL#  ISYM     'S:IVAL'
%#       ISYM     '%'
%%#      ISYM     '%%'
*
AF#      ISYM     'AF'
AFA#     ISYM     'AFA'
CF#      ISYM     'CF'
LF#      ISYM     'LF'
NAME#    ISYM     'NAME'
*
LO%VAL%FUNC       EQU   I:#+1
BA#      ISYM     'BA'
HA#      ISYM     'HA'
WA#      ISYM     'WA'
DA#      ISYM     'DA'
ABSVAL#  ISYM     'ABSVAL'
CS#      ISYM     'CS'
NUM#     ISYM     'NUM'
S:IFR#   ISYM     'S:IFR'
S:NUMC#  ISYM     'S:NUMC'
S:PT#    ISYM     'S:PT'
S:UFV#   ISYM     'S:UFV'
S:UT#    ISYM     'S:UT'
*
LO%PREFIX%FUNC    EQU   I:#+1
L#       ISYM     'L'
I:#      SET      I:#+1             '=' OPERATOR
HI%VAL%FUNC       EQU   I:#
S:KEYS#  ISYM     'S:KEYS'
SCOR#    ISYM     'SCOR'
TCOR#    ISYM     'TCOR'
HI%INT%FUNC       EQU   I:#
HI%PREFIX%FUNC    EQU   I:#
*
*   FIELDS AND MASKS FOR SYMBOL TABLE ITEMS
*
ADDFLD   EQU      X'1FFFF'          OFFSET IN A SPECIAL ADDRESS
ADDLOB   EQU      31                LOW ORDER BIT OF ADD FIELD
ADFLD    EQU      X'200000'         ADDEND FIELD
ARFLD    EQU      X'3000000'        ADDRESS RESOLUTION FIELD
ARLOB    EQU      7                 LOW BIT OF ADDRESS RESOLUTION FIELD
CCFLD    EQU      X'3000000'        CC FIELD IN SPECIAL CONSTANT
CCLOB    EQU      7                 LOW ORDER BIT OF CC FIELD
COMDFLD  EQU      X'200000'         DUPLICATE COMMAND FIELD
COMDLOB  EQU      10                LOW ORDER BIT OF COMD FIELD
COMTFLD  EQU      X'1C0000'         COMMAND TYPE FIELD
COMTLOB  EQU      13                LOW ORDER BIT OF COMT FIELD
CPTRFLD  EQU      X'7FFF0000'       COMMAND POINTER FIELD
CPTRLOB  EQU      15                LOW ORDER BIT OF CPTR FIELD
CSFLD    EQU      X'3E0000'         CONTROL SECTION IN SPECIAL ADDRESS
CSLOB    EQU      14                LOW ORDER BIT OF CS FIELD
CTYPEFLD EQU      X'3C0000'         CTYPE FIELD OF NON-SPECIALS
CTYPELOB EQU      13                LOW BIT OF CTYPE
DEFFLD   EQU      X'C000000'        DEF FIELD
DEFLOB   EQU      5                 LOW ORDER BIT OF DEF FIELD
DUPFLD   EQU      X'20000000'       DUPLICATE DEFINITION FIELD
DUPLOB   EQU      2                 LOW ORDER BIT OF DUP FIELD
ECSFLD   EQU      X'7FFF'           ECS FIELD
ECSLOB   EQU      31                LOW ORDER BIT OF ECS FIELD
EDNFLD   EQU      X'7FFF'           EXTERNAL DECLARATION NUMBER FIELD
EXTFLD   EQU      X'C00000'         EXTERNAL FIELD
EXTLOB   EQU      9                 LOW ORDER BIT OF EXT FIELD
FCSFLD   EQU      X'1FC00000'       CONTROL SECTION IN A SIMPLE ADDRESS
FCSLOB   EQU      9                 LOW ORDER BIT OF FCS FIELD
LENGTHFLD  EQU    X'7FFF'           LENGTH FIELD
LOBFLD   EQU      X'E0000000'       LOB FIELD
LPTRFLD  EQU      X'FFFF'           LPTR FIELD
LPTRLOB  EQU      31                LOW ORDER BIT OF LPTR FIELD
OFFSETFLD  EQU    X'3FFFFF'         OFFSET FIELD OF NON-SPECIALS
OFFSETLOB EQU     31                LOW ORDER BIT OF OFFSET FIELD
SETFLD   EQU      X'10000000'       SET FIELD
SETLOB   EQU      3                 LOW ORDER BIT OF SET FIELD
SINTFLD  EQU      X'3C00000'        S:SIN INSTRUCTION CLASS FIELD
SINTLOB  EQU      9                 LOW ORDER BIT OF SINT FIELD
SPAFLD   EQU      X'80000000'       SPECIAL ADDRESS FIELD
SPALOB   EQU      0                 LOW ORDER BIT OF SPA FIELD
SPCONFLD EQU      X'40000000'       SPECIAL CONSTANT
SPINTFLD EQU      X'40000000'       SPECIAL INTEGER FIELD
SPINTLOB EQU      1                 LOW ORDER BIT OF SPINT FIELD
STYPEFLD EQU      X'1C0000'         STYPE FIELD OF NON-SPECIALS
STYPELOB EQU      13                LOW ORDER BIT OF STYPE FIELD
TYPEFLD  EQU      X'38000'          TYPE FIELD IN NON-SPECIALS
TYPELOB  EQU      16                LOW ORDER BIT OF TYPE FIELD
VALFLD   EQU      X'3FFFFF'         VAL FIELD IN SPECIAL CONSTANT
*
*   EXT ASSIGNMENTS
*
DEFEXT   EQU      1**(31-EXTLOB)    APPEARED ON A DEF DIRECTIVE
REFEXT   EQU      2**(31-EXTLOB)    APPEARED ON A REF DIRECTIVE
SREFEXT  EQU      3**(31-EXTLOB)    APPEARED ON A SREF DIRECTIVE
REFORSREF  EQU    REFEXT            APPEARED ON A REF OR SREF DIRECTIVE
*
*   EQUATES FOR THE LENGTH FIELD
*
LNGTH1   EQU      1                 VALUE OF 1 FOR LENGTH FIELD
LNGTH2   EQU      2                 VALUE OF 2 FOR LENGTH FIELD
LNGTH3   EQU      3                 VALUE OF 3 FOR LENGTH FIELD
*
*   EQUATES FOR THE DO TABLE
*
DOSWD    EQU      0                 SIZE OF CURRENT DO-TABLE RECORD
DOSLOB   EQU      7                 LOW ORDER BIT OF DOS FIELD
DOPWD    EQU      0                 WORD CONTAINING DOP FIELD
DOPFLD   EQU      X'FFFFFF'         ADDRESS OF PREVIOUS DO RECORD
DOIWD    EQU      1                 NUMBER OF DO ITERATIONS REQUIRED
DOCWD    EQU      1                 CURRENT DO ITERATION COUNT
DOCFLD   EQU      X'FFFF'           CURRENT DO COUNT
DOOWD    EQU      2                 SAMPLE ORIGIN OF DO LOOP
EFLD     EQU      X'80000000'       ELSE-FOUND FLAG.  0=NOT FOUND
EWD      EQU      3                 WORD CONTAINING E FIELD
TXTCTWD  EQU      3                 WORD CONTAINING TXTCT FIELD
TXTCTFLD EQU      X'7FFF0000'       ENC. TEXT RECORD # OF DO LOOP ORIGIN
TXTCTLOB EQU      15                LOW ORDER BIT OF TXTCT FIELD
*
* FREE SPACE LIST
*
FREELLOB EQU      14                LOW BIT OF LENGTH FIELD
FREELFLD EQU      X'FFFE0000'       MASK FOR LENGTH FIELD
FREEAFLD EQU      X'1FFFF'          MASK FOR ADDRESS FIELD
*
*   FIELDS AND MASKS FOR EXPRESSION CONTROL TABLE ITEMS
*
ASTFLD   EQU      X'01000000'       ASTERISK FLAG FIELD
ECTEXPR1 EQU      0                 WORD OFFSET FOR 1ST EXP.
ECTEXPR2 EQU      -1                WORD OFFSET FOR 2ND EXP.
ETFLD    EQU      X'F8000000'       EXPRESSION VALUE TABLE ENTRY TYPE
ETLOB    EQU      4                 LOW ORDER BIT OF ET FIELD
EXPFLD   EQU      X'4000000'        EXPRESSION FLAG FIELD
LOCFLD   EQU      X'1FFFF'          INDEX TO EVT ENTRY
RELOFLD  EQU      X'02000000'       RELOCATION FIELD
*
*  EQUATES FOR CTYPE FIELD
*
SPI      EQU      0**(31-CTYPELOB)  SINGLE PRECISION INTEGER
PKDEC    EQU      1**(31-CTYPELOB)  PACKED DECIMAL (D)
CHSTR    EQU      2**(31-CTYPELOB)  CHARACTER STRING  (C)
FXDEC    EQU      3**(31-CTYPELOB)  FIXED DECIMAL (FX)
FLTSHORT EQU      4**(31-CTYPELOB)  FLOATING SHORT (FS)
FLTLONG  EQU      5**(31-CTYPELOB)  FLOATING LONG (FL)
DPI      EQU      6**(31-CTYPELOB)  DOUBLE PRECISION INTEGER
*
*   EQUATES FOR THE COMT ASSIGNMENTS
*
COM0COMT  EQU     0**(31-COMTLOB)   COM DIRECTIVE(WITH BOUND 4)
COM1COMT  EQU     1**(31-COMTLOB)   COM DIRECTIVE(WITHOUT BOUND 4)
S:SINCOMT EQU     2**(31-COMTLOB)   S:SIN DIRECTIVE
CNAMECOMT EQU     3**(31-COMTLOB)   CNAME DIRECTIVE
*
*   EQUATE FOR THE AR FIELD
*
WDRES    EQU      2**(31-ARLOB)     WORD RESOLUTION
*
*   TYPE ASSIGNMENTS
*
LISTS    EQU      1**(31-TYPELOB)   LIST TYPE
CONSTANT EQU      2**(31-TYPELOB)   CONSTANT TYPE
SYMBOL   EQU      3**(31-TYPELOB)   SYMBOL TYPE
BLANK    EQU      4**(31-TYPELOB)   BLANK TYPE
CMNDNAME EQU      5**(31-TYPELOB)   COMMAND NAME TYPE
FUNCNAME EQU      6**(31-TYPELOB)   FUNCTION NAME TYPE
*
*   STYPE ASSIGNMENTS
*
SIMPADD  EQU      0**(31-STYPELOB)  SIMPLE ADDRESS STYPE
CMPLXSUM EQU      1**(31-STYPELOB)  COMPLEX SUM OF ADDRESSES STYPE
EXTREF   EQU      2**(31-STYPELOB)  EXTERNAL REFERENCE STYPE
LCLFWD   EQU      3**(31-STYPELOB)  LOCAL FORWARD STYPE
LCLFWDHD EQU      4**(31-STYPELOB)  LOCAL FORWARD AND HOLD STYPE
ONEWDADD EQU      5**(31-STYPELOB)  ONE WORD ADDRESS STYPE
3WDSUM   EQU      SYMBOL+CMPLXSUM+3 THREE WORD COMPLEX SUM
*
*   FIELDS AND MASKS FOR CONTROL SECTION TABLE ITEMS
*
CSTBLSIZE  EQU    3                 THREE WORDS PER TABLE ENTRY
CSTFLD   EQU      X'FF000000'       CONTROL SECTION TYPE FIELD
CSTLOB   EQU      7                 LOW ORDER BIT OF CST FIELD
PTFLD    EQU      X'C00000'         PROTECTION TYPE FIELD
PTLOB    EQU      9                 LOW ORDER BIT OF PT FIELD
RSFLD    EQU      X'300000'         ADDRESS RESOLUTION FIELD
RSLOB    EQU      11                LOW ORDER BIT OF RS FIELD
SAVDLRFLD  EQU    X'FFFFF'          SAVED VALUE OF % LOC COUNTER
MAXDDFLD EQU      X'7FFFF'          MAX VALUE OF %% LOCATION COUNTER
DSNUMFLD EQU      X'FFF80000'       DSECT SYMBOL NUMBER FIELD
DSNUMLOB EQU      12                LOW ORDER BIT OF DSNUM FIELD
*
*   OFFSETS FROM CONTROL SECTION TABLE
*
CST      EQU      0                 WORD CONTAINING CST FIELD
PT       EQU      0                 WORD CONTAINING PT FIELD
SAVDLR   EQU      0                 WORD CONTAINING SAVDLR FIELD
DSNUM    EQU      1                 WORD CONTAINING DSNUM FIELD
MAXDD    EQU      1                 WORD CONTAINING MAXDD FIELD
*
*   OFFSETS FROM PROCEDURE LEVEL TABLE
*
PLOC     EQU      0                 WORD CONTAINING PLOC INDEX
EVT      EQU      1                 WORD CONTAINING EVT INDEX
ECT      EQU      2                 WORD CONTAINING ECT INDEX
LBL      EQU      3                 WORD CONTAINING LBL INDEX
CMND     EQU      4                 WORD CONTAINING CMND INDEX
OPRND    EQU      5                 WORD CONTAINING OPRND INDEX
DOCT     EQU      6                 WORD CONTAINING DO COUNT
DO1CT    EQU      7                 WORD CONTAINING DO1 COUNT
SAMP     EQU      8                 WORD CONTAINING SAMP INDEX
LOCALCT  EQU      9                 WORD CONTAINING LOCAL COUNT
LOCALORG EQU      9                 WORD CONTAINING LOCAL ORG INDEX
SYSLVL   EQU      10                WORD CONTAINING SYSTEM NESTING LEVEL
NAMELOC  EQU      11                WORD CONTAINING NAME INDEX
ECTORG   EQU      12                WORD CONTAINING ECT ORIGIN INDEX
*
*   FIELDS FOR NOLIST WORD
*
*   ASSIGNED FIELDS ARE:
*        BIT(S)   SUPRESSES LISTING (IF NON-ZERO) OF
*        0-7      SYSTEMS BEING SKIPPED
*        27       PCC DIRECTIVE CONTROL
*        28       NO 'LO' REQUESTED
*        29       PRE-ENCODED SYSTEMS
*        30       LIST DIRECTIVE CONTROL
*        31       PSYS DIRECTIVE CONTROL
*
LISTFLD   EQU     2                 LIST FIELD
LISTLOB   EQU     30                LOW ORDER BIT OF LIST FIELD
PCCTRIGFLD  EQU   16                PCCTRIG FIELD
PCCTRIGLOB  EQU   27                LOW ORDER BIT OF PCCTRIG FIELD
PSTRIGFLD EQU     1                 PSTRIG FIELD
PSTRIGLOB EQU     31                LOW ORDER BIT OF PSTRIG FIELD
*
*   FIELDS AND MASKS FOR ENCODED TEXT ITEMS
*
CTFLD    EQU      X'1F00'           CONVERSION TYPE FIELD
CTLOB    EQU      23                LOW ORDER BIT OF CT FIELD
ENCVFLD  EQU      X'FF'             ENCODED VALUE FIELD
LFLD     EQU      X'FF'             LENGTH FIELD
SYSTYPEFLD EQU    X'1C00'           SYSTYPE FIELD
SYSTYPELOB EQU    21                LOW ORDER BIT FOR SYSTYPE FIELD
TFLD     EQU      X'E000'           TYPE FIELD
VFLD     EQU      X'1FFF'           VALUE FIELD
ENCITEM  EQU      TFLD+VFLD         MASK FOR ENCODED ITEM
*
*   FIELDS AND MASKS FOR PARTIC
*
IFFLD    EQU      X'80000000'       INTRINSIC FLAG
BUFFFLD  EQU      X'1FFFF'          BUFF FIELD OF PARTIC CONTROL STK
PLVLLOB  EQU      23                PROC LEVEL LOW ORDER BIT
*
*   FIELDS AND MASKS FOR PROCEDURE LEVEL TABLE ITEMS
*
LOCALCTFLD  EQU  X'FF000000'       LOCAL COUNT FIELD
LOCALORGFLD  EQU  X'FFFFFF'         LOCAL ORIGIN FIELD
LVLSIZE  EQU      13                NUMBER OF WORDS IN A PROC LEVEL TBL
PLOCFLD  EQU      X'FFFFFF'         FIELD FOR PLOC INDEX
*
*    EXPRESSION VALUE TABLE ENTRY TYPE
*
ETSHIFT  EQU      27
UGLBLET  EQU      0**ETSHIFT        UNDEFINED GLOBAL ET
SPADDRET EQU      1**ETSHIFT        SPECIAL ADDRESS ET
SPEXTET  EQU      2**ETSHIFT        SPECIAL EXTERNAL ET
ADDRET   EQU      3**ETSHIFT        ADDRESS ET
SUMET    EQU      4**ETSHIFT        SUM ET
EXTET    EQU      5**ETSHIFT        EXTERNAL ET
LCLFWDET EQU      6**ETSHIFT        LOCAL FORWARD ET
LFWDHET  EQU      7**ETSHIFT        LOCAL FORWARD AND HOLD ET
1WDADDET EQU      8**ETSHIFT        ONE WORD ADDRESS ET
SPINTET  EQU      9**ETSHIFT        SPECIAL INTEGER ET
BLANKET  EQU      10**ETSHIFT       BLANK FIELD ET
INTET    EQU      11**ETSHIFT       INTEGER ET
DECET    EQU      12**ETSHIFT       DECIMAL ET
TEXTET   EQU      13**ETSHIFT       TEXT ET
FXET     EQU      14**ETSHIFT       FX ET
FSET     EQU      15**ETSHIFT       FS ET
FLET     EQU      16**ETSHIFT       FL ET
DPIET    EQU      17**ETSHIFT       DPI ET
LISTET   EQU      18**ETSHIFT       LIST ET
FUNCET   EQU      19**ETSHIFT       FUNCTION ET
EXPET    EQU      29**ETSHIFT       EXPRESSION ET
SUBSYMET EQU      30**ETSHIFT       SUBSCRIPTED SYMBOL ET
DLISTET  EQU      31**ETSHIFT       DUMMY LIST ET
*
*   MISCELLANEOUS OFFSETS
*
ELEM     EQU      1                 WORD OFFSET OF # ELEMENTS IN A LIST
STO      EQU      1                 OFFSET FROM COMMAND CONTROL WORD
*
*   EQUATES FOR ENCODED TEXT ITEMS
*
ASTFLG   EQU      X'8'              INDIRECT OPERATOR
BEGINEXP EQU      X'7'              BEGIN EXPRESSION
BEGINLIST   EQU   X'6'              BEGIN LIST
BLANKEXP EQU      5                 BLANK EXPRESSION
ENCLSSYM EQU      X'A000'           LOCAL SUBSCRIPTED SYMBOL
ENCLSYM  EQU      X'6000'           LOCAL SYMBOL
ENCSMINT EQU      X'C000'           SMALL INTEGER (0<=INTEGER<8192)
ENCSSYM  EQU      X'8000'           NON-LOCAL SUBSCRIPTED SYMBOL
ENCSYM   EQU      X'4000'           ENCODED SYMBOL
ENCTYPE1 EQU      X'2000'           ENCODED TYPE FIELD OF 1
ENCTYPE2 EQU      X'4000'           ENCODED TYPE FIELD OF 2
ENC0     EQU      X'C000'           SMALL INTEGER 0
ENC1     EQU      X'C001'           SMALL INTEGER 1
ENDBUF   EQU      X'20FF'           END OF BUFFER
ENDEXP   EQU      4                 END EXPRESSION
ENDLINE  EQU      0                 END OF LINE
ENDLIST  EQU      2                 END LIST
ENDSBSYM EQU      3                 END OF SUBSCRIPTED SYMBOL
IGNRLST  EQU      1                 IGNORE LIST ITEM
LCLSBSYM EQU      X'A000'           LOCAL SUBSCRIPTED SYMBOL
LOCALSYM EQU      X'6000'           LOCAL SYMBOL
MULTINT  EQU      X'E000'           LARGE INTEGER
SBSYM    EQU      X'8000'           NON-LOCAL SUBSCRIPTED SYMBOL
SMINT    EQU      X'C000'           SMALL INTEGER
BLANKITM EQU      X'20001'          BLANK FIELD ITEM
SPINT    EQU      X'C0000000'       SPECIAL INTEGER
ENCHOB   EQU      X'8000'           ENCODED TEXT ITEM HIGH ORDER BIT
TLOB     EQU      18                LOW ORDER BIT OF T FIELD
AFASSYM  EQU      ENCSSYM+AFA#      INTRINSIC FUNCTION AFA
AFASYM   EQU      ENCSYM+AFA#       INTRINSIC SYMBOL AFA
AFSSYM   EQU      ENCSSYM+AF#       INTRINSIC FUNCTION AF
AFSYM    EQU      ENCSYM+AF#        INTRINSIC SYMBOL AF
CFSSYM   EQU      ENCSSYM+CF#       INTRINSIC FUNCTION CF
CFSYM    EQU      ENCSYM+CF#        INTRINSIC SYMBOL CF
CLOSEDIR EQU      ENCSYM+CLOSE#     DIRECTIVE CLOSE
DODIR    EQU      ENCSYM+DO#        DIRECTIVE DO
ELSEDIR  EQU      ENCSYM+ELSE#      DIRECTIVE ELSE
ENC%     EQU      ENCSYM+%#         SYMBOL %
ENC%%    EQU      ENCSYM+%%#        SYMBOL %%
ENCS:IFR EQU      ENCSSYM+S:IFR#    INTRINSIC FUNCTION S:IFR
ENCS:KEYS   EQU   ENCSSYM+S:KEYS#   INTRINSIC FUNCTION S:KEYS
ENCS:NUMC   EQU   ENCSSYM+S:NUMC#   INTRINSIC FUNCTION S:NUMC
ENCS:PT  EQU      ENCSSYM+S:PT#     INTRINSIC FUNCTION S:PT
ENCS:UFV EQU      ENCSSYM+S:UFV#    INTRINSIC FUNCTION S:UFV
ENCS:UT  EQU      ENCSSYM+S:UT#     INTRINSIC FUNCTION S:UT
ENCSCOR  EQU      ENCSSYM+SCOR#     INTRINSIC FUNCTION SCOR
ENCTCOR  EQU      ENCSSYM+TCOR#     INTRINSIC FUNCTION TCOR
ENDDIR   EQU      ENCSYM+END#       DIRECTIVE END
EQUALOP  EQU      35                =
FINDIR   EQU      ENCSYM+FIN#       DIRECTIVE FIN
LESSOP   EQU      40                <
LFSSYM   EQU      ENCSSYM+LF#       INTRINSIC FUNCTION LF
LFSYM    EQU      ENCSYM+LF#        SYMBOL LF
LOCALDIR EQU      ENCSYM+LOCAL#     DIRECTIVE LOCAL
LSSYM    EQU      ENCSSYM+L#        INTRINSIC FUNCTION L
MINUSOP  EQU      41                -
NAMESSYM EQU      ENCSSYM+NAME#     INTRINSIC FUNCTION NAME
NAMESYM  EQU      ENCSYM+NAME#      INTRINSIC SYMBOL NAME
NUMSSYM  EQU      ENCSSYM+NUM#      INTRINSIC FUNCTION NUM
OPENDIR  EQU      ENCSYM+OPEN#      DIRECTIVE OPEN
PENDDIR  EQU      ENCSYM+PEND#      DIRECTIVE PEND
PLUSOP   EQU      42                +
PROCDIR  EQU      ENCSYM+PROC#      DIRECTIVE PROC
S:AADSYM EQU      ENCSYM+S:AAD#     SYMBOL S:AAD
S:CSYM   EQU      ENCSYM+S:C#       SYMBOL S:C
S:DPISYM EQU      ENCSYM+S:DPI#     SYMBOL S:DPI
S:DSYM   EQU      ENCSYM+S:D#       SYMBOL S:D
S:EXTSYM EQU      ENCSYM+S:EXT#     SYMBOL S:EXT
S:FLSYM  EQU      ENCSYM+S:FL#      SYMBOL S:FL
S:FRSYM  EQU      ENCSYM+S:FR#      SYMBOL S:FR
S:FSSYM  EQU      ENCSYM+S:FS#      SYMBOL S:FS
S:FXSYM  EQU      ENCSYM+S:FX#      SYMBOL S:FX
S:INTSYM EQU      ENCSYM+S:INT#     SYMBOL S:INT
S:LFRSYM EQU      ENCSYM+S:LFR#     SYMBOL S:LFR
S:LISTSYM   EQU   ENCSYM+S:LIST#    SYMBOL S:LIST
S:RADSYM EQU      ENCSYM+S:RAD#     SYMBOL S:RAD
S:SUMSYM EQU      ENCSYM+S:SUM#     SYMBOL S:SUM
SYNERR   EQU      X'A'              SYNTAX ERROR
SYSTEMDIR   EQU   ENCSYM+SYSTEM#    DIRECTIVE SYSTEM
TRUNERR  EQU      X'9'              TRUNCATION ERROR
*
*    GENERAL WORD FIELDS
*
BYTE2FLD EQU      X'FF00'           BYTE 2 OF WORD
BYTE3FLD EQU      X'FF'             BYTE 3 OF WORD
BYTE2LOB EQU      23                BYTE 2 LOW ORDER BIT
BYTE3LOB EQU      31                BYTE 3 LOW ORDER BIT
DSTYPE   EQU      9                 DSECT TYPE
CSTYPE   EQU      X'C'              CSECT TYPE
PSTYPE   EQU      X'1E'             PSECT TYPE
MAXPREF  EQU      31                MAXIMUM NUMBER OF PROC REF LEVELS
WDRS     EQU      2                 WORD RESOLUTION RIGHT JUSTIFIED
PARTICBASE  EQU   X'80000000'       PARTIC BASE CODE
UNDITM   EQU      SPAFLD+SPINTFLD   UNDEFINED ITEM
SYMTBASE EQU      X'40000000'       SYMT BASE CODE
*
*   EQUATES FOR SYMBOLIC DEBUG ITEMS
SDTLOB   EQU      28                LOW BIT OF SD TYPE FIELD
SDHEXC   EQU      6**(31-SDTLOB)    SD TYPE HEXADECIMAL
SDTEXTC  EQU      7**(31-SDTLOB)    SD TYPE EBCDIC TEXT
SDINSTC  EQU      0**(31-SDTLOB)    SD TYPE INSTRUCTION
*
*   EQUATES FOR ABORT
*
ABORT0   EQU      0
ABORT1   EQU      1
ABORT2   EQU      2
*                                                                     *D-AP%DG
*   EQUATES FOR VARIOUS INTERNAL DATA ITEMS                           *D-AP%DG
*                                                                     *D-AP%DG
MAJERRFLD  EQU    X'00FFFFFF'       LINE # PORTION OF MAJERRLN        *D-AP%DG
*
* REGISTERS
*
AR       EQU      0                 ABORT REGISTER
XS       EQU     1                  WORD ADDRESS OF THE NEXT ECT ENTRY
XM       EQU      1                  HW INDEX TO NEXT ENCODED TEXT ITEM
XW       EQU      2                 HW ADDRESS OF NEXT ENCODED TEXT ITEM
LVL      EQU      3                 WORD ADDRESS OF THE CURRENT
*                                   PROCEDURE LEVEL TABLE RECORD
XT       EQU      4                 TEMP (EVEN)
XT1      EQU      XT+1              TEMP (ODD)
XT2      EQU      XT+2              TEMP
XT3      EQU      XT+3              TEMP
LBX      EQU      6                 INDEX TO LSTBF IN EDIT ROUTINES
XR       EQU      6                  INDEX TO PARTIC BUFFER
RL       EQU      7                 SUBROUTINE LINK REGISTER
IOADD    EQU      8                 I/O ADDRESS REG.
TR0      EQU      8                 TEMP REGISTER (EVEN)
TR1      EQU      9                 TEMP REGISTER (ODD)
IOSIZE   EQU      9                 I/O SIZE
IORL     EQU      10                I/O RETURN LINK
T1       EQU      11                TEMP IN PRINT
T2       EQU      12                TEMP IN DO
T3       EQU      13                TEMP IN DO
NBYTES   EQU      IOADD
R8       EQU      8                 TEMP IN PRINT
R9      EQU      9
EC       EQU      14                ERR ROUTINE ERROR CODE
ER       EQU      15                ERR ROUTINE LINK REGISTER
CT       EQU      EC
LVLT     EQU      XT2               WORD ADDRESS OF PROC LEVEL TABLE
TMP      EQU      XT2
NXTL     EQU      XT                WORD ADDRESS OF PROC LEVEL TABLE
LOWD     EQU      R8                SMALLEST DELTA IN FINDSPC
LARGR    EQU      10                TEMP FOR LARG IN FINDSPC
CHCT     EQU      XS                TEMP IN S:UT & S:PT
*
*   MISCELLANEOUS
*
SPINT%ET EQU      X'48000000'       SPECIAL INTEGER ENTRY TYPE
SPIMASK  EQU      SPI+CONSTANT+2    SINGLE PRECISION INTEGER MASK
DPIMASK  EQU      DPI+CONSTANT+2    DOUBLE PRECISION INTEGER MASK
         PAGE
*
*   STORAGE
*
XAPD1    DSECT    0                 LOCAL DATA AREA ONE
***********************************************************************
INITORG  RES      0                 ORIGIN OF VARIABLES TO CLEAR FOR
*                                     DEFINITION PASS
DECLRNUM RES      1                 NUMBER OF REF AND SREF NAMES
LITCS    RES      1                 CONTROL SECTION FOR LITERALS
LITORG   RES      1                 ORIGIN FOR LITERAL GENERATION
LITTABLE RES      1                 OFFSET TO FIRST LITERAL TABLE ENTRY
NAMENUM  RES      1                 1 IF MORE THAN 255 NAME NUMBERS
NLITS    RES      1                 NUMBER OF ENTRIES IN LITERAL TABLE
PASS     RES      1                 0 IN DEF PASS ; 1 IN GEN PASS
SOCW%FLG RES      1                 1 = DEF PASS ACCEPTED SOCW DIR
SOCW2LAT RES      1                 NZ = SOCW CANNOT BE ACCEPTED
************************************************************************
INITORG1 RES      0                 ORIGIN OF VARIABLES TO CLEAR FOR
*                                     GENERATION PASS
DATAGEN  RES      1                 FLAG FOR CONTROL SECTION GENERATION
DLRCS    RES      2                 CONTROL SECTION OF %
DDLRCS   EQU      DLRCS+1           CONTROL SECTION OF %%
DLRRS    RES      2                 RESOLUTION OF %
DDLRRS   EQU      DLRRS+1           RESOLUTION OF %%
DLRVAL   RES      2                 VALUE OF %
DDLRVAL  EQU      DLRVAL+1          VALUE OF %%
DOCOUNT  RES      1                 DO LEVEL FOR SKIPPING LINES
DOLOC    RES      1                 INDEX TO NEXT DO TABLE RECORD
ELSEFLG  EQU      DOCOUNT           FLAG FOR ELSE/FIN DIRECTIVE
ERRTRIG  RES      1                 NUMBER OF ERRORS IN A LINE
FINDSPCXIT  RES   1                 RETURN ADDRESS FOR FINDSPC/FINDLSPC
FWDNUM   RES      1                 LOCAL FORWARD NUMBER
LASTCS   RES      1                 CONTROL SECTION OF LAST LOAD ORIGIN
LASTVAL  RES      1                 LAST LOAD ORIGIN
LOCALFLG RES      1                 FOR 'LOCAL' STATEMENT CONTINUATION
MAJERRLN RES      1                 MAJOR PART OF LAST ERROR LINE
MAXCSECT RES      1                 NUMBER OF CONTROL SECTIONS OPEN
MAXSEV   RES      1                 MAXIMUM ERROR SEVERITY
NAMELINK RES      1                 OFFSET TO CNAME POINTER
NERRS    RES      1                 TOTAL NUMBER OF ERROR LINES
NOLIST   RES      1                 ZERO MEANS LINE CAN BE LISTED
PCCTRIG  RES      1                 0-LIST PRINT DIRECTIVES; 1-DONT LIST
PROCCOUNT RES     1                 SYSTEM/END NESTING LEVEL
PROCLV   RES      1                 PROCEDURE DEFINITION LEVEL
PROCREF  RES      1                 ZERO WHEN ON SOURCE LEVEL
PSRTRIG  RES      1                 0-LIST SKIPPED RECORDS; 1-DONT LIST
PSTRIG   RES      1                 0-LIST SYSTEM FILES; 1-DONT LIST
SF       RES      1                 NON-ZERO TO PRINT A SOURCE LINE
SKIPTRIG RES      1                 NON-ZERO WHEN A LINE IS SKIPPED
SMPRCD   RES      1                 HIGHEST X1 RECORD INPUT (FOR DO)
SMPWD    RES      1                 XW CORRESPONDING TO SMPRCD (FOR DO)
SOURCEONLY  RES   1                 NZ = SUPRESS NON-SOURCE LINE PRINT
SOURCEX  RES      1                 BYTE INDEX TO SOURCEBUF
STORESAMP RES     1                 LOCATION TO STORE A SAMPLE LINE
SUBERRLN RES      1                 SUB-LINE PART OF LAST ERROR LINE
SYSCOUNT RES      1                 LEVEL OF SYSTEM DIRECTIVE
TCORFLG  RES      1                 NON-ZERO DURING TCOR OR DISP
TEXTCT   RES      1                 CURRENT ENCODED TEXT RECORD
TITLENUM RES      1                 NUMBER OF TITLE DIRECTIVES
ENDORG   RES      0                 END OF VARIABLES TO CLEAR
************************************************************************
BOCT     RES      1                 BYTE COUNT FOR BO BUFFER
BOMAX    RES      1                 MAX # ACTIVE BYTES / BINARY RECORD
CSBASE   RES      1                 DECLARATION NUMBER OF CS NUMBER ONE
CS0LOC   RES      1                 ADDRESS OF CONTROL SECTION ZERO
CS16LOC  RES      1                 ADDRESS OF CONTROL SECTION 16
KLINE    RES      1                 BASE ADDRESS OF MISC DYNAMIC TABLES
SDTT     RES      1                 BASE ADDRESS OF SD TYPE-TABLE
SYMT     RES      1                 BASE ADDRESS OF SYMBOL TABLES
1STDEF   RES      1                 SYMBOL NUMBER OF 1ST DEF
         PAGE
XAPDATA  DSECT    0                 LOCAL DATA AREA TWO
PATCH    RES      32                ***** PATCH AREA *****
BOBUF    RES      30                BINARY OUTPUT BUFFER
         RES      ABSVAL(%)&1       BOUND 8 WITHOUT GENERATING ZEROS
LVAL     RES      4                 LEFT OPERAND VALUE
LPTR     EQU      LVAL+3            POINTER TO LEFT OPERAND
RVAL     RES      4                 RIGHT OPERAND VALUE
RPTR     EQU      RVAL+3            POINTER TO RIGHT OPERAND
TEMP     RES      2                 TWO WORD TEMP AREA
TEMP1    EQU      TEMP+1
************************************************************************
SAVEORG  RES      0                 ORIGIN OF VARIABLES SAVED
*                                     DURING FUNCTION PROCESSING
         RES      ABSVAL(%)&1       BOUND 8 WITH NOTHING GENERATED
CMNDCW   RES      2                 CONTROL WORD FOR COMMANDS
CMNDLSN  EQU      CMNDCW+1          COMMAND'S LABEL SYMBOL NUMBER
CNTRLSTK EQU      CMNDCW            PARTIC CONTROL STACK POINTER
ECTSAVE  EQU      CMNDCW+1          SAVE ECT VALUE DURING PARTIC
AFA%FLG  RES      1                 AFA FLAG DURING PARTIC
ERRSEV   EQU      AFA%FLG           TEMP IN ERROR FOR SEVERITY EXPRES.
ARGSAVE  EQU      AFA%FLG           ARG SAVED HERE DURING DEFINE
CMNDLIST RES      1                 0 IF NO COMMAND FIELD LIST
DEFLBLXIT RES     1                 RETURN ADDRESS FROM DEFINE LABEL
PARTICRTN  EQU    DEFLBLXIT         RETURN ADDRESS FOR PARTIC
DFNEXIT  RES      1                 RETURN ADDRESS FOR DEFINE
DO1LBL   RES      1                 PTR TO LABEL OF LINE AFTER DO1
EVEXPXIT RES      1                 RETURN ADDRESS FOR EVAL1EXP
SINSUBXIT  EQU    EVEXPXIT          RETURN ADDRESS FOR SINSUB
E1INTXIT RES      1                 RETURN ADDRESS FOR EVAL1INT
EVALPTXIT  EQU    E1INTXIT          RETURN ADDRESS FOR EVALPT
EVALARXIT  EQU    E1INTXIT          RETURN ADDRESS FOR EVALAR
LISTXIT    EQU    E1INTXIT          RETURN ADDRESS FOR LISTSUB
FLDCNT   RES      1                 NUMBER OF FIELD SIZE ENTRIES
FLDPTR   RES      1                 POINTER TO FIELD  SIZE ENTRIES
GENCOMXIT  RES    1                 RETURN ADDRESS FOR GENORCOM
ORGLOCXIT  EQU    GENCOMXIT         RETURN ADDRESS FOR ORGORLOC
NEXTXW   RES      1                 SAVED XW FOR FNCTNS
OPRNDORG RES      1                 SAVED OPERAND FIELD ORG FOR FNCTNS
PPLVL    RES      1                 PARTIC NESTING LEVEL
SBLBLSYM EQU      PPLVL             SUBSCRIPTED LABEL SYMBOL IN DEFINE
SAVEXR   RES      1                 SAVE XR DURING PARTIC
SAVEXW   RES      1                 XW SAVE WORD
SCANEXIT RES      8                 RETURN ADDRESS FOR SCAN
DD%TYPE  EQU      SCANEXIT+7        ITEM TYPE
LFWDFLG  EQU      SCANEXIT+4        LOCAL FORWARD FLAG FOR SCAN
LITFLAG  EQU      SCANEXIT+5        LITERAL FLAG
SCANXS   EQU      SCANEXIT+6        XS SAVED HERE BY SCAN
SCARG    EQU      SCANEXIT+3        ARG PROCESSED FLAG FOR SCAN
SCLVL    EQU      SCANEXIT+2        SCAN LEVEL
1ARG     EQU      SCANEXIT+1        EVAL 1 ARG FLAG FOR SCAN
TEMPO    RES      1                 TEMP FOR OPEN ROUTINES
ASTRIG   EQU      TEMPO             TEMP IN ERROR FOR COMMENT FLAG
CSNAME   EQU      TEMPO             LABEL SYMBOL NUMBER FOR DSECT
TXTFLG   RES      1                 FLAG FOR TEXTGEN PROCESSING
CS       EQU      TXTFLG            CONTROL SECTION TYPE
SETVALUE EQU      TXTFLG            VALUE FOR SET FIELD
VALCNT   RES      1                 NUMBER OF VALUE ENTRIES
VALPTR   RES      1                 POINTER TO VALUE ENTRIES
NSAVES   EQU      %-SAVEORG         NUMBER OF SAVED VARIABLES
*                                     FOR FUNCTION PROCESSING
************************************************************************
ADV%RTN  RES      1                 RETURN LINK FOR ADV%ITM
ARG      RES      1                 ADDRESS OF AN ARGUMENT
ASVCNT   RES      1                 ADD/SUBTRACT VALUE COUNT
BASE     RES      1                 ADDRESS OF LOCAL TABLE BEING MOVED
BNDEXIT  RES      1                 RETURN ADDRESS FOR BOUNDN/BOUND4
BLDPLTXIT  RES    1                 RETURN ADDRESS FOR BLDPLT
CODE     RES      1                 TEMP FOR ADDRESS CLASS CODE  (BCD)
DDASV    RES      1                 ADD/SUBTRACT VALUE DESIGNATOR
DDCS     RES      1                 CONTROL SECTION OF DATA ITEM
DDNUM    RES      1                 DECLARATION NUMBER DURING GENERATE
DDREL    RES      1                 RELOCATION FLAG
DDRS     RES      1                 RESOLUTION DURING GENERATE
DEFLOCXIT RES     1                 RETURN ADDRESS FOR DEFLOC
DESTIN   RES      1                 DESTINATION ADDRESS IN DEFINE
DOSKIPXIT  RES    1                 RETURN ADDRESS FOR DOSKIP
DPIFLAG   RES     1                 1 OR 2 OPERANDS ARE DPI
ECTHW    RES      1                 TEMP IN SAMPLIN
EDITDXIT RES      1                 EXIT FROM EDITDLR & EDITDDLR
EDITXIT  RES      6                 RETURN ADDRESS FOR EDIT
ACONVAL  EQU      EDITXIT+1         CONSTANT VALUE OUTPUT BY ACON
HEXVAL   EQU      ACONVAL+1         FOUR WORD ACCUMULATOR
ENDADDR  RES      1                 ADDRESS ASSIGNED TO END LABEL
ENTEXIT  RES      1                 RETURN ADDRESS FOR ENTER1
EXPR%DEF RES      1                 DEF FIELD FOR AN EXPRESSION
FLDPTRBSE  RES    1                 BASE ADDRESS FOR FLDPTR IN GENERATE
FLDVAL   RES      4                 4 WORD AREA FOR FIELD VALUE
FLENGTH  RES      1                 LENGTH OF VALUE IN FLDVAL
FND      RES      1                 POINTER TO SYMBOL TABLE ENTRY
FREELIST RES      1                 ADDRESS OF THREADED FREE SPACE LIST
GENEXIT  RES      1                 RETURN ADDRESS FOR GENERATE
GOTOARG  RES      1                 ARGUMENT FOR GOTO SEARCH
HVLENGTH RES      1                 LENGTH OF ITEM ACCUMULATED IN HEXVAL
LABELLOC RES      1                 ENCODED LABEL ON CURRENT LINE
LARG     RES      1                 LENGTH OF ITEM POINTED TO BY ARG
LAST     RES      1                 ADDRESS OF LOCAL TABLE ORIGIN
LCLDLXIT RES      1                 RETURN ADDRESS FOR LCLDLTE
PRINTXIT EQU      LCLDLXIT          EXIT FROM PRINT ROUTINE
LFND     RES      1                 LENGTH OF ITEM POINTED TO BY END
LFSUMSZ  RES      1                 SIZE OF LEFT COMPLEX SUM
LINENUMXIT  RES   1                 RETURN ADDRESS FROM LINENUM
LINEXIT  EQU      LINENUMXIT        RETURN ADDRESS FOR LINE%FLDS
LINEORG  RES      1                 TEMP IN SAMPLIN FOR ORIGIN OF LINE
LITSRCHXIT RES    1                 RETURN ADDRESS FOR LITSRCH
LOADXWRTN  RES    1                 RETURN ADDRESS FOR LOADXW
LOCALXIT RES      1                 RETURN ADDRESS FOR LOCALSTA
LSRCHXIT RES      1                 RETURN ADDRESS FROM LSRCH
LSTCT    RES      1                 NUMBER OF ENTRIES IN ECT THIS SCAN
LISTCT   EQU      LSTCT             NUMBER OF EXPRESSIONS FOUND BY SCAN
IN       EQU      LVAL              TEMP IN S:UT & S:PT
INBASE   EQU      IN+1              TEMP IN S:UT & S:PT
OUTBASE  EQU      IN+2              TEMP IN S:UT & S:PT
MAIN     RES      1                 POINTER TO FIXED SYMBOL TABLE ENTRY
MAXLOCXIT  RES    1                 RETURN ADDRESS FOR MAXLOC
PCCXIT   EQU      MAXLOCXIT         RETURN ADDRESS FROM PCCSUB
SYSEXIT  EQU      MAXLOCXIT         RETURN ADDRESS FROM SYSEND, SYSSUB
MOVESYMXIT  RES   1                 RETURN ADDRESS FOR MOVESYMITEM
NCDITEM  RES      1                 ENCODED ITEM SAVED FOR DATA
NEWCSXIT RES      1                 RETURN ADDRESS FROM NEWCSECT
NOBYTES  RES      1                 NO. BYTES TO GENERATE
NOWORDS  RES      1                 NUMBER OF WORDS IN FLDVAL
NXTLOCAL RES      1                 ADDRESS OF NEXT AVAILABLE ENTRY IN
*                                     THE LOCAL SYMBOL TABLE
NXTSYMT  RES      1                 ADDRESS OF NEXT AVAILABLE ENTRY IN
*                                     THE SYMBOL TABLE.
OFFSET   RES      1
OLDCSXIT RES      1                 RETURN ADDRESS FROM OLDCSECT
OPER     RES      1                 CURRENT OPERATOR
ORIGXIT  RES      1                 RETURN ADDRESS FOR ORIGIN
PASSDEF  RES      1                 DEF VALUE FOR CURRENT PASS
PLVL     RES      1                 PROC. LEVEL OF LOCAL SYMBOL
PROCLOC  RES      1                 TEMP IN PROC AND CNAME
PROTYPE  RES      1                 CONTROL SECTION PROTECTION TYPE
REFADD   RES      1                 ADDRESS OF COMMAND ENTRY BEING REF'D
RTSUMSZ  RES      1                 SIZE OF RIGHT COMPLEX SUM
SAVELVL  RES      1                 SAVE LVL DURING PARTIC
SAVEXT   RES      1                 SAVE REGISTER XT
SCPPRTN  RES      1                 RETURN LINK FOR SCPUSH,SCPULL
SCRSRTN  RES      1                 RETURN LINK FOR SCRS
SD%TYPE  RES      1                 TYPE CODE FOR SD ITEM
SKGLF1XIT  RES    1                 RETURN ADDRESS FOR SKIPGETLF1
SOURCE   RES      1                 NON-ZERO MEANS PRINT A SOURCE LINE
SPITEMP  RES      1                 SPEC. INT. VALUE SAVED FOR STACKSPI
SUB#     RES      1                 TEMP FOR SUBSCRIPT NUMBER
SUBLOC   RES      1                 ECT ADDRESS OF NEXT SUBSCRIPT
SUM%FLAG RES      1                 OPERATOR OS ADDR OR SUM
TEXTEXIT RES      1                 RETURN ADDRESS FOR TEXTGEN
TOTALCT  RES      1                 TOTAL COUNT OF CHARS IN A STRING
TX1      RES      1                 TEMP (EDIT)
TX2      RES      1                 TEMP (EDIT)
XWBASE   RES      1                 BASE ADDRESS OF ENCODED TEXT
XMBASE   RES      1                 XM BASE
1ELEMXIT RES      1                 RETURN ADDRESS FOR 1ELEMENT%TEST
GLBLAXIT EQU      1ELEMXIT          RETURN ADDRESS FOR GLBLADD
#ELEM    RES      1                 NUMBER OF LIST ELEMENTS
NCLEARS  EQU      ENDORG-INITORG
NCLEARS1 EQU      ENDORG-INITORG1
***********************************************************************
         END

