.NLIST
  .INCLUDE /DISK$HUNTA:[MACROS]MACROS.MAC/
  .INCLUDE /MAC11.MAC/
.LIST

MODULE NAME=<MROOT>, REL=<V05>, VER=<05>, COMM=<MACRO-11 for RSX>, TYPE=<MAC11>

  EXPORT QUALIFIED $STKAD, $STKGD
  EXPORT QUALIFIED CTLTBL
  EXPORT QUALIFIED OBJFIL, LSTFIL, PASSSW, $LSTVZ

  EXPORT QUALIFIED MACRO,  RESTRT, CONT

  FROM UNKNOWN IMPORT $OPTER
  FROM UNKNOWN IMPORT MACP1
  FROM UNKNOWN IMPORT ASSEM
  FROM UNKNOWN IMPORT MACP2
  FROM UNKNOWN IMPORT HSHPST
  FROM UNKNOWN IMPORT MACINI
  FROM UNKNOWN IMPORT FINP1
  FROM UNKNOWN IMPORT SETDN
  FROM UNKNOWN IMPORT $INOFL
  FROM UNKNOWN IMPORT ENDP1
  FROM UNKNOWN IMPORT ENDP2
  FROM UNKNOWN IMPORT SETTIM

  .PSECT MIXED,D

    $STKAD: .BLKW
    $STKGD: .BLKW

  PROCEDURE MACRO
  BEGIN
    LET $STKAD := SP

  ENTRY CONT

    LET  SP := $STKAD
    CALL MACINI
    LET R0 := #CTLTBL
    LOOP
      LET  R1 := (R0)+
      PUSH R0
      CALL (R1)
      POP  R0
    END

  END MACRO

  PROCEDURE RESTRT
  BEGIN
    CALL $OPTER
    GOTO CONT
  END RESTRT

  .PSECT DPURE,RO,D

    CTLTBL:
      .WORD $INOFL
      .WORD SETTIM
      .WORD ASSEM
      .WORD HSHPST
      .WORD MACP1
      .WORD FINP1
      .WORD ENDP1
      .WORD MACP2
      .WORD ENDP2
      .WORD SETDN

  .PSECT IMPURE,D

    PASSSW: .BLKW
    LSTFIL: .BLKB
    OBJFIL: .BLKB
    $LSTVZ: .BLKW

END MROOT

.END MACRO