mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-13 05:29:35 +00:00
72 lines
1.2 KiB
Plaintext
72 lines
1.2 KiB
Plaintext
;
|
|
; File: ClassicQDPatches.a
|
|
;
|
|
; Contains: patches used on all B&W QuickDraw machines
|
|
;
|
|
; Copyright: © 1989 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <1> 12/28/89 dba first checked in
|
|
; 12/28/89 dba used ClassicGWorld here
|
|
;
|
|
; To Do:
|
|
; move macros to some lucky file
|
|
;
|
|
|
|
load 'StandardEqu.d'
|
|
include 'QDOffscreenEqu.a'
|
|
include 'PatchMacros.a'
|
|
|
|
; put these in some romantic equate file when you are inspired
|
|
|
|
macro
|
|
_NewHandleCommaTemp
|
|
import NewHandleCommaTemp
|
|
bsr NewHandleCommaTemp
|
|
endm
|
|
|
|
macro
|
|
rtd_a0 ¶ms
|
|
if &eval(¶ms) = 0 then
|
|
rts
|
|
else
|
|
if &setting('MACHINE') <> 'MC68000' then
|
|
rtd #¶ms
|
|
else
|
|
if &eval(¶ms) = 4 then
|
|
move.l (sp)+,(sp)
|
|
rts
|
|
elseif &eval(¶ms) <= 8 then
|
|
move.l (sp)+,a0
|
|
addq #¶ms,sp
|
|
jmp (a0)
|
|
else
|
|
move.l (sp)+,a0
|
|
lea ¶ms(sp),sp
|
|
jmp (a0)
|
|
endif
|
|
endif
|
|
endif
|
|
endm
|
|
|
|
include 'ClassicGWorld.a'
|
|
|
|
CutBackPt PROC EXPORT
|
|
|
|
EntryTable QDExtDispatcher,$AB1D ; GWorld for Classic QuickDraw
|
|
|
|
EntryTable 0
|
|
|
|
ENDPROC
|
|
|
|
InitPatches proc export
|
|
|
|
FixROMAddresses
|
|
lea CutBackPt,a0
|
|
rts
|
|
|
|
endproc
|
|
|
|
end
|