home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / comm / misc / elcheapofax / rcs / hook.asm,v < prev    next >
Text File  |  1993-12-21  |  783b  |  59 lines
  1. head    1.2;
  2. access;
  3. symbols
  4.     OCT93:1.2;
  5. locks;
  6. comment    @;; @;
  7.  
  8.  
  9. 1.2
  10. date    93.06.11.16.33.37;    author Rhialto;    state Exp;
  11. branches;
  12. next    1.1;
  13.  
  14. 1.1
  15. date    93.06.11.14.53.53;    author Rhialto;    state Exp;
  16. branches;
  17. next    ;
  18.  
  19.  
  20. desc
  21. @Callback stub, standard version
  22. @
  23.  
  24.  
  25. 1.2
  26. log
  27. @First real RCS checkin
  28. @
  29. text
  30. @;; $Id$
  31. ;; $Log$
  32.     XDEF    _HookEntry
  33.  
  34.     section text,code
  35. h_SubEntry EQU    12
  36.  
  37. _HookEntry:
  38.     move.l    a6,-(sp)
  39.     move.l    a1,-(sp)                ; push message packet pointer
  40.     move.l    a2,-(sp)                ; push object pointer
  41.     move.l    a0,-(sp)                ; push hook pointer
  42.     move.l    h_SubEntry(a0),a0       ; fetch C entry point ...
  43.     jsr    (a0)                    ; ... and call it
  44.     lea    12(sp),sp               ; fix stack
  45.     move.l    (sp)+,a6
  46.     rts
  47.  
  48.     end
  49. @
  50.  
  51.  
  52. 1.1
  53. log
  54. @Initial revision
  55. @
  56. text
  57. @d1 2
  58. @
  59.