$(0) +LF31 +LTF51 +LXF51 +LINS +0 +LEXD CF40* +0 COUNTS ITEMS PLACED IN F40 CF50* +0 COUNTS ITEMS PLACED IN F50 TA* +0 . A DUMMY LOCATION 03660 TB* +0 . A DUMMY LOCATION TB MUST FOLLOW TA IN MEMORY 036700 CTF51* -1,0 . CONTAINS CURRENT NUMBER OF ITEMS IN TF51 02560 CXF51* +0 . CONTAINS CURRENT NUMBER OF ITEMS IN XF51 02590 INSNO* +0 . CONTAINS THE NO. OF ITEMS IN INSERT TO SEND TO F50 02830 LOOPNU* 1,0 . CONTAINS THE CURRENT NUMBER OF ENTRIES IN INDVAR 03010 LXA* +LEXA-8 LENGTH OF SUBEXA . . TO MAKE A SINGLE CELL DUMPABLE, INSERT IT AND ITS NAME . BELOW. . +(LAST-$-1) . NUMBER OF DUMPABLE CELLS IN THIS BLOCK. . 'ABFCFL' ABFCFL* +0 IF NON ZERO IT IS SEQUENCE NUMBER TO FORCE EVALUATION 'AX' AX* +0 . . HOLDS INITIAL VALUE FROM BEGIN DO 02320 'ARYITM' ARYITM* +020000,N0ARAY 'BND ' BND* +0 . (FFFFFFLLLLLL) WHERE FFFFFF IS THE 1ST LOC USED 02360 . THE SYMBOL TABLE FOR THE CURRENT PROG AND LLLLLL IS THE 02370 . LAST. 02380 'BX' BX* +0 . . HOLDS INCREMENT FROM BEGIN DO 02390 'CHTFLG' CHTFLG* +0 NONZERO WHEN EXPRESSIONS REFORMED FOR SUBSCRIPTS 'CLB ' CLB* +0310200,0 . USED TO FORM LABEL INDICATOR 02440 'CNTOP ' CNTOP* +0 . USED TO COUNT OPERANDS IN THE POLISH 02460 . INDUCTION VARIABLES ARE FACTORED FROM SUBSCRIPTS 02480 'CONTP ' CONTP* +0 . =2, IF CON WERE 3, =1 IF CONSTANT WERE 1 02490 . COPND1 AND COPND2 HAVE THE SAME FORMAT AS F30 ITEMS 02530 . COPND2 MUST FOLLOW COPND1 IN MEMORY 02540 'CONFCF' CONFCF* +0 INHIBIT INTEGER DIVIDE 'COUNT ' COUNT* +0 . . LOOP COUNT ITEM OF CURRENT DO 02550 'CSUBXD' CSUBXD* +LEAA . ACCUMULATES NUMBER OF ACTIVE EXPRESSIONS 'CTRST ' CTRST* +CTRSTL 'CHPXFL' CHPXFL* +0 . FLAG FOR CHARACTER PACKET ADDRESS 'CYF51 ' CYF51* +1,0 . CONTAINS CURRENT NUMBER OF ITEMS IN YF51 02610 'DEFNAM' DEFNAM* +0 NAME OF DEFINE 'DELF ' DELF* +0 . NON ZERO IF DEL DID DELETE AN EXPRESSION 'DELJZ ' DELJZ* +0 PROPAGATE BITS FOR SUBEXPRESSION 'DMSBCN' DMSBCN* +0 NON ZERO FOR CREATED 1017 OPERATOR 'DOSXTF' DOSXTF* +0 'DFLX ' DFLX* +0 . NON ZERO IF FATAL ERROR HAS BEEN FILED 'DUMPL ' DUMPL* +0 . USED TO STORE LOCATION FOR PRINTING 'DMPX ' DMPX* +0 . USED AS STORAGE BY DIAGNOSTIC ROUTINES 'DUMPN ' DUMPN* +0 . SAVES ERROR NUMBER FOR MINUS TEST 'DEFNO ' DEFNO* +0 . CONTAINS CURRENT SEQUENCE NUMBER 02620 'DUMARC' DUMARC* +0 CURRENT END OF DUMARG TABLE 'EMPZZZ' EMPZZZ* +0 'ENDMSK' ENDMSK* +0 CONTAINS 1 WHEN FNC COUNTED DOWN BY END OF POLISH 'ENTDPF' ENTDPF* +0 NONZERO IF CALL BY NAME IS INHIBITED ON D 'EXPN ' EXPN* +0 . SAVES USAGE FOR DON DEFINED SUBEXPRESSIONS 'EXS ' EXS* +0 SAVES COUNT OF TF51 WHILE IN EXX 'F31F ' F31F* +0 NONZERO IF TRIAD AT TOP OF STACK 'F31C ' F31C* +0 COUNTS F31PD 'F31CT ' F31CT* +0 MARKER FOR F31 'FDPX ' FDPX* +0 'FLBG ' FLBG* +0177777 . THIS CONTAINS THE SEQ NO RELATIVE TO F50 OF THE BEFIN DO . DO IT IS USED TO INDICATE WHETHER A SUBSCRIPT IS USED AT 02690 . THE SAME LEVEL IT IS DEFINED AT 02700 'FLCM ' FLCM* +0 . =0, IF NO EXPRESSIONS CONTG VARIABLES IN COMMON HAVE OCC 02710 'FLEQ ' FLEQ* +0 . =0, IF NO EXPRESSIONS CONTNG VARIABLES IN EQUIVALENCE HA 02720 'FLND ' FLND* +0 . ZERO IF LABEL INDICATORS SHOULD BE GENERATED 02730 'FL30 ' FL30* +0 . CONTAINS LAST ITEM READ FROM F30 02740 'FLPR ' FLPR* +0 . FLAG FOR ZERO LEVEL 'FLST ' FLST* +0 CONTAINS STATEMENT TYPE TO BE INSERTED AFTER CURRENT ARITH 'FNC ' FNC* +0 . CONTAINS THE NO. OF FUNCTIONS NESTED. FOR EACH LEVEL TH 02750 . ERE IS AN ENTRY IN FNX WHICH IS ZERO OR ONE DEPENDING ON WHETHER 02760 . IMMEDIATE CONSTANTS SHOULD BE PUT INTO THE SYMBOL TABLE 02770 'GESUFL' GESUFL* +0 . SET NON ZERO WHEN DEFINE IS PART OF SUBSCRIPT 'GETF ' GETF* +0 . IS A FLAG WHICH TELLS GET WHERE TO READ FROM, F30,F31 OR 02790 'GL ' GL* +0 HOLDS GENERATED LABEL UNTIL IT SHOULD BE OUTPUT 'GSUB ' GSUB* +1,0 . CONTAINS LOCATION IN F31 TO HAVE GET READ FROM 02800 'GTFX ' GTFX* +1,0 CONTAINS LOCATION TO READ NEXT ITEM FORM FACTORING 'IDF ' IDF* +0 . SET WHEN AN INDUCTION VARIABLE IS DEFINED 'ILXP ' ILXP* +0 FLAG WORD USED IN ILXP 'ILGT ' ILGT* +1,0 . CONTAINS NEXT LOCATION TO READ FROM SORT 'ILXX ' ILXX* +0 . FLAG TO SAVE EXPRESSION NUMBER 'ILXEX' ILXEX* +0 . LAST EXPONENT PROCESSED BY ILP 'ILXOP' ILXOP* +0 . LAST OPERAND PROCESSED BY ILP 'POLQ' POLQ* +0 . USED TO FLAG POLG POLISH IF IT CONTAINS VARIABLE 'INVAR ' INVAR* +0 'INT ' INT* +0 . CONTAINS 0 IF IN MAIN PROGRAM; NON ZERO OTHERWISE 02840 'LCABNM' LCABNM* +0 SYMBOL TABLE ADDRESS OF ABSOLUTE ELEMENT . PLY TO THE SUBPROGRAM CURRENTLY BEING COMPILED 02910 'LBX ' LBX* +0 . THIS FLAG IS NON ZERO WHEN A LABEL IS BEING PROCESSED 02920 'LGLNST' LGLNST* +0 . NEST LEVEL OF LOGICAL IF'S 'LOCFLG' LOCFLG* +0 NONZERO IF TC COMPUTE POINT OF LOC FUNCTION . EXPRESSIONS SHOULD BE EVALUATED THERE 'LOOPLB' LOOPLB* +0 . IF NON ZERO THERE WAS A REFERENCED LABEL IN THE LOOP 'LSOC ' LSOC* +0310000,0 . THIS WORD IS USED TO GENERATE THE LAST OCC ITEM 03040 'LSEQ ' LSEQ* +0 CONTAINS LOC IN F31 OF LAST = OPERATOR 'LSEX ' LSEX* +0 HOLDS REUSABLE EXP NUMBER FROM LAST TRIAD 03060 'MOOP' MOOP* +0 . CONTAINS EXTRA INFORMATION TO ADD TO OPERATOR ITEM FROM 03100 'MEL ' MEL* +0 . THIS FLAG IS NON ZERO IF EXPRESSIONS WITH J3=1 MUST BE OUTPUT 'MULTO' MULTO* +0 . MULTIPLIER ON IND VAR OF NEXT OUTER DO 03110 'MULTC' MULTC* +0 . MULTIPLIER ON IND VAR OF CURRENT DO 03120 'N3TRFL' TRACE N3TRFL* +0 STORES TRACE 'N3TRF2' LOOPS TRACE N3TRF2* +0 TRACE 'N3TRF3' TRACE N3TRF3* +0 LABELS TRACE 'N3TRF4' TRACE N3TRF4* +0 IO TRACE 'NEGARG' NEGARG* +0 NON ZERO FOR NEGATIVE ARGUEMNTS 'NGCN' NGCN* +0 FLAG FOR MINUS FUNCTION ARGUMENTS 'NLCS ' NLCS* + 1,1 . CURRENT NO. OF ENTRIES IN LCS TAB 00032100 'NOI ' NOI* +0 . CONTAINS NUMBER OF ITEMS IN NEXT STATEMENT 'NOPER ' NOPER* +0 . CONTAINS LOCATION IN F31 OF NEXT OPERATOR 03230 'NSTR ' NSTR* + 1,0 . CONTAINS CURRENT NUMBER OF ITEMS IN SORTK 03250 'N3MXRG' TRACE N3MXRG* +6 . MAX NUMBER OF REGISTERS 'NSTRS ' NSTRS* +1,0 . NUMBER OF EXPRESSIONS TO SORT 'NSUBM ' NSUBM* +0 . FLAG=NON-ZERO IF ANY NON ZERO INCREMENT FOR LOOP 03260 'OFPLUS' OFPLUS* +0 CONTAINS LOCAFION OF LAST OFFSET PLUS 'OPNDFL' OPNDFL* +0 COUNTS OPERANDS THAT ARE CONSTANTS 'OPTF ' OPTF* +0 . FLAG=1 IF LOOP IS OPTIM AL AND EACH OF 03290 . . THE LOOP LIMITS HAS A COMPUTE POINT 03300 . . OUTSIDE THE NEXT OUTER DO 03310 'PLAT ' PLAT* +0 . THE PLATEAU FROM END DO'S IS STORED HERE 03360 'POLG ' POLG* -1,0 . USED BY GET TO INDEX ITEMS IN POL 03380 'RELCF ' RELCF* +0 NON ZERO WHILE INSERTING CONSTNATS FOR RELATIONAL 'RCPF ' TRACE RCPF* +0 . THIS FLAG SET TO NON ZERO WHILE FORMING RECIPROCALS 'SAVE' SAVE* +0 . STORES TEMPORARY RESULTS 03420 'SAVELG' SAVELG* +0 . CONTAINS LOGICAL IF PROCESSED IN N3T35 'SEFL ' SEFL* +0 . =0 IF NO ITEMS HAVE BEEN MOVED FROM F31 NON ZERO OTHERWI 03480 'SEQB ' SEQB* +0 . SEQ NO. OF BEGIN DO 03500 'SEQE ' SEQE* +0 . SEQ NO. OF END DO 03510 'SEQNX ' SEQNX* +0120100,0 . CURRENT SEQN0, USED AS STAT TYPE FOR INSERTS 035210 'SFGT ' SFGT* +0 CURRENT INDEX FOR POLISH MASKS 'SXDF ' SXDF* +0 . TELLS WHETHER STATEMENT OR EXPRESSION BEING DEFINED 03530 'STNO ' STNO* -1,0 . CURRENT NUMBER OF ITEMS IN STACK 03600 'STTY ' STTY* + 0350000,0 . THIS INITIALIZED TO END OF FILE 'STTYA ' STTYA* + 0124600,0 . SAVES STATEMENT TYPE FOR ONE STATEMENT 'SUBNO ' SUBNO* +050000,0 . LAST EXPRESSION NUMBER 03640 'SUBSV ' SUBSV* +0 . NON ZERO IF LAST EXPRESS. FROM POLISH MASK 'SUDMFL' SUDMFL* +0 SET NONZERO WHERE THERE IS ONLY A CONSTAN 'SUBNL ' SUBNL* +077777 'SUBLV ' SUBLV* +0 . LEVEL OF SUBSCRIPT NESTING 'SGTF ' SGTF* +0 SAVES GETF . WHILE IN COMBINING PARTS 'SXCT ' SXCT* +0 CONTAINS NUMBER OF OCCURRENCES OF SUBEX BEING ELIMINATED 'TC ' TC* +0 . A DUMMY USED TO HOLD THE COMPUTE POINTS OF AN EXPRESSION 03700 'TD ' TD* +0 . SAVES 037110 'TLOC ' TLOC* 0,-1 . FORCES IT TO SEARCH FOR FIRST VALUE . HE BOTTOM OF F31 FROM BEING ADVANCED 03760 'TRBX ' TRBX* + $ 'TSZCNT' TSZCNT* +0 'TX ' TX* +0 . A DUMMY LOCATION 03780 'TY ' TY* +0 . A DUMMY LOCATION 03790 'XF30 ' XF30* +0 . ITEMS PRINTED FOR F30 'XF40 ' XF40* +0 . ITEMS PRINTED FOR F40 'XF50 ' XF50* +0 . ITEMS PRINTED FOR F50 'USE3CT' USE3CT* +1,0 'USAFZZ' USAFZZ* +0 NONZERO WHEN TI5 CALLED FOR = 'USEL ' USEL* +0 1,LOCC . NEXT OCC LOC IN H1, NUMBER USED IN OCC IN H2 . LAST EQU $ . EVERYTHING ABOVE HERE IS DUMPABLE. N3XPCZ INFO 2 0 . $(2) . AEX* +0 . NONZERO IF A CHECK FOR EXPONENTS IS BEING MADE FOR ** 02310 BCPND1* +0 . SAVES COPND1 WHILE CONVERSION OPERATORS ARE BEING INSERT 02330 CNVFLG* +0 CTRSTL* EQU 013 CX* +0 . . HOLDS FINAL VALUE FROM BEGIN DO 02570 DAD* +0 FUNCTION LEVEL DECREMENT, 0 OR 1 DUMPI* +0 . USED IN DUMP ROUTINES DMPL* +0 . USED IN DUMP ROUTINES DTEST* +0 . USED AS A FLAG FOR PRINTING AT FATAL ERROR DLPX* +0 . USED AS TEMP STORAGE IN LOOP ROUTINE +0 EXDL* +0 . SET NON ZERO WHEN AN EXPRESSION IS BEING DELETED GEXFL* +1,0 GTMX* +1,0 CONTAINS LOCATION TO READ NEXT ITEM FROM MATRIX IFS2* +0 IF NON ZERO NO EXPRESSION CAN BE FOUND BY EXX IFDST* +0 LAST STATEMENT TYPE FOR IF DEF OINTS ILSV* +0370000,0 . USED TO FORM NEXT SAVE EXPRESSION ITEM ILRS* +0400000,0 . USED TO FORM NEXT RESTORE EXPRESSION ITEM LADEF* +0 IF NON ZERO DEF PT OF UCRRENT LOOP ITEM LTRS* +0 . CONTAINS SEARCHING PARAMETERS FOR COMBING ACROSS TRIADS SCT1* +0 . SAVES SEARCH PARAMETERS WHILE IN SCON ROUTINE SCT2* +0 . SCON ROUTINE SCT3* +0 . SHC* +0 . SAVES OPERAND TO TAKE TO HC WHEN COMBINING TRIADS SUDMVR* +0 SYM REF OF LAST SUBSCRIPTED VARIABLE SV7* +0 . SAVES B7 SV4* +0 . SAVES A4 SV9* +0 . SAVES B9 SV3* +0 . SAVES A3 SV8* +0 . SAVES INDEX 8 036420 SXLD* +0 COUNTS NUMBER OF LINKED EXPRESSIONS EOFX* +0350000,0 . USED TO FORM END OF FILE END