*COMDECK  DRHDR 
# 
                    TEMPLATE FOR DATA RING HEADER WORD
                             P<DRHDRWD> = 0 
# 
  BASED ARRAY DRHDRWD P(1); 
    BEGIN 
    ITEM BLKID   U(0,0,6);   # BLOCK ID                                #
    ITEM BLKBS   I(0,6,AL);  # BLOCK SIZE                              #
    ITEM DRID    U(0,0,6);   # DATA BLOCK ID                           #
    ITEM DRBS    I(0,6,AL);  # DATA BLOCK SIZE                         #
    ITEM BACKPTR I(00,24,18);# BACK POINTER-FWA OF LAST BLOCK          #
    ITEM NEXTPTR I(00,42,18);# NEXT POINTER-FWA OF NEXT BLOCK          #
    ITEM CMWORD  U(0,0,60);  # OME WORD                                #
    ITEM CMSIGN  B(0,0,1);  #  SIGN BIT    #
    END 
  
# 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
# 
