*   cmda.asm  --- assembler interface for BeginIO fooling around

   INCLUDE   'exec/types.i'
   INCLUDE	'my-macros.i'

   XREF   _OldBeginIO
   XREF   _cBeginIO
   XDEF   _aBeginIO
   XDEF   _aExpunge

   CODE

_aBeginIO:
   movem.l d0-d7/a0-a6,-(SP)         ;save registers
   move.l  a1,-(SP)            ;push ptr to io request
   jsr     _cBeginIO
   ADDQ.L  #4,SP
   movem.l (SP)+,d0-d7/a0-a6         ;restore registers
   move.l  _OldBeginIO,a0      ;continue to real BeginIO
   jmp     (a0)

_aExpunge:
   MOVEQ   #0,D0 ;not this baby! 
   rts		

   END