aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/mplus.asm
blob: 28f76bd9c0d6ff7787e5416b01fe7c5dbd70b49d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( d1 n1 -- d2) 
; Arithmetics
; add a number to a double cell
VE_MPLUS:
    .dw $ff02
    .db "m+"
    .dw VE_HEAD
    .set VE_HEAD = VE_MPLUS
XT_MPLUS:
    .dw DO_COLON
PFA_MPLUS:
    .dw XT_S2D
    .dw XT_DPLUS
    .dw XT_EXIT