home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / e / amigae30a.lha / Amiga_E_v3.0a / Src / Tools / Hook / installhook.e < prev   
Encoding:
Text File  |  1992-09-02  |  386 b   |  23 lines
  1. OPT MODULE
  2.  
  3. EXPORT PROC installhook(hook,func)
  4.   MOVE.L  hook,A0
  5.   MOVE.L  func,12(A0)
  6.   LEA     hookentry(PC),A1
  7.   MOVE.L  A1,8(A0)
  8.   MOVE.L  A4,16(A0)
  9.   MOVE.L  A0,D0
  10. ENDPROC D0
  11.  
  12. hookentry:
  13.   MOVEM.L D2-D7/A2-A6,-(A7)
  14.   MOVE.L  16(A0),A4
  15.   MOVE.L  A0,-(A7)
  16.   MOVE.L  A2,-(A7)
  17.   MOVE.L  A1,-(A7)
  18.   MOVE.L  12(A0),A0
  19.   JSR     (A0)
  20.   LEA     12(A7),A7
  21.   MOVEM.L (A7)+,D2-D7/A2-A6
  22.   RTS
  23.