/**********************************************************************
RCA CDP1864C COS/MOS PAL Compatible Color TV Interface
Copyright MESS Team.
Visit http://mamedev.org for licensing and usage restrictions.
**********************************************************************/
/*
TODO:
- interlace mode
- PAL output, currently using RGB
- cpu synchronization
SC1 and SC0 are used to provide CDP1864C-to-CPU synchronization for a jitter-free display.
During every horizontal sync the CDP1864C samples SC0 and SC1 for SC0 = 1 and SC1 = 0
(CDP1800 execute state). Detection of a fetch cycle causes the CDP1864C to skip cycles to
attain synchronization. (i.e. picture moves 8 pixels to the right)
*/
#include "emu.h"
#include "cdp1864.h"
//**************************************************************************
// MACROS / CONSTANTS
//**************************************************************************
#define CDP1864_DEFAULT_LATCH 0x35
#define CDP1864_CYCLES_DMA_START 2*8
#define CDP1864_CYCLES_DMA_ACTIVE 8*8
#define CDP1864_CYCLES_DMA_WAIT 6*8
static const int CDP1864_BACKGROUND_COLOR_SEQUENCE[] = { 2, 0, 1, 4 };
//**************************************************************************
// GLOBAL VARIABLES
//**************************************************************************
// devices
const device_type CDP1864 = &device_creator<cdp1864_device>;
//**************************************************************************
// INLINE HELPERS
//**************************************************************************
//-------------------------------------------------
// initialize_palette -
//-------------------------------------------------
inline void cdp1864_device::initialize_palette()
{
double res_total = m_res_r + m_res_g + m_res_b + m_res_bkg;
int weight_r = (m_res_r / res_total) * 100;
int weight_g = (m_res_g / res_total) * 100;
int weight_b = (m_res_b / res_total) * 100;
int weight_bkg = (m_res_bkg / res_total) * 100;
for (int i = 0; i < 16; i++)
{
int luma = 0;
luma += (i & 4) ? weight_r : 0;
luma += (i & 1) ? weight_g : 0;
luma += (i & 2) ? weight_b : 0;
luma += (i & 8) ? 0 : weight_bkg;
luma = (luma * 0xff) / 100;
int r = (i & 4) ? luma : 0;
int g = (i & 1) ? luma : 0;
int b = (i & 2) ? luma : 0;
m_palette[i] = MAKE_RGB(r, g, b);
}
}
//**************************************************************************
// LIVE DEVICE
//**************************************************************************
//-------------------------------------------------
// cdp1864_device - constructor
//-------------------------------------------------
cdp1864_device::cdp1864_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
: device_t(mconfig, CDP1864, "CDP1864", tag, owner, clock),
device_sound_interface(mconfig, *this),
m_disp(0),
m_dmaout(0),
m_bgcolor(0),
m_con(0),
m_aoe(0),
m_latch(CDP1864_DEFAULT_LATCH)
{
}
//-------------------------------------------------
// device_config_complete - perform any
// operations now that the configuration is
// complete
//-------------------------------------------------
void cdp1864_device::device_config_complete()
{
// inherit a copy of the static data
const cdp1864_interface *intf = reinterpret_cast<const cdp1864_interface *>(static_config());
if (intf != NULL)
*static_cast<cdp1864_interface *>(this) = *intf;
// or initialize to defaults if none provided
else
{
memset(&m_in_inlace_cb, 0, sizeof(m_in_inlace_cb));
memset(&m_in_rdata_cb, 0, sizeof(m_in_rdata_cb));
memset(&m_in_bdata_cb, 0, sizeof(m_in_bdata_cb));
memset(&m_in_gdata_cb, 0, sizeof(m_in_gdata_cb));
memset(&m_out_int_cb, 0, sizeof(m_out_int_cb));
memset(&m_out_dmao_cb, 0, sizeof(m_out_dmao_cb));
memset(&m_out_efx_cb, 0, sizeof(m_out_efx_cb));
memset(&m_out_hsync_cb, 0, sizeof(m_out_hsync_cb));
}
}
//-------------------------------------------------
// device_start - device-specific startup
//-------------------------------------------------
void cdp1864_device::device_start()
{
// resolve callbacks
m_in_inlace_func.resolve(m_in_inlace_cb, *this);
m_in_rdata_func.resolve(m_in_rdata_cb, *this);
m_in_bdata_func.resolve(m_in_bdata_cb, *this);
m_in_gdata_func.resolve(m_in_gdata_cb, *this);
m_out_int_func.resolve(m_out_int_cb, *this);
m_out_dmao_func.resolve(m_out_dmao_cb, *this);
m_out_efx_func.resolve(m_out_efx_cb, *this);
m_out_hsync_func.resolve(m_out_hsync_cb, *this);
// initialize palette
initialize_palette();
// create sound stream
m_stream = machine().sound().stream_alloc(*this, 0, 1, machine().sample_rate());
// allocate timers
m_int_timer = timer_alloc(TIMER_INT);
m_efx_timer = timer_alloc(TIMER_EFX);
m_dma_timer = timer_alloc(TIMER_DMA);
m_hsync_timer = timer_alloc(TIMER_HSYNC);
// find devices
m_cpu = machine().device<cpu_device>(m_cpu_tag);
m_screen = machine().device<screen_device>(m_screen_tag);
m_screen->register_screen_bitmap(m_bitmap);
// register for state saving
save_item(NAME(m_disp));
save_item(NAME(m_dmaout));
save_item(NAME(m_bgcolor));
save_item(NAME(m_con));
save_item(NAME(m_aoe));
save_item(NAME(m_latch));
save_item(NAME(m_signal));
save_item(NAME(m_incr));
}
//-------------------------------------------------
// device_reset - device-specific reset
//-------------------------------------------------
void cdp1864_device::device_reset()
{
m_int_timer->adjust(m_screen->time_until_pos(CDP1864_SCANLINE_INT_START, 0));
m_efx_timer->adjust(m_screen->time_until_pos(CDP1864_SCANLINE_EFX_TOP_START, 0));
m_dma_timer->adjust(m_cpu->cycles_to_attotime(CDP1864_CYCLES_DMA_START));
m_disp = 0;
m_dmaout = 0;
m_out_int_func(CLEAR_LINE);
m_out_dmao_func(CLEAR_LINE);
m_out_efx_func(CLEAR_LINE);
}
//-------------------------------------------------
// device_timer - handle timer events
//-------------------------------------------------
void cdp1864_device::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr)
{
int scanline = m_screen->vpos();
switch (id)
{
case TIMER_INT:
if (scanline == CDP1864_SCANLINE_INT_START)
{
if (m_disp)
{
m_out_int_func(ASSERT_LINE);
}
m_int_timer->adjust(m_screen->time_until_pos( CDP1864_SCANLINE_INT_END, 0));
}
else
{
if (m_disp)
{
m_out_int_func(CLEAR_LINE);
}
m_int_timer->adjust(m_screen->time_until_pos(CDP1864_SCANLINE_INT_START, 0));
}
break;
case TIMER_EFX:
switch (scanline)
{
case CDP1864_SCANLINE_EFX_TOP_START:
m_out_efx_func(ASSERT_LINE);
m_efx_timer->adjust(m_screen->time_until_pos(CDP1864_SCANLINE_EFX_TOP_END, 0));
break;
case CDP1864_SCANLINE_EFX_TOP_END:
m_out_efx_func(CLEAR_LINE);
m_efx_timer->adjust(m_screen->time_until_pos(CDP1864_SCANLINE_EFX_BOTTOM_START, 0));
break;
case CDP1864_SCANLINE_EFX_BOTTOM_START:
m_out_efx_func(ASSERT_LINE);
m_efx_timer->adjust(m_screen->time_until_pos(CDP1864_SCANLINE_EFX_BOTTOM_END, 0));
break;
case CDP1864_SCANLINE_EFX_BOTTOM_END:
m_out_efx_func(CLEAR_LINE);
m_efx_timer->adjust(m_screen->time_until_pos(CDP1864_SCANLINE_EFX_TOP_START, 0));
break;
}
break;
case TIMER_DMA:
if (m_dmaout)
{
if (m_disp)
{
if (scanline >= CDP1864_SCANLINE_DISPLAY_START && scanline < CDP1864_SCANLINE_DISPLAY_END)
{
m_out_dmao_func(CLEAR_LINE);
}
}
m_dma_timer->adjust(m_cpu->cycles_to_attotime(CDP1864_CYCLES_DMA_WAIT));
m_dmaout = 0;
}
else
{
if (m_disp)
{
if (scanline >= CDP1864_SCANLINE_DISPLAY_START && scanline < CDP1864_SCANLINE_DISPLAY_END)
{
m_out_dmao_func(ASSERT_LINE);
}
}
m_dma_timer->adjust(m_cpu->cycles_to_attotime(CDP1864_CYCLES_DMA_ACTIVE));
m_dmaout = 1;
}
break;
}
}
//-------------------------------------------------
// sound_stream_update - handle update requests for
// our sound stream
//-------------------------------------------------
void cdp1864_device::sound_stream_update(sound_stream &stream, stream_sample_t **inputs, stream_sample_t **outputs, int samples)
{
// reset the output stream
memset(outputs[0], 0, samples * sizeof(*outputs[0]));
INT16 signal = m_signal;
stream_sample_t *buffer = outputs[0];
memset( buffer, 0, samples * sizeof(*buffer) );
if (m_aoe)
{
double frequency = m_cpu->unscaled_clock() / 8 / 4 / (m_latch + 1) / 2;
int rate = machine().sample_rate() / 2;
/* get progress through wave */
int incr = m_incr;
if (signal < 0)
{
signal = -0x7fff;
}
else
{
signal = 0x7fff;
}
while( samples-- > 0 )
{
*buffer++ = signal;
incr -= frequency;
while( incr < 0 )
{
incr += rate;
signal = -signal;
}
}
/* store progress through wave */
m_incr = incr;
m_signal = signal;
}
}
//-------------------------------------------------
// dispon_r -
//-------------------------------------------------
READ8_MEMBER( cdp1864_device::dispon_r )
{
m_disp = 1;
return 0xff;
}
//-------------------------------------------------
// dispoff_r -
//-------------------------------------------------
READ8_MEMBER( cdp1864_device::dispoff_r )
{
m_disp = 0;
m_out_int_func(CLEAR_LINE);
m_out_dmao_func(CLEAR_LINE);
return 0xff;
}
//-------------------------------------------------
// step_bgcolor_w -
//-------------------------------------------------
WRITE8_MEMBER( cdp1864_device::step_bgcolor_w )
{
m_disp = 1;
m_bgcolor++;
if (m_bgcolor > 3)
{
m_bgcolor = 0;
}
}
//-------------------------------------------------
// tone_latch_w -
//-------------------------------------------------
WRITE8_MEMBER( cdp1864_device::tone_latch_w )
{
m_latch = data;
}
//-------------------------------------------------
// dma_w -
//-------------------------------------------------
WRITE8_MEMBER( cdp1864_device::dma_w )
{
int rdata = 1, bdata = 1, gdata = 1;
int sx = m_screen->hpos() + 4;
int y = m_screen->vpos();
if (!m_con)
{
rdata = m_in_rdata_func();
bdata = m_in_bdata_func();
gdata = m_in_gdata_func();
}
for (int x = 0; x < 8; x++)
{
int color = CDP1864_BACKGROUND_COLOR_SEQUENCE[m_bgcolor] + 8;
if (BIT(data, 7))
{
color = (gdata << 2) | (bdata << 1) | rdata;
}
m_bitmap.pix32(y, sx + x) = m_palette[color];
data <<= 1;
}
}
//-------------------------------------------------
// con_w - color on write
//-------------------------------------------------
WRITE_LINE_MEMBER( cdp1864_device::con_w )
{
if (!state)
{
m_con = 0;
}
}
//-------------------------------------------------
// aoe_w - audio output enable write
//-------------------------------------------------
WRITE_LINE_MEMBER( cdp1864_device::aoe_w )
{
if (!state)
{
m_latch = CDP1864_DEFAULT_LATCH;
}
m_aoe = state;
}
//-------------------------------------------------
// evs_w - external vertical sync write
//-------------------------------------------------
WRITE_LINE_MEMBER( cdp1864_device::evs_w )
{
}
//-------------------------------------------------
// update_screen -
//-------------------------------------------------
UINT32 cdp1864_device::screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect)
{
if (m_disp)
{
copybitmap(bitmap, m_bitmap, 0, 0, 0, 0, cliprect);
m_bitmap.fill(CDP1864_BACKGROUND_COLOR_SEQUENCE[m_bgcolor] + 8, cliprect);
}
else
{
bitmap.fill(get_black_pen(machine()), cliprect);
}
return 0;
}