mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-28 03:29:17 +00:00
38 lines
598 B
Plaintext
38 lines
598 B
Plaintext
|
;
|
||
|
|
; 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
|