*
*	TEST DRIVER PROGRAM, SEND SOME BYTES TO ON-CHIP EEPROM
*
*	This program has some TYPOS and should not be run until they are fixed!
*
	ORG $2000
	LDY #STRPTR
	LDX #$B7AF
MORE	LDAA 0,Y
	INX
	BSR PROG
	INY
	CPY LSTPTR
	BNE MORE
	JMP $E000
STRPTR	FCC	"DR F S 2009"
LSTPTR	RMB	0
*
*	PROGRAM AN EEPROM BYTE
*
*	MOSTLY FROM MOTOROLA REF-MAN, PG 4-12
*	(SLIGHTLY MODIFIED)
*
*	ACC A SHOULD HAVE DATA TO PROGRAM, 
*	IND X SHOULD HAVE ADDRESS OF BYTE (IN EEPROM)
*
*
PROG	LDAB #$02
	STAB $103B
	STAA 0,X
	LDAB #$03
	STAB $103B
	BSR  DLY10
	CLR  $103B
	RTS
*
*
*
*	Delay of 10 ms
*
*
DLY10	PSHX
	LDX	#2000
LDLY10	NOP
	NOP
	DEX
	BNE 	LDLY10
	PULX
	RTS