aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/greaterzero.asm
blob: 61cca0eca707763cb385644317eccad34bee0d86 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( n1 -- flag )
; Compare
; true if n1 is greater than 0
VE_GREATERZERO:
    .dw $ff02
    .db "0>"
    .dw VE_HEAD
    .set VE_HEAD = VE_GREATERZERO
XT_GREATERZERO:
    .dw PFA_GREATERZERO
PFA_GREATERZERO:
    cp tosl, zerol
    cpc tosh, zeroh
    brlt PFA_ZERO1
    brbs 1, PFA_ZERO1
    rjmp PFA_TRUE1