; glue.a
;
; for PIV
;
; (c) Copyright 1991 J.E.Hanway
;
; glue routine for calling original AutoRequest
; for SAS asm.
;
; $Id: glue.a,v 1.1 91/03/13 22:35:40 jeh Exp $
;
; $Log:	glue.a,v $
; Revision 1.1  91/03/13  22:35:40  jeh
; Initial revision
; 
;

   CSECT text
   xref  _IntuitionBase
   xref  _real_AutoRequest
   
   xdef  _call_AutoRequest
   
_call_AutoRequest:
   movem.l  a5-a6,-(a7)
   movea.l  _IntuitionBase(a4),a6
   movea.l  _real_AutoRequest(a4),a5
   jsr      (a5)
   movem.l  (a7)+,a5-a6
   rts
   
   end