$regfile = "m88adef.dat"
$crystal = 8000000
$baud = 19200
$hwstack = 40
$swstack = 20
$framesize = 40


 Config Timer2 = TIMER , Async = On , Prescale = 1024       ' Делитель 32768 / 1024 / 256 = 8 сек (прерывание TIMER2 = 1 раз в 8 сек)
  On Timer2 Обработка_прерывания_timer2_word Nosave       ' Ссылка на подпрограмму обработчика прерывания TIMER2
  Dim Таймер As Word
  Dim Значение_таймера As Word

  Значение_таймера = 3      ' 1=8 сек  необходимое время сна  * (f кварца / Prescale / 256) (в секундах)
   Таймер = Значение_таймера
    Assr.3 = 1 : Waitms 100
    Const Значение_powersave = &B_0000_0111

  Enable Timer2
  Enable Interrupts


'=== Declare sub routines
Declare Sub R_register(byval Command As Byte , Byval C_bytes As Byte)
Declare Sub W_register(byval C_bytes As Byte)

'=== Constante ===
'Define nRF24L01 interrupt flag's
Const Idle_int = &H00                                       'Idle, no interrupt pending
Const Max_rt = &H10                                         'Max #of Tx Retrans Interrupt
Const Tx_ds = &H20                                          'Tx Data Sent Interrupt
Const Rx_dr = &H40                                          'Rx Data Received

'SPI(nRF24L01) commands

Const Read_reg = &H00                                       'Define Read Command To Register
Const Write_reg = &H20                                      'Define Write Command To Register
Const Rd_rx_pload = &H61                                    'Define Rx Payload Register Address
Const Wr_tx_pload = &HA0                                    'Define Tx Payload Register Address
Const Flush_tx = &HE1                                       'Define Flush Tx Register Command
Const Flush_rx = &HE2                                       'Define Flush Rx Register Command
Const Reuse_tx_pl = &HE3                                    'Define Reuse Tx Payload Register Command
Const Nop_comm = &HFF                                       'Define No Operation , Might Be Used To Read Status Register
'SPI(nRF24L01) registers(addresses)
Const Config_nrf = &H00                                     'Config' register address
Const En_aa = &H01                                          'Enable Auto Acknowledgment' register address
Const En_rxaddr = &H02                                      'Enabled RX addresses' register address
Const Setup_aw = &H03                                       'Setup address width' register address
Const Setup_retr = &H04                                     'Setup Auto. Retrans' register address
Const Rf_ch = &H05                                          'RF channel' register address
Const Rf_setup = &H06                                       'RF setup' register address
Const Status = &H07                                         'Status' register address
Const Observe_tx = &H08                                     'Observe TX' register address
Const Cd = &H09                                             'Carrier Detect' register address
Const Rx_addr_p0 = &H0A                                     'RX address pipe0' register address
Const Rx_addr_p1 = &H0B                                     'RX address pipe1' register address
Const Rx_addr_p2 = &H0C                                     'RX address pipe2' register address
Const Rx_addr_p3 = &H0D                                     'RX address pipe3' register address
Const Rx_addr_p4 = &H0E                                     'RX address pipe4' register address
Const Rx_addr_p5 = &H0F                                     'RX address pipe5' register address
Const Tx_addr = &H10                                        'TX address' register address
Const Rx_pw_p0 = &H11                                       'RX payload width, pipe0' register address
Const Rx_pw_p1 = &H12                                       'RX payload width, pipe1' register address
Const Rx_pw_p2 = &H13                                       'RX payload width, pipe2' register address
Const Rx_pw_p3 = &H14                                       'RX payload width, pipe3' register address
Const Rx_pw_p4 = &H15                                       'RX payload width, pipe4' register address
Const Rx_pw_p5 = &H16                                       'RX payload width, pipe5' register address
Const Fifo_status = &H17                                    'FIFO Status Register' register address


Dim D_bytes(33) As Byte , B_bytes(33) As Byte               'Dim the bytes use for SPI, D_bytes = outgoing B_bytes = Incoming
Dim Temp As Byte , W As Word
Dim Term As Word , Term_t As Word , T As Byte , Tt As Dword
Dim Ubat As Word
Dim Ux As Dword
Dim Ubat_(2) As Byte At Ubat Overlay
Dim Ter As Integer
Dim Term_(2) As Byte At Ter Overlay
Config Portd.5 = Output : U_24l01 Alias Portd.5 : Set U_24l01
Config Portc.3 = Output : U_term Alias Portc.3

delaem:

'=== Config hardware ===
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 16 , Noss = 1

'Software SPI is NOT working with the nRF24L01, use hardware SPI only, but the SS pin must be controlled by our self

Config Pind.7 = Output                                      'CE pin is output
Config Pinb.2 = Output                                      'SS pin is output
Config Pind.6 = Input                                       'IRQ pin is input

 Ce Alias Portd.7
 Ss Alias Portb.2
 Irq Alias Pind.6

Spiinit                                                     'init the spi pins

Set Ce
Waitms 10                                                   'Wait a moment until all hardware is stable
Reset Ce                                                    'Set CE pin low
Reset Ss                                                    'Set SS pin low (CSN pin)

 D_bytes(1) = Flush_tx                                      'Flush the TX_fifo buffer
Call W_register(1)
 D_bytes(1) = Write_reg + Status                            'Reset the IRQ bits
 D_bytes(2) = &B00110000
Call W_register(2)


Set U_term                                                  'Включаем датчик температуры

Config Adc = Single , Prescaler = 128 , Reference = Internal
 Start Adc

Term = Getadc(2)
For T = 1 To 30                                             'Цыкл измерения температуры
Term = Getadc(2)
Term_t = Term_t + Term
Next
Reset U_term
Term = Term_t / 30

   Ux = Term * 1059
   Tt = Ux / 1000
   Term = Tt
   Ter = Term - 500


Config Adc = Single , Prescaler = 128 , Reference = Avcc    'Конфегурация АЦП
   Ubat = Getadc(14)
   Ux = 117000 / Ubat
   Ubat = Ux
Config Adc = Single , Prescaler = 128 , Reference = Internal   ' Переключаем опорку что бы конденсатор на Aref успел разрядится
Stop Adc

 '==============================================================================

Gosub Setup_tx                                              'Setup the nrf24l01 for TX
D_bytes(1) = Wr_tx_pload                                    'Put 5 bytes in the TX pload buffer
D_bytes(2) = Ter                                           'Байт 2
D_bytes(3) = Term_(1)                                       'Байт 3
D_bytes(4) = Term_(2)                                       'Байт 4
D_bytes(5) = Ubat                                           'Байт 5
D_bytes(6) = 1                                              'Packet_count
Call W_register(6)                                          'Write 6 bytes to register

Waitms 2
Set Ce                                                      'Set CE for a short moment to transmit the fifo buffer
Waitms 1                                                    
Reset Ce                                                    

Reset U_24l01
Reset U_term
Portd = 0 : Portb = 0 : Portc = 0

 Главный_цикл:


 If Таймер = 0 Then
  Gosub delaem
 Таймер = Значение_таймера
  Else
   
   Gosub Тихий_час
 End If

Goto Главный_цикл
End

Return


 '=== Sub routines ===
Sub W_register(byval C_bytes As Byte)                       'Write register with SPI
Reset Ss                                                    'Manual control SS pin, set SS low before shifting out the bytes
 Spiout D_bytes(1) , C_bytes                                'Shiftout the data bytes trough SPI , C_bytes is the amount bytes to be written
Set Ss                                                      'Set SS high
End Sub

Sub R_register(byval Command As Byte , Byval C_bytes As Byte) As Byte       'C_bytes = Count_bytes, number off bytes to be read
Reset Ss                                                    'Manual controle SS pin, set low before shifting in/out the bytes
Spiout Command , 1                                         'First shiftout the register to be read
Spiin B_bytes(1) , C_bytes                                 'Read back the bytes from SPI sended by nRF20L01
Set Ss                                                      'Set SS back to high level
End Sub



Setup_tx:                                                   'Setup for TX

 D_bytes(1) = Write_reg + Tx_addr                           'TX adress
 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 adress for 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 for pipe0
 D_bytes(2) = &H01
Call W_register(2)
 D_bytes(1) = Write_reg + En_rxaddr                         'Enable RX adress for pipe0
 D_bytes(2) = &H01
Call W_register(2)
 D_bytes(1) = Write_reg + Rf_ch                             'Set RF channel
 D_bytes(2) = 40
Call W_register(2)
 D_bytes(1) = Write_reg + Rf_setup                          'Setup RF-> Output power 0dbm, datarate 2Mbps and LNA gain on
 D_bytes(2) = &H06
Call W_register(2)
 D_bytes(1) = Write_reg + Config_nrf                        'Setup CONFIG-> PRX=0(TX_device), PWR_UP=1, CRC 2bytes, Enable CRC
 D_bytes(2) = &H0E
Call W_register(2)

Return


'===============================================================================
  Тихий_час:
'-------------------------------------------------------------------------------
    Acsr.acd = 1       'Выключаем компаратор (именно записью "1", смотреть документацию), слишком много потребляет
    Ucsr0b.rxen0 = 1   'Выключаем приемник USART, слишком много потребляет
    Ucsr0b.txen0 = 1   'Выключаем передатчик USART, слишком много потребляет
    Adcsra.aden = 1    'Выключаем АЦП, слишком много потребляет

    Portd = 0 : Portb = 0 : Portc = 0
    Adcsr = &B00010000

    Enable Timer2       
    Enable Interrupts       

    '###########################
   Экстренная_остановка:
   'Только так, иначе может не проснуться
    If Assr.tcn2ub > 0 And Assr.ocr2aub > 0 And Assr.tcr2aub > 0 And Assr.ocr2bub > 0 And Assr.tcr2bub > 0 Then
        nop
        Goto Экстренная_остановка
    End If

    !ldi R16 ,  Значение_powersave       'Выставляем,как будем спать
    !sts SMCR , R16       'Пишем в регистр

    !sleep       'Отправляемся спать
'###########################

    If Таймер > 0 Then
        Goto Экстренная_остановка
    End If

    Waitms 10       'Ждем пока все проснутся
    jmp 0             ' Сброс регистров, перезагрузка МК   < < < --------------

'-------------------------------------------------------------------------------
  Return

  Обработка_прерывания_timer2_word:
'-------------------------------------------------------------------------------
    !push R16
    !in R16 , sreg
    !push R16
    !push R30
    !push R31

    !lds R30 , {Таймер}
    !lds R31 , {Таймер + 1}

    !cpi R31 , 0
    !ldi R16 , 0
    !cpc R30 , R16
    !brcs Выход_прерывания_timer2_word
    !breq Выход_прерывания_timer2_word
    !rjmp Считаем_таймер
    !rjmp Выход_прерывания_timer2_word

   Считаем_таймер:
    !sbiw R30 , 1

    !sts {Таймер} , R30
    !sts {Таймер + 1} , R31

   Выход_прерывания_timer2_word:
    !pop R31
    !pop R30
    !pop R16
    !out sreg , R16
    !pop R16

    !reti
'-------------------------------------------------------------------------------
  Return
'===============================================================================