COMXBST 
COMMON
  
#     COMXBST - BUFFER STATUS TABLES.                                 # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXBST #
  
# 
***   COMXBST - BUFFER STATUS TABLES. 
* 
*     COMXBST CONTAINS THE BUFFER STATUS TABLES WHICH CONTROL 
*     USAGE OF A POOL OF LARGE BUFFERS.  THE LARGE BUFFERS ARE
*     USED IN TRANSFERRING FILES TO AND FROM  A M860.  A LARGE BUFFER 
*     CONTAINS THE COPY CONTROL BLOCK, DISK FET, 1SS FET, DATA
*     BUFFER AND LABEL BUFFER.
# 
  
  
      DEF BSTENTL    #2#;            # *BST* ENTRY LENGTH # 
      DEF DATABL     #O"6501"#;      # DATA BUFFER LENGTH # 
  
      COMMON XBSTCOM; 
  
        BEGIN  # XBSTCOM #
  
        ITEM BSTL       I;           # NUMBER OF *BST* ENTRIES #
  
        BASED 
        ARRAY BST [1:1] S(BSTENTL);  # LARGE BUFFER STATUS TABLE #
          BEGIN 
          ITEM BST$FLGS   U(00,00,06);  # FLAGS # 
          ITEM BST$AUTH   B(00,00,01);  # BUFFER AUTHORIZED FLAG #
          ITEM BST$ACQD   B(00,01,01);  # BUFFER ACQUIRED FLAG #
          ITEM BST$BUSY   B(00,02,01);  # BUFFER BUSY FLAG #
          ITEM BST$CCB    U(00,06,18);  # ADDRESS OF *CCB* #
          ITEM BST$REQA   U(00,24,18);  # ADDRESS OF REQUEST #
          ITEM BST$DATA   U(00,42,18);  # ADDRESS OF DATA BUFFER #
          ITEM BST$M86F   U(01,06,18);  # ADDRESS OF M860 FET # 
          ITEM BST$DISKF  U(01,24,18);  # ADDRESS OF DISK FET # 
          ITEM BST$LABL   U(01,42,18);  # ADDRESS OF LABEL BUFFER # 
          END 
  
  
        END  # XBSTCOM #
  
      END  # COMXBST #
  
                                               CONTROL LIST;
