SECTION "code",CODE

        xref    _ReqToolsBase

        xdef    _rtSetWaitPointer

_rtSetWaitPointer:
        move.l  a6,-(a7)
        move.l  _ReqToolsBase(a4),a6
        move.l  8(a7),a0
        jsr     -114(a6)
        move.l  (a7)+,a6
        rts

   END