aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/equal.asm
blob: 169078c888a9823c0409cab1ddf411f09bfee953 (plain)
1
2
3
4
5
6
7
;C =      x1 x2 -- flag         test x1=x2
        CODEHEADER(XT_EQUAL,1,"=")
        MOV     @PSP+,W
        SUB     TOS,W       ; x1-x2 in W, flags set
        JZ      TOSTRUE
TOSFALSE: MOV   #0,TOS
        NEXT