/* Aquarium (c)1996 Excellent Systems */ /* the hardware is similar to gcpinbal.c, probably should merge it at some point */ /* AQUARIUM EXCELLENT SYSTEMS ES-9206 3 14.318MHz 7 ES 9207 8 ES 9303 ES 9208 2 AQUARF1 68000-16 6 SW1 YM2151 M6295 4 32MHz 1 Z80-6 5 SW2Q To Do: - Merge with gcpinbal.c (and clean up gcpinbal.c) Notes: - A bug in the program code causes the OKI to be reset on the very first coin inserted. - The current dump is Japanese. The game also includes English text, so it may have been released overseas too. Use cheat/debugger and set RAM[0x000a5c / 2] to 1 to be able to change the game to English. */ #include "emu.h" #include "cpu/z80/z80.h" #include "cpu/m68000/m68000.h" #include "sound/2151intf.h" #include "sound/okim6295.h" #include "includes/aquarium.h" READ16_MEMBER(aquarium_state::aquarium_coins_r) { int data; data = (ioport("SYSTEM")->read() & 0x7fff); data |= m_aquarium_snd_ack; m_aquarium_snd_ack = 0; return data; } WRITE8_MEMBER(aquarium_state::aquarium_snd_ack_w) { m_aquarium_snd_ack = 0x8000; } WRITE16_MEMBER(aquarium_state::aquarium_sound_w) { // popmessage("sound write %04x",data); soundlatch_byte_w(space, 1, data & 0xff); m_audiocpu->set_input_line(INPUT_LINE_NMI, PULSE_LINE ); } WRITE8_MEMBER(aquarium_state::aquarium_z80_bank_w) { membank("bank1")->set_entry(data & 0x07); } UINT8 aquarium_state::aquarium_snd_bitswap( UINT8 scrambled_data ) { UINT8 data = 0; data |= ((scrambled_data & 0x01) << 7); data |= ((scrambled_data & 0x02) << 5); data |= ((scrambled_data & 0x04) << 3); data |= ((scrambled_data & 0x08) << 1); data |= ((scrambled_data & 0x10) >> 1); data |= ((scrambled_data & 0x20) >> 3); data |= ((scrambled_data & 0x40) >> 5); data |= ((scrambled_data & 0x80) >> 7); return data; } READ8_MEMBER(aquarium_state::aquarium_oki_r) { okim6295_device *oki = machine().device("oki"); return aquarium_snd_bitswap(oki->read(space, offset)); } WRITE8_MEMBER(aquarium_state::aquarium_oki_w) { logerror("%s:Writing %04x to the OKI M6295\n", machine().describe_context(), aquarium_snd_bitswap(data)); okim6295_device *oki = machine().device("oki"); oki->write(space, offset, (aquarium_snd_bitswap(data))); } static ADDRESS_MAP_START( main_map, AS_PROGRAM, 16, aquarium_state ) AM_RANGE(0x000000, 0x07ffff) AM_ROM AM_RANGE(0xc00000, 0xc00fff) AM_RAM_WRITE(aquarium_mid_videoram_w) AM_SHARE("mid_videoram") AM_RANGE(0xc01000, 0xc01fff) AM_RAM_WRITE(aquarium_bak_videoram_w) AM_SHARE("bak_videoram") AM_RANGE(0xc02000, 0xc03fff) AM_RAM_WRITE(aquarium_txt_videoram_w) AM_SHARE("txt_videoram") AM_RANGE(0xc80000, 0xc81fff) AM_RAM AM_SHARE("spriteram") AM_RANGE(0xd00000, 0xd00fff) AM_RAM_WRITE(paletteram_RRRRGGGGBBBBRGBx_word_w) AM_SHARE("paletteram") AM_RANGE(0xd80014, 0xd8001f) AM_WRITEONLY AM_SHARE("scroll") AM_RANGE(0xd80068, 0xd80069) AM_WRITENOP /* probably not used */ AM_RANGE(0xd80080, 0xd80081) AM_READ_PORT("DSW") AM_RANGE(0xd80082, 0xd80083) AM_READNOP /* stored but not read back ? check code at 0x01f440 */ AM_RANGE(0xd80084, 0xd80085) AM_READ_PORT("INPUTS") AM_RANGE(0xd80086, 0xd80087) AM_READ(aquarium_coins_r) AM_RANGE(0xd80088, 0xd80089) AM_WRITENOP /* ?? video related */ AM_RANGE(0xd8008a, 0xd8008b) AM_WRITE(aquarium_sound_w) AM_RANGE(0xff0000, 0xffffff) AM_RAM ADDRESS_MAP_END static ADDRESS_MAP_START( snd_map, AS_PROGRAM, 8, aquarium_state ) AM_RANGE(0x0000, 0x3fff) AM_ROM AM_RANGE(0x7800, 0x7fff) AM_RAM AM_RANGE(0x8000, 0xffff) AM_ROMBANK("bank1") ADDRESS_MAP_END static ADDRESS_MAP_START( snd_portmap, AS_IO, 8, aquarium_state ) ADDRESS_MAP_GLOBAL_MASK(0xff) AM_RANGE(0x00, 0x01) AM_DEVREADWRITE("ymsnd", ym2151_device, read, write) AM_RANGE(0x02, 0x02) AM_READWRITE(aquarium_oki_r, aquarium_oki_w) AM_RANGE(0x04, 0x04) AM_READ(soundlatch_byte_r) AM_RANGE(0x06, 0x06) AM_WRITE(aquarium_snd_ack_w) AM_RANGE(0x08, 0x08) AM_WRITE(aquarium_z80_bank_w) ADDRESS_MAP_END static INPUT_PORTS_START( aquarium ) PORT_START("DSW") 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( Hardest ) ) PORT_DIPNAME( 0x000c, 0x000c, "Winning Rounds (Player VS CPU)" ) PORT_DIPLOCATION("SW1:3,4") PORT_DIPSETTING( 0x000c, "1/1" ) PORT_DIPSETTING( 0x0008, "2/3" ) PORT_DIPSETTING( 0x0004, "3/5" ) // PORT_DIPSETTING( 0x0000, "1/1" ) /* Not used or listed in manual */ PORT_DIPNAME( 0x0030, 0x0030, "Winning Rounds (Player VS Player)" ) PORT_DIPLOCATION("SW1:5,6") PORT_DIPSETTING( 0x0030, "1/1" ) PORT_DIPSETTING( 0x0020, "2/3" ) PORT_DIPSETTING( 0x0010, "3/5" ) // PORT_DIPSETTING( 0x0000, "1/1" ) /* Not used or listed in manual */ PORT_DIPUNUSED_DIPLOC( 0x0040, 0x0040, "SW1:7" ) /* Listed in the manual as always OFF */ PORT_DIPUNUSED_DIPLOC( 0x0080, 0x0080, "SW1:8" ) /* Listed in the manual as always OFF */ PORT_DIPNAME( 0x0700, 0x0700, DEF_STR( Coinage ) ) PORT_DIPLOCATION("SW2:1,2,3") PORT_DIPSETTING( 0x0000, DEF_STR( 5C_1C ) ) PORT_DIPSETTING( 0x0100, DEF_STR( 4C_1C ) ) PORT_DIPSETTING( 0x0200, DEF_STR( 3C_1C ) ) PORT_DIPSETTING( 0x0300, DEF_STR( 2C_1C ) ) PORT_DIPSETTING( 0x0700, DEF_STR( 1C_1C ) ) PORT_DIPSETTING( 0x0600, DEF_STR( 1C_2C ) ) PORT_DIPSETTING( 0x0500, DEF_STR( 1C_3C ) ) PORT_DIPSETTING( 0x0400, DEF_STR( 1C_4C ) ) PORT_DIPUNUSED_DIPLOC( 0x0800, 0x0800, "SW2:4" ) /* Listed in the manual as always OFF */ PORT_DIPNAME( 0x1000, 0x1000, DEF_STR( Flip_Screen ) ) PORT_DIPLOCATION("SW2:5") PORT_DIPSETTING( 0x1000, DEF_STR( Off ) ) PORT_DIPSETTING( 0x0000, DEF_STR( On ) ) PORT_DIPNAME( 0x2000, 0x2000, DEF_STR( Demo_Sounds ) ) PORT_DIPLOCATION("SW2:6") PORT_DIPSETTING( 0x0000, DEF_STR( Off ) ) PORT_DIPSETTING( 0x2000, DEF_STR( On ) ) PORT_DIPUNUSED_DIPLOC( 0x4000, 0x4000, "SW2:7" ) /* Listed in the manual as always OFF */ PORT_DIPUNUSED_DIPLOC( 0x8000, 0x8000, "SW2:8" ) /* Listed in the manual as always OFF */ PORT_START("INPUTS") PORT_BIT( 0x0001, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_8WAY PORT_PLAYER(2) PORT_BIT( 0x0002, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_PLAYER(2) PORT_BIT( 0x0004, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_PLAYER(2) PORT_BIT( 0x0008, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_PLAYER(2) PORT_BIT( 0x0010, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(2) PORT_BIT( 0x0020, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_PLAYER(2) PORT_BIT( 0x0040, IP_ACTIVE_LOW, IPT_UNKNOWN ) /* used in testmode, but not in game? */ PORT_BIT( 0x0080, IP_ACTIVE_LOW, IPT_START2 ) PORT_BIT( 0x0100, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_8WAY PORT_PLAYER(1) PORT_BIT( 0x0200, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_PLAYER(1) PORT_BIT( 0x0400, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_PLAYER(1) PORT_BIT( 0x0800, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_PLAYER(1) PORT_BIT( 0x1000, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_PLAYER(1) PORT_BIT( 0x2000, IP_ACTIVE_LOW, IPT_BUTTON2 ) PORT_PLAYER(1) PORT_BIT( 0x4000, IP_ACTIVE_LOW, IPT_UNKNOWN ) /* used in testmode, but not in game? */ PORT_BIT( 0x8000, IP_ACTIVE_LOW, IPT_START1 ) PORT_START("SYSTEM") PORT_BIT( 0x00ff, IP_ACTIVE_LOW, IPT_UNUSED ) PORT_BIT( 0x0100, IP_ACTIVE_LOW, IPT_COIN2 ) PORT_BIT( 0x0200, IP_ACTIVE_LOW, IPT_COIN1 ) PORT_BIT( 0x0400, IP_ACTIVE_LOW, IPT_TILT ) PORT_BIT( 0x0800, IP_ACTIVE_LOW, IPT_SERVICE1 ) PORT_SERVICE( 0x1000, IP_ACTIVE_LOW ) PORT_BIT( 0x2000, IP_ACTIVE_LOW, IPT_UNUSED ) PORT_BIT( 0x4000, IP_ACTIVE_LOW, IPT_UNUSED ) PORT_BIT( 0x8000, IP_ACTIVE_LOW, IPT_UNKNOWN ) /* sound status */ INPUT_PORTS_END static const gfx_layout char5bpplayout = { 16,16, /* 16*16 characters */ RGN_FRAC(1,2), 5, /* 4 bits per pixel */ { RGN_FRAC(1,2), 0, 1, 2, 3 }, { 2*4, 3*4, 0*4, 1*4, 6*4, 7*4, 4*4, 5*4, 2*4+32, 3*4+32, 0*4+32, 1*4+32, 6*4+32, 7*4+32, 4*4+32, 5*4+32 }, { 0*64, 1*64, 2*64, 3*64, 4*64, 5*64, 6*64, 7*64, 8*64, 9*64, 10*64, 11*64, 12*64, 13*64, 14*64, 15*64 }, 128*8 /* every sprite takes 128 consecutive bytes */ }; static const gfx_layout char_8x8_layout = { 8,8, /* 8*8 characters */ RGN_FRAC(1,1), 4, /* 4 bits per pixel */ { 0, 1, 2, 3 }, { 2*4, 3*4, 0*4, 1*4, 6*4, 7*4, 4*4, 5*4 }, { 0*32, 1*32, 2*32, 3*32, 4*32, 5*32, 6*32, 7*32 }, 32*8 /* every sprite takes 32 consecutive bytes */ }; static const gfx_layout tilelayout = { 16,16, /* 16*16 sprites */ RGN_FRAC(1,1), 4, /* 4 bits per pixel */ { 48, 16, 32, 0 }, { 8, 9, 10, 11, 12, 13, 14, 15, 0, 1, 2, 3, 4, 5, 6, 7 }, { 0*64, 1*64, 2*64, 3*64, 4*64, 5*64, 6*64, 7*64, 8*64, 9*64, 10*64, 11*64, 12*64, 13*64, 14*64, 15*64 }, 128*8 /* every sprite takes 128 consecutive bytes */ }; DRIVER_INIT_MEMBER(aquarium_state,aquarium) { UINT8 *Z80 = machine().root_device().memregion("audiocpu")->base(); /* The BG tiles are 5bpp, this rearranges the data from the roms containing the 1bpp data so we can decode it correctly */ UINT8 *DAT2 = machine().root_device().memregion("gfx1")->base() + 0x080000; UINT8 *DAT = machine().root_device().memregion("user1")->base(); int len = 0x0200000; for (len = 0; len < 0x020000; len++) { DAT2[len * 4 + 1] = (DAT[len] & 0x80) << 0; DAT2[len * 4 + 1] |= (DAT[len] & 0x40) >> 3; DAT2[len * 4 + 0] = (DAT[len] & 0x20) << 2; DAT2[len * 4 + 0] |= (DAT[len] & 0x10) >> 1; DAT2[len * 4 + 3] = (DAT[len] & 0x08) << 4; DAT2[len * 4 + 3] |= (DAT[len] & 0x04) << 1; DAT2[len * 4 + 2] = (DAT[len] & 0x02) << 6; DAT2[len * 4 + 2] |= (DAT[len] & 0x01) << 3; } DAT2 = machine().root_device().memregion("gfx4")->base() + 0x080000; DAT = machine().root_device().memregion("user2")->base(); for (len = 0; len < 0x020000; len++) { DAT2[len * 4 + 1] = (DAT[len] & 0x80) << 0; DAT2[len * 4 + 1] |= (DAT[len] & 0x40) >> 3; DAT2[len * 4 + 0] = (DAT[len] & 0x20) << 2; DAT2[len * 4 + 0] |= (DAT[len] & 0x10) >> 1; DAT2[len * 4 + 3] = (DAT[len] & 0x08) << 4; DAT2[len * 4 + 3] |= (DAT[len] & 0x04) << 1; DAT2[len * 4 + 2] = (DAT[len] & 0x02) << 6; DAT2[len * 4 + 2] |= (DAT[len] & 0x01) << 3; } /* configure and set up the sound bank */ machine().root_device().membank("bank1")->configure_entries(0, 7, &Z80[0x18000], 0x8000); machine().root_device().membank("bank1")->set_entry(1); } static GFXDECODE_START( aquarium ) GFXDECODE_ENTRY( "gfx3", 0, tilelayout, 0x300, 32 ) GFXDECODE_ENTRY( "gfx1", 0, char5bpplayout, 0x400, 32 ) GFXDECODE_ENTRY( "gfx2", 0, char_8x8_layout, 0x200, 32 ) GFXDECODE_ENTRY( "gfx4", 0, char5bpplayout, 0x400, 32 ) GFXDECODE_END void aquarium_state::machine_start() { m_audiocpu = machine().device("audiocpu"); save_item(NAME(m_aquarium_snd_ack)); } void aquarium_state::machine_reset() { m_aquarium_snd_ack = 0; } static MACHINE_CONFIG_START( aquarium, aquarium_state ) /* basic machine hardware */ MCFG_CPU_ADD("maincpu", M68000, XTAL_32MHz/2) // clock not verified on pcb MCFG_CPU_PROGRAM_MAP(main_map) MCFG_CPU_VBLANK_INT_DRIVER("screen", aquarium_state, irq1_line_hold) MCFG_CPU_ADD("audiocpu", Z80, XTAL_32MHz/6) // clock not verified on pcb MCFG_CPU_PROGRAM_MAP(snd_map) MCFG_CPU_IO_MAP(snd_portmap) /* 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(2*8, 42*8-1, 2*8, 34*8-1) MCFG_SCREEN_UPDATE_DRIVER(aquarium_state, screen_update_aquarium) MCFG_GFXDECODE(aquarium) MCFG_PALETTE_LENGTH(0x1000/2) /* sound hardware */ MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker") MCFG_YM2151_ADD("ymsnd", XTAL_14_31818MHz/4) // clock not verified on pcb MCFG_YM2151_IRQ_HANDLER(INPUTLINE("audiocpu", 0)) MCFG_SOUND_ROUTE(0, "lspeaker", 0.45) MCFG_SOUND_ROUTE(1, "rspeaker", 0.45) MCFG_OKIM6295_ADD("oki", 1122000, OKIM6295_PIN7_HIGH) // clock frequency & pin 7 not verified MCFG_SOUND_ROUTE(ALL_OUTPUTS, "lspeaker", 0.47) MCFG_SOUND_ROUTE(ALL_OUTPUTS, "rspeaker", 0.47) MACHINE_CONFIG_END ROM_START( aquarium ) ROM_REGION( 0x080000, "maincpu", 0 ) /* 68000 code */ ROM_LOAD16_WORD_SWAP( "aquar3", 0x000000, 0x080000, CRC(344509a1) SHA1(9deb610732dee5066b3225cd7b1929b767579235) ) ROM_REGION( 0x40000, "audiocpu", 0 ) /* z80 (sound) code */ ROM_LOAD( "aquar5", 0x000000, 0x40000, CRC(fa555be1) SHA1(07236f2b2ba67e92984b9ddf4a8154221d535245) ) ROM_REGION( 0x100000, "gfx1", 0 ) /* BG Tiles */ ROM_LOAD( "aquar1", 0x000000, 0x080000, CRC(575df6ac) SHA1(071394273e512666fe124facdd8591a767ad0819) ) // 4bpp /* data is expanded here from USER1 */ ROM_REGION( 0x100000, "user1", 0 ) /* BG Tiles */ ROM_LOAD( "aquar6", 0x000000, 0x020000, CRC(9065b146) SHA1(befc218bbcd63453ea7eb8f976796d36f2b2d552) ) // 1bpp ROM_REGION( 0x100000, "gfx4", 0 ) /* BG Tiles */ ROM_LOAD( "aquar8", 0x000000, 0x080000, CRC(915520c4) SHA1(308207cb20f1ed6df365710c808644a6e4f07614) ) // 4bpp /* data is expanded here from USER2 */ ROM_REGION( 0x100000, "user2", 0 ) /* BG Tiles */ ROM_LOAD( "aquar7", 0x000000, 0x020000, CRC(b96b2b82) SHA1(2b719d0c185d1eca4cd9ea66bed7842b74062288) ) // 1bpp ROM_REGION( 0x060000, "gfx2", 0 ) /* FG Tiles */ ROM_LOAD( "aquar2", 0x000000, 0x020000, CRC(aa071b05) SHA1(517415bfd8e4dd51c6eb03a25c706f8613d34a09) ) ROM_REGION( 0x200000, "gfx3", 0 ) /* Sprites? */ ROM_LOAD( "aquarf1", 0x000000, 0x0100000, CRC(14758b3c) SHA1(b372ccb42acb55a3dd15352a9d4ed576878a6731) ) ROM_REGION( 0x100000, "oki", 0 ) /* Samples */ ROM_LOAD( "aquar4", 0x000000, 0x80000, CRC(9a4af531) SHA1(bb201b7a6c9fd5924a0d79090257efffd8d4aba1) ) ROM_END GAME( 1996, aquarium, 0, aquarium, aquarium, aquarium_state, aquarium, ROT0, "Excellent System", "Aquarium (Japan)", GAME_SUPPORTS_SAVE | GAME_NO_COCKTAIL )