$regfile = "m32def.dat"
$crystal = 8000000
$lib "mcsbyte.lbx"

'  
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portd.0 , Rs = Portd.1
Config Lcd = 16 * 2
' RC5
'Config Pind.2 = Input
Config Rc5 = Pind.2
' 
Enable Interrupts
' 
Dim Address As Byte , Command As Byte
Initlcd
Cursor Off
Cls '   
Locate 2 , 1
Lcd "Waiting for RC5"
Do
Getrc5(address , Command)
If Address = 0 Then
Cls
Command = Command And &B01111111
Locate 1 , 1
Lcd Address ; " " ; Command
End If
Locate 2 , 1
Lcd Address ; " " ; Command
Loop
End