// license:LGPL-2.1+
// copyright-holders:Angelo Salese
/***************************************************************************
TC009xLVC device emulation
Written by Angelo Salese, based off Taito L implementation
TODO:
- non-video stuff needs to be ported there as well
***************************************************************************/
#include "emu.h"
#include "machine/tc009xlvc.h"
const device_type TC0091LVC = &device_creator<tc0091lvc_device>;
READ8_MEMBER(tc0091lvc_device::tc0091lvc_paletteram_r)
{
return m_palette_ram[offset & 0x1ff];
}
WRITE8_MEMBER(tc0091lvc_device::tc0091lvc_paletteram_w)
{
m_palette_ram[offset & 0x1ff] = data;
{
UINT8 r,g,b,i;
UINT16 pal;
pal = (m_palette_ram[offset & ~1]<<0) | (m_palette_ram[offset | 1]<<8);
i = (pal & 0x7000) >> 12;
b = (pal & 0x0f00) >> 8;
g = (pal & 0x00f0) >> 4;
r = (pal & 0x000f) >> 0;
r <<= 1;
g <<= 1;
b <<= 1;
/* TODO: correct? */
b |= ((i & 4) >> 2);
g |= ((i & 2) >> 1);
r |= (i & 1);
m_gfxdecode->palette().set_pen_color(offset / 2, pal5bit(r), pal5bit(g), pal5bit(b));
}
}
READ8_MEMBER(tc0091lvc_device::vregs_r)
{
return m_vregs[offset];
}
WRITE8_MEMBER(tc0091lvc_device::vregs_w)
{
if((offset & 0xfc) == 0)
{
bg0_tilemap->mark_all_dirty();
bg1_tilemap->mark_all_dirty();
}
m_vregs[offset] = data;
}
READ8_MEMBER(tc0091lvc_device::tc0091lvc_bitmap_r)
{
return m_bitmap_ram[offset];
}
WRITE8_MEMBER(tc0091lvc_device::tc0091lvc_bitmap_w)
{
m_bitmap_ram[offset] = data;
}
READ8_MEMBER(tc0091lvc_device::tc0091lvc_pcg1_r)
{
return m_pcg1_ram[offset];
}
WRITE8_MEMBER(tc0091lvc_device::tc0091lvc_pcg1_w)
{
m_pcg1_ram[offset] = data;
m_gfxdecode->gfx(m_gfx_index)->mark_dirty((offset+0x4000) / 32);
tx_tilemap->mark_all_dirty();
}
READ8_MEMBER(tc0091lvc_device::tc0091lvc_pcg2_r)
{
return m_pcg2_ram[offset];
}
WRITE8_MEMBER(tc0091lvc_device::tc0091lvc_pcg2_w)
{
m_pcg2_ram[offset] = data;
m_gfxdecode->gfx(m_gfx_index)->mark_dirty((offset+0xc000) / 32);
tx_tilemap->mark_all_dirty();
}
READ8_MEMBER(tc0091lvc_device::tc0091lvc_vram0_r)
{
return m_vram0[offset];
}
WRITE8_MEMBER(tc0091lvc_device::tc0091lvc_vram0_w)
{
m_vram0[offset] = data;
bg0_tilemap->mark_tile_dirty(offset/2);
m_gfxdecode->gfx(m_gfx_index)->mark_dirty((offset+0x8000) / 32);
tx_tilemap->mark_all_dirty();
}
READ8_MEMBER(tc0091lvc_device::tc0091lvc_vram1_r)
{
return m_vram1[offset];
}
WRITE8_MEMBER(tc0091lvc_device::tc0091lvc_vram1_w)
{
m_vram1[offset] = data;
bg1_tilemap->mark_tile_dirty(offset/2);
m_gfxdecode->gfx(m_gfx_index)->mark_dirty((offset+0x9000) / 32);
tx_tilemap->mark_all_dirty();
}
READ8_MEMBER(tc0091lvc_device::tc0091lvc_tvram_r)
{
return m_tvram[offset];
}
WRITE8_MEMBER(tc0091lvc_device::tc0091lvc_tvram_w)
{
m_tvram[offset] = data;
tx_tilemap->mark_tile_dirty(offset/2);
m_gfxdecode->gfx(m_gfx_index)->mark_dirty((offset+0xa000) / 32);
tx_tilemap->mark_all_dirty();
}
READ8_MEMBER(tc0091lvc_device::tc0091lvc_spr_r)
{
return m_sprram[offset];
}
WRITE8_MEMBER(tc0091lvc_device::tc0091lvc_spr_w)
{
m_sprram[offset] = data;
m_gfxdecode->gfx(m_gfx_index)->mark_dirty((offset+0xb000) / 32);
tx_tilemap->mark_all_dirty();
}
static ADDRESS_MAP_START( tc0091lvc_map8, AS_0, 8, tc0091lvc_device )
AM_RANGE(0x014000, 0x017fff) AM_READWRITE(tc0091lvc_pcg1_r, tc0091lvc_pcg1_w)
AM_RANGE(0x018000, 0x018fff) AM_READWRITE(tc0091lvc_vram0_r, tc0091lvc_vram0_w)
AM_RANGE(0x019000, 0x019fff) AM_READWRITE(tc0091lvc_vram1_r, tc0091lvc_vram1_w)
AM_RANGE(0x01a000, 0x01afff) AM_READWRITE(tc0091lvc_tvram_r, tc0091lvc_tvram_w)
AM_RANGE(0x01b000, 0x01bfff) AM_READWRITE(tc0091lvc_spr_r, tc0091lvc_spr_w)
AM_RANGE(0x01c000, 0x01ffff) AM_READWRITE(tc0091lvc_pcg2_r, tc0091lvc_pcg2_w)
AM_RANGE(0x040000, 0x05ffff) AM_READWRITE(tc0091lvc_bitmap_r, tc0091lvc_bitmap_w)
AM_RANGE(0x080000, 0x0801ff) AM_READWRITE(tc0091lvc_paletteram_r,tc0091lvc_paletteram_w)
ADDRESS_MAP_END
tc0091lvc_device::tc0091lvc_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
: device_t(mconfig, TC0091LVC, "Taito TC0091LVC", tag, owner, clock, "tc0091lvc", __FILE__),
device_memory_interface(mconfig, *this),
m_space_config("tc0091lvc", ENDIANNESS_LITTLE, 8,20, 0, nullptr, *ADDRESS_MAP_NAME(tc0091lvc_map8)),
m_gfxdecode(*this)
{
}
//-------------------------------------------------
// static_set_gfxdecode_tag: Set the tag of the
// gfx decoder
//-------------------------------------------------
void tc0091lvc_device::static_set_gfxdecode_tag(device_t &device, const char *tag)
{
downcast<tc0091lvc_device &>(device).m_gfxdecode.set_tag(tag);
}
void tc0091lvc_device::device_config_complete()
{
// int address_bits = 20;
// m_space_config = address_space_config("janshi_vdp", ENDIANNESS_LITTLE, 8, address_bits, 0, *ADDRESS_MAP_NAME(tc0091lvc_map8));
}
void tc0091lvc_device::device_validity_check(validity_checker &valid) const
{
}
TILE_GET_INFO_MEMBER(tc0091lvc_device::get_bg0_tile_info)
{
int attr = m_vram0[2 * tile_index + 1];
int code = m_vram0[2 * tile_index]
| ((attr & 0x03) << 8)
| ((m_vregs[(attr & 0xc) >> 2]) << 10);
// | (state->m_horshoes_gfxbank << 12);
SET_TILE_INFO_MEMBER(0,
code,
(attr & 0xf0) >> 4,
0);
}
TILE_GET_INFO_MEMBER(tc0091lvc_device::get_bg1_tile_info)
{
int attr = m_vram1[2 * tile_index + 1];
int code = m_vram1[2 * tile_index]
| ((attr & 0x03) << 8)
| ((m_vregs[(attr & 0xc) >> 2]) << 10);
// | (state->m_horshoes_gfxbank << 12);
SET_TILE_INFO_MEMBER(0,
code,
(attr & 0xf0) >> 4,
0);
}
TILE_GET_INFO_MEMBER(tc0091lvc_device::get_tx_tile_info)
{
int attr = m_tvram[2 * tile_index + 1];
UINT16 code = m_tvram[2 * tile_index]
| ((attr & 0x07) << 8);
SET_TILE_INFO_MEMBER(m_gfx_index,
code,
(attr & 0xf0) >> 4,
0);
}
static const gfx_layout char_layout =
{
8, 8,
0x10000 / (8 * 4), // need to specify exact number because we create dynamically
4,
{ 8, 12, 0, 4 },
{ 3, 2, 1, 0, 19, 18, 17, 16},
{ 0*32, 1*32, 2*32, 3*32, 4*32, 5*32, 6*32, 7*32 },
8*8*4
};
void tc0091lvc_device::device_start()
{
if(!m_gfxdecode->started())
throw device_missing_dependencies();
memset(m_palette_ram, 0, ARRAY_LENGTH(m_palette_ram));
memset(m_vregs, 0, ARRAY_LENGTH(m_vregs));
memset(m_bitmap_ram, 0, ARRAY_LENGTH(m_bitmap_ram));
memset(m_pcg_ram, 0, ARRAY_LENGTH(m_pcg_ram));
memset(m_sprram_buffer, 0, ARRAY_LENGTH(m_sprram_buffer));
// note, the way tiles are addressed suggests that 0x0000-0x3fff of this might be usable,
// but we don't map it anywhere, so the first tiles are always blank at the moment.
m_pcg1_ram = m_pcg_ram + 0x4000;
m_pcg2_ram = m_pcg_ram + 0xc000;
m_vram0 = m_pcg_ram + 0x8000;
m_vram1 = m_pcg_ram + 0x9000;
m_tvram = m_pcg_ram + 0xa000;
m_sprram = m_pcg_ram + 0xb000;
tx_tilemap = &machine().tilemap().create(m_gfxdecode, tilemap_get_info_delegate(FUNC(tc0091lvc_device::get_tx_tile_info),this),TILEMAP_SCAN_ROWS,8,8,64,32);
bg0_tilemap = &machine().tilemap().create(m_gfxdecode, tilemap_get_info_delegate(FUNC(tc0091lvc_device::get_bg0_tile_info),this),TILEMAP_SCAN_ROWS,8,8,64,32);
bg1_tilemap = &machine().tilemap().create(m_gfxdecode, tilemap_get_info_delegate(FUNC(tc0091lvc_device::get_bg1_tile_info),this),TILEMAP_SCAN_ROWS,8,8,64,32);
tx_tilemap->set_transparent_pen(0);
bg0_tilemap->set_transparent_pen(0);
bg1_tilemap->set_transparent_pen(0);
tx_tilemap->set_scrolldx(-8, -8);
bg0_tilemap->set_scrolldx(28, -11);
bg1_tilemap->set_scrolldx(38, -21);
for (m_gfx_index = 0; m_gfx_index < MAX_GFX_ELEMENTS; m_gfx_index++)
if (m_gfxdecode->gfx(m_gfx_index) == nullptr)
break;
//printf("m_gfx_index %d\n", m_gfx_index);
palette_device &palette = m_gfxdecode->palette();
m_gfxdecode->set_gfx(m_gfx_index, std::make_unique<gfx_element>(palette, char_layout, (UINT8 *)m_pcg_ram, 0, palette.entries() / 16, 0));
}
void tc0091lvc_device::device_reset()
{
}
const address_space_config *tc0091lvc_device::memory_space_config(address_spacenum spacenum) const
{
return (spacenum == 0) ? &m_space_config : nullptr;
}
void tc0091lvc_device::draw_sprites( screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect, UINT8 global_flip )
{
gfx_element *gfx = m_gfxdecode->gfx(1);
int count;
for(count=0;count<0x3e7;count+=8)
{
int x,y,spr_offs,col,fx,fy;
spr_offs = m_sprram_buffer[count+0]|(m_sprram_buffer[count+1]<<8);
x = m_sprram_buffer[count+4]|(m_sprram_buffer[count+5]<<8);
if (x >= 320)
x -= 512;
y = m_sprram_buffer[count+6];
col = (m_sprram_buffer[count+2])&0x0f;
fx = m_sprram_buffer[count+3] & 0x1;
fy = m_sprram_buffer[count+3] & 0x2;
if (global_flip)
{
x = 304 - x;
y = 240 - y;
fx = !fx;
fy = !fy;
}
gfx->prio_transpen(bitmap,cliprect,spr_offs,col,fx,fy,x,y,screen.priority(),(col & 0x08) ? 0xaa : 0x00,0);
}
}
UINT32 tc0091lvc_device::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
{
UINT32 count;
int x,y;
UINT8 global_flip;
bitmap.fill(m_gfxdecode->palette().black_pen(), cliprect);
if((m_vregs[4] & 0x20) == 0)
return 0;
global_flip = m_vregs[4] & 0x10;
if((m_vregs[4] & 0x7) == 7) // 8bpp bitmap enabled
{
count = 0;
for (y=0;y<256;y++)
{
for (x=0;x<512;x++)
{
int res_x, res_y;
res_x = (global_flip) ? 320-x : x;
res_y = (global_flip) ? 256-y : y;
if(screen.visible_area().contains(res_x, res_y))
bitmap.pix16(res_y, res_x) = m_gfxdecode->palette().pen(m_bitmap_ram[count]);
count++;
}
}
}
else
{
int dx, dy;
machine().tilemap().set_flip_all(global_flip ? (TILEMAP_FLIPY | TILEMAP_FLIPX) : 0);
dx = m_bg0_scroll[0] | (m_bg0_scroll[1] << 8);
if (global_flip) { dx = ((dx & 0xfffc) | ((dx - 3) & 0x0003)) ^ 0xf; dx += 192; }
dy = m_bg0_scroll[2];
bg0_tilemap->set_scrollx(0, -dx);
bg0_tilemap->set_scrolly(0, -dy);
dx = m_bg1_scroll[0] | (m_bg1_scroll[1] << 8);
if (global_flip) { dx = ((dx & 0xfffc) | ((dx - 3) & 0x0003)) ^ 0xf; dx += 192; }
dy = m_bg1_scroll[2];
bg1_tilemap->set_scrollx(0, -dx);
bg1_tilemap->set_scrolly(0, -dy);
tx_tilemap->set_scrollx(0, (global_flip) ? -192 : 0);
screen.priority().fill(0, cliprect);
bg1_tilemap->draw(screen, bitmap, cliprect, 0,0);
bg0_tilemap->draw(screen, bitmap, cliprect, 0,(m_vregs[4] & 0x8) ? 0 : 1);
draw_sprites(screen, bitmap, cliprect, global_flip);
tx_tilemap->draw(screen, bitmap, cliprect, 0,0);
}
return 0;
}
void tc0091lvc_device::screen_eof(void)
{
memcpy(m_sprram_buffer,m_sprram,0x400);
m_bg0_scroll[0] = m_sprram_buffer[0x3f4];
m_bg0_scroll[1] = m_sprram_buffer[0x3f5];
m_bg0_scroll[2] = m_sprram_buffer[0x3f6];
m_bg1_scroll[0] = m_sprram_buffer[0x3fc];
m_bg1_scroll[1] = m_sprram_buffer[0x3fd];
m_bg1_scroll[2] = m_sprram_buffer[0x3fe];
}