$regfile = "m88def.dat"             ' Нужно для  48\88\328
$crystal = 8000000
$baud = 19200
$hwstack = 40
$swstack = 20
$framesize = 40



$prog &HFF , &H62 , &HDF , &HFF                             ' generated. Take care that the chip supports all fuse bytes.
  Prr = &B11101010
 Acsr = &B10010001


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 Packet_count As Byte
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 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


Config Portc.3 = Output : U_term Alias Portc.3



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)


Do


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 = 112640 / Ubat
   Ux = 117000 / Ubat
   'Ux = 1126.4 / 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
D_bytes(6) = 1'Packet_count                                   'Byte 5
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                                                    '
Waitms 100                                                  'Some delay to read the output on the terminal, line can be removed for max. speed

 W = 0                                                      'Counter for time out


Config Watchdog =8192
Start Watchdog
Reset U_24l01
Reset U_term
Portd = 0 : Portc = 0 : Portb = 0
Adcsr = &B00010000


Powerdown                                          'Спящий режим   8сек.


Loop


'=== 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