--- nono/vm/rp5c15.cpp	2026/04/29 17:04:59	1.1.1.9
+++ nono/vm/rp5c15.cpp	2026/04/29 17:05:14	1.1.1.11
@@ -4,29 +4,35 @@
 // Licensed under nono-license.txt
 //
 
-#include "rp5c15.h"
-#include "mpu.h"
-#include <sys/time.h>
+//
+// RTC (RP5C15)
+//
 
 // アラームは未実装
 
-// XXX RTC の読み書きはロックしたほうがいいような気がする
+#include "rp5c15.h"
+#include "mfp.h"
+#include "mpu.h"
+#include "power.h"
 
+// コンストラクタ
 RP5C15Device::RP5C15Device()
 	: inherited("RTC")
 {
 	devaddr = 0xe8a000;
 	devlen  = 0x2000;
 
-	// X68k は 1980 年の時、年カウンタに 0 をセット
+	// X68k の RTC epoch は 1980年固定で変更の必要はないので、設定も見ない。
 	year_epoch = 1980;
+	// X68k は通常ローカルタイム (というか JST) で使用する前提
 	use_localtime = true;
 
-	monitor.func = (MonitorCallback_t)&RP5C15Device::MonitorUpdate;
+	monitor.func = ToMonitorCallback(&RP5C15Device::MonitorUpdate);
 	monitor.SetSize(41, 22);
 	monitor.Regist(ID_MONITOR_RTC);
 }
 
+// デストラクタ
 RP5C15Device::~RP5C15Device()
 {
 }
@@ -191,7 +197,7 @@ RP5C15Device::Write(uint32 offset, uint3
 		if (data == 0) {
 			// 通常 0 を書き込むこと、となっているので 0 は許可
 		} else {
-			putlog(0, "TEST <- $%1x 未実装書き込み", data);
+			putlog(0, "TEST <- $%1x (NOT IMPLEMENTED)", data);
 		}
 		reg.test = data;
 		break;
@@ -211,6 +217,7 @@ RP5C15Device::Write(uint32 offset, uint3
 		if ((reg.reset & RP5C15::RESET_1Hz)) {
 			alarm_1Hz = false;
 		}
+		ChangeAlarmOut();
 		break;
 
 	 default:
@@ -368,7 +375,7 @@ RP5C15Device::MonitorUpdate(Monitor *, T
 	// ここでは分かりやすさ優先で正論理としている。
 	screen.Print(0, y, "Pin: CLKOUT=%c  ALARM=%c",
 		clkout ? 'H' : 'L',
-		AlarmOut() ? 'H' : 'L');
+		alarm_out ? 'H' : 'L');
 }
 
 // 秒を取得
@@ -501,12 +508,28 @@ RP5C15Device::SetLeap(uint v)
 	reg.leap = v & 3;
 }
 
+// ALARM OUT 信号
+void
+RP5C15Device::ChangeAlarmOut()
+{
+	bool old = alarm_out;
+
+	// アラーム出力は内部のアラーム用 16Hz, 1Hz と
+	// アラーム時刻一致の alarm_on との OR 論理となっている。
+	alarm_out = alarm_16Hz | alarm_1Hz | alarm_on;
+
+	if (old != alarm_out) {
+		gPower->SetAlarmOut(alarm_out);
+		gMFP->SetAlarmOut(alarm_out);
+	}
+}
+
 // 32Hz 仮想 RTC からのコール
 void
 RP5C15Device::Tick32Hz()
 {
 	if (reg.clksel == 4) {
-		// CLKOUT 16Hz は duty50% なので ON/OFF 駆動は 32Hz になる
+		// CLKOUT 16Hz は duty50% なのでオン/オフ駆動は 32Hz になる
 		clkout = ((cnt & 1) == 0);
 	}
 
@@ -517,6 +540,7 @@ RP5C15Device::Tick32Hz()
 	// アラーム端子 16Hz パルス出力は %0 ならオン
 	if ((reg.reset & RP5C15::RESET_16Hz) == 0) {
 		alarm_16Hz = !alarm_16Hz;
+		ChangeAlarmOut();
 	}
 }
 
@@ -526,11 +550,11 @@ void
 RP5C15Device::Tick2Hz()
 {
 	if (reg.clksel == 5) {
-		// CLKOUT 1Hz は duty50% なので ON/OFF 駆動は 2Hz になる
+		// CLKOUT 1Hz は duty50% なのでオン/オフ駆動は 2Hz になる。
 		// CLKOUT 端子は秒の繰り上がりに同期している。
 		// TIMER_EN (秒への繰り上がり) が無効でも反転自体は起きる気が
 		// するので、ここでは UPDATE_SEC ではなく cnt で判定する。
-		// CLKOUT は 1秒の繰り上がりが起きる時に 'H' になる
+		// CLKOUT は 1秒の繰り上がりが起きる時に 'H' になる。
 
 		clkout = ((cnt & 15) == 0);
 	}
@@ -542,6 +566,7 @@ RP5C15Device::Tick2Hz()
 	// アラーム端子 16Hz パルス出力は %0 ならオン
 	if ((reg.reset & RP5C15::RESET_1Hz) == 0) {
 		alarm_1Hz = !alarm_1Hz;
+		ChangeAlarmOut();
 	}
 }
 
@@ -563,7 +588,7 @@ RP5C15Device::Tick1Hz()
 	// としか書かれておらず、00 or 30 秒で動作するとは書かれていない。
 	// データシートの図からはカレンダとは独立しているように読める。
 
-	// 1/60Hz CLKOUT のための 60sec カウンタ
+	// 1/60Hz CLKOUT のための 60sec カウンタ。
 	// このカウンタは clksel によらず常にカウントする。
 	cnt_60sec++;
 	if (cnt_60sec == 60) {
@@ -571,7 +596,7 @@ RP5C15Device::Tick1Hz()
 	}
 
 	if (reg.clksel == 6) {
-		// CLKOUT 1/60Hz は duty50% なので ON/OFF 駆動は 30sec になる
+		// CLKOUT 1/60Hz は duty50% なのでオン/オフ駆動は 30sec になる
 		clkout = (cnt_60sec < 30);
 	}
 }