aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/negate.asm
blob: 6c2527e29965d4870d3f4341ddca4a26b7f75af7 (plain)
1
2
3
4
5
;C NEGATE   x1 -- x2            two's complement
        CODEHEADER(XT_NEGATE,6,"negate")
        XOR     #-1,TOS
        ADD     #1,TOS
        NEXT