PIC16F1827 RFM01 über SPI an MSSP Modul 2

[nummernschalter (Gast)]

Hallo,

habe vor ein paar Wochen hier beim Stöbern eine Diskkusiion zu 
pinkompatiblen Nachfolgenr des PIC16F628 gefunden und wurde dadurch auf 
den PIC16F1827 aufmerksam. Besonders interessiert mich das MSSP Modul, 
was 2mal vorhanden ist. Das Folgende Projekt soll beide Module nutzen. 
Nr.1 als I2C zur Ansteuerung eines LCD, was auch gut funktioniert und 
Nr.2 soll Daten von einem RFM01-Modul via SPI empfangen. Hier fangen die 
Propleme an. Ich habe exakt den gleichen Code auf einem AVR unter BASCOM 
erfolgreich laufen. Auf dem PIC bleibt er beim Testen von nIRQ hängen. 
Da ich am PIC noch nie mit SPI gearbeitet habe, vermute ich den Fehler 
in meiner Konfiguration. Vielleicht kann der eine oder andere Fuchs 
einen hilfreichen Hinweise geben.

Habe die Quelle auf das Wesentliche gekürzt.

;*  RFM01:  RB0 = nIRQ (PIC als Ein)
;*    RB2 = SDI  (PIC als Aus)    
;*    RB3 = nSEL (PIC als Aus)
;*    RB5 = SCK  (PIC als Aus)
;*    RA0 = SDO  (PIC als Ein)
;* FSK liegt über 10k an +UB

; Includedatei einbinden
    list p=16F1827
    include <P16F1827.INC>

; Makros

SPI_Kommando  Macro   Wert1, Wert2
      movlw   Wert1
      movwf  spi_tmp1
      movlw   Wert2
      movwf  spi_tmp2
      call  SPI_Senden
    endm

; Konfiguration festlegen

 __CONFIG _CONFIG1, _BOREN_ON & _CP_OFF & _CPD_OFF & _PWRTE_ON & _WDTE_OFF & _MCLRE_ON & _FOSC_INTOSC
 __CONFIG _CONFIG2, _LVP_OFF

; Variablen festlegen

zaehler  equ  0x2f

var_warte1  EQU  0x71
var_warte2  EQU  0x72
spi_tmp1      equ  0x7b
spi_tmp2      equ  0x7c

; Konstanten festlegen


nSEL  equ  3    ; RFM01 Auswahl
nIRQ  equ  0    ; RFM01 IRQ

    org 0
    goto    Prog_Start
    org 4
    retfie




Prog_Start
        BANKSEL OSCCON
        movlw   b'01101000'     ;4 MHz intern
        ;movlw   b'01011000'     ;1 MHz intern
        movwf   OSCCON

        BANKSEL PORTB
        CLRF    PORTB
        CLRF    PORTA
        BANKSEL LATB
        CLRF    LATB
        CLRF    LATA
        BANKSEL ANSELB
        CLRF    ANSELB
        CLRF    ANSELA
        BANKSEL TRISB
        movlw   B'00000001'
        movwf   TRISB    ; SPI RB0 Eingang
        movlw   B'00000001'     ;
        movwf   TRISA    ; SPI RA0 Eingang
    
        BANKSEL INTCON
        bcf     INTCON,GIE


; Einstellen SPI

        BANKSEL SSP2ADD
        movlw   h'09'               ; clock = 20/(4*(12+1)) = 385kHz
        movwf   SSP2ADD              ; für I2C
        BANKSEL SSP2CON1   ; BANK 4
        movlw b'01000000'     ; Mode 1,1 SPI, middle of output
        movwf SSP2STAT     ; time sampling
        movlw b'00110001'     ; Mode 1,1 SPI Master Mode, 1/16 Tosc bit time
        movwf SSP2CON1     ; SSP is on


; RFM01 initialisieren

  BANKSEL PORTB     ; BANK 0
  movlw  d'32'
  movwf   zaehler
  movlw   h'20'
  movwf   FSR0L


  BANKSEL PORTB
  bcf  PORTB,nSEL

  movlw  D'100'    
  movwf  var_warte
  call  Warte


  SPI_Kommando H'00',H'00'
  SPI_Kommando H'95',H'7b'                                         ;Configuration: 868MHzband, 12pf, 134kHz bandwidth
  SPI_Kommando H'a6',H'86'                                         ;Frequency: MHz
  SPI_Kommando H'c8',H'47'                                         ;Datarate: 4,8 kbit
  SPI_Kommando H'c6',H'83'                                         ;AFC
  SPI_Kommando H'c4',H'ac'                                         ;data filter
  SPI_Kommando H'c2',H'e0'                                         ;low batt./ clock divider
  SPI_Kommando H'c0',H'42'                                         ;receiver setting:
  SPI_Kommando H'e0',H'00'                                         ;wake-up timer:
  SPI_Kommando H'cc',H'00'                                         ;low duty cycle:
  SPI_Kommando H'ce',H'88'                                         ;fifo config
  SPI_Kommando H'ce',H'8b'                                         ;fifo enable
  SPI_Kommando H'c0',H'43'                                         ;enable receiver

Haupt

  ;Warte auf Daten
  BANKSEL PORTB     ; BANK 0
  btfsc   PORTB,nIRQ
  goto  Haupt
  BANKSEL SSP2BUF   ; BANK 4
  movf   SSP2BUF,W   ; Hole Daten aus SSPBUF
  BANKSEL PORTB     ; BANK 0
        movwf   INDF0    
  incf  FSR0L,F
  decfsz  zaehler
  goto  Haupt

  SPI_Kommando H'00',h'00'  ;read status
  SPI_Kommando H'ce',h'88'
  SPI_Kommando H'ce',h'8b'  ;fifo enable

  ;... irgendwas mit den Daten anstellen

  BANKSEL PORTB     ; BANK 0
  movlw  d'32'
  movwf   zaehler
        movlw   h'20'
  movwf   FSR0L

  goto   Haupt



Warte
   movlw   .110           
         movwf   var_warte2
Warte_w1 nop                    
         nop
         nop
         nop
         nop
         nop
         decfsz  var_warte2, F
         goto    Warte_w1
         decfsz  var_warte1, F
         goto    Warte        
         return

SPI_Senden
  BANKSEL SSP2BUF   ; BANK 4
  movfw  spi_tmp1
  movwf   SSP2BUF    ; Schreibe in SSPBUF
SPI_Senden_w1
   btfss   SSP2STAT,BF  ; Datentransfer komplett? (Puffer voll?)
  goto   SPI_Senden_w1   ; wenn nicht, erneut prüfen
  movf   SSP2BUF,w   ; Hole Daten aus SSPBUF
  movfw  spi_tmp2
  movwf   SSP2BUF    ; Schreibe in SSPBUF
SPI_Senden_w2
   btfss   SSP2STAT,BF  ; Datentransfer komplett? (Puffer voll?)
  goto   SPI_Senden_w2   ; wenn nicht, erneut prüfen
  movf   SSP2BUF,w   ; Hole Daten aus SSPBUF
  return



  end

[nummernschalter (Gast)]

Die PIC-Gurus sind wohl alle im Urlaub ...? ;-)

Gut, formuliere ich es einmal allgemeiner.

Gibt es jemanden, der bereits ein RFM01/RFM12 erfolgreich unter zu 
Hilfenahme des MSSP-Moduls (Hard-SPI) als Empfänger an einem PIC zu 
laufen hat?

[nummernschalter (Gast)]

So Freunde,

nachdem ich einen Verdrahtungs- und kleinere Programmfehler behoben 
habe, kann ich das RFM01 dazu bewegen, eine LED im Rhytmus des 
nIRQ-Signals blinken zu lassen.

Nach genauer Untersuchung aller Quellen hinsichtlich des Empfangs, habe 
ich herausgefunden, daß das RFM01 nach Anlegen des nIRQ zunächst 2 Leer- 
bzw. Dummybytes sendet und dann erst das eigentlich empfangene Zeichen. 
Mein Problem ist nun, daß ich mit

Haupt
  BANKSEL PORTB     ; BANK 0 
  btfsc   PORTB,nIRQ
  goto  Haupt
  BANKSEL SSP2BUF   ; BANK 4
  movfw   SSP2BUF   ; Hole Daten aus SSPBUF
  ...

nur das erste Byte auslesen kann, welches 0x00 ist. Wie bewege ich den 
PIC dazu, nochmal 2 Bytes zu holen bevor das nächste nIRQ-Signal 
aufläuft?

[nummernschalter (Gast)]

Habe das Thema zu einem Abschluß gebracht und erfolgreich auf "Soft"-SPI 
umgestellt. Grundlage war das Programmbeispiel von HOPERF zum RFM01. 
Trotz Umstellung der C-Quelle auf Assembler hat alles in allem keinen 
halben Tag gedauert.

Falls irgend jemand in Zukunft eine Lösung für das RFM01/RFM12 mit dem 
eingebautem MSSP-Modul (egal welcher PIC) findet, möge er sich hier zu 
Wort melden.

[Oli G. (og_9191)]

Hallo, bin durch suchen auf deinen Eintrag gestoßen.
Ist zwar schon lange her, aber ich hoffe trotzdem das du mir die Lösung 
für den RFM12 schicken könntest.

MfG

Oli

[HAL9000 (Gast)]

Hallo,
Ich hätte auch großes Interesse an diesem Thema, und durchforste 
fleissig Threads aus 2007 usw. und freu mich, dass ich aktuell nicht der 
einzige bin.
Das was ich letzendlich erreichen will, bzw. meine Projektschritte sind:
1) PIC16F88 (oder ähnliche) erstmal sauber mit SPI kommunizieren lassen.
2) RFM01, RFM02 und RFM12 Module ansteuern.
3) Saubere Datenübertragung zwischen den Modulen hinbekommen.
4) Implementierung eines Addressierungs- und Fehlerkorrekturprotokolls 
zur Kommunikation mit mehreren Modulen.

Momentan sitz ich bei Punkt 1). Ich hoffe auf rege Diskussionen oder 
Tips und Tricks zu dem Thema :-)