Hier der Code meines Masters!!!

Code:
'*******************SPI-Master ************************************

$regfile = "4433def.dat"
$crystal = 4000000

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 0

sbi DDRB,5                                                  ' SCK output
cbi DDRB,4                                                  ' MISO input
sbi DDRB,3                                                  ' MOSI output


Dim Richtung As Byte                                        'var ist die Variable die übergeben wird

Spiinit

'********************************Hauptschleife**********************************
Main:

Richtung = "r"

Spiout Richtung , 1                                         'ein Byte senden

Wait 3

Richtung = "v"

Spiout Richtung , 1                                         'ein Byte senden

Wait 3

Goto Main

'*******************************************************************************
End                                                         'end program

Und nun der Code meines Slaves (funktioniert so leider nicht )

Code:
'*******************SPI-Slave mit Interrupt************************************

$regfile = "4433def.dat"
$crystal = 4000000

Config Spi = Hard , Interrupt = On , Data Order = Msb , Master = No , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 0

sbi DDRB,5                                                  ' SCK output
cbi DDRB,4                                                  ' MISO input
sbi DDRB,3                                                  ' MOSI output

Enable Interrupts

Dim Richtung As Byte

On Spi Daten_empfangen

Ddrb = &B11100000

Portd = &B00000000


Spiinit

'**********************************Hauptschleife********************************
Main:

Do

Portd = &B00000000

Select Case Richtung

Case "v"

Goto Vorwaerts

Case "r"

Goto Rueckwaerts

End Select

Loop


'******************************Daten_empfangen**********************************

Daten_empfangen:

Spiin Richtung , 1

Richtung = "r"
Return


'*******************************Vorwaerts***************************************

Vorwaerts:

Richtung = 0                                                'Zurücksetzen von Richtung

Portd = &B01100000                                          'Ausgabe an Motortreiber

Wait 3                                                      'solange läuft der Motor

Goto Main


'*********************************Rueckwaerts***********************************
Rueckwaerts:

Richtung = 0                                                'Zurücksetzen von Richtung

Portd = &B10100000                                          'Ausgabe an Motortreiber

Wait 3                                                      'solange läuft der Motor


Goto Main



End

Hat irgendwer 'ne Idee???