aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/cellplus.asm
blob: e75de15afd692db23c6fdef2ae18adcf39c2a7ea (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
; ( a-addr1 -- a-addr2 ) 
; Arithmetics
; add the size of an address-unit to a-addr1
VE_CELLPLUS:
    .dw $ff05
    .db "cell+",0
    .dw VE_HEAD
    .set VE_HEAD = VE_CELLPLUS
XT_CELLPLUS:
    .dw PFA_CELLPLUS
PFA_CELLPLUS:
    adiw tosl, CELLSIZE
    jmp_ DO_NEXT