; ( -- 0 ) ; Arithmetics ; place a value 0 on TOS VE_ZERO: .dw $ff01 .db "0",0 .dw VE_HEAD .set VE_HEAD = VE_ZERO XT_ZERO: .dw PFA_ZERO PFA_ZERO: savetos PFA_ZERO1: movw tosl, zerol jmp_ DO_NEXT