; ( addr - n) Memory
; R( -- )
; read 2 bytes from eeprom
VE_EFETCH:
.db $02, "e@",0
.dw VE_HEAD
.set VE_HEAD = VE_EFETCH
XT_EFETCH:
.dw PFA_EFETCH
PFA_EFETCH:
movw zl, tosl
PFA_EFETCH1:
in temp0, EECR
sbrc temp0,EEWE
rjmp PFA_EFETCH1
out EEARH, zh
out EEARL, zl
sbi EECR,EERE
in tosl,EEDR
adiw zl,1
PFA_EFETCH2:
in temp1, EECR
sbrc temp1,EEWE
rjmp PFA_EFETCH2
out EEARH,zh
out EEARL,zl
sbi EECR,EERE
in tosh,EEDR
rjmp DO_NEXT