aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/zero.asm
blob: a03942cbc442b5df25dde4fa082a41683ab3746b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
; ( -- 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