/* Silver Millennium yet another Data East / Tumble Pop derived hardware this one seems similar to (but not identical to) the crospang.c hardware from F2 system also very close to gotcha.c, which was also a Para board. todo: refresh rate & audio balance verify dipswitches - difficulty & unknown dips verify clocks for Z80 & OKI6295 OSC on the PCB are 12MHz, 14.31818MHz & 4.096MHz */ #include "emu.h" #include "cpu/z80/z80.h" #include "cpu/m68000/m68000.h" #include "sound/okim6295.h" #include "video/decospr.h" #include "sound/2151intf.h" class silvmil_state : public driver_device { public: silvmil_state(const machine_config &mconfig, device_type type, const char *tag) : driver_device(mconfig, type, tag), m_bg_videoram(*this, "bg_videoram"), m_fg_videoram(*this, "fg_videoram"), m_spriteram(*this, "spriteram"), m_sprgen(*this, "spritegen") { } /* memory pointers */ required_shared_ptr m_bg_videoram; required_shared_ptr m_fg_videoram; required_shared_ptr m_spriteram; optional_device m_sprgen; /* video-related */ tilemap_t *m_bg_layer; tilemap_t *m_fg_layer; int m_silvmil_tilebank[4]; int m_whichbank; DECLARE_WRITE16_MEMBER(silvmil_tilebank_w) { m_silvmil_tilebank[m_whichbank] = (data>>8) & 0x1f; // printf("%08x tilebank_w %04x (which = %04x)\n",pc, data, m_whichbank); m_fg_layer->mark_all_dirty(); m_bg_layer->mark_all_dirty(); } DECLARE_WRITE16_MEMBER(silvmil_tilebank1_w) { m_whichbank = (data>>8)&0x3; } DECLARE_WRITE16_MEMBER(silvmil_fg_scrolly_w) { m_fg_layer->set_scrolly(0, data + 8); } DECLARE_WRITE16_MEMBER(silvmil_bg_scrolly_w) { m_bg_layer->set_scrolly(0, data + 8); } DECLARE_WRITE16_MEMBER(silvmil_fg_scrollx_w) { m_fg_layer->set_scrollx(0, data); } DECLARE_WRITE16_MEMBER(silvmil_bg_scrollx_w) { m_bg_layer->set_scrollx(0, data + 4); } DECLARE_WRITE16_MEMBER(silvmil_fg_videoram_w) { COMBINE_DATA(&m_fg_videoram[offset]); m_fg_layer->mark_tile_dirty(offset); } DECLARE_WRITE16_MEMBER(silvmil_bg_videoram_w) { COMBINE_DATA(&m_bg_videoram[offset]); m_bg_layer->mark_tile_dirty(offset); } DECLARE_WRITE16_MEMBER(silvmil_soundcmd_w) { if (ACCESSING_BITS_0_7) { soundlatch_byte_w(space, 0, data & 0xff); machine().scheduler().boost_interleave(attotime::zero, attotime::from_usec(20)); } } DECLARE_DRIVER_INIT(silvmil); TILE_GET_INFO_MEMBER(get_bg_tile_info); TILE_GET_INFO_MEMBER(get_fg_tile_info); TILEMAP_MAPPER_MEMBER(deco16_scan_rows); virtual void machine_start(); virtual void machine_reset(); virtual void video_start(); UINT32 screen_update_silvmil(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); }; TILE_GET_INFO_MEMBER(silvmil_state::get_bg_tile_info) { int data = m_bg_videoram[tile_index]; int tile = data & 0x3ff; int color = (data >> 12) & 0x0f; int bank = m_silvmil_tilebank[(data&0xc00)>>10]*0x400; SET_TILE_INFO_MEMBER(1, tile + bank, color + 0x20, 0); } TILE_GET_INFO_MEMBER(silvmil_state::get_fg_tile_info) { int data = m_fg_videoram[tile_index]; int tile = data & 0x3ff; int color = (data >> 12) & 0x0f; int bank = m_silvmil_tilebank[(data&0xc00)>>10]*0x400; SET_TILE_INFO_MEMBER(1, tile + bank, color + 0x10, 0); } TILEMAP_MAPPER_MEMBER(silvmil_state::deco16_scan_rows) { /* logical (col,row) -> memory offset */ return (col & 0x1f) + ((row & 0x1f) << 5) + ((col & 0x20) << 5) + ((row & 0x20) << 6); } void silvmil_state::video_start() { m_bg_layer = &machine().tilemap().create(tilemap_get_info_delegate(FUNC(silvmil_state::get_bg_tile_info),this), tilemap_mapper_delegate(FUNC(silvmil_state::deco16_scan_rows),this), 16, 16, 64, 32); m_fg_layer = &machine().tilemap().create(tilemap_get_info_delegate(FUNC(silvmil_state::get_fg_tile_info),this), tilemap_mapper_delegate(FUNC(silvmil_state::deco16_scan_rows),this), 16, 16, 64, 32); m_fg_layer->set_transparent_pen(0); } UINT32 silvmil_state::screen_update_silvmil(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) { m_bg_layer->draw(bitmap, cliprect, 0, 0); m_fg_layer->draw(bitmap, cliprect, 0, 0); m_sprgen->draw_sprites(bitmap, cliprect, m_spriteram, 0x400); return 0; } static ADDRESS_MAP_START( silvmil_map, AS_PROGRAM, 16, silvmil_state ) AM_RANGE(0x000000, 0x0fffff) AM_ROM AM_RANGE(0x100000, 0x100001) AM_WRITE(silvmil_tilebank1_w) AM_RANGE(0x100002, 0x100003) AM_WRITE(silvmil_fg_scrollx_w) AM_RANGE(0x100004, 0x100005) AM_WRITE(silvmil_fg_scrolly_w) AM_RANGE(0x100006, 0x100007) AM_WRITE(silvmil_bg_scrollx_w) AM_RANGE(0x100008, 0x100009) AM_WRITE(silvmil_bg_scrolly_w) AM_RANGE(0x10000e, 0x10000f) AM_WRITE(silvmil_tilebank_w) AM_RANGE(0x120000, 0x120fff) AM_RAM_WRITE(silvmil_fg_videoram_w) AM_SHARE("fg_videoram") AM_RANGE(0x122000, 0x122fff) AM_RAM_WRITE(silvmil_bg_videoram_w) AM_SHARE("bg_videoram") AM_RANGE(0x200000, 0x2005ff) AM_RAM_WRITE(paletteram_xRRRRRGGGGGBBBBB_word_w) AM_SHARE("paletteram") AM_RANGE(0x210000, 0x2107ff) AM_RAM AM_SHARE("spriteram") AM_RANGE(0x270000, 0x270001) AM_WRITE(silvmil_soundcmd_w) AM_RANGE(0x280000, 0x280001) AM_READ_PORT("P1_P2") AM_RANGE(0x280002, 0x280003) AM_READ_PORT("COIN") AM_RANGE(0x280004, 0x280005) AM_READ_PORT("DSW") AM_RANGE(0x300000, 0x30ffff) AM_RAM ADDRESS_MAP_END static INPUT_PORTS_START( silvmil ) PORT_START("P1_P2") PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_PLAYER(1) PORT_BIT( 0x0002, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_PLAYER(1) PORT_BIT( 0x0004, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_PLAYER(1) PORT_BIT( 0x0008, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_PLAYER(1) PORT_BIT( 0x0010, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(1) PORT_BIT( 0x0020, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_PLAYER(1) PORT_BIT( 0x0040, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_PLAYER(1) PORT_BIT( 0x0080, IP_ACTIVE_LOW, IPT_START1 ) PORT_BIT( 0x0100, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_PLAYER(2) PORT_BIT( 0x0200, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_PLAYER(2) PORT_BIT( 0x0400, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_PLAYER(2) PORT_BIT( 0x0800, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_PLAYER(2) PORT_BIT( 0x1000, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(2) PORT_BIT( 0x2000, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_PLAYER(2) PORT_BIT( 0x4000, IP_ACTIVE_LOW, IPT_BUTTON3 ) PORT_PLAYER(2) PORT_BIT( 0x8000, IP_ACTIVE_LOW, IPT_START2 ) PORT_START("COIN") PORT_BIT( 0x00ff, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_BIT( 0x0100, IP_ACTIVE_LOW, IPT_COIN1 ) PORT_BIT( 0x0200, IP_ACTIVE_LOW, IPT_COIN2 ) PORT_BIT( 0xfc00, IP_ACTIVE_LOW, IPT_UNKNOWN ) PORT_START("DSW") /* According to Service Mode - Need verification!! */ PORT_DIPNAME( 0x0003, 0x0003, DEF_STR( Difficulty ) ) PORT_DIPLOCATION("SW1:1,2") PORT_DIPSETTING( 0x0002, DEF_STR( Easy ) ) PORT_DIPSETTING( 0x0003, DEF_STR( Normal ) ) PORT_DIPSETTING( 0x0001, DEF_STR( Hard ) ) PORT_DIPSETTING( 0x0000, DEF_STR( Very_Hard ) ) PORT_DIPNAME( 0x0004, 0x0004, "DSW1:3 - Unknown" ) PORT_DIPLOCATION("SW1:3") PORT_DIPSETTING( 0x0004, DEF_STR( Off ) ) PORT_DIPSETTING( 0x0000, DEF_STR( On ) ) PORT_DIPNAME( 0x0008, 0x0008, "DSW1:4 - Unknown" ) PORT_DIPLOCATION("SW1:4") PORT_DIPSETTING( 0x0008, DEF_STR( Off ) ) PORT_DIPSETTING( 0x0000, DEF_STR( On ) ) PORT_DIPNAME( 0x0010, 0x0010, "DSW1:5 - Unknown" ) PORT_DIPLOCATION("SW1:5") PORT_DIPSETTING( 0x0010, DEF_STR( Off ) ) PORT_DIPSETTING( 0x0000, DEF_STR( On ) ) PORT_DIPNAME( 0x0020, 0x0020, "DSW1:6 - Unknown" ) PORT_DIPLOCATION("SW1:6") PORT_DIPSETTING( 0x0020, DEF_STR( Off ) ) PORT_DIPSETTING( 0x0000, DEF_STR( On ) ) PORT_DIPNAME( 0x0040, 0x0040, "DSW1:7 - Unknown" ) PORT_DIPLOCATION("SW1:7") PORT_DIPSETTING( 0x0040, DEF_STR( Off ) ) PORT_DIPSETTING( 0x0000, DEF_STR( On ) ) PORT_DIPNAME( 0x0080, 0x0080, "DSW1:8 - Unknown" ) PORT_DIPLOCATION("SW1:8") PORT_DIPSETTING( 0x0080, DEF_STR( Off ) ) PORT_DIPSETTING( 0x0000, DEF_STR( On ) ) PORT_DIPNAME( 0x0100, 0x0100, "DSW2:1 - Unknown" ) PORT_DIPLOCATION("SW2:1") PORT_DIPSETTING( 0x0100, DEF_STR( Off ) ) PORT_DIPSETTING( 0x0000, DEF_STR( On ) ) PORT_DIPNAME( 0x0200, 0x0200, "DSW2:2 - Unknown" ) PORT_DIPLOCATION("SW2:2") PORT_DIPSETTING( 0x0200, DEF_STR( Off ) ) PORT_DIPSETTING( 0x0000, DEF_STR( On ) ) PORT_DIPNAME( 0x0400, 0x0000, DEF_STR( Language ) ) PORT_DIPLOCATION("SW2:3") /* Verified */ PORT_DIPSETTING( 0x0400, DEF_STR( Korean ) ) PORT_DIPSETTING( 0x0000, DEF_STR( English ) ) PORT_DIPNAME( 0x3800, 0x3800, DEF_STR( Coinage ) ) PORT_DIPLOCATION("SW2:4,5,6") /* Verified */ PORT_DIPSETTING( 0x0800, DEF_STR( 4C_1C ) ) PORT_DIPSETTING( 0x1800, DEF_STR( 3C_1C ) ) PORT_DIPSETTING( 0x0000, DEF_STR( 4C_2C ) ) /* Works the same as 2C/1C */ PORT_DIPSETTING( 0x2800, DEF_STR( 2C_1C ) ) PORT_DIPSETTING( 0x1000, DEF_STR( 3C_2C ) ) /* Works like 2C/1C then 1C/1C repeat */ PORT_DIPSETTING( 0x2000, DEF_STR( 2C_2C ) ) /* Works the same as 1C/1C */ PORT_DIPSETTING( 0x3800, DEF_STR( 1C_1C ) ) PORT_DIPNAME( 0x4000, 0x4000, "Coin Box" ) PORT_DIPLOCATION("SW2:7") /* Funtionally reversed?? */ PORT_DIPSETTING( 0x4000, "1" ) /* Credits from Coin1 or Coin2 */ PORT_DIPSETTING( 0x0000, "2" ) /* Doesn't credit up from Coin2 */ PORT_SERVICE_DIPLOC( 0x8000, IP_ACTIVE_LOW, "SW2:8" ) /* Verified */ INPUT_PORTS_END static const gfx_layout tlayout = { 16,16, RGN_FRAC(1,2), 4, { RGN_FRAC(1,2)+8, RGN_FRAC(1,2)+0, 8, 0 }, { 32*8+0, 32*8+1, 32*8+2, 32*8+3, 32*8+4, 32*8+5, 32*8+6, 32*8+7, 0, 1, 2, 3, 4, 5, 6, 7 }, { 0*16, 1*16, 2*16, 3*16, 4*16, 5*16, 6*16, 7*16, 8*16, 9*16, 10*16, 11*16, 12*16, 13*16, 14*16, 15*16 }, 64*8 }; static GFXDECODE_START( silvmil ) GFXDECODE_ENTRY( "gfx2", 0, tlayout, 0, 64 ) /* Tiles 16x16 */ GFXDECODE_ENTRY( "gfx1", 0, tlayout, 0, 64 ) /* Sprites 16x16 */ GFXDECODE_END void silvmil_state::machine_start() { } void silvmil_state::machine_reset() { m_silvmil_tilebank[0] = 0; m_silvmil_tilebank[1] = 0; m_silvmil_tilebank[2] = 0; m_silvmil_tilebank[3] = 0; m_whichbank = 0; } static ADDRESS_MAP_START( silvmil_sound_map, AS_PROGRAM, 8, silvmil_state ) AM_RANGE(0x0000, 0xbfff) AM_ROM AM_RANGE(0xd000, 0xd7ff) AM_RAM AM_RANGE(0xc000, 0xc001) AM_DEVREADWRITE("ymsnd", ym2151_device, read, write) AM_RANGE(0xc002, 0xc002) AM_DEVREADWRITE("oki", okim6295_device, read, write) AM_MIRROR(1) AM_RANGE(0xc006, 0xc006) AM_READ(soundlatch_byte_r) AM_RANGE(0xc00f, 0xc00f) AM_WRITENOP // ?? ADDRESS_MAP_END /* CLOCKS UNKNOWN! */ static MACHINE_CONFIG_START( silvmil, silvmil_state ) /* basic machine hardware */ MCFG_CPU_ADD("maincpu", M68000, XTAL_12MHz) MCFG_CPU_PROGRAM_MAP(silvmil_map) MCFG_CPU_VBLANK_INT_DRIVER("screen", silvmil_state, irq6_line_hold) MCFG_CPU_ADD("audiocpu", Z80, XTAL_4_096MHz) // 4.096MHz or 3.579545MHz - Need to verify MCFG_CPU_PROGRAM_MAP(silvmil_sound_map) /* video hardware */ MCFG_SCREEN_ADD("screen", RASTER) MCFG_SCREEN_REFRESH_RATE(60) MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(0)) MCFG_SCREEN_SIZE(64*8, 64*8) MCFG_SCREEN_VISIBLE_AREA(0, 40*8-1, 0, 30*8-1) MCFG_SCREEN_UPDATE_DRIVER(silvmil_state, screen_update_silvmil) MCFG_PALETTE_LENGTH(0x300) MCFG_GFXDECODE(silvmil) MCFG_DEVICE_ADD("spritegen", DECO_SPRITE, 0) decospr_device::set_gfx_region(*device, 0); decospr_device::set_is_bootleg(*device, true); decospr_device::set_offsets(*device, 5,7); MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker") MCFG_YM2151_ADD("ymsnd", XTAL_14_31818MHz/4) MCFG_YM2151_IRQ_HANDLER(INPUTLINE("audiocpu", 0)) MCFG_SOUND_ROUTE(0, "lspeaker", 0.50) MCFG_SOUND_ROUTE(1, "rspeaker", 0.50) MCFG_OKIM6295_ADD("oki", XTAL_4_096MHz/4, OKIM6295_PIN7_HIGH) // Need to verify MCFG_SOUND_ROUTE(ALL_OUTPUTS, "lspeaker", 0.2) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "rspeaker", 0.2) MACHINE_CONFIG_END ROM_START( silvmil ) ROM_REGION( 0x100000, "maincpu", 0 ) /* 68k */ ROM_LOAD16_BYTE( "d-13_u3.bin", 0x00000, 0x40000, CRC(46106c59) SHA1(ab965c1ea9ce89a67875530d76ac2bde7fd13e13) ) ROM_LOAD16_BYTE( "d-14_u2.bin", 0x00001, 0x40000, CRC(65421eca) SHA1(5258df7ceab6427e1b6f93f51896f7f3a651300c) ) ROM_REGION( 0x10000, "audiocpu", 0 ) /* z80 */ ROM_LOAD( "d-11_uz02.bin", 0x00000, 0x10000, CRC(b41289e6) SHA1(edf83206de418757a154d5a085b0b2fd97a77807) ) ROM_REGION( 0x40000, "oki", 0 ) /* samples */ ROM_LOAD( "d-12_uz1.bin", 0x00000, 0x40000, CRC(a170d8a9) SHA1(77339382570498f9f6eeb80595bfe72fc853fd68)) ROM_REGION( 0x400000, "gfx1", 0 ) ROM_LOAD16_BYTE( "d-16_u41.bin", 0x000000, 0x20000, CRC(ff5ea605) SHA1(38e32f391b211ed280dd7f05eb13301cb9ddf57c) ) ROM_CONTINUE ( 0x200000,0x20000 ) ROM_CONTINUE ( 0x040000,0x20000 ) ROM_CONTINUE ( 0x240000,0x20000 ) ROM_LOAD16_BYTE( "d-15_u42.bin", 0x000001, 0x20000, CRC(5f72d6cc) SHA1(88641a42c0fc6e84ffd009fb40d0b1774e8c0630) ) ROM_CONTINUE ( 0x200001,0x20000 ) ROM_CONTINUE ( 0x040001,0x20000 ) ROM_CONTINUE ( 0x240001,0x20000 ) ROM_LOAD16_BYTE( "d-20_pat01.bin", 0x080001, 0x20000, CRC(cc4d3b49) SHA1(a2ef0d949443c9133487f83d5879daabca688d66) ) ROM_CONTINUE ( 0x280001,0x20000 ) ROM_CONTINUE ( 0x0c0001,0x20000 ) ROM_CONTINUE ( 0x2c0001,0x20000 ) ROM_LOAD16_BYTE( "d-17_pat11.bin", 0x080000, 0x20000, CRC(2facb3f1) SHA1(ea380345e1f15451e1ded5de178ec4648c33e2f0) ) ROM_CONTINUE ( 0x280000,0x20000 ) ROM_CONTINUE ( 0x0c0000,0x20000 ) ROM_CONTINUE ( 0x2c0000,0x20000 ) ROM_LOAD16_BYTE( "d-17_pat02.bin", 0x100001, 0x20000, CRC(addc5261) SHA1(73c5e29a39364c286a110678eb65b85ab1cf97d4) ) ROM_CONTINUE ( 0x300001,0x20000) ROM_CONTINUE ( 0x140001,0x20000) ROM_CONTINUE ( 0x340001,0x20000) ROM_LOAD16_BYTE( "d-18_pat12.bin", 0x100000, 0x20000, CRC(a429b237) SHA1(ab709b93c5232f3fdbb60954f93d04bb3828ac76) ) ROM_CONTINUE ( 0x300000,0x20000) ROM_CONTINUE ( 0x140000,0x20000) ROM_CONTINUE ( 0x340000,0x20000) ROM_LOAD16_BYTE( "d-18_pat03.bin", 0x180001, 0x20000, CRC(36b9c407) SHA1(291e29a2f5de6db639988e99a010fcac233387ad) ) ROM_CONTINUE ( 0x380001,0x20000) ROM_CONTINUE ( 0x1c0001,0x20000) ROM_CONTINUE ( 0x3c0001,0x20000) ROM_LOAD16_BYTE( "d-19_pat13.bin", 0x180000, 0x20000, CRC(af2507ce) SHA1(280b3995a6164e4ef834247d637ee46c61bf9950) ) ROM_CONTINUE ( 0x380000,0x20000) ROM_CONTINUE ( 0x1c0000,0x20000) ROM_CONTINUE ( 0x3c0000,0x20000) ROM_REGION( 0x200000, "gfx2", 0 ) /* sprites */ ROM_LOAD16_BYTE( "d-17_u53.bin", 0x000000, 0x80000, CRC(4d177bda) SHA1(980205dead92830362095dac61d2e99bf62f0f5d) ) ROM_LOAD16_BYTE( "d-18_u54.bin", 0x000001, 0x80000, CRC(218c4471) SHA1(6a64d7a6c18eb078a5848f4f97aa0c65e74ad3d9) ) ROM_LOAD16_BYTE( "d-19_u55.bin", 0x100000, 0x80000, CRC(59507521) SHA1(8e0eaf8ecdfcaefccb5657278ecb2fea7489afb3) ) ROM_LOAD16_BYTE( "d-20_u56.bin", 0x100001, 0x80000, CRC(e67c2c7d) SHA1(cddfd6a3d934e71853af62e3d2bf312618c9b4ff) ) ROM_END static void tumblepb_gfx1_rearrange(running_machine &machine) { UINT8 *rom = machine.root_device().memregion("gfx1")->base(); int len = machine.root_device().memregion("gfx1")->bytes(); int i; /* gfx data is in the wrong order */ for (i = 0; i < len; i++) { if ((i & 0x20) == 0) { int t = rom[i]; rom[i] = rom[i + 0x20]; rom[i + 0x20] = t; } } /* low/high half are also swapped */ for (i = 0; i < len / 2; i++) { int t = rom[i]; rom[i] = rom[i + len / 2]; rom[i + len / 2] = t; } } DRIVER_INIT_MEMBER(silvmil_state,silvmil) { tumblepb_gfx1_rearrange(machine()); } GAME( 1995, silvmil, 0, silvmil, silvmil, silvmil_state, silvmil, ROT270, "Para", "Silver Millennium", 0 )