aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/true.asm
blob: 9b64014aa1ee6d7e2230908daa6c8c0d5aa3f0e6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( -- -1 ) 
; Arithmetics
; leaves the value -1 (true) on TOS
VE_TRUE:
    .dw $ff04
    .db "true"
    .dw VE_HEAD
    .set VE_HEAD = VE_TRUE
XT_TRUE:
    .dw PFA_TRUE
PFA_TRUE:
    savetos
PFA_TRUE1:
    ser tosl
    ser tosh
    jmp_ DO_NEXT