Ich hab das nun so gelöst:
Code:
$regfile = "M128def.dat"
$crystal = 8000000
$baud = 19200

Dim Value As Byte
Dim Variable1 As String * 15
Dim Variable2 As String * 15
Dim Variable3 As String * 15
Dim Befehl As String * 20
Dim Test As String * 20
Config Porte.6 = Output

Config Spi = Soft , Din = Pinb.3 , Dout = Pinb.2 , Clock = Pinb.1 ,
Spiinit

Befehl = "Dir"

Do
Porte.6 = 1
Variable1 = Mid(befehl , 0 , 1)
Value = Asc(variable1)
Spiout Value , 10
Variable2 = Mid(befehl , 0 , 1)
Value = Asc(variable2)
Spiout Value , 10
Variable3 = Mid(befehl , 0 , 1)
Value = Asc(variable3)
Spiout Value , 10

Spiin Test , 10
Printbin Test
Wait 2
Loop
End
Meintest du das so? Weil da steckt auch noch ein Fehler drin. Der Controller empfängt immernoch nur Murks.