Button:                                   'обработчик прерывания INT1

Red = 1                                   'зажгли красный светодиод

  Incr Flag

    If Flag = 8 Then                      'если нажали кнопку 8 раз
     Flag = 0                             'записывать команды не будем
     Red = 0                              'погасим светодиод
    End If

 Select Case Flag              'от значения переменной зависит на какой ноге будет 1

  Case 1 : PortB = &B10000000
  Case 2 : PortB = &B01000000
  Case 3 : PortB = &B00100000
  Case 4 : PortB = &B00010000
  Case 5 : PortB = &B00001000
  Case 6 : PortB = &B00000100
  Case 7 : PortB = &B00000010
  Case 0 : PortB = &B00000000

 End Select

Return  

$regfile = "2313def.dat"
$crystal = 4000000
$baud = 9600
$lib "mcsbyte.lbx"                  'подключаем библиотеку для оптимизации битовых операций


Dim Address As Byte
Dim Command As Byte
Dim Flag As Byte

'команды хранящиеся в EEPROM
Dim Ee1 As Eram Byte
Dim Ee2 As Eram Byte
Dim Ee3 As Eram Byte
Dim Ee4 As Eram Byte
Dim Ee5 As Eram Byte
Dim Ee6 As Eram Byte
Dim Ee7 As Eram Byte

'команды для сравнения с командами с пульта
Dim Aa1 As Byte
Dim Aa2 As Byte
Dim Aa3 As Byte
Dim Aa4 As Byte
Dim Aa5 As Byte
Dim Aa6 As Byte
Dim Aa7 As Byte


'конфигурируем порт для подлкючения внешней нагрузки

Config Portb = Output

'даем имена ногам предназначенным для подключения нагрузки

St1 Alias Portb.7
St2 Alias Portb.6
St3 Alias Portb.5
St4 Alias Portb.4
St5 Alias Portb.3
St6 Alias Portb.2
St7 Alias Portb.1

'конфигурируем ноги для светодиодов индикации

Config Portd.4 = Output
Config Portd.5 = Output

Red Alias Portd.4                   'красный светодиод
Green Alias Portd.5                 'зеленый светодиод


Config Rc5 = Pind.2                 'конфигурируем ногу для подключения датчика

On Int1 Button                      'подключаем кнопку
Config Int1 = Falling               'прерывание от кнопки срабатывает по нисходящему фронту


Enable Interrupts                   'разрешаем работу прерываний
Enable Int1                         'разрешаем внешнее прерывание

'вытаскиваем значения команд из энергонезависимой памяти и присваиваем рабочим переменным
Aa1 = Ee1
Aa2 = Ee2
Aa3 = Ee3
Aa4 = Ee4
Aa5 = Ee5
Aa6 = Ee6
Aa7 = Ee7


Do


Getrc5(address , Command)                        'принимаем адресс и команду с пульта

  If Address >= 0 And Address < 32 Then          'работаем с любым пультом

      Green = 1                                  'зажгли зеленый светодиод

      Command = Command And &B01111111

      If Flag = 0 Then

           Select Case Command 'если не стоит флаг записи выбираем какой порт переключить

            Case Aa1 : Toggle St1
            Case Aa2 : Toggle St2
            Case Aa3 : Toggle St3
            Case Aa4 : Toggle St4
            Case Aa5 : Toggle St5
            Case Aa6 : Toggle St6
            Case Aa7 : Toggle St7

          End Select


       Else                              'иначе, если стоит флаг записи, запишем команду в EEPROM

        Select Case Flag      'в зависимости от номера флага запишем команду в свою ячейку памяти

           Case 1 : Ee1 = Command            'записываем номер команды в EEPROM
           Case 2 : Ee2 = Command
           Case 3 : Ee3 = Command
           Case 4 : Ee4 = Command
           Case 5 : Ee5 = Command
           Case 6 : Ee6 = Command
           Case 7 : Ee7 = Command

        End Select

         Flag = 0                       'сбрасываем флаг записи
         Red = 0                        'гасим красный светодиод

        Aa1 = Ee1                       'вытаскиваем все из энергонезависимой памяти
        Aa2 = Ee2
        Aa3 = Ee3
        Aa4 = Ee4
        Aa5 = Ee5
        Aa6 = Ee6
        Aa7 = Ee7

      End If

    Waitms 200

    Green = 0                                     'гасим зеленый светодиод

    Wait 1

  End If



Loop


'прерывание по нажатию кнопки

  Button:

Red = 1                                           'зажгли красный светодиод

  Incr Flag

    If Flag = 8 Then                              'если нажали кнопку 8 раз
     Flag = 0                                     'записывать команды не будем
     Red = 0                                      'погасим светодиод
    End If


 Select Case Flag                           'от значения переменной зависит на какой ноге будет 1

  Case 1 : Portb = &B10000000
  Case 2 : Portb = &B01000000
  Case 3 : Portb = &B00100000
  Case 4 : Portb = &B00010000
  Case 5 : Portb = &B00001000
  Case 6 : Portb = &B00000100
  Case 7 : Portb = &B00000010
  Case 0 : Portb = &B00000000

 End Select


  Waitms 400                                      'избавляемся от дребезга кнопки
  Gifr = 128                                      'сбрасываем бит прерывания INT1

  Return


End