;
;	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 &params
			if &eval(&params) = 0 then
				rts
			else
				if &setting('MACHINE') <> 'MC68000' then
					rtd #&params
				else
					if &eval(&params) = 4 then
						move.l (sp)+,(sp)
						rts
					elseif &eval(&params) <= 8 then
						move.l (sp)+,a0
						addq #&params,sp
						jmp (a0)
					else
						move.l (sp)+,a0
						lea &params(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