Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-05-18 19:49:35 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity
c7b8147628
mame/src/mame/drivers/r2dtank.cpp
cam900 c7b8147628 ay8910.cpp : Updates 
Use shorter / correct type values, Remove unnecessary arguments in handlers, Duplicates
device/bus/coco/cococart.cpp : Allow various types of delegates for install handler
5clown.cpp : Remove unnecessary arguments in some handler
kchamp.cpp : Remove unnecessary arguments in some handler
2019-02-15 16:04:20 +09:00

541 lines
15 KiB
C++
Raw Blame History

// license:BSD-3-Clause
// copyright-holders:David Haywood, Pierpaolo Prazzoli
/*******************************************************************
R2D Tank (c) 1980 Sigma Ent. Inc.
driver by: David Haywood & Pierpaolo Prazzoli
from the readme
----------------------------------------------------
Orca board number OVG-17A
r2d1.1c is ROM #1 at board position 1C, and so on.
1 = 2716
2 = 2732
3 = 2732
4 = 2732
5 = 2716 Sound
CPU = 6809
other = HD46505SP (6845) (CRT controller)
other = MB14282(x2)
other = HD468458SP
other = MB14282
other = MB14368
other = HD6821 (x2) (PIA)
other = HD46802
other = M5L8226 (x2)
RAM = 4116 (x11)
----------------------------------------------------
XTAL values appear to be 3579.545 (X1) and 11.200 (X2).
********************************************************************/
#include "emu.h"
#include "cpu/m6800/m6800.h"
#include "cpu/m6809/m6809.h"
#include "machine/6821pia.h"
#include "machine/74123.h"
#include "machine/gen_latch.h"
#include "machine/nvram.h"
#include "machine/rescap.h"
#include "sound/ay8910.h"
#include "video/mc6845.h"
#include "emupal.h"
#include "screen.h"
#include "speaker.h"
#define LOG_AUDIO_COMM (0)
#define MAIN_CPU_MASTER_CLOCK (11.2_MHz_XTAL)
#define PIXEL_CLOCK (MAIN_CPU_MASTER_CLOCK / 2)
#define CRTC_CLOCK (MAIN_CPU_MASTER_CLOCK / 16)
class r2dtank_state : public driver_device
{
public:
r2dtank_state(const machine_config &mconfig, device_type type, const char *tag) :
driver_device(mconfig, type, tag),
m_videoram(*this, "videoram"),
m_colorram(*this, "colorram"),
m_maincpu(*this, "maincpu"),
m_palette(*this, "palette"),
m_audiocpu(*this, "audiocpu"),
m_soundlatch(*this, "soundlatch"),
m_soundlatch2(*this, "soundlatch2"),
m_pia_main(*this, "pia_main"),
m_pia_audio(*this, "pia_audio"),
m_ay1(*this, "ay1"),
m_ay2(*this, "ay2")
{ }
void r2dtank(machine_config &config);
DECLARE_CUSTOM_INPUT_MEMBER(get_ttl74123_output);
protected:
virtual void machine_start() override;
private:
required_shared_ptr<uint8_t> m_videoram;
required_shared_ptr<uint8_t> m_colorram;
required_device<cpu_device> m_maincpu;
required_device<palette_device> m_palette;
required_device<cpu_device> m_audiocpu;
required_device<generic_latch_8_device> m_soundlatch;
required_device<generic_latch_8_device> m_soundlatch2;
required_device<pia6821_device> m_pia_main;
required_device<pia6821_device> m_pia_audio;
required_device<ay8910_device> m_ay1;
required_device<ay8910_device> m_ay2;
uint8_t m_flipscreen;
uint32_t m_ttl74123_output;
uint8_t m_AY8910_selected;
DECLARE_READ8_MEMBER(audio_command_r);
DECLARE_WRITE8_MEMBER(audio_command_w);
DECLARE_READ8_MEMBER(audio_answer_r);
DECLARE_WRITE8_MEMBER(audio_answer_w);
DECLARE_WRITE_LINE_MEMBER(main_cpu_irq);
DECLARE_WRITE8_MEMBER(AY8910_select_w);
DECLARE_READ8_MEMBER(AY8910_port_r);
DECLARE_WRITE8_MEMBER(AY8910_port_w);
DECLARE_WRITE_LINE_MEMBER(flipscreen_w);
DECLARE_WRITE8_MEMBER(pia_comp_w);
DECLARE_WRITE_LINE_MEMBER(ttl74123_output_changed);
MC6845_UPDATE_ROW(crtc_update_row);
void r2dtank_audio_map(address_map &map);
void r2dtank_main_map(address_map &map);
};
/*************************************
*
* Interrupt generation
*
*************************************/
WRITE_LINE_MEMBER(r2dtank_state::main_cpu_irq)
{
int combined_state = m_pia_main->irq_a_state() | m_pia_main->irq_b_state() |
m_pia_audio->irq_a_state() | m_pia_audio->irq_b_state();
m_maincpu->set_input_line(M6809_IRQ_LINE, combined_state ? ASSERT_LINE : CLEAR_LINE);
}
/*************************************
*
* Audio system - CPU 1
*
*************************************/
READ8_MEMBER(r2dtank_state::audio_command_r)
{
uint8_t ret = m_soundlatch->read(space, 0);
if (LOG_AUDIO_COMM) logerror("%08X CPU#1 Audio Command Read: %x\n", m_audiocpu->pc(), ret);
return ret;
}
WRITE8_MEMBER(r2dtank_state::audio_command_w)
{
m_soundlatch->write(space, 0, ~data);
m_audiocpu->set_input_line(M6802_IRQ_LINE, HOLD_LINE);
if (LOG_AUDIO_COMM) logerror("%08X CPU#0 Audio Command Write: %x\n", m_maincpu->pc(), data^0xff);
}
READ8_MEMBER(r2dtank_state::audio_answer_r)
{
uint8_t ret = m_soundlatch2->read(space, 0);
if (LOG_AUDIO_COMM) logerror("%08X CPU#0 Audio Answer Read: %x\n", m_maincpu->pc(), ret);
return ret;
}
WRITE8_MEMBER(r2dtank_state::audio_answer_w)
{
/* HACK - prevents lock-up, but causes game to end some in-between sreens prematurely */
if (m_audiocpu->pc() == 0xfb12)
data = 0x00;
m_soundlatch2->write(space, 0, data);
m_maincpu->set_input_line(M6809_IRQ_LINE, HOLD_LINE);
if (LOG_AUDIO_COMM) logerror("%08X CPU#1 Audio Answer Write: %x\n", m_audiocpu->pc(), data);
}
WRITE8_MEMBER(r2dtank_state::AY8910_select_w)
{
/* not sure what all the bits mean:
D0 - ????? definetely used
D1 - not used?
D2 - selects ay8910 control or port
D3 - selects ay8910 #0
D4 - selects ay8910 #1
D5-D7 - not used */
m_AY8910_selected = data;
if (LOG_AUDIO_COMM) logerror("%s: CPU#1 AY8910_select_w: %x\n", machine().describe_context(), data);
}
READ8_MEMBER(r2dtank_state::AY8910_port_r)
{
uint8_t ret = 0;
if (m_AY8910_selected & 0x08)
ret = m_ay1->data_r();
if (m_AY8910_selected & 0x10)
ret = m_ay2->data_r();
return ret;
}
WRITE8_MEMBER(r2dtank_state::AY8910_port_w)
{
if (m_AY8910_selected & 0x08)
m_ay1->data_address_w(m_AY8910_selected >> 2, data);
if (m_AY8910_selected & 0x10)
m_ay2->data_address_w(m_AY8910_selected >> 2, data);
}
/*************************************
*
* 74123
*
* This timer is responsible for
* delaying the PIA1's port input.
* This delay ensures that
* CA1 is only changed in the VBLANK
* region, but not in HBLANK
*
*************************************/
WRITE_LINE_MEMBER(r2dtank_state::ttl74123_output_changed)
{
m_pia_main->ca1_w(state);
m_ttl74123_output = state;
}
CUSTOM_INPUT_MEMBER(r2dtank_state::get_ttl74123_output)
{
return m_ttl74123_output;
}
/*************************************
*
* Machine start
*
*************************************/
void r2dtank_state::machine_start()
{
/* setup for save states */
save_item(NAME(m_flipscreen));
save_item(NAME(m_ttl74123_output));
save_item(NAME(m_AY8910_selected));
}
/*************************************
*
* Video system
*
*************************************/
WRITE_LINE_MEMBER(r2dtank_state::flipscreen_w)
{
m_flipscreen = !state;
}
MC6845_UPDATE_ROW( r2dtank_state::crtc_update_row )
{
uint8_t x = 0;
for (uint8_t cx = 0; cx < x_count; cx++)
{
uint8_t data, fore_color;
/* the memory is hooked up to the MA, RA lines this way */
offs_t offs = ((ma << 3) & 0x1f00) |
((ra << 5) & 0x00e0) |
((ma << 0) & 0x001f);
if (m_flipscreen)
offs = offs ^ 0x1fff;
data = m_videoram[offs];
fore_color = (m_colorram[offs] >> 5) & 0x07;
for (int i = 0; i < 8; i++)
{
uint8_t bit, color;
if (m_flipscreen)
{
bit = data & 0x01;
data = data >> 1;
}
else
{
bit = data & 0x80;
data = data << 1;
}
color = bit ? fore_color : 0;
bitmap.pix32(y, x) = m_palette->pen_color(color);
x = x + 1;
}
ma = ma + 1;
}
}
/*************************************
*
* Memory handlers
*
*************************************/
WRITE8_MEMBER(r2dtank_state::pia_comp_w)
{
m_pia_main->write(machine().dummy_space(), offset, ~data);
}
void r2dtank_state::r2dtank_main_map(address_map &map)
{
map(0x0000, 0x1fff).ram().share("videoram");
map(0x2000, 0x3fff).ram();
map(0x4000, 0x5fff).ram().share("colorram");
map(0x6000, 0x7fff).ram();
map(0x8000, 0x8003).r("pia_main", FUNC(pia6821_device::read)).w(FUNC(r2dtank_state::pia_comp_w));
map(0x8004, 0x8004).rw(FUNC(r2dtank_state::audio_answer_r), FUNC(r2dtank_state::audio_command_w));
map(0xb000, 0xb000).w("crtc", FUNC(mc6845_device::address_w));
map(0xb001, 0xb001).w("crtc", FUNC(mc6845_device::register_w));
map(0xc000, 0xc007).ram().share("nvram");
map(0xc800, 0xffff).rom();
}
void r2dtank_state::r2dtank_audio_map(address_map &map)
{
map(0x0000, 0x007f).ram(); /* internal RAM */
map(0xd000, 0xd003).rw("pia_audio", FUNC(pia6821_device::read), FUNC(pia6821_device::write));
map(0xf000, 0xf000).rw(FUNC(r2dtank_state::audio_command_r), FUNC(r2dtank_state::audio_answer_w));
map(0xf800, 0xffff).rom();
}
/*************************************
*
* Port definition
*
*************************************/
static INPUT_PORTS_START( r2dtank )
PORT_START("IN0")
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_COIN1 )
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_COIN2 )
PORT_SERVICE_NO_TOGGLE(0x04, IP_ACTIVE_LOW)
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_BUTTON1 )
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_BUTTON1 ) PORT_COCKTAIL
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_START1 )
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_START2 )
PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_CUSTOM ) PORT_CUSTOM_MEMBER(DEVICE_SELF, r2dtank_state,get_ttl74123_output, nullptr)
PORT_START("IN1")
PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT ) PORT_COCKTAIL
PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT ) PORT_COCKTAIL
PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_JOYSTICK_LEFT )
PORT_BIT( 0x08, IP_ACTIVE_LOW, IPT_JOYSTICK_RIGHT )
PORT_BIT( 0x10, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN ) PORT_COCKTAIL
PORT_BIT( 0x20, IP_ACTIVE_LOW, IPT_JOYSTICK_UP ) PORT_COCKTAIL
PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_JOYSTICK_UP )
PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_JOYSTICK_DOWN )
PORT_START("DSWA")
PORT_DIPNAME( 0x01, 0x01, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x01, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x02, 0x02, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x02, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x04, 0x04, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x04, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x08, 0x00, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x08, DEF_STR( Off ) )
PORT_DIPSETTING( 0x00, DEF_STR( On ) )
PORT_DIPNAME( 0x10, 0x00, DEF_STR( Lives ) )
PORT_DIPSETTING( 0x00, "3" )
PORT_DIPSETTING( 0x10, "4" )
PORT_DIPNAME( 0x20, 0x20, DEF_STR( Cabinet ) )
PORT_DIPSETTING( 0x20, DEF_STR( Upright ) )
PORT_DIPSETTING( 0x00, DEF_STR( Cocktail ) )
PORT_DIPNAME( 0xc0, 0x00, DEF_STR( Coinage ) )
PORT_DIPSETTING( 0x40, DEF_STR( 2C_1C ) )
PORT_DIPSETTING( 0x00, DEF_STR( 1C_1C ) )
PORT_DIPSETTING( 0x80, DEF_STR( 1C_2C ) )
PORT_DIPSETTING( 0xc0, DEF_STR( Free_Play ) )
PORT_START("DSWB")
PORT_DIPNAME( 0x01, 0x00, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x01, DEF_STR( On ) )
PORT_DIPNAME( 0x02, 0x00, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x02, DEF_STR( On ) )
PORT_DIPNAME( 0x04, 0x00, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x04, DEF_STR( On ) )
PORT_DIPNAME( 0x08, 0x00, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x08, DEF_STR( On ) )
PORT_DIPNAME( 0x10, 0x00, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x10, DEF_STR( On ) )
PORT_DIPNAME( 0x20, 0x00, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x20, DEF_STR( On ) )
PORT_DIPNAME( 0x40, 0x00, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x40, DEF_STR( On ) )
PORT_DIPNAME( 0x80, 0x00, DEF_STR( Unknown ) )
PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
PORT_DIPSETTING( 0x80, DEF_STR( On ) )
INPUT_PORTS_END
/*************************************
*
* Machine driver
*
*************************************/
MACHINE_CONFIG_START(r2dtank_state::r2dtank)
MCFG_DEVICE_ADD("maincpu", MC6809, MAIN_CPU_MASTER_CLOCK / 4) // divider guessed
MCFG_DEVICE_PROGRAM_MAP(r2dtank_main_map)
MCFG_DEVICE_ADD("audiocpu", M6802, 3.579545_MHz_XTAL)
MCFG_DEVICE_PROGRAM_MAP(r2dtank_audio_map)
NVRAM(config, "nvram", nvram_device::DEFAULT_ALL_0);
/* video hardware */
MCFG_SCREEN_ADD("screen", RASTER)
MCFG_SCREEN_RAW_PARAMS(PIXEL_CLOCK, 360, 0, 256, 276, 0, 224)
MCFG_SCREEN_UPDATE_DEVICE("crtc", mc6845_device, screen_update)
PALETTE(config, m_palette, palette_device::BGR_3BIT);
mc6845_device &crtc(MC6845(config, "crtc", CRTC_CLOCK));
crtc.set_screen("screen");
crtc.set_show_border_area(false);
crtc.set_char_width(8);
crtc.set_update_row_callback(FUNC(r2dtank_state::crtc_update_row), this);
crtc.out_de_callback().set("74123", FUNC(ttl74123_device::a_w));
/* 74LS123 */
ttl74123_device &ttl74123(TTL74123(config, "74123", 0));
ttl74123.set_connection_type(TTL74123_GROUNDED); /* the hook up type */
ttl74123.set_resistor_value(RES_K(22)); /* resistor connected to RCext */
ttl74123.set_capacitor_value(CAP_U(0.01)); /* capacitor connected to Cext and RCext */
ttl74123.set_a_pin_value(1); /* A pin - driven by the CRTC */
ttl74123.set_b_pin_value(1); /* B pin - pulled high */
ttl74123.set_clear_pin_value(1); /* Clear pin - pulled high */
ttl74123.out_cb().set(FUNC(r2dtank_state::ttl74123_output_changed));
PIA6821(config, m_pia_main, 0);
m_pia_main->readpa_handler().set_ioport("IN0");
m_pia_main->readpb_handler().set_ioport("IN1");
m_pia_main->cb2_handler().set(FUNC(r2dtank_state::flipscreen_w));
m_pia_main->irqa_handler().set(FUNC(r2dtank_state::main_cpu_irq));
m_pia_main->irqb_handler().set(FUNC(r2dtank_state::main_cpu_irq));
PIA6821(config, m_pia_audio, 0);
m_pia_audio->readpa_handler().set(FUNC(r2dtank_state::AY8910_port_r));
m_pia_audio->writepa_handler().set(FUNC(r2dtank_state::AY8910_port_w));
m_pia_audio->writepb_handler().set(FUNC(r2dtank_state::AY8910_select_w));
m_pia_audio->irqa_handler().set(FUNC(r2dtank_state::main_cpu_irq));
m_pia_audio->irqb_handler().set(FUNC(r2dtank_state::main_cpu_irq));
/* audio hardware */
SPEAKER(config, "mono").front_center();
GENERIC_LATCH_8(config, m_soundlatch);
GENERIC_LATCH_8(config, m_soundlatch2);
AY8910(config, m_ay1, 3.579545_MHz_XTAL / 4); // probably E clock from MC6802
m_ay1->port_a_read_callback().set_ioport("DSWB");
m_ay1->add_route(ALL_OUTPUTS, "mono", 0.25);
AY8910(config, m_ay2, 3.579545_MHz_XTAL / 4);
m_ay2->port_a_read_callback().set_ioport("IN1");
m_ay2->port_b_read_callback().set_ioport("DSWA");
m_ay2->add_route(ALL_OUTPUTS, "mono", 0.25);
MACHINE_CONFIG_END
/*************************************
*
* ROM definition
*
*************************************/
ROM_START( r2dtank )
ROM_REGION( 0x10000, "maincpu", 0 )
ROM_LOAD( "r2d1.1c", 0xc800, 0x0800, CRC(20606a0f) SHA1(9a55e595c7ea332bdc89142338947be8a28a92a3) )
ROM_LOAD( "r2d2.1a", 0xd000, 0x1000, CRC(7561c67f) SHA1(cccc7bbd7975db340fe571a4c31c25b41b2563b8) )
ROM_LOAD( "r2d3.2c", 0xe000, 0x1000, CRC(fc53c538) SHA1(8f9a2edcf7a2cb2a8ddd084828b52f1bf45f434a) )
ROM_LOAD( "r2d4.2a", 0xf000, 0x1000, CRC(56636225) SHA1(dcfc6e29b4c51a45cfbecf6790b7d88b89af433b) )
ROM_REGION( 0x10000, "audiocpu", 0 )
ROM_LOAD( "r2d5.7l", 0xf800, 0x0800, CRC(c49bed15) SHA1(ffa635a65c024c532bb13fb91bbd3e54923e81bf) )
ROM_END
/*************************************
*
* Game driver
*
*************************************/
GAME( 1980, r2dtank, 0, r2dtank, r2dtank, r2dtank_state, empty_init, ROT270, "Sigma Enterprises Inc.", "R2D Tank", MACHINE_SUPPORTS_SAVE)
Reference in New Issue View Git Blame Copy Permalink