*COMDECK COMQTXT
# 
      COMQTXT - TEXT BUFFER DEFINITIONS.
# 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
      COMMON COMQTXT; 
        BEGIN 
        ITEM TXTBUF$EMP U = 0;     # POINTER TO EMPTY CHAIN # 
        ITEM TXTBUF$OVF U = 0;     # NUMBER OF OVERFLOW (CMM) BUFFERS # 
        ITEM TXTBUF$RES U = 0;     # NUMBER OF RESIDENT BUFFERS # 
        BASED ARRAY TXTBUF [0:0] S(LTXTBFW);
          BEGIN 
          ITEM TXTBUF$HDR U(00,00,60);  # BUFFER HEADER # 
          ITEM TXTBUF$CMM B(00,00,01);  # OVERFLOW BUFFER FLAG #
#                          (00,01,29)     UNUSED #
          ITEM TXTBUF$USE U(00,30,12);  # NUMBER OF CHARACTERS TO USE # 
          ITEM TXTBUF$LNK U(00,42,18);  # LINK TO NEXT BUFFER # 
          ITEM TXTBUF$TXT U(01,00,60);  # START OF TEXT # 
          END 
  
      END  # COMQTXT #
                                               CONTROL LIST;
