--- nono/vm/spc.cpp	2026/04/29 17:04:32	1.1.1.3
+++ nono/vm/spc.cpp	2026/04/29 17:04:45	1.1.1.7
@@ -1,13 +1,17 @@
 //
 // nono
-// Copyright (C) 2017 isaki@NetBSD.org
+// Copyright (C) 2020 nono project
+// Licensed under nono-license.txt
 //
 
 #include "spc.h"
+#include "interrupt.h"
 #include "mainapp.h"
-#include "mpu.h"
+#include "mpu680x0.h"
+#include "mpu88xx0.h"
 #include "mystring.h"
-#include "scheduler.h"
+#include "pedec.h"
+#include "sram.h"
 #include "vm.h"
 
 // time 時間後に呼び出すコールバックをセットする。
@@ -35,8 +39,6 @@ SPCDevice::SPCDevice()
 	SetConfigName("spc0");
 	myid = -1;
 
-	monitor.Init(70, 15);
-
 	// 汎用イベント
 	// 名前とコールバック関数は都度セットする。
 	event.dev = this;
@@ -63,12 +65,54 @@ SPCDevice::Init()
 	// 実行中に別インスタンスを頻繁に参照しないようにここで vmtype を覚えておく
 	vmtype = gMainApp.GetVMType();
 
-	if (vmtype == VMTYPE_LUNA) {
-		// おそらく 6.144MHz が入っていると思われる
-		t_CLF = 163;
+	// 入力クロックは機種によって異なる。
+	// X68k は 5MHz が入っている。
+	// LUNA-I はおそらく 6.144MHz だと思われる。LUNA88K は未確認。
+	const ConfigItem& item = gConfig->Find("!spc-tCLF");
+	t_CLF = item.AsInt();
+
+	// アクセスウェイト
+	if (vmtype == VMTYPE_X68030) {
+		// InsideOut p.135
+		read_wait  = 18;
+		write_wait = 19;
+	} else {
+		// 他機種は未調査だけど、判明するまでの間とりあえず
+		// ノーウェイトでない適当な値を入れておく。
+		read_wait  = 18;
+		write_wait = 19;
+	}
+
+	// 割り込み信号線の接続先
+	if (vmtype == VMTYPE_X68030) {
+		// X68030 は PEDEC (I/O コントローラ) にカスケード
+		interrupt = gPEDEC.get();
+	} else {
+		interrupt = gInterrupt.get();
+	}
+
+	// 本体の SCSI ID は SPC(MB89352) の BDID レジスタに ID が書き込まれる
+	// のを待たずに、最初から知っていることにする。本来 (少なくとも真っ当な
+	// システムでは) イニシエータを含むすべての SCSI 機器の SCSI ID は
+	// 電源を入れる前に、人間が一々手作業で重複なく設定しているはずなので。
+	// X68030 は SRAM $ED0070 下位3ビット。LUNA は 7 固定のようだ。
+	uint myid0;
+	if (vmtype == VMTYPE_X68030) {
+		myid0 = gSRAM->Peek8(0xed0070) & 7;
 	} else {
-		t_CLF = 200;
+		myid0 = 7;
+	}
+
+	// モニタには、接続している SCSI デバイスだけを表示する。
+	// そのため ID ではなく前から何番目のデバイスかのリストが欲しい。
+	for (int id = 0; id < 8; id++) {
+		if (id == myid0) {
+			connected_devices.push_back(this);
+		} else if (target[id].get()) {
+			connected_devices.push_back(target[id].get());
+		}
 	}
+	monitor_size = nnSize(70, 15 + connected_devices.size());
 
 	return true;
 }
@@ -78,18 +122,17 @@ SPCDevice::Init()
 void
 SPCDevice::ResetHard()
 {
-	// LUNA は本体回路が分からないのでとりあえずこっち。
-	if (vmtype == VMTYPE_LUNA) {
-		Reset();
-	}
+	Reset();
 }
 
 // MPU の RESET 命令によるリセット
 void
 SPCDevice::ResetSoft()
 {
-	// X680x0 はこっちだと分かっている。
-	if (vmtype == VMTYPE_X68030) {
+	// X68030 は RESET 命令でもリセットがかかる。
+	// LUNA は本体回路が分からないし PROM が何回も RESET 命令を発行するので、
+	// とりあえず外しておく。
+	if (vmtype != VMTYPE_X68030) {
 		Reset();
 	}
 }
@@ -113,6 +156,7 @@ SPCDevice::Reset()
 	spc.sdgc = 0x00;
 
 	// 内部状態
+	MakeIntsMask();
 	prev_ints = (uint32)-1;
 	prev_ssts = (uint32)-1;
 	set_atn_in_selection = false;
@@ -126,6 +170,8 @@ SPCDevice::Read(uint32 addr)
 {
 	uint8 data;
 
+	gMPU->AddCycle(read_wait);
+
 	switch (addr) {
 	 case SPC::BDID:
 		data = 1 << myid;
@@ -148,7 +194,7 @@ SPCDevice::Read(uint32 addr)
 		return 0xfc;
 
 	 case SPC::INTS:
-		data = spc.ints;
+		data = GetINTS();
 		if (loglevel >= 3) {
 			if (event_tc.active) {
 				// イベント中は値が変わった時だけ表示
@@ -185,7 +231,7 @@ SPCDevice::Read(uint32 addr)
 		return data;
 
 	 case SPC::SERR:
-		data = spc.serr;
+		data = GetSERR();
 		putlog(3, "SERR -> $%02x", data);
 		return data;
 
@@ -231,6 +277,8 @@ SPCDevice::Read(uint32 addr)
 uint64
 SPCDevice::Write(uint32 addr, uint32 data)
 {
+	gMPU->AddCycle(write_wait);
+
 	switch (addr) {
 	 case SPC::BDID:
 		putlog(3, "BDID <- $%02x", data);
@@ -303,8 +351,8 @@ SPCDevice::Write(uint32 addr, uint32 dat
 		// luna68k の /boot はここで SEL が下げてしまうと期待した動作に
 		// ならないようだ。
 		// SPC はセレクションタイムアウトしたからと言って、データバスに出した
-		// ID を自動的に取り下げたりはしないので、手動でデータバスをクリア
-		// してあげないといけない (TEMP に $00 を書き込む)、だったんでは。
+		// ID を自動的に取り下げたりはしないので、TEMP に $00 を書き込むことで
+		// データバスをクリアする、だったんでは。
 		if (0 && GetPhase() == SCSI::Phase::Selection) {
 			NegateSEL();
 		}
@@ -353,7 +401,7 @@ SPCDevice::Peek(uint32 addr)
 		return 0xfc;
 
 	 case SPC::INTS:
-		return spc.ints;
+		return GetINTS();
 
 	 case SPC::PSNS:
 		return GetPSNS();
@@ -362,7 +410,7 @@ SPCDevice::Peek(uint32 addr)
 		return GetSSTS();
 
 	 case SPC::SERR:
-		return spc.serr;
+		return GetSERR();
 
 	 case SPC::PCTL:
 		return GetPCTL();
@@ -400,8 +448,8 @@ SPCDevice::Peek(uint32 addr)
 	__unreachable();
 }
 
-bool
-SPCDevice::MonitorUpdate()
+void
+SPCDevice::MonitorUpdate(TextScreen& monitor)
 {
 	int x;
 	int y;
@@ -419,11 +467,11 @@ SPCDevice::MonitorUpdate()
 
 	sctl = spc.sctl;
 	scmd = spc.scmd;
-	ints = spc.ints;
+	ints = GetINTS();
 	psns = GetPSNS();
 	sdgc = spc.sdgc;
 	ssts = GetSSTS();
-	serr = spc.serr;
+	serr = GetSERR();
 	pctl = GetPCTL();
 	tc   = spc.tc;
 
@@ -460,14 +508,14 @@ SPCDevice::MonitorUpdate()
 	static const char * const sctl_bits[] = {
 		"RST", "CTRL", "DIAG", "ARB", "PARI", "SEL", "RESL", "INTR"
 	};
-	MonitorReg(x, y, sctl, sctl_bits);
+	MonitorReg(monitor, x, y, sctl, sctl_bits);
 	y++;
 
 	// SCMD
 	static const char * const scmd_bits[] = {
 		"", "", "", "RST", "INTC", "PROG", "", "TERM"
 	};
-	MonitorReg(x, y, scmd, scmd_bits);
+	MonitorReg(monitor, x, y, scmd, scmd_bits);
 	static const char * const scmd_cmd[] = {
 		//12345678901234
 		"(Bus Release)",
@@ -479,35 +527,35 @@ SPCDevice::MonitorUpdate()
 		"(ResetACK/REQ)",
 		"(Set ACK/REQ)",
 	};
-	monitor.Print(x, y, "%s", scmd_cmd[scmd >> 5]);
+	monitor.Puts(x, y, scmd_cmd[scmd >> 5]);
 	y++;
 
 	// INTS
 	static const char * const ints_bits[] = {
 		"Sel", "Resl", "Disc", "Cmpl", "SReq", "TOut", "HErr", "Rst"
 	};
-	MonitorReg(x, y, ints, ints_bits);
+	MonitorReg(monitor, x, y, ints, ints_bits);
 	y++;
 
 	// PSNS
 	static const char * const psns_bits[] = {
 		"REQ", "ACK", "ATN", "SEL", "BSY", "MSG", "C/D", "I/O"
 	};
-	MonitorReg(x, y, psns, psns_bits);
+	MonitorReg(monitor, x, y, psns, psns_bits);
 	y++;
 
 	// SDGC
 	static const char * const sdgc_bits[] = {
 		"",    "",    "XfEn", "",   "",    "",    "",    ""
 	};
-	MonitorReg(x, y, sdgc, sdgc_bits);
+	MonitorReg(monitor, x, y, sdgc, sdgc_bits);
 	y++;
 
 	// SSTS
 	static const char * const ssts_bits[] = {
 		"", "", "SBSY", "XInP", "RSTI", "TCZ", "Full", "Empt"
 	};
-	MonitorReg(x, y, ssts, ssts_bits);
+	MonitorReg(monitor, x, y, ssts, ssts_bits);
 	static const char * const ssts_conn[] = {
 		//12345678
 		"(NotConn)",
@@ -515,21 +563,21 @@ SPCDevice::MonitorUpdate()
 		"(As Init)",
 		"(undef?)",
 	};
-	monitor.Print(x, y, "%s", ssts_conn[ssts >> 6]);
+	monitor.Puts(x, y, ssts_conn[ssts >> 6]);
 	y++;
 
 	// SERR
 	static const char * const serr_bits[] = {
 		"", "", "XOut", "", "PErr", "", "Shrt", ""
 	};
-	MonitorReg(x, y, serr, serr_bits);
+	MonitorReg(monitor, x, y, serr, serr_bits);
 	y++;
 
 	// PCTL
 	static const char * const pctl_bits[] = {
 		"BIE", "", "", "", "", "MSG", "C/D", "I/O"
 	};
-	MonitorReg(x, y, pctl, pctl_bits);
+	MonitorReg(monitor, x, y, pctl, pctl_bits);
 	y++;
 
 	// バス状態
@@ -560,23 +608,23 @@ SPCDevice::MonitorUpdate()
 		data = GetData();
 	}
 	monitor.Print(x, y++, "Phase: %s", SCSI::GetPhaseName(ph));
-	monitor.Print(x, y++, (rst ? TA::On : TA::Off), "RST");
-	monitor.Print(x, y++, (bsy ? TA::On : TA::Off), "BSY");
-	monitor.Print(x, y++, (sel ? TA::On : TA::Off), "SEL");
-	monitor.Print(x, y++, (msg ? TA::On : TA::Off), "MSG");
-	monitor.Print(x, y++, (cd  ? TA::On : TA::Off), "CD");
-	monitor.Print(x, y++, (io  ? TA::On : TA::Off), "IO");
-	monitor.Print(x, y++, (atn ? TA::On : TA::Off), "ATN");
-	monitor.Print(x, y++, (req ? TA::On : TA::Off), "REQ");
-	monitor.Print(x, y++, (ack ? TA::On : TA::Off), "ACK");
+	monitor.Puts(x, y++, TA::OnOff(rst), "RST");
+	monitor.Puts(x, y++, TA::OnOff(bsy), "BSY");
+	monitor.Puts(x, y++, TA::OnOff(sel), "SEL");
+	monitor.Puts(x, y++, TA::OnOff(msg), "MSG");
+	monitor.Puts(x, y++, TA::OnOff(cd),  "CD");
+	monitor.Puts(x, y++, TA::OnOff(io),  "IO");
+	monitor.Puts(x, y++, TA::OnOff(atn), "ATN");
+	monitor.Puts(x, y++, TA::OnOff(req), "REQ");
+	monitor.Puts(x, y++, TA::OnOff(ack), "ACK");
 	monitor.Print(x, y++, "DATA:$%02x", data);
 
 	y = 2;
-	monitor.Print(x + 4, y++, "(________)");
-	monitor.Print(x + 4, y++, "(________)");
-	monitor.Print(x + 4, y++, "+");
-	monitor.Print(x + 4, y++, "|");
-	monitor.Print(x + 4, y++, "+");
+	monitor.Puts(x + 4, y++, "(________)");
+	monitor.Puts(x + 4, y++, "(________)");
+	monitor.Puts(x + 4, y++, "+");
+	monitor.Puts(x + 4, y++, "|");
+	monitor.Puts(x + 4, y++, "+");
 
 	// BSY, SEL の内訳。"(76543210)" の順。
 	y = 2;
@@ -599,38 +647,85 @@ SPCDevice::MonitorUpdate()
 	// 転送フェーズ中なら現在の XferPhase
 	y += 2;
 	if (ph == SCSI::Phase::Transfer) {
-		monitor.Print(x + 5, y, "%s", SCSI::GetXferPhaseName(GetXfer()));
+		monitor.Puts(x + 5, y, SCSI::GetXferPhaseName(GetXfer()));
 	}
 
-	// ターゲット
+	// デバイス一覧
+	// 0         1
+	// 01234567890123456
+	// ID Device     Command
+	// 0: HD(1024MB) $06 Read
+	// 7: Initiator
 	x = 0;
 	y = 14;
+	monitor.Print(x, y++, "ID Device     Command");
+	for (const auto d : connected_devices) {
+		std::string desc = "?";
+		switch (d->GetDevType()) {
+		 case SCSI::DevType::Initiator:
+			desc = "Initiator";
+			break;
+
+		 case SCSI::DevType::HD:
+		 {
+			SCSIHD *hd = dynamic_cast<SCSIHD*>(d);
+			if (hd) {
+				desc = string_format("HD(%dMB)",
+					(int)(hd->GetSize() / 1024 / 1024));
+			}
+			break;
+		 }
+
+		 default:
+			break;
+		}
+
+		// 本体 ID は BDID が設定される前でもエミュレータ的に知ってはいるが、
+		// BDID への書き込みがされなかったりおかしかったりしたら (上の BDID
+		// 欄でも分かるけど) ここも反映されるようにしておく。
+		char idc;
+		if (d->GetMyID() >= 0) {
+			idc = '0' + d->GetMyID();
+		} else {
+			idc = '-';
+		}
+		monitor.Print(x, y, "%c: %s", idc, desc.c_str());
+		y++;
+	}
+
+	// 実行中のコマンド
+	x = 14;
+	y = 15;
 	if (bus) {
 		SCSIDevice *d = bus->GetConnectedTarget();
 		SCSITarget *t = dynamic_cast<SCSITarget*>(d);
 		if (t) {
 			std::vector<uint8> cmds = t->GetCmdSeq();
 			if (cmds.size() > 0) {
-				const char *cmdname = SCSI::GetCommandName(cmds[0]);
-				monitor.Print(x, y, "Command: $%02x", cmds[0]);
-				if (cmdname) {
-					monitor.Print(x + 14, y, "%s", cmdname);
+				// この ID のデバイス行に表示したい
+				// XXX もうちょっとマシにしたい
+				int i = 0;
+				for (; i < connected_devices.size(); i++) {
+					if (d == connected_devices[i]) {
+						break;
+					}
 				}
+				const char *cmdname = SCSI::GetCommandName(cmds[0]);
+				monitor.Print(x, y + i, "$%02x %s", cmds[0], cmdname ?: "");
 			}
 		}
 	}
 
-	return true;
 }
 
 // レジスタをビットごとに表示する。MonitorUpdate の下請け。
 void
-SPCDevice::MonitorReg(int x, int y, uint32 reg, const char * const *names)
+SPCDevice::MonitorReg(TextScreen& monitor,
+	int x, int y, uint32 reg, const char * const *names)
 {
 	for (int i = 0; i < 8; i++) {
 		bool b = reg & (1 << (7 - i));
-		uint attr = b ? TA::On : TA::Off;
-		monitor.Print(x + i * 5, y, attr, "%s", names[i]);
+		monitor.Puts(x + i * 5, y, TA::OnOff(b), names[i]);
 	}
 }
 
@@ -655,6 +750,21 @@ SPCDevice::WriteSCTL(uint32 data)
 	if ((spc.sctl & SPC::SCTL_DIAG_MODE)) {
 		putlog(0, "SCTL 未実装 Diag Mode");
 	}
+
+	// 割り込みマスクを更新して信号線の状態を変える
+	MakeIntsMask();
+	ChangeInterrupt();
+}
+
+// SCTL_INTR_EN の状態から内部変数 ints_mask を作成する。
+void
+SPCDevice::MakeIntsMask()
+{
+	if ((spc.sctl & SPC::SCTL_INTR_EN)) {
+		spc.ints_mask = SPC::INTS_ENABLE_MASK;
+	} else {
+		spc.ints_mask = SPC::INTS_DISABLE_MASK;
+	}
 }
 
 // SCMD レジスタへの書き込み
@@ -665,8 +775,7 @@ SPCDevice::WriteSCMD(uint32 data)
 	spc.scmd = data;
 	putlog(3, "SCMD <- $%02x", spc.scmd);
 
-	// Intercept, Program, Terminate Mode の未実装判定は
-	// 転送開始時のみ表示する。
+	// Program, Terminate Mode の未実装判定は転送開始時のみ表示する。
 
 	// RST Out 操作は SCTL Reset がオフの時だけ有効
 	// と書いてあるけど、SCTL Reset がオンならほぼ全機能無効なのでは?
@@ -690,6 +799,11 @@ SPCDevice::WriteSCMD(uint32 data)
 	switch (spc.scmd >> 5) {
 	 case 0:
 		putlog(2, "SCMD Bus Release コマンド");
+		if ((spc.scmd & SPC::SCMD_INTERCEPT)) {
+			// BusRelease コマンドの発行と共に Intercept ビットが立っていたら
+			// Service Required 割り込みをリセットする?
+			putlog(0, "SCMD Intercept with BusRelease not implemented");
+		}
 		BusFree();
 		break;
 	 case 1:
@@ -717,6 +831,10 @@ SPCDevice::WriteSCMD(uint32 data)
 		putlog(2, "SCMD Set ACK/REQ コマンド");
 		// イニシエータなら ACK を、ターゲットなら REQ をセットする。
 		// ターゲットモードはサポートしないので、操作するのは ACK のみ。
+		if ((spc.scmd & SPC::SCMD_INTERCEPT)) {
+			// Intercept 動作は未実装
+			putlog(0, "SCMD Intercept with SetACK not implemented");
+		}
 		AssertACK();
 		break;
 	}
@@ -733,11 +851,7 @@ SPCDevice::WriteINTS(uint32 data)
 
 	// '1' が書き込まれたビットをクリア
 	spc.ints &= ~data;
-	putlog(3, "INTS <- $%02x (INTS = $%02x)", data, spc.ints);
-
-	// SPC では INTS でビットを落とす行為は、
-	// ホストが割り込み要因に対して処理を完了したことを
-	// SPC に通知する意味が含まれている。
+	putlog(3, "INTS <- $%02x (INTS = $%02x)", data, GetINTS());
 
 	// DISCONNECTED ビットが立っているときは SPC は SCSI から
 	// セレクション、リセレクション要求が来ても応答しない。
@@ -758,18 +872,17 @@ SPCDevice::WriteINTS(uint32 data)
 			}
 		}
 	}
+
+	// 割り込み信号線の状態を変える
+	ChangeInterrupt();
 }
 
 // INTS 設定。
-// INTS にビットを立てる要因が起きた時に data にそれを指定して呼び出す。
-// この関数は INTS を書き換えて、必要なら割り込みを上げる。
+// 引数 data は割り込み要因(ここは内部要因なので INTS_XFER_OUT も指定可能)。
 // INTS レジスタへの書き込み(割り込み要因のクリア)は WriteINTS() のほう。
 void
 SPCDevice::SetINTS(uint32 data)
 {
-	// 立ち上がりでだけ割り込みがかかるわけではないが表示のため。
-	uint32 up = ~spc.ints & data;
-
 	// 指定された要因を立てる
 	spc.ints |= data;
 
@@ -778,16 +891,30 @@ SPCDevice::SetINTS(uint32 data)
 		NegateATN();
 	}
 
-	// 割り込み許可なら割り込み。
-	// RESET_COND はノンマスカブル割り込み。
-	if ((spc.sctl & SPC::SCTL_INTR_EN) || (spc.ints & SPC::INTS_RESET_COND)) {
-		putlog(3, "割り込み ints=$%02x up=$%02x", spc.ints, up);
-		if (vmtype != VMTYPE_X68030) {
-			gMPU->Interrupt(2);
-		} else {
-			// とりあえず内蔵だけ
-			gMPU680x0->Interrupt(1, 0x6c);
-		}
+	ChangeInterrupt();
+}
+
+// INTS レジスタの値を取得
+uint32
+SPCDevice::GetINTS() const
+{
+	// ints の上位には別の割り込み状態が保持されている。
+	// 下位8bit は INTS レジスタのまま。
+	return spc.ints & 0xff;
+}
+
+// 割り込み信号線の状態を変える
+void
+SPCDevice::ChangeInterrupt()
+{
+	// 割り込み状態は ints に集約してあり、
+	// ints_mask は現在の SCTL_INTR_EN 状態に応じたマスクが用意されているので
+	// 単純に AND するだけでよい。
+	if ((spc.ints & spc.ints_mask) != 0) {
+		putlog(3, "割り込み ints=$%02x", spc.ints);
+		interrupt->AssertINT(this);
+	} else {
+		interrupt->NegateINT(this);
 	}
 }
 
@@ -832,7 +959,7 @@ SPCDevice::GetSSTS() const
 	uint32 data;
 
 	data = spc.ssts & 0xf0;
-	if (__predict_true(bus) && GetRST()) {		// RST 信号
+	if (__predict_true(bus != NULL) && GetRST()) {		// RST 信号
 		data |= SPC::SSTS_RST_IN;
 	}
 	if (spc.tc == 0) {	// TC がゼロか
@@ -848,6 +975,15 @@ SPCDevice::GetSSTS() const
 	return data;
 }
 
+// SERR レジスタ値の取得。
+uint32
+SPCDevice::GetSERR() const
+{
+	// SERR レジスタのうち XFER_OUT ビットだけ ints で保持している。
+	uint32 xfer_out = (spc.ints & SPC::INTS_XFER_OUT) >> 3;
+	return spc.serr | xfer_out;
+}
+
 // PCTL レジスタ値の取得。
 // Read*() と Peek8() から呼ばれる。
 // scsibus 接続前にもモニタの更新などで呼ばれることに注意。
@@ -857,7 +993,7 @@ SPCDevice::GetPCTL() const
 	uint32 data;
 
 	data = 0;
-	if (__predict_true(bus)) {
+	if (__predict_true(bus != NULL)) {
 		data |= (uint32)GetXfer();
 	}
 	if (spc.busfree_intr_enable) {
@@ -883,7 +1019,8 @@ SPCDevice::ReadDREG()
 	}
 
 	// XFER_OUT は DREG アクセスでリセットされる
-	spc.serr &= ~SPC::SERR_XFER_OUT;
+	spc.ints &= ~SPC::INTS_XFER_OUT;
+	ChangeInterrupt();
 
 	// 受信データがあれば取り出す
 	if (__predict_true(spc.dreg.Length() > 0)) {
@@ -933,7 +1070,8 @@ SPCDevice::WriteDREG(uint32 data)
 	}
 
 	// XFER_OUT は DREG アクセスでリセットされる
-	spc.serr &= ~SPC::SERR_XFER_OUT;
+	spc.ints &= ~SPC::INTS_XFER_OUT;
+	ChangeInterrupt();
 
 	// DREG キューに入れて..
 	spc.dreg.Enqueue(data);
@@ -1052,7 +1190,7 @@ SPCDevice::SelectCommand()
 	// t_FRID/t_BFBL はたぶん今からではなくバスフリーになった時点から起算。
 	// t_FRID と t_BFBL は同じ式なのでここでは t_BFBL で統一。
 	uint64 t_BFBL = (6 + spc.GetTCL()) * t_CLF;	// Min
-	uint64 now = gScheduler->GetVirtTime();
+	uint64 now = gMPU->GetVirtTime();
 	if ((last_busfree_time + t_BFBL) > now) {
 		wait = (last_busfree_time + t_BFBL) - now;
 	} else {
@@ -1093,7 +1231,7 @@ SPCDevice::SelectCommand()
 
 // アービトレーションフェーズ開始後、規定時間経過したので SEL を立てるところ。
 void
-SPCDevice::Arbitration1(int dummy)
+SPCDevice::Arbitration1(Event& ev)
 {
 	putlog(3, "Arbitration1");
 
@@ -1116,7 +1254,7 @@ SPCDevice::Arbitration1(int dummy)
 // アービトレーションフェーズ中、SEL を立ててから規定時間経過したので BSY を
 // 下げるところ。
 void
-SPCDevice::Arbitration2(int dummy)
+SPCDevice::Arbitration2(Event& ev)
 {
 	putlog(3, "Arbitration2");
 
@@ -1126,7 +1264,7 @@ SPCDevice::Arbitration2(int dummy)
 // アービトレーションフェーズを使わない場合のセレクションフェーズで、
 // 規定時間経過したので SEL を立てるところ。
 void
-SPCDevice::Selection1(int dummy)
+SPCDevice::Selection1(Event& ev)
 {
 	putlog(3, "Selection1");
 
@@ -1140,7 +1278,7 @@ SPCDevice::Selection1(int dummy)
 
 // セレクションコマンドがタイムアウトした時に呼ばれるコールバック。
 void
-SPCDevice::SelectionTimeout(int dummy)
+SPCDevice::SelectionTimeout(Event& ev)
 {
 	if (loglevel >= 3) {
 		int tgtid;
@@ -1196,9 +1334,6 @@ SPCDevice::TransferCommand()
 	if ((spc.scmd & SPC::SCMD_TERM_MODE)) {
 		putlog(0, "SCMD Padding mode not implemented");
 	}
-	if ((spc.scmd & SPC::SCMD_INTERCEPT)) {
-		putlog(0, "SCMD Intercept Transfer not implemented");
-	}
 
 	transfer_command_running = true;
 	spc.ssts |= SPC::SSTS_SPC_BUSY | SPC::SSTS_IN_PROGRESS;
@@ -1226,7 +1361,7 @@ SPCDevice::BusFreeCB(int id)
 	putlog(4, "BusFree Callback");
 
 	inherited::BusFreeCB(id);
-	last_busfree_time = gScheduler->GetVirtTime();
+	last_busfree_time = gMPU->GetVirtTime();
 
 	transfer_command_running = false;
 	spc.ssts &= ~(SPC::SSTS_CONN_INIT | SPC::SSTS_CONN_TARG);
@@ -1271,15 +1406,9 @@ SPCDevice::TransferReqCB()
 	spc.ssts |= SPC::SSTS_IN_PROGRESS;
 
 	if (transfer_command_running) {
-		// ハードウェア転送で SDGC_XFER_ENABLE がセットされていれば、
-		// データ要求が来ている時に XFER_OUT をセット(?)
-		if ((spc.sdgc & SPC::SDGC_XFER_ENABLE)) {
-			spc.serr |= SPC::SERR_XFER_OUT;
-		}
-
 		// Transfer Command 実行中なら REQ 待ちだったので
 		// ここでハードウェア転送を開始。
-		TransferCommandStart(0);
+		TransferCommandStart(event);
 	} else {
 		// ハードウェア転送中でなくて IN 方向ならここで TEMP に取り込む。
 		if (GetIO()) {
@@ -1291,13 +1420,13 @@ SPCDevice::TransferReqCB()
 // Transfer Command の実行開始部分。
 // TransferCommand() と TransferReqCB() から呼ばれる。
 void
-SPCDevice::TransferCommandStart(int dummy)
+SPCDevice::TransferCommandStart(Event& ev)
 {
 	// Transfer コマンドの発行と REQ がアサートの両方が成立した時点で、
 	// SCSI バスの状態と PCTL レジスタの下位3ビットの状態を比較する。
 	// 一致していれば転送開始、そうでなければ Service Required 割り込み。
 	if ((GetPCTL() & 7) == GetXfer()) {
-		HardwareTransfer(0);
+		HardwareTransfer(event);
 	} else {
 		transfer_command_running = false;
 		SetINTS(SPC::INTS_SERV_REQ);
@@ -1310,7 +1439,7 @@ SPCDevice::TransferCommandStart(int dumm
 // (1バイト送信するとターゲットが再び REQ を上げるなどしてくるので、
 // TransferReqCB() か DREG 書き込みから再びここが呼ばれる)
 void
-SPCDevice::HardwareTransfer(int dummy)
+SPCDevice::HardwareTransfer(Event& ev)
 {
 	// SDGC_XFER_ENABLE は転送要求ごとに割り込みを上げる。
 	// (SPC から見て) 入力操作時は読み込めるデータがある場合、出力操作時は
@@ -1324,7 +1453,7 @@ SPCDevice::HardwareTransfer(int dummy)
 		// SDGC_XFER_ENABLE なら読み込めるデータがある場合に割り込み。
 		if ((spc.sdgc & SPC::SDGC_XFER_ENABLE)) {
 			putlog(3, "SDGC XFER_OUT Interrupt");
-			SetINTS(0);
+			SetINTS(SPC::INTS_XFER_OUT);
 		}
 		if (!queued) {
 			putlog(4, "Hardware Transfer (DREG full)");
@@ -1339,7 +1468,7 @@ SPCDevice::HardwareTransfer(int dummy)
 			// SDGC_XFER_ENABLE ならキューに書き込む必要がある場合に割り込み。
 			if ((spc.sdgc & SPC::SDGC_XFER_ENABLE)) {
 				putlog(3, "SDGC XFER_OUT Interrupt");
-				SetINTS(0);
+				SetINTS(SPC::INTS_XFER_OUT);
 			}
 			return;
 		}
@@ -1348,10 +1477,6 @@ SPCDevice::HardwareTransfer(int dummy)
 	// DREG full/empty で2行出るのを避けたいので。
 	putlog(4, "Hardware Transfer");
 
-	// XXX XFER_OUT はどこで落とすんやろうか。
-	// データ要求が来たら上げるのだから用が済んだら下ろすのかしら。
-	spc.serr &= ~SPC::SERR_XFER_OUT;
-
 	AssertACK();
 
 	// 転送完了