;
;	File:		StartSearch.a
;
;	Contains:	This collection of subroutines is used to search out the most appropriate device to become
;				the startup device, and to load the boot blocks from that device.  It also provides the user
;				with feedback as to what is happening.
;
;	Written by:	Wayne R. Loofbourrow - September, 1986
;
;	Copyright:	© 1986-1993 by Apple Computer, Inc.  All rights reserved.
;
;	Change History (most recent first):
;
;	  <SM13>	11/22/93	pdw		Rolling in <MC3>
;	   <MC3>	 11/9/93	pdw		Fixed the "failed floppy boot causing wrong device boot" bug.
;									Moved initialization of SCSIDrvrs back out of here and into
;									SCSIMgrInit and BootItt (IttBoot) because on a failed boot,
;									FindStartupDevice is called again and it wipes out SCSIDrvrs.
;									Same with call to InitSCSIBoot.
;	  <SM12>	10/14/93	pdw		Added selectable partition booting.  Added forceBoot for
;									InstallMeFirst CD-ROMs.  Fixed Cmd-Shift-Opt-Del bugs with async
;									SCSI.  Rearranged some stuff and cleaned up some stuff.
;	  <SM11>	  9/9/93	pdw		Changed Peril to SetOSPassword and put it in SysEqu.a.
;	  <SM10>	 8/23/93	pdw		Added support for LimitPRAMClear, IgnoreCmdOptShDel,
;									LoadDefaultOnly - three options required for AIX security,
;									enabled by setting bits in PRAM $76.
;	   <SM9>	 6/14/93	kc		Roll in Ludwig.
;	   <LW5>	 6/11/93	KW		Do not call HideCursor in routine ShowSuccess if cursor is
;									already hidden i.e. CrsState < 0. Fixes Radar bug #1087192
;	   <SM8>	 2/13/93	PW		Added Ludwig changes <LW2> and <LW3>.
;	   <LW3>	 2/12/93	PW		Added passing of drivers' "don't munge heaps" bit into SCSILoad.
;	   <LW2>	 1/27/93	DCB		Added code for CmdShiftOptDel startup sequence to fix Radar Bug
;									1051033.
;	   <SM7>	12/16/92	SWC		Moved CenterRect here from StartBoot.a. Did some cleanup.
;	   <SM6>	11/30/92	PW		Changed COUSIN_ITT uses to COUSIN_ITT AND hasAsyncSCSI.
;									(Reserving use of COUSIN_ITT for special test builds.)
;	   <SM5>	11-12-92	jmp		Eliminated assembler warning when not building with the
;									COUSIN_ITT flag enabled.
;	   <SM4>	 7/28/92	PW		Turned on Cousin Itt (SCSIMgr4pt3).
;	   <SM3>	 7/28/92	PW		Added Cousin Itt stuff.
;	   <SM2>	 5/16/92	kc		Roll in Horror. Remove conditionals.
;		 <5>	  1/2/92	RB		Include UniversalEqu.a for TestFor macro.
;		 <4>	  1/2/92	RB		Do universal test for PowerMgr before calling it so that the
;									conditionals can be taken out. Flush the cpu cache before boot
;									block validation.
;		 <3>	 9/16/91	JSM		Cleanup header.
;		 <2>	 6/12/91	LN		Changed #include 'HardwareEqu.a' to 'HardwarePrivateEqu.a'
;	   <1.9>	11/13/89	MSH		Pmgr equates now in record format.
;	   <1.8>	 8/22/89	SES		Removed references to nFiles. Changed include DeclRomEqu.a to
;									RomEqu.a. Changed sRsrc_BootRec to sRsrcBootRec.
;	   <1.7>	 6/10/89	SWC		Converted the HappyMac and disk icon drawing routines to use
;									QuickDraw on all machines.
;	   <1.6>	 5/24/89	GGD		Converted to feature based conditionals in more places, more
;									works is needed for the 16 bit machines.
;	   <1.5>	 4/10/89	gmr		Removed specific drive checks in InBootMask, now just check for
;									drive number within range (0..15). This allows BootMask to work
;									with RAM disks, as well as future drivers. Eliminated IsItSCSI,
;									IsItHD20 in the process.
;	  <•1.4>	 3/13/89	BBM		SetOSDefault blindly set pram to the values pointed at by A0.
;									Master pointers to rom resources on a macintosh ][ are of the
;									form A083XXXX. The Trap number for SetOSDefault is A083. If a
;									program crashed and started executing random blocks, then there
;									was a good chance that it would try to execute a master pointer.
;									The result would be that the default OS on reboot is not valid.
;									Cross reference PB337 in system sources. The fix is to require a
;									password, to prevent wandering programs from creating Chaos.
;	   <1.3>	 2/27/89	jwk		Added BigJSR's to SCSILoad as part of async SCSI roll in.
;	   <1.2>	 2/16/89	rwh		removed Mv conditionals for Vias not working.
;	   <1.1>	11/10/88	CCH		Fixed Header.
;	   <1.0>	 11/9/88	CCH		Adding to EASE.
;	   <2.0>	 11/7/88	rwh		fixed bug in 'command-shift-option-del' disabling of internal
;									drive
;	   <1.9>	 9/24/88	rwh		roll in on MvMac changes
;	  <•1.8>	 9/23/88	CCH		Got rid of inc.sum.d and empty nFiles
;	   <1.7>	 9/12/88	MSH		Last version of sleep count down. Time saved on stack.
;	   <1.6>	  9/9/88	MSH		Screen clearing before shut down uses lomem values instead of
;									equates.
;	   <1.5>	  9/8/88	MSH		Slightly revised sleep count down method.
;	   <1.4>	 6/24/88	MSH		HcMac: Fixed the time out waiting for boot device to two
;									minutes. Sleep command now requires a signature word sent with
;									the command.
;	   <1.3>	 6/15/88	MSH		fix for ramdisk stuff
;	   <1.2>	  6/7/88	MSH		Converted to Mac ][ boot screen and SCSI boot device selection
;									for HcMac.
;	   <1.1>	 5/23/88	BBM		fixed name conflicts by adding i to internal routines.
;	   <1.0>	 2/10/88	BBM		Adding file for the first time into EASE…
;	  <C914>	10/29/87	rwh		Port to Modern Victorian (on MvMac). Removed those ugly "---
;									NuMac ---)))"s.
;	  <C878>	  9/2/87	MSH		Port to HcMac (Laguna)
;	  <C772>	  2/8/87	SHF		Added delay between calls to SCSILoad in WaitForInternal to
;									accomodate drives which don't like to be polled too quickly.
;	  <C736>	  2/2/87	GWN		Renamed SDM selector. Changed HandleSlotDev to LoadSlotDrivers.
;									Fixed bug in NeverAgain.
;	  <C720>	 1/29/87	GWN		Cleared spExtDev field where neccessary.
;	  <C706>	 1/27/87	SHF		Changed the internal drive wait timeout value to 20 seconds.
;	  <C682>	 1/24/87	WRL		[NuMac] Modified the disk and happy Mac plotting routines to use
;									QuickDraw. HappyMac routine moved here from startfail.
;	  <C677>	 1/23/87	SHF		Increased the internal drive wait timeout value to 25 seconds.
;	  <C638>	 1/15/87	GWN		Changed the interface of GetVideoDefault and SetVideoDefault.
;	  <C619>	 1/13/87	GWN		Test the status of the sLoad code.
;	  <C613>	 1/12/87	SHF		Now uses low-memory global for SCSI ID of the internal hard disk
;									(used to always assume 0).
;	  <C600>	  1/7/87	GWN		Made minor changes for slot booting.
;	  <C593>	  1/5/87	GWN		Added code to center disk icon & company.
;	  <C587>	  1/4/87	JTC		Changed MyIOPB to $380, but then restored it to $400.
;	  <C515>	12/12/86	GWN		Changed PRAM address of Video default to $80.
;	  <C474>	 12/2/86	GWN		Added code to enable boot off of a default slot device. Modified
;									EmbarkOnSearch to get more parameters from PRAM. Added
;									GetOSDefault and SetOSDefault routines. Added GetVideoDefault
;									and SetVideoDefault traps (code by WRL).
;	  <A383>	 11/8/86	CSL		Load SCSI driver 0 in general LoadDriver routine if no
;									don't-load drive 0 keys (command, shift, option and delete) are
;									down.
;	  <A362>	 11/6/86	CSL		Power user - don't load internal hard disk - command, if hold
;									down command, shift, option and delete keys are bootup time,
;									internal hard disk would not be loaded, code in startsearch,
;									with this power user command, check internal disk disable is
;									changed from FullWaitMask to DynWaitMask.
;	  <A349>	 11/4/86	SHF		Changed mask value in SetWaitFlags which caused the timeout
;									value to always have been reset to 0 and the wait flags to
;									always retain their current value (meaning Permanent Disable was
;									always set). Removed nWaitMacs.a include (rolled into
;									StartMacs.a).
;	  <A345>	 11/4/86	WRL		Add new internal wait disable bit. Don't continue internal wait
;									if device is there, but driver fails to load. Added new
;									_InternalWait trap.
;	  <A344>	 11/3/86	WRL		Put LoadSCSIDrivers ahead of InternalWait so that SCSI devices
;									7..1 get priority in the drive queue over SCSI device 0 if no
;									default is set.
;	  <A321>	10/31/86	WRL		Cut SCSILoad related delays down to 1.75 seconds (from 3.5
;									seconds). Fixed bug: No, SEQ doesn't affect the CCR!!! Fixed
;									bug: Branch in WaitForInternal was wrong polarity. Enhancement:
;									Don't try to load internal hard disk's driver if corrupted.
;	  <A306>	10/30/86	WRL		Changed GetDefaultStartup, SetDefaultStartup, and InternalWait
;									to use an OS style interface, as they should.
;	  <A300>	10/30/86	SHF		Changed GetStartupDevice trap to bsr since the trap was OS but
;									expected to be called ToolBox style. Fixed stack bug in
;									SetRawTimeOut routine.
;	  <A297>	10/29/86	WRL		After case-laden discussions with Jerome, Tony, Steve, Sheila,
;									and Rich, we decided to have the time delay refer only to the
;									maximum amount of time the system will wait for the internal
;									SCSI device (whose ID must be zero). If the delay is exhausted,
;									it is assumed that the user doesn't have an internal drive, and
;									the delay in PRAM is reset to zero. The delay now refers to
;									total time since Ticks was cleared. Isn't this fun?
;	  <A286>	10/28/86	WRL		Made delay apply up front, to give drives a chance to warm up.
;	  <A276>	10/27/86	SMH		modified rom search procedure.
;	  <C206>	 10/9/86	bbm		Modified to mpw aincludes.
;	  <C198>	 10/2/86			Fixed bug in flashing X on disk icon.
;	  <C152>	 9/30/86			Creation based loosely on the Mac Plus boot code.
;

			PRINT	OFF
			LOAD	'StandardEqu.d'
			INCLUDE	'HardwarePrivateEqu.a'
			INCLUDE	'UniversalEqu.a'
			INCLUDE	'Devices.a'
			INCLUDE	'PowerPrivEqu.a'
			INCLUDE	'SlotMgrEqu.a'
			INCLUDE	'ROMEqu.a'
			INCLUDE	'SCSI.a'
			PRINT	ON

			MACHINE	MC68020

;---------------
; Local Equates
;---------------

MyIOPBA6		EQU 	-$400					; A6 offset for IOPB

FlashEnable		EQU		8						; (bit) 0 = disable; 1 = enable.
FlashParity		EQU		9						; (bit)	0 = no marks in disk icon, 1 = mark present (X or ?)
XEnable			EQU		10						; (bit) 1 = enable X flash next time

FlashTicks		EQU		60						; min number of ticks between half-flashes of X or ?
NumFlashX		EQU		3						; number of times to flash X before going
												; back to flashing ? on disk icon.

FloppyRefNum	EQU		-5						; floppy driver refnum
IntHDRefNum		EQU		-33						; refnum of driver for SCSI ID 0

DefaultTimeOut	EQU		20						; number of seconds timeout if PRAM is pristine
MaxTimeOut		EQU		31						; maximum number of seconds allowed as timeout
PollDelay		EQU		15						; delay (in ticks) between poll drive SCSILoads

TimeOutMask		EQU		$1F						; mask for bits used as timeout
WaitFlagsMask	EQU		$E0						; mask for bits used as flags

DynWaitBit		EQU		7						; 0 = enable; 1 = disable  dynamic wait
PermWaitBit		EQU		6						; 0 = enable; 1 = disable  permanent wait

DynWaitMask		EQU		(1<<DynWaitBit)

CmdShiftOptDel	EQU		$8805					; command, shift, option and delete keys down bits

NoDefaultVal	EQU		$6666					; the sign of the ... no default disk selected

			IMPORT	CacheFlush					; Dispatch.a
			IMPORT	SCSILoad					; :SCSIMgr:SCSIBoot.a
		IF hasAsyncSCSI THEN
			IMPORT	INITSCSIBOOT				; :SCSIMgr4pt3:BootItt.c
			IMPORT	ISITT						; BootItt.c
			IMPORT	ITTBOOT						; BootItt.c
		ENDIF



Locals	RECORD	{link},INCR

frameSize	equ	*

flashTime		ds.l	1		; time to flash icon
startTicks		ds.l	1		; Ticks when we first get into FindStartupDevice

ckPartition		ds.b	1		; flag = we need to check to see if the partition #s match
noDefaultDrive	ds.b	1		; flag = we have no default drive
foundDrvr		ds.b	1		; flag = we have seen the driver in the drive Q
forcedBoot		ds.b	1		; flag = boot has been forced to a non-default device

csPB			ds		CntrlParam		; pb for Control and Status

pmCommandPB		ds		pmCommandRec	; pb for sending SleepReq to power manager

startPRAM		;(ds.l 1)
lsdExtDevID		ds.b	1    	; slot device ExtDevID (for SCSI target/lun)
lsdPartition	ds.b	1    	; slot device Partition (for SCSI partition #)
lsdRefNum		;(ds.w 1)		; SCSI device refnum
lsdSlotNum		ds.b	1    	; slot number
lsdSRsrcID		ds.b	1    	; sRsrc ID (for native SCSI, bus #; for plug-in, sRsrc ID)

link			ds.l	1		; old A4 = (A4)

		ENDR

; Register Convention for entire file
; Scratch:	D0-D2, A0-A1

D3_partDevOS	EQU		D3
D4_refNum		EQU		D4

A2_driveQel		EQU		A2
A3_IsIt_Proc	EQU		A3
A4_locals		EQU		A4
A5_bootGlobs	EQU		A5
A6_bootBlocks	EQU		A6

;________________________________________________________________________________________
;
; Routine:	FindStartupDevice
;
; Inputs:	none
;
; Outputs:	(A6)-	contains the boot blocks (1024 bytes)
;			BtDskRfn contains the refNum of the startup device
;			BootDrive contains the drive number of the startup device
;
; Trashes:	D0-D6, A0-A4
;
; Function:	finds the startup device, and loads and verifies the boot blocks from it
;			(on portables, if no boot device is found within the sleep timeout, then
;			go to sleep)
;________________________________________________________________________________________

FindStartupDevice	PROC	EXPORT

		WITH	Locals

			EXPORT	EraseMyIcon

			IMPORT	GetDefaultStartup			; StartSearch.a
		
			link	A4, #frameSize
			
			BSR		EmbarkOnSearch				; Initialize our state.

			BSR		LoadSlotDrivers				; Default is a slot device, execute boot code
												; When booting a Mac OS, execution will continue here
			MOVE.L	Ticks, startTicks(A4)		; Init the time we got here	in case we have PowerMgr

			BSR		LoadSCSIDrivers				; Load all the drivers we can
			BSR		WaitForPollDrive			; Wait until the boot drive has warmed up
			BRA.S	@FirstEntry					; First time through: keep original goal

@NextPass
		IF hasPwrControls THEN					;													<SM7>
			WITH	PmgrRec,pmCommandRec
			TestFor	hwCbPwrMgr					; do we have Power Manager?
			beq.s	@noSleep					; if not then skip time check

			MOVE.L	Ticks,D0					; Get the current time
			SUB.L	startTicks(A4),D0 			; Determine the time to go back to sleep
			CMP.L	#BootDevTicks,D0			; See if time out has occured
			BLS.S	@nosleep
@sleepnow
			LEA		pmCommandPB(A4), A0			; A0 gets pointer to parameter block
			MOVE.W	#SleepReq, pmCommand(A0)	; PMGR command, Go to sleep
			MOVE.W	#4, pmLength(A0)			; Four bytes of data to send
			LEA		pmData(A0), A1
			MOVE.L	A1, pmSBuffer(A0)			; pointer to send buffer
			MOVE.L	A1, pmRBuffer(A0)			; pointer to receive buffer
			MOVE.L	#SleepSig, pmData(A0)		; Put sleep signature in buffer
			_PmgrOp
			CMPI.W	#SleepAck,pmData(A0)		; is the reply a sleep confirmation?
@waitsleep	BEQ.S	@waitsleep					; Wait for the drugs to take affect
@nosleep
			ENDWITH
		ENDIF									;													<SM7>

			CMPI.W	#FloppyRefNum,D4			; do we have floppy set as the default?
			BEQ.S	@NoChange					; -> yes, keep looking for floppies
			LEA		IsItAnything,A3				; no, from now on, any device will do
@NoChange
			BSR		LoadSCSIDrivers				; load more drivers if we can

@TryAgain
			BSR		VisualUpdate				; Update dynamic user feedback

@FirstEntry
			BSR		FindNextCandidate			; Find the next potential Startup Device.
			BEQ.S	@NextPass					; Branch if we're at the end of the queue.

			BSR		SelectDevice				; Set up parameter block for this device.
			BSR		CheckMouseEject				; Eject it if requested by mouse-down.
			BEQ.S	@TryAgain					; Branch if ejected (we won't try reading it).

			BSR		GetStartupInfo				; Try to read the boot blocks from the device.
			BEQ.S	@GotIt						; Branch if success.

			BSR		ReactToFailure				; Handle the failure case.
			BRA.S	@TryAgain					; Try to find another Startup Device.
@GotIt		

;	show that we have succeeded in finding a startup device

			TST		CrsrState					; if negative, don't call HideCursor
			BMI.S	@ShowHappyMac				; prevents cursor depth from sinking
												; to far if can't find boot drive
			_HideCursor

@ShowHappyMac
			
			MOVE.L	A5, -(SP)
			BSR		HappyMac					; Plot the Happy Mac
			MOVE.L  (SP)+, A5
			
			unlk	A4
			RTS



;________________________________________________________________________________________
;
; Routine:	EmbarkOnSearch
;
; Inputs:	none
;
; Outputs:	D3	-	bits 31-24:	-reserved-
;						 23-16:	default OS
;						 15- 8:	default device ID (for slots)
;						  7- 0:	default partition
;			D4	-	default driver reference number
;			D6	-	bits:	10:	1=enable X flash next time, 0=flash ? next time
;							 9:	1=mark present (X or ?)
;							 8:	1=flashing enabled, 0=flashing disabled
;							  7- 0:	counter for how long to wait before switch from X back to ?
;			A2	-	pointer to current drive queue entry (or nil)
;			A3	-	pointer to routine to filter out desired drive queue entries
;			flashTime	-	absolute time at which we next flash the disk icon
;
; Trashes:	D0-D2, A0-A1
;
; Function:	initializes the above variables to their default states, preparing for
;			a fresh search to be embarked upon
;________________________________________________________________________________________

EmbarkOnSearch

; get the scoop on the default startup device

			SUBQ.W	#4,SP						; make room for parameters on the stack
			MOVE.L	SP,A0						;  and point to them
			_GetDefaultStartup					; get info about the default device
			MOVE.L	(SP), startPRAM(A4)			; store for later partition check
			MOVE.W	(SP)+,D3					; D3.L = <xx><xx><device-ID><partition>
			MOVE.W	(SP)+,D4					; get the driver's refNum/<slot#><sRsrc#>

; get the default OS of startup device

			SUBQ.W	#2,SP						; make room for parameters on the stack
			MOVE.L	SP,A0						;  and point to them
			_GetOSDefault						; get info about the default OS
			SWAP	D3
			MOVE.W	(SP)+,D3
			SWAP	D3							; D3.L = <reserved><OSType><device-ID><partition>

; do we have a default drive?

			cmp.w	#NoDefaultVal, D4			; magic value?
			bne.s	@weHaveDefault
			
			move.b	#1, noDefaultDrive(A4)		; set flag
			clr.b	ckPartition(A4)				; we don't want to ck partition number
			bra.s	@1
@weHaveDefault			
			clr.b	noDefaultDrive(A4)			; we have default
			move.b	#1, ckPartition(A4)			; at start, we need to check the partition num
@1
			clr.b	foundDrvr(A4)				; we start off not having found the drvr
			clr.b	forcedBoot(A4)				; assume - not a forced boot
			
; initialize the rest of the register variables

			SUBA.L	A2,A2						; initialize the drive queue pointer

			LEA		IsItFloppyOrDefault,A3		; ASSUME match default or floppy devices.

	CASE	OBJ
			IMPORT	Ck4OnlyLoadFromDefault		; :SCSIMgr4pt3:BootItt.a
			BSR.L	Ck4OnlyLoadFromDefault		; supposed to limit our search to default device?
	CASE	OFF
			BEQ.S	@ck4NoDefault
			LEA		IsItDefault, A3				; match only default device
@ck4NoDefault			
			TST.B	noDefaultDrive(A4)			; is there a default drive?	<MC2>
			BEQ.S	@HaveDefault				; -> yes
			LEA		IsItAnything,A3				; no, match any device
@HaveDefault
			MOVE.L	Ticks,flashTime(A4)			; let flash time expire immediately.
			CLR.W	D6							; clear visual state information.


;--- Initialize SCSIPoll (used to tell StartSearch which ID to wait for)
;	and set up SCSIDrvrs to contain only the CPU's ID bit (so far the only ID we know of)
;	At first, we default to the "internal" drive ID (SCSI ID 0).  If not on a portable
;	and the default driver is a valid old-SCSI driver, we use the default startup device number.  

			subq.l	#2, sp					; make space for PRAM SCSI id					<v1.4>
			move.l	sp, A0					; address of PRAM return buffer
			move.l	#$00020002, D0			; read 2 bytes of PRAM at offset 2
			_ReadXPRam						; get the SCSI IDs of concern
			move.w	(sp)+, D0				; 
			and.w	#$0707,d0				; mask all but the ID bits
			move.b	D0, SCSIPoll			; initialize hd flag (bit 7=0) & ID

			TestFor	hwCbPwrMgr				; is this a portable?
			bne.s	@exit					; yes -> use Internal Drive

; Put Default Startup Device number into SCSIPoll - assume no SCSIMgr4pt3 and corresponding
;	multi-bus support.  If SCSIMgr4pt3 does run, it will just ignore SCSIPoll.  If it 
;	doesn't run, SCSIPoll will be used by WaitForPollDrive.

			move.w	D4, D1					; get refNum (maybe)
			not.w	D1						; convert refNum to unit number
			sub.w	#$20, D1				; convert to SCSI ID
			blt.s	@exit					; out of range -> use previous value
			cmpi.w	#$07, D1
			bgt.s	@exit					; out of range -> use previous value

			move.b	SCSIPoll, D0
			and.b	#$F8, D0				; strip out old internal HD SCSI ID
			or.b	D1, D0					; put in new one
			move.b	D0, SCSIPoll			; initialize hd flag (bit 7=0) & ID	
@NoDefault									;
@exit
			RTS


;________________________________________________________________________________________
;
; Routine:	LoadSlotDrivers
;
; Inputs:	D3	-	bits 31-24:	-reserved-
;						 23-16:	default OS
;						 15- 8:	default device ID (for slots)
;						  7- 0:	default partition
;			D4	-	may contain a slot number (bits 8-15) and sRsrc ID (bits 0-7),
;						if not, the routine just exits
;
; Outputs:	D4	-	default driver reference number, or zero if none
;
; Trashes:	D0-D2, A0-A1
;
; Function:	If D4 specifies a slot device, use it to load and execute boot code.  If a
;			Mac OS is to be booted, then a driver will be loaded and execution will
;			continue here, otherwise a different OS will be brought up, so we're done.
;________________________________________________________________________________________

LoadSlotDrivers
			WITH	spBlock,seBlock

			TST.B	noDefaultDrive(A4)			; is there a default device?
			BNE.S	@exit						; no -> out of here

;  Test for slot device.

			TST.W	D4							;Is this a real slot device?
			BLE.S	@Exit						;Branch if not (n=0,n<0 => not slot)
												; note: even tho newSCSI uses slot 0, we
												; don't have any sRsrc to load so we exit
;  Find the default sResource.

			LEA		-spBlockSize(SP),SP			;Allocate parameter block for SDM calls.
			MOVE.L	SP,A0
			
			LEA		-seBlockSize(SP),SP			;Allocate parameter block for code executed by _sExec.
			MOVE.L	SP,A1
			MOVE.L	A1,spsExecPBlk(A0)

			MOVE.B	D4,spId(A0)					;Default Id,
			LSR.W	#8,D4
			MOVE.B	D4,spSlot(A0)				;Default Slot,
			_sFindsRsrcPtr						;Get a pointer to the sResource list
			BNE.S	@Fail						;Branch if error
			
;  Set the parameters for the code in sExec.

			MOVE.B	spSlot(A0),seSlot(A1)		;Default Slot,
			MOVE.B	spId(A0),sesRsrcId(A1)		;Default sResource.
			
			MOVE.L	D3,D0						;Boot code extensions.
			MOVE.B	D0,sePartition(A1)			;Default Partition,
			LSR.L	#8,D0
			MOVE.B	D0,seDevice(A1)				;Default Device, and
			LSR.L	#8,D0
			MOVE.B	D0,seOSType(A1)				;Default OS.
			LSR.L	#8,D0
			MOVE.B	D0,seReserved(A1)			;Reserved field.
			MOVE.B	#sbState0,seBootState(A1)	;State of StartBoot code.

;  Execute the code in the sBoot record.

			MOVE.B	#sRsrcBootRec,spId(A0)		;Execute the code:
			_sExec								;  On entry to the boot code, A0 points to the SE parameter block.
			BNE.S	@Fail						;Branch if fail.

			TST.W	seStatus(A1)				;Test the status of the sLoad code
			BNE.S	@Fail						;Branch if error
			
@Good		MOVE.W	seRefNum(A1),D4				;Set D4 to default RefNum.
@End		LEA		spBlockSize+seBlockSize(SP),SP	;Deallocate parameter blocks.

@Exit		RTS	

@Fail		CLR.W	D4							;Clear default (match any device)
			BRA.S	@End						;Good, now exit.


;________________________________________________________________________________________
;
; Routine:	LoadSCSIDrivers
;
; Inputs:	D3	-	bits 31-24:	-reserved-
;						 23-16:	default OS
;						 15- 8:	default device ID (for slots)
;						  7- 0:	default partition
;			D4	-	default driver reference number
;
; Outputs:	D3	-	bits 31-24:	-reserved-
;						 23-16:	default OS
;						 15- 8:	default device ID (for slots)
;						  7- 0:	default partition
;			D4	-	default driver reference number
;
; Trashes:	D0-D2, A0-A1
;
; Function:	loads more SCSI device drivers from the devices themselves, if they're available
;________________________________________________________________________________________

LoadSCSIDrivers
	IF hasAsyncSCSI THEN
			BSR.L	ISITT						; check if we're running SCSI 4.3
			TST.B	D0							; are we?
			BEQ.S	@UseOldSCSI					; -> no, use the old code to load drivers

			PEA		forcedBoot(A4)				; ptr to flag indicating a forcedBoot
			CLR.L	-(SP)						; load all drivers
			BSR.L	ITTBOOT						; Load Drivers and look for startup disk
			ADDQ.W	#8,SP						; (clean up the stack)

			tst.b	forcedBoot(A4)				; was it a forced boot?
			beq.s	@1							; no -> nothing special
			clr.b	ckPartition(A4)				; yes:don't ck part'n (for a different drvr)
@1
			tst.w	d0							; did we get a startup disk?
			bge.s	@StageLeft					; nope, exit
			move.w	D0, D4						; yep, change d4 to reflect that
@StageLeft	
			RTS	
@UseOldSCSI
	ENDIF
	
; there is a new mechanism to disable loading of poll drive, so, check power
; user command, "command, shift, option and delete keys", if those keys are
; not down, go load the poll drive.
; Make sure that command, shift, option and delete keys are not down

			MOVEQ	#-1,D0						; try to load all SCSI devices
			CMPI.W	#CmdShiftOptDel,KeyMap+6	; are command, shift, option and delete keys down?
			BNE.S	@GoLoadD					; -> no, continue
			MOVEQ	#$07,D1
			AND.B	SCSIPoll,D1					; get the SCSI ID of the poll drive
			BCLR	D1,D0						;  and clear the bit in the available drive list

@GOLoadD	move.l	d6,-(sp)					; save d6										<LW3>pdw
			move.l	a0,-(sp)					; save a0
			moveq.l	#0, D6						; allow drivers to munge heap					<LW3>pdw
			BSR.L	SCSILoad					; try to load driver(s) from disk
			move.l	(sp)+,a0					; restore a0
			move.l	(sp)+,d6					; restore d6									<LW3>pdw
			RTS


;________________________________________________________________________________________
;
; Routine:	WaitForPollDrive
;
; Inputs:	none
;
; Outputs:	none
;
; Trashes:	D0-D2, A0-A1
;
; Function:	Waits until the poll hard disk has had a chance to warm up.
;			If it doesn't appear after the recommended amount of time, it
;			is assumed absent and parameter RAM is updated accordingly.
;________________________________________________________________________________________

WaitForPollDrive
			MOVEM.L	A2/D5,-(SP)					; Save my registers.

; make sure the poll wait feature is enabled.

			_GetWaitFlags						; get the current flags
			AND.B	#DynWaitMask,D0				;  and mask off the dynamic flag
			BNE		@RawExit					; -> exit if dynamic wait is disabled

; get the timeout value and convert it to ticks

			_GetTimeOut							; get the timeout parameter
			BNE.S	@UseGivenTime				; -> use the returned parameter
			MOVEQ	#DefaultTimeOut,D0			; no parameter returned, so use the default timeout.
@UseGivenTime
			MOVEQ	#60,D5						; convert the timeout to ticks
			MULU	D0,D5						;  and save it

; We now disable waiting for the poll device in the future.
; This way, if loading the driver causes a crash, then next time
; the system boots, it won't wait for it.
; The waiting feature gets re-enabled if no crash occurs.

			_DisablePermWait					; Disable permanent wait in case driver crashes


@WaitForIt

		IF hasAsyncSCSI THEN
			BSR.L	ISITT						; check if we're running SCSI 4.3
			TST.B	D0							; are we?
			BEQ.S	@UseOldSCSI					; -> no, use the old code to load drivers
			PEA		forcedBoot(A4)				; ptr to flag indicating a forcedBoot
			PEA		1							; only look for the startup device
			BSR.L	ITTBOOT						; get the startup device's refnum in D0
			ADDQ.W	#8,SP						; (clean up the stack)

			tst.b	forcedBoot(A4)				; was it a forced boot?
			beq.s	@1							; no -> nothing special
			clr.b	ckPartition(A4)				; yes:don't ck part'n (for a different drvr)
@1
			CMP.W	#1, D0						; CmdShiftOptDel or Nonbootable?
			BEQ.S	@RawExit					; yes -> don't wait no more
			TST.W	D0							; no: did we get a drive?
			BEQ.S	@ckTimeout					; no -> check timeout and loop
			MOVE.W	D0, D4						; yes: go with it
			BRA.B	@MyExit						; 
@UseOldSCSI
	ENDIF

; make sure that command, shift, option and delete keys are not down
		
			MOVE.W	KeyMap+6,D0					; get keys down
			CMP.W	#CmdShiftOptDel,D0			; are command, shift, option and delete keys down?
			BEQ.S	@RawExit					; -> exit if so

			MOVEQ	#$07,D1
			AND.B	SCSIPoll,D1					; Get SCSI ID of poll drive
			MOVEQ	#0,D0						; Clear register
			BSET	D1,D0						; Set the bit for the drive

; Call SCSILoad with bit map in D0 and heap_munge_flag in D6

			move.l	d6,-(sp)					; save d6										<LW3>pdw
			move.l	a0,-(sp)					; save a0
			moveq.l	#0, D6						; allow drivers to munge heap					<LW3>pdw
			BSR.L	SCSILoad					; Try to load driver for poll disk
			move.l	(sp)+,a0					; restore a0
			move.l	(sp)+,d6					; restore d6									<LW3>pdw
			BEQ.S	@MyExit						; Branch if warmed up, but driver is invalid

			MOVEQ	#IntHDRefNum,D0				; Refnum for ID 0
			SUB.W	SCSIPoll,D0					; Convert to refnum for poll drive
			MOVE.W	D0,D1						; Put back in D1 for comparison
			
			
; Let's see if the poll hard disk is actually in the queue
@ExamDQ		SUBA.L	A2,A2						; Start at beginning of drive queue
@FindIntHD	
			BSR		NextDQEntry					; Get the next drive queue entry
			BEQ.S	@EndOfQueue					; Branch if we're out of queue entries

			CMP.W	dqRefNum(A2),D1				; Is it our trusty poll hard disk?

			BNE.S	@FindIntHD					; Nope, see if the next one's it

@Warm_n_Toasty									; We found the drive; it must have warmed up
			BRA.S	@MyExit						; That's all folks

@ckTimeout
@EndOfQueue
			CMP.L	Ticks,D5					; Should the poll HD be visible by now?
			BLO.S	@NoDrivePresent				; Yes, so quit waiting for it
			MOVEQ.L	#PollDelay,D0				; Get number of ticks to wait before retrying
			ADD.L	Ticks,D0					; Calculate new time to try it again
@DelayLoop
			CMP.L	Ticks,D0					; Time to try again?
			BHS.S	@DelayLoop					; No, so just be patient
			BRA.S	@WaitForIt					; Ready to try the poll drive again

@NoDrivePresent									; Time expired, drive must not be there
			_DisableDynWait						; Drive not found, disable dynamic wait

@MyExit
			_EnablePermWait						; No crash, re-enable disk wait

@RawExit
			MOVEM.L	(SP)+,A2/D5					; Restore my registers
			RTS									; Return to the world


;________________________________________________________________________________________
;
; Routine:	FindNextCandidate
;
; Inputs:	A2	-	Points to the drive queue entry which was tried last time; the search
;					for an appropriate device will begin with the NEXT drive queue entry.
;					A nil pointer means you wish to search from the beginning of the queue.
;
; Outputs:	A2	-	pointer to the next appropriate drive queue entry found
;			A3	-	pointer to a subroutine which returns BEQ if A2 is pointing to a drive
;					queue entry that we are interested in, otherwise it returns BNE.  All
;					registers except D0/A2 are passed through to the subroutine untouched
;					(A2 points to the "next" queue entry).  The subroutine must preserve
;					all registers except D0-D2/A0-A1.
;			CCR	-	BNE if we found an appropriate entry, BEQ if we've reached the end of the queue
;
; Trashes:	D0-D2, A0-A1
;
; Function:	finds the next possible startup device
;________________________________________________________________________________________

FindNextCandidate
			BSR.S	NextDQEntry					; Find the next drive queue entry.
			BNE.S	@ckThisOut					; valid -> check out the drive
												; not: we've searched the whole queue.
			tst.b	ckPartition(A4)				; were we looking for right partition
			beq.s	@DoneLooking				; no-> return to scan bus some more
			tst.b	foundDrvr(A4)				; did we see a drive for the default drvr?
			beq.s	@DoneLooking				; no-> return to scan bus some more
			clr.b	ckPartition(A4)				; yes: no longer look for right partition
			bra.s	FindNextCandidate			; and search the DrvQ again

@ckThisOut
			MOVE.W	dqDrive(A2),D1				; get the drive number
			CMPI.W	#15,D1						; is it in range?
			BHI.S	@OuttaRange					; -> no, try it regardless
			MOVE.W	BootMask,D0					; get failure info
			BTST	D1,D0						; is this drive one we've rejected before?
			BEQ.S	FindNextCandidate			; -> yes, skip it

@OuttaRange	JSR		(A3)						; is this one of the devices we're looking for?
			BNE.S	FindNextCandidate			; -> no, keep looking
@DoneLooking
			MOVE.L	A2,D0						; Return result.
			RTS


;________________________________________________________________________________________
;
; Routine:	NextDQEntry
;
; Inputs:	A2	-	points to the drive queue entry which was tried last time (nil if
;					at the end of the queue)
;
; Outputs:	A2	-	pointer to the next drive queue entry (nil if at the end of the queue)
;			CCR	-	BEQ if we're reached the end of the queue, BNE if A2 is valid
;
; Trashes:	D0
;
; Function:	advances A2 to point to the next drive queue entry.  If the pointer is nil,
;			point to the start of the queue
;________________________________________________________________________________________

NextDQEntry	MOVE.L	A2,D0						; is the pointer NIL?
			BNE.S	@NextEntry					; -> no, more entries left in the queue
			LEA		DrvQHdr+QHead,A2			; point to the head of the queue
@NextEntry	MOVE.L	qLink(A2),A2				; point to next entry
			MOVE.L	A2,D0						; test for end of queue
			RTS


;________________________________________________________________________________________
;
; Routine:	SelectDevice
;
; Inputs:	A2	-	points to the current drive queue entry
;
; Outputs:	A0	-	pointer to A6-based I/O parameter block
;			A2	-	points to the current drive queue entry
;			BtDskRfn contains the driver reference number of the startup device
;			BootDrive contains the drive number of the startup device
;
; Trashes:	D0
;
; Function:	sets up variables to make the current device the startup device
;________________________________________________________________________________________

SelectDevice
			LEA		MyIOPBA6(A6),A0				; Point to my parameter block

			MOVE.W	dqRefNum(A2),D0 			; Get driver reference number.
			MOVE.W	D0,IORefNum(A0) 			; Put it in parameter block.
			MOVE.W	D0,BtDskRfn 				; Save RefNum in case this is boot device.

			MOVE.W	dqDrive(A2),D0				; Get drive number.
			MOVE.W	D0,IODrvNum(A0) 			; Put it in param block.
			MOVE.W	D0,BootDrive				; Save DrvNum in case this is boot device.
			RTS


;________________________________________________________________________________________
;
; Routine:	CheckMouseEject
;
; Inputs:	A0	-	pointer to A6-based I/O parameter block
;
; Outputs:	CCR	-	BEQ if the disk was ejected
;
; Trashes:	D0
;
; Function:	ejects the disk from the current device if the mouse button is down
;________________________________________________________________________________________

CheckMouseEject
			TST.B	MBState 					; does user want eject?
			BMI.S	DontEject					; -> no, skip
			; fall thru into EjectMe

;________________________________________________________________________________________
;
; Routine:	EjectMe
;
; Inputs:	A0	-	pointer to A6-based I/O parameter block
;
; Outputs:	CCR	-	BEQ if the disk was ejected
;
; Trashes:	D0
;
; Function:	ejects the disk from the current device
;________________________________________________________________________________________

EjectMe		LEA		MyIOPBA6(A6),A0				; Point to my parameter block
			MOVE.W	#EjectCode,csCode(A0)
			_Control							; Issue an eject command to the device
DontEject	RTS									; Return with status


;________________________________________________________________________________________
;
; Routine:	GetStartupInfo
;
; Inputs:	A0	-	pointer to A6-based I/O parameter block
;			A6	-	pointer to buffer for holding the boot blocks
;
; Outputs:	CCR	-	BEQ if the blocks were read successfully and they're boot blocks
;
; Trashes:	D0
;
; Function:	reads the boot blocks from the current device
;________________________________________________________________________________________

GetStartupInfo
			MOVE.W	#1,IOPosMode(A0)			; position relative to start
			CLR.L	IOPosOffset(A0) 			; start at byte position 0
			MOVE.L	A6,IOBuffer(A0) 			; load boot blocks at (A6)
			MOVE.L	#$400,IOReqCount(A0)		; two 512-byte blocks
			_Read								; read the boot blocks
			BNE.S	@Exit						; -> error, so exit
			move.l	a0,-(sp)
			BSR.L	CacheFlush					; flush the caches
			move.l (sp)+,a0
			CMP.W	#'LK',(A6) 					; check if it's a true boot block
@Exit		RTS									;  and return BEQ if so


;________________________________________________________________________________________
;
; Routine:	ReactToFailure
;
; Inputs:	D0	-	error code indicating what went wrong
;			D4	-	default device's driver reference number
;
; Outputs:	D6	-	may have the XEnable bit set
;			BootMask is modified to prevent retries to the current device
;
; Trashes:	D0-D1
;
; Function:	responds to a failure to read the boot blocks correctly (this may include
;			ejecting the disk)
;________________________________________________________________________________________

ReactToFailure
			CMP.W	#OffLinErr,D0				; is the disk present and up to speed?
			BEQ.S	@Exit						; -> no, leave it alone so we can try it later
			CMP.W	#NoDriveErr,D0				; is the drive present?
			BEQ.S	@This1NoMo					; -> no, don't talk to it again
			BSR.S	EjectMe						; for any other error, eject the device
			BEQ.S	@ShowMe						; -> its ejectable, so we can try it again

@This1NoMo	MOVE.W	dqDrive(A2),D1				; get the drive number
			CMPI.W	#15,D1						; is it in range?
			BHI.S	@ShowMe						; -> skip if not
			MOVE.W	BootMask,D0					; get failure info
			BCLR	D1,D0						; disable this device
			MOVE.W	D0,BootMask					;  and update the failure info

@ShowMe		BSR		IsItFloppy					; is it a floppy that failed?
			BNE.S	@Exit						; -> no, don't do anything special
			BSET	#XEnable,D6					; enable the flashing X on the disk icon
@Exit		RTS


;________________________________________________________________________________________
;
; Routine:	Ck4SupportsPartition
;
; Inputs:	A2	-	pointer to the current drive queue entry (must not be nil!)
;			D4	-	default device's driver reference number
;
; Outputs:	CCR	-	BEQ if the current device support the partition field of PRAM
;			D0	-	long returned by driver to check against startPRAM
;
; Trashes:	D0-D2/A0-A1
;
; Function:	determines whether the current drive queue entry is the default boot device
;________________________________________________________________________________________

Ck4SupportsPartition
;
; Get the DCE using the Device Manager's statusGetDCE call
;
			lea		csPB(A4), A0					; point to pb
			move.w	D4, ioRefNum(A0)				; pass driver refNum
			move.w	#statusGetDCE, csCode(A0)		; (Device Mgr call, not driver)
			_Status
			movea.l	csParam(A0), A0					; get DCE handle (doesn’t touch CCR)
			bmi		@notSupported  					; no such Driver (i.e. DCE not installed)

;
; now check this driver to see if it "follows new rules" and responds
;	to driverGestalt status call
;
			move.w	dCtlFlags(A0), D0				; does it Follow New Rules?
			btst	#FollowsNewRules, D0			; (word-relative bit #)
			beq.s	@notSupported					; no -> skip driverGestalt call
			
			lea		csPB(A4), A0					; point to it
			move.w	#driverGestaltCode, csCode(A0)
			move.l	#'boot', DriverGestaltParam.driverGestaltSelector(A0)	

			move.w	dqDrive(A2), ioVRefNum(A0)		; put drive q num in ioVRefNum
			move.w	D4, ioRefNum(A0)
			_Status									; make driverGestalt call
			tst.w	D0
			bne.s	@notSupported
			move.l	DriverGestaltParam.driverGestaltResponse(A0), D0	

@exit
			cmp.l	#NoDefaultVal, D0				; set Z if not supported
			rts

@notSupported
			clr.b	ckPartition(A4)					; no longer look for right partition
			move.l	#NoDefaultVal, D0
			bra.s	@exit



;________________________________________________________________________________________
;
; Routine:	IsItDefault
;
; Inputs:	A2	-	pointer to the current drive queue entry (must not be nil!)
;			D4	-	default device's driver reference number
;
; Outputs:	CCR	-	BEQ if the current device is the default device
;
; Trashes:	none
;
; Function:	determines whether the current drive queue entry is the default boot device
;________________________________________________________________________________________

IsItDefault
			cmp.w	dqRefNum(A2), D4			; is this driver for the default device?
			bne.s	@notTheDisk					; no-> definitely no the disk then

			move.b	#1, foundDrvr(A4)			; so we know to clr ckPartition if end-of-Q
			tst.b	ckPartition(A4)				; do we need to check the partition num?
			beq.s	@isTheDisk					; no-> well then, it is the right disk

			bsr		Ck4SupportsPartition		; does driver support partition info?
			beq.s	@isTheDisk					; no-> then this is the right volume
			
			cmp.l	startPRAM(A4), D0			; yes: does returned boot value eq pram?
			beq.s	@isTheDisk					; yes-> selected disk
@notTheDisk
			moveq.l	#1, D0
			rts
@isTheDisk
			moveq.l	#0, D0
@exit
			rts									; return result of compare


;________________________________________________________________________________________
;
; Routine:	IsItFloppyOrDefault
;
; Inputs:	A2	-	pointer to the current drive queue entry (must not be nil!)
;			D4	-	default device's driver reference number
;
; Outputs:	CCR	-	BEQ if the current device is a floppy or the default device
;
; Trashes:	none
;
; Function:	determines whether the current drive queue entry is either a floppy or
;			the default boot device
;________________________________________________________________________________________

IsItFloppyOrDefault
			bsr.s	IsItDefault
			beq.s	@exit
			bsr.s	IsItFloppy
@exit		rts

;________________________________________________________________________________________
;
; Routine:	IsItFloppy
;
; Inputs:	A2	-	pointer to the current drive queue entry (must not be nil!)
;			D4	-	default device's driver reference number
;
; Outputs:	CCR	-	BEQ if the current device is a floppy
;
; Trashes:	none
;
; Function:	determines whether the current drive queue entry is a floppy
;________________________________________________________________________________________

IsItFloppy	CMPI.W	#FloppyRefNum,dqRefNum(A2)	; check if this drive is a floppy
ItsDefault	RTS									;  and return BEQ if so


;________________________________________________________________________________________
;
; Routine:	IsItAnything
;
; Inputs:	A2	-	pointer to the current drive queue entry (must not be nil!)
;			D4	-	default device's driver reference number
;
; Outputs:	CCR	-	always BEQ
;
; Trashes:	none
;
; Function:	always returns true to let all devices be accepted as startup candidates
;________________________________________________________________________________________

IsItAnything
			CMP		D0,D0						; return BEQ
			RTS



;________________________________________________________________________________________
;
; Routine:	VisualUpdate
;
; Inputs:	flashTime(A4)	-	the absolute time of the next flash of the ? or X
;			D6	-	the current state of the icons on the screen
;						bits:	10:	1=enable X flash next time, 0=flash ? next time
;								 9:	1=mark present (X or ?)
;								 8:	1=flashing enabled, 0=flashing disabled
;							  7- 0:	counter for how long to wait before switch from X back to ?
;
; Outputs:	same as inputs
;
; Trashes:	D0-D2, A0-A1
;
; Function:	keeps the user interface magic alive: flashes the disk icon when appropriate
;________________________________________________________________________________________

VisualUpdate
		; Prevent a visual glitch if device is ready right away.
			BSET	#FlashEnable,D6				; Enable flashing icon.
			BEQ.S	@DoneDisk					; Branch if previously disabled.

			MOVE.L	flashTime(A4), D0
			CMP.L	Ticks, D0					; Is it time to flash?
			BHI.S	@DoneDisk					; Branch if not.

			MOVE.L	Ticks, flashTime(A4)		; Get current time.
			ADD.L	#FlashTicks, flashTime(A4)	; Compute next time to flash.

			BCLR	#XEnable,D6					; Disable XEnable for next time;
												; Should we enable it for this time?
			BEQ.S	@NoSwitch					; Branch if not

			MOVE.B	#NumFlashX,D6				; Enable X flash by getting its count.

@NoSwitch	BCHG	#FlashParity,D6				; Switch parity.
			BNE.S	@XorQ						; Branch if we need X or ? showing.
			LEA		DiskIcon,A0					; plot the plain disk icon
			BRA.S	PlotMyIcon

@XorQ		TST.B	D6							; Are we showing an ?
			BEQ.S	@ShowQ						; Branch if so.
			SUBQ.B	#1,D6						; Eventually, we go back to a ?.
			LEA		XDiskIcon,A0				;  but for now, plot the disk icon with the X
			BRA.S	PlotMyIcon

@ShowQ		LEA		QDiskIcon,A0				; plot the disk icon with the question mark
			BRA.S	PlotMyIcon

@DoneDisk	RTS


;________________________________________________________________________________________
;
; Routine:	HappyMac
;
; Inputs:	none
;
; Outputs:	none
;
; Trashes:	D0-D2, A0-A1
;
; Function:	displays the Happy Mac icon, centered on the main video device
;________________________________________________________________________________________

HappyMac	BSR.S	EraseMyIcon					; erase what's on the screen where the icon goes
			LEA		HappyIcon,A0				; plot the happy mac icon
			BSR.S	PlotMyIcon
			RTS


;________________________________________________________________________________________
;
; Routine:	EraseMyIcon
;
; Inputs:	none
;
; Outputs:	none
;
; Trashes:	none
;
; Function:	erases the ICN# in the center of the main screen
;________________________________________________________________________________________

EraseMyIcon	MOVEM.L	D0-D2/A0-A1,-(SP)
			BSR.S	PushIconRect				; push the icon's rectangle onto the stack
			MOVE.L	SP,-(SP)					;  and point to it
			MOVE.L	grafGlobals(A5),A0			; point to the QuickDraw globals
			PEA		gray(A0)					;  and use 50% gray as the background
			_FillRect							; erase the rectangle with the desktop pattern
			ADDQ.W	#8,SP						; clean up the stack
			MOVEM.L	(SP)+,D0-D2/A0-A1
			RTS


;________________________________________________________________________________________
;
; Routine:	PlotMyIcon
;
; Inputs:	A0	-	pointer to ICN# to plot
;
; Outputs:	none
;
; Trashes:	D0-D2, A0-A1
;
; Function:	plots an icon, centered on the main video device
;________________________________________________________________________________________

PlotMyIcon	MOVE.L	A0,D2						; save the pointer to the ICN#

;  put the source bitmap on the stack (icon's bit image)

			BSR.S	PushIconRect				;  bounds = 32x32 rectangle, centered on the main screen
			MOVE.W	#32/8,-(SP)					;  rowBytes
			MOVE.L	D2,-(SP)					;  baseAddr = pointer to the icon

;  put the mask bitmap on the stack (icon's mask image)

			LEA		bitMapRec(SP),A0			; point to the end of this bitmap so we can make a copy
			MOVE.L	-(A0),-(SP)					;  bounds
			MOVE.L	-(A0),-(SP)
			MOVE.W	-(A0),-(SP)					;  rowBytes
			MOVEA.L	-(A0),A1
			PEA		128(A1)						;  baseAddr = pointer to icon's mask

;  now copy the icon to the screen using CopyMask...

			MOVE.L	A0,-(SP)					;  srcBits
			PEA		4(SP)						;  maskBits
			MOVEA.L	grafGlobals(A5),A1			; point to QuickDraw's globals
			MOVEA.L	thePort(A1),A1				; and from there get the current grafport
			PEA		portBits(A1)				;  dstBits
			PEA		bounds(A0)					;  srcRect
			MOVE.L	(SP),-(SP)					;  maskRect
			MOVE.L	(SP),-(SP)					;  dstRect
			_CopyMask							; blast it

			LEA		2*bitmapRec(SP),SP			; clean up the stack
			RTS


;________________________________________________________________________________________
;
; Routine:	PushIconRect
;
; Inputs:	none
;
; Outputs:	none
;
; Trashes:	D0-D1, A0-A1
;
; Function:	pushes a 32x32 rectangle on the stack, and then centers it on the main screen
;________________________________________________________________________________________

PushIconRect
			MOVEA.L	(SP)+,A0					; pop the return address
			MOVE.L	#(32<<16)+32,-(SP)			; push an icon rect (0,0,32,32) on the stack
			CLR.L	-(SP)
			MOVEA.L	SP,A1						;  and point to it

			MOVE.L	A0,-(SP)					; push the return address back on the stack

			MOVE.L	grafGlobals(A5),A0			; point to QuickDraw globals
			LEA		screenBits+bounds(A0),A0	;  and use the screen's rectangle as a guide
			BSR.S	@TranslateEdge				; translate the top and bottom edges
*			BRA.S	@TranslateEdge				; translate the left and right edges
			NOP									; (we need this otherwise the assembler barfs on the BSR.S)

@TranslateEdge
			MOVE.W	bottom-top(A0),D0			; calculate the height or width
			SUB.W	(A0),D0						;  of the guide rect

			MOVE.W	bottom-top(A1),D1			; calculate the height or width
			SUB.W	(A1),D1						;  of the rect to be centered

			SUB.W	D1,D0						; calculate how much to shift the position
			ASR.W	#1,D0						;  of the rect to be centered (half the difference)

			ADD.W	(A0)+,D0					; calculate the new top or left edge
			MOVE.W	D0,(A1)+					;  of the rect to be centered

			ADD.W	D1,D0						; do the same for the bottom or right edge
			MOVE.W	D0,bottom-top-2(A1)
			RTS


;---------------------------------------------------------------------------------------------
; The ICN# bitmaps (icon and mask).
;---------------------------------------------------------------------------------------------

HappyIcon	DC.L	$07FFFFC0,$08000020,$10000010,$11FFFF10,$12000090,$12000090,$12000090,$12111090
			DC.L	$12111090,$12010090,$12010090,$12030090,$12000090,$12084090,$12078090,$12000090
			DC.L	$12000090,$11FFFF10,$10000010,$10000010,$10000010,$10000010,$13003F10,$10000010
			DC.L	$10000010,$10000010,$10000010,$0FFFFFE0,$08000020,$08000020,$08000020,$0FFFFFE0

			DC.L	$07FFFFC0,$0FFFFFE0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0
			DC.L	$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0
			DC.L	$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$1FFFFFF0
			DC.L	$1FFFFFF0,$1FFFFFF0,$1FFFFFF0,$0FFFFFE0,$0FFFFFE0,$0FFFFFE0,$0FFFFFE0,$0FFFFFE0

DiskIcon	DC.L	$7FFFFFF0,$81000108,$81007104,$81008902,$81008901,$81008901,$81008901,$81008901
			DC.L	$81007101,$81000101,$80FFFE01,$80000001,$80000001,$80000001,$87FFFFE1,$88000011
			DC.L	$88000011,$88000011,$88000011,$88000011,$88000011,$88000011,$88000011,$88000011
			DC.L	$88000011,$88000011,$88000011,$88000011,$88000011,$88000011,$88000011,$FFFFFFFE

			DC.L	$7FFFFFF0,$FFFFFFF8,$FFFFFFFC,$FFFFFFFE,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
			DC.L	$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
			DC.L	$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
			DC.L	$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFE

QDiskIcon	DC.L	$7FFFFFF0,$81000108,$81007104,$81008902,$81008901,$81008901,$81008901,$81008901
			DC.L	$81007101,$81000101,$80FFFE01,$80000001,$80000001,$80000001,$87FFFFE1,$88000011
			DC.L	$88000011,$8807E011,$880FF011,$880C3011,$880C3011,$88007011,$8800E011,$8801C011
			DC.L	$88018011,$88018011,$88000011,$88018011,$88018011,$88000011,$88000011,$FFFFFFFE

			DC.L	$7FFFFFF0,$FFFFFFF8,$FFFFFFFC,$FFFFFFFE,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
			DC.L	$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
			DC.L	$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
			DC.L	$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFE

XDiskIcon	DC.L	$7FFFFFF0,$81000108,$81007104,$81008902,$81008901,$81008901,$81008901,$81008901
			DC.L	$81007101,$81000101,$80FFFE01,$80000001,$80000001,$80000001,$87FFFFE1,$88000011
			DC.L	$88000011,$88100811,$88381C11,$881C3811,$880E7011,$8807E011,$8803C011,$8803C011
			DC.L	$8807E011,$880E7011,$881C3811,$88381C11,$88100811,$88000011,$88000011,$FFFFFFFE

			DC.L	$7FFFFFF0,$FFFFFFF8,$FFFFFFFC,$FFFFFFFE,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
			DC.L	$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
			DC.L	$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
			DC.L	$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFE

		ENDWITH
			ENDPROC



;----------------------------------------------------------------------
; Execute one of the subroutines related to the timeout while waiting for
; the poll hard disk to warm up.
;
; A0	 ->	Selector indicating which routine to call.
; D0	<->	The meaning of these parameters depends upon which routine is called.
;
; Destroys D0-D2/A0-A1.
;----------------------------------------------------------------------

InternalWait PROC	EXPORT

MaxDispVal	EQU		9							; Entries 0-9 exist.

			MOVE.L	A0,D1						; Get selector.
			CMP.W	#MaxDispVal,D1				; Is value in range?
			BHI.S	@Exit						; If not, do nothing.

			ADD.W	D1,D1						; Multiply by table entry size
			LEA		@MyTable,A1					; Point to jump table.
			MOVE.W	(A1,D1.W),D1				; Get table entry.
			JMP		(A1,D1.W)					; Execute proper subroutine.

@Exit		RTS									; Return


@MyTable	DC.W	iGetTimeOut-@MyTable		; 0
			DC.W	iSetTimeOut-@MyTable		; 1

			DC.W	iGetWaitFlags-@MyTable		; 2
			DC.W	iSetWaitFlags-@MyTable		; 3

			DC.W	iDisableDynWait-@MyTable	; 4
			DC.W	iEnableDynWait-@MyTable		; 5

			DC.W	iDisablePermWait-@MyTable	; 6
			DC.W	iEnablePermWait-@MyTable	; 7


;----------------------------------------------------------------------								<A345>
; Get the timeout value.
;
; D0.L	<-	Timeout value (zero means use default).
; Z		<-	EQ if timeout indicates default; NE otherwise.
;
; Destroys D0/A0.
;----------------------------------------------------------------------								<A345>

iGetTimeOut
			BSR.S	GetRawTimeOut				; Get the current timeout parameter
			AND.B	#TimeOutMask,D0				; Mask out significant bits
			RTS									; Return


;----------------------------------------------------------------------
; Get the internal wait flags.
;
; D0.B	<-	Current wait flags.
;
; Destroys D0/A0.
;----------------------------------------------------------------------

iGetWaitFlags
			BSR.S	GetRawTimeOut				; Get the current timeout parameter
			AND.B	#WaitFlagsMask,D0			; Mask out significant bits
			RTS									; Return


;----------------------------------------------------------------------
; Set the timeout value.
;
; D0.B	->	Timeout value (zero means use default).
;
; Destroys D0-D1/A0.
;----------------------------------------------------------------------

iSetTimeOut
			MOVE.B	D0,-(SP)					; Save timeout value
			BSR.S	GetRawTimeOut				; Get the current timeout parameter
			MOVE.B	(SP)+,D1					; Get timeout value

			CMP.B	#MaxTimeOut,D1				; Is proposed timeout greater than max?
			BLS.S	@InRange					; Branch if not
			MOVEQ	#MaxTimeOut,D1				; If out of range, use max
@InRange
			AND.B	#$FF-TimeOutMask,D0			; Clear out timeout bits
			OR.B	D1,D0						; Put in new timeout value
			BRA.S	SetRawTimeOut				; Set new timeout parameter


;----------------------------------------------------------------------
; Set the timeout value.
;
; D0.B	->	Wait flags to set.
;
; Destroys D0-D1/A0.
;----------------------------------------------------------------------

iSetWaitFlags
			MOVE.B	D0,-(SP)					; Save wait flags
			BSR.S	GetRawTimeOut				; Get the current timeout parameter
			MOVE.B	(SP)+,D1					; Get wait flags

			AND.B	#WaitFlagsMask,D1			; Mask out the wait flags
			AND.B	#TimeOutMask,D0				; Clear out wait flag bits
			OR.B	D1,D0						; Put in new wait flags
			; fall into SetRawTimeOut


;----------------------------------------------------------------------
; Set the raw timeout parameter.
;
; D0.B		->	Timeout parameter.
;
; Destroys D0/A0.
;----------------------------------------------------------------------

SetRawTimeOut
			MOVE.B	D0,-(SP)					; Save new value on stack.

			MOVE.L	SP,A0						; Point to parameter.
			MOVE.L	#$00010001,D0				; Write 1 byte starting at loc $01
			_WriteXPRam							; Write it to PRAM.

			MOVE.B	(SP)+,D0					; Clean up stack
			RTS									; Return.


;----------------------------------------------------------------------
; Get the raw timeout parameter.
;
; D0.L		<-	Timeout parameter (only lowest byte is significant).
; Z			<-	EQ if timeout indicates default; NE otherwise.
;
; Destroys A0.
;----------------------------------------------------------------------

GetRawTimeOut
			CLR.B	-(SP)						; Create a place to put result.
			MOVE.L	SP,A0						; Point to parameter block.
			MOVE.L	#$00010001,D0				; Read 1 byte starting at loc $01
			_ReadXPRam							; Read it from PRAM.

			MOVEQ.L	#0,D0						; Clear upper bits.
			MOVE.B	(SP)+,D0					; Return value in timeout field.
			RTS									; Return.


;----------------------------------------------------------------------
; Disable the dynamic wait feature.
;
; Destroys D0/A0.
;----------------------------------------------------------------------

iDisableDynWait
			_GetWaitFlags						; Get the current wait flags.
			BSET	#DynWaitBit,D0				; Disable the dynamic wait feature.
			_SetWaitFlags						; Set the new wait flags.
			RTS


;----------------------------------------------------------------------
; Enable the dynamic wait feature.
;
; Destroys D0/A0.
;----------------------------------------------------------------------

iEnableDynWait
			_GetWaitFlags						; Get the current wait flags.
			BCLR	#DynWaitBit,D0				; Enable the dynamic wait feature.
			_SetWaitFlags						; Set the new wait flags.
			RTS


;----------------------------------------------------------------------
; Disable the permanent wait feature.
;
; Destroys D0/A0.
;----------------------------------------------------------------------

iDisablePermWait
			_GetWaitFlags						; Get the current wait flags.
			BSET	#PermWaitBit,D0				; Disable the permanent wait feature.
			_SetWaitFlags						; Set the new wait flags.
			RTS


;----------------------------------------------------------------------
; Enable the permanent wait feature.
;
; Destroys D0/A0.
;----------------------------------------------------------------------

iEnablePermWait
			_GetWaitFlags						; Get the current wait flags.
			BCLR	#PermWaitBit,D0				; Enable the permanent wait feature.
			_SetWaitFlags						; Set the new wait flags.
			RTS

			ENDPROC


;----------------------------------------------------------------------
; Get information about the current default startup device.
;
; A0	->	A pointer to the record in which the info should be put.
;
; The record has the following format:
;
;	RECORD
;		sdDrvNum:	INTEGER;		{ Drive number }
;		sdRefNum:	INTEGER;		{ Driver reference number }
;	END;
;
; The sdDrvNum field is $FFFF if the drive number is irrelevant.
; The sdRefNum field is $0000 if the first available device should be chosen.
;
; Destroys D0-D2/A0-A1.
;----------------------------------------------------------------------

GetDefaultStartup	PROC	EXPORT

; Read info from parameter RAM.  Format is:
; $78 [ (byte) DriveId{for slots} | (byte) PartitionId | (word) RefNum ]

			MOVE.L	#$00040078,D0				; Read 4 bytes starting at loc $78
			_ReadXPRam							; Get it from PRAM.
			RTS									; Return.

			ENDPROC


;----------------------------------------------------------------------
; Set a new default startup device.
;
; A0	->	A pointer to the record from which the info should be taken.
;
; The record has the following format:
;
;	RECORD
;		sdDrvNum:	INTEGER;		{ Drive number }
;		sdRefNum:	INTEGER;		{ Driver reference number }
;	END;
;
; The sdDrvNum field is $FFFF if the drive number is irrelevant.
; The sdRefNum field is $0000 if the first available device should be chosen.
;
; Destroys D0-D2/A0-A1.
;----------------------------------------------------------------------

SetDefaultStartup	PROC	EXPORT

; Write info to parameter RAM.  Format is:
; $78 [ (byte) DriveId{for slots} | (byte) PartitionId | (word) RefNum ]

			MOVE.L	#$00040078,D0				; Write 4 bytes starting at loc $78
			_WriteXPRam							; Write it to PRAM.
			RTS									; Return.

			ENDPROC


		IF	hasSlotMgr	THEN 					; (what condition should this be???)
;----------------------------------------------------------------------
; Get more information about the current default startup device
;
; A0	->	A pointer to the record in which the info should be put.
;
; The record has the following format:
;
;	RECORD
;		sdOSType:	BYTE;		{ Default OS type }
;		sdReserved:	BYTE;		{ Reserved }
;	END;
;
; Destroys D0-D2/A0-A1.
;----------------------------------------------------------------------

GetOSDefault	PROC	EXPORT

; Read info from parameter RAM.  Format is:
; $76 [ (byte) Reserved | (byte) OSType ]

			MOVE.L	#$00020076,D0				; Read 2 bytes starting at loc $76
			_ReadXPRam							; Get it from PRAM.
			move.b	#0, (A0)					; clear high byte
			RTS									; Return.

			ENDPROC


;----------------------------------------------------------------------
; Set more information about a new default startup device.
;
; A0	->	A pointer to the record from which the info should be taken.
;
; The record has the following format:
;
;	RECORD
;		sdOSType:	BYTE;		{ Default OS type }
;		sdReserved:	BYTE;		{ Reserved }
;	END;
;
; Destroys D0-D2/A0-A1.
;
; <1.4>	SetOSDefault blindly set pram to the values pointed at by A0.
;		Master pointers to rom resources on a macintosh ][ are of the
;		form A083XXXX.  The Trap number for SetOSDefault is A083.  If
;		a program crashed and started executing random blocks, then
;		there was a good chance that it would try to execute a master
;		pointer.  The result would be that the default OS on reboot is
;		not valid.  Cross reference PB337 in system sources.  The fix
;		is to require a password, to prevent wandering programs from
;		creating Chaos.
;
;----------------------------------------------------------------------

SetOSDefault	PROC	EXPORT

AppPhne			EQU		$09961010

			cmpi.l	#AppPhne, SetOSPassword		; check if oneshot is on
			bne.s	@errexit
			clr.l	SetOSPassword 

; Write info to parameter RAM.  Format is:
; $76 [ (byte) Reserved | (byte) OSType | (byte) DriveId{for slots} | (byte) PartitionId | (word) RefNum ]

			MOVE.L	#$00020076,D0				; Write 2 bytes starting at loc $76
			_WriteXPRam							; Write it to PRAM.
			RTS									; Return.

@errexit	clr.l	SetOSPassword
			moveq	#-1,d0						; signal error
			rts									; and return

			ENDPROC


;________________________________________________________________________________________
;
; Routine:	Ck4LimitPRAMClear
;
; Inputs:	none
;
; Outputs:	Z:	NE = only boot from Default device
;				EQ = boot from Floppy or Default
; 			D0:	NE = only boot from Default device
;				EQ = boot from Floppy or Default
;
; Trashes:	D0, A0
;
;________________________________________________________________________________________

Ck4LimitPRAMClear	PROC	EXPORT

			IMPORT	ValidatePRAM76					; StartSearch.a
			bsr		ValidatePRAM76
			subq.w	#2,sp							; allocate buffer on stack
			movea.l	sp, A0							; get buffer ptr
			MOVE.L	#$00010076, D0					; Read 1 bytes starting at loc $76
			_ReadXPRam
			move.b	(sp)+, D0
			and.b	#1, D0							; low bit
			rts

			ENDPROC
		
			
;________________________________________________________________________________________
;
; Routine:	ValidatePRAM76
;
; Inputs:	none
;
; Outputs:	none
;
; Trashes:	none
;
; Function:	Validates byte $76 of xpram: counts set bits in lower 6 and compares with
;			upper two bits.  If not equal, zeros out the byte.
;
; Note: Byte $76 (previously reserved but used by OSDefault stuff) is
;		being defined as sensitive boot bits generally having to do with
;		security issues driven by AIX but these functions can be used
;		by other OSes as well.  The upper two bits of byte $76 are a
;		"checksum" of the other 6 bits (i.e. count of bits set).  This
;		is desired because of the danger if one of these bits is set 
;		accidentally by some bogus client.  Failing this checksum will
;		cause the byte to revert to 00 - a safe value. Currently defined
;		bits are:
;			0: limit PRAM clear - don't clear PSWD, AUXPRAM, OSType, DefBoot
;			1: only load drivers from default device, don't boot from floppy
;			2: ignore CmdShiftOptDel
;
;________________________________________________________________________________________
vp76trashedRegs	REG	D0-D2/A0

ValidatePRAM76	PROC	EXPORT

			movem.l	vp76trashedRegs, -(sp)
			
			subq.w	#2, sp							; allocate buffer on stack
			movea.l	sp, A0							; get buffer ptr
			MOVE.L	#$00010076, D0					; Read 1 bytes starting at loc $76
			_ReadXPRam								; Get it from PRAM.
			move.b	(sp)+, D0
			
			move.b	#0, D2							; zero reg for addx
			moveq.l	#0, D1							; clear checksum
			and.b	#$3F, D0						; get data bits (strip sum bits)
@bitloop			
			lsr.b	#1, D0							; get a bit
			addx.b	D2, D1							; add that bit to checksum
			tst.b	D0								; loop until no more bits
			bne.s	@bitloop
			
			and.b	#3, D1							; only 2 low bits are valid
			
			move.b	(A0), D0						; get byte 76 again
			lsr.b	#6, D0							; get only checksum bits
			
			cmp.b	D0, D1							; valid signature?
			beq		@valid							; Yes, don't clear all

			move.b	#00, -(sp)						; clean up bogus value
			movea.l	sp, A0							; get buffer ptr
			move.l	#$00010076, D0					; get #, addr PRAM bytes
			_WriteXPram								; write out zeros to 76
			move.b	(sp)+, D0
@valid
			movem.l	(sp)+, vp76trashedRegs
			rts
			
			ENDP
			

;----------------------------------------------------------------------	
; Get information about the current default video device.
;
; A0	->	A pointer to the record from which the info should be put.
;
; The record has the following format:
;
;	RECORD
;		sdSlot:		BYTE;
;		sdsRsrcId:	BYTE
;	END;
;
; sdSlot and sdsRsrcId are zero if no default.
;
; Destroys D0-D2/A0-A1.
;----------------------------------------------------------------------	

GetVideoDefault	PROC	EXPORT

; Read info from parameter RAM.  Format is:
; $80 [ (byte) Slot Number | (byte) sResource Number ]

			MOVE.L	#$00020080,D0				; Read 2 bytes starting at loc $80
			_ReadXPRam							; Get it from PRAM.
			RTS									; Return.

			ENDPROC


;----------------------------------------------------------------------	
; Set information about the default video device.
;
; A0	->	A pointer to the record from which the info should be put.
;
; The record has the following format:
;
;	RECORD
;		sdSlot:		BYTE;
;		sdsRsrcId:	BYTE
;	END;
;
; sdSlot and sdsRsrcId are zero if no default.
;
; Destroys D0-D2/A0-A1.
;----------------------------------------------------------------------	

SetVideoDefault	PROC	EXPORT

; Write info to parameter RAM.  Format is:
; $80 [ (byte) Slot Number | (byte) sResource Number ]

			MOVE.L	#$00020080,D0				; Write 2 bytes starting at loc $80
			_WriteXPRam							; Write them to PRAM.
			RTS									; Return.

			ENDPROC

			ENDIF


			END