aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/less.asm
blob: 8426acd2ad64167a2ddffb8b3ac61353c2213e26 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; ( n1 n2 -- flag) 
; Compare
; true if n1 is less than n2
    VE_LESS:
    .dw $ff01
    .db "<",0
    .dw VE_HEAD
    .set VE_HEAD = VE_LESS
XT_LESS:
    .dw PFA_LESS
PFA_LESS:
    ld temp2, Y+
    ld temp3, Y+
    cp temp2, tosl
    cpc temp3, tosh
PFA_LESSDONE:
    brge PFA_ZERO1
    rjmp PFA_TRUE1