*COMDECK,COMSTUF
 COMSTUF  CTEXT 
                                                                         21FEB77
COMRES    MICRO  1,, 00      WHICH OVLY WE ARE IN (FOR CCON MACRO)       21FEB77
                                                                         COMSTUF
          IFEQ   SYMTBLV,0,2                                             21FEB77
          USE    /COM08/                                                 COMSTUF
          SKIP   1                                                       COMSTUF
          USELCM /COM08/                                                 COMSTUF
                                                                         COMSTUF
COM08     BSS    0                                                       COMSTUF
COM08.    BSS    128         SYMBOL TABLE HASH POINTS                    COMSTUF
          USE    *                                                       COMSTUF
                                                                         COMSTUF
          USE    /CEXEC/
  
*----------------------------------------------------------------------*
*                          --   N O T E   --                           *
*   CHANGES TO COMMON BLOCK CEXEC HERE IN COMSTUF SHOULD BE MADE       *
*   RELATIVE TO ANY SUBSTANTIVE CHANGES MADE TO *COMDECK CEXEC.        *
*----------------------------------------------------------------------*
  
 CEXEC.   BSS    0
 CEXEC    BSS    0
          BSS    13 
 CRDNO    BSS    1           CARD NR FOR CROSS-REF
          BSS    2
 AFREE    BSS    1           AVAILABLE WORDS IN SYMBL TABLE 
 FLMINUS1 BSS    1           CURRENT FL-1 
 SYMCP    BSS    1                                                       COMSTUF
 AVLRS    BSS    1                                                       COMSTUF
 NXTAV    BSS    1                                                       COMSTUF
 NOLIST   BSS    1           IF ON TURN OFF SOURCE LISTING
 SCPN     BSS    1
 NNAM     EQU    6           BIT POSITION IN FIRST WORD 
 L$PRFX   EQU    15          LENGTH OF LOADER PRFX TABLE. 
 L$TCT    EQU    135         LENGTH OF TEXT CONTROL TABLE.
          USE    *
                                                                         COMSTUF
                                                                         COMSTUF
          USE    /TROLCOM/                                               COMSTUF
 ANS      BSS    1                                                       COMSTUF
 VERY1FL  BSS    1           WHAT FL WAS BEFORE WE CHANGE D IT           21FEB77
 STRTFLD  BSS    1           SYM-TBL FL WE BEGAN 1ST COMPILE WITH.       21FEB77
 SYMXTRA  BSS    1           HOW MUCH WE BUMP SYM-TBL FL BY              21FEB77
 MAXFIEL  BSS    1                                                       21FEB77
 FIELDLN  CCON   0           CURRENT CM FL                               21FEB77
 SYMTAB   CCON   SYMTABS     HHA                                         21FEB77
                                                                         21FEB77
*                            THE FOLLOWING 3 WORDS ARE OVLY PARAM BLOCK- 21FEB77
                                     ***                                 21FEB77
          IFEQ   SYSNAME,2,2           *                                 21FEB77
 LOAD     CDATA  L*ZZZZZNC*  SCOPE 2   *                                 21FEB77
          SKIP   1                     *                                 21FEB77
 LOAD     CDATA  L*SYSOVL*   3.4/NOS   *                                 21FEB77
*                                      * 2ND, 3RD WORD . . .             21FEB77
 LOAD2    BSS    1                     *                                 21FEB77
 LOAD3    BSS    1                     *                                 21FEB77
                                     ***                                 21FEB77
SAVOPT    CDATA  0           ORIGINAL CTL CARD OPTIONS ARE REMMEBERED    21FEB77
 LWA00    CCON   0           LWA+1 OF 0,0 OVERLAY                        21FEB77
 NUCLEUS  CDATA  C*NUCLEUS*                                              21FEB77
                                                                         COMSTUF
#LEV      IFEQ   SYMTBLV,0   FL-CONTROL VAIIABLES, USING SCM...          21FEB77
SYMRES    MICRO  1,, CM      FOR MEMORY MACRO                            COMSTUF
SYFL      EQU    FIELDLN                                                 COMSTUF
SYSTART   EQU    SYMTAB                                                  COMSTUF
SYMAX     EQU    MAXFIEL                                                 COMSTUF
                                                                         COMSTUF
#LEV      ELSE   ,           FL-CONTROL VARIABLES, USING LCM...          21FEB77
SYMRES    MICRO  1,, LCM     FOR MEMORY MACRO                            COMSTUF
 VERY1LCF BSS    1           LCM FL BEFORE WE CHANGED IT                 21FEB77
 LCMFL    CCON   0           CURRENT LCM FL                              21FEB77
 MAXLCM   CCON   0           MAX LCM ALLOWED TO US                       21FEB77
 SYSTART  BSS    1           FWA OF SYM TABLE                            21FEB77
SYFL      EQU    LCMFL                                                   COMSTUF
SYMAX     EQU    MAXLCM                                                  COMSTUF
#LEV      ENDIF                                                          21FEB77
          USE    *                                                       COMSTUF
                                                                         COMSTUF
 COMSTUF  ENDX
