$regfile = "m48def.dat"
$crystal = 16000000                                         '÷àñòîòà êâàðöåâîãî ðåçîíàòîðà 16mHz

$lib "mcsbyte.lbx"                                          ' Áèáëèîòåêà äëÿ èñïîëüçîâàíèÿ ïðîòîêîëà RC5

Config Rc5 = Pind.2

Enable Timer0

Config Pind.3 = Output : Led1 Alias Portd.3
Config Pind.4 = Output : Led2 Alias Portd.4
Config Pind.5 = Output : Led3 Alias Portd.5
Config Pind.6 = Output : Led4 Alias Portd.6
Config Pind.7 = Output : Led5 Alias Portd.7

'*******************************************************************************

Dim Address As Byte , Command As Byte
Enable Interrupts                                           ' ðàçðåøàåì ïðåðûâàíèÿ

'*******************************************************************************

Do

Getrc5(address , Command)
    If Address <> 255 And Command <> 255 Then
     Command = Command And &B01111111
    End If
    If Command = 1 Then
    Set Led1
    Elseif Command = 2 Then
     Set Led2
    Elseif Command = 3 Then
     Set Led3
    Elseif Command = 4 Then
     Set Led4
    Elseif Command = 5 Then
     Set Led5
    Elseif Command = 6 Then
     Reset Led1
    Elseif Command = 7 Then
     Reset Led2
    Elseif Command = 8 Then
    Reset Led3
    Elseif Command = 9 Then
    Reset Led4
    Elseif Command = 10 Then
     Reset Led5
    End If

Loop