// dc_hw.c - Hardware found on the ARM7/AICA side of the Dreamcast

#include "ao.h"
#include "dc_hw.h"
#include "aica.h"

#define DK_CORE	(1)

#if DK_CORE
#include "arm7.h"
#else
#include "arm7core.h"
#endif

static void aica_irq(struct sARM7 *cpu, int irq)
{
	if (irq > 0)
	{
		#if DK_CORE
		ARM7_SetFIQ(cpu, TRUE);
		#else
		set_irq_line(ARM7_FIRQ_LINE, 1);
		#endif
	}
	else
	{
		#if DK_CORE
		ARM7_SetFIQ(cpu, FALSE);
		#else
		set_irq_line(ARM7_FIRQ_LINE, 0);
		#endif
	}
}

#define MIXER_PAN_LEFT    1
#define MIXER_PAN_RIGHT   2
#define MIXER(level,pan) ((level & 0xff) | ((pan & 0x03) << 8))
#define YM3012_VOL(LVol,LPan,RVol,RPan) (MIXER(LVol,LPan)|(MIXER(RVol,RPan) << 16))

uint8 dc_read8(struct sARM7 *cpu, int addr)
{
	if (addr < 0x800000)
	{
		return cpu->dc_ram[addr];
	}

	if ((addr >= 0x800000) && (addr <= 0x807fff))
	{
		int foo = AICA_0_r(cpu->AICA, (addr-0x800000)/2, 0);

		if (addr & 1)
		{
			return foo>>8;
		}
		else
		{
			return foo & 0xff;
		}
	}

	printf("R8 @ %x\n", addr);
	return -1;
}

uint16 dc_read16(struct sARM7 *cpu, int addr)
{
	if (addr < 0x800000)
	{
		return cpu->dc_ram[addr] | (cpu->dc_ram[addr+1]<<8);
	}

	if ((addr >= 0x800000) && (addr <= 0x807fff))
	{
		return AICA_0_r(cpu->AICA, (addr-0x800000)/2, 0);
	}

	printf("R16 @ %x\n", addr);
	return -1;
}

uint32 dc_read32(struct sARM7 *cpu, int addr)
{
	if (addr < 0x800000)
	{
		return cpu->dc_ram[addr] | (cpu->dc_ram[addr+1]<<8) | (cpu->dc_ram[addr+2]<<16) | (cpu->dc_ram[addr+3]<<24);
	}

	if ((addr >= 0x800000) && (addr <= 0x807fff))
	{
		addr &= 0x7fff;
		return AICA_0_r(cpu->AICA, addr/2, 0) & 0xffff;
	}

//	printf("R32 @ %x\n", addr);
	return 0;
}

void dc_write8(struct sARM7 *cpu, int addr, uint8 data)
{
	if (addr < 0x800000)
	{
		cpu->dc_ram[addr] = data;
		return;
	}

	if ((addr >= 0x800000) && (addr <= 0x807fff))
	{
		addr -= 0x800000;
		if ((addr & 1))
			AICA_0_w(cpu->AICA, addr>>1, data<<8, 0x00ff);
		else
			AICA_0_w(cpu->AICA, addr>>1, data, 0xff00);
		return;
	}

	printf("W8 %x @ %x\n", data, addr);
}

void dc_write16(struct sARM7 *cpu, int addr, uint16 data)
{
	if (addr < 0x800000)
	{
		cpu->dc_ram[addr] = data&0xff;
		cpu->dc_ram[addr+1] = (data>>8) & 0xff;
		return;
	}

	if ((addr >= 0x800000) && (addr <= 0x807fff))
	{
		AICA_0_w(cpu->AICA, (addr-0x800000)/2, data, 0);
		return;
	}

	printf("W16 %x @ %x\n", data, addr);
}

void dc_write32(struct sARM7 *cpu, int addr, uint32 data)
{
	if (addr < 0x800000)
	{
		cpu->dc_ram[addr] = data&0xff;
		cpu->dc_ram[addr+1] = (data>>8) & 0xff;
		cpu->dc_ram[addr+2] = (data>>16) & 0xff;
		cpu->dc_ram[addr+3] = (data>>24) & 0xff;
		return;
	}

	if ((addr >= 0x800000) && (addr <= 0x807fff))
	{
		addr -= 0x800000;
		AICA_0_w(cpu->AICA, (addr>>1), data&0xffff, 0x0000);
		AICA_0_w(cpu->AICA, (addr>>1)+1, data>>16, 0x0000);
		return;
	}

	printf("W32 %x @ %x\n", data, addr);
}

void dc_hw_init(struct sARM7 *cpu)
{
#if 0
static struct AICAinterface aica_interface =
{
	1,
	{ cpu->dc_ram, },
	{ YM3012_VOL(100, MIXER_PAN_LEFT, 100, MIXER_PAN_RIGHT) },
	{ aica_irq, },
};
#endif

    cpu->aica_interface.num = 1;
    cpu->aica_interface.region[0] = cpu->dc_ram;
    cpu->aica_interface.mixing_level[0] = YM3012_VOL(100, MIXER_PAN_LEFT, 100, MIXER_PAN_RIGHT);
    cpu->aica_interface.irq_callback[0] = aica_irq;
    cpu->aica_interface.cpu = cpu;
	cpu->AICA = aica_start(&cpu->aica_interface);
}

void dc_hw_free (struct sARM7 *cpu) {
    aica_stop (cpu->AICA);
    cpu->AICA =  NULL;
}