Fehlersuche Mega32 am CAN

Hallo,

ich habe einige Mega8 über einen MCP2515 (CAN-Bus) verbunden.
Nun möchte ich einen Mega32 in den Bus aufnehmen und habe diesen mit einen MCP2515, wie zuvor den Mega auch über SPI verbunden.

Leider hängt sich das Programm auf sobald ich das Bit-Timing einstelle.
Ich habe alle Verbindungen überprüft und die Chips ausgetauscht.
Kein Erfolg :-(

Hat jemand eine Idee an was es noch liegen kann?

Schaltbild und Code findet ihr hier:

Code:

---

  $regfile = "m32def.dat"
 $crystal = 7372800
 $baud = 9600


' Sonderzeichen und LCD Display ************************************************


 Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , Db7 = Porta.0 , E = Porta.4 , Rs = Porta.5
 Config Lcdmode = Port
 Config Lcdbus = 4                                          '4 bit mode
 Config Lcd = 16 * 2                                        'LCD-Display mit 16 Zeichen in 2 Zeilen verwendet


' CAN Bus Init******************************************************************
 Config Spi = Hard , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Noss = 1 , Clockrate = 16      'Test mir Atmega wegen HardwareSPI
 Spiinit

 Config Pind.3 = Input
 Mcpint Alias Pind.3                                        ' Mcpint Alias Pind.3
 Css Alias Portd.4
 Config Css = Output
 Set Css
 Wait 1


 Declare Sub Mcp2515_write_register(byval Adress As Byte , Byval Daten As Byte)
 Declare Sub Mcp2515_read_register(byval Adress As Byte )
 Declare Sub Mcp2515_bitmodify(byval Reg_add As Byte , Byval Reg_mask As Byte , Byval Reg_val As Byte)

 Dim Mcphilf As Byte

 Dim Absender As Integer

 Dim Id As Integer
 Dim Idh As Byte
 Dim Idl As Byte
 Dim Dfl As Byte
 Dim Idi As Byte
 Dim Canin As Byte
 Dim Db0(8) As Byte
 Dim Canstat As Byte
 Dim Hilf1 As Word

 Dim T As Integer
 Dim L As Byte

 Dim Verify As Byte
 Verify = 10

 Const Spi_reset = &HC0
 Const Spi_write = &H02
 Const Spi_read = &H03
 Const Spi_rts0 = &H81
 Const Spi_rts1 = &H82
 Const Spi_rts2 = &H84
 Const Spi_read_status = &HA0
 Const Spi_bit_modify = &H05

 Const Rxb0ctrl = &H60
 Const Rxb1ctrl = &H70

 Const Rxm0sidh = &H20
 Const Rxm0sidl = &H21
 Const Rxm1sidh = &H24
 Const Rxm1sidl = &H25

 Const Rxf0sidh = &H00
 Const Rxf0sidl = &H01
 Const Rxf1sidh = &H04
 Const Rxf1sidl = &H05


 Const Bfpctrl = &H0C
 Const Txrtsctrl = &H0D
 Const Canctrl = &H0F

 Const Txb0ctrl = &H30                                      ' Transmit Buffer 0 Control Register
 Const Txb0sidh = &H31                                      ' Transmit Buffer 0 Std Identifier High
 Const Txb0sidl = &H32                                      ' Transmit Buffer 0 Std Identifier Low
 Const Txb0dlc = &H35                                      ' Transmit Buffer 0 Data Length Code
 Const Txb0d0 = &H36                                        ' Transmit Buffer 0 Data Byte 0
 Const Txb0d1 = &H37                                        ' Transmit Buffer 0 Data Byte 1
 Const Txb0d2 = &H38                                        ' Transmit Buffer 0 Data Byte 2
 Const Txb0d3 = &H39                                        ' Transmit Buffer 0 Data Byte 3
 Const Txb0d4 = &H3A                                        ' Transmit Buffer 0 Data Byte 4
 Const Txb0d5 = &H3B                                        ' Transmit Buffer 0 Data Byte 5
 Const Txb0d6 = &H3C                                        ' Transmit Buffer 0 Data Byte 6
 Const Txb0d7 = &H3D                                        ' Transmit Buffer 0 Data Byte 7

 Const Txb1ctrl = &H40                                      ' Transmit Buffer 1 Control Register
 Const Txb1sidh = &H41                                      ' Transmit Buffer 1 Std Identifier High
 Const Txb1sidl = &H42                                      ' Transmit Buffer 1 Std Identifier Low
 Const Txb1dlc = &H45                                      ' Transmit Buffer 1 Data Length Code
 Const Txb1d0 = &H46                                        ' Transmit Buffer 1 Data Byte 0
 Const Txb1d1 = &H47                                        ' Transmit Buffer 1 Data Byte 1
 Const Txb1d2 = &H48                                        ' Transmit Buffer 1 Data Byte 2
 Const Txb1d3 = &H49                                        ' Transmit Buffer 1 Data Byte 3
 Const Txb1d4 = &H4A                                        ' Transmit Buffer 1 Data Byte 4
 Const Txb1d5 = &H4B                                        ' Transmit Buffer 1 Data Byte 5
 Const Txb1d6 = &H4C                                        ' Transmit Buffer 1 Data Byte 6
 Const Txb1d7 = &H4D                                        ' Transmit Buffer 1 Data Byte 7

 Const Txb2ctrl = &H50                                      ' Transmit Buffer 2 Control Register
 Const Txb2sidh = &H51                                      ' Transmit Buffer 2 Std Identifier High
 Const Txb2sidl = &H52                                      ' Transmit Buffer 2 Std Identifier Low
 Const Txb2dlc = &H55                                      ' Transmit Buffer 2 Data Length Code
 Const Txb2d0 = &H56                                        ' Transmit Buffer 2 Data Byte 0
 Const Txb2d1 = &H57                                        ' Transmit Buffer 2 Data Byte 1
 Const Txb2d2 = &H58                                        ' Transmit Buffer 2 Data Byte 2
 Const Txb2d3 = &H59                                        ' Transmit Buffer 2 Data Byte 3
 Const Txb2d4 = &H5A                                        ' Transmit Buffer 2 Data Byte 4
 Const Txb2d5 = &H5B                                        ' Transmit Buffer 2 Data Byte 5
 Const Txb2d6 = &H5C                                        ' Transmit Buffer 2 Data Byte 6
 Const Txb2d7 = &H5D                                        ' Transmit Buffer 2 Data Byte 7

 Const Rxb0sidh = &H61
 Const Rxb0sidl = &H62
 Const Rxb0dlc = &H65
 Const Rxb1sidh = &H71
 Const Rxb1sidl = &H72
 Const Rxb1dlc = &H75

 Const Cnf1 = &H2A
 Const Cnf2 = &H29
 Const Cnf3 = &H28
 Const Caninte = &H2B
 Const Canintf = &H2C

 $framesize = 32                                            'Stack
 $swstack = 32
 $hwstack = 64


'CAN Modul Identifikation


Id = 10



' Startanzeige

'                LCD "1  5  10    16  20"
  Cls
  Locate 1 , 1 : Lcd "test1"
  Locate 2 , 1 : Lcd "V1.1  05.01.2009"

 Wait 2

  Hilf1 = Id / 8
  Idh = Hilf1
  Hilf1 = Idh * 8
  Hilf1 = Id - Hilf1
  Hilf1 = Hilf1 * 32
  Idl = Hilf1

  Gosub Mcp2515_init


  Mcp2515_read_register Caninte
  Mcp2515_read_register Canintf
  Mcp2515_read_register Canstat
  Mcp2515_read_register Canctrl
  Mcp2515_read_register Cnf1
  Mcp2515_read_register Cnf2
  Mcp2515_read_register Cnf3
  Mcp2515_read_register Txb0ctrl
  Mcp2515_read_register Txb1ctrl
  Mcp2515_read_register Txb2ctrl
  Mcp2515_read_register Rxb0ctrl
  Mcp2515_read_register Rxb1ctrl
  Mcp2515_read_register Bfpctrl
  Mcp2515_read_register Txrtsctrl


 Idi = 10


  Locate 2 , 1 : Lcd "Eigene-ID " ; Id ; "  o.k."          ' Bestätigungsmeldung


' Haupt-Programm Ausführung

 Wait 2


 Cls

 If Mcpint = 1 Then


'  Id = Eigenid                                            'Identifer der zu sendenden Daten
    Dfl = 8                                                'Nachrichtenlänge einstellen (DFL)
    Db0(1) = 0                                            'Befehl                                        'Anweisung
    Db0(2) = 0                                            'Ziel                                          'Empfänger
    Db0(3) = 0
    Db0(4) = 0
    Db0(5) = 0
    Db0(6) = 0
    Db0(7) = 0
    Db0(8) = Absender



 Gosub Senden
 Else
 End If

 Wait 3


 Gosub Status                                              'Aktivmeldung an CAN Bus

Do



Loop

'**** CAN Sequenzen ************************************************************



 Mcp2515_init:

 Print "Mcp2515_init:"


 'MCP2515 per Software Reset zurücksetzen
 Mcphilf = Spi_reset
 Reset Css
  Waitus 10
  Spdr = Mcphilf
  Do

  Print "do"

  Loop Until Spsr.spif = 1

  Waitus 10

 Set Css
 Waitus 20

  Print "einstellen des Bit Timings "

 'einstellen des Bit Timings    +++++++++ UND HIER HÄNGT SICH DAS PROGRAMM DANN AUF ++++++++++++++++++++

 Mcp2515_write_register Cnf1 , &H13
 Mcp2515_write_register Cnf2 , &H90
 Mcp2515_write_register Cnf3 , &H02

 Print "einstellen des Bit Timings o.k."
'Interrupt einstellen
 Mcp2515_write_register Caninte , &B00000011
  Print "Interrupt einstellen "


 Mcp2515_write_register Rxb0ctrl , &B01100000
'                                    **

'Buffer 1: Empfang aller Nachrichten
 Mcp2515_write_register Rxb1ctrl , &B01100000
'                                    **


'****************************************************************************
'******************      Filter  und Maske einstellen  ********************
'****************************************************************************

'Maske setzen      - alle Bits auf "1" führen zu einem eindeutigen Filtern einer ID
 Mcp2515_write_register Rxm0sidh , &B00111111              '
 Mcp2515_write_register Rxm0sidl , &B11100000              '
 Mcp2515_write_register Rxm1sidh , &B00111111              '
 Mcp2515_write_register Rxm1sidl , &B11100000              '

'Filter setzen
 Mcp2515_write_register Rxf0sidh , &B00000011
 Mcp2515_write_register Rxf0sidl , &B00100000
 Mcp2515_write_register Rxf1sidh , &B00000011
 Mcp2515_write_register Rxf1sidl , &B00100000



 Mcp2515_write_register Bfpctrl , 0

 Mcp2515_write_register Txrtsctrl , 0

 Mcp2515_bitmodify Canctrl , &B11100000 , &B00000000



 Print "return"
 Return


'********MCP2515  schreiben****************************************

 Sub Mcp2515_write_register(byval Adress As Byte , Byval Daten As Byte)
  'Print "Reg: " ; Adress ; " Val: " ; Daten
 Mcphilf = Spi_write
 Reset Css
 Spdr = Mcphilf
 Do
 Loop Until Spsr.spif = 1
 Waitms 2
 Spdr = Adress
 Do
 Loop Until Spsr.spif = 1
 Spdr = Daten
 Do
 Loop Until Spsr.spif = 1
 Set Css
 End Sub



'********MCP2515  lesen****************************************

 Sub Mcp2515_read_register(byval Adress As Byte )
 Mcphilf = Spi_read
 Reset Css
 Spdr = Mcphilf
 Do
 Loop Until Spsr.spif = 1
 Waitms 2
 Spdr = Adress
 Do
 Loop Until Spsr.spif = 1
 Spdr = 0
  Do
  Loop Until Spsr.spif = 1
  Canin = Spdr
 Set Css
 End Sub



'********MCP2515  bitmodify****************************************

Sub Mcp2515_bitmodify(reg_add , Reg_mask , Reg_val)
  'Local Can_tmp2 As Byte
  Reset Css
  Mcphilf = Spi_bit_modify
  Spdr = Mcphilf                                          'Can_tmp2
  Do
  Loop Until Spsr.spif = 1
  Waitms 2
  Spdr = Reg_add
  Do
  Loop Until Spsr.spif = 1
  Spdr = Reg_mask
  Do
  Loop Until Spsr.spif = 1
  Spdr = Reg_val
  Do
  Loop Until Spsr.spif = 1
  Set Css
End Sub

'******** Datenempfang ********************************************

 Mcpempfang:
 'Print "Empfangen"
 Mcp2515_read_register Canintf                              'Spi_rx_status
 Canstat = Canin
 'Print "CANINTF: " ; Canstat
 If Canstat.0 = 1 Then Gosub Mcp_read_buffer0
' If Canstat.1 = 1 Then Gosub Mcp_read_buffer1
 Return

 '--------  lesen vom Buffer 0
 Mcp_read_buffer0:
 Mcp2515_read_register Rxb0sidh
 Idh = Canin
 Mcp2515_read_register Rxb0sidl
 Idl = Canin
 Mcp2515_read_register Rxb0dlc

 Dfl = Canin
 Id = Idh * 8
 Hilf1 = Idl / 32
 Id = Id + Hilf1

 'Print "ID-0=" ; Id ; "  DFL-0=" ; Dfl
 'Daten
 For L = 1 To 8
 If L = 1 Then Mcp2515_read_register &H66
 If L = 2 Then Mcp2515_read_register &H67
 If L = 3 Then Mcp2515_read_register &H68
 If L = 4 Then Mcp2515_read_register &H69
 If L = 5 Then Mcp2515_read_register &H6A
 If L = 6 Then Mcp2515_read_register &H6B
 If L = 7 Then Mcp2515_read_register &H6C
 If L = 8 Then Mcp2515_read_register &H6D
 Db0(l) = Canin
 Next L
 Mcp2515_bitmodify Canintf , &B00000001 , &B00000000
 'Print "Daten Buffer-0:" ; Db0(1) ; "$-" ; Db0(2) ; "-" ; Db0(3) ; "-" ; Db0(4) ; "-" ; Db0(5) ; "-" ; Db0(6) ; "-" ; Db0(7) ; "-" ; Db0(8) ; "-#"


  Gosub Auswertung

 Return


'**************************************************
Auswertung:
  Print "Empfang:" ; Db0(1) ; "-" ; Db0(2) ; "-" ; Db0(3) ; "-" ; Db0(4) ; "-" ; Db0(5) ; "-" ; Db0(6) ; "-" ; Db0(7) ; "-" ; Db0(8)

  Return


'**************************************************
  Status:

If Mcpint = 1 Then


'  Id = Eigenid                                            'Identifer der zu sendenden Daten
    Dfl = 8                                                'Nachrichtenlänge einstellen (DFL)
    Db0(1) = 001                                          'Befehl                                        'Anweisung
    Db0(2) = 000                                          'Ziel                                          'Empfänger
    Db0(3) = 0
    Db0(4) = 0
    Db0(5) = 0
    Db0(6) = 0
    Db0(7) = 0
    Db0(8) = Absender

    Gosub Senden


    Else
    End If



  Mcp2515_read_register Canintf                            'Spi_rx_status
  Canstat = Canin
'  Print "CANINTF: " ; Canstat


  Mcp2515_bitmodify Canctrl , &B00001000 , &B00001000




 Waitms 500
 Return

Senden:

Mcp2515_read_register Txb0ctrl                              '&HA0

 Hilf1 = Id / 8
 Idh = Hilf1
 Hilf1 = Idh * 8
 Hilf1 = Id - Hilf1
 Hilf1 = Hilf1 * 32
 Idl = Hilf1

'Print Id

'Print "SPI_read_Status0: " ; Canin
If Canin.3 = 0 Then Gosub Send_buffer0
Mcp2515_read_register Txb1ctrl                              '&HA0


'Print "Senden-Ende"

'********senden mit Buffer 0****************************************

Send_buffer0:

'Priorität einstellen
  Mcp2515_bitmodify Txb0ctrl , &B00000011 , &B00000011


  'Standard ID einstellen
  Mcp2515_write_register Txb0sidh , Idh                    ' Empfängeradresse setzen
  Mcp2515_write_register Txb0sidl , Idl                    ' Empfängeradresse setzen
  'Nachrichtenlänge einstellen (DFL)
  Mcp2515_write_register Txb0dlc , Dfl
  'Daten
  Mcp2515_write_register Txb0d0 , Db0(1)
  Mcp2515_write_register Txb0d1 , Db0(2)
  Mcp2515_write_register Txb0d2 , Db0(3)
  Mcp2515_write_register Txb0d3 , Db0(4)
  Mcp2515_write_register Txb0d4 , Db0(5)
  Mcp2515_write_register Txb0d5 , Db0(6)
  Mcp2515_write_register Txb0d6 , Db0(7)
  Mcp2515_write_register Txb0d7 , Db0(8)
  'nachricht versenden
  Reset Css
  Waitus 10
  Mcphilf = Spi_rts0
  Spdr = Mcphilf
  Do
  Loop Until Spsr.spif = 1
  Waitus 10
 Set Css
' Print "gesendet Buffer-0"
 Waitms 50
  Return



End

---

Hallo,

kann mir keiner helfen?
Offesichtlich ist es die Einstellung am Mega32 selbst denn wenn ich keinen MCP2515 einstecke bleibt das Programm auch hängen.

Aber wo muss ich den Fehler dann suchen. Die Hardware ist 1:1 zu der des Mega8 aufgebaut.
Quarz am Mega32 = 7,3728 Mhz am MCP2515 = 16 Mhz.
Die Fusebits sind auch 1:1 übernommen.

Hallo,
hat keiner eine Idee an was der Fehler hängen kann?

Ich bin jetzt kurz davor alles in die Ecke zu werfen.

das Programm Bleibt an folgender Stelle hängen

Code:

---

Senden:
Print "Senden"  'wird noch angezeigt
'kombinierte Abfrage, ob ein Register frei zum senden ist ( Datenblatt Seite64)
'es werden abgefragt (&H30 40 50) TXBnCTRL.TXREQ  (n steht für Buffer 0,1,2)
'Alternativ Buffer0 (&H30) TXB0CTRL abfragen und bit 3=Status muss "0" sein (Seite 18)
Mcp2515_read_register Txb0ctrl                              '&HA0
Print "hier gehts nicht weiter!" ' hier wird nichts mehr angezeigt

---

Hat jemand mal ein beispielprogramm für dem Mega32 zum vergleichen?