* 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