aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/zero-less.asm
blob: 2b8252f52b5564f31e8097dafe3f8fca273778f9 (plain)
1
2
3
4
5
6
;C 0<     n -- flag      true if TOS negative
        CODEHEADER(XT_ZEROLESS,2,"0<")
        ADD     TOS,TOS     ; set cy if TOS negative
        SUBC    TOS,TOS     ; TOS=-1 if carry was clear
        XOR     #-1,TOS     ; TOS=-1 if carry was set
        NEXT