\ rfm12_timer1.fs
: t1_start  $03 TCCR1B c! ;
: t1_stop   $00 TCCR1B c! ;
: t1_clear  $00 TCNT1H c!
            $00 TCNT1L c! ;
: t1_reset  $04 TIFR   c! ;
: t1_get    TCNT1L c@ ><
            TCNT1H c@ or >< ;

: t1-overflow-isr
  t1_stop
  t1_reset
  0 bit# !
;
: +timer1
  t1_clear
  0 TCCR1A c!
  t1_reset          \ clear t1ovfl flag
  t1_start          \ normal mode, f/64
         \ register timer1 overflow isr
  ['] t1-overflow-isr
  TIMER1_OVFAddr int!
           \ enable timer1 overflow int
  TIMSK c@ $04 or TIMSK c!  
;
: -timer1 \ disable timer1 overflow int
  TIMSK c@ $04 invert and TIMSK c!  
;