--- nono/vm/mpu64180.cpp	2026/04/29 17:05:29	1.1.1.4
+++ nono/vm/mpu64180.cpp	2026/04/29 17:05:50	1.1.1.7
@@ -9,8 +9,11 @@
 //
 
 #include "mpu64180.h"
+#include "config.h"
 #include "debugger.h"
+#include "event.h"
 #include "hd647180.h"
+#include "hd647180asci.h"
 #include "pio.h"
 #include "scheduler.h"
 #include "ssg.h"
@@ -24,23 +27,20 @@ MPU64180Device::MPU64180Device()
 	AddAlias("XP");
 	AddAlias("HD647180");
 
-	// 6.144MHz = 162.7604… [nsec]
-	clock_nsec = 163;
-
 	// レジスタモニター
-	reg_monitor.func = ToMonitorCallback(&MPU64180Device::MonitorUpdateReg);
-	reg_monitor.SetSize(38, 6);
-	reg_monitor.Regist(ID_MONITOR_XPREG);
+	reg_monitor = gMonitorManager->Regist(ID_MONITOR_XPREG, this);
+	reg_monitor->func = ToMonitorCallback(&MPU64180Device::MonitorUpdateReg);
+	reg_monitor->SetSize(38, 6);
 
 	// I/O モニター
-	io_monitor.func = ToMonitorCallback(&MPU64180Device::MonitorUpdateIO);
-	io_monitor.SetSize(55, 20);
-	io_monitor.Regist(ID_MONITOR_XPIO);
+	io_monitor = gMonitorManager->Regist(ID_MONITOR_XPIO, this);
+	io_monitor->func = ToMonitorCallback(&MPU64180Device::MonitorUpdateIO);
+	io_monitor->SetSize(55, 20);
 
 	// 割り込みモニター
-	intr_monitor.func = ToMonitorCallback(&MPU64180Device::MonitorUpdateIntr);
-	intr_monitor.SetSize(64, 18);
-	intr_monitor.Regist(ID_MONITOR_XPINTR);
+	intr_monitor = gMonitorManager->Regist(ID_MONITOR_XPINTR, this);
+	intr_monitor->func = ToMonitorCallback(&MPU64180Device::MonitorUpdateIntr);
+	intr_monitor->SetSize(64, 18);
 }
 
 // デストラクタ
@@ -74,6 +74,20 @@ MPU64180Device::putlogn(const char *fmt,
 	WriteLog(buf);
 }
 
+bool
+MPU64180Device::Create()
+{
+	try {
+		asci.reset(new HD647180ASCIDevice());
+	} catch (...) { }
+	if ((bool)asci == false) {
+		warnx("Failed to initialize HD647180ASCIDevice at %s", __method__);
+		return false;
+	}
+
+	return true;
+}
+
 // 初期化
 bool
 MPU64180Device::Init()
@@ -82,6 +96,28 @@ MPU64180Device::Init()
 		return false;
 	}
 
+	// MPU クロック。
+	// "xp-clock" は MHz 単位だが、変数は kHz 単位。
+	int clock_khz;
+	const ConfigItem& xp_clock_item = gConfig->Find("xp-clock");
+	if (xp_clock_item.TryFixedDecimal(&clock_khz, 3) == false) {
+		xp_clock_item.Err();
+		return false;
+	}
+	// 適当な下限値でエラーにする?
+	if (clock_khz < 100) {
+		xp_clock_item.Err();
+		return false;
+	}
+	// 6.144MHz = 162.76… [nsec] であり、変数導入前は 163 をハードコード
+	// して使っていたので、それとの互換性のため四捨五入する。
+	clock_nsec = 1000 * 1000 * 10 / clock_khz;
+	clock_nsec = (clock_nsec + 5) / 10;
+	if (clock_nsec < 1) {
+		xp_clock_item.Err("Clock speed too high");
+		return false;
+	}
+
 	pio0 = GetPIO0Device();
 	xpbus = GetXPbusDevice();
 
@@ -92,12 +128,13 @@ MPU64180Device::Init()
 
 	// 命令実行イベント。func, time は都度設定する。
 	// 登録は親クラスで行ってある。
-	exec_event.SetName("XP(HD647180) Execute");
+	exec_event->SetName("XP(HD647180) Execute");
 
 	// タイマーイベント。time は都度設定する。
-	timer_event.func = ToEventCallback(&MPU64180Device::TimerCallback);
-	timer_event.SetName("XP(HD647180) Timer");
-	scheduler->RegistEvent(timer_event);
+	auto evman = GetEventManager();
+	timer_event = evman->Regist(this,
+		ToEventCallback(&MPU64180Device::TimerCallback),
+		"XP(HD647180) Timer");
 
 	return true;
 }
@@ -160,7 +197,7 @@ MPU64180Device::Reset()
 	opmode = OpMode::Reset;
 
 	// 命令実行サイクルを停止
-	exec_event.SetName("XP(HD647180) Reset");
+	exec_event->SetName("XP(HD647180) Reset");
 	scheduler->StopEvent(exec_event);
 
 	// 汎用レジスタの値は不定。目印として $cc で埋めておく。
@@ -218,12 +255,12 @@ MPU64180Device::EnterNormal()
 	opmode = OpMode::Normal;
 
 	SetExec(ToEventCallback(&MPU64180Device::ExecNormal));
-	exec_event.SetName("XP(HD647180) Execute");
+	exec_event->SetName("XP(HD647180) Execute");
 
 	SetTrace(debugger->IsTrace());
 
 	// 3 クロック後から通常サイクル開始? (HD647180.pdf, p23)
-	exec_event.time = 3 * clock_nsec;
+	exec_event->time = 3 * clock_nsec;
 	scheduler->RestartEvent(exec_event);
 }
 
@@ -234,8 +271,8 @@ MPU64180Device::EnterSleep()
 	// ExecNormal() 内で StartEvent() をしないに分岐するのは無駄が多いので、
 	// ここでは一旦コールバックだけ差し替えて、イベントを停止する。
 	SetExec(ToEventCallback(&MPU64180Device::ExecSleep));
-	exec_event.SetName("XP(HD647180) Sleep");
-	exec_event.time = 0;
+	exec_event->SetName("XP(HD647180) Sleep");
+	exec_event->time = 0;
 
 	// 内蔵デバイスのイベントも停止する。
 	scheduler->StopEvent(timer_event);
@@ -247,21 +284,21 @@ MPU64180Device::EnterWakeup()
 {
 	// 復帰処理のため一旦 Wakeup へ。
 	SetExec(ToEventCallback(&MPU64180Device::ExecWakeup));
-	exec_event.time = 3 * clock_nsec;
+	exec_event->time = 3 * clock_nsec;
 
 	scheduler->StartEvent(exec_event);
 }
 
 // スリープに入る時のイベント
 void
-MPU64180Device::ExecSleep(Event& ev)
+MPU64180Device::ExecSleep(Event *ev)
 {
 	// 実行イベントを停止する。(StartEvent() を呼ばない)
 }
 
 // スリープから復帰するイベント
 void
-MPU64180Device::ExecWakeup(Event& ev)
+MPU64180Device::ExecWakeup(Event *ev)
 {
 	// EI なら、割り込み処理から再開。
 	// DI なら、次の命令から再開。
@@ -287,7 +324,7 @@ MPU64180Device::TraceMessage(MessageID m
 
 // トレース実行
 void
-MPU64180Device::ExecTrace(Event& ev)
+MPU64180Device::ExecTrace(Event *ev)
 {
 	debugger->ExecXP();
 	(this->*exec_func)(ev);
@@ -299,8 +336,8 @@ MPU64180Device::SetExec(EventCallback_t
 {
 	exec_func = new_exec;
 
-	if (exec_event.func != ToEventCallback(&MPU64180Device::ExecTrace)) {
-		exec_event.func = exec_func;
+	if (exec_event->func != ToEventCallback(&MPU64180Device::ExecTrace)) {
+		exec_event->func = exec_func;
 	}
 }
 
@@ -315,7 +352,7 @@ MPU64180Device::SetTrace(bool enable)
 	} else {
 		func = exec_func;
 	}
-	exec_event.func = func;
+	exec_event->func = func;
 }
 
 // IX/IY 分を考慮したサイクル数
@@ -551,7 +588,7 @@ MPU64180Device::MonitorUpdateIO(Monitor
 		screen.Puts(16 + 5 * i, y,
 			TA::OnOff(val & (1U << (7 - i))), rcr_str[i]);
 	}
-	screen.Print(46, y, "RefCyc=%u", (1 << (val & 3)) * 10);
+	screen.Print(46, y, "RefCyc=%u", (1U << (val & 3)) * 10);
 	y++;
 
 	y++;