'************* Konfiguracja uC *****************
'***********************************************
$regfile = "attiny2313.dat"
$crystal = 16000000
$baud = 19200

Config Portb = &B11111111 : Portb = &B11111111
Config Portd = &B10111111 : Portd = &B11111111


'Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.1 , Rs = Portb.0       'mirley test board 2
'Config Lcd = 16 * 2
'Cls
'Cursor Off Noblink

Config Rc5 = Pind.6

Dioda Alias Portb.7

Enable Interrupts
'********** Konfiguracja uC Koniec  ************

'******************  Zmienne *******************
'***********************************************
Dim Adres As Byte , Komenda As Byte
'*************  Zmienne Koniec  ****************


'**************  Petla glowna ******************
'***********************************************
Do

  Getrc5(adres , Komenda)
  Komenda = Komenda And &B01111111

  If Adres = 0 Then
    Dioda = 0

    'Cls
    'Lcd "Adres: " ; Adres
    'Lowerline
    'Lcd "Komenda: " ; Komenda

    Printbin Komenda

    Waitms 50
    Dioda = 1
    Waitms 50
  End If

Loop
End
'************ Petla glowna Koniec **************