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