Ähnliches gilt auch für deine Empfangsroutine:

Code:
$regfile = "m8def.dat" 
$crystal = 12000000 

Dim A As Integer 
Dim Rxdaten As Byte 
Dim Zustand As Integer 

Config Portd = Input 
Config Portb = Output 

Zustand = Pind.2  // WAS IST DAS ?!?

Mainloop: 

StartLoop:
If NOT Startbedingung = True Then
Goto StartLoop
' Auf Startbedinung warten

For A = 1 To 8 
If PINb.0 = 0 Then 
  Rxdaten.0 = 0
Else 
  Rxdaten.1 = 1
End If 
rotate Rxdaten , Left , 1 
Waitms 500 
Next A 

PORTC = Rxdaten 'Ausgabe des gesendeten Bytes

Goto Mainloop
So könnte es schon eher funktinieren.