\ Einfacher Timerinterrupt
\ benutzt den Timer0

\ Timer 0 overflow interrupt 
\ Die Nummer gilt für den Atmega16
$12 constant TIMER0_OVFAddr

\ Randdaten
\ CPU-Takt / 1024, overflow interrupt
\ alle 256 timer ticks.
\  16MHz -> 64 ticks/sec
\   8MHz -> 32 ticks/sec

variable tick

\ einfach nur hochzählen
: timer-int-isr
   1 tick +!
;

\ Den Timer0 programmieren und
\ tick zurücksetzen
: timer-init
  5 TCCR0 c! \ Siehe Datasheet
  ['] timer-int-isr TIMER0_OVFAddr int!
  0 tick !
;

\ Ticker einschalten
: +timer
  1 TIMSK c!
;

\ Ticker ausschalten
: -timer
  0 TIMSK c!
;