Problem beim Empfangen serieller Daten

Also ich habe mal versucht ein Schieberegister anzusteuern, das geht auch soweit nun wollte ich über RS232 für jeden der 8 Ausgänge ne null oder eins Senden und der Chip sollte dan entsprechend schieben. Leider bekomme ich das auswerten der Empfangenden Daten nicht hin wenn ich meine nullen und einsen schon direkt im Code zuweise geht alles aber sowie ich versuche sie über den PC zu send geht es nicht und der Controller hängt sich scheinbar auf
hier mein Code:

Code:

---

$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 32
$swstack = 8
Dim A As Byte
Dim I As Byte
Dim Rdata As String * 10
$framesize = 24
Ddrd = &B11100000
Portd = &B00000000
For A = 1 To 8
Portd.5 = 1
Waitms 50
Portd.5 = 0
Waitms 50
Next
Waitms 30
Input rDATA
Print Rdata
For I = 1 To 8
If Mid(rdata , I , 1) = "1" Then
Portd.6 = 1
Waitms 50
Portd.5 = 1
Waitms 50
Portd.5 = 0
Waitms 30
Portd.6 = 0
Else

---