Zum Beispiel so:
Code:
$regfile = "m32def.dat"
$crystal = 8000000
'Timer konfigurieren
Config Timer1 = Timer, Prescale = 64
Config Portd.5 = Output
Led Alias Portd.5
dim Zaehler als byte
'Timerinterruptroutine definieren
On Timer1 Timer_irq
Vorgabe für 12 Herz (doppelte Blinkfrequenz)
Const Timervorgabe = 55119
'Timer starten
Enable Timer1
Enable Interrupts
'Programmhauptschleife
Do
if zaehler > 200 then
disable Timer1
led = 0 'zur Sicherheit
end if
Loop
'Interruptroutine
Timer_irq:
Timer1 = Timervorgabe
Toggle Led
incr Zaehler
Return
Beispiel ist allerdings ungeprüft. Die Berechnung der Timervorgabe habe ich mit rnAVR (hier im Downloadbereich) gemacht.
Lesezeichen