*COMDECK DIRTBLM
#     DIRECTIVE VALUE TABLE FOR MESSAGE PROCESSING                     #
  
      COMMON DIRTBLM; 
        BEGIN 
        ITEM DIRNUMM  I;     # NUMBER OF DIRECTIVES IN DIRTBM          #
        ARRAY DIRTBM [1:4]; 
          BEGIN 
          ITEM DIRMVAL       U(0,0,42); # DIRECTIVE VALUE              #
          ITEM DIRMID        I(0,42,18);# DIRECTIVE ID                 #
          ITEM DIRMWD        I(0,0,60); # DIRECTIVE WORD               #
          END 
        END 
  
