aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/fetch-i.asm
blob: 5cdcc3726118dbc50cb3ab77b737f552d80a8ebd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( f-addr -- n1 ) 
; Memory
; read 1 cell from flash
VE_FETCHI:
    .dw $ff02
    .db "@i"
    .dw VE_HEAD
    .set VE_HEAD = VE_FETCHI
XT_FETCHI:
    .dw PFA_FETCHI
PFA_FETCHI:
    movw zl, tosl
    readflashcell tosl,tosh
    jmp_ DO_NEXT