Wie sähe denn ein entsprechendes Senderscript aus?
und noch eine Anmerkung zum Code, vielleicht wäre es sinnvoller statt:

Bitwait Portd.1 , Set
Bitwait Portd.1 , Reset

zu benutzen, denn sonst könnte es passieren, dass versucht wird den Eingang zu lesen, obwohl das Bit noch garnicht zurückgesetzt ist.

Allerdings liefert mir das ganze bei resset garnix.
Als Sender habe ich jetzt mal sowas benutzt:

Code:
$Baud = 1200
ddrb = 11111111
Dim A as word
A = &b101010010110101001 'Ergibts als Byte dann den CHR 1 oder 2
do
set Portb.1
waitms 10
reset portb.1
Print A
wait1
loop
Leider klappt das ganze nicht mla mit nem normalen Verbindungskabel...

MFG Moritz