	NAM	BOOT
* WRITTEN BY R. H. UITERWYK

DRVREG	EQU	$8014
COMREG	EQU	$8018
DATREG	EQU	$801B
SECREG	EQU	$801A

	ORG	$0100

START	CLRA
	STAA	DRVREG
	LDX	#$FFFF
START0	INX
	DEX
	DEX
	BNE	START0
	LDAB	#$0B		* RESTORE W/LOAD
	STAB	COMREG
	BSR	RETURN
LOOP1	LDAB	COMREG
	BITB	#1
	BNE	LOOP1
	CLR	SECREG
	BSR	RETURN
	LDAB	#$9C
	STAB	COMREG
	BSR	RETURN
	LDX	#$2400
LOOP2	BITB	#2
	BEQ	LOOP3
	LDAA	DATREG
	STAA	0,X
	INX
LOOP3	LDAB	COMREG
	BITB	#1
	BNE	LOOP2
	JMP	$2400
RETURN	RTS
	END
