Genau so der prozessor mu ja nix anderes tun als Frequnezen ausgeben...

Hier mal der Quelltext


$regfile = "8535def.dat"

$crystal = 7372800
$baud = 9600
Config Timer0 = Timer , Prescale = 64
Config Pinc.2 = Output
Tonausgabe Alias Portc.3
On Timer0 Timer_irq

Dim Timervorgabe As Byte
Enable Timer0
Enable Interrupts


Do
For Timervorgabe = 0 To 255
Timervorgabe = 184
Waitms 100
Next Timervorgabe
Loop




Timer_irq:
Timer0 = Timervorgabe

Toggle Tonausgabe

Return