aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/notequalzero.asm
blob: 5088bf333ad7aa7b0e4fa169fe42e7db10b2ec14 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( n -- flag ) 
; Compare
; true if n is not zero
VE_NOTZEROEQUAL:
    .dw $ff03
    .db "0<>",0
    .dw VE_HEAD
    .set VE_HEAD = VE_NOTZEROEQUAL
XT_NOTZEROEQUAL:
    .dw DO_COLON
PFA_NOTZEROEQUAL:
    .dw XT_ZEROEQUAL
    .dw XT_ZEROEQUAL
    .dw XT_EXIT