words/xor.asm

Jump to Vocabulary

; ( n1 n2 -- n3) Logic
; R( -- )
; exclusive or
VE_XOR:
    .db $03, "xor"
    .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
    rjmp DO_NEXT

Jump to Vocabulary