; ( addr -- n1 ) Memory
; R( -- )
; reads a cell from flash, addr is cell address, not byte addres first byte gets into the lower word on tos
VE_IFETCH:
.db $02, "i@", 0
.dw VE_HEAD
.set VE_HEAD = VE_IFETCH
XT_IFETCH:
.dw PFA_IFETCH
PFA_IFETCH:
movw zl, tosl
lsl zl
rol zh
lpm tosl, z+
lpm tosh, z+
rjmp DO_NEXT