Problem gelöst!

Ich hab´s mit einem Timer gemacht, und es funktioniert. Die Infrarotdioden blinken jetzt alle 50ms ein/aus mit genau 38000 HZ.

Für die die sich die gleiche Frage stellen:
Code:
$regfile = "m8def.dat"                                      'Regfile: Mega8
$crystal = 16000000                                         '16MHz Quarz

Config Portb.1 = Output

Config Timer1 = Timer , Prescale = 1
Enable Timer1
On Timer1 Isr_von_timer1
Enable Interrupts
Timer1 = 65115

Do
Enable Timer1
Waitms 50
Disable Timer1
Waitms 50
Loop
End

Isr_von_timer1:
Timer1 = 65115
Toggle Portb.1
Return
https://www.roboternetz.de/wissen/in...scom_und_Timer

danke für die Hilfe