aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/u-less.asm
blob: 2e7b5afc7f88fea0873c8010570819cec743a52c (plain)
1
2
3
4
5
6
;C U<    u1 u2 -- flag       test u1<u2, unsigned
        CODEHEADER(XT_ULESS,2,"u<")
        MOV     @PSP+,W
        SUB     TOS,W       ; u1-u2 in W, cy clear if borrow
        JNC     TOSTRUE
        JMP     TOSFALSE