;
;	File:		JPPatch.a
;
;	Contains:	xxx put contents here xxx
;
;	Written by:	xxx put writers here xxx
;
;	Copyright:	© 1990 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <2>	 1/29/90	BAL		Remove debugging code.
;
;	To Do:
;


		INCLUDE		'Traps.a'



INSTALL 	PROC	EXPORT

	;		tst.b	$172						;Button?
	;		bne.s	@0	
	;		_debugger
	;		rts									;yes, return
@0
			movem.l		d0-d7/a0-a6,-(sp)		; save all


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	Install 32 bit color QuickDraw:
;
CQD			subq		#4,SP				; room for result
			Move.L		#'ptch',-(SP)		; signature of loadable patch resource
			Move.W		#31,-(SP)			; pass along CQD ID
			_Get1Resource					; just in case we want to ROM it later on
			move.l		(SP)+,d0			; handle returned?
			beq.s		@skip				; no, skip install

			Move.l		d0,A0				; fetch handle
			Move.L		(A0),A0				; point at head of resource
			Jsr			(A0)				; go execute init code
@skip

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	Install 32 bit color compatible slotMgr:
;
slots		subq		#4,SP				; room for result
			Move.L		#'ptch',-(SP)		; signature of loadable patch resource
			Move.W		#35,-(SP)			; pass along slotMgr ID
			_Get1Resource					; just in case we want to ROM it later on
			move.l		(SP)+,d0			; handle returned?
			beq.s		@skip				; no, skip install

			Move.l		d0,A0				; fetch handle
			Move.L		(A0),A0				; point at head of resource
			Jsr			(A0)				; go execute init code
@skip

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	Patch out driver open to suppress appleShare arrows:
;
arrows		subq		#4,SP				; room for result
			Move.L		#'ptch',-(SP)		; signature of loadable patch resource
			Move.W		#34,-(SP)			; pass along aplleShare fix ID
			_Get1Resource					; just in case we want to ROM it later on
			move.l		(SP)+,d0			; handle returned?
			beq.s		@skip				; no, skip install

			Move.l		d0,A0				; fetch handle
			Move.L		(A0),A0				; point at head of resource
			Jsr			(A0)				; go execute init code
@skip


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	Lock down the cursor code:
;
hold		subq		#4,SP				; room for result
			Move.L		#'ptch',-(SP)		; signature of loadable patch resource
			Move.W		#40,-(SP)			; pass along VMPatch ID
			_Get1Resource					; just in case we want to ROM it later on
			move.l		(SP)+,d0			; handle returned?
			beq.s		@skip				; no, skip install

			Move.l		d0,A0				; fetch handle
			Move.L		(A0),A0				; point at head of resource
			Jsr			(A0)				; go execute init code
@skip

			movem.l		(sp)+,d0-d7/a0-a6	; restore all
			rts								; return to rom78fix.a
			
		END