home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d095 / cmd.lha / Cmd / Cmda.asm < prev    next >
Encoding:
Assembly Source File  |  1987-08-23  |  926 b   |  50 lines
  1.  
  2. *   cmda.asm  --- assembler interface for Cmd.c
  3. *                 Carolyn Scheppner --- CBM  05/87
  4.  
  5.    INCLUDE   'exec/types.i'
  6.  
  7.    XREF   _AbsExecBase
  8.    XREF   _MyBeginIO
  9.    XREF   _MyClose
  10.    XREF   _RealClose
  11.  
  12.    XDEF   _myBeginIO
  13.    XDEF   _myClose
  14.    XDEF   _myExpunge
  15.  
  16.    CODE
  17.  
  18.  
  19. _myBeginIO:
  20.    movem.l d0-d7/a0-a6,-(a7)   ;save registers
  21.  
  22.    move.l  a1,-(a7)            ;push ptr to io request
  23.    jsr     _MyBeginIO
  24.    addq.l  #4,a7
  25.  
  26.    movem.l (a7)+,d0-d7/a0-a6   ;restore registers
  27.    rts
  28.  
  29.  
  30. _myClose:
  31.    movem.l d0-d7/a0-a6,-(a7)   ;save registers
  32.  
  33.    move.l  a1,-(a7)            ;push ptr to io request
  34.    jsr     _MyClose
  35.    addq.l  #4,a7
  36.  
  37.    movem.l (a7)+,d0-d7/a0-a6   ;restore registers
  38.  
  39.    move.l  _RealClose,a0       ;continue to real Close
  40.    jmp     (a0)
  41.  
  42.  
  43. _myExpunge:
  44.    moveq.l #0,d0               ;means unable to expunge
  45.    rts                         ;keep changed device from being expunged
  46.  
  47.    END
  48.  
  49.  
  50.