*COMDECK DEFMACRO 
**        DEF - ACCEPT THE SYMPL DEF STATEMENT. 
* 
*              THIS MACRO ACCEPTS THE FOLLOWING SYMPL STATEMENT:  
* 
*         DEF    NAME#INTEGER#; 
* 
*         WHERE *NAME* IS ONE TO EIGHT CHARACTERS, THE FIRST
*         OF WHICH MUST BE ALPHABETIC.  *INTEGER* IS A STRING 
*         OF DIGITS.  THE DELIMITERS # AND ; MUST BE USED AS SHOWN. 
*         NO BLANKS ARE ALLOWED BETWEEN *NAME* AND THE SEMICOLON. 
*         THE MACRO TRANSFORMS THE SYMPL STATEMENT INTO THE 
*         FOLLOWING COMPASS STATEMENT:  
* 
*         NAME   EQU    INTEGER 
  
          PURGMAC DEF 
          NOREF  N. 
  
 DEF      MACRO  P
 S        MICRO  1,,#_P_# 
 N.       MICCNT S
* 
          IFGT   N.,8,1 
          ERR    DEF NAME MUST NOT EXCEED EIGHT CHARACTERS. 
* 
 T        MICRO  N.+2,, P 
 T        MICRO  1,,#"T"# 
 "S"      EQU    "T"
          ENDM
