$regfile = "attiny45.dat"
$crystal = 8000000
$hwstack = 20
$swstack = 10
$framesize = 40

$lib "mcsbyte.lbx"

Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Input
Config Portb.4 = Input

Config Rc5 = Pinb.3 , Wait = 2000

Dim Address As Byte , Command As Byte , Command_old As Byte

Clk Alias Pinb.2
D Alias Pinb.1
Rst Alias Pinb.0
Clk = 0
Rst = 0

Enable Interrupts

Do
   Getrc5(address , Command)
      If Address = 8 Then
        Command = Command And &B01111111
          Gosub Readrc5
      End If
Loop

Readrc5:
Select Case Command
   Case 16                                                  '1. LED
      Clk = 0
      Rst = 1
      Waitms 100
   Case 17                                                  '2. LED
      Clk = 1
      Rst = 0
      Waitms 100
   Case 35                                                  'NONE
      Clk = 0
      Rst = 0
      Waitms 100
   Case Else                                                '1. & 2. LED
      Clk = 1
      Rst = 1
      Waitms 100
   End Select
Return
 

Clk Alias Pinb.2
D Alias Pinb.1
Rst Alias Pinb.0
 

Clk Alias Portb.2
D Alias Portb.1
Rst Alias Portb.0