Hallo Leute,

kann mir mal einer sagen, warum das nicht geht?
Hat absolut keine Funktion....
Bin ratlos. Es soll letztendlich der Buzzer einen Ton erzeugen.

Habe auch Tiny schon gewechselt, Proggen geht, aber null Funktion

Code:
$regfile = "attiny13.dat"                                   ' Chip auswählen
$crystal = 1200000                                          '9,6MHz /8
$hwstack = 8
$swstack = 2
$framesize = 5
'
'

Ddrb = &B11111001
Buzzer Alias Portb.5

Dim S As Byte
Const Timervorgabe = 130

Config Timer0 = Timer , Prescale = 1024
On Timer0 Timer_irq


Enable Timer0
Enable Interrupts


Do

Loop




Timer_irq:
   'Interrupt jede Sekunde
   Timer0 = Timervorgabe
   Incr S
   Toggle Buzzer
Return
Stimmt da irgendwas nicht?
Strom ziehen tut der Tiny - 3mA.

MfG, und danke
dl1akp