*COMDECK ESTD 
                                   #------S T A T U S---L I S T--------#
                                   #                                   #
      STATUS QCHAR DELM,     #  0 # 
                   PERIOD,   #  1 # 
                   LEFTPRN,  #  2 # 
                   RIGHTPRN, #  3 # 
                   PLUS,     #  4 # 
                   MINUS,    #  5 # 
                   ASK,      #  6 # 
                   SLASH,    #  7 # 
                   E,        #  8 # 
                   M,        #  9 # 
                   O,        # 10 # 
                   I,        # 11 # 
                   MSK,      # 12 # 
                   LETTER,   # 13 # 
                   OCTDIGIT, # 14 # 
                   DIGIT,    # 15 # 
                   SPC,      # 16 # 
                   TRCE,     # 17 # 
                   SEP,      # 18 # 
                   EQU;      # 19 # 
  
  
                                   #------D E F S----------------------#
                                   #                                   #
      DEF ARRYL    # 10 #;         # SIZE OF -CURWORD- AND -NEXWORD-   #
  
  
                                   #------X D E F S--------------------#
                                   #                                   #
                                   # VALUES FOR CURRENT WORD           #
      XDEF ITEM CURLENG I;         # NUMBER OF CHARS IN -CURWORD-      #
      XDEF ITEM CURLENW I;         # LENGTH IN WORDS OF -CURWORD-      #
      XDEF ITEM CURTYPE I;         # SYNTACTICAL TYPE OF -CURWORD-     #
      XDEF ITEM SYNSECT I;         # SYNTBLE ADDRESS FOR -CURWORD- IF  #
                                   # KEYWORD                           #
  
      XDEF ARRAY CURLXID [0]; 
        BEGIN 
        ITEM CLXFUNC B(0, 45, 1); 
        ITEM CLXBOOL B(0, 46, 1); 
        ITEM CLXARIT B(0, 47, 1); 
        ITEM CLXRESV B(0, 48, 1); 
        ITEM CLXREPT B(0, 49, 1); 
        ITEM CLXDIRV B(0, 50, 1); 
        ITEM CLXNUM  U(0, 51, 9); 
        ITEM CLX     I(0, 0, 60); 
        END 
  
      XDEF ARRAY CURP1; 
        BEGIN 
        ITEM CP1C    U(0, 45, 3); 
        ITEM CP1B    U(0, 48, 6); 
        ITEM CP1A    U(0, 54, 6); 
        ITEM CP1     U(0, 0, 60); 
        END 
  
      XDEF ARRAY CURP2; 
        BEGIN 
        ITEM CP2B    U(0, 45, 6);  # SECONDARY OVERLAY LEVEL           #
        ITEM CP2A    U(0, 51, 9);  # MIN LENGTH OF KEYWORD IN BITS     #
        ITEM CP2     U(0, 0, 60); 
        END 
  
      XDEF ARRAY CURWORD [0:25] S(1);  # CURRENT LEXICAL TOKEN         #
        BEGIN 
        ITEM ICW     C(0, 0, 10);  # 10-CHAR ITEM                      #
        ITEM ICWC    C(0, 0, 240); # MAX-SIZE CHAR ITEM                #
        ITEM ICWI    I(0, 0, 60);  # INTEGER ITEM                      #
        ITEM ICWR    R(0, 0, 60);  # REAL ITEM                         #
        END 
  
      XDEF ITEM ESTDBEG I;         # BEGINNING OF VALUES TO SAVE WHILE #
                                   # PROCESSING -SAME- LIST            #
  
                                   # VALUES FOR NEXT WORD              #
      XDEF ITEM NEXLENG I;         # NUMBER OF CHARS IN -NEXWORD-      #
      XDEF ITEM NEXLENW I;         # LENGTH IN WORDS OF -NEXWORD-      #
      XDEF ITEM NEXTYPE I;         # SYNTACTICAL TYPE OF -NEXWORD-     #
      XDEF ITEM NEXSYNSECT   I;    # SYNTBLE ADDRESS FOR -NEXWORD- IF  #
                                   # KEYWORD                           #
  
      XDEF ARRAY NEXLXID [0]; 
        BEGIN 
        ITEM NLXFUNC B(0, 45, 1); 
        ITEM NLXBOOL B(0, 46, 1); 
        ITEM NLXARIT B(0, 47, 1); 
        ITEM NLXRESV B(0, 48, 1); 
        ITEM NLXREPT B(0, 49, 1); 
        ITEM NLXDIRV B(0, 50, 1); 
        ITEM NLXNUM  U(0, 51, 9); 
        ITEM NLX     I(0, 0, 60); 
        END 
  
      XDEF ARRAY NEXP1; 
        BEGIN 
        ITEM NP1C    U(0, 45, 3); 
        ITEM NP1REC  B(0, 48, 1); 
        ITEM NP1B    U(0, 48, 6); 
        ITEM NP1A    U(0, 54, 6); 
        ITEM NP1     U(0, 0, 60); 
        END 
  
      XDEF ARRAY NEXP2; 
        BEGIN 
        ITEM NP2B    U(0, 45, 6);  # SECONDARY OVERLAY LEVEL           #
        ITEM NP2A    U(0, 51, 9);  # MIN LENGTH OF KEYWORD IN BITS     #
        ITEM NP2     U(0, 0, 60); 
        END 
  
      XDEF ARRAY NEXWORD [0:25] S(1);  # NEXT LEXICAL TOKEN            #
        BEGIN 
        ITEM INW     C(0, 0, 10);  # 10-CHAR ITEM                      #
        ITEM INWC    C(0, 0, 240); # MAX-SIZE CHAR ITEM                #
        ITEM INWI    I(0, 0, 60);  # INTEGER ITEM                      #
        ITEM INWR    R(0, 0, 60);  # REAL ITEM                         #
        END 
  
                                   # MISCELLANEOUS ITEMS AND ARRAYS    #
  
      XDEF ITEM BP      I;         # BIT PTR TO LAST CHAR ACCESSED IN  #
                                   # -QUIWSA-                          #
      XDEF ITEM KEYTEST B;
      XDEF ITEM LEXPTR  I;         # NEXT CHAR IN -CHARLIST- STACK     #
      XDEF ITEM PLBLPTRS     I;    # PTR TO -LBLPTRS- TABLE            #
                                   # ADDRESSES OF THE TABLES CONTAINING#
      XDEF ITEM PLEXICON     I;    # KEYWORD INFO                      #
      XDEF ITEM PLEXWORDS    I; 
      XDEF ITEM PSYNTBLE     I;    # ADDR OF -SYNTBLE- TABLE           #
      XDEF ITEM PSWVECTR     I;    # FWA OF SWITCH VECTOR              #
      XDEF ITEM RECDSIZE     I;    # TOTAL CHARS IN -CHARLIST- STACK   #
      XDEF ITEM STKPOINTER   I;    # NEXT AVAILABLE POSN IN -QUIWSA-   #
      XDEF ITEM WP      I;         # WORD PTR TO LAST CHAR ACCESSED IN #
                                   # -QUIWSA-                          #
      XDEF ITEM XRETURN I;         # USED FOR ERROR RETURN CODE. NON-  #
                                   # ZERO MEANS ERROR HAS OCCURRED.    #
  
                                   # CONTAINS QU-S SYNTAX INPUT, ONE   #
      XDEF ARRAY CHARLIST [99];    # CHAR PER WORD                     #
        BEGIN 
        ITEM LEXCHAR C(0, 0, 10); 
        END 
                                   # CONTAINS THE STATUS VALUE OF      #
      XDEF ARRAY SLIST [99];       # CORRESPONDING ENTRY IN -CHARLIST- #
        BEGIN 
        ITEM STATUSLIST S:QCHAR(0, 0, 60);
        END 
  
      XDEF ITEM ESTDEND I;         # END OF VALUES TO SAVE WHILE       #
                                   # PROCESSING -SAME- LIST            #
*IF DEF,DEBUG 
#**********************************************************************#
#     CARDS BETWEEN **** CARDS SHOULD BE PULLED FOR RELEASE.           #
      XDEF ITEM LINELMT = 200;     # LIMIT TO STD TRACE OUTPUT         #
      XDEF ITEM PTRACEM I;         # PTR TO TRACEM TABLE               #
  
      XREF ITEM TFLAG   I;         # 1 = PUT OUT TRACE                 #
#**********************************************************************#
*ENDIF
