home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / comm / misc / elcheapofax / rcs / hook.s,v < prev    next >
Text File  |  1993-12-21  |  725b  |  56 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, gcc version
  22. @
  23.  
  24.  
  25. 1.2
  26. log
  27. @First real RCS checkin
  28. @
  29. text
  30. @| $Id$
  31. | $Log$
  32.     .text
  33.     .globl    _HookEntry
  34. h_SubEntry =  12
  35.  
  36. _HookEntry:
  37.     movl    a6,sp@@-
  38.     movl    a1,sp@@-            | ; push message packet pointer
  39.     movl    a2,sp@@-            | ; push object pointer
  40.     movl    a0,sp@@-            | ; push hook pointer
  41.     movl    a0@@(h_SubEntry),a0     | ; fetch C entry point ...
  42.     jsr    a0@@               | ; ... and call it
  43.     lea    sp@@(12),sp             | ; fix stack
  44.     movl    sp@@+,a6
  45.     rts
  46. @
  47.  
  48.  
  49. 1.1
  50. log
  51. @Initial revision
  52. @
  53. text
  54. @d1 2
  55. @
  56.