MEMX    EQU     4  .  SIZE FOR 65K
LTNO*    EQU    150
LF31*   EQU     500
LNV*    EQU     50  .  50,50            INDVAR
LFX*    EQU     25  .  25,25            FNX
LPOL*   EQU     50+(MEMX-2)*25  .  100,50 POL
LINS*     EQU       450
LXF51*  EQU    600
LTF51*  EQU     LXF51  .  150,100       TF51
LEXA*      EQU    2650
LEAA*      EQU    LEXA/5       .      NUMBER OF POSSIBLE ACTIVE EXPRESSIONS
LOCC*   EQU     125*MEMX
LSTRX*  EQU     25*MEMX
LTRST*  EQU     33*MEMX
LSTR*   EQU     150*MEMX
USE3L*    EQU       3
$(0)
SUBEXA* RES     LEXA
SUBXZZ    INFO      2 0
$(6).           COMMON  /N3TB1Z/                                         SUBXZ
        RES     5  .....  ALLOW FOR F31 SPILLOVER OF 2 WORDS.           ISOLAT
F31*    RES     LF31   . TEMPORARY STORAGE OF FILE ITEMS.                SUBXZ
TF51*   RES     LTF51  . KEY TO WHERE TO INSERT SUBEXPRESSIONS.          SUBXZ
XF51*   RES     LXF51  . HOLDS ITEMS TO INSERT IN F40.                   SUBXZ
INSERT* RES     LINS   . BUFFER AREA TO REFORM TRIADS.                   SUBXZ
INDVAR* RES     LNV    . LOOP LEVEL                                      SUBXZ
IVSQ*   RES     LNV    .   PUSHDOWN LIST.                                SUBXZ
LP5TB*  RES    LNV    .    CONTAINS INFO FOR PHASE V INSTEAD OF LOOP TABISOLAT
IVLGQ*    RES       LNV                 . LOGICAL IF AT EACH DO LEVEL
LGZZ*     RES       75                  . NESTED LOGICAL IF TABLE
.       S1     FLAG FOR USING TEMP INSTEAD OF R REGISTER                ISOLAT
.   S2    LOOP IS SAFE IF ZERO                                          ISOLAT
.   S3    IF NON ZERO LOOP COLLAPSED                                    ISOLAT
.   H2      SYM TABLE REFERENCE OF INDUCTION VARIABLE                   ISOLAT
N3TB1Z  INFO    2 6                                                      SUBXZ
$(2)  .
SORT*     RES       +450              USED IN SORTING EXPRESSIONS
NEXA*      RES   4    .     EXPRESSION HEAD LINKS
POL*    RES     LPOL  .  HOLDS CREATED POLISH FOR SUBSCRIPTS
SORTK*  RES     30  .  HOLDS SORT KEYS FOR SORTING SUBSCRIPTS
SCAN*   RES     50  .  PUSH DOWN LIST FOR EXAMINING SUBEXPRESSIONS
SUBBUF*     RES   5   .   BUFFER TO MAKE EXPRESSION
LCS*    RES     50  .  USED IN LOOP ROUTINES
OCC*    RES     LOCC  .  HOLDS LAST OCCURENCE INFO
USE3*   RES     USE3L                                                   ISOLAT
LLBTB*   RES   25
F31PD*   RES   30
DFNMX*    RES   30     .   NAMES OF DEFINES
SFDPX*   RES   30
GEXFLP*  RES   25
USELV*   RES   25       POINTER TO USE TABLE BY LEVEL                   ISOLAT
N3SBTA*  RES   11    .   TABLES USED IN PROCESSING NESTED SUBSCRIPTS
N3SBTB* RES    11
N3SBTC*     RES    11
N3SBTD*     RES    11
N3SBTE*    RES    11
N3SBTF*        RES    11
N3SBTG*   RES       11
SUBXT*     RES   11       SAVES EXIT INFOR FOR NESTED SUBSCRIPTS
SUSORT*   RES       50   . AREA USED BY SUBSCRIPT
FNX*  .  FUNCTION LEVEL PUSH DOWN LIST
         RES    LFX
INTRX*  RES     LFX  .  FUNCTION LEVEL PUSH DOWN LIST
SFMSK*  RES     LFX  .  STORES LOCATION OF FIRST ARGUMENT BY FUNCTION LEVEL
N3STCK* RES     LTNO  .  USED IN LINKINGEXPRESSIONS
STA*    RES     LTNO  .  USED IN LINKING EXPRESSIONS
ERRA*    RES    40
N3QQQ   INFO  2 2
$(4).           COMMON /TRSTZZ/                                         E TRSTRT
TRST*   RES     LTRST  .  STORES PARAMETERS WHILE CHT RECURSIVE
COPER   EQU     TRST
COPND1  EQU     TRST+1
COPND2  EQU     TRST+2
CONRD   EQU     TRST+3
MA      EQU     TRST+4
MB      EQU     TRST+5
EMODE   EQU     TRST+6
MODET   EQU     TRST+7
PEROP   EQU     TRST+8
CHTS    EQU     TRST+9
R15     EQU     TRST+10
TRSTZZ  INFO    2 4                                                     Z COMMRT
$(2)  .
        LIT
        END