aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/cfetch.asm
blob: 97ff7dcccbd7cd8ac778f257aa903a841d0d4df3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( a-addr - c1 ) 
; Memory
; fetch a single byte from memory mapped locations
VE_CFETCH:
    .dw $ff02
    .db "c@"
    .dw VE_HEAD
    .set VE_HEAD  = VE_CFETCH
XT_CFETCH:
    .dw PFA_CFETCH
PFA_CFETCH:
    movw zl, tosl
    clr tosh
    ld tosl, Z
    jmp_ DO_NEXT