Bascom & SPI Hilfe!

[Sebastian (Gast)]

Hallo,

ich versuche seit ein paar Tagen, zwei µC's per SPI zu verbinden, es 
klappt einfach net...

Ich hänge mal meinen Code an. Bitte sagt mir, was ich vergessen hab. Ich 
bin in Sachen Programmieren noch nicht so sicher.

Ich verwende BASCOM

Master:

$regfile = "m8def.dat"
$crystal = 8000000

Config Portc = Output

Dim A(1) As Byte
A(1) = &B00101000
'
Ddrb = &B11101111

Spcr = &B01010001

Spiinit

Do
Wait 5
Spiout A(1) , 1
Portc.5 = 1
Waitms 300
Portc.5 = 0
Loop
End


Slave:

$regfile = "m8def.dat"
$crystal = 8000000

Config Portc = Output

Dim Curbyte As Byte

Ddrb.4 = 1
Spcr = &B11000001

Spiinit

Do
Spiin Curbyte , 1
If Curbyte = &B00101000 Then
Portc.5 = 1
End If
Loop
End