. THIS SECTION RESERVES THE TABLES WHICH ARE USED IN PHASE 1 AND 2 . PREQ P$IRCB . COMMON BANK DEFINITIONS $(10) . INBUF* RES 0 . $(6). /N12VRZ/ ARFL4* +0 ARSUM* +0 . CONTAINS INTERMEDIATE SUMS OF EXPRESSIONS IN SUBST'S MAC+- ARSUM1* +0 36 BIT SUM OF MACRO EXPRESSION ARRAYN* +0 ARGTBP* +0 ARRNME* +0 NAME OF ARRAY IN MACRO CTSLNB* +0 CTS LINE NUMBER MAUNQ* +0 NEXT UNIQUE IDENTIFIER MCLCID* +0 OUMBER OF DESIRE LOCAL LABEL MCRCLV* -18 . LEVEL OF DELTA RECURSION MCLIDN* +1,1 NUMBER OFLOCAL IDENTIFIERS MCLVOU* +0 MACRO LEVELS TO GO OUT FOR RECURSIVE DELTAS MCFLG1* +0 MIXED FLAGS FOR MACRO GEICFL* +0 FLAG TO NOT GET CHARACTER BEYOND COMMA GXSTPS* +0 STARTING POSISTION FOR X SUBSTITUTION MCDELX* +0 SCNOF* +0 MACRO LEVLE OFFSET FOR SCANNING MCQNT* +0 INDEX INTO MQTB WHICH CONTAINS SCAN POINTER MCNT* +0 CONTAINS NUMBER OF CHARACTERS IN CURRENT STRIG GENNO* +0 NUMBER OUTSTANDING GEN STATEMENTS SCNAR* +0 ARGUMENT NUMBER USED IN N1SCAN MALSTA* +0 NONZERO WHILE RECONSTRUCTING STATEMENT SCNEQF* +0 NON ZERO WHEN SCANNING FOR LENGTH MACDLF* +0 DELTA LOOKAHEAD FLAG MCNLDI* +0 NUMBER OF IDENTIFIER IN MACRO NAME SCANSB* +0 FLAG FOR SCANNING SUBFIELDS SUBLCN* +0 SET NON ZERO TO SUPPRESS SKIPPING BALNKS FOR LOCAL NAMES MCLBZ* +9000 . LABEL RENAME STARTING NUMBER ARFL* +0 FLAG USED TO ARY CONTROL IN GENERATE STATEMENT ARFL1* +0 FLAG USED TO VARY CONTROL IN GENERATE STATEMENT ARFL2* +0 FLAGS USED TO VARY CONTROL IN GENERATE STATEMENT MACIX* . MACNO* +0 CONTAINS CURRENT MACRO LEVEL SVCPY* +0 SAVES FCPY AREFI* +0 AREFA INDEX CALM* +0 COMMA FLAG CB* +0 INDEX FOR LABCB COMPF1* +0 INTERNAL FLAG IN N1COM COMSZF* +0 FLAG FOR COMPILER SIZE OPTION DEFT* +0 DEFINE FUNCTION TAG DELAB* +0 DELETE STATEMENT TARGET LABEL DELFLG* +0 DELETE STATEMENT FLAG DL* +0 DO LEVEL DLAB* +0 LABEL REF IN DO FOR 'DTAB' DOIV* +0 FLAG FOR SCANNING DO STATEMENT DTAHLF* +0 DATA SCAN FLAG DUMIND* +0 DUMMY IND VARIABLE ITEM DUMVAR* +020000,0 EOF* +0 EOF OF STATEMENT FLAG ENTF* +0 ENTF1* +0 FMPX* +0 EXTC1* +0 HOLDS SYM REFERENCES FOR EXTERNAL EQTFLG* +0 SET NON ZERO TO ALLOW SPECIFIC FORMS IN SUBSCRIPTS ERRPAR* +0 ERROR PARAMETER EXTDUP* +0 . NON ZERO TO SUPPRESS DUPLICAL EXTERNAL MESSAGES FC4* +0 DO BEGINS RIGHT AFTER OUTER DO FD4* +0 DO ENDS RIGHT BEFORE OUTER DO FDASC* +0 . FIELDATA/ASCII INDICATOR FOR SIR$ LINES FDASCN* L,H1 A0,ASCFDASC$,A0 . INSTRUCTION TO CONTROL CONVERSION TO AS FDASEX* LIJ B11,BGETSR$ . EXECUTE SWITCH FOR GETSR$/GETAS$ FDASQT* +0 . NON ZERO IF CHARACTER STRINGS ARE ASCII FEB* +0 NON ZERO IF STATEMETN CONTAINS '=' FCPEND* +0 INCLUDE END IN COL 7 FCPLST* +0 ZERO IF LISTING OF COPIED LINES SHOULD BE SKIPPED FEND* +0 END OF PHASE 1 FEOS* +0 END OF STATEMENT FF5* +0 BEGIN END DO FUNCTION REF FFS* +0 FIRST STATEMENT FLAG FIMP* +0 IMPLIED MULTIPLICATION FLAG FLF* +0 LOGICAL IF FLAG FLG* +0 LOCAL GLOBAL FLAG FMP* +0 MAIN PROGRAM FLAG FILUN* +0 . FILE NUMBER FOR MACRO FILE/WRITE FNA* +0 NORMAL-ABNORMAL FLAG (LOCAL) FNAG* +0 NORMAL-ABNORMAL FLAG (GLOBAL) FOCT* +0 OCTAL CONSTANT FLAG FPAR* +0 IF ZERO GET COMPLEX CONSTANTS FSCLN* +0 FSCLNG* +0 GLOBAL SEMI-COLON FLAG FRD* +0 RANGE OF DO FRMFLG* +0 . NON ZERO WHILE SCANNING FORMATS FXL* +0 EXECUTABLE STATEMENT FLAG GA18* +0 'DOPAR ' ALSO IN N1LST GNSFL* +0 . NON ZERO WHEN FOUND BY GNS GTSYMA* +0 GXDMDL* +0 . DUMP DELTA EXPRESIONS IF ZERO GXDMPS* +0 . TEMPS FOR CHARACTER DUMP GXX* +0 CHARACTER RETURNED BY GX HCTYP* +0 . IF NON ZERO SPECIAL FORMS OF HOLL. CONST HMCQNT* + 0 . SAVE OF MQCNT IN N1HOL IFDEF* +0 IF NON ZERO DEFINITION POINT FOR EACH VARIABLE IFAST* +0 . CONTAINS TERMINATION CHARACTER FOR IF IFDEF2* +0 FLAG FOR SPECIAL DEF POINT IFLSEZ* +0 . . NON ZERO WHEN IN IFELSE LIJNAM* +0 . NAME OF IMMEDIATE BANK NAME FOR ARG STAT LIJSYM* +0 . SYM POINTER OF IMMEDIATE BANK NAME LIBSYM* +0 . SYM POINTER OF IMMEDIATE BIAS NAME LIBNAM* +0 . NAME OF IMMEDIATE BIAS FOR ARG STATEMENT INCB8S* RES 1 . SAVES B8 BETWEEN GETIN CALLS. EXEC 8 INCEND* +0 NONZERO IF INCLUDE END RECEIVED. EXEC 8 INCEOF* +0 SAVE FOR EOF. EXEC 8 INCLVL* -1 . CURRENT INCLUDE / MAC LEVEL - 1. EXEC 8 INCTYP* +0 BITS FOR STACKING MACRO / INCLUDE MODE. EXEC 8 KK* +0 NO OF LINES IN PRESENT STATEMENT LIST* +0 LIST SCAN FLAG (SLIS) LISTSQ* +0 SEQUENCE NUMBER AT BEGINNING OF LIST LISTST* +0 INLIST - OUTLIST FLAG LOAR* +0 LOGICAL ARITHMETIC FLAG LREFI* +0 LREF INDEX LREFIP* +LREFI . ADDR OF LREF INDEX IN USE. SHORT LREFIX* -2,LREF+MLREF-2 . LREF STACK AREA INDEX. SHORT LRFOFL* +0 . NONZERO IF LREF HAS OVERFLOWED. SHORT LRFORG* +2,LREF BOTTOM OF CURRENT STATIC AREA IN LREF. SHORT LRSTKL* +0 . NUMBER OF REFERENCE ITEMS IN CURRENT LREF LEVEL. SHORT LSAB5* +0 LSELSZ* +0 LSLF* +0 LSLF=1 LAST STATEMENT LOGICAL IF LSSV* +0 NAME OF LAST SUBSCRIPTED VARIABLE LSSVL* +0 LOC OF LAST SUBSCRIPTED VARIALE MCENT* +250 . MAXIMUM NO. OF MACRO CALLS MACDSV* +0 SAVE AREA FOR ZERO LEVEL TFDA$. EXEC 8 MACEND* +0 NONZERO IF MACRO END RECEIVED. EXEC 8 MASBNU* +0 NUMBER OF LAST SUBSTITUION GENER MCDEAN* +0 MACRO BIAS FOR SUBSTITUION STATEMENT GENER MAFLST* +0 . S6 NONZERO FORCES LIST OF GENERATED ON CURR STMT. GENER MCLBLX* +1,0 INDEX TO LOCAL LABEL TABEL MAPAR* +0 SAVE NAME OF MACRO FO DIAGNOSTICS MAUPFX* +'F$' PREFIX FOR UNIQUE NAMES IN T3. MCOUF* +0 EXEC 8 OVERFLOW CELL MCDVPT* +0 . HEAD LINK FOR DELTA V'S MINUS* +0 SIGN OF LITERALS (SLIS) MLBLIM* +10000 . LOWEST LABEL VALUE WHICH GETS RENAMED. MWRFLG* +0 MUL* +0 PRODUCT FLAG (SUBAN) MZFDAS* +0 . CURRENT MACRO ASCII/FIELDATA STATE N1FLDX* +0177777 FUNCTION LEVEL OF FLD CALL N1FLT* + 020000,0 . FLOAT FUNCTION FOR REAL LOOPS NEOS* +0 FLAG USED AT EOS TO HECK PAREN LEVEL (SCAR) NLABL* +0 LABEL OF NEXT STATEMENT N1REGF* +0 CONTAINS SUBROUTINE DEFINITIONS FOR PHASE V REGIST N1RGF2* +0 USED FOR SIMULARITY TEST WITH REGISTER STAT REGIST N1STLG* +0 LENGTH OF STATEMENTIN WORDS SHORT PL* +0 PLATEAU NUMBER PLABL* +0 LABEL OF PRESENT STATEMENT R16* +0 USED TO BE ICR REGISTER R17* +0 USED TO BE AN ICR REGISTER ROUTW* +0 . A TEMP USED FOR BUILDING EP TABLE IN SYM SAVEX* +0 . TEMP MTFSYM SBSCRP* +0 . IMPLIED DO LOOP LIMIT FLAG IN LIST SCNBRK* +0 . FLAG USED IN BRACKET SCANS . S3 OF SCNBRK HAS INDENTATION LEVEL SCB* +0 SEQ CT AT BEGINNING OF PROGRAM SCNGEN* +0 NON ZERO IF SCAN BEING GENED GENER SMCNT* +0 . USED TO SAVE MCNT THRU SCAN STATEMENT GENER SEQL* +0 SEQ COUNT OF STATEMENT LABEL SFOP* +0 NONZERO WHEN OPERATORS APPEAR SIRLNG* +0 . LENGTH FROM SIR$ SIRCNT* +0 . CONTROL WORD FROM SIR$ XSRLNG* +0 . SAVES SIRLNG XSRCNT* +0 . SAVES SIRCNT XFDASC* +0 . SAVES FDASC SPARTBL* +0 . SAVES OPTION LETTERS THRU SIR$ STARG* +0 NUMBER (H1) AND LOC(H2) OS STATEMENT FUNCTION ARGUMENTS STFUFL* +0 SAVE A8 FOR USE IN PSDP FOR STATEMETN FUNCTIONS STPL* +0 SAVE START OF POLISH MASK STNGPT* +0 SAVES B5 WHILE RESCANING EXPRESSION STRIN* +0 INITIAL STRING INDEX STYPE* +0 F30 STATEMENT TYPE ITEM (SLIS) SVCRFT* +0 SAVES CRCRFT SYMFAL* +030200,0 FILE 30 FALSE ITEM SYMTRU* +030200,1 FILE 30 TRUE ITEM SYMV* +0 CURRENT SYMBOL TABLE POINTER SYMVG* +0 CURRENT SYMBOL TABLE POINTER TO GLOBAL VARIALEP TRACF* +0 TRACE FLAG H2 ON/OFF H1 TYPE OF TRACE TRASEQ* +0 GENER TYPEIV* + 0 . TYPE OF INDUCTION VARIABLE TFDA$* +0 . NON ZERO TO ALLOW DOLLAR SIGNS SYMV2* +0 VARLIT* +0 CONTAINS VARIABLE LOC FOR SHORT HAND DATA NOTIATION UNTFMT* +0 NON ZERO WHEN SCANNING FORMAT OR UNIT USERFC* -1 . INDEX OF BOTTOM OF USERFT. EXEC 8 . MEMX EQU 4 OCT 1 $(2) . EQVT* . AREFA* . SIRXX* RES 700 . PROVIDE SPACE FOR SIR$ DATA AREA MQTB* RES 75 $(12) . ARGSRT* . DO 8 , +0 . LOCATION OF SUBTABLE FILLED IN DYNAMIC $(2) . ARZLL EQU 150 LENGTH OF ARGUMENT TABLE EXEC 8 GXMODE* RES 3 . SAVE MODE ACROSS DELTA'S GXBFMX* EQU 33 GXDBUF* RES GXBFMX . GX DUMP CHARACTER TRAP LREF1* . SVA* RES 6 SAVE AREA FOR TEMP LABEL PROCESSING GENNL EQU 9 . GENERATE LENGTH GENER GENPAR* RES GENNL GENER GLABL* RES GENNL GLFL* RES GENNL . SAVES LOGICAL IF SEPERATOR GENINC* RES GENNL GENER SGLNZZ EQU 37 RGXTA* RES SGLNZZ RGXTB* RES SGLNZZ RGXTC* RES SGLNZZ RGXTD* RES SGLNZZ RGXTX* RES SGLNZZ RGXTT* RES SGLNZZ $(12) . G32* +0 SHORT DO 8 , +0 . LOCATION OF SUBTABLE FILLED IN DYNAMICALLY $(2) . GTEST* RES GENNL MTFSYM G49* RES GENNL MACRO LEVEL AT START OF GEN GENER GLR* RES GENNL . TYPE OF TEST INSTRUCTION GENER GNUM* RES GENNL . NUMBER OF TIMES TO EXECUTE GEN STAT GENER GXLOC* +0 . HOLDS CHARACTER STRINGS TO BE SUBSTITUTED FOR ^'S. W,I,A +0 W,I,A +0 . THIRD WORD NEEDED FOR ASCII STDMSK* +0 . HOLDS BIT MASK FOR +0 . DEACTIVATED STATEMENTS N1SEPX* RES 8 . USED IN SCAN FOR STACKED SEPARATORS MACWRI* . MACWRI DO 31 , +0 SAVES INFOR FORMACRO WRITE MACWRI . S1 IS 1 FOR AN ELEMENT AND 2 FOR A FILE MACWRI MACLBL* RES 8 SAVES LABEL ON MACRO LINES MBFTBL* RES 9 MAC BUFFER CHAIN HEADLINKS. MCFDAS* RES 9 . SAVES ASCII/FIELDATA STATE MC* RES 8 CHARACTER INDEX IN MACRO LEVEL MW* RES 8 LOCATIO OF WORD BEING SCANNED MR* RES 8 SAVES R5 IN SCANNING PROCESS MACRNM* RES 8 MCLCPT* RES 8 START OF LOCAL NAMES BY MACRO LEVEL MCLCLG* EQU 150 GENER MCLCNM* RES MCLCLG GENER MACBXX* +10,0,0,0,0,0 ID FOR RECONSTRUCTED ITEM EXEC 8 MACBF1* RES 15 MCLYL* EQU 50 MCLY* RES MCLYL MCLBLT* RES 9 $(12) . MWFLTB* +0130000,0 FILE 60 ID FOR FILE TABLE MACWRI 'FILENAME' MACWRI 'ELEMENTNAME' MACWRI +0 MACWRI +1,0 SYMBOLLIC ELEMENT MACWRI 'VERSIONNAME' MACWRI +0 MACWRI +0 MACWRI +0 STARTING LOCATION OF ELEMENT MACWRI +0 TIME AND DATE MACWRI $(2) . LGIFSB* RES 11 LGIEXT* RES 11 LGLABL* RES 11 . HOLDS LABEL TILL ENDIF LGELSE* RES 11 . HOLDS SEQUENCE NUMBER IFELSE LGDOTS* RES 25 . USED TO TEST MIXED IF DO STRUCTURES F60ID* RES 3 . EXTRA EDITING INFORMATION FROM SIR XF60ID* RES 3 . SAVES F60ID N1SEP* +0 BUTS ARE SET FOR SEPARATOR HARACTERS +0 SV* RES 60 . SAVE AREA FOR ^ SUBSTITUTIONS. W,I,A SUBT* . FISRT TABLE FOR SUBSCRIPT PROCESSING W,I,A DO 25 , +0 W,I,A SUBT2* . W,I,A DO 25 , +0 W,I,A SUBT3* . W,I,A DO 25 , +0 W,I,A SUBT4* DO 25 , +0 SUBT5* . USED IN CHARACTER PROCESSING RES 25 +0 . ZERO MUST BE IN FRONT OF MCSTLG SHORT MCSTLG* . SHORT DO 9 , +0 SHORT LABCB1* RES 0 P1TAB2* RES 200 DOTAB TABLE EQVTH* . GITV* RES 6 . ITEM RETURNED BY GIT IMPMUL* DO 4 , +0 VARDIM* DO 7 , +0 HOLOUT* RES 15 NLINE* RES 22 . NEXT SOURCE LINE DOTAB* RES 25*(MEMX/2) DOPARL* EQU 200 DOPAR* RES DOPARL SBUF* RES 338 MAXSTR* EQU 750 STRING* RES MAXSTR MAXSLO* EQU 800 SLOUT* RES MAXSLO PRESYM* EQU SLOUT+699 SCARPD* RES 100 SCARR* RES 16 . REGISTER SAVE AREA SLISS* RES 6 . SAVE AREA FOR N1LST LSTACK* RES 25 . TEMP STORAGE FOR N1LST SLISFA* +0 SLISFV* +0 RES 25 N1MNSR* RES 10 . REGISTER SAVE FOR MONITOR USERFM* EQU 10 . MAX USER LIBRARIES. EXEC 8 USERFT* RES 2*USERFM . USER LIBRARY TABLE. EXEC 8 $(12) . COMUSE* '@USE F$$001,' MACWRI COMASG* '@ASG,A F$$001,F ' COMFRE* '@FREE,A F$$001 ' USRFRE* EQU COMFRE EXEC 8 COMLDX* RES 3 EXEC 8 CSFIMG* RES 2 . THESE THREE ORDER-DEPENDENT. EXEC 8 COMFNM* 'QUALQUALQUAL*FILEFILEFILE(CYCLE)/KEYKEY/KEYKEY ' EXEC 8 . EXEC 8 . EXEC 8 . THIS PROC GENERATES N1INC I/O CTL VECTOR. . ITS REFERENCE IS 'INC NSECT' WHERE NSECT IS NUMBER OF SECTORS EXEC 8 . IN EACH OF TWO FASTRAND BUFFERS TO BE ALLOCATED FOR THIS LEVEL. EXEC 8 . EXEC 8 INCSL EQU 28 . WORDS PER BUFFER. EXEC 8 Z(2) EQU 0 . LEVEL COUNT. EXEC 8 . EXEC 8 INC* PROC 1. EXEC 8 BFS EQU INC(1,1)*INCSL . BUFFER SIZE (WORDS) EXEC 8 BFS2 EQU BFS*2 . WORDS TO ALLOCATE IN BUFFER POOL. EXEC 8 BFOFS EQU $(10)-INBUF . CURRENT OFFSET IN BUFFER. EXEC 8 FPTLNG EQU INBLNG-BFOFS . LENGTH AVAILABLE FOR BSP USE. EXEC 8 BFORG EQU $(10) . ORIGIN OF CURRENT BUFFER PAIR. EXEC 8 . EXEC 8 RES 2 . DRPKT EXEC 8 +0 EXEC 8 +020,0,0 EXEC 8 +BFS,0 EXEC 8 +0 EXEC 8 +0 EXEC 8 +0 EXEC 8 RES 1 . FILLED EXEC 8 RES 1 . POINT EXEC 8 RES 1 . PRSPLT EXEC 8 RES 1 . SMTWDS EXEC 8 RES 1 . SPLIT EXEC 8 +BFS-1 . BFSZM1 EXEC 8 RES 1 . FCTP7 EXEC 8 +BFORG,FPTLNG . BDSC1 EXEC 8 +1,BFORG . BDSC2 EXEC 8 +INC(1,1) . SECNO EXEC 8 +BFORG,BFORG+BFS . BUFADS EXEC 8 Z*(1) EQU 140-BFS2 . POS IF TOO SMALL FOR BSP. EXEC 8 Z*(2) EQU Z(2)+1 EXEC 8 $(10). EXEC 8 RES BFS2 . ALLOCATE MORE POOL SPACE. EXEC 8 $(12) . END EXEC 8 . EXEC 8 $(12) . INCIOC* INC 12. . 12 SECTORS PER BUFFER. $(10). EXEC 8 DO Z(1)>0 , RES Z(1) . EXTRA SPACE FOR BSP IF NECESSARY EXEC 8 $(2). EXEC 8 INBLNG EQU $(10)-INBUF EXEC 8 . MAXINC* EQU 8 . MAX MACRO/INCLUDE LEVEL. . INCSTK* RES 5 . MACRO/INCLUDE NEST STACK. SNLX8* RES 15 ZERO-LEVEL NLINE SAVE. RES 20*MAXINC+20 . REST OF EM PLUS ELBOW ROOM MLREF* EQU 02300 LREF* RES MLREF N12VRZ INFO 2 6 N1QQQ INFO 2 2 N12BBB INFO 2 10 END