COMXCCB 
COMMON
  
#     COMXCCB - COPY CONTROL BLOCK.                                   # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXCCB #
  
# 
***   COMXCCB - COPY CONTROL BLOCK. 
* 
*     COMXCCB DEFINES THE STRUCTURE OF THE COPY CONTROL BLOCK 
*     AND DEFINES THE VALID COPY OPERATION CODES. 
# 
  
  
      DEF CCBLEN     #2#;            # COPY CONTROL BLOCK LENGTH #
  
      STATUS CPYC                    # COPY OPERATION CODES # 
        DISKAU,                      # COPY DISK TO AU-S #
        AUDISK,                      # COPY AU-S TO DISK #
        RAWAU,                       # COPY RAW AU-S TO DISK #
        ENDCPYC;                     # END OF COPY OPERATION CODES #
  
      BASED 
      ARRAY CCB [0:0] P(CCBLEN);     # COPY CONTROL BLOCK # 
        BEGIN 
        ITEM CCBOPCODE  U(00,00,06);  # OPERATION CODE #
        ITEM CCBDKFET   U(00,06,18);  # ADDRESS OF DISK FET # 
        ITEM CCBM86FET  U(00,24,18);  # ADDRESS OF M860 FET # 
        ITEM CCBLINK    U(00,42,18);  # CHAIN LINK #
        ITEM CCBCLFG    U(01,00,12);  # FLAGS # 
        ITEM CCBDKFLGS  U(01,00,06);  # DISK FLAGS #
        ITEM CCBDERR    B(01,00,01);  # DISK ERROR FLAG # 
        ITEM CCBDFULL   B(01,01,01);  # DISK FULL FLAG #
        ITEM CCBDEOI    B(01,02,01);  # END-OF-INFORMATION FLAG # 
        ITEM CCB1SSFLGS U(01,06,06);  # *1SS* FLAGS # 
        ITEM CCBTPMARK  B(01,06,01);  # TAPE MARK # 
        ITEM CCBENDVOL  B(01,07,01);  # END OF VOLUME # 
        ITEM CCBHDWPM   B(01,08,01);  # HARDWARE PROBLEM #
        ITEM CCBRWDULD  B(01,09,01);  # REWIND/UNLOAD COMPLETED # 
        ITEM CCBTAPPAR  B(01,10,01);  # TAPE PARITY ERROR # 
        ITEM CCPPUDCK   B(01,11,01);  # PPU DATA CHECK #
        ITEM CCBRWCT    I(01,12,03);  # REWIND/UNLOAD COUNT # 
        ITEM CCBLLRQ    U(01,42,18);  # ADDRESS OF *LLRQ* ENTRY # 
        END 
  
      END  # COMXCCB #
  
                                               CONTROL LIST;
