mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-14 17:29:44 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
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
|