aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/2r_from.asm
blob: ffb5a34c5e87003e16b2fe3753d21fa8409dee18 (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 DTOR to TOS
VE_2R_FROM:
    .dw $ff03
    .db "2r>",0
    .dw VE_HEAD
    .set VE_HEAD = VE_2R_FROM
XT_2R_FROM:
    .dw PFA_2R_FROM
PFA_2R_FROM:
    savetos
    pop zl
    pop zh
    pop tosl
    pop tosh
    savetos
    movw tosl, zl
    jmp_ DO_NEXT