summaryrefslogtreecommitdiffstatshomepage
path: root/src/mess/drivers/pro80.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/mess/drivers/pro80.c')
-rw-r--r--src/mess/drivers/pro80.c169
1 files changed, 169 insertions, 0 deletions
diff --git a/src/mess/drivers/pro80.c b/src/mess/drivers/pro80.c
new file mode 100644
index 00000000000..7d33a258f1c
--- /dev/null
+++ b/src/mess/drivers/pro80.c
@@ -0,0 +1,169 @@
+/***************************************************************************
+
+ Protec Pro-80
+
+ 06/12/2009 Skeleton driver.
+
+ TODO:
+ - Cassette load/save
+ - Use messram for optional ram
+ - Fix Step command (don't works due of missing interrupt emulation)
+
+The unit has a PIO, ports 40-43, but it was for expansion only.
+
+The cassette used 2 bits for input, plus a D flipflop and a 74LS221 oneshot.
+
+
+****************************************************************************/
+
+
+#include "emu.h"
+#include "cpu/z80/z80.h"
+#include "imagedev/cassette.h"
+#include "sound/wave.h"
+#include "pro80.lh"
+
+class pro80_state : public driver_device
+{
+public:
+ pro80_state(const machine_config &mconfig, device_type type, const char *tag)
+ : driver_device(mconfig, type, tag),
+ m_maincpu(*this, "maincpu"),
+ m_cass(*this, CASSETTE_TAG)
+ { }
+
+ required_device<cpu_device> m_maincpu;
+ required_device<cassette_image_device> m_cass;
+ void machine_reset();
+
+ DECLARE_WRITE8_MEMBER( digit_w );
+ DECLARE_WRITE8_MEMBER( segment_w );
+ DECLARE_READ8_MEMBER( kp_r );
+
+ UINT8 m_digit_sel;
+};
+
+
+WRITE8_MEMBER( pro80_state::digit_w )
+{
+ // --xx xxxx digit select
+ // -x-- ---- cassette out
+ // x--- ---- ???
+ m_digit_sel = data & 0x3f;
+}
+
+WRITE8_MEMBER( pro80_state::segment_w )
+{
+ if (m_digit_sel)
+ {
+ if (!BIT(m_digit_sel, 0)) output_set_digit_value(0, data);
+ if (!BIT(m_digit_sel, 1)) output_set_digit_value(1, data);
+ if (!BIT(m_digit_sel, 2)) output_set_digit_value(2, data);
+ if (!BIT(m_digit_sel, 3)) output_set_digit_value(3, data);
+ if (!BIT(m_digit_sel, 4)) output_set_digit_value(4, data);
+ if (!BIT(m_digit_sel, 5)) output_set_digit_value(5, data);
+ m_cass->output( BIT(data, 6) ? -1.0 : +1.0);
+
+ m_digit_sel = 0;
+ }
+}
+
+READ8_MEMBER( pro80_state::kp_r )
+{
+ UINT8 data = 0x0f;
+
+ if (!BIT(m_digit_sel, 0)) data &= ioport("LINE0")->read();
+ if (!BIT(m_digit_sel, 1)) data &= ioport("LINE1")->read();
+ if (!BIT(m_digit_sel, 2)) data &= ioport("LINE2")->read();
+ if (!BIT(m_digit_sel, 3)) data &= ioport("LINE3")->read();
+ if (!BIT(m_digit_sel, 4)) data &= ioport("LINE4")->read();
+ if (!BIT(m_digit_sel, 5)) data &= ioport("LINE5")->read();
+
+ // cassette-in bits go here - bit 4 = sync bit, bit 5 = data bit
+ return data;
+}
+
+static ADDRESS_MAP_START( pro80_mem, AS_PROGRAM, 8, pro80_state )
+ ADDRESS_MAP_UNMAP_HIGH
+ AM_RANGE(0x0000, 0x03ff) AM_ROM
+ AM_RANGE(0x1000, 0x13ff) AM_RAM
+ AM_RANGE(0x1400, 0x17ff) AM_RAM // 2nd RAM is optional
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START( pro80_io, AS_IO, 8, pro80_state )
+ ADDRESS_MAP_UNMAP_HIGH
+ ADDRESS_MAP_GLOBAL_MASK(0xff)
+ //AM_RANGE(0x40, 0x43) Z80PIO
+ AM_RANGE(0x44, 0x47) AM_READ(kp_r)
+ AM_RANGE(0x48, 0x4b) AM_WRITE(digit_w)
+ AM_RANGE(0x4c, 0x4f) AM_WRITE(segment_w)
+ADDRESS_MAP_END
+
+/* Input ports */
+static INPUT_PORTS_START( pro80 )
+ PORT_START("LINE0")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("CR") PORT_CODE(KEYCODE_L)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("CW") PORT_CODE(KEYCODE_W)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("SSt") PORT_CODE(KEYCODE_S)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("Res") PORT_CODE(KEYCODE_EQUALS)
+ PORT_START("LINE1")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("EXE") PORT_CODE(KEYCODE_ENTER)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("NEx") PORT_CODE(KEYCODE_N)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("REx") PORT_CODE(KEYCODE_R)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("MEx") PORT_CODE(KEYCODE_M)
+ PORT_START("LINE2")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("3") PORT_CODE(KEYCODE_3)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("7 [IY]") PORT_CODE(KEYCODE_7)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("B") PORT_CODE(KEYCODE_B)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("F") PORT_CODE(KEYCODE_F)
+ PORT_START("LINE3")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("2") PORT_CODE(KEYCODE_2)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("6 [IX]") PORT_CODE(KEYCODE_6)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("A") PORT_CODE(KEYCODE_A)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("E") PORT_CODE(KEYCODE_E)
+ PORT_START("LINE4")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("1") PORT_CODE(KEYCODE_1)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("5 [PC]") PORT_CODE(KEYCODE_5)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("9 [H]") PORT_CODE(KEYCODE_9)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("D") PORT_CODE(KEYCODE_D)
+ PORT_START("LINE5")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("0") PORT_CODE(KEYCODE_0)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("4 [SP]") PORT_CODE(KEYCODE_4)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("8 [L]") PORT_CODE(KEYCODE_8)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYPAD) PORT_NAME("C") PORT_CODE(KEYCODE_C)
+INPUT_PORTS_END
+
+void pro80_state::machine_reset()
+{
+ m_digit_sel = 0;
+}
+
+static MACHINE_CONFIG_START( pro80, pro80_state )
+ /* basic machine hardware */
+ MCFG_CPU_ADD("maincpu",Z80, XTAL_4MHz)
+ MCFG_CPU_PROGRAM_MAP(pro80_mem)
+ MCFG_CPU_IO_MAP(pro80_io)
+
+ /* video hardware */
+ MCFG_DEFAULT_LAYOUT(layout_pro80)
+
+ /* sound hardware */
+ MCFG_SPEAKER_STANDARD_MONO("mono")
+ MCFG_SOUND_WAVE_ADD(WAVE_TAG, CASSETTE_TAG)
+ MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25)
+
+ /* Devices */
+ MCFG_CASSETTE_ADD( CASSETTE_TAG, default_cassette_interface )
+MACHINE_CONFIG_END
+
+/* ROM definition */
+ROM_START( pro80 )
+ ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
+ // This rom dump is taken out of manual for this machine
+ ROM_LOAD( "pro80.bin", 0x0000, 0x0400, CRC(1bf6e0a5) SHA1(eb45816337e08ed8c30b589fc24960dc98b94db2))
+ROM_END
+
+/* Driver */
+
+/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */
+COMP( 1981, pro80, 0, 0, pro80, pro80, driver_device, 0, "Protec", "Pro-80", GAME_NOT_WORKING | GAME_NO_SOUND)