/* Mednafen - Multi-system Emulator
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include "wswan.h"
#include "interrupt.h"
#include "v30mz.h"
#include <trio/trio.h>

namespace MDFN_IEN_WSWAN
{

static const uint8 LevelTriggeredMask = (1U << WSINT_SERIAL_RECV);

static uint8 IAsserted;
static uint8 IStatus;
static uint8 IEnable;
static uint8 IVectorBase;

static bool IOn_Cache;
static uint32 IOn_Which;
static uint32 IVector_Cache;

static void RecalcInterrupt(void)
{
 IStatus |= (IAsserted & LevelTriggeredMask) & IEnable;

 IOn_Cache = FALSE;
 IOn_Which = 0;
 IVector_Cache = 0;

 for(int i = 0; i < 8; i++)
 {
  if(IStatus & IEnable & (1U << i))
  {
   IOn_Cache = TRUE;
   IOn_Which = i;
   IVector_Cache = (IVectorBase + i) * 4;
   break;
  }
 }
}

void WSwan_InterruptDebugForce(unsigned int level)
{
 v30mz_int((IVectorBase + level) * 4, TRUE);
}

void WSwan_InterruptAssert(unsigned which, bool asserted)
{
 const uint8 prev_IAsserted = IAsserted;

 IAsserted &= ~(1U << which);
 IAsserted |= (unsigned)asserted << which;

 IStatus |= ((prev_IAsserted ^ IAsserted) & IAsserted) & IEnable;

 RecalcInterrupt();
}

void WSwan_Interrupt(unsigned which)
{
 IStatus |= (1U << which) & IEnable;
 RecalcInterrupt();
}

void WSwan_InterruptWrite(uint32 A, uint8 V)
{
 //printf("Write: %04x %02x\n", A, V);
 switch(A)
 {
  case 0xB0: IVectorBase = V;
	     RecalcInterrupt();
	     break;

  case 0xB2: IEnable = V;
	     IStatus &= IEnable;
	     RecalcInterrupt();
	     break;

  case 0xB6: /*printf("IStatus: %02x\n", V);*/
	     IStatus &= ~V;
	     RecalcInterrupt();
	     break;
 }
}

uint8 WSwan_InterruptRead(uint32 A)
{
 //printf("Read: %04x\n", A);
 switch(A)
 {
  case 0xB0: return(IVectorBase);
  case 0xB2: return(IEnable);
  case 0xB6: return(1 << IOn_Which); //return(IStatus);
 }
 return(0);
}

void WSwan_InterruptCheck(void)
{
 if(IOn_Cache)
 {
  v30mz_int(IVector_Cache, FALSE);
 }
}

void WSwan_InterruptReset(void)
{
 IAsserted = 0x00;
 IEnable = 0x00;
 IStatus = 0x00;
 IVectorBase = 0x00;
 RecalcInterrupt();
}

#ifdef WANT_DEBUGGER
static const char *PrettyINames[8] = { "Serial Send", "Key Press", "RTC Alarm", "Serial Recv", "Line Hit", "VBlank Timer", "VBlank", "HBlank Timer" };

uint32 WSwan_InterruptGetRegister(const unsigned int id, char *special, const uint32 special_len)
{
 uint32 ret = 0;

 switch(id)
 {
  case INT_GSREG_IASSERTED:
	ret = IAsserted;
	break;

  case INT_GSREG_ISTATUS:
	ret = IStatus;
	break;

  case INT_GSREG_IENABLE:
	ret = IEnable;
	break;

  case INT_GSREG_IVECTORBASE:
	ret = IVectorBase;
	break;
 }

 if(special && (id == INT_GSREG_IASSERTED || id == INT_GSREG_ISTATUS || id == INT_GSREG_IENABLE))
 {
  trio_snprintf(special, special_len, "%s: %d, %s: %d, %s: %d, %s: %d, %s: %d, %s: %d, %s: %d, %s: %d",
		PrettyINames[0], (ret >> 0) & 1,
	        PrettyINames[1], (ret >> 1) & 1,
	        PrettyINames[2], (ret >> 2) & 1,
	        PrettyINames[3], (ret >> 3) & 1,
	        PrettyINames[4], (ret >> 4) & 1,
	        PrettyINames[5], (ret >> 5) & 1,
	        PrettyINames[6], (ret >> 6) & 1,
	        PrettyINames[7], (ret >> 7) & 1);
 }

 return(ret);
}

void WSwan_InterruptSetRegister(const unsigned int id, uint32 value)
{
 switch(id)
 {
  //case INT_GSREG_IASSERTED:
  //	IAsserted = value;
  //	break;

  case INT_GSREG_ISTATUS:
	IStatus = value;
	break;

  case INT_GSREG_IENABLE:
	IEnable = value;
	break;

  case INT_GSREG_IVECTORBASE:
	IVectorBase = value;
	break;
 }

 RecalcInterrupt();
}

#endif

int WSwan_InterruptStateAction(StateMem *sm, int load, int data_only)
{
 SFORMAT StateRegs[] =
 {
  SFVAR(IAsserted),
  SFVAR(IStatus),
  SFVAR(IEnable),
  SFVAR(IVectorBase),
  SFEND
 };

 if(!MDFNSS_StateAction(sm, load, data_only, StateRegs, "INTR"))
  return(0);

 if(load)
 {
  if(load < 0x0936)
   IAsserted = 0;

  RecalcInterrupt();
 }

 return(1);
}

}
