From 7fe04d0f8e961b84c302394ae7c0f69aacbf67ca Mon Sep 17 00:00:00 2001
From: Olivier Galibert <galibert@pobox.com>
Date: Sun, 10 Mar 2024 10:42:21 +0100
Subject: [PATCH] Start adding the m37640

---
 scripts/src/cpu.lua              |  3 +++
 src/devices/cpu/m6502/m37640.cpp | 31 ++++++++++++++++++++++++++
 src/devices/cpu/m6502/m37640.h   | 38 ++++++++++++++++++++++++++++++++
 3 files changed, 72 insertions(+)
 create mode 100644 src/devices/cpu/m6502/m37640.cpp
 create mode 100644 src/devices/cpu/m6502/m37640.h

diff --git a/scripts/src/cpu.lua b/scripts/src/cpu.lua
index 6b594b77238..6c4d5b9a5c4 100644
--- a/scripts/src/cpu.lua
+++ b/scripts/src/cpu.lua
@@ -1642,6 +1642,7 @@ end
 --@src/devices/cpu/m6502/gew7.h,CPUS["M6502"] = true
 --@src/devices/cpu/m6502/gew12.h,CPUS["M6502"] = true
 --@src/devices/cpu/m6502/m3745x.h,CPUS["M6502"] = true
+--@src/devices/cpu/m6502/m37640.h,CPUS["M6502"] = true
 --@src/devices/cpu/m6502/m4510.h,CPUS["M6502"] = true
 --@src/devices/cpu/m6502/m50734.h,CPUS["M6502"] = true
 --@src/devices/cpu/m6502/m5074x.h,CPUS["M6502"] = true
@@ -1681,6 +1682,8 @@ if CPUS["M6502"] then
 		MAME_DIR .. "src/devices/cpu/m6502/gew12.h",
 		MAME_DIR .. "src/devices/cpu/m6502/m3745x.cpp",
 		MAME_DIR .. "src/devices/cpu/m6502/m3745x.h",
+		MAME_DIR .. "src/devices/cpu/m6502/m37640.cpp",
+		MAME_DIR .. "src/devices/cpu/m6502/m37640.h",
 		MAME_DIR .. "src/devices/cpu/m6502/m4510.cpp",
 		MAME_DIR .. "src/devices/cpu/m6502/m4510.h",
 		MAME_DIR .. "src/devices/cpu/m6502/m50734.cpp",
diff --git a/src/devices/cpu/m6502/m37640.cpp b/src/devices/cpu/m6502/m37640.cpp
new file mode 100644
index 00000000000..7341e283178
--- /dev/null
+++ b/src/devices/cpu/m6502/m37640.cpp
@@ -0,0 +1,31 @@
+// license:BSD-3-Clause
+// copyright-holders:Olivier Galibert
+
+//  Mitsubishi M37640 8-bit microcontroller with usb support
+
+#include "emu.h"
+#include "m37640.h"
+
+DEFINE_DEVICE_TYPE(M37640, m37640_device, "m37640", "Mitsubishi M37640")
+
+m37640_device::m37640_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock, u32 mode) :
+	m740_device(mconfig, M37640, tag, owner, clock),
+	m_mode(mode)
+{
+	program_config.m_internal_map = address_map_constructor(FUNC(m37640_device::map), this);
+}
+
+void m37640_device::device_start()
+{
+	m740_device::device_start();
+}
+
+void m37640_device::device_reset()
+{
+	m740_device::device_start();
+}
+
+void m37640_device::map(address_map &map)
+{
+	(void)m_mode;
+}
diff --git a/src/devices/cpu/m6502/m37640.h b/src/devices/cpu/m6502/m37640.h
new file mode 100644
index 00000000000..75e3d79494b
--- /dev/null
+++ b/src/devices/cpu/m6502/m37640.h
@@ -0,0 +1,38 @@
+// license:BSD-3-Clause
+// copyright-holders:Olivier Galibert
+#ifndef MAME_CPU_M6502_M37640_H
+#define MAME_CPU_M6502_M37640_H
+
+#pragma once
+
+#include "m740.h"
+
+//**************************************************************************
+//  TYPE DEFINITIONS
+//**************************************************************************
+
+// ======================> m37640_device
+
+class m37640_device :  public m740_device
+{
+public:
+	enum {
+		INT1_LINE = INPUT_LINE_IRQ0,
+		INT2_LINE,
+	};
+
+	m37640_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock, u32 mode = 2);
+
+protected:
+	virtual void device_start() override;
+	virtual void device_reset() override;
+
+private:
+	u32 m_mode;
+
+	void map(address_map &map);
+};
+
+DECLARE_DEVICE_TYPE(M37640, m37640_device)
+
+#endif // MAME_CPU_M6502_M37640_H