From 75734b41f81ea92b111bbd2fc3d026b06db19211 Mon Sep 17 00:00:00 2001
From: Dirk Best <mail@dirk-best.de>
Date: Thu, 10 Aug 2017 02:20:45 +0200
Subject: [PATCH] psi98: Add HLE ASCII keyboard and make it default

Keyboard input now works
---
 scripts/src/bus.lua                 |  2 +
 src/devices/bus/psi_kbd/hle.cpp     | 59 +++++++++++++++++++++++++++++
 src/devices/bus/psi_kbd/hle.h       | 43 +++++++++++++++++++++
 src/devices/bus/psi_kbd/psi_kbd.cpp |  2 +
 src/mame/drivers/kdt6.cpp           |  2 +-
 5 files changed, 107 insertions(+), 1 deletion(-)
 create mode 100644 src/devices/bus/psi_kbd/hle.cpp
 create mode 100644 src/devices/bus/psi_kbd/hle.h

diff --git a/scripts/src/bus.lua b/scripts/src/bus.lua
index c6143aea24b..0321bbdf922 100644
--- a/scripts/src/bus.lua
+++ b/scripts/src/bus.lua
@@ -3148,5 +3148,7 @@ if (BUSES["PSI_KEYBOARD"]~=null) then
 		MAME_DIR .. "src/devices/bus/psi_kbd/psi_kbd.h",
 		MAME_DIR .. "src/devices/bus/psi_kbd/ergoline.cpp",
 		MAME_DIR .. "src/devices/bus/psi_kbd/ergoline.h",
+		MAME_DIR .. "src/devices/bus/psi_kbd/hle.cpp",
+		MAME_DIR .. "src/devices/bus/psi_kbd/hle.h",
 	}
 end
diff --git a/src/devices/bus/psi_kbd/hle.cpp b/src/devices/bus/psi_kbd/hle.cpp
new file mode 100644
index 00000000000..5c5d5b78610
--- /dev/null
+++ b/src/devices/bus/psi_kbd/hle.cpp
@@ -0,0 +1,59 @@
+// license: GPL-2.0+
+// copyright-holders: Dirk Best
+/***************************************************************************
+
+    PSI HLE Keyboard
+
+***************************************************************************/
+
+#include "emu.h"
+#include "hle.h"
+#include "machine/keyboard.h"
+
+
+//**************************************************************************
+//  DEVICE DEFINITIONS
+//**************************************************************************
+
+DEFINE_DEVICE_TYPE(PSI_HLE_KEYBOARD, psi_hle_keyboard_device, "psi_hle_kbd", "PSI HLE Keyboard")
+
+
+MACHINE_CONFIG_MEMBER( psi_hle_keyboard_device::device_add_mconfig )
+	MCFG_DEVICE_ADD("keyboard", GENERIC_KEYBOARD, 0)
+	MCFG_GENERIC_KEYBOARD_CB(PUT(psi_hle_keyboard_device, kbd_put))
+MACHINE_CONFIG_END
+
+
+//**************************************************************************
+//  LIVE DEVICE
+//**************************************************************************
+
+//-------------------------------------------------
+//  psi_hle_keyboard_device - constructor
+//-------------------------------------------------
+
+psi_hle_keyboard_device::psi_hle_keyboard_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock) :
+	device_t(mconfig, PSI_HLE_KEYBOARD, tag, owner, clock),
+	device_psi_keyboard_interface(mconfig, *this)
+{
+}
+
+//-------------------------------------------------
+//  device_start - device-specific startup
+//-------------------------------------------------
+
+void psi_hle_keyboard_device::device_start()
+{
+}
+
+
+//**************************************************************************
+//  INTERFACE
+//**************************************************************************
+
+void psi_hle_keyboard_device::kbd_put(uint8_t data)
+{
+	m_host->key_data_w(machine().dummy_space(), 0, data);
+	m_host->key_strobe_w(1);
+	m_host->key_strobe_w(0);
+}
diff --git a/src/devices/bus/psi_kbd/hle.h b/src/devices/bus/psi_kbd/hle.h
new file mode 100644
index 00000000000..37daaec077c
--- /dev/null
+++ b/src/devices/bus/psi_kbd/hle.h
@@ -0,0 +1,43 @@
+// license: GPL-2.0+
+// copyright-holders: Dirk Best
+/***************************************************************************
+
+    PSI HLE ASCII Keyboard
+
+***************************************************************************/
+
+#ifndef MAME_BUS_PSI_KBD_HLE_H
+#define MAME_BUS_PSI_KBD_HLE_H
+
+#pragma once
+
+#include "psi_kbd.h"
+
+
+//**************************************************************************
+//  TYPE DEFINITIONS
+//**************************************************************************
+
+// ======================> psi_hle_keyboard_device
+
+class psi_hle_keyboard_device : public device_t, public device_psi_keyboard_interface
+{
+public:
+	// construction/destruction
+	psi_hle_keyboard_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock);
+
+protected:
+	// device_t overrides
+	virtual void device_add_mconfig(machine_config &config) override;
+	virtual void device_start() override;
+
+private:
+	void kbd_put(uint8_t data);
+};
+
+
+// device type definition
+DECLARE_DEVICE_TYPE(PSI_HLE_KEYBOARD, psi_hle_keyboard_device)
+
+
+#endif // MAME_BUS_PSI_KBD_HLE_H
diff --git a/src/devices/bus/psi_kbd/psi_kbd.cpp b/src/devices/bus/psi_kbd/psi_kbd.cpp
index 8ee0b838bf9..2b6ad60f90e 100644
--- a/src/devices/bus/psi_kbd/psi_kbd.cpp
+++ b/src/devices/bus/psi_kbd/psi_kbd.cpp
@@ -9,6 +9,7 @@
 #include "emu.h"
 #include "psi_kbd.h"
 #include "ergoline.h"
+#include "hle.h"
 
 
 //**************************************************************************
@@ -107,4 +108,5 @@ device_psi_keyboard_interface::~device_psi_keyboard_interface()
 
 SLOT_INTERFACE_START( psi_keyboard_devices )
 	SLOT_INTERFACE("ergoline", ERGOLINE_KEYBOARD)
+	SLOT_INTERFACE("hle", PSI_HLE_KEYBOARD)
 SLOT_INTERFACE_END
diff --git a/src/mame/drivers/kdt6.cpp b/src/mame/drivers/kdt6.cpp
index 4b53bc5d40e..30b08fe7319 100644
--- a/src/mame/drivers/kdt6.cpp
+++ b/src/mame/drivers/kdt6.cpp
@@ -520,7 +520,7 @@ static MACHINE_CONFIG_START( psi98 )
 	MCFG_FLOPPY_DRIVE_ADD("fdc:0", kdt6_floppies, "525qd", floppy_image_device::default_floppy_formats)
 	MCFG_FLOPPY_DRIVE_ADD("fdc:1", kdt6_floppies, "525qd", floppy_image_device::default_floppy_formats)
 
-	MCFG_PSI_KEYBOARD_INTERFACE_ADD("kbd", "ergoline")
+	MCFG_PSI_KEYBOARD_INTERFACE_ADD("kbd", "hle")
 	MCFG_PSI_KEYBOARD_RX_HANDLER(DEVWRITELINE("sio", z80sio_device, rxb_w))
 	MCFG_PSI_KEYBOARD_KEY_STROBE_HANDLER(DEVWRITELINE("ctc2", z80ctc_device, trg1))