words/lesszero.asm

Jump to Vocabulary

; ( n1 -- flag) Compare
; R( -- )
; compare with zero
VE_LESSZERO:
    .db $02, "0<",0
    .dw VE_HEAD
    .set VE_HEAD = VE_LESSZERO
XT_LESSZERO:
    .dw PFA_LESSZERO
PFA_LESSZERO:
    cp tosl, zerol
    cpc tosh, zeroh
    rjmp PFA_LESSDONE

Jump to Vocabulary