--- nono/vm/mfp.cpp	2026/04/29 17:04:45	1.1.1.7
+++ nono/vm/mfp.cpp	2026/04/29 17:04:59	1.1.1.11
@@ -8,20 +8,18 @@
 #include "interrupt.h"
 #include "keyboard.h"
 #include "mpu680x0.h"
-#include "mystring.h"
+#include "x68kkbd.h"
 
 std::unique_ptr<MFPDevice> gMFP;
 
 // コンストラクタ
 MFPDevice::MFPDevice()
+	: inherited("MFP")
 {
-	logname = "mfp";
-	devname = "MFP";
 	devaddr = baseaddr;
 	devlen  = 0x2000;
-	monitor_size = nnSize(77, 26);
 
-	for (int ch = 0; ch < countof(event); ch++) {
+	for (int ch = 0; ch < event.size(); ch++) {
 		event[ch].dev = this;
 		event[ch].func = (DeviceCallback_t)&MFPDevice::TimerCallback;
 		event[ch].code = ch;
@@ -29,10 +27,13 @@ MFPDevice::MFPDevice()
 	}
 
 	// キーボード周りは x68kkbd.cpp のコメント参照
-	key_event.dev = this;
 	key_event.func = (DeviceCallback_t)&MFPDevice::KeyCallback;
 	key_event.time = 3750_usec;
 	key_event.SetName("MFP USART");
+
+	monitor.func = (MonitorCallback_t)&MFPDevice::MonitorUpdate;
+	monitor.SetSize(77, 26);
+	monitor.Regist(ID_MONITOR_MFP);
 }
 
 // デストラクタ
@@ -40,24 +41,10 @@ MFPDevice::~MFPDevice()
 {
 }
 
-// 本体リセットスイッチによるリセット
+// デバイスリセット
 void
 MFPDevice::ResetHard()
 {
-	Reset();
-}
-
-// MPU の RESET 命令によるリセット
-void
-MFPDevice::ResetSoft()
-{
-	Reset();
-}
-
-// リセット(共通)
-void
-MFPDevice::Reset()
-{
 	// All internal registers are cleared expect the TxDR, UDR, and TSR.
 	mfp.aer = 0;
 	mfp.ddr = 0;
@@ -76,8 +63,8 @@ MFPDevice::Reset()
 	mfp.tsr = MFP::TSR_BE;
 
 	// All timers are stopped.
-	for (int ch = 0; ch < countof(event); ch++) {
-		event[ch].Stop();
+	for (auto& ev : event) {
+		ev.Stop();
 	}
 	key_event.Stop();
 
@@ -91,19 +78,16 @@ MFPDevice::Reset()
 	// VR is initialized to $00 (not $0f).
 	mfp.vr_vec = 0;
 	mfp.vr_s   = 0;
-
-	// 信号線
-	rr = false;
 }
 
 uint64
-MFPDevice::Read(uint32 addr)
+MFPDevice::Read(uint32 offset)
 {
 	uint8 data;
 
 	gMPU->AddCycle(24);	// InsideOut p.135
 
-	switch (addr) {
+	switch (offset) {
 	 case MFP::GPIP:
 		data = mfp.gpip;
 		break;
@@ -174,7 +158,9 @@ MFPDevice::Read(uint32 addr)
 		data = mfp.tsr;
 		break;
 	 case MFP::UDR:
+		// UDR からデータを読み出したら Buffer Full をクリア
 		data = mfp.udr;
+		ClearBF();
 		break;
 	 default:
 		data = 0xff;
@@ -184,11 +170,11 @@ MFPDevice::Read(uint32 addr)
 }
 
 uint64
-MFPDevice::Write(uint32 addr, uint32 data)
+MFPDevice::Write(uint32 offset, uint32 data)
 {
 	gMPU->AddCycle(24);	// InsideOut p.135
 
-	switch (addr) {
+	switch (offset) {
 	 case MFP::GPIP:
 		putlog(0, "GPIP <- $%02x 未実装書き込み", data);
 		mfp.gpip = data;
@@ -305,11 +291,11 @@ MFPDevice::Write(uint32 addr, uint32 dat
 }
 
 uint64
-MFPDevice::Peek(uint32 addr)
+MFPDevice::Peek(uint32 offset)
 {
 	uint8 data;
 
-	switch (addr) {
+	switch (offset) {
 	 case MFP::GPIP:
 		data = mfp.gpip;
 		break;
@@ -389,12 +375,12 @@ MFPDevice::Peek(uint32 addr)
 }
 
 void
-MFPDevice::MonitorUpdate(TextScreen& monitor)
+MFPDevice::MonitorUpdate(Monitor *, TextScreen& screen)
 {
 	int x;
 	int y;
 
-	monitor.Clear();
+	screen.Clear();
 
 	// 0         1         2         3         4         5         6
 	// 01234567890123456789012345678901234567890123456789012345678901234567890
@@ -408,53 +394,53 @@ MFPDevice::MonitorUpdate(TextScreen& mon
 	// 1列目(GPIP 関連と VR)
 	x = 0;
 	y = 0;
-	monitor.Print(x, y++, "$%06x(GPIP):$%02x", A(MFP::GPIP), mfp.gpip);
-	monitor.Print(x, y++, "$%06x(AER): $%02x", A(MFP::AER),  mfp.aer);
-	monitor.Print(x, y++, "$%06x(DDR): $%02x", A(MFP::DDR),  mfp.ddr);
-	monitor.Print(x, y++, "$%06x(VR):  $%02x", A(MFP::VR),   mfp.GetVR());
+	screen.Print(x, y++, "$%06x(GPIP):$%02x", A(MFP::GPIP), mfp.gpip);
+	screen.Print(x, y++, "$%06x(AER): $%02x", A(MFP::AER),  mfp.aer);
+	screen.Print(x, y++, "$%06x(DDR): $%02x", A(MFP::DDR),  mfp.ddr);
+	screen.Print(x, y++, "$%06x(VR):  $%02x", A(MFP::VR),   mfp.GetVR());
 	// 2列目(割り込み関連)
 	x = 20;
 	y = 0;
-	monitor.Print(x, y++, "$%06x(IERA):$%02x", A(MFP::IERA), mfp.ier.a);
-	monitor.Print(x, y++, "$%06x(IERB):$%02x", A(MFP::IERB), mfp.ier.b);
-	monitor.Print(x, y++, "$%06x(IPRA):$%02x", A(MFP::IPRA), mfp.ipr.a);
-	monitor.Print(x, y++, "$%06x(IPRB):$%02x", A(MFP::IPRB), mfp.ipr.b);
-	monitor.Print(x, y++, "$%06x(ISRA):$%02x", A(MFP::ISRA), mfp.isr.a);
-	monitor.Print(x, y++, "$%06x(ISRB):$%02x", A(MFP::ISRB), mfp.isr.b);
-	monitor.Print(x, y++, "$%06x(IMRA):$%02x", A(MFP::IMRA), mfp.imr.a);
-	monitor.Print(x, y++, "$%06x(IMRB):$%02x", A(MFP::IMRB), mfp.imr.b);
+	screen.Print(x, y++, "$%06x(IERA):$%02x", A(MFP::IERA), mfp.ier.a);
+	screen.Print(x, y++, "$%06x(IERB):$%02x", A(MFP::IERB), mfp.ier.b);
+	screen.Print(x, y++, "$%06x(IPRA):$%02x", A(MFP::IPRA), mfp.ipr.a);
+	screen.Print(x, y++, "$%06x(IPRB):$%02x", A(MFP::IPRB), mfp.ipr.b);
+	screen.Print(x, y++, "$%06x(ISRA):$%02x", A(MFP::ISRA), mfp.isr.a);
+	screen.Print(x, y++, "$%06x(ISRB):$%02x", A(MFP::ISRB), mfp.isr.b);
+	screen.Print(x, y++, "$%06x(IMRA):$%02x", A(MFP::IMRA), mfp.imr.a);
+	screen.Print(x, y++, "$%06x(IMRB):$%02x", A(MFP::IMRB), mfp.imr.b);
 	// 3列目(タイマー関連)
 	x = 40;
 	y = 0;
-	monitor.Print(x, y++, "$%06x(TACR): $%02x", A(MFP::TACR), mfp.tcr[0]);
-	monitor.Print(x, y++, "$%06x(TBCR): $%02x", A(MFP::TBCR), mfp.tcr[1]);
-	monitor.Print(x, y++, "$%06x(TCDCR):$%02x", A(MFP::TCDCR),
+	screen.Print(x, y++, "$%06x(TACR): $%02x", A(MFP::TACR), mfp.tcr[0]);
+	screen.Print(x, y++, "$%06x(TBCR): $%02x", A(MFP::TBCR), mfp.tcr[1]);
+	screen.Print(x, y++, "$%06x(TCDCR):$%02x", A(MFP::TCDCR),
 		(mfp.tcr[2] << 4) | mfp.tcr[3]);
-	monitor.Print(x, y++, "$%06x(TADR): $%02x", A(MFP::TADR), GetTDR(0));
-	monitor.Print(x, y++, "$%06x(TBDR): $%02x", A(MFP::TBDR), GetTDR(1));
-	monitor.Print(x, y++, "$%06x(TCDR): $%02x", A(MFP::TCDR), GetTDR(2));
-	monitor.Print(x, y++, "$%06x(TDDR): $%02x", A(MFP::TDDR), GetTDR(3));
+	screen.Print(x, y++, "$%06x(TADR): $%02x", A(MFP::TADR), GetTDR(0));
+	screen.Print(x, y++, "$%06x(TBDR): $%02x", A(MFP::TBDR), GetTDR(1));
+	screen.Print(x, y++, "$%06x(TCDR): $%02x", A(MFP::TCDR), GetTDR(2));
+	screen.Print(x, y++, "$%06x(TDDR): $%02x", A(MFP::TDDR), GetTDR(3));
 	// 4列目(USART 関連)
 	x = 61;
 	y = 0;
-	monitor.Print(x, y++, "$%06x(SCR):$%02x", A(MFP::SCR), mfp.scr);
-	monitor.Print(x, y++, "$%06x(UCR):$%02x", A(MFP::UCR), mfp.ucr);
-	monitor.Print(x, y++, "$%06x(RSR):$%02x", A(MFP::RSR), mfp.rsr);
-	monitor.Print(x, y++, "$%06x(TSR):$%02x", A(MFP::TSR), mfp.tsr);
-	monitor.Print(x, y, "$%06x(UDR):", A(MFP::UDR));
+	screen.Print(x, y++, "$%06x(SCR):$%02x", A(MFP::SCR), mfp.scr);
+	screen.Print(x, y++, "$%06x(UCR):$%02x", A(MFP::UCR), mfp.ucr);
+	screen.Print(x, y++, "$%06x(RSR):$%02x", A(MFP::RSR), mfp.rsr);
+	screen.Print(x, y++, "$%06x(TSR):$%02x", A(MFP::TSR), mfp.tsr);
+	screen.Print(x, y, "$%06x(UDR):", A(MFP::UDR));
 	if ((int16)mfp.udr >= 0) {
-		monitor.Print(x + 13, y, "$%02x", mfp.udr);
+		screen.Print(x + 13, y, "$%02x", mfp.udr);
 	} else {
-		monitor.Print(x + 13, y, "---");
+		screen.Print(x + 13, y, "---");
 	}
 
 	// 割り込み関連
 	y = 9;
-	monitor.Print(0, y++, "<Interrupt>     %-6s %-4s %-4s %-4s",
+	screen.Print(0, y++, "<Interrupt>     %-6s %-4s %-4s %-4s",
 		"IER", "IMR", "IPR", "ISR");
 	for (int i = 15; i >= 0; i--, y++) {
 		uint16 mask = (1 << i);
-		monitor.Print(0, y, "%c%d:%-12s %-6s %-4s %-4s %-4s",
+		screen.Print(0, y, "%c%d:%-12s %-6s %-4s %-4s %-4s",
 			i >= 8 ? 'A' : 'B',
 			(i % 8),
 			intrname[i],
@@ -467,31 +453,31 @@ MFPDevice::MonitorUpdate(TextScreen& mon
 	// タイマー関連
 	x = 39;
 	y = 9;
-	monitor.Print(x, y++, "<Timer> Mode       TDR Ini");
+	screen.Print(x, y++, "<Timer> Mode       TDR Ini");
 	for (int ch = 0; ch < 4; ch++) {
-		monitor.Print(x, y, "Timer-%c", ch + 'A');
+		screen.Print(x, y, "Timer-%c", ch + 'A');
 		if (mfp.tcr[ch] == 0) {
-			monitor.Print(x + 8, y, "Stopped");
+			screen.Print(x + 8, y, "Stopped");
 		} else if (mfp.tcr[ch] == 8) {
-			monitor.Print(x + 8, y, "Event");
+			screen.Print(x + 8, y, "Event");
 		} else if (mfp.tcr[ch] > 8) {
-			monitor.Print(x + 8, y, "Pulse(%s)", prescale_str[mfp.tcr[ch] - 8]);
+			screen.Print(x + 8, y, "Pulse(%s)", prescale_str[mfp.tcr[ch] - 8]);
 		} else {
-			monitor.Print(x + 8, y, "Delay(%s)", prescale_str[mfp.tcr[ch]]);
+			screen.Print(x + 8, y, "Delay(%s)", prescale_str[mfp.tcr[ch]]);
 		}
 
-		monitor.Print(x + 19, y, "%3d", GetTDR(ch));
-		monitor.Print(x + 23, y, "%3d", mfp.initial_tdr[ch]);
+		screen.Print(x + 19, y, "%3d", GetTDR(ch));
+		screen.Print(x + 23, y, "%3d", mfp.initial_tdr[ch]);
 		y++;
 	}
 
 	// GPIP 関連
 	x = 39;
 	y = 9 + 8;
-	monitor.Puts(x, y++, "<GPIP>    GPIP AER DDR");
+	screen.Puts(x, y++, "<GPIP>    GPIP AER DDR");
 	for (int i = 7; i >= 0; i--, y++) {
 		uint mask = (1 << i);
-		monitor.Print(x, y, "b%d %-6s  %d   %d   %s", i, gpipname[i],
+		screen.Print(x, y, "b%d %-6s  %d   %d   %s", i, gpipname[i],
 			(mfp.gpip & mask) ? 1 : 0,
 			(mfp.aer & mask) ? 1 : 0,
 			(mfp.ddr & mask) ? "OUT" : "IN");
@@ -787,15 +773,36 @@ MFPDevice::SetRSR(uint32 data)
 
 	if ((old & MFP::RSR_RE) == 0 && (mfp.rsr & MFP::RSR_RE)) {
 		// RE 0 -> 1
-		rr = true;
 	}
 	if ((old & MFP::RSR_RE) && (mfp.rsr & MFP::RSR_RE) == 0) {
 		// RE 1 -> 0
-		rr = false;
-		mfp.rsr &= 0x0f;	// 上位4ビットのステータスを %0 に
+		// 上位4ビットのステータスを %0 に
+		mfp.rsr &= ~(MFP::RSR_OE | MFP::RSR_PE | MFP::RSR_FE);
+		ClearBF();
 	}
 }
 
+// RSR::BF (Buffer Full) をセットする
+void
+MFPDevice::SetBF()
+{
+	mfp.rsr |= MFP::RSR_BF;
+}
+
+// RSR::BF (Buffer Full) をクリアする
+void
+MFPDevice::ClearBF()
+{
+	mfp.rsr &= ~MFP::RSR_BF;
+
+	// バッファが空いたのでキーボードに次の転送を催促。
+	// 実際のハードウェアでは、キーボードが本体 MFP が Ready になるのを待って
+	// いるが、それに相当。
+	// システムポートの KEYCTRL はキーボード側で処理している。
+	X68030Keyboard *x68kkbd = dynamic_cast<X68030Keyboard *>(gKeyboard.get());
+	x68kkbd->Ready();
+}
+
 // UDR への書き込み
 void
 MFPDevice::SetUDR(uint32 data)
@@ -805,28 +812,49 @@ MFPDevice::SetUDR(uint32 data)
 	}
 }
 
-// システムポート#4 の KEY CTRL の状態を受け取る。
-void
-MFPDevice::SetKeyCtrl(bool val)
+// __
+// RR 線の状態を返す。アサートなら true。
+bool
+MFPDevice::IsRR() const
 {
-	key_ctrl = val;
-	putlog(1, "KEYCTRL = %d", key_ctrl);
+	//        __
+	// 実際の RR 信号線は、BF が立っていて、PE | FE がクリアされている場合に
+	// アサートされる。ただしエミュレータでは Parity Error も Frame Error も
+	// 起きないので、この2ビットは無視する。
+	return ((mfp.rsr & MFP::RSR_BF) != 0);
 }
 
-// RR (Receiver Ready) 線の状態を返す。true なら Ready。
-// これはシステムポート#4 の KEY CTRL の状態も加味したもの。
+// キーボードからの受信が可能なら true を返す。
 bool
-MFPDevice::IsRR() const
+MFPDevice::RxIsReady() const
 {
-	return rr && key_ctrl;
+	// __
+	// RR は本来 MFP から CPU/DMAC など上位に対しての Ready で、
+	// UDR にデータが用意できたので引き取ってほしいの意。
+	// X680x0 ではこれを CPU/DMAC (上位) 向けではなく、下位のキーボードからの
+	// フロー制御に流用しており、
+	// 上位への(本来の)「UDR にデータが用意できた」(IsRR() = true) は、
+	// キーボードに対しては「UDR にデータがあるので送信禁止」、
+	// 上位への(本来の)「UDR にデータが用意できていない」(IsRR() = false) は、
+	// キーボードに対しては「UDR は空いているので送信してよい」と
+	// ここで意味が論理反転することに注意。
+	//
+	// また、システムポートの KEYCTRL は X680x0Keyboard 側で処理しているので
+	// こちらでは不要。
+	//
+	// UDR が空いていてキーボードからデータが送られてきている間は RR は Ready
+	// だが、そもそもキーボードは送出作業中で、新たな送信はできないはずなので
+	// この場合、つまり key_event の動作中も false (送信不可) にする。
+
+	return !IsRR() && !key_event.IsRunning();
 }
 
 // キーボードからデータを受信
 void
 MFPDevice::Rx(uint32 data)
 {
-	// Ready を下げる
-	rr = false;
+	// ここは受信したビットをシフトレジスタへ入れ始めたところに相当する
+	// ので、まだ Buffer Full は立てない。
 
 	key_event.code = data;
 	key_event.Start();
@@ -836,11 +864,21 @@ MFPDevice::Rx(uint32 data)
 void
 MFPDevice::KeyCallback(Event& ev)
 {
-	// Ready を元に戻す
-	rr = true;
-
+	// UDR にデータを置いて Buffer Full をセット
 	mfp.udr = ev.code;
-	mfp.rsr |= MFP::RSR_BF;
+	SetBF();
+
+	// Manual 7-5 7.2.1 Receiver Interrupt Channels より
+	// | 割り込みは1文字受信ごとに1回しか発生しませんが、2つの専用割り込み
+	// | チャネルにより、正常な受信状態と異常な受信状態に別々のベクター番号を
+	// | 割り当てることができます。受信したワードにエラーがあり、エラー割り込み
+	// | チャネルが有効な場合は、エラーチャネルのみに割り込みが発生します。
+	// | しかし、エラーチャネルが無効の場合、エラー状態の割り込みは、
+	// | バッファフル状態の割り込みと一緒にバッファフル割り込みチャネルに
+	// | 生成されます。どのエラー条件で割り込みが発生したかを判断するためには、
+	// | 常にRSRを読み出す必要があります。
+	// XXX: まだエラー状態は実装されていない、なおエラーは起きないので
+	// メモだけのままかも知れない。
 
 	SetInterrupt(MFP::INTR_RXFULL);
 }