*COMDECK DEF
  
**        DEF -  EXTRACT COMPASS VALUE FROM *DEF* STATEMENT 
* 
*         DEF  #NAME# 
*               NAME   #VALUE# ;
* 
*         EFFECTIVELY DOES- 
* NAME    EQU    VALUE
  
  
          PURGMAC  DEF
 DEF      MACRO  QNAMEQ 
 M1       MICRO  1,,QNAMEQ
 "M1"     MACRO  QVALUEQ
 M2       MICRO  1,,QVALUEQ 
          IFC    EQ,#"M2"##,1 
          ERR    *DEF* PARAMETER MUST BEGIN IN COL. 29        "SEQUENCE"
*  NOTE THAT "M1" BELOW IS SUBSTITUTED AT MACRO EXPANSION RATHER THAN 
*  MACRO DEFINITION.  BUT WITH PROPER CALLING FORM,  IT DOES NOT MATTER.
 "M1"     EQU    "M2" 
          PURGMAC  "M1" 
*  BELOW *ENDM* TERMINATES BOTH MACRO DEFINITIONS 
          ENDM
  
