PIC Basic XOR

XOR คือเกตที่ให้สัญญาณขาออกเป็น 1 เมื่อสัญญาณขาเข้าต่างกัน และจะให้สัญญาณขาออกเป็น 0 เมื่อสัญญาณขาเข้าเหมือนกัน สำหรับภาษา Basic จะใช้เครื่องหมาย ^ แทน XOR

ตารางค่าความจริงของเกต XOR เป็นดังนี้

ตัวอย่างโปรแกรม

‘****************************************************************
‘*  Name    : xor.BAS 
‘*  Author  : HS3UKA   
‘*  Notice  : Copyright (c) 2013
‘*          : All Rights Reserved 
‘*  Date    : 1/2/2013 
‘*  Version : 1.0 
‘*  Notes   : http://www.hs3uka.com
‘****************************************************************
include “modedefs.bas”
define OSC 10
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG  PORTB
DEFINE LCD_EBIT 1

TRISB=%00000000

H1     VAR BYTE
H2     VAR BYTE
H3     VAR BYTE

H1=%10101011
H2=%11111111

main:
        H3 = H1 ^ H2        
        lcdout $fe,$1, “(“, DEC3 H1, “) “, BIN8 H1
        lcdout $fe,$C0,”             XOR”
        lcdout $fe,$90,”(“, DEC3 H2, “) “, BIN8 H2
        lcdout $fe,$D0,”(“, DEC3 H3, “) “, BIN8 H3
        Pause 50
        
    GoTo main