The-Homebrew-Cloud/Genesis-Plus-GX
2
0
Fork 0
mirror of https://github.com/ekeeke/Genesis-Plus-GX.git synced 2024-11-10 21:05:12 +01:00
Code Issues Packages Projects Releases Wiki Activity
36da8a2453
Genesis-Plus-GX/core/cd_hw/scd.c

2038 lines
60 KiB
C
Raw Blame History

/***************************************************************************************
* Genesis Plus
* Mega CD / Sega CD hardware
*
* Copyright (C) 2012-2016 Eke-Eke (Genesis Plus GX)
*
* Redistribution and use of this code or any derivative works are permitted
* provided that the following conditions are met:
*
* - Redistributions may not be sold, nor may they be used in a commercial
* product or activity.
*
* - Redistributions that are modified from the original source must include the
* complete source code, including the source code for all components used by a
* binary built from the modified sources. However, as a special exception, the
* source code distributed need not include anything that is normally distributed
* (in either source or binary form) with the major components (compiler, kernel,
* and so on) of the operating system on which the executable runs, unless that
* component itself accompanies the executable.
*
* - Redistributions must reproduce the above copyright notice, this list of
* conditions and the following disclaimer in the documentation and/or other
* materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*
****************************************************************************************/
#include "shared.h"
/*--------------------------------------------------------------------------*/
/* Unused area (return open bus data, i.e prefetched instruction word) */
/*--------------------------------------------------------------------------*/
static unsigned int s68k_read_bus_8(unsigned int address)
{
#ifdef LOGERROR
error("[SUB 68k] Unused read8 %08X (%08X)\n", address, s68k.pc);
#endif
address = s68k.pc | (address & 1);
return READ_BYTE(s68k.memory_map[((address)>>16)&0xff].base, (address) & 0xffff);
}
static unsigned int s68k_read_bus_16(unsigned int address)
{
#ifdef LOGERROR
error("[SUB 68k] Unused read16 %08X (%08X)\n", address, s68k.pc);
#endif
address = s68k.pc;
return *(uint16 *)(s68k.memory_map[((address)>>16)&0xff].base + ((address) & 0xffff));
}
static void s68k_unused_8_w(unsigned int address, unsigned int data)
{
#ifdef LOGERROR
error("[SUB 68k] Unused write8 %08X = %02X (%08X)\n", address, data, s68k.pc);
#endif
}
static void s68k_unused_16_w(unsigned int address, unsigned int data)
{
#ifdef LOGERROR
error("[SUB 68k] Unused write16 %08X = %04X (%08X)\n", address, data, s68k.pc);
#endif
}
/*--------------------------------------------------------------------------*/
/* PRG-RAM DMA access */
/*--------------------------------------------------------------------------*/
void prg_ram_dma_w(unsigned int words)
{
uint16 data;
/* CDC buffer source address */
uint16 src_index = cdc.dac.w & 0x3ffe;
/* PRG-RAM destination address*/
uint32 dst_index = (scd.regs[0x0a>>1].w << 3) & 0x7fffe;
/* update DMA destination address */
scd.regs[0x0a>>1].w += (words >> 2);
/* update DMA source address */
cdc.dac.w += (words << 1);
/* check PRG-RAM write protected area */
if (dst_index < (scd.regs[0x02>>1].byte.h << 9))
{
return;
}
/* DMA transfer */
while (words--)
{
/* read 16-bit word from CDC buffer */
data = *(uint16 *)(cdc.ram + src_index);
#ifdef LSB_FIRST
/* source data is stored in big endian format */
data = ((data >> 8) | (data << 8)) & 0xffff;
#endif
/* write 16-bit word to PRG-RAM */
*(uint16 *)(scd.prg_ram + dst_index) = data ;
/* increment CDC buffer source address */
src_index = (src_index + 2) & 0x3ffe;
/* increment PRG-RAM destination address */
dst_index = (dst_index + 2) & 0x7fffe;
}
}
/*--------------------------------------------------------------------------*/
/* PRG-RAM write protected area */
/*--------------------------------------------------------------------------*/
static void prg_ram_write_byte(unsigned int address, unsigned int data)
{
address &= 0x7ffff;
if (address >= (scd.regs[0x02>>1].byte.h << 9))
{
WRITE_BYTE(scd.prg_ram, address, data);
return;
}
#ifdef LOGERROR
error("[SUB 68k] PRG-RAM protected write8 %08X = %02X (%08X)\n", address, data, s68k.pc);
#endif
}
static void prg_ram_write_word(unsigned int address, unsigned int data)
{
address &= 0x7fffe;
if (address >= (scd.regs[0x02>>1].byte.h << 9))
{
*(uint16 *)(scd.prg_ram + address) = data;
return;
}
#ifdef LOGERROR
error("[SUB 68k] PRG-RAM protected write16 %08X = %02X (%08X)\n", address, data, s68k.pc);
#endif
}
/*--------------------------------------------------------------------------*/
/* PRG-RAM bank mirrored access */
/*--------------------------------------------------------------------------*/
static unsigned int prg_ram_z80_read_byte(unsigned int address)
{
int offset = (address >> 16) & 0x03;
if (zbank_memory_map[offset].read)
{
return zbank_memory_map[offset].read(address);
}
return READ_BYTE(m68k.memory_map[offset].base, address & 0xffff);
}
static void prg_ram_z80_write_byte(unsigned int address, unsigned int data)
{
int offset = (address >> 16) & 0x03;
if (zbank_memory_map[offset].write)
{
zbank_memory_map[offset].write(address, data);
}
else
{
WRITE_BYTE(m68k.memory_map[offset].base, address & 0xffff, data);
}
}
static unsigned int prg_ram_m68k_read_byte(unsigned int address)
{
int offset = (address >> 16) & 0x03;
if (m68k.memory_map[offset].read8)
{
return m68k.memory_map[offset].read8(address);
}
return READ_BYTE(m68k.memory_map[offset].base, address & 0xffff);
}
static unsigned int prg_ram_m68k_read_word(unsigned int address)
{
int offset = (address >> 16) & 0x03;
if (m68k.memory_map[offset].read16)
{
return m68k.memory_map[offset].read16(address);
}
return *(uint16 *)(m68k.memory_map[offset].base + (address & 0xffff));
}
static void prg_ram_m68k_write_byte(unsigned int address, unsigned int data)
{
int offset = (address >> 16) & 0x03;
if (m68k.memory_map[offset].write8)
{
m68k.memory_map[offset].write8(address, data);
}
else
{
WRITE_BYTE(m68k.memory_map[offset].base, address & 0xffff, data);
}
}
static void prg_ram_m68k_write_word(unsigned int address, unsigned int data)
{
int offset = (address >> 16) & 0x03;
if (m68k.memory_map[offset].write16)
{
m68k.memory_map[offset].write16(address, data);
}
else
{
*(uint16 *)(m68k.memory_map[offset].base + (address & 0xffff)) = data;
}
}
/*--------------------------------------------------------------------------*/
/* Word-RAM bank mirrored access */
/*--------------------------------------------------------------------------*/
static unsigned int word_ram_z80_read_byte(unsigned int address)
{
int offset = (address >> 16) & 0x23;
if (zbank_memory_map[offset].read)
{
return zbank_memory_map[offset].read(address);
}
return READ_BYTE(m68k.memory_map[offset].base, address & 0xffff);
}
static void word_ram_z80_write_byte(unsigned int address, unsigned int data)
{
int offset = (address >> 16) & 0x23;
if (zbank_memory_map[offset].write)
{
zbank_memory_map[offset].write(address, data);
}
else
{
WRITE_BYTE(m68k.memory_map[offset].base, address & 0xffff, data);
}
}
static unsigned int word_ram_m68k_read_byte(unsigned int address)
{
int offset = (address >> 16) & 0x23;
if (m68k.memory_map[offset].read8)
{
return m68k.memory_map[offset].read8(address);
}
return READ_BYTE(m68k.memory_map[offset].base, address & 0xffff);
}
static unsigned int word_ram_m68k_read_word(unsigned int address)
{
int offset = (address >> 16) & 0x23;
if (m68k.memory_map[offset].read16)
{
return m68k.memory_map[offset].read16(address);
}
return *(uint16 *)(m68k.memory_map[offset].base + (address & 0xffff));
}
static void word_ram_m68k_write_byte(unsigned int address, unsigned int data)
{
int offset = (address >> 16) & 0x23;
if (m68k.memory_map[offset].write8)
{
m68k.memory_map[offset].write8(address, data);
}
else
{
WRITE_BYTE(m68k.memory_map[offset].base, address & 0xffff, data);
}
}
static void word_ram_m68k_write_word(unsigned int address, unsigned int data)
{
int offset = (address >> 16) & 0x23;
if (m68k.memory_map[offset].write16)
{
m68k.memory_map[offset].write16(address, data);
}
else
{
*(uint16 *)(m68k.memory_map[offset].base + (address & 0xffff)) = data;
}
}
static unsigned int word_ram_s68k_read_byte(unsigned int address)
{
int offset = (address >> 16) & 0x0f;
if (s68k.memory_map[offset].read8)
{
return s68k.memory_map[offset].read8(address);
}
return READ_BYTE(s68k.memory_map[offset].base, address & 0xffff);
}
static unsigned int word_ram_s68k_read_word(unsigned int address)
{
int offset = (address >> 16) & 0x0f;
if (s68k.memory_map[offset].read16)
{
return s68k.memory_map[offset].read16(address);
}
return *(uint16 *)(s68k.memory_map[offset].base + (address & 0xffff));
}
static void word_ram_s68k_write_byte(unsigned int address, unsigned int data)
{
int offset = (address >> 16) & 0x0f;
if (s68k.memory_map[offset].write8)
{
s68k.memory_map[offset].write8(address, data);
}
else
{
WRITE_BYTE(s68k.memory_map[offset].base, address & 0xffff, data);
}
}
static void word_ram_s68k_write_word(unsigned int address, unsigned int data)
{
int offset = (address >> 16) & 0x0f;
if (s68k.memory_map[offset].write16)
{
s68k.memory_map[offset].write16(address, data);
}
else
{
*(uint16 *)(s68k.memory_map[offset].base + (address & 0xffff)) = data;
}
}
/*--------------------------------------------------------------------------*/
/* internal backup RAM (8KB) */
/*--------------------------------------------------------------------------*/
static unsigned int bram_read_byte(unsigned int address)
{
/* LSB only */
if (address & 0x01)
{
return scd.bram[(address >> 1) & 0x1fff];
}
return 0xff;
}
static unsigned int bram_read_word(unsigned int address)
{
return (scd.bram[(address >> 1) & 0x1fff] | 0xff00);
}
static void bram_write_byte(unsigned int address, unsigned int data)
{
/* LSB only */
if (address & 0x01)
{
scd.bram[(address >> 1) & 0x1fff] = data;
}
}
static void bram_write_word(unsigned int address, unsigned int data)
{
scd.bram[(address >> 1) & 0x1fff] = data & 0xff;
}
/*--------------------------------------------------------------------------*/
/* SUB-CPU polling detection and MAIN-CPU synchronization */
/*--------------------------------------------------------------------------*/
static void s68k_poll_detect(unsigned int reg_mask)
{
/* detect SUB-CPU register polling */
if (s68k.poll.detected & reg_mask)
{
if (s68k.cycles <= s68k.poll.cycle)
{
if (s68k.pc == s68k.poll.pc)
{
/* SUB-CPU polling confirmed ? */
if (s68k.poll.detected & 1)
{
/* idle SUB-CPU until register is modified */
s68k.cycles = s68k.cycle_end;
s68k.stopped = reg_mask;
#ifdef LOG_SCD
error("s68k stopped from %d cycles\n", s68k.cycles);
#endif
}
else
{
/* confirm SUB-CPU polling */
s68k.poll.detected |= 1;
s68k.poll.cycle = s68k.cycles + 392;
}
}
return;
}
}
else
{
/* set SUB-CPU register access flag */
s68k.poll.detected = reg_mask;
}
/* reset SUB-CPU polling detection */
s68k.poll.cycle = s68k.cycles + 392;
s68k.poll.pc = s68k.pc;
}
static void s68k_poll_sync(unsigned int reg_mask)
{
/* relative MAIN-CPU cycle counter */
unsigned int cycles = (s68k.cycles * MCYCLES_PER_LINE) / SCYCLES_PER_LINE;
/* sync MAIN-CPU with SUB-CPU */
if (!m68k.stopped)
{
m68k_run(cycles);
}
/* MAIN-CPU idle on register polling ? */
if (m68k.stopped & reg_mask)
{
/* sync MAIN-CPU with SUB-CPU */
m68k.cycles = cycles;
/* restart MAIN-CPU */
m68k.stopped = 0;
#ifdef LOG_SCD
error("m68k started from %d cycles\n", cycles);
#endif
}
/* clear CPU register access flags */
s68k.poll.detected &= ~reg_mask;
m68k.poll.detected &= ~reg_mask;
}
/*--------------------------------------------------------------------------*/
/* PCM chip & Gate-Array area */
/*--------------------------------------------------------------------------*/
static unsigned int scd_read_byte(unsigned int address)
{
/* PCM area (8K) mirrored into $xF0000-$xF7FFF */
if (!(address & 0x8000))
{
/* get /LDS only */
if (address & 1)
{
return pcm_read((address >> 1) & 0x1fff);
}
return s68k_read_bus_8(address);
}
#ifdef LOG_SCD
error("[%d][%d]read byte CD register %X (%X)\n", v_counter, s68k.cycles, address, s68k.pc);
#endif
/* only A1-A8 are used for decoding */
address &= 0x1ff;
/* Memory Mode */
if (address == 0x03)
{
s68k_poll_detect(1<<0x03);
return scd.regs[0x03>>1].byte.l;
}
/* MAIN-CPU communication flags */
if (address == 0x0e)
{
s68k_poll_detect(1<<0x0e);
return scd.regs[0x0e>>1].byte.h;
}
/* CDC transfer status */
if (address == 0x04)
{
s68k_poll_detect(1<<0x04);
return scd.regs[0x04>>1].byte.h;
}
/* GFX operation status */
if (address == 0x58)
{
s68k_poll_detect(1<<0x08);
return scd.regs[0x58>>1].byte.h;
}
/* CDC register data (controlled by BIOS, byte access only ?) */
if (address == 0x07)
{
unsigned int data = cdc_reg_r();
#ifdef LOG_CDC
error("CDC register %X read 0x%02X (%X)\n", scd.regs[0x04>>1].byte.l & 0x0F, data, s68k.pc);
#endif
return data;
}
/* LED status */
if (address == 0x00)
{
/* register $00 is reserved for MAIN-CPU, we use $06 instead */
return scd.regs[0x06>>1].byte.h;
}
/* RESET status */
if (address == 0x01)
{
/* always return 1 */
return 0x01;
}
/* Font data */
if ((address >= 0x50) && (address <= 0x56))
{
/* shifted 4-bit input (xxxx00) */
uint8 bits = (scd.regs[0x4e>>1].w >> (((address & 6) ^ 6) << 1)) << 2;
/* color code */
uint8 code = scd.regs[0x4c>>1].byte.l;
/* 16-bit font data (4 pixels = 16 bits) */
uint16 data = (code >> (bits & 4)) & 0x0f;
bits = bits >> 1;
data = data | (((code >> (bits & 4)) << 4) & 0xf0);
bits = bits >> 1;
data = data | (((code >> (bits & 4)) << 8) & 0xf00);
bits = bits >> 1;
data = data | (((code >> (bits & 4)) << 12) & 0xf000);
return (address & 1) ? (data & 0xff) : (data >> 8);
}
/* MAIN-CPU communication words */
if ((address & 0x1f0) == 0x10)
{
s68k_poll_detect(1 << (address & 0x1f));
}
/* Subcode buffer */
else if (address & 0x100)
{
/* 64 x 16-bit mirrored */
address &= 0x17f;
}
/* default registers */
if (address & 1)
{
/* register LSB */
return scd.regs[address >> 1].byte.l;
}
/* register MSB */
return scd.regs[address >> 1].byte.h;
}
static unsigned int scd_read_word(unsigned int address)
{
/* PCM area (8K) mirrored into $xF0000-$xF7FFF */
if (!(address & 0x8000))
{
/* get /LDS only */
return pcm_read((address >> 1) & 0x1fff);
}
#ifdef LOG_SCD
error("[%d][%d]read word CD register %X (%X)\n", v_counter, s68k.cycles, address, s68k.pc);
#endif
/* only A1-A8 are used for decoding */
address &= 0x1ff;
/* Memory Mode */
if (address == 0x02)
{
s68k_poll_detect(1<<0x03);
return scd.regs[0x03>>1].w;
}
/* CDC host data (word access only ?) */
if (address == 0x08)
{
return cdc_host_r();
}
/* LED & RESET status */
if (address == 0x00)
{
/* register $00 is reserved for MAIN-CPU, we use $06 instead */
return scd.regs[0x06>>1].w;
}
/* Stopwatch counter (word access only ?) */
if (address == 0x0c)
{
/* cycle-accurate counter value */
return (scd.regs[0x0c>>1].w + ((s68k.cycles - scd.stopwatch) / TIMERS_SCYCLES_RATIO)) & 0xfff;
}
/* Font data */
if ((address >= 0x50) && (address <= 0x56))
{
/* shifted 4-bit input (xxxx00) */
uint8 bits = (scd.regs[0x4e>>1].w >> (((address & 6) ^ 6) << 1)) << 2;
/* color code */
uint8 code = scd.regs[0x4c>>1].byte.l;
/* 16-bit font data (4 pixels = 16 bits) */
uint16 data = (code >> (bits & 4)) & 0x0f;
bits = bits >> 1;
data = data | (((code >> (bits & 4)) << 4) & 0xf0);
bits = bits >> 1;
data = data | (((code >> (bits & 4)) << 8) & 0xf00);
bits = bits >> 1;
data = data | (((code >> (bits & 4)) << 12) & 0xf000);
return data;
}
/* MAIN-CPU communication words */
if ((address & 0x1f0) == 0x10)
{
if (!m68k.stopped)
{
/* relative MAIN-CPU cycle counter */
unsigned int cycles = (s68k.cycles * MCYCLES_PER_LINE) / SCYCLES_PER_LINE;
/* sync MAIN-CPU with SUB-CPU (Mighty Morphin Power Rangers) */
m68k_run(cycles);
}
s68k_poll_detect(3 << (address & 0x1e));
}
/* Subcode buffer */
else if (address & 0x100)
{
/* 64 x 16-bit mirrored */
address &= 0x17f;
}
/* default registers */
return scd.regs[address >> 1].w;
}
INLINE void word_ram_switch(uint8 mode)
{
int i;
uint16 *ptr1 = (uint16 *)(scd.word_ram_2M);
uint16 *ptr2 = (uint16 *)(scd.word_ram[0]);
uint16 *ptr3 = (uint16 *)(scd.word_ram[1]);
if (mode & 0x04)
{
/* 2M -> 1M mode */
for (i=0; i<0x10000; i++)
{
*ptr2++=*ptr1++;
*ptr3++=*ptr1++;
}
}
else
{
/* 1M -> 2M mode */
for (i=0; i<0x10000; i++)
{
*ptr1++=*ptr2++;
*ptr1++=*ptr3++;
}
/* MAIN-CPU: $200000-$21FFFF is mapped to 256K Word-RAM (lower 128K) */
for (i=scd.cartridge.boot+0x20; i<scd.cartridge.boot+0x22; i++)
{
m68k.memory_map[i].base = scd.word_ram_2M + ((i & 0x03) << 16);
}
/* MAIN-CPU: $220000-$23FFFF is mapped to 256K Word-RAM (upper 128K) */
for (i=scd.cartridge.boot+0x22; i<scd.cartridge.boot+0x24; i++)
{
m68k.memory_map[i].read8 = NULL;
m68k.memory_map[i].read16 = NULL;
m68k.memory_map[i].write8 = NULL;
m68k.memory_map[i].write16 = NULL;
zbank_memory_map[i].read = NULL;
zbank_memory_map[i].write = NULL;
}
/* SUB-CPU: $080000-$0BFFFF is mapped to 256K Word-RAM */
for (i=0x08; i<0x0c; i++)
{
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
s68k.memory_map[i].write8 = NULL;
s68k.memory_map[i].write16 = NULL;
}
/* SUB-CPU: $0C0000-$0DFFFF is unmapped */
for (i=0x0c; i<0x0e; i++)
{
s68k.memory_map[i].read8 = s68k_read_bus_8;
s68k.memory_map[i].read16 = s68k_read_bus_16;
s68k.memory_map[i].write8 = s68k_unused_8_w;
s68k.memory_map[i].write16 = s68k_unused_16_w;
}
}
}
static void scd_write_byte(unsigned int address, unsigned int data)
{
/* PCM area (8K) mirrored into $xF0000-$xF7FFF */
if (!(address & 0x8000))
{
/* get /LDS only */
if (address & 1)
{
pcm_write((address >> 1) & 0x1fff, data);
return;
}
s68k_unused_8_w(address, data);
return;
}
#ifdef LOG_SCD
error("[%d][%d]write byte CD register %X -> 0x%02x (%X)\n", v_counter, s68k.cycles, address, data, s68k.pc);
#endif
/* Gate-Array registers */
switch (address & 0x1ff)
{
case 0x00: /* LED status */
{
/* register $00 is reserved for MAIN-CPU, use $06 instead */
scd.regs[0x06 >> 1].byte.h = data;
return;
}
case 0x01: /* RESET status */
{
/* RESET bit cleared ? */
if (!(data & 0x01))
{
/* reset CD hardware */
scd_reset(0);
}
return;
}
case 0x03: /* Memory Mode */
{
s68k_poll_sync(1<<0x03);
/* detect MODE & RET bits modifications */
if ((data ^ scd.regs[0x03 >> 1].byte.l) & 0x05)
{
int i;
/* MODE bit */
if (data & 0x04)
{
/* 2M->1M mode switch */
if (!(scd.regs[0x03 >> 1].byte.l & 0x04))
{
/* re-arrange Word-RAM banks */
word_ram_switch(0x04);
}
/* RET bit in 1M Mode */
if (data & 0x01)
{
/* Word-RAM 1 assigned to MAIN-CPU */
for (i=scd.cartridge.boot+0x20; i<scd.cartridge.boot+0x22; i++)
{
/* Word-RAM 1 data mapped at $200000-$21FFFF */
m68k.memory_map[i].base = scd.word_ram[1] + ((i & 0x01) << 16);
}
for (i=scd.cartridge.boot+0x22; i<scd.cartridge.boot+0x24; i++)
{
/* VRAM cell image mapped at $220000-$23FFFF */
m68k.memory_map[i].read8 = cell_ram_1_read8;
m68k.memory_map[i].read16 = cell_ram_1_read16;
m68k.memory_map[i].write8 = cell_ram_1_write8;
m68k.memory_map[i].write16 = cell_ram_1_write16;
zbank_memory_map[i].read = cell_ram_1_read8;
zbank_memory_map[i].write = cell_ram_1_write8;
}
/* Word-RAM 0 assigned to SUB-CPU */
for (i=0x08; i<0x0c; i++)
{
/* DOT image mapped at $080000-$0BFFFF */
s68k.memory_map[i].read8 = dot_ram_0_read8;
s68k.memory_map[i].read16 = dot_ram_0_read16;
s68k.memory_map[i].write8 = dot_ram_0_write8;
s68k.memory_map[i].write16 = dot_ram_0_write16;
}
for (i=0x0c; i<0x0e; i++)
{
/* Word-RAM 0 data mapped at $0C0000-$0DFFFF */
s68k.memory_map[i].base = scd.word_ram[0] + ((i & 0x01) << 16);
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
s68k.memory_map[i].write8 = NULL;
s68k.memory_map[i].write16 = NULL;
}
/* writing 1 to RET bit in 1M mode returns Word-RAM to MAIN-CPU in 2M mode */
scd.dmna = 0;
}
else
{
/* Word-RAM 0 assigned to MAIN-CPU */
for (i=scd.cartridge.boot+0x20; i<scd.cartridge.boot+0x22; i++)
{
/* Word-RAM 0 data mapped at $200000-$21FFFF */
m68k.memory_map[i].base = scd.word_ram[0] + ((i & 0x01) << 16);
}
for (i=scd.cartridge.boot+0x22; i<scd.cartridge.boot+0x24; i++)
{
/* VRAM cell image mapped at $220000-$23FFFF */
m68k.memory_map[i].read8 = cell_ram_0_read8;
m68k.memory_map[i].read16 = cell_ram_0_read16;
m68k.memory_map[i].write8 = cell_ram_0_write8;
m68k.memory_map[i].write16 = cell_ram_0_write16;
zbank_memory_map[i].read = cell_ram_0_read8;
zbank_memory_map[i].write = cell_ram_0_write8;
}
/* Word-RAM 1 assigned to SUB-CPU */
for (i=0x08; i<0x0c; i++)
{
/* DOT image mapped at $080000-$0BFFFF */
s68k.memory_map[i].read8 = dot_ram_1_read8;
s68k.memory_map[i].read16 = dot_ram_1_read16;
s68k.memory_map[i].write8 = dot_ram_1_write8;
s68k.memory_map[i].write16 = dot_ram_1_write16;
}
for (i=0x0c; i<0x0e; i++)
{
/* Word-RAM 1 data mapped at $0C0000-$0DFFFF */
s68k.memory_map[i].base = scd.word_ram[1] + ((i & 0x01) << 16);
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
s68k.memory_map[i].write8 = NULL;
s68k.memory_map[i].write16 = NULL;
}
}
/* clear DMNA bit (swap completed) */
scd.regs[0x02 >> 1].byte.l = (scd.regs[0x02 >> 1].byte.l & ~0x1f) | (data & 0x1d);
return;
}
else
{
/* 1M->2M mode switch */
if (scd.regs[0x02 >> 1].byte.l & 0x04)
{
/* re-arrange Word-RAM banks */
word_ram_switch(0x00);
/* RET bit set during 1M mode ? */
data |= ~scd.dmna & 0x01;
/* check if RET bit is cleared */
if (!(data & 0x01))
{
/* set DMNA bit */
data |= 0x02;
/* mask BK0-1 bits (MAIN-CPU side only) */
scd.regs[0x02 >> 1].byte.l = (scd.regs[0x02 >> 1].byte.l & ~0x1f) | (data & 0x1f);
return;
}
}
/* RET bit set in 2M mode */
if (data & 0x01)
{
/* Word-RAM is returned to MAIN-CPU */
scd.dmna = 0;
/* clear DMNA bit */
scd.regs[0x02 >> 1].byte.l = (scd.regs[0x02 >> 1].byte.l & ~0x1f) | (data & 0x1d);
return;
}
}
}
/* update PM0-1 & MODE bits */
scd.regs[0x02 >> 1].byte.l = (scd.regs[0x02 >> 1].byte.l & ~0x1c) | (data & 0x1c);
return;
}
case 0x07: /* CDC register write */
{
cdc_reg_w(data);
return;
}
case 0x0e: /* SUB-CPU communication flags */
case 0x0f: /* !LWR is ignored (Space Ace, Dragon's Lair) */
{
s68k_poll_sync(1<<0x0f);
scd.regs[0x0f>>1].byte.l = data;
return;
}
case 0x31: /* Timer */
{
/* reload timer (one timer clock = 384 CPU cycles) */
scd.timer = data * TIMERS_SCYCLES_RATIO;
/* only non-zero data starts timer, writing zero stops it */
if (data)
{
/* adjust regarding current CPU cycle */
scd.timer += (s68k.cycles - scd.cycles);
}
scd.regs[0x30>>1].byte.l = data;
return;
}
case 0x33: /* Interrupts */
{
/* update register value before updating interrupts */
scd.regs[0x32>>1].byte.l = data;
/* update IEN2 flag */
scd.regs[0x00].byte.h = (scd.regs[0x00].byte.h & 0x7f) | ((data & 0x04) << 5);
/* clear level 1 interrupt if disabled ("Batman Returns" option menu) */
scd.pending &= 0xfd | (data & 0x02);
/* update IRQ level */
s68k_update_irq((scd.pending & data) >> 1);
return;
}
case 0x37: /* CDD control (controlled by BIOS, byte access only ?) */
{
/* CDD communication started ? */
if ((data & 0x04) && !(scd.regs[0x37>>1].byte.l & 0x04))
{
/* reset CDD cycle counter */
cdd.cycles = (scd.cycles - s68k.cycles) * 3;
/* set pending interrupt level 4 */
scd.pending |= (1 << 4);
/* update IRQ level if interrupt is enabled */
if (scd.regs[0x32>>1].byte.l & 0x10)
{
s68k_update_irq((scd.pending & scd.regs[0x32>>1].byte.l) >> 1);
}
}
scd.regs[0x37>>1].byte.l = data;
return;
}
default:
{
/* SUB-CPU communication words */
if ((address & 0xf0) == 0x20)
{
s68k_poll_sync(1 << ((address - 0x10) & 0x1f));
}
/* default registers */
if (address & 1)
{
/* register LSB */
scd.regs[(address >> 1) & 0xff].byte.l = data;
return;
}
/* register MSB */
scd.regs[(address >> 1) & 0xff].byte.h = data;
return;
}
}
}
static void scd_write_word(unsigned int address, unsigned int data)
{
/* PCM area (8K) mirrored into $xF0000-$xF7FFF */
if (!(address & 0x8000))
{
/* get /LDS only */
pcm_write((address >> 1) & 0x1fff, data);
return;
}
#ifdef LOG_SCD
error("[%d][%d]write word CD register %X -> 0x%04x (%X)\n", v_counter, s68k.cycles, address, data, s68k.pc);
#endif
/* Gate-Array registers */
switch (address & 0x1fe)
{
case 0x00: /* LED status & RESET */
{
/* only update LED status (register $00 is reserved for MAIN-CPU, use $06 instead) */
scd.regs[0x06>>1].byte.h = data >> 8;
/* RESET bit cleared ? */
if (!(data & 0x01))
{
/* reset CD hardware */
scd_reset(0);
}
return;
}
case 0x02: /* Memory Mode */
{
s68k_poll_sync(1<<0x03);
/* detect MODE & RET bits modifications */
if ((data ^ scd.regs[0x03>>1].byte.l) & 0x05)
{
int i;
/* MODE bit */
if (data & 0x04)
{
/* 2M->1M mode switch */
if (!(scd.regs[0x03 >> 1].byte.l & 0x04))
{
/* re-arrange Word-RAM banks */
word_ram_switch(0x04);
}
/* RET bit in 1M Mode */
if (data & 0x01)
{
/* Word-RAM 1 assigned to MAIN-CPU */
for (i=scd.cartridge.boot+0x20; i<scd.cartridge.boot+0x22; i++)
{
/* Word-RAM 1 data mapped at $200000-$21FFFF */
m68k.memory_map[i].base = scd.word_ram[1] + ((i & 0x01) << 16);
}
for (i=scd.cartridge.boot+0x22; i<scd.cartridge.boot+0x24; i++)
{
/* VRAM cell image mapped at $220000-$23FFFF */
m68k.memory_map[i].read8 = cell_ram_1_read8;
m68k.memory_map[i].read16 = cell_ram_1_read16;
m68k.memory_map[i].write8 = cell_ram_1_write8;
m68k.memory_map[i].write16 = cell_ram_1_write16;
zbank_memory_map[i].read = cell_ram_1_read8;
zbank_memory_map[i].write = cell_ram_1_write8;
}
/* Word-RAM 0 assigned to SUB-CPU */
for (i=0x08; i<0x0c; i++)
{
/* DOT image mapped at $080000-$0BFFFF */
s68k.memory_map[i].read8 = dot_ram_0_read8;
s68k.memory_map[i].read16 = dot_ram_0_read16;
s68k.memory_map[i].write8 = dot_ram_0_write8;
s68k.memory_map[i].write16 = dot_ram_0_write16;
}
for (i=0x0c; i<0x0e; i++)
{
/* Word-RAM 0 data mapped at $0C0000-$0DFFFF */
s68k.memory_map[i].base = scd.word_ram[0] + ((i & 0x01) << 16);
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
s68k.memory_map[i].write8 = NULL;
s68k.memory_map[i].write16 = NULL;
}
/* writing 1 to RET bit in 1M mode returns Word-RAM to MAIN-CPU in 2M mode */
scd.dmna = 0;
}
else
{
/* Word-RAM 0 assigned to MAIN-CPU */
for (i=scd.cartridge.boot+0x20; i<scd.cartridge.boot+0x22; i++)
{
/* Word-RAM 0 data mapped at $200000-$21FFFF */
m68k.memory_map[i].base = scd.word_ram[0] + ((i & 0x01) << 16);
}
for (i=scd.cartridge.boot+0x22; i<scd.cartridge.boot+0x24; i++)
{
/* VRAM cell image mapped at $220000-$23FFFF */
m68k.memory_map[i].read8 = cell_ram_0_read8;
m68k.memory_map[i].read16 = cell_ram_0_read16;
m68k.memory_map[i].write8 = cell_ram_0_write8;
m68k.memory_map[i].write16 = cell_ram_0_write16;
zbank_memory_map[i].read = cell_ram_0_read8;
zbank_memory_map[i].write = cell_ram_0_write8;
}
/* Word-RAM 1 assigned to SUB-CPU */
for (i=0x08; i<0x0c; i++)
{
/* DOT image mapped at $080000-$0BFFFF */
s68k.memory_map[i].read8 = dot_ram_1_read8;
s68k.memory_map[i].read16 = dot_ram_1_read16;
s68k.memory_map[i].write8 = dot_ram_1_write8;
s68k.memory_map[i].write16 = dot_ram_1_write16;
}
for (i=0x0c; i<0x0e; i++)
{
/* Word-RAM 1 data mapped at $0C0000-$0DFFFF */
s68k.memory_map[i].base = scd.word_ram[1] + ((i & 0x01) << 16);
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
s68k.memory_map[i].write8 = NULL;
s68k.memory_map[i].write16 = NULL;
}
}
/* clear DMNA bit (swap completed) */
scd.regs[0x03>>1].byte.l = (scd.regs[0x03>>1].byte.l & ~0x1f) | (data & 0x1d);
return;
}
else
{
/* 1M->2M mode switch */
if (scd.regs[0x03>>1].byte.l & 0x04)
{
/* re-arrange Word-RAM banks */
word_ram_switch(0x00);
/* RET bit set during 1M mode ? */
data |= ~scd.dmna & 0x01;
/* check if RET bit is cleared */
if (!(data & 0x01))
{
/* set DMNA bit */
data |= 0x02;
/* mask BK0-1 bits (MAIN-CPU side only) */
scd.regs[0x03>>1].byte.l = (scd.regs[0x03>>1].byte.l & ~0x1f) | (data & 0x1f);
return;
}
}
/* RET bit set in 2M mode */
if (data & 0x01)
{
/* Word-RAM is returned to MAIN-CPU */
scd.dmna = 0;
/* clear DMNA bit */
scd.regs[0x03>>1].byte.l = (scd.regs[0x03>>1].byte.l & ~0x1f) | (data & 0x1d);
return;
}
}
}
/* update PM0-1 & MODE bits */
scd.regs[0x03>>1].byte.l = (scd.regs[0x03>>1].byte.l & ~0x1c) | (data & 0x1c);
return;
}
case 0x06: /* CDC register write */
{
cdc_reg_w(data);
return;
}
case 0x0c: /* Stopwatch (word access only) */
{
/* synchronize the counter with SUB-CPU */
int ticks = (s68k.cycles - scd.stopwatch) / TIMERS_SCYCLES_RATIO;
scd.stopwatch += (ticks * TIMERS_SCYCLES_RATIO);
/* any writes clear the counter */
scd.regs[0x0c>>1].w = 0;
return;
}
case 0x0e: /* CPU Communication flags */
{
s68k_poll_sync(1<<0x0f);
/* D8-D15 ignored -> only SUB-CPU flags are updated */
scd.regs[0x0f>>1].byte.l = data & 0xff;
return;
}
case 0x30: /* Timer */
{
/* LSB only */
data &= 0xff;
/* reload timer (one timer clock = 384 CPU cycles) */
scd.timer = data * TIMERS_SCYCLES_RATIO;
/* only non-zero data starts timer, writing zero stops it */
if (data)
{
/* adjust regarding current CPU cycle */
scd.timer += (s68k.cycles - scd.cycles);
}
scd.regs[0x30>>1].byte.l = data;
return;
}
case 0x32: /* Interrupts */
{
/* LSB only */
data &= 0xff;
/* update register value before updating interrupts */
scd.regs[0x32>>1].byte.l = data;
/* update IEN2 flag */
scd.regs[0x00].byte.h = (scd.regs[0x00].byte.h & 0x7f) | ((data & 0x04) << 5);
/* clear pending level 1 interrupt if disabled ("Batman Returns" option menu) */
scd.pending &= 0xfd | (data & 0x02);
/* update IRQ level */
s68k_update_irq((scd.pending & data) >> 1);
return;
}
case 0x4a: /* CDD command 9 (controlled by BIOS, word access only ?) */
{
scd.regs[0x4a>>1].w = 0;
cdd_process();
#ifdef LOG_CDD
error("CDD command: %02x %02x %02x %02x %02x %02x %02x %02x\n",scd.regs[0x42>>1].byte.h, scd.regs[0x42>>1].byte.l, scd.regs[0x44>>1].byte.h, scd.regs[0x44>>1].byte.l, scd.regs[0x46>>1].byte.h, scd.regs[0x46>>1].byte.l, scd.regs[0x48>>1].byte.h, scd.regs[0x48>>1].byte.l);
error("CDD status: %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",scd.regs[0x38>>1].byte.h, scd.regs[0x38>>1].byte.l, scd.regs[0x3a>>1].byte.h, scd.regs[0x3a>>1].byte.l, scd.regs[0x3c>>1].byte.h, scd.regs[0x3c>>1].byte.l, scd.regs[0x3e>>1].byte.h, scd.regs[0x3e>>1].byte.l, scd.regs[0x40>>1].byte.h, scd.regs[0x40>>1].byte.l);
#endif
break;
}
case 0x66: /* Trace vector base address */
{
scd.regs[0x66>>1].w = data;
/* start GFX operation */
gfx_start(data, s68k.cycles);
return;
}
default:
{
/* SUB-CPU communication words */
if ((address & 0xf0) == 0x20)
{
s68k_poll_sync(3 << ((address - 0x10) & 0x1e));
}
/* default registers */
scd.regs[(address >> 1) & 0xff].w = data;
return;
}
}
}
void scd_init(void)
{
int i;
/****************************************************************/
/* MAIN-CPU low memory map ($000000-$7FFFFF) */
/****************************************************************/
/* 0x00: boot from CD (default) */
/* 0x40: boot from cartridge (mode 1) when /CART is asserted */
int base = scd.cartridge.boot;
/* $400000-$7FFFFF (resp. $000000-$3FFFFF): cartridge port (/CE0 asserted) */
cd_cart_init();
/* $000000-$1FFFFF (resp. $400000-$5FFFFF): expansion port (/ROM asserted) */
for (i=base+0x00; i<base+0x20; i++)
{
/* only VA1-VA17 are connected to expansion port */
switch (i & 0x02)
{
case 0x00:
{
/* $000000-$01FFFF (resp. $400000-$41FFFF): internal ROM (128KB), mirrored every 256KB up to $1FFFFF (resp. $5FFFFF) */
m68k.memory_map[i].base = scd.bootrom + ((i & 0x01) << 16);
m68k.memory_map[i].read8 = NULL;
m68k.memory_map[i].read16 = NULL;
m68k.memory_map[i].write8 = m68k_unused_8_w;
m68k.memory_map[i].write16 = m68k_unused_16_w;
zbank_memory_map[i].read = NULL;
zbank_memory_map[i].write = zbank_unused_w;
break;
}
case 0x02:
{
/* $020000-$03FFFF (resp. $420000-$43FFFF): PRG-RAM (first 128KB bank), mirrored every 256KB up to $1FFFFF (resp. $5FFFFF) */
m68k.memory_map[i].base = scd.prg_ram + ((i & 0x01) << 16);
/* automatic mirrored range remapping when switching PRG-RAM banks */
if (i > (base + 0x03))
{
m68k.memory_map[i].read8 = prg_ram_m68k_read_byte;
m68k.memory_map[i].read16 = prg_ram_m68k_read_word;
m68k.memory_map[i].write8 = prg_ram_m68k_write_byte;
m68k.memory_map[i].write16 = prg_ram_m68k_write_word;
zbank_memory_map[i].read = prg_ram_z80_read_byte;
zbank_memory_map[i].write = prg_ram_z80_write_byte;
}
else
{
m68k.memory_map[i].read8 = NULL;
m68k.memory_map[i].read16 = NULL;
m68k.memory_map[i].write8 = NULL;
m68k.memory_map[i].write16 = NULL;
zbank_memory_map[i].read = NULL;
zbank_memory_map[i].write = NULL;
}
break;
}
}
}
/* $200000-$3FFFFF (resp. $600000-$7FFFFF): expansion port (/RAS2 asserted) */
for (i=base+0x20; i<base+0x40; i++)
{
/* $200000-$23FFFF (resp. $600000-$63FFFF): Word-RAM in 2M mode (256KB), mirrored up to $3FFFFF (resp. $7FFFFF) */
m68k.memory_map[i].base = scd.word_ram_2M + ((i & 0x03) << 16);
/* automatic mirrored range remapping when switching Word-RAM */
if (i > (base + 0x23))
{
m68k.memory_map[i].read8 = word_ram_m68k_read_byte;
m68k.memory_map[i].read16 = word_ram_m68k_read_word;
m68k.memory_map[i].write8 = word_ram_m68k_write_byte;
m68k.memory_map[i].write16 = word_ram_m68k_write_word;
zbank_memory_map[i].read = word_ram_z80_read_byte;
zbank_memory_map[i].write = word_ram_z80_write_byte;
}
else
{
m68k.memory_map[i].read8 = NULL;
m68k.memory_map[i].read16 = NULL;
m68k.memory_map[i].write8 = NULL;
m68k.memory_map[i].write16 = NULL;
zbank_memory_map[i].read = NULL;
zbank_memory_map[i].write = NULL;
}
}
/****************************************************************/
/* SUB-CPU memory map ($000000-$FFFFFF) */
/****************************************************************/
for (i=0x00; i<0x100; i++)
{
/* only A1-A19 are connected to SUB-CPU */
switch (i & 0x0f)
{
case 0x00:
case 0x01:
case 0x02:
case 0x03:
case 0x04:
case 0x05:
case 0x06:
case 0x07:
{
/* $000000-$07FFFF (mirrored every 1MB): PRG-RAM (512KB) */
s68k.memory_map[i].base = scd.prg_ram + ((i & 0x07) << 16);
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
/* first 128KB can be write-protected */
s68k.memory_map[i].write8 = (i & 0x0e) ? NULL : prg_ram_write_byte;
s68k.memory_map[i].write16 = (i & 0x0e) ? NULL : prg_ram_write_word;
break;
}
case 0x08:
case 0x09:
case 0x0a:
case 0x0b:
{
/* $080000-$0BFFFF (mirrored every 1MB): Word-RAM in 2M mode (256KB)*/
s68k.memory_map[i].base = scd.word_ram_2M + ((i & 0x03) << 16);
/* automatic mirrored range remapping when switching Word-RAM */
if (i > 0x0f)
{
s68k.memory_map[i].read8 = word_ram_s68k_read_byte;
s68k.memory_map[i].read16 = word_ram_s68k_read_word;
s68k.memory_map[i].write8 = word_ram_s68k_write_byte;
s68k.memory_map[i].write16 = word_ram_s68k_write_word;
}
else
{
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
s68k.memory_map[i].write8 = NULL;
s68k.memory_map[i].write16 = NULL;
}
break;
}
case 0x0c:
case 0x0d:
{
/* $0C0000-$0DFFFF (mirrored every 1MB): unused in 2M mode (?) */
s68k.memory_map[i].base = scd.word_ram_2M + ((i & 0x03) << 16);
/* automatic mirrored range remapping when switching Word-RAM */
if (i > 0x0f)
{
s68k.memory_map[i].read8 = word_ram_s68k_read_byte;
s68k.memory_map[i].read16 = word_ram_s68k_read_word;
s68k.memory_map[i].write8 = word_ram_s68k_write_byte;
s68k.memory_map[i].write16 = word_ram_s68k_write_word;
}
else
{
s68k.memory_map[i].read8 = s68k_read_bus_8;
s68k.memory_map[i].read16 = s68k_read_bus_16;
s68k.memory_map[i].write8 = s68k_unused_8_w;
s68k.memory_map[i].write16 = s68k_unused_16_w;
}
break;
}
case 0x0e:
{
/* $FE0000-$FEFFFF (mirrored every 1MB): 8KB backup RAM */
s68k.memory_map[i].base = NULL;
s68k.memory_map[i].read8 = bram_read_byte;
s68k.memory_map[i].read16 = bram_read_word;
s68k.memory_map[i].write8 = bram_write_byte;
s68k.memory_map[i].write16 = bram_write_word;
break;
}
case 0x0f:
{
/* $FF0000-$FFFFFF (mirrored every 1MB): PCM hardware & SUB-CPU registers */
s68k.memory_map[i].base = NULL;
s68k.memory_map[i].read8 = scd_read_byte;
s68k.memory_map[i].read16 = scd_read_word;
s68k.memory_map[i].write8 = scd_write_byte;
s68k.memory_map[i].write16 = scd_write_word;
break;
}
}
}
/* Initialize CD hardware */
cdc_init();
gfx_init();
/* Initialize CD hardware master clock count per scanline */
scd.cycles_per_line = (uint32) (MCYCLES_PER_LINE * ((float)SCD_CLOCK / (float)system_clock));
/* Clear RAM */
memset(scd.prg_ram, 0x00, sizeof(scd.prg_ram));
memset(scd.word_ram, 0x00, sizeof(scd.word_ram));
memset(scd.word_ram_2M, 0x00, sizeof(scd.word_ram_2M));
memset(scd.bram, 0x00, sizeof(scd.bram));
}
void scd_reset(int hard)
{
/* TODO: figure what exactly is resetted when RESET bit is cleared by SUB-CPU */
if (hard)
{
/* Clear all ASIC registers by default */
memset(scd.regs, 0, sizeof(scd.regs));
/* Clear pending DMNA write status */
scd.dmna = 0;
/* H-INT default vector */
*(uint16 *)(m68k.memory_map[scd.cartridge.boot].base + 0x70) = 0x00FF;
*(uint16 *)(m68k.memory_map[scd.cartridge.boot].base + 0x72) = 0xFFFF;
/* Power ON initial values (MAIN-CPU side) */
scd.regs[0x00>>1].w = 0x0002;
scd.regs[0x02>>1].w = 0x0001;
/* 2M mode */
word_ram_switch(0);
/* reset PRG-RAM bank on MAIN-CPU side */
m68k.memory_map[scd.cartridge.boot + 0x02].base = scd.prg_ram;
m68k.memory_map[scd.cartridge.boot + 0x03].base = scd.prg_ram + 0x10000;
/* allow access to PRG-RAM from MAIN-CPU */
m68k.memory_map[scd.cartridge.boot + 0x02].read8 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x03].read8 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x02].read16 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x03].read16 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x02].write8 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x03].write8 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x02].write16 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x03].write16 = NULL;
zbank_memory_map[scd.cartridge.boot + 0x02].read = NULL;
zbank_memory_map[scd.cartridge.boot + 0x03].read = NULL;
zbank_memory_map[scd.cartridge.boot + 0x02].write = NULL;
zbank_memory_map[scd.cartridge.boot + 0x03].write = NULL;
/* reset & halt SUB-CPU */
s68k.cycles = 0;
s68k_pulse_reset();
s68k_pulse_halt();
}
else
{
/* Clear only SUB-CPU side registers */
memset(&scd.regs[0x04>>1], 0, sizeof(scd.regs) - 4);
}
/* SUB-CPU side default values */
scd.regs[0x08>>1].w = 0xffff;
scd.regs[0x0a>>1].w = 0xffff;
scd.regs[0x36>>1].w = 0x0100;
scd.regs[0x40>>1].w = 0x000f;
scd.regs[0x42>>1].w = 0xffff;
scd.regs[0x44>>1].w = 0xffff;
scd.regs[0x46>>1].w = 0xffff;
scd.regs[0x48>>1].w = 0xffff;
scd.regs[0x4a>>1].w = 0xffff;
/* RESET register always return 1 (register $06 is unused by both sides, it is used for SUB-CPU first register) */
scd.regs[0x06>>1].byte.l = 0x01;
/* Reset Timer & Stopwatch counters */
scd.timer = 0;
scd.stopwatch = 0;
/* Reset frame cycle counter */
scd.cycles = 0;
/* Clear pending interrupts */
scd.pending = 0;
/* Clear CPU polling detection */
memset(&m68k.poll, 0, sizeof(m68k.poll));
memset(&s68k.poll, 0, sizeof(s68k.poll));
/* Reset CD hardware */
cdd_reset();
cdc_reset();
gfx_reset();
pcm_reset();
}
void scd_update(unsigned int cycles)
{
/* update CDC DMA transfer */
if (cdc.dma_w)
{
cdc_dma_update();
}
/* run both CPU in sync until end of line */
do
{
m68k_run(cycles);
s68k_run(scd.cycles + SCYCLES_PER_LINE);
}
while ((m68k.cycles < cycles) || (s68k.cycles < (scd.cycles + SCYCLES_PER_LINE)));
/* increment CD hardware cycle counter */
scd.cycles += SCYCLES_PER_LINE;
/* CDD processing at 75Hz (one clock = 12500000/75 = 500000/3 CPU clocks) */
cdd.cycles += (SCYCLES_PER_LINE * 3);
if (cdd.cycles >= (500000 * 4))
{
/* reload CDD cycle counter */
cdd.cycles -= (500000 * 4);
/* update CDD sector */
cdd_update();
/* check if a new CDD command has been processed */
if (!(scd.regs[0x4a>>1].byte.l & 0xf0))
{
/* reset CDD command wait flag */
scd.regs[0x4a>>1].byte.l = 0xf0;
/* pending level 4 interrupt */
scd.pending |= (1 << 4);
/* level 4 interrupt enabled */
if (scd.regs[0x32>>1].byte.l & 0x10)
{
/* update IRQ level */
s68k_update_irq((scd.pending & scd.regs[0x32>>1].byte.l) >> 1);
}
}
}
/* Timer */
if (scd.timer)
{
/* decrement timer */
scd.timer -= SCYCLES_PER_LINE;
if (scd.timer <= 0)
{
/* reload timer (one timer clock = 384 CPU cycles) */
scd.timer += (scd.regs[0x30>>1].byte.l * TIMERS_SCYCLES_RATIO);
/* level 3 interrupt enabled ? */
if (scd.regs[0x32>>1].byte.l & 0x08)
{
/* trigger level 3 interrupt */
scd.pending |= (1 << 3);
/* update IRQ level */
s68k_update_irq((scd.pending & scd.regs[0x32>>1].byte.l) >> 1);
}
}
}
/* GFX processing */
if (scd.regs[0x58>>1].byte.h & 0x80)
{
/* update graphics operation if running */
gfx_update(scd.cycles);
}
}
void scd_end_frame(unsigned int cycles)
{
/* run Stopwatch until end of frame */
int ticks = (cycles - scd.stopwatch) / TIMERS_SCYCLES_RATIO;
scd.regs[0x0c>>1].w = (scd.regs[0x0c>>1].w + ticks) & 0xfff;
/* adjust Stopwatch counter for next frame (can be negative) */
scd.stopwatch += (ticks * TIMERS_SCYCLES_RATIO) - cycles;
/* adjust SUB-CPU & GPU cycle counters for next frame */
s68k.cycles -= cycles;
gfx.cycles -= cycles;
/* reset CPU registers polling */
m68k.poll.cycle = 0;
s68k.poll.cycle = 0;
}
int scd_context_save(uint8 *state)
{
uint16 tmp16;
uint32 tmp32;
int bufferptr = 0;
/* internal harware */
save_param(scd.regs, sizeof(scd.regs));
save_param(&scd.cycles, sizeof(scd.cycles));
save_param(&scd.stopwatch, sizeof(scd.stopwatch));
save_param(&scd.timer, sizeof(scd.timer));
save_param(&scd.pending, sizeof(scd.pending));
save_param(&scd.dmna, sizeof(scd.dmna));
/* GFX processor */
bufferptr += gfx_context_save(&state[bufferptr]);
/* CD Data controller */
bufferptr += cdc_context_save(&state[bufferptr]);
/* CD Drive processor */
bufferptr += cdd_context_save(&state[bufferptr]);
/* PCM chip */
bufferptr += pcm_context_save(&state[bufferptr]);
/* PRG-RAM */
save_param(scd.prg_ram, sizeof(scd.prg_ram));
/* Word-RAM */
if (scd.regs[0x03>>1].byte.l & 0x04)
{
/* 1M mode */
save_param(scd.word_ram, sizeof(scd.word_ram));
}
else
{
/* 2M mode */
save_param(scd.word_ram_2M, sizeof(scd.word_ram_2M));
}
/* MAIN-CPU & SUB-CPU polling */
save_param(&m68k.poll, sizeof(m68k.poll));
save_param(&s68k.poll, sizeof(s68k.poll));
/* H-INT default vector */
tmp16 = *(uint16 *)(m68k.memory_map[scd.cartridge.boot].base + 0x72);
save_param(&tmp16, 2);
/* SUB-CPU registers */
tmp32 = s68k_get_reg(M68K_REG_D0); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_D1); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_D2); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_D3); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_D4); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_D5); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_D6); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_D7); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_A0); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_A1); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_A2); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_A3); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_A4); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_A5); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_A6); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_A7); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_PC); save_param(&tmp32, 4);
tmp16 = s68k_get_reg(M68K_REG_SR); save_param(&tmp16, 2);
tmp32 = s68k_get_reg(M68K_REG_USP); save_param(&tmp32, 4);
tmp32 = s68k_get_reg(M68K_REG_ISP); save_param(&tmp32, 4);
/* SUB-CPU internal state */
save_param(&s68k.cycles, sizeof(s68k.cycles));
save_param(&s68k.int_level, sizeof(s68k.int_level));
save_param(&s68k.stopped, sizeof(s68k.stopped));
/* bootable MD cartridge */
if (scd.cartridge.boot)
{
bufferptr += md_cart_context_save(&state[bufferptr]);
}
return bufferptr;
}
int scd_context_load(uint8 *state)
{
int i;
uint16 tmp16;
uint32 tmp32;
int bufferptr = 0;
/* internal harware */
load_param(scd.regs, sizeof(scd.regs));
load_param(&scd.cycles, sizeof(scd.cycles));
load_param(&scd.stopwatch, sizeof(scd.stopwatch));
load_param(&scd.timer, sizeof(scd.timer));
load_param(&scd.pending, sizeof(scd.pending));
load_param(&scd.dmna, sizeof(scd.dmna));
/* GFX processor */
bufferptr += gfx_context_load(&state[bufferptr]);
/* CD Data controller */
bufferptr += cdc_context_load(&state[bufferptr]);
/* CD Drive processor */
bufferptr += cdd_context_load(&state[bufferptr]);
/* PCM chip */
bufferptr += pcm_context_load(&state[bufferptr]);
/* PRG-RAM */
load_param(scd.prg_ram, sizeof(scd.prg_ram));
/* PRG-RAM 128K bank mapped on MAIN-CPU side */
m68k.memory_map[scd.cartridge.boot + 0x02].base = scd.prg_ram + ((scd.regs[0x03>>1].byte.l & 0xc0) << 11);
m68k.memory_map[scd.cartridge.boot + 0x03].base = m68k.memory_map[scd.cartridge.boot + 0x02].base + 0x10000;
/* PRG-RAM can only be accessed from MAIN 68K & Z80 if SUB-CPU is halted (Dungeon Explorer USA version) */
if ((scd.regs[0x00].byte.l & 0x03) != 0x01)
{
m68k.memory_map[scd.cartridge.boot + 0x02].read8 = m68k.memory_map[scd.cartridge.boot + 0x03].read8 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x02].read16 = m68k.memory_map[scd.cartridge.boot + 0x03].read16 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x02].write8 = m68k.memory_map[scd.cartridge.boot + 0x03].write8 = NULL;
m68k.memory_map[scd.cartridge.boot + 0x02].write16 = m68k.memory_map[scd.cartridge.boot + 0x03].write16 = NULL;
zbank_memory_map[scd.cartridge.boot + 0x02].read = zbank_memory_map[scd.cartridge.boot + 0x03].read = NULL;
zbank_memory_map[scd.cartridge.boot + 0x02].write = zbank_memory_map[scd.cartridge.boot + 0x03].write = NULL;
}
else
{
m68k.memory_map[scd.cartridge.boot + 0x02].read8 = m68k.memory_map[scd.cartridge.boot + 0x03].read8 = m68k_read_bus_8;
m68k.memory_map[scd.cartridge.boot + 0x02].read16 = m68k.memory_map[scd.cartridge.boot + 0x03].read16 = m68k_read_bus_16;
m68k.memory_map[scd.cartridge.boot + 0x02].write8 = m68k.memory_map[scd.cartridge.boot + 0x03].write8 = m68k_unused_8_w;
m68k.memory_map[scd.cartridge.boot + 0x02].write16 = m68k.memory_map[scd.cartridge.boot + 0x03].write16 = m68k_unused_16_w;
zbank_memory_map[scd.cartridge.boot + 0x02].read = zbank_memory_map[scd.cartridge.boot + 0x03].read = zbank_unused_r;
zbank_memory_map[scd.cartridge.boot + 0x02].write = zbank_memory_map[scd.cartridge.boot + 0x03].write = zbank_unused_w;
}
/* Word-RAM */
if (scd.regs[0x03>>1].byte.l & 0x04)
{
/* 1M Mode */
load_param(scd.word_ram, sizeof(scd.word_ram));
if (scd.regs[0x03>>1].byte.l & 0x01)
{
/* Word-RAM 1 assigned to MAIN-CPU */
for (i=scd.cartridge.boot+0x20; i<scd.cartridge.boot+0x22; i++)
{
/* Word-RAM 1 data mapped at $200000-$21FFFF */
m68k.memory_map[i].base = scd.word_ram[1] + ((i & 0x01) << 16);
}
for (i=scd.cartridge.boot+0x22; i<scd.cartridge.boot+0x24; i++)
{
/* VRAM cell image mapped at $220000-$23FFFF */
m68k.memory_map[i].read8 = cell_ram_1_read8;
m68k.memory_map[i].read16 = cell_ram_1_read16;
m68k.memory_map[i].write8 = cell_ram_1_write8;
m68k.memory_map[i].write16 = cell_ram_1_write16;
zbank_memory_map[i].read = cell_ram_1_read8;
zbank_memory_map[i].write = cell_ram_1_write8;
}
/* Word-RAM 0 assigned to SUB-CPU */
for (i=0x08; i<0x0c; i++)
{
/* DOT image mapped at $080000-$0BFFFF */
s68k.memory_map[i].read8 = dot_ram_0_read8;
s68k.memory_map[i].read16 = dot_ram_0_read16;
s68k.memory_map[i].write8 = dot_ram_0_write8;
s68k.memory_map[i].write16 = dot_ram_0_write16;
}
for (i=0x0c; i<0x0e; i++)
{
/* Word-RAM 0 data mapped at $0C0000-$0DFFFF */
s68k.memory_map[i].base = scd.word_ram[0] + ((i & 0x01) << 16);
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
s68k.memory_map[i].write8 = NULL;
s68k.memory_map[i].write16 = NULL;
}
}
else
{
/* Word-RAM 0 assigned to MAIN-CPU */
for (i=scd.cartridge.boot+0x20; i<scd.cartridge.boot+0x22; i++)
{
/* Word-RAM 0 data mapped at $200000-$21FFFF */
m68k.memory_map[i].base = scd.word_ram[0] + ((i & 0x01) << 16);
}
for (i=scd.cartridge.boot+0x22; i<scd.cartridge.boot+0x24; i++)
{
/* VRAM cell image mapped at $220000-$23FFFF */
m68k.memory_map[i].read8 = cell_ram_0_read8;
m68k.memory_map[i].read16 = cell_ram_0_read16;
m68k.memory_map[i].write8 = cell_ram_0_write8;
m68k.memory_map[i].write16 = cell_ram_0_write16;
zbank_memory_map[i].read = cell_ram_0_read8;
zbank_memory_map[i].write = cell_ram_0_write8;
}
/* Word-RAM 1 assigned to SUB-CPU */
for (i=0x08; i<0x0c; i++)
{
/* DOT image mapped at $080000-$0BFFFF */
s68k.memory_map[i].read8 = dot_ram_1_read8;
s68k.memory_map[i].read16 = dot_ram_1_read16;
s68k.memory_map[i].write8 = dot_ram_1_write8;
s68k.memory_map[i].write16 = dot_ram_1_write16;
}
for (i=0x0c; i<0x0e; i++)
{
/* Word-RAM 1 data mapped at $0C0000-$0DFFFF */
s68k.memory_map[i].base = scd.word_ram[1] + ((i & 0x01) << 16);
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
s68k.memory_map[i].write8 = NULL;
s68k.memory_map[i].write16 = NULL;
}
}
}
else
{
/* 2M mode */
load_param(scd.word_ram_2M, sizeof(scd.word_ram_2M));
/* MAIN-CPU: $200000-$21FFFF is mapped to 256K Word-RAM (upper 128K) */
for (i=scd.cartridge.boot+0x20; i<scd.cartridge.boot+0x22; i++)
{
m68k.memory_map[i].base = scd.word_ram_2M + ((i & 0x03) << 16);
}
/* MAIN-CPU: $220000-$23FFFF is mapped to 256K Word-RAM (lower 128K) */
for (i=scd.cartridge.boot+0x22; i<scd.cartridge.boot+0x24; i++)
{
m68k.memory_map[i].read8 = NULL;
m68k.memory_map[i].read16 = NULL;
m68k.memory_map[i].write8 = NULL;
m68k.memory_map[i].write16 = NULL;
zbank_memory_map[i].read = NULL;
zbank_memory_map[i].write = NULL;
}
/* SUB-CPU: $080000-$0BFFFF is mapped to 256K Word-RAM */
for (i=0x08; i<0x0c; i++)
{
s68k.memory_map[i].read8 = NULL;
s68k.memory_map[i].read16 = NULL;
s68k.memory_map[i].write8 = NULL;
s68k.memory_map[i].write16 = NULL;
}
/* SUB-CPU: $0C0000-$0DFFFF is unmapped */
for (i=0x0c; i<0x0e; i++)
{
s68k.memory_map[i].read8 = s68k_read_bus_8;
s68k.memory_map[i].read16 = s68k_read_bus_16;
s68k.memory_map[i].write8 = s68k_unused_8_w;
s68k.memory_map[i].write16 = s68k_unused_16_w;
}
}
/* MAIN-CPU & SUB-CPU polling */
load_param(&m68k.poll, sizeof(m68k.poll));
load_param(&s68k.poll, sizeof(s68k.poll));
/* H-INT default vector */
load_param(&tmp16, 2);
*(uint16 *)(m68k.memory_map[scd.cartridge.boot].base + 0x72) = tmp16;
/* SUB-CPU registers */
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_D0, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_D1, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_D2, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_D3, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_D4, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_D5, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_D6, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_D7, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_A0, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_A1, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_A2, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_A3, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_A4, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_A5, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_A6, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_A7, tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_PC, tmp32);
load_param(&tmp16, 2); s68k_set_reg(M68K_REG_SR, tmp16);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_USP,tmp32);
load_param(&tmp32, 4); s68k_set_reg(M68K_REG_ISP,tmp32);
/* SUB-CPU internal state */
load_param(&s68k.cycles, sizeof(s68k.cycles));
load_param(&s68k.int_level, sizeof(s68k.int_level));
load_param(&s68k.stopped, sizeof(s68k.stopped));
/* bootable MD cartridge hardware */
if (scd.cartridge.boot)
{
bufferptr += md_cart_context_load(&state[bufferptr]);
}
return bufferptr;
}
int scd_68k_irq_ack(int level)
{
#ifdef LOG_SCD
error("INT ack level %d (%X)\n", level, s68k.pc);
#endif
#if 0
/* level 5 interrupt is normally acknowledged by CDC */
if (level != 5)
#endif
{
/* clear pending interrupt flag */
scd.pending &= ~(1 << level);
/* level 2 interrupt acknowledge */
if (level == 2)
{
/* clear IFL2 flag */
scd.regs[0x00].byte.h &= ~0x01;
}
/* update IRQ level */
s68k_update_irq((scd.pending & scd.regs[0x32>>1].byte.l) >> 1);
}
return M68K_INT_ACK_AUTOVECTOR;
}
Reference in New Issue View Git Blame Copy Permalink