words/zero.asm

Jump to Vocabulary

; ( -- 0 ) Arithmetics
; R( -- )
; leaves the value 0 on TOS
VE_ZERO:
    .db $01, "0"
    .dw VE_HEAD
    .set VE_HEAD = VE_ZERO
XT_ZERO:
    .dw PFA_DOVARIABLE
PFA_ZERO:
    .dw 0

Jump to Vocabulary