summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/drivers/slc1a.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/mame/drivers/slc1a.cpp')
-rw-r--r--src/mame/drivers/slc1a.cpp212
1 files changed, 212 insertions, 0 deletions
diff --git a/src/mame/drivers/slc1a.cpp b/src/mame/drivers/slc1a.cpp
new file mode 100644
index 00000000000..6009bfead12
--- /dev/null
+++ b/src/mame/drivers/slc1a.cpp
@@ -0,0 +1,212 @@
+// license:BSD-3-Clause
+// copyright-holders:Sandro Ronco
+/***************************************************************************
+
+This appears to be a prototype or alternate version of SLC 1.
+The ROM was first assumed to be VEB SC 1, but unfortunately it isn't.
+
+TODO:
+- merge with slc1.cpp? but hardware differs too much
+- any way to access the "Lern" part?
+- speaker, it's very noisy if hooked up as it is now
+- LED(s)? they're not on digit d7
+- 7seg sometimes flashes
+
+****************************************************************************/
+
+#include "emu.h"
+#include "cpu/z80/z80.h"
+#include "machine/z80pio.h"
+#include "sound/dac.h"
+#include "sound/volt_reg.h"
+#include "speaker.h"
+
+#include "slc1a.lh"
+
+
+namespace {
+
+class slc1_state : public driver_device
+{
+public:
+ slc1_state(const machine_config &mconfig, device_type type, const char *tag) :
+ driver_device(mconfig, type, tag),
+ m_maincpu(*this, "maincpu"),
+ m_pio(*this, "z80pio"),
+ m_dac(*this, "dac"),
+ m_keypad(*this, "LINE%u", 1),
+ m_digits(*this, "digit%u", 0U)
+ { }
+
+ void slc1(machine_config &config);
+
+protected:
+ virtual void machine_start() override;
+
+private:
+ required_device<cpu_device> m_maincpu;
+ required_device<z80pio_device> m_pio;
+ required_device<dac_bit_interface> m_dac;
+ required_ioport_array<8> m_keypad;
+
+ output_finder<4> m_digits;
+
+ void main_io(address_map &map);
+ void main_map(address_map &map);
+
+ uint8_t m_matrix;
+
+ DECLARE_WRITE8_MEMBER(matrix_w);
+ DECLARE_WRITE8_MEMBER(pio_port_a_w);
+ DECLARE_READ8_MEMBER(pio_port_b_r);
+};
+
+void slc1_state::machine_start()
+{
+ m_digits.resolve();
+
+ m_matrix = 0;
+ save_item(NAME(m_matrix));
+}
+
+/***************************************************************************
+
+ Display
+
+***************************************************************************/
+
+WRITE8_MEMBER(slc1_state::pio_port_a_w)
+{
+ // digit segment data
+ uint8_t digit = bitswap<8>(data,3,4,6,0,1,2,7,5);
+
+ if (m_matrix & 0x04)
+ m_digits[3] = digit;
+ if (m_matrix & 0x08)
+ m_digits[2] = digit;
+ if (m_matrix & 0x10)
+ m_digits[1] = digit;
+ if (m_matrix & 0x20)
+ m_digits[0] = digit;
+}
+
+
+/***************************************************************************
+
+ Keyboard
+
+***************************************************************************/
+
+WRITE8_MEMBER(slc1_state::matrix_w)
+{
+ // d1: speaker out
+ //m_dac->write(BIT(data, 1));
+
+ // keypad/led mux
+ m_matrix = data;
+}
+
+READ8_MEMBER(slc1_state::pio_port_b_r)
+{
+ uint8_t data = 0;
+
+ // read keypad matrix
+ for (int i = 0; i < 8; i++)
+ if (BIT(m_matrix, i))
+ data |= m_keypad[i]->read();
+
+ return data;
+}
+
+
+void slc1_state::main_map(address_map &map)
+{
+ map.unmap_value_high();
+ map(0x0000, 0x0fff).rom();
+ map(0x4000, 0x43ff).ram();
+}
+
+void slc1_state::main_io(address_map &map)
+{
+ map.unmap_value_high();
+ map.global_mask(0xff);
+ map(0x80, 0x83).rw(m_pio, FUNC(z80pio_device::read_alt), FUNC(z80pio_device::write_alt));
+ map(0xfc, 0xfc).w(FUNC(slc1_state::matrix_w));
+}
+
+
+/* Input ports */
+
+static INPUT_PORTS_START( slc1 )
+ PORT_START("LINE1")
+ PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_UNUSED)
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("D4 T") PORT_CODE(KEYCODE_4) PORT_CODE(KEYCODE_4_PAD) PORT_CODE(KEYCODE_D)
+
+ PORT_START("LINE2")
+ PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("B2 S") PORT_CODE(KEYCODE_2) PORT_CODE(KEYCODE_2_PAD) PORT_CODE(KEYCODE_B)
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("F6 K") PORT_CODE(KEYCODE_6) PORT_CODE(KEYCODE_6_PAD) PORT_CODE(KEYCODE_F)
+
+ PORT_START("LINE3")
+ PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("C3 L") PORT_CODE(KEYCODE_3) PORT_CODE(KEYCODE_3_PAD) PORT_CODE(KEYCODE_C)
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("G7") PORT_CODE(KEYCODE_7) PORT_CODE(KEYCODE_7_PAD) PORT_CODE(KEYCODE_G)
+
+ PORT_START("LINE4")
+ PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("A1 B") PORT_CODE(KEYCODE_1) PORT_CODE(KEYCODE_1_PAD) PORT_CODE(KEYCODE_A)
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("E5 D") PORT_CODE(KEYCODE_5) PORT_CODE(KEYCODE_5_PAD) PORT_CODE(KEYCODE_E)
+
+ PORT_START("LINE5")
+ PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("H8") PORT_CODE(KEYCODE_8) PORT_CODE(KEYCODE_8_PAD) PORT_CODE(KEYCODE_H)
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("C") PORT_CODE(KEYCODE_R)
+
+ PORT_START("LINE6")
+ PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_UNUSED)
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("A") PORT_CODE(KEYCODE_O)
+
+ PORT_START("LINE7")
+ PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_UNUSED)
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("Z") PORT_CODE(KEYCODE_Z) PORT_CODE(KEYCODE_ENTER) PORT_CODE(KEYCODE_ENTER_PAD)
+
+ PORT_START("LINE8")
+ PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_UNUSED)
+ PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_KEYPAD) PORT_NAME("St") PORT_CODE(KEYCODE_S) PORT_CODE(KEYCODE_BACKSPACE) PORT_CODE(KEYCODE_DEL)
+INPUT_PORTS_END
+
+
+/* Machine config */
+
+void slc1_state::slc1(machine_config &config)
+{
+ /* basic machine hardware */
+ Z80(config, m_maincpu, 2500000); // U880 Z80 clone
+ m_maincpu->set_addrmap(AS_PROGRAM, &slc1_state::main_map);
+ m_maincpu->set_addrmap(AS_IO, &slc1_state::main_io);
+
+ /* video hardware */
+ config.set_default_layout(layout_slc1a);
+
+ /* devices */
+ Z80PIO(config, m_pio, 2500000);
+ m_pio->out_pa_callback().set(FUNC(slc1_state::pio_port_a_w));
+ m_pio->in_pb_callback().set(FUNC(slc1_state::pio_port_b_r));
+
+ /* sound hardware */
+ SPEAKER(config, "speaker").front_center();
+ DAC_1BIT(config, m_dac).add_route(ALL_OUTPUTS, "speaker", 0.25);
+ VOLTAGE_REGULATOR(config, "vref").add_route(0, "dac", 1.0, DAC_VREF_POS_INPUT);
+}
+
+
+/* ROM definition */
+
+ROM_START( slc1a )
+ ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
+ ROM_LOAD( "sc1.rom", 0x0000, 0x1000, CRC(26965b23) SHA1(01568911446eda9f05ec136df53da147b7c6f2bf))
+ROM_END
+
+} // anonymous namespace
+
+
+/* Driver */
+
+// YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY, FULLNAME, FLAGS
+COMP( 1989, slc1a, slc1, 0, slc1, slc1, slc1_state, empty_init, "Dieter Scheuschner", "Schach- und Lerncomputer SLC 1 (prototype?)", MACHINE_NOT_WORKING | MACHINE_NO_SOUND | MACHINE_SUPPORTS_SAVE )