Funktionierendes CAN Bus Projekt entwickeln unter Bascom

Ha ! So, den Fehler habe ich schonmal gefunden. Die /SS Leitung vom Mega8 hing in der Luft und war nicht als Eingang geschaltet. Somit wurde immer das MSTR Bit gelöscht und der SPI wollte nicht senden. Das tut er jetzt.

Hat es eigentlich irgendeinen Vorteil, das SPDR Register manuell zu laden und eine Zeitschleife zu programmieren, die auf das SPIF Bit wartet ? Man kann doch sicherlich genauso den Bascom Befehl SPIout nutzen, oder ?

Jetzt kann ich dann als nächstes den MCP wieder anklemmen. Noch eine Frage, eher Hardware: So ganz habe ich den Zusammenhang mit der /SS Leitung noch nicht erfasst - wozu ist die denn gut, wenn man die nur auf high klemmt ? Oder kann man damit noch etwas anfangen ?

Und noch eine prinzipielle Frage zum SPI Bus: Das muss doch eigentlich auch ohne die /CS Leitung gehen, oder wie klemmt man mehrere Slaves an einen Bus ? Im Bascom Buch von Kühnel sind wir Slaves mit 4 einzelnen /CS Leitungen angeschlossen, aber das kann doch nicht Sinn und Zweck eines Bussystems sein ? (Hat sich erledigt - weiß Bescheid:) )

Hier nochmal der aktuelle Code. Jetzt läuft die SPI, allerdings ist auf dem CAN noch Ruhe (Skop) - offenbar sendet der MCP nichts. Hat jemand eine Idee ? Sieht jemand auf Anhieb einen Fehler ?

Ein weiterer Fehler war schonmal die falsche Nachrichtenlänge 0x04h, die muss natürlich 0x02h sein. Trotzdem bislang kein Erfolg :(

Die routine zum Senden sieht nicht falsch aus. Aber überprüf mal deine CNF config des MCP. Eine Gültige Config muss mind. 6 X TQ haben laut Datenblatt. Ich bin nicht sicher ob du das eingehalten hast.

6*TQ ? Gib mir doch mal einen Tip, auf welcher Seite ich dazu was finde :) Ich suche hektisch...

Ah, OK... Seite 37ff - die Bit Timings meinst Du, ja ? Das habe ich jetzt zumindest nach einmaligem Lesen noch nicht komplett verstanden. Ich hatte gedacht, man stellt nur die gewünschte Bitrate ein uns gut ist ?

Da hätten die auch gut mal ein Beispiel reinpacken können, denn das erschließt sich mir irgendwie nicht....

Ich werde nochmal weitergrübeln, danke einstweilen für den Hinweis !

Ich bekomme es einfach nicht hingefummelt.... die Beschreibung im Datenblatt finde ich einfach nur kryptisch. Ist BRP gleich NBR ? Könnte mir das nicht mal jemand in einfachen Worten erklären, wie ich mit meinem Takt von 16MHz diese Forderung für die Konfiguration erfülle ? Die Details kann ich mir dann sicherlich rückwärts erarbeiten... :(

/edit/

Nach knappen zwei Stunden habe ich einige Fortschritte erzielt, denke ich. Ein paar Dinge konnte ich jetzt begreifen:

Bei einer Fosc von 16MHz und einer gewünschten Bitrate von 125kbit/s berechne ich also TQ wie folgt: (2*125)/62,5ns=4

Das SyncSegment muss 1TQ sein, PropSeg setze ich mit 2TQ, PS1 auf 4TQ (BTLMode auf 0) und um die unter 5.3 gelisteten Regeln zu erfüllen also PS2 auf 3. Dann sähe das so aus:

CNF1 = &B00000100
CNF2 = &B01100010
CNF3 = &B00000011

Aber: Was ist Tdelay unter Punkt 5.3 ? Und wie kommen die bei Punkt 5.3 auf folgende Aussage: "Tosc=50ns, choose BRP<5:0>=04H, then TQ=500ns. To obtain 125kHz, the bit time must be 16TQ" ?? Wäre super, wenn mir das jemand erklären könnte...

Trotz der Änderungen schreibt er wie es aussieht nichts in den MCP.

Dieser Part:

Code:

---

Print "Call mcpinit..."

Call Mcpinit()

Print "done!"

Post = Canread(caninte)
Print "CANINTE:" ; Post

Post = Canread(canintf)

Print "CANINTF:" ; Post

Post = Canread(cnf1)
Print "CNF1=" ; Post
Post = Canread(cnf2)
Print "CNF2=" ; Post
Post = Canread(cnf3)
Print "CNF3=" ; Post

---

mit MCPinit wie folgt:

Code:

---

Sub Mcpinit()
  Local Can_tmp As Byte                                    'Lokale Variable
  Reset Mcp_cs                                            'MCP Chip select an (aktiv)
  Waitus 10                                                'Warten bis Pegel stabil
  Can_tmp = Cmd_reset
  Spdr = Can_tmp                                          '&HC0 ins SPI Data Register laden
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Waitus 10                                                'Warten bis Pegel stabil
  Set Mcp_cs                                              'Chip select wieder an (inaktiv)
  Led_gelb = 1
  Waitms 500
'  Canwrite Canctrl , &B10001000
  Canwrite Cnf1 , &B00000100                              'Timing &H13=50kbit/s, &H07=125kb/s, &H01=250kb/s
  Canwrite Cnf2 , &B01100010                              '&H90
  Canwrite Cnf3 , &B00000011                              '&H02
  Canwrite Caninte , &B00000011                            'Interrupt einstellen
  Canwrite Rxb0ctrl , &B01100000                          'Buffer 0: Empfangen aller Nachrichten
  Canwrite Rxb1ctrl , &B01100000                          'Buffer 1: Empfang aller Nachrichten

  Canwrite Rxm0sidh , 0                                    'Kein Filter, Empfängeradresse Null
  Canwrite Rxm0sidl , 0
  Canwrite Rxm0eid8 , 0
  Canwrite Rxm0eid0 , 0
  Canwrite Rxm1sidh , 0
  Canwrite Rxm1sidl , 0
  Canwrite Rxm1eid8 , 0
  Canwrite Rxm1eid0 , 0

  Canwrite Bfpctrl , 0                                    'Deaktivieren der RXnBF Pins (High Impedance)
  Canwrite Txrtsctrl , 0                                  'TXnRTS Bits als Inputs schalten
  Canmod Canctrl , &B11100000 , &B00000000                'Device zurück in den normalen Modus versetzen
  Led_gelb = 0
End Sub

---

bringt dieses Ergebnis:

Call mcpinit...
done!
CANINTE:0
CANINTF:0
CNF1=0
CNF2=0
CNF3=0

Ich bin sicher, daß die Initialisierung des SPI ansich noch fehlerhaft ist. Zwar wird etwas gesendet, aber der MCP scheint einfach nichts zu empfangen / verstehen. Könnte darauf nochmal jemand einen Blick werfen ? Am Montag werde ich mir nochmal genau die Timings der SPI Schnittstelle anschauen...

Also ich finde einfach nichts, es ist zum Mäusemelken - die SCK Leitung taktet sauber und auf MOSI gehen auch sinnvolle Datenpakete raus. Trotzdem reagiert der MCP auf nichts. Ich würde mich wirklich sehr über Hilfe freuen !

Testhalber habe ich das Programm von feitzi mal angepasst, das scheint zu laufen, auch wenn ich mit den Ausgaben (noch) nicht wirklich etwas anfangen kann. Vielleicht war der SPI bei mir zu langsam oder zu schnell, keine Ahnung. Oder es liegt einfach an der Ein- und Ausgaberoutine...

Zitat:

---

Zitat von Skragan

Ich bekomme es einfach nicht hingefummelt.... die Beschreibung im Datenblatt finde ich einfach nur kryptisch. Ist BRP gleich NBR ? Könnte mir das nicht mal jemand in einfachen Worten erklären, wie ich mit meinem Takt von 16MHz diese Forderung für die Konfiguration erfülle ? Die Details kann ich mir dann sicherlich rückwärts erarbeiten... :(

/edit/

Nach knappen zwei Stunden habe ich einige Fortschritte erzielt, denke ich. Ein paar Dinge konnte ich jetzt begreifen:

Bei einer Fosc von 16MHz und einer gewünschten Bitrate von 125kbit/s berechne ich also TQ wie folgt: (2*125)/62,5ns=4

Das SyncSegment muss 1TQ sein, PropSeg setze ich mit 2TQ, PS1 auf 4TQ (BTLMode auf 0) und um die unter 5.3 gelisteten Regeln zu erfüllen also PS2 auf 3. Dann sähe das so aus:

CNF1 = &B00000100
CNF2 = &B01100010
CNF3 = &B00000011

Aber: Was ist Tdelay unter Punkt 5.3 ? Und wie kommen die bei Punkt 5.3 auf folgende Aussage: "Tosc=50ns, choose BRP<5:0>=04H, then TQ=500ns. To obtain 125kHz, the bit time must be 16TQ" ?? Wäre super, wenn mir das jemand erklären könnte...

---

DU wirst es nicht glauben, aber ich habe es 3Tage lang mehrmals lesen müssen um da einigermaßen durchzusteigen. Die Formel in Kombination mit den Beispielen ist einfach nur seltsam..und schlecht erklärt.

Folgende Sachen sind mir noch aufgefallen:
- Dein Widerstand RS des 2551 gegen Masse ist 10K, für low speed nimmt man eigentlich 3,3k. Ich habe sogar direkt an Masse gelötet. Musst nur auf beiden Platinen gleich machen.
- bekommt dein 2515 wirklich ordentliche 16MHz ?
- " Canmod Canctrl , &B11100000 , &B00000000 'Device zurück in den normalen Modus versetzen" -> funktioniert das Wikrlich? warum nicht einfach "Canwrite Canctrl , &B00000000" ?

Danke für die Hinweise, aber ist meine CNF Konfiguration denn nu richtig ? ;)

Bezüglich des Widerstandes: Direkt auf Masse soll er doch für Highspeed liegen, damit die Flanken steiler werden ? So sagt es zumindest Punkt 1.4.1 im Datenblatt. Ich werde es trotzdem mal probieren, auf EMV achte ich ja zur Zeit eh nicht :)

Der Canmod Canctrl , &B11100000 , &B00000000 setzt Bit 7, 6 und 5 im Canctrl auf Null, und das ist doch normal operation mode ? Wobei ich nicht abstreiten möchte, das canwrite cancontrol,0 nicht auch geht. Es könnte aber sein, daß dann die restlichen Bits noch geklappert werden, bevor der Chip im normal mode ist - deshalb die Maskierung.

Takt ist genau 16MHz, die kommen auch beim MCP richtig an. AufPin 3 kommt ein Rechteck mit 2MHz wieder raus - sieht alles gut aus.

Ich wühle mich gerade noch weiter in das MCP Datenblatt, vielleicht habe ich ja auch nur noch etwas nicht verstanden...

Das klingt soweit schonmal ganz gut. Aber du musst mindestens noch Bit 7 in CNF2 setzten, sonst wird deine Einstellung in CNF3 nicht verwendet.

SPI comm kannst du ganz einfach testen in dem du per SPI den clock prescaler mal änderst, so dass dann statt der 2MHz z.B. 4Mhz rauskommen sollen. Wenn das funzt liegt es schon mal nicht mehr an SPI ;)

Nene, es klappt immernoch nicht. Ich lasse also gerade die ganze Kommunikationssuppe weg und versuche, nur den MCP zu schreiben und zu lesen, aber es klappt nicht. Eine Änderung des Prescalers nimmt er nicht an. Hier mal der letzte Stand:

Teil 1

Code:

---


'**** Deklarationen ************************************************************
$hwstack = 32                                              ' default use 32 for the hardware stack
$swstack = 8                                                'default use 10 for the SW stack
$framesize = 24                                            'default use 40 for the frame space
$regfile = "m8def.dat"                                      'Chipdefinition
$crystal = 16000000                                        'Ext. crystal Osc. Speed 16Mhz
$baud = 2400                                                'Speed COM1

Declare Sub Mcpinit()
Declare Sub Canwrite(byval Reg_add As Byte , Byval Reg_val As Byte)
Declare Sub Canmod(byval Reg_add As Byte , Byval Reg_mask As Byte , Byval Reg_val As Byte)
Declare Function Canread(byval Reg_add As Byte ) As Byte

'**** Portinitialisierung ******************************************************
Portb = &H00                                                'Port B hochohmig schalten
Portc = &H00                                                'Port C hochohmig schalten
Portd = &H00                                                'Port D hochohmig schalten

Config Portb.0 = Output                                    'LED gelb
Led_gelb Alias Portb.0
Led_gelb = 0
Config Portb.1 = Output                                    'LED rot
Led_rot Alias Portb.1
Led_rot = 0
Config Portb.2 = Input                                      '/SS Eingang
Config Portc = Output                                      'Aux
Config Pind.2 = Input                                      'MCP Interrupt MCP2515 /INT
Config Portd.4 = Output                                    'MCP /CS Chip Select
Mcp_cs Alias Portd.4
Config Portd.6 = Input                                      'Taster S1
Portd.6 = 1                                                'Pullup für S1
S1 Alias Pind.6
Config Portd.7 = Input                                      'Taster S2
Portd.7 = 1                                                'Pullup für S2
S2 Alias Pind.7

Led_rot = 1                                                'Resetmerker und Zeit zum ISP Stecker abziehen ;)
Wait 3
Led_rot = 0


'**** Interupts einschalten ****************************************************
Config Int0 = Falling                                      'INT MCP ist low aktiv
On Int0 Int_mcp                                            'Wenn INT, dann Routine INT_mcp aufrufen
Enable Int0                                                'INT0 einschalten
Enable Interrupts                                          'Globale Interrupts einschalten

'**** Watchdog einrichten ******************************************************
Config Watchdog = 2048                                      'WD Timer 2 sek
Start Watchdog

'**** Variablen deklarieren ****************************************************
Const Cmd_read = &H03                                      'Read Command
Const Cmd_write = &H02                                      'Write Command
Const Cmd_bitmodify = &H05                                  'Bit-modify Command
Const Cmd_readstatus = &HA0                                'Read Status Command (poll)
'Const Cmd_read_rx_status = &HB0                            '?
Const Cmd_reset = &HC0                                      'Reset Command
Const Cmd_rts0 = &H81                                      'Sendekommando RTS Buffer 0
Const Cmd_rts1 = &H82                                      'Sendekommando RTS Buffer 1
Const Cmd_rts2 = &H84                                      'Sendekommando RTS Buffer 2

Const Bfpctrl = &H0C                                        'RXnBF Pins
Const Txrtsctrl = &H0D                                      'TXnRTS Pins
Const Caninte = &H2B                                        'Interrupt enable
Const Canintf = &H2C                                        'Interrupt flag
Const Canctrl = &H0F                                        'Control Register
Const Canstat = &H0E                                        'Statusregister
Const Eflg = &H2D                                          'Error Flag Register
Const Cnf3 = &H28                                          'MCP 2515 Configuration Register 3
Const Cnf2 = &H29                                          'MCP 2515 Configuration Register 2
Const Cnf1 = &H2A                                          'MCP 2515 Configuration Register 1
Const Tec = &H1C                                            'Transmit Error Counter
Const Rec = &H1D                                            'Receive Error counter

Const Rxm0sidh = &H20                                      'Receive Buffer Mask 0 Std Identifier High
Const Rxm0sidl = &H21                                      'Receive Buffer Mask 0 Std Identifier Low
Const Rxm0eid8 = &H22                                      'Receive Buffer Mask 0 Ext Identifier High
Const Rxm0eid0 = &H23                                      'Receive Buffer Mask 0 Ext Identifier low
Const Rxm1sidh = &H24                                      'Receive Buffer Mask 1 Std Identifier High
Const Rxm1sidl = &H25                                      'Receive Buffer Mask 1 Std Identifier Low
Const Rxm1eid8 = &H26                                      'Receive Buffer Mask 1 Ext Identifier High
Const Rxm1eid0 = &H27                                      'Receive Buffer Mask 1 Ext Identifier low

Const Rxb0ctrl = &H60                                      'Receive Buffer 0 Control Register
Const Rxb0sidh = &H61                                      'Receive Buffer 0 Std Identifier High
Const Rxb0sidl = &H62                                      'Receive Buffer 0 Std Identifier Low
Const Rxb0eid8 = &H63                                      'Receive Buffer 0 ext Identifier High
Const Rxb0eid0 = &H64                                      'Receive Buffer 0 ext Identifier Low
Const Rxb0dlc = &H65                                        'Receive Buffer 0 Data Length Code
Const Rxb0d0 = &H66                                        'Receive Buffer 0 Data Byte 0
Const Rxb0d1 = &H67                                        'Receive Buffer 0 Data Byte 1
Const Rxb0d2 = &H68                                        'Receive Buffer 0 Data Byte 2
Const Rxb0d3 = &H69                                        'Receive Buffer 0 Data Byte 3
Const Rxb0d4 = &H6A                                        'Receive Buffer 0 Data Byte 4
Const Rxb0d5 = &H6B                                        'Receive Buffer 0 Data Byte 5
Const Rxb0d6 = &H6C                                        'Receive Buffer 0 Data Byte 6
Const Rxb0d7 = &H6D                                        'Receive Buffer 0 Data Byte 7

Const Rxb1ctrl = &H70                                      'Receive Buffer 1 Control Register
Const Rxb1sidh = &H71                                      'Receive Buffer 1 Std Identifier High
Const Rxb1sidl = &H72                                      'Receive Buffer 1 Std Identifier Low
Const Rxb1eid8 = &H73                                      'Receive Buffer 1 ext Identifier High
Const Rxb1eid0 = &H74                                      'Receive Buffer 1 ext Identifier Low
Const Rxb1dlc = &H75                                        'Receive Buffer 1 Data Length Code
Const Rxb1d0 = &H76                                        'Receive Buffer 1 Data Byte 0
Const Rxb1d1 = &H77                                        'Receive Buffer 1 Data Byte 1
Const Rxb1d2 = &H78                                        'Receive Buffer 1 Data Byte 2
Const Rxb1d3 = &H79                                        'Receive Buffer 1 Data Byte 3
Const Rxb1d4 = &H7A                                        'Receive Buffer 1 Data Byte 4
Const Rxb1d5 = &H7B                                        'Receive Buffer 1 Data Byte 5
Const Rxb1d6 = &H7C                                        'Receive Buffer 1 Data Byte 6
Const Rxb1d7 = &H7D                                        'Receive Buffer 1 Data Byte 7

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 Txb0eid8 = &H33                                      'Transmit Buffer 0 Ext Identifier High
Const Txb0eid0 = &H34                                      'Transmit Buffer 0 Ext 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


Dim Can_post_holen As Bit                                  'Merker für MCP Interrupt (Post ist da)
Can_post_holen = 0                                          'Merker auf Null
Dim Data_tmp As Byte                                        'Temp Datenbyte
Dim Can_rxd_post(8) As Byte                                'Datenarray für empfangene Daten
Dim Can_txd_post(8) As Byte                                'Datenarray für zu sendende Daten
Dim Canstatus As Byte                                      'Statuswort

---

Ich bin echt unglücklich ;)

Teil 2

Code:

---

'**** Schnittstellen konfigurieren *********************************************

'SPI
'Config Portb.4 = Input                                      'MISO Input
'Config Portb.3 = Output                                    'MOSI Output
'Config Portb.5 = Output                                    'SCK Output

'Spcr = &B01010011                                          'HardwareSPI AN, SPI Int off, MSB, Master, Low, Phase 0, Clock 16MHZ/8 = 2MHz
'Spsr = &B00000000                                          'SPI2X=0

'In BASCOM:
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Noss = 1 , Clockrate = 16
Spiinit

Print " "
Print "Neustart !"
Print " "
Print "Call mcpinit..."

Call Mcpinit()

Print "done!"

Data_tmp = Canread(caninte)
Print "CANINTE:" ; Data_tmp

Data_tmp = Canread(canintf)

Print "CANINTF:" ; Data_tmp

Data_tmp = Canread(canctrl)
Print "Canctrl=" ; Data_tmp

Data_tmp = Canread(cnf1)
Print "CNF1=" ; Data_tmp
Data_tmp = Canread(cnf2)
Print "CNF2=" ; Data_tmp
Data_tmp = Canread(cnf3)
Print "CNF3=" ; Data_tmp

'*******************************************************************************
'* Hauptprogramm                                                              *
'*******************************************************************************
Do
Reset Watchdog

If S1 = 0 Then
  Led_rot = 1
  Waitms 500
  'Prescaler auf clock/1 stellen
  Reset Mcp_cs                                            'MCP Chip select an (aktiv)
  Waitus 10                                                'Warten bis Pegel stabil
  Data_tmp = Cmd_reset
  Spdr = Data_tmp                                          '&HC0 ins SPI Data Register laden
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Waitus 10                                                'Warten bis Pegel stabil
  Set Mcp_cs                                              'Chip select wieder an (inaktiv)
  Led_gelb = 1
  Waitms 500
  Canmod Canctrl , &B00000011 , &B00000000                'Device zurück in den normalen Modus versetzen
  Canmod Canctrl , &B11100000 , &B00000000                'Device zurück in den normalen Modus versetzen
  Led_gelb = 0

  Led_rot = 0
End If

If S2 = 0 Then
  Led_rot = 1
  Waitms 500
  Led_rot = 0
End If

'If Can_post_holen = 1 Then
'  Print "Empfangen"
'  Data_tmp = Canread(canintf)
'  Print "CANINTF: " ; Data_tmp
'  Can_post_holen = 0
'  Led_gelb = 0
'End If

Loop

'*******************************************************************************
'*******************************************************************************

Sub Mcpinit()
  Local Can_tmp As Byte                                    'Lokale Variable
  Reset Mcp_cs                                            'MCP Chip select an (aktiv)
  Waitus 10                                                'Warten bis Pegel stabil
  Can_tmp = Cmd_reset
  Spdr = Can_tmp                                          '&HC0 ins SPI Data Register laden
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Waitus 10                                                'Warten bis Pegel stabil
  Set Mcp_cs                                              'Chip select wieder an (inaktiv)
  Led_gelb = 1
  Waitms 500
  Canwrite Cnf1 , &B00000100                              'forum &B00010011                              'selbst:&B00000100
  Canwrite Cnf2 , &B11100010                              'forum &B10010000                              'selbst:&B11100010                              '
  Canwrite Cnf3 , &B00000011                              '&B00000010                              'selbst: &B00000011                              '
  Canwrite Caninte , &B00000011                            'Interrupt einstellen
  Canwrite Rxb0ctrl , &B01100000                          'Buffer 0: Empfangen aller Nachrichten
  Canwrite Rxb1ctrl , &B01100000                          'Buffer 1: Empfang aller Nachrichten

  Canwrite Rxm0sidh , 0                                    'Kein Filter, Empfängeradresse Null
  Canwrite Rxm0sidl , 0
  Canwrite Rxm0eid8 , 0
  Canwrite Rxm0eid0 , 0
  Canwrite Rxm1sidh , 0
  Canwrite Rxm1sidl , 0
  Canwrite Rxm1eid8 , 0
  Canwrite Rxm1eid0 , 0

  Canwrite Bfpctrl , 0                                    'Deaktivieren der RXnBF Pins (High Impedance)
  Canwrite Txrtsctrl , 0                                  'TXnRTS Bits als Inputs schalten
  Canmod Canctrl , &B11100000 , &B00000000                'Device zurück in den normalen Modus versetzen
  Led_gelb = 0
End Sub

Sub Canwrite(reg_add , Reg_val)
  Local Can_tmp2 As Byte
  Reset Mcp_cs                                            'MCP Chip select an (aktiv)
  Waitus 10
  Can_tmp2 = Cmd_write

' In Bascom:
'  Spiout Can_tmp2 , 1
'  Spiout Reg_add , 1
'  Spiout Reg_val , 1

  Spdr = Can_tmp2                                          '&H02 ins SPI Data Register laden
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Spdr = Reg_add
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Spdr = Reg_val
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Waitus 10
  Set Mcp_cs                                              'Chip select wieder an (inaktiv)
End Sub

Sub Canmod(reg_add , Reg_mask , Reg_val )
  Local Can_tmp2 As Byte
  Reset Mcp_cs
  Waitus 10
  Can_tmp2 = Cmd_bitmodify                                '&H05

' In Bascom:
'  Spiout Can_tmp2 , 1
'  Spiout Reg_add , 1
'  Spiout Reg_mask , 1
'  Spiout Reg_val , 1

  Spdr = Can_tmp2                                          'ins SPI Data Register laden
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Spdr = Reg_add
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Spdr = Reg_mask
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Spdr = Reg_val
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Waitus 10
  Set Mcp_cs
End Sub

Function Canread(reg_add )
  Local Can_tmp2 As Byte
  Reset Mcp_cs
  Waitus 10
  Can_tmp2 = Cmd_read                                      '&H03

' In Bascom:
'  Spiout Can_tmp2 , 1
'  Spiout Reg_add , 1
'  Spiin canread , 1

  Spdr = Can_tmp2                                          'ins SPI Data Register laden
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Spdr = Reg_add
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Canread = Spdr                                          'Datenübernahme
  Spdr = 0
  Do                                                      'Warte bis
  Loop Until Spsr.spif = 1                                'SPI Interrupt cleared (Transfer abgeschlossen)
  Waitus 10
  Set Mcp_cs
End Function

End

'*** ISR ***********************************************************************
Int_mcp:                                                    'ISR für Empfang

Led_gelb = 1

Can_post_holen = 1

Return

---

Bit 7 in CNF2 habe ich geändert, ich hatte das so verstanden, das bei Null die Länge von PS2 > PS1 und IPT ist. Aber naja, ist halt mies beschrieben :)

Die Ausgabe im Terminal ist bei allen Abfragen 255...

Also ich bin hilflos - ich finde einfach nicht heraus, warum es nicht läuft.

Ja, ist manchmal nicht so vertändlich geschrieben, aber manchmal fehlts auch einfach an genügend englischerfahrung ;)

Bleib mal ganz ruhig, wenn du den prescaler nicht ändern kannst ist CNF eh egal! Dann funzt SPI nicht. Wenn aber ein Takt aus dem Pin 3 kommt, läuft er bekommt nur kein brauchbaren SPI befehl von deinem µC.

Daran musst du nun ansetzen. SPI config prüfen, Hardware prüfen. Hast du z.B. auch die SS Leitung angeschlossen und NOSS entsprechend konfiguriert? bzw. wenn nicht musst du den CS des MCP manuell reseten wenn du senden willst ;)

Check das mal, ich seh da nicht so richtig durch das ist kein Bascom oder? Worin programmierst du da?

Aber klar ist das Bascom :)

Die /SS Leitung vom 128er liegt über Pullup als Eingang geschaltet auf 5V, dadurch soll SPI immer senden können. Der /CS vom MCP liegt auf PortD.4 des 128ers und wird vor jeder Übertragung gelöscht bzw. nach jeder Übertragung wieder gesetzt.

Ich habe mir gerade die Leitungen auf dem Skop angeschaut, das passt soweit. Ich hole mir gleich mal ein 4 Kanal, dann mache ich mal einen Screenie von /CS, MOSI und SCK - vielleicht werde ich daraus schlauer...

Also, folgenden Code habe ich auf eine Taste gelegt:

Code:

---

  Data_tmp = &B01011010                                    'Cmd_reset
  Reset Mcp_cs                                            'MCP Chip select an (aktiv)
  Waitus 10                                                'Warten bis Pegel stabil
  Spiout Data_tmp , 1
  Waitus 10                                                'Warten bis Pegel stabil
  Set Mcp_cs                                              'Chip select wieder an (inaktiv)

---

Dann sieht man auf dem Skop folgendes (was eigentlich alles perfekt ist):

Chan1: /CS
Chan2: MOSI
Chan3: SCK

Falls jemand noch irgendeine Idee hat - ich such mir einen Wolf. Keine Ahnung, warum ich nicht mit Ihm reden kann. Der gleiche Effekt bei beiden Boards, an einem defekten Baustein kann es ja nicht liegen, zumal der Code von feitzi ja irgendetwas sendet. Ein genauer Vergleich brachte mir aber keine Erkenntnisse. :(

Das sieht ja eigentlich gut aus. /CS hab ich bei mir halt mit /SS verbunden und den Rest Bascom machen lassen. Aber wenn es so auch funzt, ok.

Ist an der Takteinstellung des SPI irgendwas zu änden? Oder vielleicht was in den Fuses? Ich versuch mich mal zu erinnern, dass ich dir heute nachmittag mein Code schicke.

/SS könnte ich natürlich dann mal testhalber umlöten - kein Thema. Das teste ich, sobald ich Deinen Code habe - danke schonmal vorab ;) Das ermuntert einen wieder...

Jo, wenn du ein paar Seiten vorher guckst wirst du auch meine verzweifelten Versuche finden :D
Ist immer schön wenn man Antworten bekommt, aber wenn das Thema sehr speziell ist gibt es kaum Leute die was sinnvolles antworten können. Außer eben welche wie ich, die genau das gemacht haben was du vor hast.

Schau mal rein. Quarz ist am MCP (16MHz) und Pin 3 geht zum takteingang des Mega8

Danke, schaue ich mir an ! :)

HA !

et löppt ! :)

Nach langem Vergleichen der Unterschiede, umlöten der /CS Leitung (um sich erstmal irrerweise auf BASCOM zu verlassen) und genauer Timinganalyse habe ich es nun geschafft, den Prescaler zu ändern.

Ich habe also die /CS mit /SS verbunden und die manuellen Befehle alle gegen spiout ersetzt. Dann ersteinmal nur einen Resetbefehl gefolgt von der Änderung des CANCTRL gesendet. Dabei fiel mir auf, daß nach dem Resetbefehl tatsächlich der Taktausgang des MCP 10µs aufhörte, d.h. der Befehl wurde verstanden. Fehler 1): Mein nächster Befehl wurde schon gesendet, während der MCP noch im Reset hing. Nach Einbau einer 20µs langen Pause sendete ich dann nacheinander die Bytes für modify, canctrl, mask und Wert - es änderte sich nichts. Dann fiel mir auf, daß Du ein ganzes Array rausschiebst und da kam es mir. Fehler 2) zwischen den einzelnen Bytes, welche zu einem Kommando gehören, wurde /CS immer wieder angehoben. Nachdem ich nun auch mit einem Array alle drei Byte hintereinander rausschiebe, bleibt /CS während der Übertragung unten und siehe da, nach dem letzten Bit ändert sich der Takt von 2 auf 16MHz !

An dieser Stelle ersteinmal recht herzlichen Dank - nun kann ich erstmal mit der restlichen Struktur weitermachen, die Initialisierung korrekt durchführen und dann kommen sicherlich weitere Fragen. Die nächsten Tage werde ich aber wohl genug zu tun haben... :)

Hier noch der entscheidende Codeschnipsel:

Code:

---


'SPI
Config Portb.3 = Output                                    'MOSI
Config Portb.4 = Input                                      'MISO
Config Portb.5 = Output                                    'SCK
Config Portb.2 = Output                                    '/SS - /CS

Config Spi = Hard , Data Order = Msb , Master = Yes , Noss = 0 , Clockrate = 4
Spiinit

'*******************************************************************************

Print " "
Print "Neustart !"
Print " "
Print "Reset 2515..."
Data_tmp = Cmd_reset
Spiout Data_tmp , 1
Waitus 20
Spi_write_buff(1) = Cmd_write
Spi_write_buff(2) = Canctrl
Spi_write_buff(3) = &B00000100

Spiout Spi_write_buff(1) , 3

Print "done!"
End

---

Ich muss auch nochmal Vitis Recht geben, der ja zu Anfang dieses Threads sagte, man müsse selber durchblicken. Hätte ein kopierter Code auf Anhieb funktioniert, wüsste ich immernoch nicht, wie der Kram wirklich läuft. Jetzt habe ich deutlich mehr Durchblick und habe ganz sicher (mal wieder) was gelernt.

Sodele, also schreiben klappt jetzt ganz hervorragend, ich habe den code erstmal auf das nötigste reduziert. Nachdem ich nun den Prescaler geändert habe, wollte ich das Register CANCTRL auslesen - das klappt irgendwie nicht. Muss ich dann noch irgendwie Nullen senden ? In der Help von SPIIN steht irgendwie so etwas, aber das verstehe ich nun überhaupt nicht. Jedenfalls bleibt die MISO Leitung high. Wenn ich da nochmal um einen Tip bitten dürfte ?

Code:

---

'*******************************************************************************
'*
'*
'* Projekt: CAN Testboard
'* Zielhardware: CAN Testboard V1.0
'* Stand: 03.03.2008
'*
'* CAN Test10.bas
'*
'*******************************************************************************

'Inspirationsliste
'
'

'**** Deklarationen ************************************************************
$hwstack = 32                                              ' default use 32 for the hardware stack
$swstack = 8                                                'default use 10 for the SW stack
$framesize = 24                                            'default use 40 for the frame space
$regfile = "m8def.dat"                                      'Chipdefinition
$crystal = 16000000                                        'Ext. crystal Osc. Speed 16Mhz
$baud = 2400                                                'Speed COM1

Declare Sub Mcpinit()
Declare Sub Canwrite(byval Reg_add As Byte , Byval Reg_val As Byte)
Declare Sub Canmod(byval Reg_add As Byte , Byval Reg_mask As Byte , Byval Reg_val As Byte)
Declare Function Canread(byval Reg_add As Byte ) As Byte

'**** Portinitialisierung ******************************************************
Portb = &H00                                                'Port B hochohmig schalten
Portc = &H00                                                'Port C hochohmig schalten
Portd = &H00                                                'Port D hochohmig schalten

Config Portb.0 = Output                                    'LED gelb
Led_gelb Alias Portb.0
Led_gelb = 0
Config Portb.1 = Output                                    'LED rot
Led_rot Alias Portb.1
Led_rot = 0
Config Portb.2 = Input                                      '/SS Eingang
Config Portc = Output                                      'Aux
Config Pind.2 = Input                                      'MCP Interrupt MCP2515 /INT
Config Portd.4 = Output                                    'MCP_CS
Mcp_cs Alias Portd.4
Set Mcp_cs                                                  'low aktiv

Config Portd.6 = Input                                      'Taster S1
Portd.6 = 1                                                'Pullup für S1
S1 Alias Pind.6
Config Portd.7 = Input                                      'Taster S2
Portd.7 = 1                                                'Pullup für S2
S2 Alias Pind.7

Led_rot = 1                                                'Resetmerker und Zeit zum ISP Stecker abziehen ;)
Wait 3
Led_rot = 0



'**** Variablen deklarieren ****************************************************
Const Cmd_read = &H03                                      'Read Command
Const Cmd_write = &H02                                      'Write Command
Const Cmd_bitmodify = &H05                                  'Bit-modify Command
Const Cmd_reset = &HC0                                      'Reset Command
Const Canctrl = &H0F                                        'Control Register


Dim Data_tmp As Byte                                        'Temp Datenbyte
Dim Canstatus As Byte                                      'Statuswort

Dim Spi_write_buff(3) As Byte                              'Sendebuffer
Dim Spi_mod_buff(4) As Byte                                'Modbuffer
Dim Spi_read_buff(2) As Byte                                'empfangsbuffer


'**** Schnittstellen konfigurieren *********************************************

'SPI
Config Portb.3 = Output                                    'MOSI
Config Portb.4 = Input                                      'MISO
Config Portb.5 = Output                                    'SCK
Config Portb.2 = Output                                    '/SS - /CS

Config Spi = Hard , Data Order = Msb , Master = Yes , Noss = 0 , Clockrate = 4
Spiinit

'*******************************************************************************

Print " "
Print "Neustart !"
Print " "

Print "Call mcpinit..."

Call Mcpinit()

Print "MCP init done!"

Data_tmp = Canread(canctrl)
Print "Canctrl=" ; Bin(data_tmp)

'*******************************************************************************
'* Hauptprogramm                                                              *
'*******************************************************************************
Do

If S1 = 0 Then
  Led_rot = 1
  Waitms 500
  Led_rot = 0
End If

If S2 = 0 Then
  Led_rot = 1
  Waitms 500
  Led_rot = 0
End If


Loop

'*******************************************************************************

Sub Mcpinit()
  Local Can_tmp As Byte                                    'Lokale Variable

  Print "Reset 2515..."                                    'MCP Resetten
  Can_tmp = Cmd_reset
  Reset Mcp_cs
  Waitus 1
  Spiout Data_tmp , 1
  Waitus 1
  Set Mcp_cs
  Waitus 20                                                  'Warten bis Reset erledigt, evtl. Abfrage MCP einbauen ?
  Print "done!"

  Print "change prescaler..."
  Spi_write_buff(1) = Cmd_write
  Spi_write_buff(2) = Canctrl
  Spi_write_buff(3) = &B00000100                              'Prescaler auf Takt/1
  Reset Mcp_cs
  Waitus 1
  Spiout Spi_write_buff(1) , 3
  Waitus 1
  Set Mcp_cs
  Print "done!"
End Sub

Sub Canwrite(reg_add , Reg_val)                            'Subroutine "schreiben"
  Spi_write_buff(1) = Cmd_write
  Spi_write_buff(2) = Reg_add
  Spi_write_buff(3) = Reg_val
  Spiout Spi_write_buff(1) , 3
End Sub

Sub Canmod(reg_add , Reg_mask , Reg_val)
  Spi_mod_buff(1) = Cmd_bitmodify
  Spi_mod_buff(2) = Reg_add
  Spi_mod_buff(3) = Reg_mask
  Spi_mod_buff(4) = Reg_val
  Spiout Spi_mod_buff(1) , 4
End Sub

Function Canread(reg_add)
  Spi_read_buff(1) = Cmd_read
  Spi_read_buff(2) = Reg_add
  Spiout Spi_read_buff(1) , 2
  Spiin Canread , 1
End Function

End

---

Hallo Leute

Habe immer RS485 benutzt, möchte auch zukünftig CAN benutzen doch habe überhaupt keine Kentnisse darüber, was muss ich zuerst lernen und wo kann ich Tutorials, einfache Bascom Beispielcode herkriegen, am liebsten auf deutsch

Danke

Gruss

Sato

Basic gibts nicht auf deutsch ... gibt nur englische Syntax (Schreibweise)

Prog (mit enlischer Basic-Syntax) siehe hier:
https://www.roboternetz.de/phpBB2/ze...r=asc&start=44

Aber zu meinem Problem weiß niemand was ? :)

Sendet der Befehl SPIIN auch automatisch das notwendige Taktsignal ? Oder ist es dann besser, mit SPIMOVE zu arbeiten ?

Sub Canread(reg_add)
Spi_read_buff(1) = Cmd_read
Spi_read_buff(2) = Reg_add
Spiout Spi_read_buff(1) , 2

Spi_input(1) = Spimove(data_spare) 'Spiin Spi_input(1) , 2

End Sub

Aber es läuft trotzdem nicht, ich empfange einfach nichts...

Beim Highlevelbefehl von Bascom kann ich keine Auskunft geben,
da ich die Hardwarenahe Programmierung bevorzuge,
sprich ich schreibe direkt ins SPDR Register.
Dabei ist es so, dass ich dieses abwechselnd lese und schreibe.
Der Hintergrund ist, dass nur wenn die SPI sendet der Takt
über CLK geht und die angehängte Hardware nur dann
ihre Daten senden kann.
Das läuft dann so ab, dass ich ne 0 (Null) ins SPDR schreibe,
warte bis die Übertragung beendet ist und das empfangene
Byte dann im SPDR steht. dieses dann herauskopiere und
die nächste 0 schreibe usw. usw. bis die gewünschte zahl
an Bytes rüber ist.
Sorry, aber Dein Problem scheint mir entweder

a) in der Initialisierung der SPI oder
b) in der Hardware zu liegen.

Haste die Bausteine mal getauscht um zu sehen ob nicht der MCP oder der
ATMega ne Macke haben?

Beim SPIIN scheint bascom nullen zu senden und die emfangenen werte
dann in Variablen zu speichern, beim SPIMOVE kann man gleichzeitig
Daten senden und die Rückgabewerte auslesen.

Ach so, ich initialisiere die SPI über:
config pin_mcp_reset = output
config pin_mcp_select = output
config SPI_mosi = output
config SPI_clk = output
config SPI_miso = input
SPCR=&B01010010

Ich bin ja so bescheuert... ich hatte natürlich die Verbindung von /CS zu /SS wieder gelöscht und meine originale Portverbindung wieder erstellt. Und das manuelle setzen von MCP_CS hatte ich natürlich vergessen. Nevermind.... -.-

Nun muss ich nur noch die Timings etc. in den Griff bekommen, er antworter jetzt und schickt mir beim auslesen von CANCTRL eine &04, welche ich ja auch hineingeschrieben habe. Jetzt muss ich erstmal wieder weiter rumprobieren, aber ich denke, ich bekomme es in den Griff...

Nun, die Fragen werden ja immer detailiierter... ich kann nun korrekt Register auslesen und beschreiben, zumindest das Register CANCTRL. Mit diesen Subs:

Code:

---

Sub Mcpinit()
  Local Can_tmp As Byte                                    'Lokale Variable

  Print "Reset 2515..."                                    'MCP Resetten
  Can_tmp = Cmd_reset
  Reset Mcp_cs
  Waitus 1
  Spiout Data_tmp , 1
  Waitus 1
  Set Mcp_cs
  Waitus 20                                                'Warten bis Reset erledigt, evtl. Abfrage MCP einbauen ?
  Print "done!"

'(  Print "change prescaler..."
  Spi_write_buff(1) = Cmd_write
  Spi_write_buff(2) = Canctrl
  Spi_write_buff(3) = &B00000100                          'Prescaler CLKOUT auf Takt/1
  Reset Mcp_cs
  Waitus 1
  Spiout Spi_write_buff(1) , 3
  Waitus 1
  Set Mcp_cs
  Print "done!"
')
  Set Trigger
  Canwrite Cnf1 , &B00000100                              'forum &B00010011                              'selbst:&B00000100
  Reset Trigger
  Canwrite Cnf2 , &B11100010                              'forum &B10010000                              'selbst:&B11100010                              '
  Canwrite Cnf3 , &B00000011                              '&B00000010                              'selbst: &B00000011                              '
  Canwrite Caninte , &B00000011                            'Interrupt einstellen
  Canwrite Rxb0ctrl , &B01100000                          'Buffer 0: Empfangen aller Nachrichten
  Canwrite Rxb1ctrl , &B01100000                          'Buffer 1: Empfang aller Nachrichten

  Canwrite Rxm0sidh , 0                                    'Kein Filter, Empfängeradresse Null
  Canwrite Rxm0sidl , 0
  Canwrite Rxm0eid8 , 0
  Canwrite Rxm0eid0 , 0
  Canwrite Rxm1sidh , 0
  Canwrite Rxm1sidl , 0
  Canwrite Rxm1eid8 , 0
  Canwrite Rxm1eid0 , 0

  Canwrite Bfpctrl , 0                                    'Deaktivieren der RXnBF Pins (High Impedance)
  Canwrite Txrtsctrl , 0                                  'TXnRTS Bits als Inputs schalten
  Canmod Canctrl , &B11100000 , &B00000000                'Device zurück in den normalen Modus versetzen
End Sub

Sub Canwrite(reg_add , Reg_val)                            'Subroutine "schreiben"
  Print Cmd_write
  Print Reg_add
  Print Reg_val
  Spi_write_buff(1) = Cmd_write
  Spi_write_buff(2) = Reg_add
  Spi_write_buff(3) = Reg_val
  Reset Mcp_cs
  Waitus 1
  Spiout Spi_write_buff(1) , 3
  Waitus 1
  Set Mcp_cs
End Sub

---

Mit dem ausgeklammerten Teil ändere ich den Prescaler. Nun soll ja auch der Rest der Konfiguration gemacht werden, dort schreibt er aber immer Nullen in die Register. Ich habe daraufhin in der Sub Canwrite die übergebenen Variablen ausgeben lassen, Reg_val wird immer mit Null ausgegeben, also offenbar nicht richtig an die Subroutine übergeben - woran kann das liegen ? Die anderen Variablen (Reg_add etc.) kommen richtig an...

solche Dinge kommen vor wenn Stack und Frame zu klein
sind ... probiers mal mit größeren Werten dafür

ääääääääähhhhhhmmmmmm ... falscher Fehler.
Es wird wohl daran liegen, dass Du den CANCTRL nicht
in den Konfigurationsmodus versetzt.
Dann frisst er nämlich keine Konfigurationsänderung ;)

Ist er denn nicht nach dem Reset automatisch im Configmodus ? So stand es doch unter Punkt 10, oder ? Ich schaue mir das gleich mal an !

Das stimmt, nach dem Reset ist der Chip erstmal im Konfigurationsmodus.

das mag wohl sein, wenn du aber bit 7 bis 5 von canctral auf 0 setzt
bist du aus dem config-mode raus

edit: sorry, hab die Klammer übersehen ...

ich würds dennoch mal mit dem config Mode probieren.

:) ja, ich setze mich gleich nochmal dran... kann eigentlich nur noch eine Kleinigkeit sein.

Also, wenn ich die Register manuell schreibe, läufts. Aber sobald ich die Sub CANWRITE benutze, ist Reg_val immer null ?! Die Variable wird nicht übergeben...

/edit/

Ich habe es nochmals getestet. Schreibe ich CNF1 manuell, d.h. ohne nutzen der Subroutine, funktioniert es bestens, ich lese den geschriebenen Wert wieder aus. Sobald ich die Subroutine verwende, ist immer Reg_val &H00, egal, welchen Wert ich übergebe. Nach mehrfachem durchlesen und vergleichen checke ich einfach nicht, warum das so ist. Die anderen Variablen werden korrekt übergeben ....

Ja, Problem gefunden. HWStack und Framesize zu klein, wie Du sagtest...