; 00002
.INCLUDE "LB:[MACROS]MACROS.MAC"
.INCLUDE "C.MAC"

MODULE EMT, VER=01, COMM=<>

  FROM SYSMAC	    IMPORT DIR$
  FROM SYSLIB.VCTDF IMPORT $DSW

  EXPORT QUALIFIED EMT

  PROCEDURE EMT
  BEGIN
    POP  R1
    MOV  SP, R0
    DIR$
    MOV  R0, SP
    MOV  $DSW,R0
    JMP  (R1)
  END EMT

END EMT

.END