$regfile = "attiny2313.dat"
$crystal = 1000000

Dim W As Byte                    'переменная с номером нажатой кнопки
Const Pult = 1                    'номер пульта, можно разграничить права для разных пультов

'кнопки
Config Portb.0 = Input
Config Portb.1 = Input
Config Portd.6 = Input
Config Portd.5 = Input
Config Portd.4 = Input
Config Portd.3 = Input

Pinb.0 = 1
Pinb.1 = 1                    'включаем подтягивающие резисторы
Pind.6 = 1
Pind.5 = 1
Pind.4 = 1
Pind.3 = 1

Config Portd.2 = Output                    'сюда подключается светодиод индикации
Portd.2 = 0
Led Alias Portd.2

Config Int0 = Falling                    'прерывание по нисходящему фронту
On Int0 Button
Enable Interrupts                    'разрешаем прерывания
Enable Int0

'конфигурирование передатчика
Declare Sub W_register(byval C_bytes As Byte)
'SPI (nRF24L01) команды
Const Write_reg = &H20                    'Определить Команду Записи В Реестр
Const Wr_tx_pload = &HA0                    'Определить Tx Полезной Нагрузки Адрес Регистра
Const Flush_tx = &HE1                    'Определить Флеш Tx Зарегистрировать Команду
'SPI (nRF24L01) регистры (адреса)
Const Config_nrf = &H00                    'Config адрес регистра
Const En_aa = &H01                    'Включить Автоматическое Подтверждение регистрации адреса
Const En_rxaddr = &H02                    'Включено Rx адреса " адрес регистра"
Const Rf_ch = &H05                    'RF channel' адрес регистра
Const Rf_setup = &H06                    'РФ Setup " (Настройка) адрес регистра"
Const Status = &H07                    'Статус " адрес регистра"
Const Rx_addr_p0 = &H0A                    'rx адрес Pipe0 " зарегистрировать адрес"
Const Tx_addr = &H10                    'TX address (адрес)
Dim D_bytes(6) As Byte
'назначение ножек
Config Spi = Soft , Din = Portb.6 , Dout = Portb.5 , Ss = Portb.3 , Clock = Portb.7
'конфигурация аппаратного SPI интерфейса
Config Portb.4 = Output : Ce Alias Portb.4                  'CE pin is output
Config Portb.3 = Output : Ss Alias Portb.3                  'SS pin is output
Config Pinb.2 = Input : Irq Alias Pinb.2                    'IRQ pin is input

Spiinit

Portd.2 = 1
Waitms 10
Portd.2 = 0

'Основной цикл программы
Do

Waitms 10
Gosub Peredacha                    'передаем данные

W = 0

Idle                    'и отключаемся

Loop

End

'обработчик прерывания
Button:
'здесь мы в цикле сканируем все подключенные кнопки
Do
Waitms 100
Dim B As Byte

   If Pinb.0 = 0 Then
    W = 1
   End If

   If Pinb.1 = 0 Then
    W = 2
   End If

   If Pind.6 = 0 Then
    W = 3
   End If

   If Pind.5 = 0 Then
    W = 4
   End If

   If Pinb.4 = 0 Then
    W = 5
   End If

   If Pinb.3 = 0 Then
    W = 6
   End If

   If W <> 0 Then
Portd.2 = 1
Waitms 100
Portd.2 = 0
End If

Incr B

Loop Until W <> 0 Or B > 10                    'если дребезг помешал вычислению нажатой кнопки, повторяем

Waitms 10
Gifr = 64                    'сброс флага прерывания

Return

'подпрограма передачи данных
Peredacha:
Set Ce
Waitms 10
Reset Ce
Reset Ss

D_bytes(1) = Flush_tx                    'Flush the TX_fifo буфера
Call W_register(1)
D_bytes(1) = Write_reg + Status                             'Reset IRQ бит
D_bytes(2) = &B00110000
Call W_register(2)

Gosub Setup_tx                    'Настройка nrf240l01 для TX
D_bytes(1) = Wr_tx_pload                    'Положи 5 байт в TX pload буфера
D_bytes(2) = W                    'Байт 1 отправляем номер нажатой кнопки
D_bytes(3) = &H00                    'Байт 2
D_bytes(4) = &H00                    'Байт 3
D_bytes(5) = &H00                    'Байт 4
D_bytes(6) = Pult                    'Байт 5  идентификационный номер пульта
Call W_register(6)                    'Запись 6 байт для регистрации

Waitms 2
Set Ce                    'Set CE, чтобы передать буфер fifo
Waitms 1
Reset Ce

Return

'подпрограммы для настройки и работы с передатчиком
Sub W_register(byval C_bytes As Byte)                       'Пишите зарегистрировать с SPI
Reset Ss                    'Руководство управления СС контакт, установить СС низких до смещение, байт
Spiout D_bytes(1) , C_bytes                    'Shiftout байты данных SPI корыта, C_bytes это количество байт, которые будут написаны
Set Ss                    'Set СС высокого
End Sub

Setup_tx:                    'Подготовка к TX
D_bytes(1) = Write_reg + Tx_addr                            'TX адрес
D_bytes(2) = &H34
D_bytes(3) = &H43
D_bytes(4) = &H10
D_bytes(5) = &H10
D_bytes(6) = &H01
Call W_register(6)
D_bytes(1) = Write_reg + Rx_addr_p0                         'RX адрес для pipe0
D_bytes(2) = &H34
D_bytes(3) = &H43
D_bytes(4) = &H10
D_bytes(5) = &H10
D_bytes(6) = &H01
Call W_register(6)
D_bytes(1) = Write_reg + En_aa                    'Enable auto ACK на pipe0
D_bytes(2) = &H01
Call W_register(2)
D_bytes(1) = Write_reg + En_rxaddr                          'Включить RX адрес для pipe0
D_bytes(2) = &H01
Call W_register(2)
D_bytes(1) = Write_reg + Rf_ch                    'Настройка каналов
D_bytes(2) = 40                    'Частота 2440 MГц
Call W_register(2)
D_bytes(1) = Write_reg + Rf_setup                           'Настройка РФ -> Выходной мощности 0 дБм, datarate 2 Мбит / с МШУ
D_bytes(2) = &H0F
Call W_register(2)
D_bytes(1) = Write_reg + Config_nrf                         'Настройка CONFIG -> I=0 (TX_device), PWR_UP=1, CRC 2bytes, Включить CRC
D_bytes(2) = &H0E
Call W_register(2)
Return