aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/2to_r.asm
blob: 0e70f1839240ae19f947a30aeb42874731ceb553 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
; ( x1 x2 -- ) (R: -- x1 x2)
; Stack
; move DTOS to TOR
VE_2TO_R:
    .dw $ff03
    .db "2>r",0
    .dw VE_HEAD
    .set VE_HEAD = VE_2TO_R
XT_2TO_R:
    .dw PFA_2TO_R
PFA_2TO_R:
    movw zl, tosl
    loadtos
    push tosh
    push tosl
    push zh
    push zl
    loadtos
    jmp_ DO_NEXT