$lib "mcsbyte.lbx"
Config Portb = Output
Dim Bcommand As Byte

Do

Input "Commando: (00-99)" , Bcommand
Select Case Bcommand
  Case 20 : Print "1 on"
  Case 21 : Portb.1 = 0
  Case 22 : Portb.2 = 1
  Case 23 : Portb.2 = 0
  Case 24 : Portb.3 = 1
  Case 25 : Portb.3 = 0
  Case 26 : Portb.4 = 1
  Case 27 : Portb.4 = 0
  Case Else : Print "not found"
End Select
Loop

End

Select Case Bcommand
  Case 20 : Print "1 on"
  Case 21 : Reset Portb.1
  Case 22 : Set Portb.2
  Case 23 : Reset Portb.2
  Case 24 : Set Portb.3
  Case 25 : Reset Portb.3
  Case 26 : Set Portb.4
  Case 27 : Reset Portb.4
  Case Else : Print "not found"
End Select
 

Config Portb = Output
Config Rc5 = Pind.4
Enable Interrupts

Dim Baddress As Byte
Dim Bcommand As Integer


Portb = 255                                                 'had to do this with the AVR Development board
Do
Getrc5(baddress , Bcommand)                                 'recieving data from ir eye


'-----------------------------------------------------
'|Starting of build-in code analyser for RC5
'|Baddress and Bcommand can be readout with terminal programm
If Baddress < 255 Then                                      '< otherwise terminal output will be continue 255 255 when no data send
Print Baddress ; " " ; Bcommand                             'gives readout on terminal
End If



If Baddress = 21 Then                                       'checks for valid address
Select Case Bcommand                                        'set or resets the output pins when there is a command

  Case 128 : Set Portb.0
  Case 144 : Reset Portb.0
  Case 129 : Set Portb.1
  Case 145 : Reset Portb.1
  Case 130 : Set Portb.2
  Case 146 : Reset Portb.2
  Case 131 : Set Portb.3
  Case 147 : Reset Portb.3



End Select
End If
Loop