Subversion Repositories tv80

#include "tv80_env.h"
 
/*
 * This test covers interrupt handling routines.  The actual interrupt code
 * is in assembly, in bintr_crt0.asm.
 *
 * The test generates five interrupts, and clears the interrupt after
 * each one.
 *
 * The isr routine uses the two writes to intr_cntdwn to first clear
 * assertion of the current interrupt and then disable the countdown
 * timer.
 */
 
unsigned char foo;
volatile unsigned char test_pass;
static unsigned char triggers;
int phase;
char done;
char nmi_trig;
 
void nmi_isr (void)
{
  nmi_trig++;
 
  switch (phase) {
    // nmi test
  case 1 :
    if (nmi_trig > 5) {
      phase += 1;
      nmi_trig = 0;
      //intr_cntdwn = 255;
      //intr_cntdwn = 0;
      intr_cntdwn = 32;
      nmi_cntdwn = 0;
    } else
      nmi_cntdwn = 32;
    break;
 
    // just trigger once, and disable interrupt
  case 3 :
    nmi_cntdwn = 0;
    nmi_trig_opcode = 0; // pop AF opcode
    break;
  }
}
 
void isr (void)
{
  int i;
  triggers++;
 
  switch (phase) {
    // int test
  case 0 :
    if (triggers > 5) {
      phase += 1;
      triggers = 0;
      intr_cntdwn = 0;
      nmi_cntdwn = 64;
    } else {
      intr_cntdwn = 32;
 
    }
    break;
 
 
    // int / nmi interaction
    // in this phase set up interrupt call
    // which will be interrupted by an nmi
  case 2 :
    phase += 1;
    triggers = 0;
    nmi_trig = 0;
    intr_cntdwn = 20;
    nmi_trig_opcode = 0xF1; // pop AF opcode
 
    break;
 
    // wait for a while while servicing interrupt
    // nmi should interrupt us and increment nmi_trig
    // if test pass is true when we are done then exit
  case 3 :
    intr_cntdwn = 0;
    if (nmi_trig == 1)
      test_pass = 1;
    break;
 
  }
}
 
int main ()
{
  int i;
  unsigned char check;
 
  test_pass = 0;
  triggers = 0;
  nmi_trig = 0;
 
  phase = 0;
 
  // start interrupt countdown
  intr_cntdwn = 64;
  set_timeout (50000);
 
  for (i=0; i<1024; i++) {
    if (test_pass)
      break;
    check = sim_ctl_port;
  }
 
  if (test_pass)
    sim_ctl (SC_TEST_PASSED);
  else
    sim_ctl (SC_TEST_FAILED);
 
  return 0;
}