COMBCHN 
COMMON
  
#     COMBCHN - CHAIN LINKAGE DECLARATIONS.                           # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMBCHN #
  
# 
***   COMBCHN - CHAIN LINKAGE DECLARATIONS. 
* 
*     COMBCHN DEFINES THE CHAIN TYPES USED BY *SSEXEC*
*     AND CONTAINS POINTERS TO THE BEGINNING AND END OF EACH CHAIN. 
# 
  
  
      STATUS LCHN                    # LINKAGE CHAINS # 
        HL$DELAY,                    # HLRQ DELAY CHAIN # 
        HL$FRSPC,                    # HLRQ FREE SPACE CHAIN #
        HL$READY,                    # HLRQ READY CHAIN # 
        HL$PFMWAIT,                  # WAIT LOAD OF OVERLAY 3 OR 4 #
        HL$DRDRESW,                  # HLRQ WAITTING DRD RESERVATION #
        HL$ACTV,                     # HLRQ ACTIVE CHAIN #
        LL$DELAY,                    # LLRQ DELAY CHAIN # 
        LL$FRSPC,                    # LLRQ FREE SPACE CHAIN #
        LL$READY,                    # LLRQ READY CHAIN # 
        LL$LGBUF,                    # LLRQ WAITING FOR LARGE BUFFER #
        FCT$ACT,                     # FCTQ ACTIVE CHAIN #
        FCT$FRSPC,                   # FCTQ FREE SPACE CHAIN #
        RTD$ACT,                     # RTDQ ACTIVE CHAIN #
        RTD$FRSPC,                   # RTDQ FREE SPACE CHAIN #
        KC$GOING,                    # KEEP *CIO* GOING CHAIN # 
        DRQUEUE,                     # DRIVER REQUEST QUEUE # 
        END$LCHN;                    # END OF LINKAGE CHAINS #
  
      BASED 
      ARRAY LINKWRD [0:0] P(1);      # WORD CONTAINING CHAIN LINKAGE #
        BEGIN 
        ITEM LINK$ADR   U(00,42,18);  # ADDRESS OF NEXT CHAIN ENTRY # 
        END 
  
      COMMON BCHNCOM; 
  
        BEGIN 
        ARRAY CHNPTRS [0:LCHN"END$LCHN"] P(1);  # CHAIN POINTERS #
          BEGIN 
          ITEM CHN$EOC    U(00,24,18);  # END OF CHAIN POINTER #
          ITEM CHN$BOC    U(00,42,18);  # BEGINNING OF CHAIN POINTER #
          END 
  
        END 
  
      END  # COMBCHN #
  
                                               CONTROL LIST;
