aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/plus.asm
blob: 1b2a6c4e967e9864e1abc5fdd6e6c1679441eba1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( n1 n2 -- n3) 
; Arithmetics
; add n1 and n2
VE_PLUS:
    .dw $ff01
    .db "+",0
    .dw VE_HEAD
    .set VE_HEAD = VE_PLUS
XT_PLUS:
    .dw PFA_PLUS
PFA_PLUS:
    ld temp0, Y+
    ld temp1, Y+
    add tosl, temp0
    adc tosh, temp1
    jmp_ DO_NEXT