*COMDECK OPMACS                                                          OPMACS 
          PURGMAC  NULL 
 NULL     MACRO                                                          OPMACS 
 NULL     EQU    0                                                       OPMACS 
 NULL      ENDM                                                          OPMACS 
          PURGMAC  STATUS 
 STATUS   MACRO  NAME                                                    OPMACS 
 I#       SET    1                                                       OPMACS 
 STATUS   ENDM                                                           OPMACS 
  
1         IF -DEF,#COMMA
 ,        MACRO  NAME 
          COMMA  NAME 
 ,        ENDM
 #COMMA   EQU    0
1         ENDIF 
  
          PURGMAC  COMMA
 COMMA    MACRO  NAME 
          IFC    NE,*NAME**,1 
 NAME     EQU    I# 
 I#       SET    I#+1 
 COMMA    ENDM
  
 ;        OPSYN   NIL 
