aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/less.asm
blob: 57b8705cf342ddf18cae4bea345b028a1bd3b499 (plain)
1
2
3
4
5
6
7
;C <      n1 n2 -- flag        test n1<n2, signed
        CODEHEADER(XT_LESS,1,"<")
        MOV     @PSP+,W
        SUB     TOS,W       ; x1-x2 in W, flags set
        JGE     TOSFALSE
TOSTRUE: MOV    #-1,TOS
        NEXT