home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / gcc / libnixV0_8.lha / gnu / libnix-sources.lha / sources / amiga / misc / CallHook.c < prev    next >
Encoding:
Text File  |  1994-12-12  |  312 b   |  24 lines
  1. asm("
  2.         .text
  3.  
  4.         .globl    _CallHook
  5.         .globl    _CallHookA
  6.  
  7. _CallHook:    lea    sp@(12:W),a1
  8.         jra    L_CallHook
  9.  
  10. _CallHookA:    movel    sp@(12:W),a1
  11.  
  12. L_CallHook:    movel    a6,sp@-
  13.         movel    a2,sp@-
  14.         movel    sp@(12:W),a0
  15.         movel    sp@(16:W),a2
  16.         jbsr    L_callit
  17.         movel    sp@+,a2
  18.         movel    sp@+,a6
  19.         rts
  20.  
  21. L_callit:    movel    a0@(8:W),sp@-
  22.         rts
  23. ");
  24.