; wipe eeprom to clear hi-scores

clear::
	moveq.l	#63,d2		; counter
	moveq.l	#0,d0		; blanking data
	moveq.l	#0,d1		; address to write to

.lp:	bsr	eewrite
	addq.l	#2,d1
	dbra	d2,.lp

;	illegal

check::
	moveq.l	#63,d2
	moveq.l	#0,d3
	moveq.l	#0,d1

.lp:	bsr	eeread
	cmp.w	d3,d0
	bne	clear
	dbra	d2,.lp

illegal


.include 'eeprim.s'

