Programming RFM radio modules in Basic

[richard]

rfm69 and rfm12 modules don't work that way , they retain no settings when powered off so they to be fully configured every power up .
they communicate via spi bus to the host and are most suited to packet transmissions . they can do ook but why would you
I use rfm12 and 69's a lot they are very reliable fast and have a good range ,but they are not for the faint hearted

[camerart]

rfm69 and rfm12 modules don't work that way , they retain no settings when powered off so they to be fully configured every power up .
they communicate via spi bus to the host and are most suited to packet transmissions . they can do ook but why would you
I use rfm12 and 69's a lot they are very reliable fast and have a good range ,but they are not for the faint hearted

Hi Richard,
I'm picking my way through the clues! And there don't seem many clues

OK, so I need a circuit with the module plus a PIC for configuring them.

It's something I want to do so I'll have to find out how faint hearted I am.

I would appreciate any circuits or minimal programs please. As for programs, I only speak in BASIC, so I bet I also have to translate any

Cheers, Camerart.

[richard]

here's a pgm I did some years back to let my pic projects talk to the Arduino things its based on and compatible with the Arduino

rfm12b lowpowerlab library. I would not develop anything new with rfm12b's , rfm69's are much better once you get the knack of it

I have developed libraries for pic, Arduino and raspberry_pi's [python2.7] to all yak to each other with rfm69 modules [rfm12b also] but
they are complex ,undocumented and beyond my resources to support for novices

'****************************************************************
'*  Name    : rfm12b.BAS                                        *
'*  Author  : richard                                  *
'*  Notice  : Copyright (c) 2013                                *
'*          : All Rights Reserved                               *
'*  Date    : 9/4/2013                                          *
'*  Version : 1.0    16f1825     @3.3 volts                               *
'*  Notes   : talk to arduino rfm12b lib with encrypt=null      *
'*          :  pkt size up to maxl , will  ack also             *
'****************************************************************
  
#CONFIG
             __config        _CONFIG1,    _FOSC_INTOSC & _CP_OFF & _WDTE_ON  &  _PWRTE_ON  &  _MCLRE_ON  & _CLKOUTEN_OFF
              __config      _CONFIG2, _PLLEN_ON & _LVP_OFF
#ENDCONFIG
 
 
  include "dt_ints-14.bas"
  Include "REENTERPBP.bas"
asm
INT_LIST macro
      
     
     
      INT_HANDLER INT_INT, _RX, PBP ,NO
      endm
       INT_CREATE
       
      
       
ENDASM   
 
DEFINE OSC 32
 SSPIF VAR PIR1.3     ' SPI interrupt flag
 ssc var  PORTC.3    ;..... rf12b ss
 RNINT VAR PORTA.2    ;.... rf12b irqn // int int
 ;SDI=  PORTC.1  .... rf12b sdo
 ;SDO PORTC.2    .... rf12b sd1
;SCK  PORTC.3    .... rf12b ssk
 net con 99
 node con 2
 MAXL CON 34   ;buffer size    ie 0 to 34
  
  
 RXBUFF VAR BYTE[maxl+1]
 BCNT VAR BYTE
 GRP VAR RXBUFF[0]   ;net sync 
 DEST  VAR RXBUFF[1]
 SOURCE  VAR RXBUFF[2]
 LEN     VAR RXBUFF[3]
 ;data  rxbuff[4] to   rxbuff[maxl-2] 
 FLG VAR BYTE
 RXDONE VAR FLG.7
 CMD VAR WORD
 crc var word
 CRC_IN   var byte
 i VAR BYTE           ' loop counter
 j var byte
 
 
 
   OSCCON=$70
   ANSELA=0
   ANSELC=0
   OPTION_REG.6=0
   
   
   TRISA = %001110
   TRISC = %00000010        ' set PORTC I/O
   SSP1CON1=$21  ;$22 works too
   SSP1CON2=0
   SSP1CON3=0
   SSP1STAT=$40
    
   high ssc      '
   serout2 PORTA.0,84,[ "RFM12",13,10]
   SSPIF = 0
   GOSUB RM12INIT
   BCNT=1
   INTCON=$90
   FLG=0
   grp=net  
          
mainloop:
IF   RXDONE  THEN
CMD=$820D  ;receive    $820D IDLE
 GOSUB SNDCMD 
  INTCON=0
   crc=-1
    
    FOR I= 0 TO LEN+3
    
     CRC_IN = RXBUFF[i]
    gosub crc16
    next
if  rxbuff[len+4]=crc.lowbyte then   ;only matching the crc lowbyte seems ok
    
     I=RXBUFF[2]
   if    ( i.7 )   then gosub ack     ; acknowlege reception if   asked
    
   ;  should check   here for  node id match
    
    
  serout2 PORTA.0,84, [ HEX2 RXBUFF[1] ,",", HEX2 RXBUFF[2] ,",",HEX2 RXBUFF[3] ,"," ]
 FOR I= 4 TO LEN+2
  serout2 PORTA.0,84, [ RXBUFF[I] ,"," ]
 
  NEXT
 ; serout2 PORTA.0,84, ["XXX", RXBUFF[len+3],"  ", HEX2 RXBUFF[len+5],  HEX2 RXBUFF[len+4],"  ",hex4 crc, 13,10]   ;len+4=lowbyte
  serout2 PORTA.0,84, [RXBUFF[len+3], 13,10] 
 endif
 
  FOR I= 1 TO MAXL
   RXBUFF[I]=0      ;clear buffer
  NEXT
  
 
    CMD=0           ;reset fifo  sequence
    GOSUB SNDCMD   ;  
    CMD=$CA80 
    GOSUB SNDCMD   ;  
    CMD=$CA83           ;reset fifo 
    GOSUB SNDCMD
  FLG=0
  BCNT=1
  
  INTCON=$90 ; enable rx int 
  CMD=$82DD  ;receive on   
  GOSUB SNDCMD 
 ENDIF
 I=0 ; something in main loop for the wdt
       
GoTo mainloop     ' do it forever
 
   End
   
   
SNDCMD:     ;word size send  ,note rfm12b dose not drop irq when ready for cmd
  LOW SSC
     SSPIF = 0
   SSPBUF = CMD.HIGHBYTE  
      WHILE   SSPIF =0 ' wait for SPI interupt flag
 WEND  ' wait for send
    SSPIF = 0
   SSPBUF = CMD.LOWBYTE
      WHILE   SSPIF =0 ' wait for SPI interupt flag
 WEND  ' wait for send
   
   
    HIGH SSC
    Return
    
    
 RM12INIT:            ;leaves radio in rxmode
 CMD=0
 GOSUB SNDCMD   
CMD=$8205   ;SLEEP
 GOSUB SNDCMD   
PAUSE 1
 CMD=$80D7
 GOSUB SNDCMD   
CMD=$A640
 GOSUB SNDCMD 
  CMD=$C608
 GOSUB SNDCMD   
CMD=$94A2
 GOSUB SNDCMD 
 CMD=$C2AC
 GOSUB SNDCMD   
CMD=$CA83
 GOSUB SNDCMD 
  CMD=$CE63
 GOSUB SNDCMD   
CMD=$C483
 GOSUB SNDCMD 
 CMD=$9850
 GOSUB SNDCMD   
CMD=$CC77
 GOSUB SNDCMD 
  CMD=$E000     
 GOSUB SNDCMD   
CMD=$C800
 GOSUB SNDCMD 
 CMD=$C043
 GOSUB SNDCMD  
 PAUSE 1
 CMD=$82DD  ;receive $82dd '  XMIT $823D 
 GOSUB SNDCMD      
  RETURN  
  
  
 RX:  
   LOW SSC 
  SSPIF = 0  
   SSPBUF = $B0     ' 
 WHILE   SSPIF=0  ' wait for SPI interupt flag
 WEND
   SSPIF = 0   
     SSPBUF = 0      ' write to SSPBUF 
    WHILE   SSPIF =0 ' wait for SPI interupt flag
 WEND  
  RXBUFF[BCNT] = SSPBUF   ' store received character in array
  BCNT=BCNT+1
 
  IF (BCNT > MAXL) OR (BCNT > (LEN+5) )THEN   RXDONE=1  
      HIGH SSC
      INTCON=$90
@ INT_RETURN  
  
  
   
 
 crc16:
  
  CRC = CRC ^  CRC_IN 
      for j=0to 7
   if crc.0 then
   crc= ((crc>>1) ^$a001 )   ; 
    
  else
    crc= crc>>1
   endif
   next
   return
   
   
xmit:     ;tx a byte
WHILE   RNINT =1  ' wait for irq interupt flag  from rfm12b
 WEND
 cmd =cmd |$b800
  GOSUB SNDCMD 
 return 
   

 ack:          ;leaves radio idle
 CMD=$823d    ;tx on
 GOSUB SNDCMD 
 pause 3
 crc=-1
  CMD=$aa      ;preamble
 GOSUB xmit  
 CMD=$aa        ;preamble
 GOSUB SNDCMD 
 CMD=$aa      ;preamble
 GOSUB  xmit 
 
   
CMD=$2d       ;sync 
 GOSUB  xmit 
  CMD=net         ;network 
 CRC_IN=cmd 
 gosub crc16
 GOSUB  xmit 
CMD=node       ;node id
cmd.7=1
 CRC_IN=cmd 
 gosub crc16
  GOSUB  xmit 
CMD=rxbuff[1]    ;ack from 
 CRC_IN=cmd 
 gosub crc16 
 GOSUB  xmit   
CMD=00           ;nill length
 CRC_IN=cmd 
 gosub crc16
 GOSUB  xmit  
 CMD=crc.lowbyte
   GOSUB  xmit 
  CMD=crc.highbyte
   GOSUB  xmit 
   CMD=$aa          ;postamble
 GOSUB  xmit   
 CMD=$aa            ;postamble
 GOSUB  xmit 
 pause 4
    CMD=$820d
 GOSUB SNDCMD 
 
 
  return  
  
  
 sndbuff:    ;leaves radio idle and rx int off  , to use   load  dest ,data   and   len , len is the data payload size and call this sub
 INTCON=0   ; watch this
  grp=net
  source=node 
 CMD=$823d    ;tx on
 GOSUB SNDCMD 
 pause 3
 crc=-1
  CMD=$aa      ;preamble
 GOSUB xmit  
 CMD=$aa        ;preamble
 GOSUB SNDCMD 
 CMD=$aa      ;preamble
 GOSUB  xmit 
 
   
CMD=$2d       ;sync 
 GOSUB  xmit 
         
 
for i=0 to  len + 3
 CMD= rxbuff[i]
 CRC_IN=cmd 
 gosub crc16
 GOSUB  xmit
  next
 
   CMD=crc.lowbyte
   GOSUB  xmit 
  CMD=crc.highbyte
   GOSUB  xmit 
   CMD=$aa          ;postamble
 GOSUB  xmit   
 CMD=$aa            ;postamble
 GOSUB  xmit 
 pause 4
    CMD=$820d
 GOSUB SNDCMD 
 return

[camerart]

Hi Richard,
Next I've got to squeeze your code into my Oshonsoft simulator, should be fun
I have to choose a future proof PIC. Apart from having an spi bus, are there any other considerations to note? e,g, speed, memory etc.
I already have modules with RFN22 on them, but I have some RFM69 and some RFM96 on order.
Thanks very much, C.
EDIT Hi again. I notice "Copyright (c) 2013 All Rights Reserved Can I have permission to post it on an Oshonsoft assistance forum, please?

[richard]

EDIT Hi again. I notice "Copyright (c) 2013 All Rights Reserved Can I have permission to post it on an Oshonsoft assistance forum, please?

No problem , but I don't particularly want to support it [ there is a slight bug in the reset fifo sequence too ,should be $ca81 from memory I think]
you realise of course that rfm69's are quite a different animal

[camerart]

No problem , but I don't particularly want to support it [ there is a slight bug in the reset fifo sequence too ,should be $ca81 from memory I think]
you realise of course that rfm69's are quite a different animal

Hi Richard,
I have been using: http://www.hobbyking.com/hobbyking/s..._Receiver.html for a couple of years. They are programmed using a Chrome APP and have RFM22 chips on them, so I can play with them, while I learn how to program later modules RFM69 and 96 for example.

I hoped they would be similar, so once learnt, a different module could be programmed with few adjustments to the program.

I now have 4 BASIC programs, gleaned from the net, that I can follow, and as you say it does look daunting. I have to convert one or more into Oshonsoft basic, for my system and skills.
I've just got this one into Oshonsoft (compiles), but there are errors. So I commented out those bits with >>>>>>>>>>>>>>>>>>>> for correction later. I've enclosed it in case you see obvious mistakes (Clutching at straws!!)

I realise your time is valuable.
Regards, Eric.

[richard]

I found this useful , saves a lot of typing


ps use word or wordpad to view

[camerart]

rfm69 and rfm12 modules don't work that way , they retain no settings when powered off so they to be fully configured every power up .

Hi R,
I've now got a circuit, with in circuit programming, and have changed frequency using SPI

I'm using RFM69 boards with 18F2431 PICs and was told they have SX1276 chips on them, by the supplier.

You say that they need ALL of the registers loading at power on. Could you clarify please, why does it state default values in the data sheet, or can the SX1276 retain the default settings?

C.

[richard]

You say that they need ALL of the registers loading at power on. Could you clarify please, why does it state default values in the data sheet, or can the SX1276 retain the default settings?

exactly , all registers return to their default por values when the chip is reset , the chip has no non volatile registers.
every register that you assign a non por value to needs that value reloaded at every reset, in my case that's nearly all of them

[camerart]

exactly , all registers return to their default por values when the chip is reset , the chip has no non volatile registers.
every register that you assign a non por value to needs that value reloaded at every reset, in my case that's nearly all of them

Hi R,
That will save me some time at least initially. As mentioned before I am starting with OOK. You dd ask me why I would, but I'm trying OOK first then FSK, then LoRa, as I gain experience.

As I can accept most of the default registers, all I need to do is load the ones that are different.

So far I can see the radio transmitting, but there is no modulation yet, so just a stream, with no breaks.

C.