COMTCTW 
COMMON
  
#     COMTCTW - CATALOG SECTOR CONTROL WORD DESCRIPTION.              # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMTCTW #
  
# 
***   COMTCTW - CATALOG SECTOR CONTROL WORD DESCRIPTION.
* 
*     COMTCTW CONTAINS A DESCRIPTION OF THE CONTROL WORD
*     RETURNED WITH THE PERMANENT FILE CATALOG SECTOR.
# 
  
  
      COMMON TCTWCOM; 
  
        BEGIN  # TCTWCOM #
  
        BASED 
        ARRAY CNTRWORD [0:0] P(1);   # CONTROL WORD # 
          BEGIN 
          ITEM CNTR$DN    U(00,00,06);  # DEVICE NUMBER # 
          ITEM CNTR$EQ    U(00,24,12);  # EQUIPMENT NUMBER #
          ITEM CNTR$TRK   U(00,36,12);  # TRACK NUMBER #
          ITEM CNTR$SEC   U(00,48,12);  # SECTOR NUMBER # 
          END 
  
        END  # TCTWCOM #
  
      END  # COMTCTW #
  
                                               CONTROL LIST;
