
$440000 constant ticks
$480000 constant reload

: tick ( -- ) 2 port-leds toggle ;

' tick irq-collection !

  -12000000 reload !     \ Reload value for timer which counts up and triggers interrupt on overflow.
         -1 ticks  ! eint \ Trigger interrupt now by setting the cycle counter.
