aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/qdup.asm
blob: 2bb9eb04567f27cca6880b0ff7e5190f9de8fd76 (plain)
1
2
3
4
5
;C ?DUP     x -- 0 | x x    DUP if nonzero
        CODEHEADER(XT_QDUP,4,"?dup")
        CMP     #0,TOS          ; 1  test for TOS nonzero
        JNZ     PUSHTOS         ; 2
NODUP:  NEXT                    ; 4