diff options
Diffstat (limited to 'src/mame/drivers/gamemachine.cpp')
-rw-r--r-- | src/mame/drivers/gamemachine.cpp | 419 |
1 files changed, 419 insertions, 0 deletions
diff --git a/src/mame/drivers/gamemachine.cpp b/src/mame/drivers/gamemachine.cpp new file mode 100644 index 00000000000..7f4ae26cdd9 --- /dev/null +++ b/src/mame/drivers/gamemachine.cpp @@ -0,0 +1,419 @@ +// license:BSD-3-Clause +// copyright-holders:hap +// thanks-to:Sean Riddle, Couriersud +/****************************************************************************** + +Waddingtons 2001: The Game Machine + +It's a tabletop electronic game machine + calculator. +It was possibly created by VTech, but they didn't distribute it by themselves +until later in 1980 as the Computer Game System. There's also a handheld version +"Mini Game Machine". VTech later made a sequel "Game Machine 2" with 5 games. + +hardware notes: +- Mostek MK3870 MCU, 2KB internal ROM +- 12 digits 7seg VFD panel +- MC1455P(555 timer) + bunch of discrete components for sound + +TODO: +- MCU frequency was measured approx 2.1MHz on its XTL2 pin, but considering that + the MK3870 has an internal /2 divider, this is way too slow when compared to + video references of the game + +******************************************************************************* + +After boot, press a number to start a game: +0: 4 Function Calculator (not a game) +1: Shooting Gallery +2: Black Jack +3: Code Hunter +4: Grand Prix + +Screen and keypad overlays were provided for each game, though the default keypad +labels already show the alternate functions. + +keypad reference (mapped to PC keyboard A-row and Z-row by default) + +Calculator: + [RET] [MS ] [MR ] [+/-] [. ] [+= ] [-= ] [x ] [/ ] [CL ] + [0 ] [1 ] [2 ] [3 ] [4 ] [5 ] [6 ] [7 ] [8 ] [9 ] + +Shooting Gallery: + [RET] [Cyc] [Zig] [Rnd] [ ] [ ] [ ] [ ] [ ] [ ] * Cyclic, Zigzag, Random + [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] * + any of 20 buttons for shooting target + +Black Jack: + [RET] [Dl ] [ ] [ ] [ ] [ ] [ ] [ ] [Hit] [Stn] * Deal, Hit, Stand + [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] + +Code Hunter: + [RET] [Sta] [Dis] [ ] [ ] [Ent] [ ] [Crs] [R< ] [R> ] * Start, Display, Enter, Cursor key, Review back, Review ahead + [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] + +Grand Prix: + [RET] [Go ] [ ] [ ] [ ] [ ] [ ] [Up ] [Up ] [Up ] + [Brk] [Gas] [ ] [ ] [ ] [ ] [ ] [Dwn] [Dwn] [Dwn] + +******************************************************************************/ + +#include "emu.h" +#include "cpu/f8/f8.h" +#include "machine/f3853.h" +#include "machine/timer.h" +#include "speaker.h" +#include "machine/netlist.h" +#include "netlist/devices/net_lib.h" +#include "tgm.lh" + +/* + * Netlist below provided under Creative Commons CC0 + */ + +static NETLIST_START(nl_gamemachine) + + /* Standard stuff */ + + SOLVER(Solver, 48000) + PARAM(Solver.ACCURACY, 1e-7) + ANALOG_INPUT(V5, 5) + + /* Schematics: http://seanriddle.com/gamemachineaudio.JPG + * + * 3870 datasheet: http://nice.kaze.com/MK3870.pdf + * + * The 3870 has mask-programmable outputs (page VIII-7 in datasheet). + * + * Given the schematics, in this case the OPENDRAIN configuration is the + * most probable. + * + */ + + NET_MODEL("OPENDRAIN FAMILY(OVL=0.0 OVH=0.0 ORL=1.0 ORH=1e12)") + NET_MODEL("TYPE6K FAMILY(OVL=0.05 OVH=0.05 ORL=1.0 ORH=6000)") + NET_MODEL("DIRECTDRIVE FAMILY(OVL=0.05 OVH=0.05 ORL=1.0 ORH=1000)") + + LOGIC_INPUT(P08, 1, "OPENDRAIN") + LOGIC_INPUT(P09, 1, "OPENDRAIN") + LOGIC_INPUT(P10, 1, "OPENDRAIN") + LOGIC_INPUT(P11, 1, "OPENDRAIN") + LOGIC_INPUT(P12, 1, "OPENDRAIN") + LOGIC_INPUT(P13, 1, "OPENDRAIN") + LOGIC_INPUT(P14, 1, "OPENDRAIN") + LOGIC_INPUT(P15, 1, "OPENDRAIN") + + RES(R1, RES_K(2.4)) + RES(R2, RES_K(10)) + RES(R3, RES_K(4.3)) + RES(R4, RES_K(150)) + RES(R5, RES_K(240)) + RES(R6, RES_K(2.4)) + RES(SPK1, 8) + + CAP(C1, CAP_P(50)) + CAP(C2, CAP_U(0.001)) + CAP(C3, CAP_U(0.002)) // Schematics state this as 2pF, doesn't make sense, this looks like a ladder layout + CAP(C4, CAP_U(0.005)) + CAP(C5, CAP_U(0.010)) + + CAP(C6, CAP_P(50)) + CAP(C7, CAP_U(0.01)) + CAP(C8, CAP_U(470)) + + QBJT_EB(Q1, "9013") + + MC1455P_DIP(IC1) + + NET_C(P08.Q, R2.2, IC1.4) + NET_C(P09.Q, C8.2) + NET_C(P15.Q, R1.2) + + NET_C(C1.1, P10.Q) + NET_C(C2.1, P11.Q) + NET_C(C3.1, P12.Q) + NET_C(C4.1, P13.Q) + NET_C(C5.1, P14.Q) + + NET_C(C1.2, C2.2, C3.2, C4.2, C5.2, C6.2, IC1.2, IC1.6, R5.2) + NET_C(GND, C6.1, IC1.1, Q1.E) + NET_C(R5.1, R4.2, IC1.7) + NET_C(V5, R4.1, R2.1, IC1.8, SPK1.1, R3.1) + + NET_C(C7.1, R6.1, IC1.3) + + NET_C(C7.2, R6.2, Q1.B) + NET_C(Q1.C, SPK1.2) + + NET_C(C8.1, R1.1, R3.2, IC1.5) + +NETLIST_END() + + +namespace { + +class tgm_state : public driver_device +{ +public: + tgm_state(const machine_config &mconfig, device_type type, const char *tag) : + driver_device(mconfig, type, tag), + m_maincpu(*this, "maincpu"), + m_audio_pin(*this, "snd_nl:p%02u", 8U), + m_keypad(*this, "IN.%u", 0), + m_delay_display(*this, "delay_display_%u", 0), + m_out_digit(*this, "digit%u", 0U), + m_inp_mux(0), + m_digit_select(0), + m_digit_data(0) + { } + + void tgm(machine_config &config); + +protected: + virtual void machine_start() override; + +private: + // devices/pointers + required_device<cpu_device> m_maincpu; + required_device_array<netlist_mame_logic_input_device, 8> m_audio_pin; + required_ioport_array<10> m_keypad; + required_device_array<timer_device, 12> m_delay_display; + output_finder<12> m_out_digit; + + void main_map(address_map &map); + void main_io(address_map &map); + + TIMER_DEVICE_CALLBACK_MEMBER(delay_display); + + void update_display(u16 edge); + DECLARE_WRITE8_MEMBER(mux1_w); + DECLARE_WRITE8_MEMBER(mux2_w); + DECLARE_WRITE8_MEMBER(digit_w); + DECLARE_READ8_MEMBER(input_r); + DECLARE_WRITE8_MEMBER(sound_w); + + u16 m_inp_mux; + u16 m_digit_select; + u8 m_digit_data; +}; + +void tgm_state::machine_start() +{ + // resolve handlers + m_out_digit.resolve(); + + // register for savestates + save_item(NAME(m_inp_mux)); + save_item(NAME(m_digit_select)); + save_item(NAME(m_digit_data)); +} + + + +/****************************************************************************** + Devices, I/O +******************************************************************************/ + +// display handling + +TIMER_DEVICE_CALLBACK_MEMBER(tgm_state::delay_display) +{ + // clear VFD outputs + if (!BIT(m_digit_select, param)) + m_out_digit[param] = 0; +} + +void tgm_state::update_display(u16 edge) +{ + for (int i = 0; i < 12; i++) + { + // output VFD digit data + if (BIT(m_digit_select, i)) + m_out_digit[i] = m_digit_data; + + // they're strobed, so on falling edge, delay them going off to prevent flicker or stuck display + // BTANB: some digit segments get stuck after crashing in the GP game, it's not due to the simulated delay here + else if (BIT(edge, i)) + m_delay_display[i]->adjust(attotime::from_msec(20), i); + } +} + + +// MK3870 ports + +WRITE8_MEMBER(tgm_state::mux1_w) +{ + // P00-P06: input mux part + m_inp_mux = (m_inp_mux & 7) | (data << 3 & 0x3f8); + + // P00-P07: digit select part + u16 prev = m_digit_select; + m_digit_select = (m_digit_select & 0xf) | (data << 4); + update_display(m_digit_select ^ prev); +} + +WRITE8_MEMBER(tgm_state::mux2_w) +{ + // P15-P17: input mux part + m_inp_mux = (m_inp_mux & 0x3f8) | (data >> 5 & 7); + + // P14-P17: digit select part + u16 prev = m_digit_select; + m_digit_select = (m_digit_select & 0xff0) | (data >> 4 & 0xf); + update_display(m_digit_select ^ prev); +} + +WRITE8_MEMBER(tgm_state::digit_w) +{ + // P50-P57: digit 7seg data + m_digit_data = bitswap<8>(data,0,1,2,3,4,5,6,7); + update_display(0); +} + +READ8_MEMBER(tgm_state::input_r) +{ + u8 data = 0; + + // P12,P13: multiplexed inputs + for (int i = 0; i < 10; i++) + if (m_inp_mux >> i & 1) + data |= m_keypad[i]->read(); + + return data << 2; +} + +WRITE8_MEMBER(tgm_state::sound_w) +{ + // P40-P47: 555 to speaker (see netlist above) + for (int i = 0; i < 8; i++) + m_audio_pin[i]->write_line(BIT(~data, i)); +} + + + +/****************************************************************************** + Address Maps +******************************************************************************/ + +void tgm_state::main_map(address_map &map) +{ + map.global_mask(0x07ff); + map(0x0000, 0x07ff).rom(); +} + +void tgm_state::main_io(address_map &map) +{ + map(0x00, 0x00).w(FUNC(tgm_state::mux1_w)); + map(0x01, 0x01).rw(FUNC(tgm_state::input_r), FUNC(tgm_state::mux2_w)); + map(0x04, 0x07).rw("psu", FUNC(f38t56_device::read), FUNC(f38t56_device::write)); +} + + + +/****************************************************************************** + Input Ports +******************************************************************************/ + +static INPUT_PORTS_START( tgm ) + PORT_START("IN.0") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_COLON) PORT_CODE(KEYCODE_DEL) PORT_CODE(KEYCODE_BACKSPACE) PORT_CODE(KEYCODE_RIGHT) PORT_NAME("CL") + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_SLASH) PORT_CODE(KEYCODE_9) PORT_CODE(KEYCODE_9_PAD) PORT_NAME("9") + + PORT_START("IN.1") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_L) PORT_CODE(KEYCODE_SLASH_PAD) PORT_CODE(KEYCODE_LEFT) PORT_NAME(UTF8_DIVIDE) + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_STOP) PORT_CODE(KEYCODE_8) PORT_CODE(KEYCODE_8_PAD) PORT_NAME("8") + + PORT_START("IN.2") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_K) PORT_CODE(KEYCODE_ASTERISK) PORT_CODE(KEYCODE_UP) PORT_NAME(UTF8_MULTIPLY) + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_COMMA) PORT_CODE(KEYCODE_7) PORT_CODE(KEYCODE_7_PAD) PORT_CODE(KEYCODE_DOWN) PORT_NAME("7") + + PORT_START("IN.3") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_J) PORT_CODE(KEYCODE_MINUS_PAD) PORT_NAME("-=") + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_M) PORT_CODE(KEYCODE_6) PORT_CODE(KEYCODE_6_PAD) PORT_NAME("6") + + PORT_START("IN.4") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_H) PORT_CODE(KEYCODE_PLUS_PAD) PORT_CODE(KEYCODE_ENTER) PORT_CODE(KEYCODE_ENTER_PAD) PORT_NAME("+=") + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_N) PORT_CODE(KEYCODE_5) PORT_CODE(KEYCODE_5_PAD) PORT_NAME("5") + + PORT_START("IN.5") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_G) PORT_CODE(KEYCODE_DEL_PAD) PORT_NAME(".") + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_B) PORT_CODE(KEYCODE_4) PORT_CODE(KEYCODE_4_PAD) PORT_NAME("4") + + PORT_START("IN.6") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_F) PORT_CODE(KEYCODE_MINUS) PORT_NAME("+/-") + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_V) PORT_CODE(KEYCODE_3) PORT_CODE(KEYCODE_3_PAD) PORT_NAME("3") + + PORT_START("IN.7") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_D) PORT_CODE(KEYCODE_END) PORT_NAME("MR") + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_C) PORT_CODE(KEYCODE_2) PORT_CODE(KEYCODE_2_PAD) PORT_NAME("2") + + PORT_START("IN.8") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_S) PORT_CODE(KEYCODE_HOME) PORT_NAME("MS") + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_X) PORT_CODE(KEYCODE_1) PORT_CODE(KEYCODE_1_PAD) PORT_NAME("1") + + PORT_START("IN.9") + PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_A) PORT_CODE(KEYCODE_R) PORT_NAME("Return") + PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_CODE(KEYCODE_Z) PORT_CODE(KEYCODE_0) PORT_CODE(KEYCODE_0_PAD) PORT_NAME("0") +INPUT_PORTS_END + + + +/****************************************************************************** + Machine Configs +******************************************************************************/ + +void tgm_state::tgm(machine_config &config) +{ + /* basic machine hardware */ + F8(config, m_maincpu, 4000000/2); // MK3870, frequency is approximate + m_maincpu->set_addrmap(AS_PROGRAM, &tgm_state::main_map); + m_maincpu->set_addrmap(AS_IO, &tgm_state::main_io); + + f38t56_device &psu(F38T56(config, "psu", 4000000/2)); + psu.write_a().set(FUNC(tgm_state::sound_w)); + psu.write_b().set(FUNC(tgm_state::digit_w)); + + /* video hardware */ + for (int i = 0; i < 12; i++) + TIMER(config, m_delay_display[i]).configure_generic(FUNC(tgm_state::delay_display)); + + config.set_default_layout(layout_tgm); + + /* sound hardware */ + SPEAKER(config, "speaker").front_center(); + netlist_mame_sound_device &snd_nl(NETLIST_SOUND(config, "snd_nl", 48000)); + + snd_nl.set_constructor(netlist_nl_gamemachine); + snd_nl.add_route(ALL_OUTPUTS, "speaker", 1.0); + + NETLIST_STREAM_OUTPUT(config, "snd_nl:cout0", 0, "SPK1.2").set_mult_offset(-10000.0, 10000.0 * 3.75); + + NETLIST_LOGIC_INPUT(config, "snd_nl:p08", "P08.IN", 0); + NETLIST_LOGIC_INPUT(config, "snd_nl:p09", "P09.IN", 0); + NETLIST_LOGIC_INPUT(config, "snd_nl:p10", "P10.IN", 0); + NETLIST_LOGIC_INPUT(config, "snd_nl:p11", "P11.IN", 0); + NETLIST_LOGIC_INPUT(config, "snd_nl:p12", "P12.IN", 0); + NETLIST_LOGIC_INPUT(config, "snd_nl:p13", "P13.IN", 0); + NETLIST_LOGIC_INPUT(config, "snd_nl:p14", "P14.IN", 0); + NETLIST_LOGIC_INPUT(config, "snd_nl:p15", "P15.IN", 0); +} + + + +/****************************************************************************** + ROM Definitions +******************************************************************************/ + +ROM_START( 2001tgm ) + ROM_REGION( 0x0800, "maincpu", 0 ) + ROM_LOAD("mk14154n_2001", 0x0000, 0x0800, CRC(6d524c32) SHA1(73d84e59952b751c76dff8bf259b98e1f9136b41) ) +ROM_END + +} // anonymous namespace + + + +/****************************************************************************** + Drivers +******************************************************************************/ + +// YEAR NAME PARENT CMP MACHINE INPUT CLASS INIT COMPANY, FULLNAME, FLAGS +COMP( 1978, 2001tgm, 0, 0, tgm, tgm, tgm_state, empty_init, "Waddingtons", "2001: The Game Machine", MACHINE_SUPPORTS_SAVE | MACHINE_IMPERFECT_SOUND ) |