--- nono/vm/pluto.cpp 2026/04/29 17:04:28 1.1.1.1 +++ nono/vm/pluto.cpp 2026/04/29 17:05:21 1.1.1.10 @@ -1,23 +1,222 @@ // // nono -// Copyright (C) 2017 isaki@NetBSD.org +// Copyright (C) 2020 nono project +// Licensed under nono-license.txt +// + +// +// Pluto-X (独自の仮想ボード) // #include "pluto.h" -#include "mpu.h" +#include "mainapp.h" +#include "mainbus.h" +#include "mainram.h" +#include "mpu680x0.h" +#include "sram.h" +// コンストラクタ PlutoDevice::PlutoDevice() + : inherited(OBJ_PLUTO) { - logname = "pluto"; - devname = "Pluto"; - devaddr = 0xeac000; - devlen = 0x2000; } +// デストラクタ PlutoDevice::~PlutoDevice() { } +// リセット +void +PlutoDevice::ResetHard(bool poweron) +{ + // XXX not yet + m_count = 0; +} + +// ROM +/*static*/ const uint16 +PlutoDevice::rom[] = { + // ホストファイル起動 + 0x00ea, 0xc004, // .dc.l _start ; 起動アドレス + //_start: + 0x46fc, 0x2700, // move.w #0x2700,%sr + 0x2039, 0x00ea, 0xc450, // move.l (ROMIO_LOAD),%d0 + 0x6b04, // bmi.s _err + 0x2040, // move.l %d0,%a0 + 0x46fc, 0x2000, // move.w #0x2000,%sr + 0x4e90, // jsr (%a0) + //_err: + 0x43fa, 0x000c, // lea.l (_errmsg),%a1 + 0x7021, 0x4e4f, // IOCS B_PRINT + //_loop: + 0x4e72, 0x2600, // stop #0x2600 + 0x60fa, // bra.s _loop + //_errmsg: + 0x2a2a, 0x2043, 0x616e, // .dc.b "** Can" + 0x6e6f, 0x7420, 0x6c6f, // .dc.b "not lo" + 0x6164, 0x2068, 0x6f73, // .dc.b "ad hos" + 0x7420, 0x6669, 0x6c65, // .dc.b "t file" + 0x2e00, // .dc.b ".",0 +}; + +uint64 +PlutoDevice::Read8(uint32 addr) +{ + uint32 offset = addr - baseaddr; + uint32 data; + + if (offset < sizeof(rom)) { + data = rom[offset / 2]; + if ((offset & 1) == 0) { + return data >> 8; + } else { + return data & 0xff; + } + } + + return (uint64)-1; +} + +uint64 +PlutoDevice::Read16(uint32 addr) +{ + uint32 offset = addr - baseaddr; + + if (offset < sizeof(rom)) { + return rom[offset / 2]; + } + + return (uint64)-1; +} + +uint64 +PlutoDevice::Read32(uint32 addr) +{ + uint32 offset = addr - baseaddr; + uint32 data; + + if (offset < sizeof(rom)) { + data = rom[offset / 2] << 16; + data |= rom[(offset / 2) + 1]; + return data; + } + switch (offset) { + case 0x450: // ROMIO_LOAD + return ROM_Load(); + + default: + break; + } + return (uint64)-1; +} + +uint64 +PlutoDevice::Write8(uint32 addr, uint32 data) +{ + switch (addr) { + case 0xeac403: + write_8_benchmark(addr, data); + break; + default: + break; + } + putlog(0, "未実装バイト書き込み $%06x", addr); + return 0; +} + +uint64 +PlutoDevice::Write16(uint32 addr, uint32 data) +{ + putlog(0, "未実装ワード書き込み $%06x", addr); + return 0; +} + +uint64 +PlutoDevice::Peek8(uint32 addr) +{ + uint32 offset = addr - baseaddr; + uint32 data; + + if (offset < sizeof(rom)) { + data = rom[offset / 2]; + if ((offset & 1) == 0) { + return data >> 8; + } else { + return data & 0xff; + } + } + + return (uint64)-1; +} + +// +// ホストファイル起動 +// + +// -X オプションで指定されたホストファイルをロードする。 +// ロードできればエントリポイントを返す。 +// exec_file が指定されている時に呼ぶこと。 +uint32 +PlutoDevice::ROM_Load() +{ + assert(gMainApp.exec_file); + + auto mainbus = GetMainbusDevice(); + auto mainram = GetMainRAMDevice(); + auto mpu680x0 = GetMPU680x0Device(); + auto sram = GetSRAMDevice(); + + // ホストファイルをロード + LoadInfo info(gMainApp.exec_file); + if (mainram->LoadFromFile(&info) == false) { + return -1; + } + + // NetBSD/x68k のプライマリブートローダが /boot を読み込む時、および + // /boot がカーネルを読み込む時には、レジスタ渡しのパラメータがあるので、 + // ここで用意する。 + // 本当はターゲットが NetBSD/x68k の /boot とカーネルの時に限定すべきの + // ような気もするけど、とりあえず。必要なパラメータは + // + // %d6 に bootdev、NetBSD/x68k の場合は + // bootdev = $MACULPTT + // ||||||++- major type + // |||||+--- パーティション番号 + // ||||+---- SCSI なら LUN、それ以外なら 0 + // |||+----- unit (SCSI なら SCSI ID、FD ならドライブ番号) + // ||+------ ctlr (spc0 なら 0 のやつ) + // |+------- adaptor (spc = 1、mha = 2) + // +-------- magic ($a) + // major type は fd=2、MemoryDisk=8、sd=4、(st=5、)、cd=7、ne=255。 + // + // %d7 に howto だが今の所使ってないようだ。 + // + // 一方、/boot がカーネルを読み込む時はこれに加えてスタック渡しの + // パラメータもある。これは (取り出す順に) + // firstpa.L .. 読み込んだカーネル先頭の物理アドレス? + // physsize.L .. RAM 容量 (SRAM の $ed0008.L の値) + // esym.L .. シンボルの後ろ、なので実質読み込んだ全体のサイズ + // + // これも本当はターゲットが NetBSD/x68k のカーネルの時に限定すべきの + // ような気もするけど、とりあえず。 + + mpu680x0->reg.D[6] = 0xa1000004; + mpu680x0->reg.D[7] = 0; + + mpu680x0->reg.A[7] = sram->GetRAMSize(); + mpu680x0->reg.A[7] -= 4; + mainbus->Write32(mpu680x0->reg.A[7], info.end - info.start); // esym + + mpu680x0->reg.A[7] -= 4; + mainbus->Write32(mpu680x0->reg.A[7], sram->GetRAMSize()); // physsize + + mpu680x0->reg.A[7] -= 4; + mainbus->Write32(mpu680x0->reg.A[7], 0x00000000); // firstpa + + return info.entry; +} + // ベンチマーク開始 void PlutoDevice::benchmark_start(uint32 data) @@ -47,7 +246,7 @@ PlutoDevice::benchmark_start(uint32 data putlog(0, "ベンチマーク開始"); // 命令開始アドレス。この時点で REG_PC は次をさしている - m_start_addr = gMPU->GetPPC(); + m_start_addr = mpu->GetPPC(); } // 測定開始 @@ -83,10 +282,10 @@ PlutoDevice::benchmark_end() // 規定秒数に達していれば、測定終了 t = m_total.tv_sec * 1000*1000 + m_total.tv_usec; putlog(0, "ベンチマーク#%d 終了 (%d 回, 計 %d.%03d msec)", - benchmark_mode, m_count, t / 1000, t % 1000); + gMainApp.benchmark_mode, m_count, t / 1000, t % 1000); // 1ループ中の命令セット数を算出。REG_PPC はこの命令の開始番地 - num_of_inst = (gMPU->GetPPC() - m_start_addr) / m_inst_len; + num_of_inst = (mpu->GetPPC() - m_start_addr) / m_inst_len; // 68030 のクロック数 [MHz] に換算 speed = (double)(m_count * num_of_inst) * m_inst_cycle / t; @@ -126,48 +325,6 @@ PlutoDevice::write_8_benchmark(uint32 ad benchmark_start(data); break; default: - PANIC("not impl"); - } -} - -uint64 -PlutoDevice::Read8(uint32 addr) -{ - PANIC("not impl"); -} - -uint64 -PlutoDevice::Read16(uint32 addr) -{ - PANIC("not impl"); -} - -uint64 -PlutoDevice::Write8(uint32 addr, uint32 data) -{ - switch (addr) { - case 0xeac403: - write_8_benchmark(addr, data); - break; - default: - PANIC("not yet"); + VMPANIC("not impl"); } - return 0; } - -uint64 -PlutoDevice::Write16(uint32 addr, uint32 data) -{ - PANIC("not impl"); - return 0; -} - -uint64 -PlutoDevice::Peek8(uint32 addr) -{ - PANIC("not yet"); - return 0; -} - -// ベンチマークモード。コマンドライン引数で指定される。 -/*static*/int PlutoDevice::benchmark_mode;