--- nono/vm/romemu_luna1.cpp 2026/04/29 17:05:20 1.1.1.8 +++ nono/vm/romemu_luna1.cpp 2026/04/29 17:05:24 1.1.1.9 @@ -53,15 +53,19 @@ #include "bt45x.h" #include "ethernet.h" #include "mainapp.h" +#include "mainbus.h" #include "mainram.h" #include "memorystream.h" #include "mk48t02.h" #include "mpu680x0.h" #include "pio.h" +#include "sysclk.h" // コンストラクタ Luna1PROMEmuDevice::Luna1PROMEmuDevice() { + machine_name = "LUNA-I"; + // LUNA-I の ROM の特定アドレスを読み出す人がいるので、 // サイズは実 ROM と同じにしておく必要がある。 uint devlen = 128 * 1024; @@ -85,6 +89,8 @@ Luna1PROMEmuDevice::Init() return false; } + SysClkDevice *sysclk = GetSysClkDevice(); + MemoryStreamBE ms(imagebuf.get()); ms.Write32(0x00002000); // +00: リセットベクタ SP ms.Write32(0x41000400); // +04: リセットベクタ PC @@ -101,19 +107,32 @@ Luna1PROMEmuDevice::Init() ms.Write32(0x41000000); ms.Write16(0x2039); // move.l (ROMIO_INIT),d0 ms.Write32(ROMIO_INIT); - ms.Write16(0x6a0c); // bpl _go ; 起動先あればGO + ms.Write16(0x2039); // move.l (ROMIO_LOAD),d0 + ms.Write32(ROMIO_LOAD); + ms.Write16(0x72ff); // moveq.l #0xffffffff,d1 + ms.Write16(0x6004); // bra _entry //_prompt: uint32 _prompt = ms.GetOffset(); ms.Write32(0x4e722500); // stop #0x2500 ; キー入力を待つ + //_entry: ms.Write16(0x2039); // move.l (ROMIO_ENTRY),d0 - ms.Write32(ROMIO_ENTRY); // ; キー入力処理 - ms.Write16(0x67f4); // beq _prompt ; 起動先なければループ + ms.Write32(ROMIO_ENTRY); // ; エントリポイント取得 + ms.Write16(0xb081); // cmp.l d1,d0 + ms.Write16(0x67f2); // beq _prompt ; 起動先なければループ //_go: ms.Write16(0x2040); // move.l d0,a0 ; ジャンプ先を a0 にセット ms.Write16(0x2039); // move.l (ROMIO_CLOSE),d0 ms.Write32(ROMIO_CLOSE); // ; 後始末 ms.Write16(0x4ed0); // jmp (a0) ; ジャンプ + // Lv5 (Sysclk) 割り込みハンドラ。 + ms.SetOffset(0x500); + ms.Write16(0x13c0); // move.b d0,#0x63000000 ; ACK + ms.Write32(0x63000000); + ms.Write16(0x52b9); // addq.l #1,(ROMIO_CLKCNT) + ms.Write32(ROMIO_CLKCNT); + ms.Write16(0x4e73); // rte + // Lv6 (SIO) 割り込みハンドラ // キーボード割り込みが上がったら KEYIN をコールする ms.SetOffset(0x600); @@ -134,6 +153,22 @@ Luna1PROMEmuDevice::Init() ms.SetOffset(0x800); ms.Write16(0x4e73); // rte + // サブルーチン + ms.SetOffset(0x900); //_ap1: + ms.Write16(0x2039); // move.l (ROMIO_AP1),d0 + ms.Write32(ROMIO_AP1); // + int freq = sysclk->GetFreq(); + ms.Write16(0x7200 + freq*3);// moveq.l #(CLK_FREQ*3),d1 + //@@: + ms.Write32(0x4e722400); // stop #0x2400 ; クロック入力を待つ + ms.Write16(0x2039); // move.l (ROMIO_CLKCNT),d0 + ms.Write32(ROMIO_CLKCNT); + ms.Write16(0xb001); // cmp.b d1,d0 + ms.Write16(0x66f2); // bne @b + ms.Write16(0x2039); // move.l (ROMIO_AP2),d0 + ms.Write32(ROMIO_AP2); // + ms.Write16(0x4e75); // rts + // MAC アドレス macaddr_t macaddr; if (EthernetDevice::GetConfigMacAddr(0, &macaddr, false) == false) { @@ -147,19 +182,11 @@ Luna1PROMEmuDevice::Init() return true; } -// 起動時の処理を行う。 -// 次段実行ファイルの読み込みに成功すればそのエントリポイントを返す。 -// そうでなければ -1 を返すので、プロンプトに処理を移すこと。 -uint32 -Luna1PROMEmuDevice::ROM_Init() +// ROM 起動時の初期化 (機種依存部分) を行う。 +void +Luna1PROMEmuDevice::ROM_InitMD() { MemoryStreamBE ms(imagebuf.get()); - uint32 entry; - - // デバイスの初期化 (親クラス) - InitDevice(); - - auto pio0 = GetPIO0Device(); // +0010: メモリサイズ ms.SetOffset(0x10); @@ -180,72 +207,22 @@ Luna1PROMEmuDevice::ROM_Init() for (int i = 2; i < 256; i++) { // デフォルトベクタで埋める mainram->Write32(i * 4, 0x41000800); } + mainram->Write32(0x74, 0x41000500); // +74: Lv5 割り込み mainram->Write32(0x78, 0x41000600); // +78: Lv6 割り込み mainram->Write32(0x7c, 0x41000700); // +7c: Lv7 割り込み = RESET prompt_idx = 0; prompt = default_prompt; - // スクリーンを初期化 - InitScreen(); - - entry = -1; - x_executed = false; - x_entrypoint = -1; - - // 表示環境が整ったところで NVRAM を照合 - if (VerifyNVRAM() == false) { - InitNVRAM(); - errmsg = "NVRAM Initialized."; - // NVRAM をクリアしたら DIPSW によらずプロンプトに降りる - goto done; - } - - // -X file - // DIPSW の状態に関わらず、ファイルをロードし実行する。 - // --load-only file - // DIPSW の状態に関わらず、ファイルをロードし、プロンプトで止まる。 - if (gMainApp.exec_file) { - // ホストのファイルを読み込んでエントリポイントアドレスを - // この Read アクセスの読み出し値として返す。 - // エラーがあればエラーメッセージは呼び出し先側で表示してある。 - x_entrypoint = LoadHostFile(); - if (gMainApp.load_and_exec) { - entry = x_entrypoint; - } - } else { - // DIPSW#1-1 が UP なら自動起動、DOWN なら ROM モニタ起動なので、 - // これを真似する。 - if (pio0->IsDIPSW11Up()) { - // NVRAM の設定に従ってブート先を探す。 - errmsg.clear(); - - bootinfo_t bootinfo; - GetNVRAM(bootinfo); - entry = LoadGuestFile(bootinfo); - } - } - - done: - if (entry == -1) { - PrintTitle("LUNA-I"); - if (errmsg.empty() == false) { - Print("** %s\n\n", errmsg.c_str()); - } - ClearPrompt(); - } - - return entry; -} - -// ROM 処理。エントリポイントを返す。 -uint32 -Luna1PROMEmuDevice::ROM_Entry() -{ - if (x_executed && x_entrypoint != 0) { - return x_entrypoint; - } else { - return 0; + uint32 ap = (nvram->Peek(0x7fd) << 8) | nvram->Peek(0x7fe); + if (__predict_false(0||(ap & 0x3f1f) == 0x0104)) { + auto mainbus = GetMainbusDevice(); + auto mpu680x0 = GetMPU680x0Device(mpu); + m68kreg& reg = mpu680x0->reg; + reg.A[7] -= 4; + // スタックはワードアラインなので HV 系でアクセス。 + mainbus->HVWrite32(reg.A[7], reg.pc); + reg.pc = 0x41000900; } } @@ -274,12 +251,50 @@ Luna1PROMEmuDevice::ROM_Close() // %d7 に howto (0 でよい) // (と %a0 にジャンプ先を入れるがこれは Init() が書き出した ROM // アセンブラコード側で行っている) - m68kreg& reg = GetMPU680x0Device()->reg; + m68kreg& reg = GetMPU680x0Device(mpu)->reg; reg.D[6] = 0xa0060000; reg.D[7] = 0; +} - x_entrypoint = -1; - x_executed = false; +// ファイルをロードする。 +// -X が指定されていればそのホストファイル。 +// そうでなければゲストファイル。この場合引数 fname があれば +// NVRAM で指定されたデバイスから読み込む際のファイル名とする。 +// 空なら NVRAM で指定されたファイル名。 +// ロードできればエントリポイントを返す。 +// ロードできなければ errmsg にメッセージをセットし -1 を返す。 +uint32 +Luna1PROMEmuDevice::LoadFile(const std::string& fname) +{ + uint32 entry = -1; + + if (gMainApp.exec_file) { + // -X が指定されてたらホストプログラムを読み込む。 + entry = LoadHostFile(); + } else { + // NVRAM で指定されるゲストプログラムを読み込む。 + std::string ctlr = nvram->PeekString(0x0030); + if (ctlr == "dk") { // harddisk + bootinfo_t bootinfo; + GetNVRAM(bootinfo); + // 引数で指定されたらファイル名だけ上書き + if (fname.empty() == false) { + bootinfo.dkfile = fname; + } + entry = LoadGuestFile(bootinfo); + + } else if (ctlr == "et" || // netboot + ctlr == "sd" || // cassette tape + ctlr == "fl" ) // floppy + { + errmsg = ctlr + " boot not supported."; + } else { + // 起きないはず + errmsg = ctlr + ": Invalid boot controller name."; + } + } + + return entry; } // 入力コマンド処理 (入力行が揃ったところで呼ばれる)。 @@ -320,7 +335,6 @@ Luna1PROMEmuDevice::Command() Print("Commands\n"); Print( " g [] : load program\n" -" gh : load host program (specified by --load-only option)\n" " h : show this message\n" " k : show/set boot constants\n" " x : execute loaded program\n" @@ -331,10 +345,6 @@ Luna1PROMEmuDevice::Command() CommandG(arg); return; } - if (arg[0] == "gh") { - CommandGH(); - return; - } if (arg[0] == "k") { CommandK(arg); return; @@ -348,70 +358,35 @@ Luna1PROMEmuDevice::Command() } // "g" コマンド -// g なら NVRAM の情報に従ってプログラムをロード。 +// g なら NVRAM の情報 (もしくは -X オプション) に従ってプログラムをロード。 // g なら NVRAM の fname だけ指定の名前を使ってロード。NVRAM には // 書き込まない。 void Luna1PROMEmuDevice::CommandG(const std::vector& arg) { - std::string ctlr = nvram->PeekString(0x0030); - if (ctlr == "dk") { // harddisk - std::string fname {}; - - switch (arg.size()) { - case 1: - break; - case 2: - fname = arg[1]; - break; - default: - Print("** Invalid argument.\n"); - return; - } - errmsg.clear(); - - bootinfo_t bootinfo; - GetNVRAM(bootinfo); - // 引数で指定されたらファイル名だけ上書き - if (!fname.empty()) { - bootinfo.dkfile = fname; - } - x_entrypoint = LoadGuestFile(bootinfo); - if (x_entrypoint == -1) { - Print("** %s\n", errmsg.c_str()); - } - - } else if (ctlr == "et" || // netboot - ctlr == "sd" || // cassette tape - ctlr == "fl" ) // floppy - { - Print("** %s boot not supported.\n", ctlr.c_str()); - return; - } else { - // 起きないはず - Print("** Invalid boot controller name.\n"); - return; - } + std::string fname {}; - if (x_entrypoint != -1) { - Print("Loaded. Entry point = $%08x\n", x_entrypoint); + switch (arg.size()) { + case 1: + break; + case 2: + fname = arg[1]; + break; + default: + Print("** Invalid argument.\n"); + return; } -} -// "gh" コマンド (勝手に拡張) -// -X オプションで指定されたホストプログラムをロードする。 -void -Luna1PROMEmuDevice::CommandGH() -{ - // 指定されてたら読み込む - if (gMainApp.exec_file == NULL) { - Print("** Cannot loaded; host program is not specified.\n"); - return; + entrypoint = LoadFile(fname); + if (entrypoint == -1) { + Print("** %s\n", errmsg.c_str()); + } else { + Print("%s. Entry point = $%08x\n", + (gMainApp.exec_file ? "Host program loaded" : "Loaded"), + entrypoint); } - x_entrypoint = LoadHostFile(); } - // k コマンドのパラメータ表 struct kinfo { uint32 offset; // NVRAM 上のオフセット @@ -585,11 +560,11 @@ Luna1PROMEmuDevice::CommandKInput(const void Luna1PROMEmuDevice::CommandX() { - if (x_entrypoint == -1) { + if (entrypoint == -1) { Print("** Program is not loaded.\n"); - } else { - x_executed = true; + return; } + execute = true; } // NVRAM を初期化する