.  THIS SECTION CONTAINS ALL THE TABLE RESERVES AND RELATED
.  ENTRY POINTS FOR THE TABLES WHICH ARE COMMON TO ALL PHASES
          PREQ
$(1)  .
N0MER*     EQU    200    .    LENGTH OF ERROR TABLE
N0RGTB*  .    THIS TABLE DEFINES REGISTERS THAT ARE ALLOWED AND THOSE   REGIST
.    THAT SHOULD BE SAVED                                               REGIST
.   S1    DEFINES B REGISTERS TO SAVE                                   REGIST
.    S2    DEFINES B REGISTERS TO USE                                   REGIST
.    S3  DEFINES A REGISTERS TO SAVE                                    REGIST
.    S4  DEFINES A REGISTERS TO USE                                     REGIST
.    S5    DEFINES R REGISTERS TO SAVE                                  REGIST
.    S6   DEFINES R REGISTERS TO USE                                    REGIST
.      FIRST WORD IS ZERO UNTIL A REGISTER STATEMENT IS USED            REGIST
        +0                                                              REGIST
        +0,0,0,1,0,0         B0,A0,R0                                   REGIST
        +1,1,0,1,0,1         B1,A1,R1                                   REGIST
        +1,1,0,1,0,1         B2,A2,R2                                   REGIST
        +1,1,0,1,0,1         B3,A3,R3                                   REGIST
        +1,1,0,1,1,1         B4,A4,R4                                   REGIST
        +1,1,0,1,1,1         B5,A5,R5                                   REGIST
        +1,1,1,1,1,1         B6,A6,R6                                   REGIST
        +1,1,1,1,1,1         B7,A7,R7                                   REGIST
        +1,1,1,1,1,1         B8,A8,R8                                   REGIST
        +1,1,1,1,1,1         B9,A9,R9                                   REGIST
        +1,1,1,1,1,1         B10,A10,R10                                REGIST
        +0,1,1,1,1,1       B11,A11,R11
        +0,1,1,1,1,1        B12,A12,R12
        +0,1,1,1,1,1        B13,A13,R13
        +0,1,1,1,1,1        B14,A14,R14
        +0,1,1,1,1,1        B15,A15,R15
SYMBRK*     .                                                           SYMEXP
.    S1 IS NUMBER OF BREAKS AND S3 IS PSSSIBLE NUMBER OF BREAKS         SYMEXP
.     H2 IS MAXIMUM POSSIBLE SIYEOF SYMBOL TABLE                        SYMEXP
          +6,0177000
       +SYM,SYM+MSYM-1                                                  SYMEXP
          DO  6 , +0
.     EACH WORD THAT FOLLOWS WILL HAVE IN H1 LAST CRSYM ADDRESS OF A BLOSYMEXP
.     AND IN H2 FIRST CRSFNX ADDRESS                                    SYMEXP
$(8)                               . N23DMP INTEGRATION.                FORT
        +MLOOP+1  . LENGTH FOR FORTRAN ELEMENTS.                        ENGTH RT
LOOP*   RES     0
LOOPT*    RES       2000
MLOOP*    EQU       2000
LOOPTZ  INFO    2 8                . N23DMP INTEGRATION.                FORT
$(6)                               . NEW ERRT DEFINITION                GBFORT
ERRT*    RES   N0MER          .   FOR                                  GBFORT
ERRTZZ  INFO    2 6                .     N6EMW.            -            GBFORT
$(2)
NMBUF*   EQU  4
NBCW*    EQU     2                       . ONE FOR RFP$, ONE FOR US
BUFN*     EQU      21*28-2            . # USABLE WORDS PER BUFFER
LNBUF*    EQU      21*28              . 5*28+4*28*6
NSPB*     EQU      LNBUF/28           . # OF SECTORS PER BLOCK
BUFN15*      EQU     BUFN/16
SRV*     +0
         DO 50 , +0
          DO LMSC ,POOL*  RES  NMBUF*LNBUF+5-01650 . 01650 IS LENGTH OF INFOR$+
                                 . PREPRO + NDATE
          DO JPL ,POOL*  RES  NMBUF*LNBUF-01730
POOLZZ    INFO   2 2
POOL2Z   INFO   2 1
MEMSQ$*   EQU       1
MEMSZ$*   EQU       2
        END