--- nono/vm/romemu_luna88k.cpp	2026/04/29 17:05:18	1.1.1.13
+++ nono/vm/romemu_luna88k.cpp	2026/04/29 17:06:01	1.1.1.18
@@ -9,33 +9,37 @@
 //
 
 // IODevice
-//    |
-//    +-- ROMDevice (LoadROM()、ウェイト、マスク等を持つ)
-//    |     |
-//    |     +-- PROMDevice    (LUNA* の PROM)
-//    |     +-- IPLROM1Device (X680x0 の IPLROM 後半)
-//    |     +-- IPLROM2Device (X680x0 の IPLROM 前半)
-//    |     +-- CGROMDevice   (X680x0 の CGROM)
-//    |     +-- LunaPROMEmuDevice (LUNA PROM エミュレーションの共通部分)
-//    |           |
-//    |           +-- Luna1PROMEmuDevice     (LUNA-I の PROM エミュレーション)
-//    |           |
-//    |           |  +----------------------+
-//    |           +--| Luna88kPROMEmuDevice |(LUNA-88K の PROM エミュレーション)
-//    |              +----------------------+
-//    |
-//    +-- PROM0Device   (LUNA* のブートページ切り替え用プロキシ)
-//    +-- IPLROM0Device (X680x0 のブートページ切り替え用プロキシ)
+//  |
+//  +- ROMDevice (LoadROM()、ウェイト、マスク等を持つ)
+//  |   +- PROMDevice    (LUNA* の PROM)
+//  |   +- IPLROM1Device (X680x0 の IPLROM 後半)
+//  |   +- IPLROM2Device (X680x0 の IPLROM 前半)
+//  |   +- CGROMDevice   (X680x0 の CGROM)
+//  |   |
+//  |   +- ROMEmuDevice
+//  |       +- LunaPROMEmuDevice (LUNA PROM エミュレーションの共通部分)
+//  |       |   +- Luna1PROMEmuDevice      (LUNA-I の PROM エミュレーション)
+//  |       |   |
+//  |       |   | +----------------------+
+//  |       |   +-| Luna88kPROMEmuDevice | (LUNA-88K の PROM エミュレーション)
+//  |       |     +----------------------+
+//  |       |
+//  |       +- NewsROMEmuDevice    (NEWS の ROM エミュレーション)
+//  |       +- ROM30EmuDevice      (X68030 の ROM30 エミュレーション)
+//  |       +- Virt68kROMEmuDevice (virt-m68k の IPLROM 相当の何か)
+//  |
+//  +- PROM0Device   (LUNA* のブートページ切り替え用プロキシ)
+//  +- IPLROM0Device (X680x0 のブートページ切り替え用プロキシ)
 
 #include "romemu_luna88k.h"
-#include "interrupt.h"
 #include "iodevstream.h"
 #include "mainapp.h"
 #include "mainram.h"
 #include "memorystream.h"
 #include "mk48t02.h"
 #include "mpu88xx0.h"
-#include "pio.h"
+#include "sysclk.h"
+#include "sysctlr.h"
 
 static bool luna88k_fline_callback(MPU88xx0Device *cpu, void *arg);
 
@@ -58,13 +62,27 @@ enum class OPr {
 #define r8	OPr::r8
 #define r9	OPr::r9
 #define r10	OPr::r10
+#define r11	OPr::r11
 enum OPm5 {
 	eq0 = 0x02,
 	ge0 = 0x03,
+	lt0 = 0x0c,
 	ne0 = 0x0d,
 };
 enum OPcr {
-	psr = 0x01,
+	psr  = 0x01,
+	ssbr = 0x03,
+	snip = 0x05,
+	sfip = 0x06,
+	sr0  = 0x11,
+	sr1  = 0x12,
+	sr2  = 0x13,
+	sr3  = 0x14,
+};
+enum CMPbits {
+	CMP_EQ = 2,
+	CMP_NE = 3,
+	CMP_LT = 6,
 };
 
 #define USC  __unused static constexpr
@@ -83,15 +101,30 @@ USC uint32 OP_addu(OPr rd, OPr rs1, uint
 USC uint32 OP_addu(OPr rd, OPr rs1, OPr rs2) {
 	return OP3(0xf4006000, (uint32)rd, (uint32)rs1, (uint32)rs2);
 }
+USC uint32 OP_and(OPr rd, OPr rs1, OPr rs2) {
+	return OP3(0xf4004000, (uint32)rd, (uint32)rs1, (uint32)rs2);
+}
+USC uint32 OP_bb1(uint32 b, OPr rs1, uint32 d16) {
+	return OP3(0xd8000000, b, (uint32)rs1, d16 & 0xffff);
+}
 USC uint32 OP_bcnd(OPm5 m5, OPr rs1, uint32 d16) {
 	return OP3(0xe8000000, (uint32)m5, (uint32)rs1, d16 & 0xffff);
 }
+USC uint32 OP_br(uint32 d26) {
+	return (0xc0000000 | (d26 & 0x03ffffff));
+}
 USC uint32 OP_bsr(uint32 d26) {
 	return (0xc8000000 | (d26 & 0x03ffffff));
 }
 USC uint32 OP_clr(OPr rd, OPr rs1, uint32 w, uint32 o) {
 	return OP4(0xf0008000, (uint32)rd, (uint32)rs1, w, o);
 }
+USC uint32 OP_cmp(OPr rd, OPr rs1, OPr rs2) {
+	return OP3(0xf4007c00, (uint32)rd, (uint32)rs1, (uint32)rs2);
+}
+USC uint32 OP_extu(OPr rd, OPr rs1, uint32 w, uint32 o) {
+	return OP4(0xf0009800, (uint32)rd, (uint32)rs1, w, o);
+}
 USC uint32 OP_jmp(OPr rs2) {
 	return OP3(0xf400c000, 0, 0, (uint32)rs2);
 }
@@ -101,27 +134,46 @@ USC uint32 OP_ld(OPr rd, OPr rs1, uint32
 USC uint32 OP_ldcr(OPr rd, uint32 crs) {
 	return OP4(0x80004000, (uint32)rd, 0, crs, 0);
 }
+USC uint32 OP_mask(OPr rd, OPr rs1, uint32 imm) {
+	return OP3(0x48000000, (uint32)rd, (uint32)rs1, imm);
+}
 USC uint32 __unused OP_or(OPr rd, OPr rs1, OPr rs2) {
 	return OP3(0xf4005800, (uint32)rd, (uint32)rs1, (uint32)rs2);
 }
 USC uint32 OP_or(OPr rd, OPr rs1, uint32 imm) {
 	return OP3(0x58000000, (uint32)rd, (uint32)rs1, imm);
 }
+USC uint32 OP_or_c(OPr rd, OPr rs1, OPr rs2) {
+	return OP3(0xf4005c00, (uint32)rd, (uint32)rs1, (uint32)rs2);
+}
 USC uint32 OP_or_u(OPr rd, OPr rs1, uint32 imm) {
 	return OP3(0x5c000000, (uint32)rd, (uint32)rs1, imm);
 }
 USC uint32 OP_rte() {
 	return 0xf400fc00;
 }
+USC uint32 OP_st(OPr rd, OPr rs1, uint32 imm) {
+	return OP3(0x24000000, (uint32)rd, (uint32)rs1, imm);
+}
 USC uint32 OP_st(OPr rd, OPr rs1, OPr rs2) {
 	return OP3(0xf4002400, (uint32)rd, (uint32)rs1, (uint32)rs2);
 }
+USC uint32 OP_st_b(OPr rd, OPr rs1, OPr rs2) {
+	return OP3(0xf4002c00, (uint32)rd, (uint32)rs1, (uint32)rs2);
+}
 USC uint32 OP_stcr(OPr rs1, uint32 crd) {
 	return OP4(0x80008000, 0, (uint32)rs1, crd, (uint32)rs1);
 }
+USC uint32 OP_xcr(OPr rd, OPr rs1, uint32 cr) {
+	return OP4(0x8000c000, (uint32)rd, (uint32)rs1, cr, (uint32)rs1);
+}
+USC uint32 OP_xmem(OPr rd, OPr rs1, uint32 imm) {
+	return OP3(0x04000000, (uint32)rd, (uint32)rs1, imm);
+}
 USC uint32 OP_doscall(OPr rd, OPr rs1, uint32 imm) {
 	return OP3(0xfc000400, (uint32)rd, (uint32)rs1, imm);
 }
+#define SxIP_VALID	(0x0002)
 #define DOS_GETCHAR	(1)
 #define DOS_PUTCHAR	(2)
 
@@ -129,14 +181,7 @@ USC uint32 OP_doscall(OPr rd, OPr rs1, u
 // コンストラクタ
 Luna88kPROMEmuDevice::Luna88kPROMEmuDevice()
 {
-	// ROM の特定アドレスを読み出す人がいるかも知れないので、
-	// サイズは実 ROM と同じにしておく。LUNA-I からの類推。
-	uint devlen = 256 * 1024;
-	imagebuf.reset(new uint8 [devlen]);
-	memset(&imagebuf[0], 0, devlen);
-	mem = &imagebuf[0];
-
-	mask = devlen - 1;
+	machine_name = "LUNA-88K";
 
 	// プロンプトを初期化。
 	prompt = default_prompt;
@@ -155,13 +200,32 @@ Luna88kPROMEmuDevice::Init()
 		return false;
 	}
 
-	interrupt = GetInterruptDevice();
+	// ROM の特定アドレスを読み出す人がいるかも知れないので、
+	// サイズは実 ROM と同じにしておく。LUNA-I からの類推。
+	if (AllocROM(256 * 1024, 0) == false) {
+		// エラーメッセージは表示済み。
+		return false;
+	}
+
+	SysClkDevice *sysclk = GetSysClkDevice();
 
 	// DOS call エミュレーションのコールバックを登録
-	auto mpu88xx0 = GetMPU88xx0Device();
+	auto mpu88xx0 = GetMPU88xx0Device(mpu);
 	mpu88xx0->SetFLineCallback(luna88k_fline_callback, this);
 
-	MemoryStreamBE ms(imagebuf.get());
+	MemoryStreamBE roms(imagebuf.get());
+
+	// m88k では ROMIO_BASE は上位ワードだけで表現できれば楽。
+	static_assert((ROMIO_BASE & 0xffff) == 0, "");
+
+	// ROM のメモリマップ:
+	// $41000000.L*3	リセットベクタから ROM _START へ飛ぶコード。
+	// $4100000c		ROM _START
+	// $41000200		割り込みハンドラ
+	// $41000270		 sysclk
+	// $41000300		ROM GETC
+	// $41000400		ROM PUTC
+	// $41000500		データアクセス例外ハンドラ
 
 	// リセット時のブートページには ROM (これ) が見えている。
 	// ROMIO_INIT へのアクセスでブートページを RAM に切り替えて、同時に RAM の
@@ -174,109 +238,217 @@ Luna88kPROMEmuDevice::Init()
 
 	// _START:
 		// ここは 0番地。ここから _ROM_START へジャンプ
-		ms.Write32(OP_or_u	(r6, r0, 0x4100));
-		ms.Write32(OP_or	(r6, r6, 0x000c));
-		ms.Write32(OP_jmp	(r6));
+		roms.Write4(OP_or_u	(r1, r0, 0x4100));
+		roms.Write4(OP_or	(r1, r1, 0x000c));
+		roms.Write4(OP_jmp	(r1));
 
 	// _ROM_START: (ここは ROM)
+		// r1:  work (最後は戻りアドレスとして使う)
+		// r2:  work (最後はジャンプ先として使う)
+		// r3:  work
+		// r5:  ROMIO_BASE
+
 		// RAM に切り替え
-		ms.Write32(OP_st	(r0, r6, r0));
+		roms.Write4(OP_st	(r0, r1, r0));
 
-		// 元の PSR を r10 に保存し、r9 に割り込み許可の値を作る
-		ms.Write32(OP_ldcr	(r10, psr));
-		ms.Write32(OP_clr	(r9, r10, 2, 0));	// clear IND,SFRZ
-
-		ms.Write32(OP_or_u	(r3, r0, ROMIO_BASE >> 16));
-		ms.Write32(OP_or	(r3, r3, ROMIO_BASE & 0xffff));
-		// ROMIO_INIT を読み出す
-		ms.Write32(OP_ld	(r2, r3, (ROMIO_INIT - ROMIO_BASE)));
-		// 起動先があれば GO
-		ms.Write32(OP_bcnd	(ge0, r2, 7));	// 7 = _go
+		// 割り込み許可 (INIT の前に必要)。
+		// なお PROM が次段に処理を移す時は割り込み許可のまま進んでいるので
+		// ここも割り込みを許可したそのまま進む。
+		roms.Write4(OP_ldcr	(r1, psr));
+		roms.Write4(OP_clr	(r1, r1, 2, 0));	// clear IND,SFRZ
+		roms.Write4(OP_stcr	(r1, psr));
+
+		// 先に ROMIO_INIT だけ実行。
+		roms.Write4(OP_or_u	(r5, r0, ROMIO_BASE >> 16));
+		roms.Write4(OP_ld	(r0, r5, (ROMIO_INIT - ROMIO_BASE)));
+
+	// _rom_main:
+		uint32 rom_main = roms.GetOffset();
+		// _rom_main 以降で r5 を(再)初期化する必要がある。
+		roms.Write4(OP_or_u	(r5, r0, ROMIO_BASE >> 16));
+		roms.Write4(OP_st	(r0, r5, (ROMIO_QUITSTOP - ROMIO_BASE)));
 
+		roms.Write4(OP_ld	(r0, r5, (ROMIO_LOAD - ROMIO_BASE)));
+		roms.Write4(OP_br	(5));				// _entry
 	// _prompt:
-		// 疑似 STOP でキー入力を待つ
-		ms.Write32(OP_stcr	(r9, psr));		// 割り込み許可
-		ms.Write32(OP_bsr	(1));			// 1 = _stop
-		// この時点で r1 = _stop
-
-	// _stop:
-		ms.Write32(OP_jmp	(r1));
-
-	// _back:
-		uint32 back = baseaddr + ms.GetOffset();
-		// 割り込み禁止に戻す
-		ms.Write32(OP_stcr	(r10, psr));
-
-		ms.Write32(OP_ld	(r2, r3, (ROMIO_ENTRY - ROMIO_BASE)));
-		// 起動先がなければループ
-		ms.Write32(OP_bcnd	(eq0, r2, -5));	// -5 = _prompt
+		uint32 prompt = roms.GetOffset();
+		roms.Write4(OP_or_u	(r1, r0,  0x4100));
+		roms.Write4(OP_or	(r1, r1, roms.GetOffset() + 12));
+		roms.Write4(OP_st	(r1, r5, (ROMIO_QUITSTOP - ROMIO_BASE)));
+		// STOP 相当の無限ループ。
+		// 抜ける時は割り込みハンドラから (QUITSTOP) に rte で戻ってくる。
+		roms.Write4(OP_br	(0));
+
+	// _entry:
+		// 起動可能なら ENTRY が -1 以外を返す
+		roms.Write4(OP_ld	(r2, r5, (ROMIO_ENTRY - ROMIO_BASE)));
+		roms.Write4(OP_or_c	(r1, r0, r0));		// r1 <- $ffffffff
+		roms.Write4(OP_cmp	(r1, r2, r1));
+		// 起動不可なら _prompt へ戻る
+		roms.Write4(OP_bb1	(CMP_EQ, r1, (prompt - roms.GetOffset()) / 4));
 
 	// _go:
 		// 起動先があれば後始末して
-		ms.Write32(OP_ld	(r0, r3, (ROMIO_CLOSE - ROMIO_BASE)));
+		roms.Write4(OP_ld	(r0, r5, (ROMIO_CLOSE - ROMIO_BASE)));
+		// 使ったレジスタを一応クリア
+		roms.Write4(OP_or	(r3, r0, r0));
+		roms.Write4(OP_or	(r5, r0, r0));
+		// 戻ってきたときのために r1 を用意して
+		roms.Write4(OP_or_u	(r1, r0, 0x4100));
+		roms.Write4(OP_or	(r1, r1, roms.GetOffset() + 8));
 		// ジャンプ
-		ms.Write32(OP_jmp	(r2));
-
-	// ここから割り込みハンドラ。割り込みは SIO のみ許可にしてある。
-	// キーボード割り込みが上がったら KEYIN をコールして _back に戻る。
-	ms.SetOffset(0x200);
-		ms.Write32(OP_ld	(r0, r3, (ROMIO_KEYIN - ROMIO_BASE)));
-		// 戻ったところの jmp を抜ける
-		ms.Write32(OP_or_u	(r1, r0, back >> 16));
-		ms.Write32(OP_or	(r1, r1, back & 0xffff));
-		ms.Write32(OP_rte	());
+		roms.Write4(OP_jmp	(r2));
+		// 戻ってきたら
+		roms.Write4(OP_br	((rom_main - roms.GetOffset()) / 4));
+
+	// 割り込みハンドラ。
+	// _intr:
+	roms.SetOffset(0x200);
+		// r1:  work
+		// r2:  work
+		// r5:  ROMIO_BASE
+
+		// レジスタを退避。r1 は sr2 に退避済み。
+		roms.Write4(OP_st	(r2, r0, 0x2000));
+		roms.Write4(OP_st	(r5, r0, 0x2004));
+		roms.Write4(OP_or_u	(r5, r0, ROMIO_BASE >> 16));
+
+		roms.Write4(OP_or_u	(r1, r0, 0x6500));
+		roms.Write4(OP_ld	(r1, r1, 0));
+		roms.Write4(OP_extu	(r1, r1, 3, 29));
+		roms.Write4(OP_or	(r2, r0, 6));
+		roms.Write4(OP_cmp	(r2, r1, r2));
+		// 割り込みは sysclk, sio のみ許可しているので必ずどちらか。
+		roms.Write4(OP_bb1	(CMP_EQ, r2, (0x270 - roms.GetOffset()) / 4));
+	// sio_intr:
+		roms.Write4(OP_ld	(r0, r5, (ROMIO_SIOINTR - ROMIO_BASE)));
+
+	// _intr_ret:
+		// QUITSTOP があれば rte の戻り先をそっちに書き換える。
+		uint32 intr_ret = roms.GetOffset();
+		roms.Write4(OP_ld	(r1, r5, (ROMIO_QUITSTOP - ROMIO_BASE)));
+		roms.Write4(OP_bcnd	(eq0, r1, 6));		// beq @f
+		roms.Write4(OP_st	(r0, r5, (ROMIO_QUITSTOP - ROMIO_BASE)));
+		roms.Write4(OP_or	(r1, r1, SxIP_VALID));
+		roms.Write4(OP_stcr	(r1, snip));
+		roms.Write4(OP_addu	(r1, r1, 0x0004));
+		roms.Write4(OP_stcr	(r1, sfip));
+	// @@:
+		// レジスタを復帰
+		roms.Write4(OP_xcr	(r1, r0, sr2));
+		roms.Write4(OP_or	(r2, r0, r0));
+		roms.Write4(OP_or	(r5, r0, r0));
+		roms.Write4(OP_xmem	(r2, r0, 0x2000));
+		roms.Write4(OP_xmem	(r5, r0, 0x2004));
+		roms.Write4(OP_stcr	(r0, ssbr));
+		roms.Write4(OP_rte	());
+
+	// _sysclk_intr:
+	assertmsg(roms.GetOffset() < 0x270, "offset=$%x", roms.GetOffset());
+	roms.SetOffset(0x270);
+		// ACK
+		roms.Write4(OP_or_u	(r1, r0, 0x6300));
+		roms.Write4(OP_st_b	(r0, r1, r0));
+		// inc
+		roms.Write4(OP_ld	(r1, r5, (ROMIO_CLKCNT - ROMIO_BASE)));
+		roms.Write4(OP_addu	(r1, r1, 1));
+		roms.Write4(OP_st	(r1, r5, (ROMIO_CLKCNT - ROMIO_BASE)));
+		roms.Write4(OP_br	((intr_ret - roms.GetOffset()) / 4));
 
 	// ROM GETC エミュレータ
-	ms.SetOffset(0x300);
-		ms.Write32(OP_doscall(r2, r0, DOS_GETCHAR));
-		ms.Write32(OP_jmp	(r1));
+	assertmsg(roms.GetOffset() < 0x300, "offset=$%x", roms.GetOffset());
+	roms.SetOffset(0x300);
+		roms.Write4(OP_doscall(r2, r0, DOS_GETCHAR));
+		roms.Write4(OP_jmp	(r1));
 
 	// ROM PUTC エミュレータ
 	// 表示する文字は r2 に置かれている。
-	ms.SetOffset(0x400);
-		ms.Write32(OP_doscall(r0, r2, DOS_PUTCHAR));
-		ms.Write32(OP_jmp	(r1));
-
+	roms.SetOffset(0x400);
+		roms.Write4(OP_doscall(r0, r2, DOS_PUTCHAR));
+		roms.Write4(OP_jmp	(r1));
+
+	// データアクセス例外ハンドラ。
+	// 例外を起こした命令の次の命令 (現状 snip) に戻る。
+	roms.SetOffset(0x500);
+		// PROM-1.20 互換動作にするため sr2 に退避した r1 はそのままにする。
+		// boot のオレオレ machine read コマンドがこの動作を利用している。
+		roms.Write4(OP_ldcr	(r1, sr2));
+		roms.Write4(OP_stcr	(r0, ssbr));
+		roms.Write4(OP_rte	());
+
+	// サブルーチン
+	roms.SetOffset(0x900);
+		roms.Write4(OP_or_u	(r5, r0, ROMIO_BASE >> 16));
+		roms.Write4(OP_ld	(r0, r5, (ROMIO_AP1 - ROMIO_BASE)));
+	//@@:
+		uint32 subr1 = roms.GetOffset();
+		roms.Write4(OP_or_u	(r2, r0, 0x4100));
+		roms.Write4(OP_or	(r2, r2, roms.GetOffset() + 12));
+		roms.Write4(OP_st	(r2, r5, (ROMIO_QUITSTOP - ROMIO_BASE)));
+		roms.Write4(OP_br	(0));				// STOP 相当
+
+		roms.Write4(OP_ld	(r2, r5, (ROMIO_CLKCNT - ROMIO_BASE)));
+		roms.Write4(OP_mask	(r2, r2, 0x01ff));	// r2 &= 0x1ff;
+		uint freq = sysclk->GetFreq();
+		roms.Write4(OP_or	(r3, r0, freq * 3));// r5 = freq*3;
+		roms.Write4(OP_cmp	(r3, r2, r3));
+		roms.Write4(OP_bb1	(CMP_LT, r3, (subr1 - roms.GetOffset()) / 4));
+												// blt @b
+		roms.Write4(OP_ld	(r0, r5, (ROMIO_AP2 - ROMIO_BASE)));
+		roms.Write4(OP_jmp	(r1));
 
 	// 変なインデントここまで
 
 	return true;
 }
 
-// 起動時の処理を行う。
-// 次段実行ファイルの読み込みに成功すればそのエントリポイントを返す。
-// そうでなければ 0 を返すので、プロンプトに処理を移すこと。
-uint32
-Luna88kPROMEmuDevice::ROM_Init()
+// ROM 起動時の初期化 (機種依存部分) を行う。
+void
+Luna88kPROMEmuDevice::ROM_InitMD()
 {
-	IODeviceStream rs(mainram);
-	uint32 entry;
-
-	b_entrypoint = -1;
+	IODeviceStream rams(mainram);
 
-	// デバイスの初期化 (親クラス)
-	InitDevice();
+	// 割り込みマスクで Sysclk, SIO だけ許可
+	// XXX とりあえず CPU#0 のみ
+	auto *sysctlr = dynamic_cast<SysCtlrDevice*>(GetInterruptDevice());
+	sysctlr->WriteIntMask(0, 0xc0000000);
 
-	auto pio0 = GetPIO0Device();
+	// RAM のメモリマップ:
+	// $00000000 .. $00000fff	例外ベクタ
+	// $00001000 .. $000010ff	トランポリン用 (PROM もここを使っている)
+	// $00001100 .. ?			PROM 用が使う領域があるようだ
+	// $00002000 .. 			レジスタ保存用として勝手に使うことにする
 
-	// 割り込みマスクで SIO だけ許可
-	interrupt->Write32(0x65000000, 0x40000000);
-
-	rs.SetAddr(0);
-	// ベクタテーブルを rte で埋めておく
+	rams.SetAddr(0);
+	// ベクタテーブルを rte で埋めておく。
 	for (int i = 0; i < 512 * 2; i++) {
-		rs.Write32(OP_rte());
+		rams.Write4(OP_rte());
+	}
+	// 例外ベクタの2ワードとトランポリン先の4ワードで PROM まで飛ぶ
+	// コードを出力する。
+	static const struct {
+		uint32 vec;
+		uint32 toaddr;
+	} vectors [] = {
+		{ 1, 0x41000200 },	// 割り込み
+		{ 3, 0x41000500 },	// データアクセス例外
+	};
+	uint32 midaddr = 0x1000;
+	for (int i = 0; i < countof(vectors); i++) {
+		uint32 vec = vectors[i].vec;
+		uint32 toaddr = vectors[i].toaddr;
+		rams.SetAddr(vec * 8);
+		// ベクタは定型文で書いておく。
+		rams.Write4(OP_or	(r0, r0, r0));
+		rams.Write4(OP_br	((midaddr - rams.GetAddr()) / 4));
+		// 経由地で r1 を sr2 に退避してから、toaddr にジャンプ。
+		rams.SetAddr(midaddr);
+		rams.Write4(OP_stcr	(r1, sr2));
+		rams.Write4(OP_or_u	(r1, r0, toaddr >> 16));
+		rams.Write4(OP_or	(r1, r1, toaddr & 0xffff));
+		rams.Write4(OP_jmp	(r1));
+		midaddr = rams.GetAddr();
 	}
-	// +$08: 割り込みベクタ
-	rs.Write32(8, 0xc00003fe);		// br	$00001000
-
-	// 割り込みトランポリン (0x1000)
-	// ベクタテーブルは各2ワードしかないのに、0 番地付近にあるベクタテーブル
-	// から2ワードでは ROM まで飛べない。一体どういう設計してんだ…。
-	rs.SetAddr(0x1000);
-		rs.Write32(OP_or_u	(r6, r0, 0x4100));
-		rs.Write32(OP_or	(r6, r6, 0x0200));
-		rs.Write32(OP_jmp	(r6));
 
 	// ROM の機能テーブル
 	// 0x00001100 ?
@@ -287,71 +459,57 @@ Luna88kPROMEmuDevice::ROM_Init()
 	// 0x00001114 ビットマッププレーンの有効状態が入っている。
 	//  bit0: plane0 有効
 	//  bit1..7: plane1..7 有効
-	rs.SetAddr(0x110c);
-		rs.Write32(0x41000300);
-		rs.Write32(0x41000400);
-		rs.Write32(0x00000001);
-
-	// スクリーンを初期化
-	InitScreen();
-
-	entry = -1;
-
-	// 表示環境が整ったところで NVRAM を照合
-	if (VerifyNVRAM() == false) {
-		// PROM 1.20 は初期化するかどうか確認してくるけど、とりあえず。
-		InitNVRAM();
-		errmsg = "NVRAM Initialized.";
-		// NVRAM をクリアしたら DIPSW によらずプロンプトに降りる
-		goto done;
-	}
-
-	// -X file
-	//  DIPSW の状態に関わらず、ファイルをロードし実行する。
-	// --load-only file
-	//  DIPSW の状態に関わらず、ファイルをロードし、プロンプトで止まる。
-	if (gMainApp.exec_file) {
-		// ホストのファイルを読み込んでエントリポイントアドレスを
-		// この Read アクセスの読み出し値として返す。
-		// エラーがあればエラーメッセージは呼び出し先側で表示してある。
-		b_entrypoint = LoadHostFile();
-		if (gMainApp.load_and_exec) {
-			entry = b_entrypoint;
-		}
-	} else {
-		// DIPSW#1-1 が UP なら自動起動、DOWN なら ROM モニタ起動なので、
-		// これを真似する。
-		if (pio0->IsDIPSW11Up()) {
-			// NVRAM の設定に従ってブート先を探す。
-			errmsg.clear();
-
-			bootinfo_t bootinfo;
-			GetNVRAM(bootinfo);
-			entry = LoadGuestFile(bootinfo);
-		}
-	}
+	rams.SetAddr(0x110c);
+		rams.Write4(0x41000300);
+		rams.Write4(0x41000400);
+		rams.Write4(0x00000001);
 
- done:
-	if (entry == -1) {
-		PrintTitle("LUNA88K");
-		if (errmsg.empty() == false) {
-			Print("** %s\n\n", errmsg.c_str());
-		}
-		ClearPrompt();
+	uint32 ap = (nvram->PeekPort(0x7fd) << 8) | nvram->PeekPort(0x7fe);
+	if (__predict_false(0||(ap & 0x3f1f) == 0x0104)) {
+		auto *mpu88xx0 = GetMPU88xx0Device(mpu);
+		mpu88xx0->reg.r[1] = mpu88xx0->reg.nip;
+		mpu88xx0->DoBranch(0x41000900, false);
 	}
+}
 
-	return entry;
+void
+Luna88kPROMEmuDevice::ROM_Close()
+{
+	inherited::ROM_Close();
+
+	// 割り込みをすべてマスクに戻す。
+	// XXX とりあえず CPU#0 のみ
+	auto *sysctlr = dynamic_cast<SysCtlrDevice*>(GetInterruptDevice());
+	sysctlr->WriteIntMask(0, 0x00000000);
 }
 
-// ROM 処理。エントリポイントを返す。
+// ファイルをロードする。
+// -X が指定されていればそのホストファイル。
+// そうでなければゲストファイル。この場合引数 fname があれば
+// NVRAM で指定されたデバイスから読み込む際のファイル名とする。
+// ロードできればエントリポイントを返す。
+// ロードできなければ errmsg にメッセージをセットし -1 を返す。
 uint32
-Luna88kPROMEmuDevice::ROM_Entry()
+Luna88kPROMEmuDevice::LoadFile(const std::string& fname)
 {
-	if (b_entrypoint != -1) {
-		return b_entrypoint;
+	uint32 entry;
+
+	if (gMainApp.exec_file) {
+		// -X が指定されてたらホストプログラムを読み込む。
+		entry = LoadHostFile();
 	} else {
-		return 0;
+		// NVRAM で指定されるゲストプログラムを読み込む。
+		// XXX とりあえず boot を起動するだけ
+		bootinfo_t bootinfo;
+		GetNVRAM(bootinfo);
+		// 引数で指定されたらファイル名だけ上書き
+		if (fname.empty() == false) {
+			bootinfo.dkfile = fname;
+		}
+		entry = LoadGuestFile(bootinfo);
 	}
+
+	return entry;
 }
 
 void
@@ -407,7 +565,7 @@ Luna88kPROMEmuDevice::Command()
 	std::vector<std::string> arg;
 
 	// 1ワードごとに分解
-	strcpy(&buf[0], inputbuf.c_str());
+	strlcpy(buf.data(), inputbuf.c_str(), buf.size());
 	char *p = &buf[0];
 	for (char *ap; (ap = strsep(&p, " ")) != NULL; ) {
 		if (*ap != '\0') {
@@ -416,7 +574,7 @@ Luna88kPROMEmuDevice::Command()
 	}
 	if (loglevel >= 1) {
 		for (int i = 0; i < arg.size(); i++) {
-			putmsgn("arg[%d]=|%s|", i, arg[i].c_str());
+			putmsgn("arg[%u]=|%s|", i, arg[i].c_str());
 		}
 	}
 
@@ -476,35 +634,22 @@ Luna88kPROMEmuDevice::CommandH(const std
 }
 
 // "b" コマンド
-// 引数なしなら NVRAM の情報に従ってプログラムをロードして実行。
-// 引数ありのほうは未実装。
+// 引数なしなら NVRAM の情報 (もしくは -X オプション) に従ってプログラムを
+// ロードして実行。引数ありのほうは未実装。
 void
 Luna88kPROMEmuDevice::CommandB(const std::vector<std::string>& arg)
 {
-	errmsg.clear();
-
-	// XXX とりあえず boot を起動するだけ
-	bootinfo_t bootinfo;
-	GetNVRAM(bootinfo);
-	b_entrypoint = LoadGuestFile(bootinfo);
-	if (b_entrypoint == -1) {
+	entrypoint = LoadFile("");
+	if (entrypoint == -1) {
 		Print("** %s\n", errmsg.c_str());
+	} else {
+		execute = true;
+		Print("%s.  Entry point = $%08x\n",
+			(gMainApp.exec_file ? "Host program loaded" : "Loaded"),
+			entrypoint);
 	}
 }
 
-// "bh" コマンド (勝手に拡張)
-// -X オプションで指定されたホストプログラムをロードして実行。
-void
-Luna88kPROMEmuDevice::CommandBH()
-{
-	// 指定されてたら読み込む
-	if (gMainApp.exec_file == NULL) {
-		Print("** Cannot loaded; host program is not specified.\n");
-		return;
-	}
-	b_entrypoint = LoadHostFile();
-}
-
 // "nvram" コマンド
 // nvram             .. 全表示
 // nvram <key>       .. 表示
@@ -801,10 +946,10 @@ Luna88kPROMEmuDevice::GetNVRAM(bootinfo_
 	// dkpart (パーティション) は boot_partition (0..)
 	// dkfile (ファイル名) は boot_filename
 	// sd 以外のデバイスは未対応
-	bootinfo.dkunit = nvram->Peek(0x0070) - '0';
-	bootinfo.dkpart = nvram->Peek(0x0090) - '0';
+	bootinfo.dkunit = nvram->PeekPort(0x0070) - '0';
+	bootinfo.dkpart = nvram->PeekPort(0x0090) - '0';
 	bootinfo.dkfile = nvram->PeekString(0x00b0);
-	putmsg(1, "%s unit=%d", __func__, bootinfo.dkunit);
+	putmsg(1, "%s unit=%u", __func__, bootinfo.dkunit);
 	putmsg(1, "%s part=%c", __func__, bootinfo.dkpart + 'a');
 	putmsg(1, "%s file=|%s|", __func__, bootinfo.dkfile.c_str());
 }
@@ -813,7 +958,7 @@ Luna88kPROMEmuDevice::GetNVRAM(bootinfo_
 bool
 luna88k_fline_callback(MPU88xx0Device *cpu, void *arg)
 {
-	Luna88kPROMEmuDevice *dev = (Luna88kPROMEmuDevice *)arg;
+	auto *dev = reinterpret_cast<Luna88kPROMEmuDevice *>(arg);
 	return dev->FLineCallback(cpu);
 }