aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/qdup.asm
blob: e65640bc844fce55f723964568abc7a6714aaae7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
; ( n1 -- [ n1 n1 ] | 0) 
; Stack
; duplicate TOS if non-zero
VE_QDUP:
    .dw $ff04
    .db "?dup"
    .dw VE_HEAD
    .set VE_HEAD = VE_QDUP
XT_QDUP:
    .dw PFA_QDUP
PFA_QDUP:
    mov temp0, tosl
    or temp0, tosh
    breq PFA_QDUP1
    savetos
PFA_QDUP1:
    jmp_ DO_NEXT