*COMDECK DIRTBL 
#     IDENTIFICATION CODE FOR DIRECTIVES                               #
  
      DEF ID$NM#1#;          # ID FOR NM= DIRECTIVE                    #
      DEF ID$ET#2#;          # ID FOR ET= DIRECTIVE                    #
      DEF ID$BT#3#;          # ID FOR BT= DIRECTIVE                    #
      DEF ID$ED#4#;          # ID FOR ED= DIRECTIVE                    #
      DEF ID$BD#5#;          # ID FOR BD= DIRECTIVE                    #
      DEF ID$N#6#;           # ID FOR N DIRECTIVE                      #
      DEF ID$B#7#;           # ID FOR B DIRECTIVE                      #
      DEF ID$C#8#;           # ID FOR C DIRECTIVE                      #
      DEF ID$F#9#;           # ID FOR F DIRECTIVE                      #
      DEF ID$P#10#;          # ID FOR P DIRECTIVE                      #
      DEF ID$T#11#;          # ID FOR T DIRECTIVE                      #
      DEF ID$U#12#;          # ID FOR U DIRECTIVE                      #
      DEF ID$X#13#;          # ID FOR X DIRECTIVE                      #
      DEF ID$DN#14#;         # ID FOR DN= DIRECTIVE                    #
      DEF ID$SN#15#;         # ID FOR SN= DIRECTIVE                    #
      DEF ID$CN#16#;         # ID FOR CN= DIRECTIVE                    #
      DEF ID$E#17#;          # ID FOR E DIRECTIVE                      #
      DEF ID$R#18#;          # ID FOR R DIRECTIVE                      #
      DEF ID$PF#19#;         # ID FOR PF= DIRECTIVE                    #
      DEF ID$PS#20#;         # ID FOR PS= DIRECTIVE                    #
      DEF ID$SM#21#;         # ID FOR SM= DIRECTIVE                    #
      DEF ID$LE#22#;         # ID FOR LE= DIRECTIVE                    #
  
      COMMON DIRTBL;
        BEGIN 
        ARRAY DIRTB [1:DIRNO];#DIRECTIVES VALUE TABLE                  #
          BEGIN 
          ITEM DIRVALU       U(0,0,42);        # DIRECTIVE VALUE       #
          ITEM DIRID         I(0,42,18);       # DIRECTIVE ID          #
          ITEM DIRWD0        I(0,0,WL)         # DIRECTIVE WORD        #
                             =[DIRNO(0)]; 
          END 
        END 
  
