#include <P16f84a.inc>
   
   __Config  _CP_OFF & _PWRTE_OFF & _WDT_OFF & _XT_OSC

XTAL = 4         
TRISB.0 = 1
TRISB.1 = 0
TRISB.2 = 0
TRISB.3 = 0
TRISB.4 = 0
TRISB.5 = 0
TRISB.6 = 0
TRISB.7 = 0
TRISA.0 = 0
TRISA.1 = 0
TRISA.2 = 1
TRISA.3 = 0
TRISA.4 = 0 
LCD_Data    equ PORTB
LCDE       equ 3
LCDRs      equ 2
LCD_Cont   equ   PORTB

#define _SEL  = PORTA.3
#define LED RA2
#define _SONYIN_PIN = PORTB.0
#define _RC5IN_PIN = PORTB.0

LED = 1
Dim IR_Data As Word
Dim SYS_Data As IR_Data.HighByte
Dim COM_Data As  IR_Data.LowByte

Cls
Print At 1,1,"SONY/RC5 DECODER"
DelayMS 2000

SONY:
Print At 1,1,"SONY KOD OKUMA"
Repeat
If SEL = 0 Then Cls:GoTo PHILIPS
IR_Data = SonyIn
Until COM_Data <> 255
LED = 0
Print At 2,1,"AYGIT=",HEX2 SYS_Data," ","KOD=",HEX2 COM_Data
DelayMS 100
LED = 1
GoTo SONY

PHILIPS:
Print At 1,1,"RC5 KOD OKUMA"
Repeat
If SEL = 1 Then Cls:GoTo SONY
IR_Data = RC5In
Until COM_Data <> 255
LED = 0
Print At 2,1,"AYGIT=",HEX2 SYS_Data," ","KOD=",HEX2 COM_Data
DelayMS 100
LED = 1
GoTo PHILIPS
End