// license:BSD-3-Clause
// copyright-holders:Uki
/*******************************************************************************
Momoko 120% (c) 1986 Jaleco
Video hardware driver by Uki
02/Mar/2001 -
*******************************************************************************/
#include "emu.h"
#include "includes/momoko.h"
void momoko_state::fg_scrollx_w(u8 data)
{
m_fg_scrollx = data;
}
void momoko_state::fg_scrolly_w(u8 data)
{
m_fg_scrolly = data;
}
void momoko_state::fg_select_w(u8 data)
{
m_fg_select = data & 0x0f;
m_fg_mask = data & 0x10;
}
void momoko_state::text_scrolly_w(u8 data)
{
m_text_scrolly = data;
}
void momoko_state::text_mode_w(u8 data)
{
m_text_mode = data;
}
void momoko_state::bg_scrollx_w(offs_t offset, u8 data)
{
m_bg_scrollx[offset] = data;
}
void momoko_state::bg_scrolly_w(offs_t offset, u8 data)
{
m_bg_scrolly[offset] = data;
}
void momoko_state::bg_select_w(u8 data)
{
m_bg_select = data & 0x0f;
m_bg_mask = data & 0x10;
}
void momoko_state::bg_priority_w(u8 data)
{
m_bg_priority = data & 0x01;
}
void momoko_state::flipscreen_w(u8 data)
{
m_flipscreen = data & 0x01;
}
/****************************************************************************/
void momoko_state::draw_bg_pri(bitmap_ind16 &bitmap, int chr, int col, int flipx, int flipy, int x, int y, int pri)
{
int px, py;
for (int sy = 0; sy < 8; sy++)
{
const u32 gfxadr = chr * 16 + sy * 2;
for (int xx = 0; xx < 2; xx++)
{
u8 d0 = m_bg_gfx[gfxadr + xx * 4096];
u8 d1 = m_bg_gfx[gfxadr + xx * 4096 + 1];
for (int sx = 0; sx < 4; sx++)
{
const u8 dot = (d0 & 0x08) | ((d0 & 0x80) >> 5) | ((d1 & 0x08) >> 2) | ((d1 & 0x80) >> 7);
if (flipx == 0) px = sx + xx * 4 + x;
else px = 7 - sx - xx * 4 + x;
if (flipy == 0) py = sy + y;
else py = 7 - sy + y;
if (dot >= pri)
bitmap.pix16(py, px) = col * 16 + dot + 256;
d0 = d0 << 1;
d1 = d1 << 1;
}
}
}
}
/****************************************************************************/
u32 momoko_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
{
int px, py, col;
const int flip = m_flipscreen ^ (m_io_fake->read() & 0x01);
/* draw BG layer */
int dx = (7 - m_bg_scrollx[0]) & 7;
int dy = (7 - m_bg_scrolly[0]) & 7;
int rx = (m_bg_scrollx[0] + m_bg_scrollx[1] * 256) >> 3;
int ry = (m_bg_scrolly[0] + m_bg_scrolly[1] * 256) >> 3;
if (m_bg_mask == 0)
{
for (int y = 0; y < 29; y++)
{
for (int x = 0; x < 32; x++)
{
const int radr = ((ry + y + 2) & 0x3ff) * 128 + ((rx + x) & 0x7f);
u32 chr = m_bg_map[radr];
col = m_bg_col_map[chr + m_bg_select * 512 + m_bg_priority * 256] & 0x0f;
chr = chr + m_bg_select * 512;
if (flip == 0)
{
px = 8 * x + dx - 6;
py = 8 * y + dy + 9;
}
else
{
px = 248 - (8 * x + dx - 8);
py = 248 - (8 * y + dy + 9);
}
m_gfxdecode->gfx(1)->opaque(bitmap,cliprect,
chr,
col,
flip,flip,
px,py);
}
}
}
else
bitmap.fill(256, cliprect);
/* draw sprites (momoko) */
for (int offs = 0; offs < 9 * 4; offs +=4)
{
u32 chr = m_spriteram[offs + 1] | ((m_spriteram[offs + 2] & 0x60) << 3);
chr = ((chr & 0x380) << 1) | (chr & 0x7f);
col = m_spriteram[offs + 2] & 0x07;
const int fx = ((m_spriteram[offs + 2] & 0x10) >> 4) ^ flip;
const int fy = ((m_spriteram[offs + 2] & 0x08) >> 3) ^ flip; /* ??? */
int x = m_spriteram[offs + 3];
int y = m_spriteram[offs + 0];
if (flip == 0)
{
px = x;
py = 239 - y;
}
else
{
px = 248 - x;
py = y + 1;
}
m_gfxdecode->gfx(3)->transpen(bitmap,cliprect,
chr,
col,
!fx,fy,
px,py,0);
}
/* draw BG layer */
if (m_bg_mask == 0)
{
for (int y = 0; y < 29; y++)
{
for (int x = 0; x < 32; x++)
{
const int radr = ((ry + y + 2) & 0x3ff) * 128 + ((rx + x) & 0x7f);
u32 chr = m_bg_map[radr];
col = m_bg_col_map[chr + m_bg_select * 512 + m_bg_priority * 256];
const u8 pri = (col & 0x10) >> 1;
if (flip == 0)
{
px = 8 * x + dx - 6;
py = 8 * y + dy + 9;
}
else
{
px = 248 - (8 * x + dx - 8);
py = 248 - (8 * y + dy + 9);
}
if (pri != 0)
{
col = col & 0x0f;
chr = chr + m_bg_select * 512;
draw_bg_pri(bitmap, chr, col, flip, flip, px, py, pri);
}
}
}
}
/* draw sprites (others) */
for (int offs = 9 * 4; offs < m_spriteram.bytes(); offs += 4)
{
u32 chr = m_spriteram[offs + 1] | ((m_spriteram[offs + 2] & 0x60) << 3);
chr = ((chr & 0x380) << 1) | (chr & 0x7f);
col = m_spriteram[offs + 2] & 0x07;
const int fx = ((m_spriteram[offs + 2] & 0x10) >> 4) ^ flip;
const int fy = ((m_spriteram[offs + 2] & 0x08) >> 3) ^ flip; /* ??? */
int x = m_spriteram[offs + 3];
int y = m_spriteram[offs + 0];
if (flip == 0)
{
px = x;
py = 239 - y;
}
else
{
px = 248 - x;
py = y + 1;
}
m_gfxdecode->gfx(3)->transpen(bitmap,cliprect,
chr,
col,
!fx,fy,
px,py,0);
}
/* draw text layer */
for (int y = 16; y < 240; y++)
{
for (int x = 0; x < 32; x++)
{
int sy = y;
if (m_text_mode == 0)
col = m_proms[(sy >> 3) + 0x100] & 0x0f;
else
{
if (m_proms[y] < 0x08)
sy += m_text_scrolly;
col = (m_proms[y] & 0x07) + 0x10;
}
dy = sy & 7;
if (flip == 0)
{
px = x * 8;
py = y;
}
else
{
px = 248 - x * 8;
py = 255 - y;
}
m_gfxdecode->gfx(0)->transpen(bitmap,cliprect,
m_videoram[(sy >> 3) * 32 + x] * 8 + dy,
col,
flip,0,
px,py,0);
}
}
/* draw FG layer */
if (m_fg_mask == 0)
{
dx = (7 - m_fg_scrollx) & 7;
dy = (7 - m_fg_scrolly) & 7;
rx = m_fg_scrollx >> 3;
ry = m_fg_scrolly >> 3;
for (int y = 0; y < 29; y++)
{
for (int x = 0; x < 32; x++)
{
const int radr = ((ry + y + 34) & 0x3f) * 0x20 + ((rx + x) & 0x1f) + (m_fg_select & 3) * 0x800;
const u32 chr = m_fg_map[radr];
if (flip == 0)
{
px = 8 * x + dx - 6;
py = 8 * y + dy + 9;
}
else
{
px = 248 - (8 * x + dx - 8);
py = 248 - (8 * y + dy + 9);
}
m_gfxdecode->gfx(2)->transpen(bitmap,cliprect,
chr,
0, /* color */
flip,flip, /* flip */
px,py,0);
}
}
}
return 0;
}