*COMDECK,QCB$COM
# 
      QUEUE CONTROL BLOCK - QCB 
            USE - TO CONTROL ACCESS TO QAC FROM RBF 
            SIZE - 3 WORDS
                                                                       #
      COMMON QCB$COM; 
      BEGIN                  # COMMON WITH BASED ARRAY POINTER OF QCB  #
  
      # IN QCB, THE BASED ARRAY BELOW, THERE ARE FIRST AND LAST QAB    #
      # ORDINALS WHICH SPECIFY FOUR QUEUES OF QAB-S  (A QAB IS A QAC   #
      # PARAMETER-BLOCK WITH A HEADER).  A QAB IS PLACED ON A PARTICU- #
      # LAR QUEUE ACCORDING TO WHETHER IT IS MEANT TO CAUSE A ONE-TIME #
      # DIVERT (AN "IMMEDIATE ACTION" QAB) OR LONG-TERM, PERIODIC      #
      # DIVERTS (AN "EXTENDED ACTION" QAB), AND WHETHER IT HAS ALREADY #
      # BEEN SUBMITTED TO QAC (ABBREVIATED "SUB", BELOW) OR IS WAITING #
      # TO BE SUBMITTED (ABBREVIATED "TBS", BELOW).                    #
  
      BASED ARRAY QCB S(QCB$SIZE);
        BEGIN                # QCB DEFINITIONS                         #
        ITEM QCB$COMPLETE B(0,0,1);    # COMPLETE BIT                  #
        ITEM QCB$EXTIME   B(0,11,1);   # TIME FOR EXTENDED DIVERT      #
        ITEM QCB$TIME     U(0,12,12);  # TIME (IN SECS) AT LAST SEARCH #
        ITEM QCB$EVENT    I(0,24,18);  # ADDRESS OF EVENT PROCESSOR    #
        ITEM QCB$LINK     I(0,42,18);  # ADDRESS OF MODULE TO LINK TO  #
        ITEM QCB$IMDTBSF  I(1,0,60);   # IMMEDIATE/TO-BE-SUBMITTD QAB-Q#
        ITEM QCB$IMDTBSL  I(2,0,60);
        ITEM QCB$IMDSUBF  I(3,0,60);   # IMMEDIATE/SUBMITTED QAB-QUEUE #
        ITEM QCB$IMDSUBL  I(4,0,60);
        ITEM QCB$EXTTBSF  I(5,0,60);   # EXTENDED/TO-BE-SUBMITTED QAB-Q#
        ITEM QCB$EXTTBSL  I(6,0,60);
        ITEM QCB$EXTSUBF  I(7,0,60);   # EXTENDED/SUBMITTED QAB-QUEUE  #
        ITEM QCB$EXTSUBL  I(8,0,60);
        END                  # QCB DEFINITIONS                         #
  
      END                    # QUEUE CONTROL BLOCK COMMON              #
