aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/uless.asm
blob: 69d5a6b4d580c4c23b0ed2d888686b6504bbed16 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; ( u1 u2 -- flasg) 
; Compare
; true if u1 < u2 (unsigned)
VE_ULESS:
    .dw $ff02
    .db "u<"
    .dw VE_HEAD
    .set VE_HEAD = VE_ULESS
XT_ULESS:
    .dw PFA_ULESS
PFA_ULESS:
    ld temp2, Y+
    ld temp3, Y+
    cp tosl, temp2
    cpc tosh, temp3
    brlo PFA_ZERO1
    brbs 1, PFA_ZERO1
    jmp_ PFA_TRUE1