Das ist die besste möglichkeit (kommste auuuuuuuf
30 khz. MIST

Code:
$regfile = "2313def.dat"
$crystal = 10000000
Dim Hi As Word , Lo As Word

Config Portb = Output

Config Timer1 = Timer , Prescale = 1

Enable Interrupts

On Timer1 Icnr

Enable Timer1



Do
Hi = 65535
Lo = 65535
Loop


Icnr:
Toggle Portb.5
If Portb.5 = 0 Then Timer1 = Hi
If Portb.5 = 1 Then Timer1 = Lo
Return
Aber wenn man mehr will dann kommt man um ASM nicht mehr rum, hier endet dan mein Verständnis