*BEGIN IODMAC3
          SPACE  5
** COMMON PP ROUTINE AID MACROS
          SPACE  2
** MACRO TO DEFINE A SUBROUTINE ENTRY POINT TO BE CALLED BY RJM NAME
          PURGMAC  SUBR
          MACRO  SUBR,NAME
QQQ$RET   SET    *
          LJM    *
          ORG    *-1
NAME      DATA   0
          ENDM
          SPACE  5
** MACRO TO EXECUTE A RETURN FROM A SUBROUTINE
** IT MUST FOLLOW A SUBR DECLARATION
          PURGMAC  RETURN
RETURN    MACRO
M         IFGT   *-QQQ$RET,37B
          LJM    QQQ$RET
M         ELSE
          UJN    QQQ$RET
M         ENDIF
          ENDM
          SPACE  5
** MACRO TO PROVIDE QUALIFIED SYMBOL DEFINITION (HEX)
**  NAME=NAME TO QUALIFY IN DEFINITION
**  QUAL=QUALIFIES NAME
**  VALUE=HEX DIGIT STRING (0-9,A-F)
          SPACE  3
          MACRO  SYMDEFH,NAME,QUALS,VALUE
          QUAL   QUALS
NAME      EQU    0#_VALUE
          QUAL   *
          ENDM
          SPACE  5
** MACRO TO PROVIDE QUALIFIED SYMBOL DEFINITION (DEFAULT BASE)
** NAME=NAME TO QUALIFY IN DEFINITION
** QUALS=QUALIFIES NAME
** VALUE=DIGIT STRING (OCTAL OR DECIMAL OR HEX)
          SPACE  3
          MACRO  SYMDEF,NAME,QUALS,VALUE
          QUAL   QUALS
NAME      EQU    VALUE
          QUAL   *
          ENDM


* END IODMAC3
