aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/r_from.asm
blob: 66c1ebc0974286e4f4565e0412536d216f6c2f8b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( -- n ) (R: n --)
; Stack
; move TOR to TOS
VE_R_FROM:
    .dw $ff02
    .db "r>"
    .dw VE_HEAD
    .set VE_HEAD = VE_R_FROM
XT_R_FROM:
    .dw PFA_R_FROM
PFA_R_FROM:
    savetos
    pop tosl
    pop tosh
    jmp_ DO_NEXT