home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d074 / control.lha / Control / ctrl.asm < prev    next >
Encoding:
Assembly Source File  |  1987-05-07  |  561 b   |  27 lines
  1. *   cmda.asm  --- assembler interface for BeginIO fooling around
  2.  
  3.    INCLUDE   'exec/types.i'
  4.    INCLUDE    'my-macros.i'
  5.  
  6.    XREF   _OldBeginIO
  7.    XREF   _cBeginIO
  8.    XDEF   _aBeginIO
  9.    XDEF   _aExpunge
  10.  
  11.    CODE
  12.  
  13. _aBeginIO:
  14.    movem.l d0-d7/a0-a6,-(SP)         ;save registers
  15.    move.l  a1,-(SP)            ;push ptr to io request
  16.    jsr     _cBeginIO
  17.    ADDQ.L  #4,SP
  18.    movem.l (SP)+,d0-d7/a0-a6         ;restore registers
  19.    move.l  _OldBeginIO,a0      ;continue to real BeginIO
  20.    jmp     (a0)
  21.  
  22. _aExpunge:
  23.    MOVEQ   #0,D0 ;not this baby! 
  24.    rts        
  25.  
  26.    END
  27.