aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/n_r_from.asm
blob: d69dc1b014990293b0731efeb6dcc16815e4995a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
; ( -- x-n .. x-1 n ) (R: x-n .. x-1 n -- )
; Stack
; move n items from return stack to data stack
VE_N_R_FROM:
    .dw $ff03
    .db "nr>",0
    .dw VE_HEAD
    .set VE_HEAD = VE_N_R_FROM
XT_N_R_FROM:
    .dw PFA_N_R_FROM
PFA_N_R_FROM:
    savetos
    pop zh
    pop zl
    mov  temp0, zl
PFA_N_R_FROM1:
    pop tosl
    pop tosh
    savetos
    dec temp0
    brne PFA_N_R_FROM1
    movw tosl, zl
    jmp_ DO_NEXT