*COMDECK TXTCOM 
          CONTROL NOLIST;    #TXTCOM# 
  
#----------------------------------------------------------------------#
#                                                                      #
#     C O M D E C K   T X T C O M                                      #
#                                                                      #
#     TXTCOM CONTAINS THE ARRAY DECLARATION FOR THE SYMPL TEXT         #
#     CONTROL TABLE.  TXTCOM IS *CALLED BY GENTEXT AND USETEXT.        #
#                                                                      #
#----------------------------------------------------------------------#
  
  
  
      XDEF ARRAY TCT [0:0] P(L$TCT);     # TEXT CONTROL TABLE          #
        BEGIN 
        ITEM TCT$L        I(000,00,60);  # TCT LENGTH                  #
        ITEM TCTTNAME     C(001,00,07);  # TCT TEXT NAME               #
        ITEM TCTHASH      I(002,24,18);  # TCT HASH TABLE              #
        ITEM TCTSPLC      I(130,00,60);  # TCT FIRST SLC POINTER       #
        ITEM TCTXPLC      I(131,00,60);  # TCT EXTERNAL SLC POINTER    #
        ITEM TCTESPLC     I(132,00,60);  # TCT LAST SLC POINTER        #
        ITEM TCTNONAM     I(133,00,60);  # TCT NONAME POINTER          #
        ITEM TCTLENT      I(134,00,18);  # TCT LENT FROM DATA SLC      #
        ITEM TCTBABY      I(134,42,18);  # TCT BABY FROM DATA SLC      #
        END 
  
      ARRAY [0:0] P(1);            # TEXT TABLE ORIGIN AND LENGTH DESC #
        BEGIN 
        ITEM TTOL   I(00,00,60);   # ITEM FOR FULLWORD ACCESS          #
        ITEM TTORIG I(00,00,18);   # TEXT TABLE ORIGIN                 #
        ITEM TTLEN  I(00,42,18);   # TEXT TABLE LENGTH                 #
        END 
  
      ARRAY [0:QCLAS"QCLAS$"] S(1); 
        BEGIN 
        ITEM ENTRY$W I(00,00,60) =       # SYMBOL TABLE ENTRY LENGTHS  #
         [0     ,                  # NULL                              #
          0     ,                        # NAME$W IS CALCULATED        #
          DATA$W, 
          ARRY$W, 
          TABL$W, 
          CONS$W, 
          TEMP$W, 
          LABL$W, 
          CLOS$W, 
          PROC$W, 
          FUNC$W, 
          SWCH$W, 
          FILE$W, 
          EMPT$W, 
          OVER$W, 
          DUMY$W, 
          PROG$W, 
          DEF$W , 
          SLC$W , 
          STRG$W, 
          INSC$W, 
          MON$W , 
          BPAR$W, 
          TITM$W, 
          SCON$W, 
          COMM$W, 
          FPAR$W, 
          STSL$W, 
          VALU$W, 
          0,                       # SNAM$W IS COMPUTED LIKE NAME      #
          ADCN$W, 
          0     ,                  # DTXT$W IS CALCULATED              #
          TEXT$W];
        END 
  
          CONTROL LIST;      #TXTCOM# 
