Device 16F876
Xtal 4
Config WDT_OFF, PWRTE_ON, LVP_OFF

Hserial_Baud = 4800
Hserial_RCSTA = %10010000
Hserial_TXSTA = %00100000
Hserial_Clear = On

TRISC.6 = 0
TRISC.7 = 1

TRISB = 0

Symbol C_R = 13

Sonyin_Pin = PORTC.4                        ' Choose the port and pin for the infrared sensor
 Dim SONYIN_WORD As Word                     ' Create a WORD variable to receive the SIRC data
 Dim SONY_COMMAND As SONYIN_WORD.LowByte     ' Alias the COMMAND byte to SONYIN_WORD low byte
 Dim SONY_SYSTEM As SONYIN_WORD.HighByte     ' Alias the COMMAND byte to SONYIN_WORD high byte
 
 All_Digital = On                            ' Make all pins digital mode                                        
 While 1 = 1                                 ' Create an infinite loop                    
    PORTB = 0
    
    Repeat
    SONYIN_WORD = SonyIn                     ' Receive a signal from the infrared sensor
    Until SONY_COMMAND<> 255                   ' Keep looking until a valid header found
    'HSerIn [Wait(C_R)]
    PORTB = SONY_COMMAND
    HSerOut [Dec SONY_COMMAND+1,13]
    'HSerOut [Bin SONY_SYSTEM,13]
    DelayMS 500 
 Wend