aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/d-lesszero.asm
blob: afa70c7874e3f1a6faaea0a470eb3726583b462e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( d -- flag )
; Compare
; compares if a double double cell number is less than 0
VE_DXT_ZEROLESS:
    .dw $ff03
    .db "d0<",0
    .dw VE_HEAD
    .set VE_HEAD = VE_DXT_ZEROLESS
XT_DXT_ZEROLESS:
    .dw PFA_DXT_ZEROLESS
PFA_DXT_ZEROLESS:
    adiw Y,2
    sbrc tosh,7
    jmp PFA_TRUE1
    jmp PFA_ZERO1