aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/r_fetch.asm
blob: 06d8ab04b806bab1a52ab69c04a185fa111857ca (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
; ( -- n) (R: n -- n )
; Stack
; fetch content of TOR
VE_R_FETCH:
    .dw $ff02
    .db "r@"
    .dw VE_HEAD
    .set VE_HEAD = VE_R_FETCH
XT_R_FETCH:
    .dw PFA_R_FETCH
PFA_R_FETCH:
    savetos
    pop tosl
    pop tosh
    push tosh
    push tosl
    jmp_ DO_NEXT