ups fehler im 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
Waitms 100
Next Timervorgabe

Loop




Timer_irq:
Timer0 = Timervorgabe

Toggle Tonausgabe

Return