/***************************************************************************** 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(); 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(); 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(); 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(); 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(); 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(); 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(); state->m_dac_adr_s = data; } static WRITE8_HANDLER( mjsister_dac_adr_e_w ) { mjsister_state *state = space->machine().driver_data(); 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(); 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(); 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(); state->m_input_sel1 = data; } static WRITE8_HANDLER( mjsister_input_sel2_w ) { mjsister_state *state = space->machine().driver_data(); state->m_input_sel2 = data; } static READ8_HANDLER( mjsister_keys_r ) { mjsister_state *state = space->machine().driver_data(); 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(); 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(); 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 )