aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/xor.asm
blob: 337259c7eec1619e36735b0c3ba6c1efc91cd077 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; ( n1 n2 -- n3) 
; Logic
; exclusive or
VE_XOR:
    .dw $ff03
    .db "xor",0
    .dw VE_HEAD
    .set VE_HEAD = VE_XOR
XT_XOR:
    .dw PFA_XOR
PFA_XOR:
    ld temp0, Y+
    ld temp1, Y+
    eor tosl, temp0
    eor tosh, temp1
    jmp_ DO_NEXT