aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/to_r.asm
blob: 3e038de5b2d84091fe07e3622de69d6f5a16481e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( n -- ) (R: -- n)
; Stack
; move TOS to TOR
VE_TO_R:
    .dw $ff02
    .db ">r"
    .dw VE_HEAD
    .set VE_HEAD = VE_TO_R
XT_TO_R:
    .dw PFA_TO_R
PFA_TO_R:
    push tosh
    push tosl
    loadtos
    jmp_ DO_NEXT