summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/machine
diff options
context:
space:
mode:
author AJR <ajrhacker@users.noreply.github.com>2022-06-04 21:10:12 -0400
committer AJR <ajrhacker@users.noreply.github.com>2022-06-04 21:10:12 -0400
commitfd82da23ef12abdaf7d5e9036756894c471dbaa9 (patch)
treeea7fb0beaf9014c3d3889fa9ef3b07775c8d4027 /src/mame/machine
parent8c237a7dcabf44fe56530d6cd7334792436bb1c4 (diff)
europc, europc2: Low-level emulation of built-in keyboard
Diffstat (limited to 'src/mame/machine')
-rw-r--r--src/mame/machine/europc_kbd.cpp310
-rw-r--r--src/mame/machine/europc_kbd.h70
2 files changed, 380 insertions, 0 deletions
diff --git a/src/mame/machine/europc_kbd.cpp b/src/mame/machine/europc_kbd.cpp
new file mode 100644
index 00000000000..a1b0d3030f0
--- /dev/null
+++ b/src/mame/machine/europc_kbd.cpp
@@ -0,0 +1,310 @@
+// license:BSD-3-Clause
+// copyright-holders:AJR
+/**********************************************************************
+
+ Schneider EURO PC built-in 86-key keyboard
+
+ This keyboard was produced with several different European
+ layouts, including of course a German QWERTZ version. Currently a
+ British layout is provided.
+
+ Though the clocked serial interface is basically PC/XT-compatible,
+ there is also a separate reset output (which is triggered at
+ startup or by pressing Ctrl+Alt+Backspace), and the MCU clock is
+ derived from the same XTAL used for the onboard FDC.
+
+ Note that the column strobes for the key matrix are fake open
+ drain outputs produced by manipulating DDRA and DDRC rather than
+ the port latches.
+
+**********************************************************************/
+
+#include "emu.h"
+#include "europc_kbd.h"
+
+#include "cpu/m6805/m68705.h"
+
+//**************************************************************************
+// LLE KEYBOARD DEVICE
+//**************************************************************************
+
+DEFINE_DEVICE_TYPE(EUROPC_KEYBOARD, europc_keyboard_device, "europc_kbd", "EURO PC Keyboard")
+
+europc_keyboard_device::europc_keyboard_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock)
+ : device_t(mconfig, EUROPC_KEYBOARD, tag, owner, clock)
+ , m_mcu(*this, "mcu")
+ , m_keys(*this, "COLUMN%d", 1U)
+ , m_leds(*this, "led%d", 1U)
+ , m_kbdata_callback(*this)
+ , m_kbclk_callback(*this)
+ , m_reset_callback(*this)
+ , m_column_strobe(0x7fff)
+ , m_kbdata_in(true)
+ , m_kbclk_in(true)
+ , m_portb_out(0xff)
+{
+}
+
+void europc_keyboard_device::device_resolve_objects()
+{
+ m_kbdata_callback.resolve_safe();
+ m_kbclk_callback.resolve_safe();
+ m_reset_callback.resolve_safe();
+ m_leds.resolve();
+}
+
+void europc_keyboard_device::device_start()
+{
+ save_item(NAME(m_column_strobe));
+ save_item(NAME(m_kbdata_in));
+ save_item(NAME(m_kbclk_in));
+ save_item(NAME(m_portb_out));
+}
+
+//**************************************************************************
+// INPUT LINES
+//**************************************************************************
+
+WRITE_LINE_MEMBER(europc_keyboard_device::kbdata_w)
+{
+ machine().scheduler().synchronize(timer_expired_delegate(FUNC(europc_keyboard_device::kbdata_sync_w), this), state);
+}
+
+TIMER_CALLBACK_MEMBER(europc_keyboard_device::kbdata_sync_w)
+{
+ if (m_kbdata_in == param)
+ return;
+
+ m_kbdata_in = param;
+ if (BIT(m_portb_out, 1))
+ m_kbdata_callback(param);
+}
+
+WRITE_LINE_MEMBER(europc_keyboard_device::kbclk_w)
+{
+ machine().scheduler().synchronize(timer_expired_delegate(FUNC(europc_keyboard_device::kbclk_sync_w), this), state);
+}
+
+TIMER_CALLBACK_MEMBER(europc_keyboard_device::kbclk_sync_w)
+{
+ if (m_kbclk_in == param)
+ return;
+
+ m_kbclk_in = param;
+ if (BIT(m_portb_out, 0))
+ {
+ m_kbclk_callback(param);
+ m_mcu->set_input_line(M6805_IRQ_LINE, param ? CLEAR_LINE : ASSERT_LINE);
+ }
+}
+
+//**************************************************************************
+// MCU PORTS
+//**************************************************************************
+
+void europc_keyboard_device::porta_w(offs_t offset, u8 data, u8 mem_mask)
+{
+ data |= ~mem_mask;
+
+ m_column_strobe = (m_column_strobe & 0x7f00) | data;
+}
+
+u8 europc_keyboard_device::portb_r()
+{
+ return 0xf0 | (m_kbdata_in ? 0x02 : 0x00) | (m_kbclk_in ? 0x01 : 0x00);
+}
+
+void europc_keyboard_device::portb_w(offs_t offset, u8 data, u8 mem_mask)
+{
+ data |= ~mem_mask;
+ u8 portb_changed = std::exchange(m_portb_out, data) ^ data;
+
+ if (BIT(portb_changed, 1) && m_kbdata_in)
+ m_kbdata_callback(BIT(data, 1));
+
+ if (BIT(portb_changed, 0) && m_kbclk_in)
+ {
+ m_kbclk_callback(BIT(data, 0));
+ m_mcu->set_input_line(M6805_IRQ_LINE, BIT(data, 0) ? CLEAR_LINE : ASSERT_LINE);
+ }
+
+ if (BIT(portb_changed, 4))
+ m_reset_callback(!BIT(data, 4)); // discrete open collector
+
+ m_leds[0] = !BIT(data, 2); // Caps Lock
+ m_leds[1] = !BIT(data, 3); // Num Lock
+}
+
+void europc_keyboard_device::portc_w(offs_t offset, u8 data, u8 mem_mask)
+{
+ data |= ~mem_mask;
+
+ m_column_strobe = u16(data & 0x7f) << 8 | (m_column_strobe & 0x00ff);
+}
+
+u8 europc_keyboard_device::portd_r()
+{
+ u8 d = 0xff;
+ for (int i = 0; i < 15; i++)
+ if (!BIT(m_column_strobe, i))
+ d &= m_keys[i]->read();
+ return d;
+}
+
+void europc_keyboard_device::device_add_mconfig(machine_config &config)
+{
+ m6805u2_device &mcu(M6805U2(config, m_mcu, DERIVED_CLOCK(1, 1)));
+ mcu.set_timer_divisor(4); // determines key repeat rate; code sets this value but mask version of MCU ignores it
+ mcu.set_timer_external_source(false); // TIMER pin is pulled up
+ mcu.porta_w().set(FUNC(europc_keyboard_device::porta_w));
+ mcu.portb_r().set(FUNC(europc_keyboard_device::portb_r));
+ mcu.portb_w().set(FUNC(europc_keyboard_device::portb_w));
+ mcu.portc_w().set(FUNC(europc_keyboard_device::portc_w));
+ mcu.portd_r().set(FUNC(europc_keyboard_device::portd_r));
+}
+
+//**************************************************************************
+// KEY MATRIX
+//**************************************************************************
+
+static INPUT_PORTS_START(europc_kbd)
+ PORT_START("COLUMN1")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(0x1b) PORT_CODE(KEYCODE_ESC)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F1)) PORT_CODE(KEYCODE_F1)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F2)) PORT_CODE(KEYCODE_F2)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F3)) PORT_CODE(KEYCODE_F3)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F4)) PORT_CODE(KEYCODE_F4)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F5)) PORT_CODE(KEYCODE_F5)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F6)) PORT_CODE(KEYCODE_F6)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F7)) PORT_CODE(KEYCODE_F7)
+
+ PORT_START("COLUMN2")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('\\') PORT_CHAR('|') PORT_CODE(KEYCODE_TILDE)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('1') PORT_CHAR('!') PORT_CODE(KEYCODE_1)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('2') PORT_CHAR('"') PORT_CODE(KEYCODE_2)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('3') PORT_CHAR(0x00a3) PORT_CODE(KEYCODE_3)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('4') PORT_CHAR('$') PORT_CODE(KEYCODE_4)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('5') PORT_CHAR('%') PORT_CODE(KEYCODE_5)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('6') PORT_CHAR('^') PORT_CODE(KEYCODE_6)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('7') PORT_CHAR('&') PORT_CODE(KEYCODE_7)
+
+ PORT_START("COLUMN3")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Q") PORT_CHAR('q') PORT_CHAR('Q') PORT_CODE(KEYCODE_Q)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("W") PORT_CHAR('w') PORT_CHAR('W') PORT_CODE(KEYCODE_W)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("E") PORT_CHAR('e') PORT_CHAR('E') PORT_CODE(KEYCODE_E)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("R") PORT_CHAR('r') PORT_CHAR('R') PORT_CODE(KEYCODE_R)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("T") PORT_CHAR('t') PORT_CHAR('T') PORT_CODE(KEYCODE_T)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Y") PORT_CHAR('y') PORT_CHAR('Y') PORT_CODE(KEYCODE_Y)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("U") PORT_CHAR('u') PORT_CHAR('U') PORT_CODE(KEYCODE_U)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("I") PORT_CHAR('i') PORT_CHAR('I') PORT_CODE(KEYCODE_I)
+
+ PORT_START("COLUMN4")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("A") PORT_CHAR('a') PORT_CHAR('A') PORT_CODE(KEYCODE_A)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("S") PORT_CHAR('s') PORT_CHAR('S') PORT_CODE(KEYCODE_S)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("D") PORT_CHAR('d') PORT_CHAR('D') PORT_CODE(KEYCODE_D)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F") PORT_CHAR('f') PORT_CHAR('F') PORT_CODE(KEYCODE_F)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("G") PORT_CHAR('g') PORT_CHAR('G') PORT_CODE(KEYCODE_G)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("H") PORT_CHAR('h') PORT_CHAR('H') PORT_CODE(KEYCODE_H)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("J") PORT_CHAR('j') PORT_CHAR('J') PORT_CODE(KEYCODE_J)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("K") PORT_CHAR('k') PORT_CHAR('K') PORT_CODE(KEYCODE_K)
+
+ PORT_START("COLUMN5")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Z") PORT_CHAR('z') PORT_CHAR('Z') PORT_CODE(KEYCODE_Z)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("X") PORT_CHAR('x') PORT_CHAR('X') PORT_CODE(KEYCODE_X)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("C") PORT_CHAR('c') PORT_CHAR('C') PORT_CODE(KEYCODE_C)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("V") PORT_CHAR('v') PORT_CHAR('V') PORT_CODE(KEYCODE_V)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("B") PORT_CHAR('b') PORT_CHAR('B') PORT_CODE(KEYCODE_B)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("N") PORT_CHAR('n') PORT_CHAR('N') PORT_CODE(KEYCODE_N)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("M") PORT_CHAR('m') PORT_CHAR('M') PORT_CODE(KEYCODE_M)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(',') PORT_CHAR('<') PORT_CODE(KEYCODE_COMMA)
+
+ PORT_START("COLUMN6")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F8)) PORT_CODE(KEYCODE_F8)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('9') PORT_CHAR('(') PORT_CODE(KEYCODE_9)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('8') PORT_CHAR('*') PORT_CODE(KEYCODE_8)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("O") PORT_CHAR('o') PORT_CHAR('O') PORT_CODE(KEYCODE_O)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('.') PORT_CHAR('>') PORT_CODE(KEYCODE_STOP)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("L") PORT_CHAR('l') PORT_CHAR('L') PORT_CODE(KEYCODE_L)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('[') PORT_CHAR('{') PORT_CODE(KEYCODE_OPENBRACE)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("P") PORT_CHAR('p') PORT_CHAR('P') PORT_CODE(KEYCODE_P)
+
+ PORT_START("COLUMN7")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(ENTER_PAD)) PORT_CODE(KEYCODE_ENTER_PAD)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F11)) PORT_CODE(KEYCODE_F11)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(PLUS_PAD)) PORT_CODE(KEYCODE_PLUS_PAD)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(MINUS_PAD)) PORT_CODE(KEYCODE_MINUS_PAD)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad 2 " UTF8_DOWN) PORT_CHAR(UCHAR_MAMEKEY(2_PAD)) PORT_CODE(KEYCODE_2_PAD)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad 7 Home") PORT_CHAR(UCHAR_MAMEKEY(7_PAD)) PORT_CODE(KEYCODE_7_PAD)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('-') PORT_CHAR('_') PORT_CODE(KEYCODE_MINUS)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('\'') PORT_CHAR('@') PORT_CODE(KEYCODE_QUOTE)
+
+ PORT_START("COLUMN8")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad . Del") PORT_CHAR(UCHAR_MAMEKEY(COMMA_PAD)) PORT_CODE(KEYCODE_DEL_PAD)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F12)) PORT_CODE(KEYCODE_F12)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad 9 Pg Up") PORT_CHAR(UCHAR_MAMEKEY(9_PAD)) PORT_CODE(KEYCODE_9_PAD)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad * PrtSc") PORT_CHAR(UCHAR_MAMEKEY(ASTERISK)) PORT_CODE(KEYCODE_ASTERISK)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(5_PAD)) PORT_CODE(KEYCODE_5_PAD)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(NUMLOCK)) PORT_CODE(KEYCODE_NUMLOCK)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('0') PORT_CHAR(')') PORT_CODE(KEYCODE_0)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(';') PORT_CHAR(':') PORT_CODE(KEYCODE_COLON)
+
+ PORT_START("COLUMN9")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad 0 Ins") PORT_CHAR(UCHAR_MAMEKEY(0_PAD)) PORT_CODE(KEYCODE_0_PAD)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F10)) PORT_CODE(KEYCODE_F10)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad 6 " UTF8_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(6_PAD)) PORT_CODE(KEYCODE_6_PAD)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Scroll Lock Break") PORT_CHAR(UCHAR_MAMEKEY(SCRLOCK)) PORT_CODE(KEYCODE_SLASH_PAD)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad 1 End") PORT_CHAR(UCHAR_MAMEKEY(1_PAD)) PORT_CODE(KEYCODE_1_PAD)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(0x08) PORT_CODE(KEYCODE_BACKSPACE)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(']') PORT_CHAR('}') PORT_CODE(KEYCODE_CLOSEBRACE)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('/') PORT_CHAR('?') PORT_CODE(KEYCODE_SLASH)
+
+ PORT_START("COLUMN10")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(CAPSLOCK)) PORT_CODE(KEYCODE_RCONTROL)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(UCHAR_MAMEKEY(F9)) PORT_CODE(KEYCODE_F9)
+ PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad 3 Pg Dn") PORT_CHAR(UCHAR_MAMEKEY(3_PAD)) PORT_CODE(KEYCODE_3_PAD)
+ PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad 8 " UTF8_UP) PORT_CHAR(UCHAR_MAMEKEY(8_PAD)) PORT_CODE(KEYCODE_8_PAD)
+ PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad 4 " UTF8_LEFT) PORT_CHAR(UCHAR_MAMEKEY(4_PAD)) PORT_CODE(KEYCODE_4_PAD)
+ PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(0x0d) PORT_CODE(KEYCODE_ENTER)
+ PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('=') PORT_CHAR('+') PORT_CODE(KEYCODE_EQUALS)
+ PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR('#') PORT_CHAR('~') PORT_CODE(KEYCODE_BACKSLASH) // to right of quote key
+
+ PORT_START("COLUMN11")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(' ') PORT_CODE(KEYCODE_SPACE)
+ PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CHAR(0x09) PORT_CODE(KEYCODE_TAB)
+ PORT_BIT(0xfc, IP_ACTIVE_LOW, IPT_UNUSED)
+
+ PORT_START("COLUMN12")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Ctrl") PORT_CHAR(UCHAR_MAMEKEY(LCONTROL)) PORT_CODE(KEYCODE_LCONTROL)
+ PORT_BIT(0xfe, IP_ACTIVE_LOW, IPT_UNUSED)
+
+ PORT_START("COLUMN13")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Shift Left") PORT_CHAR(UCHAR_SHIFT_1) PORT_CODE(KEYCODE_LSHIFT)
+ PORT_BIT(0xfe, IP_ACTIVE_LOW, IPT_UNUSED)
+
+ PORT_START("COLUMN14")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Alt") PORT_CHAR(UCHAR_MAMEKEY(LALT)) PORT_CODE(KEYCODE_LALT)
+ PORT_BIT(0xfe, IP_ACTIVE_LOW, IPT_UNUSED)
+
+ PORT_START("COLUMN15")
+ PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Shift Right") PORT_CHAR(UCHAR_MAMEKEY(RSHIFT)) PORT_CODE(KEYCODE_RSHIFT)
+ PORT_BIT(0xfe, IP_ACTIVE_LOW, IPT_UNUSED)
+INPUT_PORTS_END
+
+ioport_constructor europc_keyboard_device::device_input_ports() const
+{
+ return INPUT_PORTS_NAME(europc_kbd);
+}
+
+//**************************************************************************
+// INTERNAL ROM
+//**************************************************************************
+
+ROM_START(europc_kbd)
+ ROM_REGION(0x1000, "mcu", 0)
+ ROM_LOAD("zc86115p-mc6805u2.bin", 0x0000, 0x1000, CRC(d90c1fab) SHA1(ddb7060abddee7294723833c303090de35c1e79c))
+ROM_END
+
+const tiny_rom_entry *europc_keyboard_device::device_rom_region() const
+{
+ return ROM_NAME(europc_kbd);
+}
diff --git a/src/mame/machine/europc_kbd.h b/src/mame/machine/europc_kbd.h
new file mode 100644
index 00000000000..3570db338e0
--- /dev/null
+++ b/src/mame/machine/europc_kbd.h
@@ -0,0 +1,70 @@
+// license:BSD-3-Clause
+// copyright-holders:AJR
+
+#ifndef MAME_MACHINE_EUROPC_KBD_H
+#define MAME_MACHINE_EUROPC_KBD_H
+
+#pragma once
+
+
+//**************************************************************************
+// TYPE DEFINITIONS
+//**************************************************************************
+
+// ======================> europc_keyboard_device
+
+class europc_keyboard_device : public device_t
+{
+public:
+ // device type constructor
+ europc_keyboard_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock);
+
+ // callback configuration
+ auto kbdata_callback() { return m_kbdata_callback.bind(); }
+ auto kbclk_callback() { return m_kbclk_callback.bind(); }
+ auto reset_callback() { return m_reset_callback.bind(); }
+
+ // line inputs
+ DECLARE_WRITE_LINE_MEMBER(kbdata_w);
+ DECLARE_WRITE_LINE_MEMBER(kbclk_w);
+
+protected:
+ // device-level overrides
+ virtual void device_resolve_objects() override;
+ virtual void device_start() override;
+ virtual ioport_constructor device_input_ports() const override;
+ virtual void device_add_mconfig(machine_config &config) override;
+ virtual const tiny_rom_entry *device_rom_region() const override;
+
+private:
+ TIMER_CALLBACK_MEMBER(kbdata_sync_w);
+ TIMER_CALLBACK_MEMBER(kbclk_sync_w);
+
+ // port handlers
+ void porta_w(offs_t offset, u8 data, u8 mem_mask);
+ u8 portb_r();
+ void portb_w(offs_t offset, u8 data, u8 mem_mask);
+ void portc_w(offs_t offset, u8 data, u8 mem_mask);
+ u8 portd_r();
+
+ // object finders
+ required_device<cpu_device> m_mcu;
+ required_ioport_array<15> m_keys;
+ output_finder<2> m_leds;
+
+ // output line callbacks
+ devcb_write_line m_kbdata_callback;
+ devcb_write_line m_kbclk_callback;
+ devcb_write_line m_reset_callback;
+
+ // internal state
+ u16 m_column_strobe;
+ bool m_kbdata_in;
+ bool m_kbclk_in;
+ u8 m_portb_out;
+};
+
+// device type declarations
+DECLARE_DEVICE_TYPE(EUROPC_KEYBOARD, europc_keyboard_device)
+
+#endif // MAME_MACHINE_EUROPC_KBD_H