--- nono/vm/spc.cpp 2026/04/29 17:04:59 1.1.1.11 +++ nono/vm/spc.cpp 2026/04/29 17:05:13 1.1.1.13 @@ -4,26 +4,29 @@ // Licensed under nono-license.txt // +// +// SPC (MB89352) +// + #include "spc.h" +#include "config.h" #include "interrupt.h" #include "mainapp.h" -#include "mpu680x0.h" -#include "mpu88xx0.h" +#include "mpu.h" #include "pedec.h" -#include "sram.h" -#include "vm.h" +#include "scheduler.h" // time 時間後に呼び出すコールバックをセットする。 // func の書式が面倒なのを省略して書きたいため。 #define CallAfter(func_, name_, time_) do { \ - event.func = (DeviceCallback_t)&SPCDevice::func_; \ - event.SetName(name_); \ - event.code = 0; \ + event.func = ToEventCallback(&SPCDevice::func_); \ event.time = time_; \ - event.Start(); \ + event.SetName(name_); \ + gScheduler->RestartEvent(event); \ } while (0) -std::unique_ptr gSPC; +// グローバル参照用 +SPCDevice *gSPC; // コンストラクタ SPCDevice::SPCDevice() @@ -39,13 +42,13 @@ SPCDevice::SPCDevice() // 汎用イベント // 名前とコールバック関数は都度セットする。 - event.SetName("SPC phase"); + event.Regist("SPC Phase"); // TC カウンタイベント event_tc.code = 0; - event_tc.SetName("SPC Timer"); + event_tc.Regist("SPC Timer"); - monitor.func = (MonitorCallback_t)&SPCDevice::MonitorUpdate; + monitor.func = ToMonitorCallback(&SPCDevice::MonitorUpdate); // サイズは Init で決まる monitor.Regist(ID_MONITOR_SPC); } @@ -53,6 +56,7 @@ SPCDevice::SPCDevice() // デストラクタ SPCDevice::~SPCDevice() { + gSPC = NULL; } bool @@ -61,22 +65,13 @@ SPCDevice::Init() // 実行中に別インスタンスを頻繁に参照しないようにここで vmtype を覚えておく vmtype = gMainApp.GetVMType(); - // 本体の 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 { - myid0 = 7; - } + // 本体 SCSI ID は LUNA も X68030 も 7 固定。 + uint initiator_id = 7; // モニタには、接続している SCSI デバイスだけを表示する。 // そのため ID ではなく前から何番目のデバイスかのリストが欲しい。 for (int id = 0; id < 8; id++) { - if (id == myid0) { + if (id == initiator_id) { connected_devices.push_back(this); } else if (target[id].get()) { connected_devices.push_back(target[id].get()); @@ -84,7 +79,7 @@ SPCDevice::Init() } // この親の Init() は connected_devices 作成後に呼ぶ - if (!inherited::Init()) { + if (inherited::Init() == false) { return false; } @@ -95,7 +90,7 @@ SPCDevice::Init() t_CLF = item.AsInt(); // アクセスウェイト - if (vmtype == VMTYPE_X68030) { + if (vmtype == VMType::X68030) { // InsideOut p.135 read_wait = 18; write_wait = 19; @@ -107,11 +102,11 @@ SPCDevice::Init() } // 割り込み信号線の接続先 - if (vmtype == VMTYPE_X68030) { + if (vmtype == VMType::X68030) { // X68030 は PEDEC (I/O コントローラ) にカスケード - interrupt = gPEDEC.get(); + interrupt = gPEDEC; } else { - interrupt = gInterrupt.get(); + interrupt = gInterrupt; } monitor.SetSize(70, 15 + connected_devices.size()); @@ -121,9 +116,9 @@ SPCDevice::Init() // デバイスリセット void -SPCDevice::ResetHard() +SPCDevice::ResetHard(bool poweron) { - putlog(1, "リセット"); + putlog(1, "Reset"); // 初期値 (p.61) spc.sctl = SPC::SCTL_RESET; @@ -145,8 +140,10 @@ SPCDevice::ResetHard() prev_ssts = (uint32)-1; set_atn_in_selection = false; transfer_command_running = false; - event.Stop(); - event_tc.Stop(); + gScheduler->StopEvent(event); + gScheduler->StopEvent(event_tc); + + last_busfree_time = 0; } uint64 @@ -180,7 +177,7 @@ SPCDevice::Read(uint32 offset) case SPC::INTS: data = GetINTS(); if (loglevel >= 3) { - if (event_tc.active) { + if (event_tc.IsRunning()) { // イベント中は値が変わった時だけ表示 if (prev_ints != data) { putlogn("INTS -> $%02x", data); @@ -201,7 +198,7 @@ SPCDevice::Read(uint32 offset) case SPC::SSTS: data = GetSSTS(); if (loglevel >= 3) { - if (event_tc.active) { + if (event_tc.IsRunning()) { // イベント中は値が変わった時だけ表示 if (prev_ssts != data) { putlogn("SSTS -> $%02x", data); @@ -225,8 +222,8 @@ SPCDevice::Read(uint32 offset) return data; case SPC::MBC: - putlog(0, "MBC 未実装読み込み"); - return 0xff; + putlog(0, "Read MBC (NOT IMPLEMENTED)"); + return 0x0f; case SPC::DREG: return ReadDREG(); @@ -254,8 +251,10 @@ SPCDevice::Read(uint32 offset) case SPC::EXBF: // MB89352 には存在しないレジスタ return 0xff; + + default: + __unreachable(); } - __unreachable(); } uint64 @@ -276,7 +275,7 @@ SPCDevice::Write(uint32 offset, uint32 d scsibus->Attach(this, myid); } else { // そうでなければ移動? - putlog(0, "BDID 変更 %d to %d not implemented", myid, data); + putlog(0, "BDID change %d to %d (NOT IMPLEMENTED)", myid, data); return 0; } return 0; @@ -359,8 +358,10 @@ SPCDevice::Write(uint32 offset, uint32 d case SPC::EXBF: // MB89352 には存在しないレジスタ return 0; + + default: + __unreachable(); } - __unreachable(); } uint64 @@ -397,13 +398,13 @@ SPCDevice::Peek(uint32 offset) return GetPCTL(); case SPC::MBC: - return 0xff; + return 0x0f; case SPC::DREG: // X68k は SPC の DREQ 信号から DTACK 信号を作っているため、 // DREQ 信号を出さないプログラム転送モードでは DREG へのアクセスが // すべてバスエラーになってしまう。 - if (vmtype == VMTYPE_X68030) { + if (vmtype == VMType::X68030) { if ((spc.scmd & SPC::SCMD_PROGRAM)) { return (uint64)-1; } @@ -425,8 +426,10 @@ SPCDevice::Peek(uint32 offset) case SPC::EXBF: // MB89352 には存在しないレジスタ return 0xff; + + default: + __unreachable(); } - __unreachable(); } void @@ -713,7 +716,7 @@ SPCDevice::WriteSCTL(uint32 data) putlog(3, "SCTL <- $%02x", spc.sctl); if ((up & SPC::SCTL_RESET)) { // リセット - ResetHard(); + ResetHard(false); } else { // 通常動作 } @@ -721,7 +724,7 @@ SPCDevice::WriteSCTL(uint32 data) putlog(2, "Control Reset"); } if ((spc.sctl & SPC::SCTL_DIAG_MODE)) { - putlog(0, "SCTL 未実装 Diag Mode"); + putlog(0, "SCTL Diag Mode (NOT IMPLEMENTED)"); } // 割り込みマスクを更新して信号線の状態を変える @@ -771,11 +774,11 @@ SPCDevice::WriteSCMD(uint32 data) switch (spc.scmd >> 5) { case 0: - putlog(2, "SCMD Bus Release コマンド"); + putlog(2, "SCMD Bus Release command"); if ((spc.scmd & SPC::SCMD_INTERCEPT)) { // BusRelease コマンドの発行と共に Intercept ビットが立っていたら // Service Required 割り込みをリセットする? - putlog(0, "SCMD Intercept with BusRelease not implemented"); + putlog(0, "SCMD Intercept with BusRelease (NOT IMPLEMENTED)"); } BusFree(); break; @@ -783,7 +786,7 @@ SPCDevice::WriteSCMD(uint32 data) SelectCommand(); break; case 2: - putlog(1, "SCMD Reset ATN コマンド (未実装)"); + putlog(1, "SCMD Reset ATN command (NOT IMPLEMENTED)"); break; case 3: SetATNCommand(); @@ -792,16 +795,16 @@ SPCDevice::WriteSCMD(uint32 data) TransferCommand(); break; case 5: - putlog(2, "SCMD Transfer Pause コマンド (未実装)"); + putlog(2, "SCMD Transfer Pause command (NOT IMPLEMENTED)"); break; case 6: - putlog(2, "SCMD Reset ACK/REQ コマンド"); + putlog(2, "SCMD Reset ACK/REQ command"); // イニシエータなら ACK を、ターゲットなら REQ をリセットする。 // ターゲットモードはサポートしないので、操作するのは ACK のみ。 NegateACK(); break; case 7: - putlog(2, "SCMD Set ACK/REQ コマンド"); + putlog(2, "SCMD Set ACK/REQ command"); // イニシエータなら ACK を、ターゲットなら REQ をセットする。 // ターゲットモードはサポートしないので、操作するのは ACK のみ。 if ((spc.scmd & SPC::SCMD_INTERCEPT)) { @@ -810,7 +813,7 @@ SPCDevice::WriteSCMD(uint32 data) // これが影響するのは DREG にデータが滞留してる時だけのはず // なので、その時だけログを出す。(X68030 IPLROM、NetBSD/x68k) if (spc.dreg.Length() != 0) { - putlog(0, "SCMD Intercept with SetACK not implemented"); + putlog(0, "SCMD Intercept with SetACK (NOT IMPLEMENTED)"); } } AssertACK(); @@ -844,9 +847,9 @@ SPCDevice::WriteINTS(uint32 data) if (spc.tc == 0) { BusFree(); } else { + event_tc.func = ToEventCallback(&SPCDevice::SelectionTimeout); event_tc.time = spc.tc * t_CLF * 2; - event_tc.func = (DeviceCallback_t)&SPCDevice::SelectionTimeout; - event_tc.Start(); + gScheduler->RestartEvent(event_tc); } } } @@ -889,9 +892,10 @@ SPCDevice::ChangeInterrupt() // ints_mask は現在の SCTL_INTR_EN 状態に応じたマスクが用意されているので // 単純に AND するだけでよい。 if ((spc.ints & spc.ints_mask) != 0) { - putlog(3, "割り込み ints=$%02x", spc.ints); + putlog(3, "Interrupt (ints=$%02x)", spc.ints); interrupt->AssertINT(this); } else { + putlog(4, "Negate Interrupt"); interrupt->NegateINT(this); } } @@ -992,15 +996,23 @@ SPCDevice::ReadDREG() // X68k は SPC の DREQ 信号から DTACK 信号を作っているため、 // DREQ 信号を出さないプログラム転送モードでは DREG へのアクセスが // すべてバスエラーになってしまう。 - if (vmtype == VMTYPE_X68030) { + if (vmtype == VMType::X68030) { if ((spc.scmd & SPC::SCMD_PROGRAM)) { return (uint64)-1; + } else { + // DMA 転送で DREQ が出てないとき DTACK を出さないのを + // -2 を返すことで表現している + if (spc.dreg.Length() == 0) { + putlog(3, "DREG empty during DMA transferring"); + return (uint64)-2; // DTACK まだ出てないよ + } } } // XFER_OUT は DREG アクセスでリセットされる spc.ints &= ~SPC::INTS_XFER_OUT; - ChangeInterrupt(); + // TransferComplete() が割り込み状態を変化させる可能性があるので + // ChangeInterrupt() を最後に呼び出す。 // 受信データがあれば取り出す if (__predict_true(spc.dreg.Length() > 0)) { @@ -1029,10 +1041,13 @@ SPCDevice::ReadDREG() putlog(3, "DREG -> $%02x (empty)", data); } else { // DMA 転送 - // XXX どうする? - PANIC("DMA転送中の DREG empty"); + // DMA 側でリトライするのでここには来ないはず + VMPANIC("DMA転送中の DREG empty"); } } + + // 割り込み状態を確定 + ChangeInterrupt(); return data; } @@ -1043,9 +1058,15 @@ SPCDevice::WriteDREG(uint32 data) // X68k は SPC の DREQ 信号から DTACK 信号を作っているため、 // DREQ 信号を出さないプログラム転送モードでは DREG へのアクセスが // すべてバスエラーになってしまう。 - if (vmtype == VMTYPE_X68030) { + if (vmtype == VMType::X68030) { if ((spc.scmd & SPC::SCMD_PROGRAM)) { return (uint64)-1; + } else { + // DMA 転送で DREQ が出てないとき DTACK を出さないのを + // -2 を返すことで表現している + if (spc.dreg.IsFull()) { + return (uint64)-2; + } } } @@ -1054,7 +1075,9 @@ SPCDevice::WriteDREG(uint32 data) ChangeInterrupt(); // DREG キューに入れて.. - spc.dreg.Enqueue(data); + if (spc.dreg.Enqueue(data) == false) { + VMPANIC("DREG キューオーバーフロー"); + } // ハードウェア転送中で REQ が来てれば送信。 if (transfer_command_running && GetREQ()) { // XXX 時間は適当 @@ -1128,7 +1151,7 @@ SPCDevice::SelectCommand() idstr = string_format("#%d -> #%d", myid, tgtid); } } - putlog(2, "Select コマンド (%s)", idstr.c_str()); + putlog(2, "Select command (%s)", idstr.c_str()); // アービトレーションありの場合 // @@ -1170,7 +1193,7 @@ SPCDevice::SelectCommand() // t_FRID/t_BFBL はたぶん今からではなくバスフリーになった時点から起算。 // t_FRID と t_BFBL は同じ式なのでここでは t_BFBL で統一。 uint64 t_BFBL = (6 + spc.GetTCL()) * t_CLF; // Min - uint64 now = gMPU->GetVirtTime(); + uint64 now = gScheduler->GetVirtTime(); if ((last_busfree_time + t_BFBL) > now) { wait = (last_busfree_time + t_BFBL) - now; } else { @@ -1184,9 +1207,9 @@ SPCDevice::SelectCommand() // N が 0 なら無限大なのでタイマーは動かさない。 uint32 N = (spc.tc >> 8) << 8; if (N != 0) { + event_tc.func = ToEventCallback(&SPCDevice::SelectionTimeout); event_tc.time = (N + 15) * t_CLF * 2; - event_tc.func = (DeviceCallback_t)&SPCDevice::SelectionTimeout; - event_tc.Start(); + gScheduler->RestartEvent(event_tc); } if ((spc.sctl & SPC::SCTL_ARBIT_EN)) { @@ -1320,7 +1343,7 @@ SPCDevice::TransferCommand() // SCMD レジスタ書き込みのうち Transfer コマンドに関わる未実装機能の // ログ表示は SCMD レジスタ書き込み時ではなくここで表示。 if ((spc.scmd & SPC::SCMD_TERM_MODE)) { - putlog(0, "SCMD Padding mode not implemented"); + putlog(0, "SCMD Padding mode (NOT IMPLEMENTED)"); } transfer_command_running = true; @@ -1352,7 +1375,7 @@ SPCDevice::BusFreeCB(int id) putlog(4, "BusFree Callback"); inherited::BusFreeCB(id); - last_busfree_time = gMPU->GetVirtTime(); + last_busfree_time = gScheduler->GetVirtTime(); transfer_command_running = false; spc.ssts &= ~(SPC::SSTS_CONN_INIT | SPC::SSTS_CONN_TARG); @@ -1380,7 +1403,7 @@ SPCDevice::SelectionAckCB() NegateSEL(); // タイムアウトイベントを停止 - event_tc.Stop(); + gScheduler->StopEvent(event_tc); spc.ssts &= ~SPC::SSTS_SPC_BUSY; spc.ssts |= SPC::SSTS_CONN_INIT;