*DECK RMDXFIT 
          IDENT     RM$XFIT 
          COMMENT   CRM KEY WORD MICRO TABLE FOR FIT DUMP.
          SST 
          SPACE     1 
 XPAND2   MACRO     A,B,N,C,D,E 
          VFD       36/0L_A,6/B,6/C+1,6/60-E-D,6/D
 XPAND2   ENDM
          SPACE     2 
* CALL /KWMTAB/ 
*CALL /KWMTAB/
          SPACE     2 
 MICRO    OPSYN     FIELD 
          SPACE     1 
* CALL /KWMG/ 
          LIST      -L
*CALL /KWMG/
          LIST      * 
 DEV      IF        DEF,#DEV# 
* CALL /KWML/ 
          LIST      -L
*CALL /KWML/
          LIST      * 
 DEV      ENDIF 
          PURGMAC   MICRO 
          SYMSRT
          DATA      "TCM."B 
          ENTRY     RM$XFIT 
 RM$XFIT  BSS       0 
          FITTAB
          END 
