aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/minus.asm
blob: e1922cea7f8ff31c00ff5515fe5d3139b86f8348 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
; ( n1|u1 n2|u2 -- n3|u3 ) 
; Arithmetics
; subtract n2 from n1
VE_MINUS:
    .dw $ff01
    .db "-",0
    .dw VE_HEAD
    .set VE_HEAD = VE_MINUS
XT_MINUS:
    .dw PFA_MINUS
PFA_MINUS:
    ld temp0, Y+
    ld temp1, Y+
    sub temp0, tosl
    sbc temp1, tosh
    movw tosl, temp0
    jmp_ DO_NEXT