danke für die schnelle antwort.
es funktioniert aber leider immernoch nicht... mein programm sieht folgendermasen aus (garantiert nicht richtig Bild   )

Code:
$regfile = "m16def.dat"

$crystal = 16000000
$baud = 9600

Dim Pwm_eingang As Byte

Ddrd = &B11111000

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
Compare1a = 255


Do

 Input "" , Pwm_eingang
 Compare1a = Pwm_eingang

Loop

End
vom pc aus sende ich nur wie aus nen terminal programm (erstmal als test) einmal den wert 255 für aus udn einmal den wert 0 für an. aber jezz funtioniert nix...