/*****************************************************************************
Mahjong Sisters (c) 1986 Toa Plan
Driver by Uki
*****************************************************************************/
#include "emu.h"
#include "cpu/z80/z80.h"
#include "sound/dac.h"
#include "sound/ay8910.h"
#define MCLK 12000000
class mjsister_state : public driver_device
{
public:
mjsister_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag) { }
/* video-related */
bitmap_t *m_tmpbitmap0;
bitmap_t *m_tmpbitmap1;
int m_flip_screen;
int m_video_enable;
int m_screen_redraw;
int m_vrambank;
int m_colorbank;
/* misc */
int m_input_sel1;
int m_input_sel2;
int m_rombank0;
int m_rombank1;
UINT32 m_dac_adr;
UINT32 m_dac_bank;
UINT32 m_dac_adr_s;
UINT32 m_dac_adr_e;
UINT32 m_dac_busy;
/* devices */
device_t *m_maincpu;
device_t *m_dac;
/* memory */
UINT8 m_videoram0[0x8000];
UINT8 m_videoram1[0x8000];
};
/*************************************
*
* Video emulation
*
*************************************/
static VIDEO_START( mjsister )
{
mjsister_state *state = machine.driver_data<mjsister_state>();
state->m_tmpbitmap0 = auto_bitmap_alloc(machine, 256, 256, machine.primary_screen->format());
state->m_tmpbitmap1 = auto_bitmap_alloc(machine, 256, 256, machine.primary_screen->format());
state->save_item(NAME(state->m_videoram0));
state->save_item(NAME(state->m_videoram1));
}
static void mjsister_plot0( running_machine &machine, int offset, UINT8 data )
{
mjsister_state *state = machine.driver_data<mjsister_state>();
int x, y, c1, c2;
x = offset & 0x7f;
y = offset / 0x80;
c1 = (data & 0x0f) + state->m_colorbank * 0x20;
c2 = ((data & 0xf0) >> 4) + state->m_colorbank * 0x20;
*BITMAP_ADDR16(state->m_tmpbitmap0, y, x * 2 + 0) = c1;
*BITMAP_ADDR16(state->m_tmpbitmap0, y, x * 2 + 1) = c2;
}
static void mjsister_plot1( running_machine &machine, int offset, UINT8 data )
{
mjsister_state *state = machine.driver_data<mjsister_state>();
int x, y, c1, c2;
x = offset & 0x7f;
y = offset / 0x80;
c1 = data & 0x0f;
c2 = (data & 0xf0) >> 4;
if (c1)
c1 += state->m_colorbank * 0x20 + 0x10;
if (c2)
c2 += state->m_colorbank * 0x20 + 0x10;
*BITMAP_ADDR16(state->m_tmpbitmap1, y, x * 2 + 0) = c1;
*BITMAP_ADDR16(state->m_tmpbitmap1, y, x * 2 + 1) = c2;
}
static WRITE8_HANDLER( mjsister_videoram_w )
{
mjsister_state *state = space->machine().driver_data<mjsister_state>();
if (state->m_vrambank)
{
state->m_videoram1[offset] = data;
mjsister_plot1(space->machine(), offset, data);
}
else
{
state->m_videoram0[offset] = data;
mjsister_plot0(space->machine(), offset, data);
}
}
static SCREEN_UPDATE( mjsister )
{
mjsister_state *state = screen->machine().driver_data<mjsister_state>();
int flip = state->m_flip_screen;
int i, j;
if (state->m_screen_redraw)
{
int offs;
for (offs = 0; offs < 0x8000; offs++)
{
mjsister_plot0(screen->machine(), offs, state->m_videoram0[offs]);
mjsister_plot1(screen->machine(), offs, state->m_videoram1[offs]);
}
state->m_screen_redraw = 0;
}
if (state->m_video_enable)
{
for (i = 0; i < 256; i++)
for (j = 0; j < 4; j++)
*BITMAP_ADDR16(bitmap, i, 256 + j) = state->m_colorbank * 0x20;
copybitmap(bitmap, state->m_tmpbitmap0, flip, flip, 0, 0, cliprect);
copybitmap_trans(bitmap, state->m_tmpbitmap1, flip, flip, 2, 0, cliprect, 0);
}
else
bitmap_fill(bitmap, cliprect, get_black_pen(screen->machine()));
return 0;
}
/*************************************
*
* Memory handlers
*
*************************************/
static TIMER_CALLBACK( dac_callback )
{
mjsister_state *state = machine.driver_data<mjsister_state>();
UINT8 *DACROM = machine.region("samples")->base();
dac_data_w(state->m_dac, DACROM[(state->m_dac_bank * 0x10000 + state->m_dac_adr++) & 0x1ffff]);
if (((state->m_dac_adr & 0xff00 ) >> 8) != state->m_dac_adr_e)
machine.scheduler().timer_set(attotime::from_hz(MCLK) * 1024, FUNC(dac_callback));
else
state->m_dac_busy = 0;
}
static WRITE8_HANDLER( mjsister_dac_adr_s_w )
{
mjsister_state *state = space->machine().driver_data<mjsister_state>();
state->m_dac_adr_s = data;
}
static WRITE8_HANDLER( mjsister_dac_adr_e_w )
{
mjsister_state *state = space->machine().driver_data<mjsister_state>();
state->m_dac_adr_e = data;
state->m_dac_adr = state->m_dac_adr_s << 8;
if (state->m_dac_busy == 0)
space->machine().scheduler().synchronize(FUNC(dac_callback));
state->m_dac_busy = 1;
}
static WRITE8_HANDLER( mjsister_banksel1_w )
{
mjsister_state *state = space->machine().driver_data<mjsister_state>();
int tmp = state->m_colorbank;
switch (data)
{
case 0x0: state->m_rombank0 = 0 ; break;
case 0x1: state->m_rombank0 = 1 ; break;
case 0x2: state->m_flip_screen = 0 ; break;
case 0x3: state->m_flip_screen = 1 ; break;
case 0x4: state->m_colorbank &= 0xfe; break;
case 0x5: state->m_colorbank |= 0x01; break;
case 0x6: state->m_colorbank &= 0xfd; break;
case 0x7: state->m_colorbank |= 0x02; break;
case 0x8: state->m_colorbank &= 0xfb; break;
case 0x9: state->m_colorbank |= 0x04; break;
case 0xa: state->m_video_enable = 0 ; break;
case 0xb: state->m_video_enable = 1 ; break;
case 0xe: state->m_vrambank = 0 ; break;
case 0xf: state->m_vrambank = 1 ; break;
default:
logerror("%04x p30_w:%02x\n", cpu_get_pc(&space->device()), data);
}
if (tmp != state->m_colorbank)
state->m_screen_redraw = 1;
memory_set_bank(space->machine(), "bank1", state->m_rombank0 * 2 + state->m_rombank1);
}
static WRITE8_HANDLER( mjsister_banksel2_w )
{
mjsister_state *state = space->machine().driver_data<mjsister_state>();
switch (data)
{
case 0xa: state->m_dac_bank = 0; break;
case 0xb: state->m_dac_bank = 1; break;
case 0xc: state->m_rombank1 = 0; break;
case 0xd: state->m_rombank1 = 1; break;
default:
logerror("%04x p31_w:%02x\n", cpu_get_pc(&space->device()), data);
}
memory_set_bank(space->machine(), "bank1", state->m_rombank0 * 2 + state->m_rombank1);
}
static WRITE8_HANDLER( mjsister_input_sel1_w )
{
mjsister_state *state = space->machine().driver_data<mjsister_state>();
state->m_input_sel1 = data;
}
static WRITE8_HANDLER( mjsister_input_sel2_w )
{
mjsister_state *state = space->machine().driver_data<mjsister_state>();
state->m_input_sel2 = data;
}
static READ8_HANDLER( mjsister_keys_r )
{
mjsister_state *state = space->machine().driver_data<mjsister_state>();
int p, i, ret = 0;
static const char *const keynames[] = { "KEY0", "KEY1", "KEY2", "KEY3", "KEY4", "KEY5" };
p = state->m_input_sel1 & 0x3f;
// p |= ((state->m_input_sel2 & 8) << 4) | ((state->m_input_sel2 & 0x20) << 1);
for (i = 0; i < 6; i++)
{
if (BIT(p, i))
ret |= input_port_read(space->machine(), keynames[i]);
}
return ret;
}
/*************************************
*
* Address maps
*
*************************************/
static ADDRESS_MAP_START( mjsister_map, AS_PROGRAM, 8 )
AM_RANGE(0x0000, 0x77ff) AM_ROM
AM_RANGE(0x7800, 0x7fff) AM_RAM
AM_RANGE(0x8000, 0xffff) AM_ROMBANK("bank1") AM_WRITE(mjsister_videoram_w)
ADDRESS_MAP_END
static ADDRESS_MAP_START( mjsister_io_map, AS_IO, 8 )
ADDRESS_MAP_GLOBAL_MASK(0xff)
AM_RANGE(0x00, 0x01) AM_WRITENOP /* HD46505? */
AM_RANGE(0x10, 0x10) AM_DEVWRITE("aysnd", ay8910_address_w)
AM_RANGE(0x11, 0x11) AM_DEVREAD("aysnd", ay8910_r)
AM_RANGE(0x12, 0x12) AM_DEVWRITE("aysnd", ay8910_data_w)
AM_RANGE(0x20, 0x20) AM_READ(mjsister_keys_r)
AM_RANGE(0x21, 0x21) AM_READ_PORT("IN0")
AM_RANGE(0x30, 0x30) AM_WRITE(mjsister_banksel1_w)
AM_RANGE(0x31, 0x31) AM_WRITE(mjsister_banksel2_w)
AM_RANGE(0x32, 0x32) AM_WRITE(mjsister_input_sel1_w)
AM_RANGE(0x33, 0x33) AM_WRITE(mjsister_input_sel2_w)
AM_RANGE(0x34, 0x34) AM_WRITE(mjsister_dac_adr_s_w)
AM_RANGE(0x35, 0x35) AM_WRITE(mjsister_dac_adr_e_w)
ADDRESS_MAP_END
/*************************************
*
* Input ports
*
*************************************/
static INPUT_PORTS_START( mjsister )
PORT_START("DSW1")
PORT_DIPNAME( 0x07, 0x07, DEF_STR( Coinage ) )
PORT_DIPSETTING( 0x03, DEF_STR( 5C_1C ) )
PORT_DIPSETTING( 0x00, DEF_STR( 4C_1C ) )
PORT_DIPSETTING( 0x01, DEF_STR( 3C_1C ) )
PORT_DIPSETTING( 0x02, DEF_STR( 2C_1C ) )
PORT_DIPSETTING( 0x07, DEF_STR( 1C_1C ) )
PORT_DIPSETTING( 0x06, DEF_STR( 1C_2C ) )
PORT_DIPSETTING( 0x05, DEF_STR( 1C_3C ) )
PORT_DIPSETTING( 0x04, DEF_STR( 1C_4C ) )
PORT_DIPNAME( 0x08, 0x08, "Unknown 1-4" )
PORT_DIPSETTING( 0x08, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x10, 0x10, "Unknown 1-5" )
PORT_DIPSETTING( 0x10, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x20, 0x20, "Unknown 1-6" )
PORT_DIPSETTING( 0x20, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_UNKNOWN ) /* service mode */
PORT_DIPNAME( 0x80, 0x80, DEF_STR( Flip_Screen ) )
PORT_DIPSETTING( 0x80, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_START("DSW2")
PORT_DIPNAME( 0x01, 0x01, "Unknown 2-1" )
PORT_DIPSETTING( 0x01, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x02, 0x02, "Unknown 2-2" )
PORT_DIPSETTING( 0x02, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x04, 0x04, "Unknown 2-3" )
PORT_DIPSETTING( 0x04, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x08, 0x08, "Unknown 2-4" )
PORT_DIPSETTING( 0x08, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x10, 0x10, "Unknown 2-5" )
PORT_DIPSETTING( 0x10, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x20, 0x20, "Unknown 2-6" )
PORT_DIPSETTING( 0x20, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x40, 0x40, "Unknown 2-7" )
PORT_DIPSETTING( 0x40, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x80, 0x80, "Unknown 2-8" )
PORT_DIPSETTING( 0x80, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_START("IN0")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_COIN2 )
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_UNKNOWN ) /* memory reset 1 */
PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNKNOWN ) /* analyzer */
PORT_SERVICE( 0x08, IP_ACTIVE_HIGH )
PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_UNKNOWN ) /* memory reset 2 */
PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_UNKNOWN ) /* pay out */
PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_COIN1 )
PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_UNKNOWN ) /* hopper */
PORT_START("KEY0")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_MAHJONG_A )
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_MAHJONG_B )
PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_MAHJONG_C )
PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_MAHJONG_D )
PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_MAHJONG_LAST_CHANCE )
PORT_BIT( 0xe0, IP_ACTIVE_HIGH, IPT_UNUSED )
PORT_START("KEY1")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_MAHJONG_E )
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_MAHJONG_F )
PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_MAHJONG_G )
PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_MAHJONG_H )
PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_MAHJONG_SCORE )
PORT_BIT( 0xe0, IP_ACTIVE_HIGH, IPT_UNUSED )
PORT_START("KEY2")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_MAHJONG_I )
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_MAHJONG_J )
PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_MAHJONG_K )
PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_MAHJONG_L )
PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_MAHJONG_DOUBLE_UP )
PORT_BIT( 0xe0, IP_ACTIVE_HIGH, IPT_UNUSED )
PORT_START("KEY3")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_MAHJONG_M )
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_MAHJONG_N )
PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_MAHJONG_CHI )
PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_MAHJONG_PON )
PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_MAHJONG_FLIP_FLOP )
PORT_BIT( 0xe0, IP_ACTIVE_HIGH, IPT_UNUSED )
PORT_START("KEY4")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_MAHJONG_KAN )
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_MAHJONG_REACH )
PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_MAHJONG_RON )
PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNKNOWN )
PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_MAHJONG_BIG )
PORT_BIT( 0xe0, IP_ACTIVE_HIGH, IPT_UNUSED )
PORT_START("KEY5")
PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_START1 )
PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_MAHJONG_BET )
PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNKNOWN )
PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNKNOWN )
PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_MAHJONG_SMALL )
PORT_BIT( 0xe0, IP_ACTIVE_HIGH, IPT_UNUSED )
INPUT_PORTS_END
/*************************************
*
* Sound interface
*
*************************************/
static const ay8910_interface ay8910_config =
{
AY8910_LEGACY_OUTPUT,
AY8910_DEFAULT_LOADS,
DEVCB_INPUT_PORT("DSW1"),
DEVCB_INPUT_PORT("DSW2"),
DEVCB_NULL,
DEVCB_NULL
};
/*************************************
*
* Machine driver
*
*************************************/
static void mjsister_redraw(mjsister_state *state)
{
/* we can skip saving tmpbitmaps because we can redraw them from vram */
state->m_screen_redraw = 1;
}
static MACHINE_START( mjsister )
{
mjsister_state *state = machine.driver_data<mjsister_state>();
UINT8 *ROM = machine.region("maincpu")->base();
memory_configure_bank(machine, "bank1", 0, 4, &ROM[0x10000], 0x8000);
state->m_maincpu = machine.device("maincpu");
state->m_dac = machine.device("dac");
state->save_item(NAME(state->m_dac_busy));
state->save_item(NAME(state->m_flip_screen));
state->save_item(NAME(state->m_video_enable));
state->save_item(NAME(state->m_vrambank));
state->save_item(NAME(state->m_colorbank));
state->save_item(NAME(state->m_input_sel1));
state->save_item(NAME(state->m_input_sel2));
state->save_item(NAME(state->m_rombank0));
state->save_item(NAME(state->m_rombank1));
state->save_item(NAME(state->m_dac_adr));
state->save_item(NAME(state->m_dac_bank));
state->save_item(NAME(state->m_dac_adr_s));
state->save_item(NAME(state->m_dac_adr_e));
machine.save().register_postload(save_prepost_delegate(FUNC(mjsister_redraw), state));
}
static MACHINE_RESET( mjsister )
{
mjsister_state *state = machine.driver_data<mjsister_state>();
state->m_dac_busy = 0;
state->m_flip_screen = 0;
state->m_video_enable = 0;
state->m_screen_redraw = 0;
state->m_vrambank = 0;
state->m_colorbank = 0;
state->m_input_sel1 = 0;
state->m_input_sel2 = 0;
state->m_rombank0 = 0;
state->m_rombank1 = 0;
state->m_dac_adr = 0;
state->m_dac_bank = 0;
state->m_dac_adr_s = 0;
state->m_dac_adr_e = 0;
}
static MACHINE_CONFIG_START( mjsister, mjsister_state )
/* basic machine hardware */
MCFG_CPU_ADD("maincpu", Z80, MCLK/2) /* 6.000 MHz */
MCFG_CPU_PROGRAM_MAP(mjsister_map)
MCFG_CPU_IO_MAP(mjsister_io_map)
MCFG_CPU_PERIODIC_INT(irq0_line_hold,2*60)
MCFG_MACHINE_START(mjsister)
MCFG_MACHINE_RESET(mjsister)
/* video hardware */
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_REFRESH_RATE(60)
MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500) /* not accurate */)
MCFG_SCREEN_FORMAT(BITMAP_FORMAT_INDEXED16)
MCFG_SCREEN_SIZE(256+4, 256)
MCFG_SCREEN_VISIBLE_AREA(0, 255+4, 8, 247)
MCFG_SCREEN_UPDATE(mjsister)
MCFG_PALETTE_INIT(RRRR_GGGG_BBBB)
MCFG_PALETTE_LENGTH(256)
MCFG_VIDEO_START(mjsister)
/* sound hardware */
MCFG_SPEAKER_STANDARD_MONO("mono")
MCFG_SOUND_ADD("aysnd", AY8910, MCLK/8)
MCFG_SOUND_CONFIG(ay8910_config)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.15)
MCFG_SOUND_ADD("dac", DAC, 0)
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.0)
MACHINE_CONFIG_END
/*************************************
*
* ROM definition(s)
*
*************************************/
ROM_START( mjsister )
ROM_REGION( 0x30000, "maincpu", 0 ) /* CPU */
ROM_LOAD( "ms00.bin", 0x00000, 0x08000, CRC(9468c33b) SHA1(63aecdcaa8493d58549dfd1d217743210cf953bc) )
ROM_LOAD( "ms01t.bin", 0x10000, 0x10000, CRC(a7b6e530) SHA1(fda9bea214968a8814d2c43226b3b32316581050) ) /* banked */
ROM_LOAD( "ms02t.bin", 0x20000, 0x10000, CRC(7752b5ba) SHA1(84dcf27a62eb290ba07c85af155897ec72f320a8) ) /* banked */
ROM_REGION( 0x20000, "samples", 0 ) /* samples */
ROM_LOAD( "ms03.bin", 0x00000, 0x10000, CRC(10a68e5e) SHA1(a0e2fa34c1c4f34642f65fbf17e9da9c2554a0c6) )
ROM_LOAD( "ms04.bin", 0x10000, 0x10000, CRC(641b09c1) SHA1(15cde906175bcb5190d36cc91cbef003ef91e425) )
ROM_REGION( 0x00400, "proms", 0 ) /* color PROMs */
ROM_LOAD( "ms05.bpr", 0x0000, 0x0100, CRC(dd231a5f) SHA1(be008593ac8ba8f5a1dd5b188dc7dc4c03016805) ) // R
ROM_LOAD( "ms06.bpr", 0x0100, 0x0100, CRC(df8e8852) SHA1(842a891440aef55a560d24c96f249618b9f4b97f) ) // G
ROM_LOAD( "ms07.bpr", 0x0200, 0x0100, CRC(6cb3a735) SHA1(468ae3d40552dc2ec24f5f2988850093d73948a6) ) // B
ROM_LOAD( "ms08.bpr", 0x0300, 0x0100, CRC(da2b3b38) SHA1(4de99c17b227653bc1b904f1309f447f5a0ab516) ) // ?
ROM_END
/*************************************
*
* Game driver(s)
*
*************************************/
GAME( 1986, mjsister, 0, mjsister, mjsister, 0, ROT0, "Toaplan", "Mahjong Sisters (Japan)", GAME_SUPPORTS_SAVE )