#define SHOW_FPS 0 // 0 : don't show, 1 : show fps
#define GAME_SPEED 10 // 0 : the fastest

INT_HANDLER OldInt1 = NULL;
#if SHOW_FPS == 1
char fpsStr[10];
#endif
char hwVersion;
volatile char quit = 0;
char modifying = 0;
char nextModif = 0;
short timeCount = 0;
volatile short fCount = 0;
void (*display_Modif)();
short showFPS = 0;

void Display();

// [Thanks to Geogeo from www.tigen.org for this code]
#define HARDWARE_FREQUENCY        20970
static volatile unsigned short counter_hardware=0;

DEFINE_INT_HANDLER (SceneModif)
{
  ExecuteHandler (OldInt1);
  //HARDWARE VERSION 1.0 
  if (hwVersion==1)
  {
    //Incrémentation
    counter_hardware+=HARDWARE_FREQUENCY;
  
    //Execution interrupotion
    if (counter_hardware<=32768 )
      return;
    //Remise à zéro
    counter_hardware-=32768;        
  }
// [/Thanks to Geogeo from www.tigen.org for this code]
  timeCount++;
  if (timeCount == (256))
  {
    timeCount = 0;
#if SHOW_FPS == 1
    showFPS = 1;
#endif
  }
  
  if (!modifying && !nextModif)
  {
    modifying = 1;
    nextModif = GAME_SPEED;
  }
  if(nextModif)
    nextModif--;
}


void SetLoopFunc(void (*modifFunc)())
{
  display_Modif = modifFunc;
}


void LoopInit()
{
  quit = 0;
  modifying = 0;
  timeCount = 0;
  fCount = 0;
  hwVersion = HW_VERSION;
  OldInt1 = GetIntVec (AUTO_INT_1);
}

void LoopEnd()
{
  SetIntVec (AUTO_INT_1, OldInt1);  
}

void MainLoop()
{
  SetIntVec (AUTO_INT_1, SceneModif);
  while(!quit)
  {
    Display();
#if SHOW_FPS == 1
    fCount++;    
    if (showFPS) {
      PortSet(Plane0,239,127);
      DrawStr (0, 0, "          ", A_REPLACE);
      sprintf (fpsStr, "%d", fCount);
      DrawStr (0, 0, fpsStr, A_REPLACE);
      PortRestore();
      fCount = 0;
    }
#endif
    if (modifying) {
      display_Modif();
      modifying = 0;
    }
  }  
}

void LoopQuit()
{
  quit = 1;
}

The TI89 has two (HW2 has three) separate oscillators, they are refered to
as OSC1 and OSC2 (and OSC3).

OSC1 is the M68000 CPU clock.
  HW1: ~10 MHz
  HW2: ~12 MHz

OSC2 is the timing base for the timers, the link I/O hardware and (HW1 only)
the LCD controller.
  HW1: ~680 kHz - ~770 kHz
  HW2: ??? - (~520 kHz (= 2^19 Hz !)) - ???

===========================================================================
INTERRUPT LEVELS
---------------------------------------------------------------------------
Level 1:
  Triggered at a fixed rate: OSC2/2^11.  See $600015:7/1.
Level 2:
  Triggered when the *first* unmasked key (see $600019) is *pressed*.
  Keeping the key pressed, or pressing another without released the first
  key, will not generate additional interrupts.  The keyboard is not
  debounced in hardware and the interrupt can occasionally be triggered many
  times when the key is pressed and sometimes even when the key is released!
  Write any value to $60001B to acknowledge this interrupt.
Level 3:
  Disabled by default by AMS, early versions crash if it is enabled.  When
  enabled, it is triggered at a fixed rate: OSC2/2^19.  See $600015:2.
Level 4:
  Triggered by the link hardware for various reasons.  Read from $60000C and
  sometimes read/write $60000F to properly acknowledge this interrupt.
Level 5:
  Triggered by the programmable timer.  The default rate (set by AMS on
  reset) is OSC2/(K*2^9), where K=79 for HW1 and K=53 for HW2.  See $600015
  and $600017.
Level 6:
  Triggered when [ON] is pressed.  As with the rest of the keyboard, the
  lack of hardware debouncing sometimes triggers additional interrupts.
  Write any value to $60001A to acknowledge this interrupt.
Level 7:
  If the "vector table write protection" is enabled, this interrupt is
  triggered on a write access to any address below $000120.  The write will
  of course be ignored.  This interrupt is (also) a convenient way to detect
  stack overflows.  See $600001:2.