;
;	File:		JPInit.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/30/90	BAL		Added an allocCursor in order to update the crsr lomem. Under
;									the normal install process this is taken care of by the
;									slotManager patch.
;
;	To Do:
;


		INCLUDE		'Traps.a'


INIT 	PROC	EXPORT
			move.l	$2ae,a0
			cmp.w	#$67c,8(a0)					; IIci or F19?
			bne.s	@1							; no, skip it
			
			tst.b	$172						;Button?
			bne.s	@0	
			_debugger
@1			rts									;yes, return
@0
			movem.l		d0-d7/a0-a6,-(sp)		; save all

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	Install RAM based 32-Bit QuickDraw:
;
transl		subq		#4,SP				; room for result
			Move.L		#'ptch',-(SP)		; signature of loadable patch resource
			Move.W		#31,-(SP)			; pass along JP 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
			_AllocCursor
@skip
			movem.l		(sp)+,d0-d7/a0-a6	; restore all
			rts								; return to rom78fix.a
			
		END