ich habe jetzt nochmal überlegt und das ganze auf einen code für einen µC zusammengefasst, allerdings tut sich gar nichts?!?!?!?!
hier mal der vollständige code, vielleicht erkennt ja jemand von euch den fehler?!?!?!?

$regfile = "m32def.dat"
$crystal = 16000000

Declare Sub Send1()
Declare Sub Empfang1()

Config Portd.0 = Output
Config Porta.0 = Input
Config Portd.1 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Portc.6 = Output
Config Portc.7 = Output
Config Portb.0 = Output
Config Portb.1 = Output
Config Adc = Single , Prescaler = Auto

Ml1 Alias Portc.6
Ml2 Alias Portc.7
Mr1 Alias Portb.0
Mr2 Alias Portb.1
Vs Alias Porta.1
Gnd Alias Porta.2
Ine Alias Porta.0
Ou Alias Portd.0

Vs = 1
Gnd = 0

Enable Interrupts

Dim X As Word

Sub Send1()
Do
Ou = 1
Waitus 14
Ou = 0
Waitus 14
Ou = 1
Waitus 14
Ou = 0
Waitus 14
Ou = 1
Waitus 14
Ou = 0
Waitus 14
Ou = 1
Waitus 14
Ou = 0
Waitus 14
Ou = 1
Waitus 14
Ou = 0
Waitus 14
Ou = 1
Waitus 14
Ou = 0
Waitus 14
Ou = 1
Waitus 14
Ou = 0
Waitus 14
Waitms 20
Loop
End Sub

Sub Empfang1()
Do
Start Adc
X = Getadc(0)
If X > 500 Then
Ml1 = 1
Ml2 = 0
Mr1 = 1
Mr2 = 0
Elseif X < 500 Then
Ml1 = 0
Ml2 = 1
Mr1 = 0
Mr2 = 0
Waitms 500
End If
Loop
End Sub


Do
Call Empfang1()
Call Send1()
Loop

End


mfg
chris