;	EEPROM WRITE ROUTINES
;	Copyright (c) 2008 by COSMIC Software
;	- eeprom address in X
;	- value in A (char) or on stack (int)
;
	xdef	c_eewrc, c_eewrw
	xref.b	c_x
	include	"eeprom.i"
	.dcall	"2,2,c_eewrw"
	.dcall	"2,0,c_eewrc"
;
;	program a word
;
c_eewrw:
	ld	a,(4,sp)	; LSB
	ld	(1,x),a		; store
wait:
	btjt	IAPSR,#EOP,wait ; wait for completion
	ld	a,(3,sp)	; MSB
;
;	program one byte
;
c_eewrc:
	ld	(x),a		; store value
wai2:
	btjt	IAPSR,#EOP,wai2 ; wait for completion
	ret			; and return
;
	end