Thanks for the reply and code. I have not had a chance to do anything with it yet. Am one of the recently unemployed and picking up odd handyman jobs.
Here is what I had so far. I put a 'stop' after the first register write/read just to test in the INIT routine. The register values were recommended by the Microchip help guy.
Code: Select all
Module MRF89XA_M
Include "USART.bas"
Include "convert.bas"
Include "pps.bas"
Include "lcd.bas"
#option SPI2_SCK = PORTB.4 // SPI clock
#option SPI2_SDI = PORTB.5 // SPI data in
#option SPI2_SDO = PORTB.3 // SPI data out
Include "SPI2.bas"
Private Dim
irq0 As PORTB.2,
irq1 As PORTA.1,
r_reset As PORTB.0,
r_cscon As PORTB.1,
r_csdata As PORTA.0,
mem_sel As PORTD.3,
red As PORTC.0,
green As PORTC.1
Private Dim
b1 As Byte, ' Byte holder
b2 As Byte, ' Byte holder
b3 As Byte, ' Byte holder
b4 As Byte, ' Byte holder
loop1 As Word
Private Const
wren As Byte = $06, ' Write enable
rdsr As Byte = $05, ' Read satus register
wrsr As Byte = $01, ' Write status register
read_data As Byte = $03, ' Read instruction
write_data As Byte = $02, ' Write instruction
gcon_addr_w = $00, ' Write address of GCONREG
gcon_addr_r = $40, ' Read address of GCONREG
xmit_gcon = $88, ' Transmit mode
rcv_gcon = $68, ' Recieve mode
stby_gcon = $28, ' Standby mode
dmod_addr_w = $01, ' Write address of DMODREG
dmod_addr_r = $41, ' Read address of DMODREG
fdev_addr_w = $02, ' Write address of FDEVREG
fdev_addr_r = $42, ' Read address of FDEVREG
brs_addr_w = $03, ' Write address of BRSVREG
brs_addr_r = $43, ' Read address of BRSVREG
flth_addr_w = $04, ' Write address of FLTHVREG
flth_addr_r = $44, ' Read address of FLTHVREG
fifoc_addr_w = $05, ' Write address of FIFOCVREG
fifoc_addr_r = $45, ' Read address of FIFOCVREG
r1c_addr_w = $06, ' Write address of R1CVREG
r1c_addr_r = $46, ' Read address of R1CVREG
p1c_addr_w = $07, ' Write address of P1CVREG
p1c_addr_r = $47, ' Read address of P1CVREG
s1c_addr_w = $08, ' Write address of S1CVREG
s1c_addr_r = $48, ' Read address of RS1CVREG
r2c_addr_w = $09, ' Write address of R2CVREG
r2c_addr_r = $49, ' Read address of R2CVREG
p2c_addr_w = $0A, ' Write address of P2CVREG
p2c_addr_r = $4A, ' Read address of P2CVREG
s2c_addr_w = $0B, ' Write address of S2CVREG
s2c_addr_r = $4B, ' Read address of S2CVREG
pac_addr_w = $0C, ' Write address of PACREG
pac_addr_r = $4C, ' Read address of PACREG
ftxrxi_addr_w = $0D, ' Write address of FTXRXI
ftxrxi_addr_r = $4D, ' Read address of FTXRXI
ftpri_addr_w = $0E, ' Write address of FTPRI
ftpri_addr_r = $4E, ' Read address of FTPRI
rsthi_addr_w = $0F, ' Write address of RSTHI
rsthi_addr_r = $4F, ' Read address of RSTHI
filc_addr_w = $10, ' Write address of FLIC
filc_addr_r = $50, ' Read address of FLIC
pfc_addr_w = $11, ' Write address of PFC
pfc_addr_r = $51, ' Read address of PFC
sync_addr_w = $12, ' Write address of SYNC
sync_addr_r = $52, ' Read address of SYNC
resv_addr_w = $13, ' Write address of RESV
resv_addr_r = $53, ' Read address of RESV
rsts_addr_w = $14, ' Write address of RSTS
rsts_addr_r = $54, ' Read address of RSTS
ookc_addr_w = $15, ' Write address of OOKC
ookc_addr_r = $55, ' Read address of OOKC
syncv31_addr_w = $16, ' Write address of SYNCV31
syncv31_addr_r = $56, ' Read address of SYNCV31
syncv23_addr_w = $17, ' Write address of SYNCV23
syncv23_addr_r = $57, ' Read address of SYNCV23
syncv15_addr_w = $18, ' Write address of SYNCV15
syncv15_addr_r = $58, ' Read address of SYNCV15
syncv07_addr_w = $19, ' Write address of SYNCV07
syncv07_addr_r = $59, ' Read address of SYNCV07
txcon_addr_w = $1A, ' Write address of TXCON
txcon_addr_r = $5A, ' Read address of TXCON
clkout_addr_w = $1B, ' Write address of CLKOUT
clkout_addr_r = $5B, ' Read address of CLKOUT
pload_addr_w = $1C, ' Write address of PLOAD
pload_addr_r = $5C, ' Read address of PLOAD
nadds_addr_w = $1D, ' Write address of NADDS
nadds_addr_r = $5D, ' Read address of NADDS
pktc_addr_w = $1E, ' Write address of PKTC
pktc_addr_r = $5E, ' Read address of PKTC
fcrc_addr_w = $1F, ' Write address of RCRC
fcrc_addr_r = $5F ' Read address of FCRC
'****************************************************************************
Private Sub BLINK()
High(green)
DelayMS(100)
Low(green)
End Sub
'****************************************************************************
Private Sub SET_RADIO_SPI()
pps.unlock()
pps.assign_output(PPS_SDO2, PPS_OUT_RP6) ' SDO2 <- RB3
pps.assign_output(PPS_SCK2, PPS_OUT_RP7) ' SCK2 <- RB4
pps.assign_input(PPS_SDI2, PPS_IN_RP8) ' SDI2 -> RB5
pps.assign_input(PPS_SCK2IN, PPS_IN_RP7) ' SCK2 in <- RB4
pps.lock()
End Sub
'****************************************************************************
Public Sub OPEN_SPI()
SET_RADIO_SPI
' SPI2.SetAsMaster(spiOscDiv16)
' SPI2.SetClock(spiIdleLow,spiRisingEdge) ' spiRisingEdge spiFallingEdge
SPI2.Open(SPI_MODE_0,spiOscDiv64,spiSampleEnd) ' spiSampleEnd, spiSampleMiddle
DelayMS(1)
End Sub
'****************************************************************************
Public Sub RADIO_RESET()
SET_RADIO_SPI
High(r_reset)
DelayUS(110)
Low(r_reset)
DelayMS(200)
OPEN_SPI
End Sub
'****************************************************************************
Private Sub RADIO_CONFIG_SPI() ' Set config Chip sel
' OPEN_SPI
High(r_csdata)
Low(r_cscon)
DelayUS(20)
End Sub
'****************************************************************************
Private Sub RADIO_DATA_SPI() ' Set data Chip sel
' OPEN_SPI
High(r_cscon)
Low(r_csdata)
DelayUS(20)
End Sub
'****************************************************************************
Private Sub DISABLE_RADIO_SPI() ' No Chip sel
High(r_cscon)
High(r_csdata)
DelayUS(2)
' SPI2.Close
End Sub
'****************************************************************************
Public Sub RADIO_INIT()
If USART.DataAvailable = true Then ' Clear USART register
b1 = USART.ReadByte
EndIf
RADIO_RESET
High(red)
DelayMS(2000)
Low(red)
' While TRUE
b1 = 0
RADIO_CONFIG_SPI
SPI2.Transfer(gcon_addr_w) ' GCON Register write $00
SPI2.Transfer($2A) ' Stby, 915MHZ, RPS1
DISABLE_RADIO_SPI
' DelayUS(20)
' Wend
RADIO_CONFIG_SPI
SPI2.Transfer(gcon_addr_r) ' $40
b1 = SPI2.Transfer() '
DISABLE_RADIO_SPI
DelayMS(1)
USART.Write("GCON = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
While TRUE
Wend
RADIO_RESET
RADIO_CONFIG_SPI
SPI2.Transfer(dmod_addr_w) ' DMOD Register write
SPI2.Transfer($84) ' FSK, packet
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(dmod_addr_r)
b1 = 0
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("DMOD = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(fdev_addr_w) ' FDEV Register write
SPI2.Transfer($01) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
' SPI2.Transfer(fdev_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FDEV = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(brs_addr_w) ' BRS Register write
SPI2.Transfer($03) ' 50Kbps out
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
' SPI2.Transfer(brs_addr_r)
b1 = SPI2.Transfer()
USART.Write("BRS = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(flth_addr_w) ' FLTH Register write
SPI2.Transfer($0C) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(flth_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FLTH = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(fifoc_addr_w) ' FIFOC Register write
SPI2.Transfer($C1) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(fifoc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FIFOC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(r1c_addr_w) ' R1C Register write
SPI2.Transfer($77) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(r1c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("R1C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(p1c_addr_w) ' P1C Register write
SPI2.Transfer($64) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(p1c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("P1C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(s1c_addr_w) ' S1C Register write
SPI2.Transfer($32) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(s1c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("S1C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(r2c_addr_w) ' R2C Register write
SPI2.Transfer($74) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(r2c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("R1C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(p2c_addr_w) ' P2C Register write
SPI2.Transfer($62) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(p2c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("P2C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(s2c_addr_w) ' S2C Register write
SPI2.Transfer($32) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(s2c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("S2C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(pac_addr_w) ' PAC Register write
SPI2.Transfer($38) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(pac_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("PAC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(ftxrxi_addr_w) ' FTXRX1 Register write
SPI2.Transfer($C8) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(ftxrxi_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FTXRXI = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(ftpri_addr_w) ' FTPRI Register write
SPI2.Transfer($18) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(ftpri_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FTPRI = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(rsthi_addr_w) ' RSTHI Register write
SPI2.Transfer($00) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(rsthi_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("RSTHI = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(filc_addr_w) ' FILC Register write
SPI2.Transfer($FF) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(filc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FILC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(pfc_addr_w) ' PFC Register write
SPI2.Transfer($38) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(pfc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("PFC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(sync_addr_w) ' SYNC Register write
SPI2.Transfer($38) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(sync_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(resv_addr_w) ' RESV Register write
SPI2.Transfer($07) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(resv_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("RESV = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(rsts_addr_w) ' RSTS Register write
SPI2.Transfer($00) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(rsts_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("RSTS = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(ookc_addr_w) ' OOKC Register write
SPI2.Transfer($00) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(ookc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("OOKC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(syncv31_addr_w) ' SYNCV31 Register write
SPI2.Transfer($69) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(syncv31_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNCV31 = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(syncv23_addr_w) ' SYNCV23 Register write
SPI2.Transfer($81) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(syncv23_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNCV23 = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(syncv15_addr_w) ' SYNCV15 Register write
SPI2.Transfer($7E) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(syncv15_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNCV15 = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(syncv07_addr_w) ' SYNCV07 Register write
SPI2.Transfer($96) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(syncv07_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNCV07 = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(txcon_addr_w) ' TXCON Register write
SPI2.Transfer($F0) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(txcon_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("TXCON = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(clkout_addr_w) ' CLKO Register write
SPI2.Transfer($00) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(clkout_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("CLKOUT = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(pload_addr_w) ' PLOAD Register write
SPI2.Transfer($40) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(pload_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("PLOAD = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(nadds_addr_w) ' NADDS Register write
SPI2.Transfer($00) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(nadds_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("NADDS = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(pktc_addr_w) ' PKTC Register write
SPI2.Transfer($FA) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(pktc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("PKTC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(fcrc_addr_w) ' FCRC Register write
SPI2.Transfer($00) '
DISABLE_RADIO_SPI
RADIO_CONFIG_SPI
SPI2.Transfer(fcrc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FCRC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
End Sub
'****************************************************************************
Public Sub READ_REG()
RADIO_RESET
If USART.DataAvailable = true Then
b1 = USART.ReadByte
EndIf
USART.Write(10,"ENTER REGISTER NUMBER 00 - 31",10,13)
DelayMS(2)
b1 = USART.ReadByte
b1 = b1 - 48
USART.Write(DecToStr(b1))
DelayMS(2)
b2 = USART.ReadByte
b2 = b2 - 48
USART.Write(DecToStr(b1),10,13)
DelayMS(2)
b3 = (b1 * 10) + b2
b4 = b3 + $40 ' Register read command
USART.Write(" ",HexToStr(b3)," ",BinToStr(b3,8)," ",HexToStr(b4)," ",BinToStr(b4,8) ,10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer($b4)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("REG #",HexToStr(b3)," = ",BinToStr(b1,8)," ",HexToStr(b1),10,10,13)
DelayMS(2)
End Sub
'****************************************************************************
Public Sub READ_ALL_REG()
RADIO_RESET
RADIO_CONFIG_SPI
SPI2.Transfer(gcon_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("GCON = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(dmod_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("DMOD = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(fdev_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FDEV = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(brs_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("BRS = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(flth_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FLTH = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(fifoc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FIFOC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(r1c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("R1C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(p1c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("P1C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(s1c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("S1C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer()
b1 = SPI2.Transfer(r2c_addr_r)
DISABLE_RADIO_SPI
USART.Write("R2C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(p2c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("P2C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(s2c_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("S2C = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(pac_addr_r)
DISABLE_RADIO_SPI
b1 = SPI2.Transfer()
USART.Write("PAC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(ftxrxi_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FTXRXI = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(ftpri_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FTPRI = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(rsthi_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("RSTHI = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(filc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FILC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(pfc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("PFC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(sync_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(resv_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("RESV = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(rsts_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("RSTS = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(ookc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("OOKC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(syncv31_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNVC31 = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(syncv23_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNCV23 = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(syncv15_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNCV15 = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(syncv07_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("SYNCV07 = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(txcon_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("TXCON = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(clkout_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("CLKOUT = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(pload_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("PLOAD = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(nadds_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("NADDS = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(pktc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("PKTC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
RADIO_CONFIG_SPI
SPI2.Transfer(fcrc_addr_r)
b1 = SPI2.Transfer()
DISABLE_RADIO_SPI
USART.Write("FCRC = ",BinToStr(b1,8)," ",HexToStr(b1),10,13)
DelayMS(2)
End Sub
'****************************************************************************
'****************************************************************************
'****************************************************************************
'****************************************************************************
Public Sub RADIO_RCV() ' this sub is in progress
RADIO_RESET
RADIO_DATA_SPI
End Sub
'****************************************************************************
'****************************************************************************
High(r_cscon)
High(r_csdata)
Input(irq0)
Input(irq1)
USART.SetBaudrate(br9600) ' Baud rate
LCD.Initialize
It may be a week till get back to this.