* 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