summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/drivers/hh_melps4.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/mame/drivers/hh_melps4.c')
-rw-r--r--src/mame/drivers/hh_melps4.c473
1 files changed, 473 insertions, 0 deletions
diff --git a/src/mame/drivers/hh_melps4.c b/src/mame/drivers/hh_melps4.c
new file mode 100644
index 00000000000..92e4bd09228
--- /dev/null
+++ b/src/mame/drivers/hh_melps4.c
@@ -0,0 +1,473 @@
+// license:BSD-3-Clause
+// copyright-holders:hap, Kevin Horton
+/***************************************************************************
+
+ Mitsubishi MELPS 4 MCU tabletops/handhelds or other simple devices,
+ most of them are VFD electronic games/toys.
+
+***************************************************************************/
+
+#include "emu.h"
+#include "cpu/melps4/m58846.h"
+#include "sound/speaker.h"
+
+#include "hh_melps4_test.lh" // common test-layout - use external artwork
+
+
+class hh_melps4_state : public driver_device
+{
+public:
+ hh_melps4_state(const machine_config &mconfig, device_type type, const char *tag)
+ : driver_device(mconfig, type, tag),
+ m_maincpu(*this, "maincpu"),
+ m_inp_matrix(*this, "IN"),
+ m_speaker(*this, "speaker"),
+ m_display_wait(33),
+ m_display_maxy(1),
+ m_display_maxx(0)
+ { }
+
+ // devices
+ required_device<cpu_device> m_maincpu;
+ optional_ioport_array<4> m_inp_matrix; // max 4
+ optional_device<speaker_sound_device> m_speaker;
+
+ // misc common
+ UINT16 m_inp_mux; // multiplexed inputs mask
+
+ UINT8 read_inputs(int columns);
+ DECLARE_INPUT_CHANGED_MEMBER(reset_button);
+
+ // display common
+ int m_display_wait; // led/lamp off-delay in microseconds (default 33ms)
+ int m_display_maxy; // display matrix number of rows
+ int m_display_maxx; // display matrix number of columns (max 31 for now)
+
+ UINT32 m_grid; // VFD current row data
+ UINT32 m_plate; // VFD current column data
+
+ UINT32 m_display_state[0x20]; // display matrix rows data (last bit is used for always-on)
+ UINT16 m_display_segmask[0x20]; // if not 0, display matrix row is a digit, mask indicates connected segments
+ UINT32 m_display_cache[0x20]; // (internal use)
+ UINT8 m_display_decay[0x20][0x20]; // (internal use)
+
+ TIMER_DEVICE_CALLBACK_MEMBER(display_decay_tick);
+ void display_update();
+ void set_display_size(int maxx, int maxy);
+ void display_matrix(int maxx, int maxy, UINT32 setx, UINT32 sety);
+
+protected:
+ virtual void machine_start();
+ virtual void machine_reset();
+};
+
+
+// machine start/reset
+
+void hh_melps4_state::machine_start()
+{
+ // zerofill
+ memset(m_display_state, 0, sizeof(m_display_state));
+ memset(m_display_cache, ~0, sizeof(m_display_cache));
+ memset(m_display_decay, 0, sizeof(m_display_decay));
+ memset(m_display_segmask, 0, sizeof(m_display_segmask));
+
+ m_inp_mux = 0;
+ m_grid = 0;
+ m_plate = 0;
+
+ // register for savestates
+ save_item(NAME(m_display_maxy));
+ save_item(NAME(m_display_maxx));
+ save_item(NAME(m_display_wait));
+
+ save_item(NAME(m_display_state));
+ /* save_item(NAME(m_display_cache)); */ // don't save!
+ save_item(NAME(m_display_decay));
+ save_item(NAME(m_display_segmask));
+
+ save_item(NAME(m_inp_mux));
+ save_item(NAME(m_grid));
+ save_item(NAME(m_plate));
+}
+
+void hh_melps4_state::machine_reset()
+{
+}
+
+
+
+/***************************************************************************
+
+ Helper Functions
+
+***************************************************************************/
+
+// The device may strobe the outputs very fast, it is unnoticeable to the user.
+// To prevent flickering here, we need to simulate a decay.
+
+void hh_melps4_state::display_update()
+{
+ UINT32 active_state[0x20];
+
+ for (int y = 0; y < m_display_maxy; y++)
+ {
+ active_state[y] = 0;
+
+ for (int x = 0; x <= m_display_maxx; x++)
+ {
+ // turn on powered segments
+ if (m_display_state[y] >> x & 1)
+ m_display_decay[y][x] = m_display_wait;
+
+ // determine active state
+ UINT32 ds = (m_display_decay[y][x] != 0) ? 1 : 0;
+ active_state[y] |= (ds << x);
+ }
+ }
+
+ // on difference, send to output
+ for (int y = 0; y < m_display_maxy; y++)
+ if (m_display_cache[y] != active_state[y])
+ {
+ if (m_display_segmask[y] != 0)
+ output_set_digit_value(y, active_state[y] & m_display_segmask[y]);
+
+ const int mul = (m_display_maxx <= 10) ? 10 : 100;
+ for (int x = 0; x <= m_display_maxx; x++)
+ {
+ int state = active_state[y] >> x & 1;
+ char buf1[0x10]; // lampyx
+ char buf2[0x10]; // y.x
+
+ if (x == m_display_maxx)
+ {
+ // always-on if selected
+ sprintf(buf1, "lamp%da", y);
+ sprintf(buf2, "%d.a", y);
+ }
+ else
+ {
+ sprintf(buf1, "lamp%d", y * mul + x);
+ sprintf(buf2, "%d.%d", y, x);
+ }
+ output_set_value(buf1, state);
+ output_set_value(buf2, state);
+ }
+ }
+
+ memcpy(m_display_cache, active_state, sizeof(m_display_cache));
+}
+
+TIMER_DEVICE_CALLBACK_MEMBER(hh_melps4_state::display_decay_tick)
+{
+ // slowly turn off unpowered segments
+ for (int y = 0; y < m_display_maxy; y++)
+ for (int x = 0; x <= m_display_maxx; x++)
+ if (m_display_decay[y][x] != 0)
+ m_display_decay[y][x]--;
+
+ display_update();
+}
+
+void hh_melps4_state::set_display_size(int maxx, int maxy)
+{
+ m_display_maxx = maxx;
+ m_display_maxy = maxy;
+}
+
+void hh_melps4_state::display_matrix(int maxx, int maxy, UINT32 setx, UINT32 sety)
+{
+ set_display_size(maxx, maxy);
+
+ // update current state
+ UINT32 mask = (1 << maxx) - 1;
+ for (int y = 0; y < maxy; y++)
+ m_display_state[y] = (sety >> y & 1) ? ((setx & mask) | (1 << maxx)) : 0;
+
+ display_update();
+}
+
+
+// generic input handlers
+
+UINT8 hh_melps4_state::read_inputs(int columns)
+{
+ UINT8 ret = 0;
+
+ // read selected input rows
+ for (int i = 0; i < columns; i++)
+ if (m_inp_mux >> i & 1)
+ ret |= m_inp_matrix[i]->read();
+
+ return ret;
+}
+
+INPUT_CHANGED_MEMBER(hh_melps4_state::reset_button)
+{
+ // for when reset button is directly tied to MCU reset pin
+ m_maincpu->set_input_line(INPUT_LINE_RESET, newval ? ASSERT_LINE : CLEAR_LINE);
+}
+
+
+
+/***************************************************************************
+
+ Minidrivers (subclass, I/O, Inputs, Machine Config)
+
+***************************************************************************/
+
+/***************************************************************************
+
+ Coleco Frogger (manufactured in Japan, licensed from Sega)
+ * PCB label Coleco Frogger Code No. 01-81543, KS-003282 Japan
+ * Mitsubishi M58846-701P MCU
+ * cyan/red/green VFD display Itron CP5090GLR R1B, with partial color overlay
+
+ NOTE!: MAME external artwork is required
+
+***************************************************************************/
+
+class cfrogger_state : public hh_melps4_state
+{
+public:
+ cfrogger_state(const machine_config &mconfig, device_type type, const char *tag)
+ : hh_melps4_state(mconfig, type, tag)
+ { }
+
+ void prepare_display();
+ DECLARE_WRITE8_MEMBER(plate_w);
+ DECLARE_WRITE16_MEMBER(grid_w);
+ DECLARE_WRITE_LINE_MEMBER(speaker_w);
+ DECLARE_READ16_MEMBER(input_r);
+};
+
+// handlers
+
+void cfrogger_state::prepare_display()
+{
+ UINT16 grid = BITSWAP16(m_grid,15,14,13,12,0,1,2,3,4,5,6,7,8,9,10,11);
+ UINT16 plate = BITSWAP16(m_plate,12,4,13,5,14,6,15,7,3,11,2,10,1,9,0,8);
+ display_matrix(16, 12, plate, grid);
+}
+
+WRITE8_MEMBER(cfrogger_state::plate_w)
+{
+ // F0,F1: input mux
+ if (offset == MELPS4_PORTF)
+ m_inp_mux = data & 3;
+
+ // Sx,Fx,Gx: vfd matrix plate
+ int mask = (offset == MELPS4_PORTS) ? 0xff : 0xf; // port S is 8-bit
+ int shift = (offset == MELPS4_PORTS) ? 0 : (offset + 1) * 4;
+ m_plate = (m_plate & ~(mask << shift)) | (data << shift);
+ prepare_display();
+}
+
+WRITE16_MEMBER(cfrogger_state::grid_w)
+{
+ // D0-D11: vfd matrix grid
+ m_grid = data;
+ prepare_display();
+}
+
+WRITE_LINE_MEMBER(cfrogger_state::speaker_w)
+{
+ // T: speaker out
+ m_speaker->level_w(state);
+}
+
+READ16_MEMBER(cfrogger_state::input_r)
+{
+ // K0,K1: multiplexed inputs
+ // K2: N/C
+ // K3: fixed input
+ return (m_inp_matrix[2]->read() & 8) | (read_inputs(2) & 3);
+}
+
+
+// config
+
+static INPUT_PORTS_START( cfrogger )
+ PORT_START("IN.0") // F0 port K0,K1
+ PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP )
+ PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT )
+
+ PORT_START("IN.1") // F1 port K0,K1
+ PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT )
+ PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN )
+
+ PORT_START("IN.2") // K3
+ PORT_CONFNAME( 0x08, 0x00, "Skill Level" )
+ PORT_CONFSETTING( 0x00, "1" )
+ PORT_CONFSETTING( 0x08, "2" )
+
+ PORT_START("IN.3") // fake
+ PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_START ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_melps4_state, reset_button, NULL)
+INPUT_PORTS_END
+
+static MACHINE_CONFIG_START( cfrogger, cfrogger_state )
+
+ /* basic machine hardware */
+ MCFG_CPU_ADD("maincpu", M58846, XTAL_600kHz)
+ MCFG_MELPS4_READ_K_CB(READ16(cfrogger_state, input_r))
+ MCFG_MELPS4_WRITE_S_CB(WRITE8(cfrogger_state, plate_w))
+ MCFG_MELPS4_WRITE_F_CB(WRITE8(cfrogger_state, plate_w))
+ MCFG_MELPS4_WRITE_G_CB(WRITE8(cfrogger_state, plate_w))
+ MCFG_MELPS4_WRITE_D_CB(WRITE16(cfrogger_state, grid_w))
+ MCFG_MELPS4_WRITE_T_CB(WRITELINE(cfrogger_state, speaker_w))
+
+ MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_melps4_state, display_decay_tick, attotime::from_msec(1))
+ MCFG_DEFAULT_LAYOUT(layout_hh_melps4_test)
+
+ /* no video! */
+
+ /* sound hardware */
+ MCFG_SPEAKER_STANDARD_MONO("mono")
+ MCFG_SOUND_ADD("speaker", SPEAKER_SOUND, 0)
+ MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25)
+MACHINE_CONFIG_END
+
+
+
+
+
+/***************************************************************************
+
+ Gakken Jungler (manufactured in Japan, licensed from Konami)
+ * PCB label Konami Gakken GR503
+ * Mitsubishi M58846-702P MCU
+ * cyan/red/green VFD display Itron CP5143GLR SGA, with light-yellow color overlay
+
+ NOTE!: MAME external artwork is required
+
+***************************************************************************/
+
+class gjungler_state : public hh_melps4_state
+{
+public:
+ gjungler_state(const machine_config &mconfig, device_type type, const char *tag)
+ : hh_melps4_state(mconfig, type, tag)
+ { }
+
+ void prepare_display();
+ DECLARE_WRITE8_MEMBER(plate_w);
+ DECLARE_WRITE16_MEMBER(grid_w);
+ DECLARE_WRITE_LINE_MEMBER(speaker_w);
+ DECLARE_READ16_MEMBER(input_r);
+};
+
+// handlers
+
+void gjungler_state::prepare_display()
+{
+ UINT16 grid = BITSWAP16(m_grid,15,14,13,12,11,10,9,8,7,6,5,4,3,2,0,1);
+ UINT32 plate = BITSWAP24(m_plate,23,22,21,20,19,18,8,9,10,11,17,16,15,14,13,12,0,7,1,6,2,5,3,4) | 0x2000;
+ display_matrix(18, 12, plate, grid);
+}
+
+WRITE8_MEMBER(gjungler_state::plate_w)
+{
+ // G0,G1: input mux
+ if (offset == MELPS4_PORTG)
+ m_inp_mux = data & 3;
+
+ // Sx,Fx,Gx,U: vfd matrix plate
+ int mask = (offset == MELPS4_PORTS) ? 0xff : 0xf; // port S is 8-bit
+ int shift = (offset == MELPS4_PORTS) ? 0 : (offset + 1) * 4;
+ m_plate = (m_plate & ~(mask << shift)) | (data << shift);
+ prepare_display();
+}
+
+WRITE16_MEMBER(gjungler_state::grid_w)
+{
+ // D0-D11: vfd matrix grid
+ m_grid = data;
+ prepare_display();
+}
+
+WRITE_LINE_MEMBER(gjungler_state::speaker_w)
+{
+ // T: speaker out
+ m_speaker->level_w(state);
+}
+
+READ16_MEMBER(gjungler_state::input_r)
+{
+ // K0,K1: multiplexed inputs
+ // K2,K3: fixed inputs
+ return (m_inp_matrix[2]->read() & 0xc) | (read_inputs(2) & 3);
+}
+
+
+// config
+
+static INPUT_PORTS_START( gjungler )
+ PORT_START("IN.0") // G0 port K0,K1
+ PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT )
+ PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT )
+
+ PORT_START("IN.1") // G1 port K0,K1
+ PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN )
+ PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP )
+
+ PORT_START("IN.2") // K2,K3
+ PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_BUTTON1 )
+ PORT_CONFNAME( 0x08, 0x00, "Game Mode" )
+ PORT_CONFSETTING( 0x00, "A" )
+ PORT_CONFSETTING( 0x08, "B" )
+
+ PORT_START("IN.3") // fake
+ PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_START ) PORT_CHANGED_MEMBER(DEVICE_SELF, hh_melps4_state, reset_button, NULL)
+INPUT_PORTS_END
+
+static MACHINE_CONFIG_START( gjungler, gjungler_state )
+
+ /* basic machine hardware */
+ MCFG_CPU_ADD("maincpu", M58846, XTAL_600kHz)
+ MCFG_MELPS4_READ_K_CB(READ16(gjungler_state, input_r))
+ MCFG_MELPS4_WRITE_S_CB(WRITE8(gjungler_state, plate_w))
+ MCFG_MELPS4_WRITE_F_CB(WRITE8(gjungler_state, plate_w))
+ MCFG_MELPS4_WRITE_G_CB(WRITE8(gjungler_state, plate_w))
+ MCFG_MELPS4_WRITE_U_CB(WRITE8(gjungler_state, plate_w))
+ MCFG_MELPS4_WRITE_D_CB(WRITE16(gjungler_state, grid_w))
+ MCFG_MELPS4_WRITE_T_CB(WRITELINE(gjungler_state, speaker_w))
+
+ MCFG_TIMER_DRIVER_ADD_PERIODIC("display_decay", hh_melps4_state, display_decay_tick, attotime::from_msec(1))
+ MCFG_DEFAULT_LAYOUT(layout_hh_melps4_test)
+
+ /* no video! */
+
+ /* sound hardware */
+ MCFG_SPEAKER_STANDARD_MONO("mono")
+ MCFG_SOUND_ADD("speaker", SPEAKER_SOUND, 0)
+ MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25)
+MACHINE_CONFIG_END
+
+
+
+
+
+/***************************************************************************
+
+ Game driver(s)
+
+***************************************************************************/
+
+ROM_START( cfrogger )
+ ROM_REGION( 0x1000, "maincpu", 0 )
+ ROM_LOAD( "m58846-701p", 0x0000, 0x1000, CRC(ba52a242) SHA1(7fa53b617f4bb54be32eb209e9b88131e11cb518) )
+ROM_END
+
+
+ROM_START( gjungler )
+ ROM_REGION( 0x1000, "maincpu", 0 )
+ ROM_LOAD( "m58846-702p", 0x0000, 0x1000, CRC(94ab7060) SHA1(3389bc115d1df8d01a30611fa9e95a900d32b29b) )
+ROM_END
+
+
+
+/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY, FULLNAME, FLAGS */
+CONS( 1981, cfrogger, 0, 0, cfrogger, cfrogger, driver_device, 0, "Coleco", "Frogger (Coleco)", MACHINE_SUPPORTS_SAVE | MACHINE_REQUIRES_ARTWORK )
+
+CONS( 1982, gjungler, 0, 0, gjungler, gjungler, driver_device, 0, "Gakken / Konami", "Jungler (Gakken)", MACHINE_SUPPORTS_SAVE | MACHINE_REQUIRES_ARTWORK | MACHINE_NOT_WORKING )