BASCOM SPI Gyro auslesen

[Chris (Gast)]

Hallo,
ich habe ein neues Gyro bekommen:
Hier das Datenblatt:
http://www.siliconsensing.com/media/30649/DocNo-CRG20-00-0100-110-Rev-9PDF.pdf
SPI Interface Seite 10-11.

In Bascom habe ich mit SPI noch nichts gemacht, deshalb ein paar Fragen.

Ich benutze zum Flashen die ISP Schnittstelle.
Das bedeutet, das Hardware SPI ist besetzt.
Ist es da schlauer für den Sensor gleich Software SPI zu verwenden?

Also mein AVR wäre dann der Master, mein Gyro Slave,
ansonsten ist an dem Bus nix mehr.
Wie geht das bei SPI mit der Adressierung?

Also laut Datenblatt muss ich erst mal 6 Bytes senden.
Erstes ist Control Byte:
bit 7-4: Reserved: 0 setzten
bit 3: 0 = Deactivate CBIT_A test
bit 2-0: 011 = Rate / Temperature sensor data
Also Control Byte: &B00000011
Die nächsten 4 Bytes sind Null, dann Checksum

Die 6 Bytes per Spiout ausgeben?

Folgt nach dem SPIOUT dirrekt Spiin?

Ist das soweit richtig?

[Mike (Gast)]

Chris schrieb:
> Das bedeutet, das Hardware SPI ist besetzt.

Zumindest dein Sensor hat für die Nutzung des SPI mit mehr als zwei 
Teilnehmern ein SPI-Selekt Signal.

> Folgt nach dem SPIOUT dirrekt Spiin?

Die Daten fließen bei SPI immer gleichzeitig auf Input und Output. Ob 
das leere oder notwendige Daten sind, entscheidet die Applikation.

[Chris (Gast)]

> Folgt nach dem SPIOUT dirrekt Spiin?

>Die Daten fließen bei SPI immer gleichzeitig auf Input und Output. Ob
>das leere oder notwendige Daten sind, entscheidet die Applikation.

Ich hatte mich auf den Quellcode bezogen.

[Chris (Gast)]

Hab jetzt mal ein kleines Programm geschriben.
Kann da mal jemand drüber schauen?
Haut das so hin wie ich mir das vorstelle?

$regfile = "m644adef.dat"
$crystal = 16000000
$hwstack = 50
$swstack = 50
$framesize = 50

Dim Temp_out As Integer
Dim Gyro_zout As Integer
Dim Y As Byte

Config Spi = Soft , Din = Pina.0 , Dout = Porta.1 , Ss = Porta.2 , Clock = Porta.3
Dim Out_byte(6) As Byte
Dim In_byte(6) As Byte
Out_byte(1) = &B00000011
Out_byte(2) = 0
Out_byte(3) = 0
Out_byte(4) = 0
Out_byte(5) = 0
Out_byte(6) = &B00000011

Spiinit


Gyro_data:
Spiout Out_byte(1) , 6
Spiin In_byte(1) , 6

Temp_out = Makeint(in_byte(3) , In_byte(2))
Gyro_zout = Makeint(in_byte(5) , In_byte(4))

Return