'* Demoprogramm zum Thema Timer V2, erklärt den Zusammenhang Taktfrequenz mit Prescaler.
'* Die rote LED wird im Sekundentakt angesteuert.
'* Timerauswertung per Interrupt
'* Stefan Weißer - Getestet, funktioniert

Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portb.4 , Rs = Portb.5

Ddrd = &B00111111                                           '* Bit 6 und 7 von Port D im Steuerregister als Eingang definieren
Portd = &B11010000                                          '* PullUp der Eingänge 6 und 7 sowie LCD- Beleuchtung einschalten

Config Timer1 = Timer , Prescale = 256
Enable Timer1                                               '* Interrupt Timer 1 freigeben
On Timer1 Isr_timer1                                        '* Wenn Timer 1 fertig - Interrupt! Springe zu..
Enable Interrupts                                           '* Interrupts global freigeben
Timer1 = 3036

Cls
Start Timer1                                                '* Timer Ablauf starten
Upperline
Lcd "Timer V2"
Do
NOP                                                         '* Mach mal Pause, No OPeration
Loop Until Pind.6 = 0
Lowerline
Lcd "Programmende!"

End                                                         '* Hauptprogramm

Isr_timer1:                                                 '* Sprungziel bei einem Interrupt
Stop Timer1
Toggle Porta.5
Timer1 = 3036
Start Timer1
Return