;	WRITE A LARGE STRUCTURE IN EEPROM
;	Copyright (c) 2008 by COSMIC Software
;	- eeprom address in X extension
;	- structure address in Y
;	- structure size in X 
;
	xdef	d_eewstrl
	xref.b	c_x, c_y
	include	"eeprom.i"
	.dcall	"3,0,d_eewstrl"
;
d_eewstrl:
	addw	x,c_x		; end address
	ldw	c_y,x		; in memory
	ldw	x,c_x		; eeprom address
bcl:
	ld	a,(y)		; get byte
	ld	(x),a		; and store in latch
wait:
	btjt	IAPSR,#EOP,wait ; wait for completion
	incw	y		; next byte
	incw	x		; next byte
	cpw	x,c_y
	jrne	bcl		; loop if more bytes
	retf			; return
;
	end