BOOT   ;		* * * * * * * * * * * * *
 ;		*  PROGRAM BY KIM WATT  *
 ;		* BREEZE COMPUTING INC. *
 ;		*     P.O. BOX  1013    *
 ;		* BERKLEY, MICH.  48072 *
 ;		*    (313) 288-9422     *
 ;		*    FEBRUARY,  1980    *
 ;		* * * * * * * * * * * * *																
 ;	LOADER/TXT																				
 	ORG	4200H
 ENTRY	DI			;BEGINNING OF STACK
 	LD	SP,ENTRY	;LOAD IT
 	CALL	DISPLY		;DISPLAY FOLLOWING
 	DEFW	1F1CH		;CLEAR SCREEN
 	DEFM	'BREEZE SPECIAL UTILITY LOADER - '
 	DEFM	'VERSION 1.0'
 	DEFB	0		;TERMINATOR
 	CALL	BOOT		;LOAD UTILITIES INTO MEM.
 	JP	7100H		;TRANSFER CONTROL
 DISPLY	POP	HL		;GET DATA POINTER
 AA	LD	A,(HL)		;GET BYTE
 	INC	HL		;POINT TO NEXT BYTE
 	OR	A		;SET FLAGS
 	JR	Z,AB		;END OF MESSAGE REACHED
 	CALL	33H		;DISPLAY BYTE
 	JR	AA		;DO IT AGAIN
 AB	PUSH	HL		;SAVE RETURN ADDRESS
 	RET			;BACK TO CALLING ROUTINE
 SECTOR	EQU	37EEH		;SECTOR ADDRESS
 DATA	EQU	37EFH		;DATA TRANSFER ADDRESS
 DRIVE	EQU	37E1H		;DRIVE SELECT ADDRESS
 STATUS	EQU	37ECH		;STATUS REGISTER
 COMAND	EQU	37ECH		;	& COMMAND REG.
 BOOT	LD	A,1		;SELECT DRIVE
 	LD	(DRIVE),A	;	1=DRIVE 0
 	LD	A,3		;RESTORE BYTE
 	LD	(COMAND),A	;PERFORM
 	LD	BC,00H		;DELAY COUNT
 	CALL	60H		;PERFORM
 	LD	HL,STATUS	;SEE IF COMPLETED
 AD	BIT	1,(HL)		;DONE ?
 	JR	Z,AD		;WAIT IF NOT
 	XOR	A		;ZERO ACCUM
 	LD	(SECTOR),A	;ZERO REGISTER
 	LD	A,53H		;STEP IN BYTE (LOAD)
 	LD	(COMAND),A	;PERFORM
 	PUSH	AF
 	POP	AF		;SHORT DELAY
 	PUSH	AF
 	POP	AF
 AE	BIT	1,(HL)		;DONE ?
 	JR	Z,AE		;WAIT IF NOT
 	LD	BC,4400H	;BUFFER AREA - 100H
 	LD	D,50		;READ 5 TRACKS
 AF	XOR	A		;ZERO ACCUM.
 	LD	(SECTOR),A	;	& SECTOR REG.
 	LD	A,98H		;READ BYTE
 	LD	(COMAND),A	;PERFORM
