;
;	File:		GetPhysical.a
;
;	Contains:	VM glue
;
;	Written by:
;
;	Copyright:	© 1992 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <1>	 6/24/92	chp		first checked in
;		 <1>	 6/17/92	RB		first checked in
;
;


GETPHYSICAL	PROC		EXPORT

			MOVE.L     (A7)+,D1
			MOVE.L     (A7)+,D2
			MOVEA.L    D2,A1
			MOVEA.L    (A1),A1
			MOVEA.L    (A7)+,A0
			MOVEQ      #$05,D0
			DC.W       $A15C               ; _MemoryDispatchA0Result
			MOVE.W     D0,(A7)
			MOVEA.L    D2,A1
			MOVE.L     A0,(A1)
			MOVEA.L    D1,A1
			JMP        (A1)

			ENDP



			END