home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 492.lha / PIV_v1.0 / glue.a < prev    next >
Encoding:
Text File  |  1991-04-06  |  528 b   |  32 lines
  1. ; glue.a
  2. ;
  3. ; for PIV
  4. ;
  5. ; (c) Copyright 1991 J.E.Hanway
  6. ;
  7. ; glue routine for calling original AutoRequest
  8. ; for SAS asm.
  9. ;
  10. ; $Id: glue.a,v 1.1 91/03/13 22:35:40 jeh Exp $
  11. ;
  12. ; $Log:    glue.a,v $
  13. ; Revision 1.1  91/03/13  22:35:40  jeh
  14. ; Initial revision
  15. ; 
  16. ;
  17.  
  18.    CSECT text
  19.    xref  _IntuitionBase
  20.    xref  _real_AutoRequest
  21.    
  22.    xdef  _call_AutoRequest
  23.    
  24. _call_AutoRequest:
  25.    movem.l  a5-a6,-(a7)
  26.    movea.l  _IntuitionBase(a4),a6
  27.    movea.l  _real_AutoRequest(a4),a5
  28.    jsr      (a5)
  29.    movem.l  (a7)+,a5-a6
  30.    rts
  31.    
  32.    end