So, habe den Source mal frisiert und getsetet. Leider geht bei 10Mhz Quarz grade mal etwas mehr als 29Khz

@Tesla: sind wohl doch weniger als 40kHz, sorry!

Bekomme ich das noch schneller, oder mache ich was falsch?

Code:
$regfile = "2313def.dat"
$crystal = 10000000
$baud = 9600

Dim Hi As Byte
Dim Lo As Byte
Dim Freq As Byte
Dim Zeit As Byte

Config Pind.2 = Output

Config Timer1 = Timer , Prescale = 1

Enable Interrupts
On Timer1 Icnr
Enable Timer1
Timer1 = 65526



Do
    Input "High x mal 1us: " , Hi
    Input "Low x mal 1us: " , Lo


Loop



Icnr:

Incr Zeit

If Zeit = Freq Then

 Zeit = 0
 Portd.2 = Not Pind.2

 If Freq = Hi Then
     Freq = Lo
     Else
     Freq = Hi
 End If
End If

Timer1 = 65526

Return