home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / Src / Tools / Hook / installhook.e < prev   
Text File  |  1992-09-02  |  386b  |  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.