aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/invert.asm
blob: 84d7a1ddeda409efbcd36f338d0f4b9fc203e3e0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
; ( n1 -- n2) 
; Arithmetics
; 1-complement of TOS
VE_INVERT:
    .dw $ff06
    .db "invert"
    .dw VE_HEAD
    .set VE_HEAD = VE_INVERT
XT_INVERT:
    .dw PFA_INVERT
PFA_INVERT:
    com tosl
    com tosh
    jmp_ DO_NEXT