aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/zero-equal.asm
blob: 2c159e255a43241da3eaf352c2dc2b8ee9cd34b7 (plain)
1
2
3
4
5
;C 0=     n/u -- flag    return true if TOS=0
        CODEHEADER(XT_ZEROEQUAL,2,"0=")
        SUB     #1,TOS      ; borrow (clear cy) if TOS was 0
        SUBC    TOS,TOS     ; TOS=-1 if borrow was set
        NEXT