Common COMXCCB

1 Modification
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comxccb +++|
00002  M01S00002.comxccb +++|#     COMXCCB - COPY CONTROL BLOCK.                                   #
00003  M01S00003.comxccb +++|                                               CONTROL NOLIST;
00004  M01S00004.comxccb +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comxccb +++|                                               CONTROL LIST;
00006  M01S00006.comxccb +++|                                               CONTROL FI;
00007  M01S00007.comxccb +++|      BEGIN  # COMXCCB #
00008  M01S00008.comxccb +++|
00009  M01S00009.comxccb +++|#
00010  M01S00010.comxccb +++|***   COMXCCB - COPY CONTROL BLOCK.
00011  M01S00011.comxccb +++|*
00012  M01S00012.comxccb +++|*     COMXCCB DEFINES THE STRUCTURE OF THE COPY CONTROL BLOCK
00013  M01S00013.comxccb +++|*     AND DEFINES THE VALID COPY OPERATION CODES.
00014  M01S00014.comxccb +++|#
00015  M01S00015.comxccb +++|
00016  M01S00016.comxccb +++|
00017  M01S00017.comxccb +++|      DEF CCBLEN     #2#;            # COPY CONTROL BLOCK LENGTH #
00018  M01S00018.comxccb +++|
00019  M01S00019.comxccb +++|      STATUS CPYC                    # COPY OPERATION CODES #
00020  M01S00020.comxccb +++|        DISKAU,                      # COPY DISK TO AU-S #
00021  M01S00021.comxccb +++|        AUDISK,                      # COPY AU-S TO DISK #
00022  M01S00022.comxccb +++|        RAWAU,                       # COPY RAW AU-S TO DISK #
00023  M01S00023.comxccb +++|        ENDCPYC;                     # END OF COPY OPERATION CODES #
00024  M01S00024.comxccb +++|
00025  M01S00025.comxccb +++|      BASED
00026  M01S00026.comxccb +++|      ARRAY CCB [0:0] P(CCBLEN);     # COPY CONTROL BLOCK #
00027  M01S00027.comxccb +++|        BEGIN
00028  M01S00028.comxccb +++|        ITEM CCBOPCODE  U(00,00,06);  # OPERATION CODE #
00029  M01S00029.comxccb +++|        ITEM CCBDKFET   U(00,06,18);  # ADDRESS OF DISK FET #
00030  M01S00030.comxccb +++|        ITEM CCBM86FET  U(00,24,18);  # ADDRESS OF M860 FET #
00031  M01S00031.comxccb +++|        ITEM CCBLINK    U(00,42,18);  # CHAIN LINK #
00032  M01S00032.comxccb +++|        ITEM CCBCLFG    U(01,00,12);  # FLAGS #
00033  M01S00033.comxccb +++|        ITEM CCBDKFLGS  U(01,00,06);  # DISK FLAGS #
00034  M01S00034.comxccb +++|        ITEM CCBDERR    B(01,00,01);  # DISK ERROR FLAG #
00035  M01S00035.comxccb +++|        ITEM CCBDFULL   B(01,01,01);  # DISK FULL FLAG #
00036  M01S00036.comxccb +++|        ITEM CCBDEOI    B(01,02,01);  # END-OF-INFORMATION FLAG #
00037  M01S00037.comxccb +++|        ITEM CCB1SSFLGS U(01,06,06);  # *1SS* FLAGS #
00038  M01S00038.comxccb +++|        ITEM CCBTPMARK  B(01,06,01);  # TAPE MARK #
00039  M01S00039.comxccb +++|        ITEM CCBENDVOL  B(01,07,01);  # END OF VOLUME #
00040  M01S00040.comxccb +++|        ITEM CCBHDWPM   B(01,08,01);  # HARDWARE PROBLEM #
00041  M01S00041.comxccb +++|        ITEM CCBRWDULD  B(01,09,01);  # REWIND/UNLOAD COMPLETED #
00042  M01S00042.comxccb +++|        ITEM CCBTAPPAR  B(01,10,01);  # TAPE PARITY ERROR #
00043  M01S00001.common1 +++|        ITEM CCPPUDCK   B(01,11,01);  # PPU DATA CHECK #
00044  M01S00043.comxccb +++|        ITEM CCBRWCT    I(01,12,03);  # REWIND/UNLOAD COUNT #
00045  M01S00044.comxccb +++|        ITEM CCBLLRQ    U(01,42,18);  # ADDRESS OF *LLRQ* ENTRY #
00046  M01S00045.comxccb +++|        END
00047  M01S00046.comxccb +++|
00048  M01S00047.comxccb +++|      END  # COMXCCB #
00049  M01S00048.comxccb +++|
00050  M01S00049.comxccb +++|                                               CONTROL LIST;