aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/1minus.asm
blob: ca70fed3cb26996d3f1a4508f3c1fe0aa31e47e7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
; (S: n1 -- n2 )
; Arithmetics
; optimized decrement
VE_1MINUS:
    .dw $ff02 
    .db "1-"
    .dw VE_HEAD
    .set VE_HEAD = VE_1MINUS
XT_1MINUS:
    .dw PFA_1MINUS
PFA_1MINUS:
    sbiw tosl, 1
    jmp_ DO_NEXT