;	WRITE A STRUCTURE IN EEPROM
;	Copyright (c) 2008 by COSMIC Software
;	- eeprom address in X
;	- structure address in Y
;	- structure size in A
;
	xdef	d_eewstr
	xref.b	c_x
	include	"eeprom.i"
	.dcall	"3,0,d_eewstr"
;
d_eewstr:
	ld	c_x,a		; copy count
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
	dec	c_x
	jrne	bcl		; loop if more bytes
	retf			; return
;
	end