Config Portb.1 = Output :  Set Portd.7   '  конфигурируем порт В1 на выход, D7 на вход и включаем внутренний подтягивающий резистор на порт D7
  Do
    Debounce Pind.7 , 0 , En , Sub
  Loop
En:
Toggle Portb.1  
Return

Config Portb.1 = Output : Config Pind.7 = Input : Set Portd.7  '  конфигурируем порт В1 на выход и включаем внутренний подтягивающий резистор на порт D7
  Do
       Bitwait Pind.7 , reset  ' ждем пока на пине не появится 0 (ждем нажатия)
       Toggle Portb.1           ' инвертируем состояние порта
       Bitwait Pind.7 , set     ' ждем пока на пине не появится 1 (ждем отпускания)
  Loop

$regfile = "ATtiny2313.DAT"
$crystal = 8000000

Enable Interrupts

Config Rc5 = Pind.0

Config Pinb.1 = Output
Relay1 Alias Portb.1

Config Pinb.2 = Output
Relay2 Alias Portb.2

Config Pinb.3 = Output
Relay3 Alias Portb.3

Config Pinb.4 = Output
Relay4 Alias Portb.4

Config Pinb.5 = Output
Relay5 Alias Portb.5

Config Pinb.6 = Output
Relay6 Alias Portb.6

Config Pinb.7 = Output
Relay7 Alias Portb.7

Config Pind.1 = Input
Relay1_on_off Alias Pind.1
Set Portd.1

Config Pind.2 = Input
Relay2_on_off Alias Pind.2
Set Portd.2

Config Pind.3 = Input
Relay3_on_off Alias Pind.3
Set Portd.3

Config Pind.4 = Input
Relay4_on_off Alias Pind.4
Set Portd.4

Config Pind.5 = Input
Relay5_on_off Alias Pind.5
Set Portd.5

Config Pind.6 = Input
Relay6_on_off Alias Pind.6
Set Portd.6

Config Pinb.0 = Input
Relay7_on_off Alias Pinb.0
Set Portb.0

Dim Address As Byte
Dim Command As Byte
Dim Status_relay_on_off(7) As Byte

Readeeprom Status_relay_on_off(1) , 1
If Status_relay_on_off(1) = 0 Then
Set Relay1
End If
Readeeprom Status_relay_on_off(2) , 2
If Status_relay_on_off(2) = 0 Then
Set Relay2
End If
Readeeprom Status_relay_on_off(3) , 3
If Status_relay_on_off(3) = 0 Then
Set Relay3
End If
Readeeprom Status_relay_on_off(4) , 4
If Status_relay_on_off(4) = 0 Then
Set Relay4
End If
Readeeprom Status_relay_on_off(5) , 5
If Status_relay_on_off(5) = 0 Then
Set Relay5
End If
Readeeprom Status_relay_on_off(6) , 6
If Status_relay_on_off(6) = 0 Then
Set Relay6
End If
Readeeprom Status_relay_on_off(7) , 7
If Status_relay_on_off(7) = 0 Then
Set Relay7
End If

Do

Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
End If

If Relay1_on_off = 0 Or Command = 12 Then
Waitms 200
Toggle Relay1
Toggle Status_relay_on_off(1)
Writeeeprom Status_relay_on_off(1) , 1
End If

If Relay2_on_off = 0 Or Command = 16 Then
Waitms 200
Toggle Relay2
Toggle Status_relay_on_off(2)
Writeeeprom Status_relay_on_off(2) , 2
End If

If Relay3_on_off = 0 Or Command = 17 Then
Waitms 200
Toggle Relay3
Toggle Status_relay_on_off(3)
Writeeeprom Status_relay_on_off(3) , 3
End If

If Relay4_on_off = 0 Or Command = 13 Then
Waitms 200
Toggle Relay4
Toggle Status_relay_on_off(4)
Writeeeprom Status_relay_on_off(4) , 4
End If

If Relay5_on_off = 0 Or Command = 32 Then
Waitms 200
Toggle Relay5
Toggle Status_relay_on_off(5)
Writeeeprom Status_relay_on_off(5) , 5
End If

If Relay6_on_off = 0 Or Command = 33 Then
Waitms 200
Toggle Relay6
Toggle Status_relay_on_off(6)
Writeeeprom Status_relay_on_off(6) , 6
End If

If Relay7_on_off = 0 Or Command = 38 Then
Waitms 200
Toggle Relay7
Toggle Status_relay_on_off(7)
Writeeeprom Status_relay_on_off(7) , 7
End If

Loop

End