mac-rom/Libs/InterfaceSrcs/GetPhysical.a

38 lines
597 B
Plaintext
Raw Normal View History

;
; File: GetPhysical.a
;
; Contains: VM glue
;
; Written by:
;
; Copyright: <09> 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