![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mpu680x0.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Isaki's NoNo m68k/m88k emulator] / nono / vm|
Return to mpu680x0.cpp CVS log | Up to [Isaki's NoNo m68k/m88k emulator] / nono / vm |
1.1 root 1: //
2: // nono
1.1.1.2 root 3: // Copyright (C) 2020 nono project
4: // Licensed under nono-license.txt
1.1 root 5: //
6:
7: // MPU (m680x0)
8:
9: #include "mpu680x0.h"
10: #include "config.h"
1.1.1.10 root 11: #include "m68030bus.h"
1.1.1.2 root 12: #include "m68030excep.h"
1.1 root 13: #include "mainapp.h"
1.1.1.10 root 14: #include "uimessage.h"
1.1 root 15: #include "vm.h"
16: #include <math.h>
17:
18: // コンストラクタ
1.1.1.8 root 19: MPU680x0Device::MPU680x0Device()
1.1.1.9 root 20: : inherited("MPU(68030)")
1.1 root 21: {
1.1.1.8 root 22: cpu = m68030_init();
1.1 root 23:
1.1.1.5 root 24: // イベントコールバック設定
1.1.1.8 root 25: event.SetName("MPU");
1.1.1.5 root 26: event.func = (DeviceCallback_t)&MPU680x0Device::Callback;
1.1.1.4 root 27:
1.1.1.9 root 28: // レジスタモニター
29: reg_monitor.func = (MonitorCallback_t)&MPU680x0Device::MonitorUpdateReg;
30: reg_monitor.SetSize(79, 16);
31: reg_monitor.Regist(ID_MONITOR_MPUREG);
32:
33: // ATC モニター
34: atc_monitor.func = (MonitorCallback_t)&MPU680x0Device::MonitorUpdateATC;
35: #if !defined(ATC_SINGLE)
36: atc_monitor.SetSize(131, m68030ATCTable::LINES + 3);
37: #else
38: atc_monitor.SetSize(31, 24);
39: #endif
40: atc_monitor.Regist(ID_MONITOR_MPUATC);
1.1 root 41: }
42:
43: // デストラクタ
44: MPU680x0Device::~MPU680x0Device()
45: {
46: }
47:
48: bool
49: MPU680x0Device::Init()
50: {
1.1.1.5 root 51: // 親クラス
52: if (inherited::Init() == false) {
53: return false;
54: }
55: // MPU クロックは親 Init() で読み込んで、ここで cpu にセットする
1.1.1.7 root 56: m68030_set_clockspeed(cpu, clock_khz);
1.1.1.5 root 57: // 割り込み時のディレイ
58: intdelay = cpu->Cycle2Vtime(4);
59:
1.1 root 60: // FPU (6888x)
1.1.1.2 root 61: if (gMainApp.GetVMType() == VMTYPE_LUNA1) {
1.1 root 62: // LUNA は 68881 固定 (設定は見ない)
63: cpu->has_fpu = 1;
64: } else {
65: // X68k は設定による
1.1.1.2 root 66: const ConfigItem& item = gConfig->Find("mpu-has-fpu");
1.1 root 67: cpu->has_fpu = item.AsInt();
68: if (cpu->has_fpu < 0 || cpu->has_fpu > 2) {
69: item.Err();
70: return false;
71: }
72: }
73:
1.1.1.10 root 74: cpu->halt_callback = &MPU680x0Device::HaltCallback;
75: cpu->halt_arg = NULL;
76:
1.1 root 77: return true;
78: }
79:
1.1.1.8 root 80: bool
81: MPU680x0Device::PowerOn()
82: {
83: m68030_power_on(cpu);
84: return true;
85: }
86:
87: void
88: MPU680x0Device::ResetHard()
89: {
90: // リセット例外
91: m68030_request_reset_exception(cpu);
92: }
93:
1.1.1.5 root 94: // イベントコールバック
95: // ev.code は
96: // 0x0 〜 0x7: 新しい割り込みレベルを通知 (0-7)
1.1 root 97: void
1.1.1.5 root 98: MPU680x0Device::Callback(Event& ev)
1.1 root 99: {
1.1.1.8 root 100: int level = ev.code;
101: m68030_interrupt(cpu, level);
1.1 root 102: }
103:
1.1.1.5 root 104: // MPU を vtime [nsec] 分実行する。
105: // 戻り値は outer フラグ。
1.1 root 106: uint32
1.1.1.5 root 107: MPU680x0Device::Run(uint32 vtime)
1.1 root 108: {
1.1.1.5 root 109: return m68030_run(cpu, vtime);
1.1 root 110: }
111:
1.1.1.5 root 112: // 現在の仮想時刻 [nsec] を取得する
113: uint64
1.1.1.6 root 114: MPU680x0Device::GetVirtTime() const
1.1 root 115: {
1.1.1.5 root 116: return m68030_get_vtime(cpu);
1.1 root 117: }
118:
1.1.1.5 root 119: // 割り込みレベルが変わったことを MPU に通知。
1.1 root 120: void
1.1.1.5 root 121: MPU680x0Device::Interrupt(int level)
1.1 root 122: {
1.1.1.5 root 123: assertmsg(0 <= level && level <= 7, "level=%d", level);
124:
125: // 外部デバイスが 68030 の IPL0-2 をアサートしてから、68030 がそれを
126: // 認識(確定)するのに 2クロックかかる。ここでレベルを比較して割り込みを
127: // 上げる場合は /IPEND をアサートする。
128: // そこからさらに2クロック後以降の命令境界で割り込みを受け付ける(?)
129: // らしい?
130: // この 4クロック待つところはイベントスケジューラがある VM 側で担当する。
131: // 本来、レベル比較はここから2クロック後に行われるはずだが、ちょっと省略。
132: // 今はコア側でペンディング処理をしているのでこっち側は起きたことを全部
133: // 通知する。
134: // 割り込みレベルが 0 に下がる時にはこのディレイは不要のはず。
135: if (level != 0) {
136: event.time = intdelay;
137: } else {
138: event.time = 0;
139: }
140: event.code = level;
141: event.Start();
1.1 root 142: }
143:
144: // A-Line 命令エミュレーションのコールバックを指定。
145: void
146: MPU680x0Device::SetALineCallback(bool (*callback)(m68kcpu *, void*), void *arg)
147: {
148: cpu->aline_callback = callback;
149: cpu->aline_arg = arg;
150: }
151:
152: // F-Line 命令エミュレーションのコールバックを指定。
153: void
154: MPU680x0Device::SetFLineCallback(bool (*callback)(m68kcpu *, void*), void *arg)
155: {
156: cpu->fline_callback = callback;
157: cpu->fline_arg = arg;
158: }
159:
1.1.1.10 root 160: // MPU ホールト時の MPU からのコールバック関数
161: /*static*/ void
162: MPU680x0Device::HaltCallback(void *arg)
163: {
164: UIMessage::Post(UIMessage::HALT);
165: }
166:
167: // MPU からのアクセスをエミュレート
168: uint64
169: MPU680x0Device::Read8(uint32 addr)
170: {
171: try {
172: return m68030_read_8(cpu, addr);
173: } catch (...) {
174: return (uint64)-1;
175: }
176: }
177:
178: uint64
179: MPU680x0Device::Read16(uint32 addr)
180: {
181: try {
182: return m68030_read_16(cpu, addr);
183: } catch (...) {
184: return (uint64)-1;
185: }
186: }
187:
188: uint64
189: MPU680x0Device::Read32(uint32 addr)
1.1.1.2 root 190: {
1.1.1.10 root 191: try {
192: return m68030_read_32(cpu, addr);
193: } catch (...) {
194: return (uint64)-1;
195: }
196: }
197:
198: uint64
199: MPU680x0Device::Write8(uint32 addr, uint32 data)
200: {
201: try {
202: m68030_write_8(cpu, addr, data);
203: return 0;
204: } catch (...) {
205: return (uint64)-1;
206: }
207: }
208:
209: uint64
210: MPU680x0Device::Write16(uint32 addr, uint32 data)
211: {
212: try {
213: m68030_write_16(cpu, addr, data);
214: return 0;
215: } catch (...) {
216: return (uint64)-1;
217: }
218: }
219:
220: uint64
221: MPU680x0Device::Write32(uint32 addr, uint32 data)
222: {
223: try {
224: m68030_write_32(cpu, addr, data);
225: return 0;
226: } catch (...) {
227: return (uint64)-1;
228: }
1.1.1.2 root 229: }
230:
1.1 root 231: // モニター更新 (レジスタウィンドウ)
1.1.1.3 root 232: void
1.1.1.9 root 233: MPU680x0Device::MonitorUpdateReg(Monitor *, TextScreen& screen)
1.1 root 234: {
235: m68kreg reg;
236: uint32 ppc;
237: int x;
238: int y;
239:
1.1.1.9 root 240: screen.Clear();
1.1 root 241:
242: // ローカルにコピー
243: // ただし PPC だけ reg 構造体ではなく cpu クラス側にある
244: reg = cpu->reg;
245: ppc = cpu->ppc;
246:
247: // データレジスタ、アドレスレジスタ
248: for (int i = 0; i < 4; i++) {
1.1.1.9 root 249: screen.Print(0, i, "D%d:%08x D%d:%08x A%d:%08x A%d:%08x",
1.1 root 250: i + 0, reg.da[i],
251: i + 4, reg.da[i + 4],
252: i + 0, reg.da[i + 8],
253: i + 4, reg.da[i + 12]);
254: }
255:
256: // 5列目
257: x = 50;
258: // SR
1.1.1.9 root 259: screen.Print(x, 0, "SR:%04x(%c%c%c%c%c)",
1.1 root 260: (reg.sr_h() | reg.ccr.Get()),
261: (reg.ccr.IsX()) ? 'X' : '-',
262: (reg.ccr.IsN()) ? 'N' : '-',
263: (reg.ccr.IsZ()) ? 'Z' : '-',
264: (reg.ccr.IsV()) ? 'V' : '-',
265: (reg.ccr.IsC()) ? 'C' : '-');
266:
267: // VBR
1.1.1.9 root 268: screen.Print(x, 1, "VBR:%08x", reg.vbr);
1.1 root 269:
270: // *SP
271: uint ms = (reg.s ? 2 : 0) | (reg.m ? 1 : 0); // T1 T0 S M
272: if (ms == 3) {
273: // Supervisor (Master) mode (A7=MSP, USP/ISP)
1.1.1.9 root 274: screen.Print(x, 2, TA::Disable, "USP:%08x", reg.usp);
275: screen.Print(x, 3, TA::Disable, "ISP:%08x", reg.isp);
1.1 root 276: } else if (ms == 2) {
277: // Supervisor (Interrupt) mode (A7=ISP, USP/MSP)
1.1.1.9 root 278: screen.Print(x, 2, TA::Disable, "USP:%08x", reg.usp);
279: screen.Print(x, 3, TA::Disable, "MSP:%08x", reg.msp);
1.1 root 280: } else {
281: // User mode (A7=USP, ISP/MSP)
1.1.1.9 root 282: screen.Print(x, 2, TA::Disable, "ISP:%08x", reg.isp);
283: screen.Print(x, 3, TA::Disable, "MSP:%08x", reg.msp);
1.1 root 284: }
285:
286: // 6列目
287: // PC: 01234567
288: // SFC:1 DFC:1
289: // CACR:01234567
290: // CAAR:01234567
291: x = 66;
1.1.1.9 root 292: screen.Print(x, 0, "PC: %08x", ppc);
293: screen.Print(x, 1, "SFC:%d DFC:%d", reg.sfc, reg.dfc);
294: screen.Print(x, 2, "CACR:%08x", reg.cacr);
295: screen.Print(x, 3, "CAAR:%08x", reg.caar);
1.1 root 296:
297: // XXX どこに置くのがいいか
298: if (reg.state == 0) {
1.1.1.9 root 299: screen.Puts(25, 4, "State: Running");
1.1 root 300: } else if (reg.state == CPU_REQ_STOP) {
1.1.1.9 root 301: screen.Puts(25, 4, "State: STOP instruction");
1.1 root 302: } else if (reg.state == CPU_REQ_HALT) {
1.1.1.9 root 303: screen.Puts(25, 4, TA::On, "State: Double Bus Fault");
1.1 root 304: }
305:
306: // MMU
307: x = 0;
308: y = 4;
1.1.1.9 root 309: screen.Puts(x, y++, "<MMU>");
310: screen.Print(x, y, "SRP:%08x_%08x", reg.srp.h, reg.srp.l);
311: screen.Print(x, y + 1, "CRP:%08x_%08x", reg.crp.h, reg.crp.l);
1.1 root 312: x += 23;
313: for (int i = 0; i < 2; i++) {
314: uint32 tt = reg.tt[i];
1.1.1.9 root 315: screen.Print(x, y + i, "TT%d:%08x(%c%c%c)",
1.1 root 316: i, tt,
317: (tt & m68030TT::E) ? 'E' : '-',
318: (tt & m68030TT::CI) ? 'C' : '-',
319: (tt & m68030TT::RWM) ? '-' : ((tt & m68030TT::RW) ? 'R' : 'W'));
320: }
321: x += 19;
1.1.1.9 root 322: screen.Print(x, y, "TC:%08x(%c%c%c)",
1.1 root 323: reg.tc,
324: (reg.tc & m68030TC::TC_E) ? 'E' : '-',
325: (reg.tc & m68030TC::TC_SRE) ? 'S' : '-',
326: (reg.tc & m68030TC::TC_FCL) ? 'F' : '-');
1.1.1.9 root 327: screen.Print(x, y + 1, "MMUSR: %04x(%c%c%c%c%c%c%c N=%d)",
1.1 root 328: reg.mmusr,
329: (reg.mmusr & m68030MMUSR::B) ? 'B' : '-',
330: (reg.mmusr & m68030MMUSR::L) ? 'L' : '-',
331: (reg.mmusr & m68030MMUSR::S) ? 'S' : '-',
332: (reg.mmusr & m68030MMUSR::W) ? 'W' : '-',
333: (reg.mmusr & m68030MMUSR::I) ? 'I' : '-',
334: (reg.mmusr & m68030MMUSR::M) ? 'M' : '-',
335: (reg.mmusr & m68030MMUSR::T) ? 'T' : '-',
336: (reg.mmusr & m68030MMUSR::N));
337:
338: // FPU
339: x = 0;
340: y = 7;
1.1.1.9 root 341: screen.Puts(x, y++, "<FPU>");
1.1 root 342: for (int i = 0; i < 8; i++) {
1.1.1.9 root 343: screen.Print(x, y + i, "FP%d:%04x_%08x_%08x (%-20s)",
1.1 root 344: i,
345: reg.fpframe.fpf_regs[i * 3 + 0] >> 16,
346: reg.fpframe.fpf_regs[i * 3 + 1],
347: reg.fpframe.fpf_regs[i * 3 + 2],
348: "not yet");
349: }
350:
351: x = 51;
352:
353: // FPCR
354: static const char * const rpstr[] = {
355: ".EXT",
356: ".SGL",
357: ".DBL",
358: ".???",
359: };
360: uint32 fpcr = reg.fpframe.fpf_fpcr;
1.1.1.9 root 361: screen.Print(x, y++, "FPCR:%04x", fpcr);
1.1.1.11 root 362: screen.Puts(x + 2, y, TA::OnOff(fpcr & 0x8000), "BS");
363: screen.Puts(x + 5, y, TA::OnOff(fpcr & 0x4000), "SN");
364: screen.Puts(x + 8, y, TA::OnOff(fpcr & 0x2000), "OP");
365: screen.Puts(x + 11, y, TA::OnOff(fpcr & 0x1000), "OV");
366: screen.Puts(x + 14, y, TA::OnOff(fpcr & 0x0800), "UF");
367: screen.Puts(x + 17, y, TA::OnOff(fpcr & 0x0400), "DZ");
368: screen.Puts(x + 20, y, TA::OnOff(fpcr & 0x0200), "I2");
369: screen.Puts(x + 23, y, TA::OnOff(fpcr & 0x0100), "I1");
370: y++;
1.1.1.9 root 371: screen.Print(x + 2, y++, "RP=%s RM=%s",
1.1 root 372: rpstr[(fpcr >> 6) & 3],
373: rmstr[(fpcr >> 4) & 3]);
374:
375: // FPSR
376: uint32 fpsr = reg.fpframe.fpf_fpsr;
377: uint32 cc = fpsr >> 24;
1.1.1.9 root 378: screen.Print(x, y++, "FPSR:%08x", fpsr);
1.1.1.11 root 379: screen.Puts(x + 2, y, TA::OnOff(cc & 0x08), "N");
380: screen.Puts(x + 4, y, TA::OnOff(cc & 0x04), "Z");
381: screen.Puts(x + 6, y, TA::OnOff(cc & 0x02), "Inf");
382: screen.Puts(x + 10, y, TA::OnOff(cc & 0x01), "NAN");
383: screen.Print(x + 14, y, "Q=$%02x", (fpsr >> 16) & 0xff);
384: y++;
385: screen.Puts(x + 2, y, TA::OnOff(fpsr & 0x8000), "BS");
386: screen.Puts(x + 5, y, TA::OnOff(fpsr & 0x4000), "SN");
387: screen.Puts(x + 8, y, TA::OnOff(fpsr & 0x2000), "OP");
388: screen.Puts(x + 11, y, TA::OnOff(fpsr & 0x1000), "OV");
389: screen.Puts(x + 14, y, TA::OnOff(fpsr & 0x0800), "UF");
390: screen.Puts(x + 17, y, TA::OnOff(fpsr & 0x0400), "DZ");
391: screen.Puts(x + 20, y, TA::OnOff(fpsr & 0x0200), "I2");
392: screen.Puts(x + 23, y, TA::OnOff(fpsr & 0x0100), "I1");
393: y++;
394: screen.Puts(x + 2, y, TA::OnOff(fpsr & 0x80), "IOP");
395: screen.Puts(x + 6, y, TA::OnOff(fpsr & 0x80), "OVFL");
396: screen.Puts(x + 11, y, TA::OnOff(fpsr & 0x80), "UNFL");
397: screen.Puts(x + 16, y, TA::OnOff(fpsr & 0x80), "DZ");
398: screen.Puts(x + 19, y, TA::OnOff(fpsr & 0x80), "INEX");
399: y++;
1.1 root 400:
401: // FPIAR
1.1.1.9 root 402: screen.Print(x, y++, "FPIAR:%08x", reg.fpframe.fpf_fpiar);
1.1 root 403: }
404:
1.1.1.9 root 405: // モニター更新 (ATC)
1.1.1.3 root 406: void
1.1.1.9 root 407: MPU680x0Device::MonitorUpdateATC(Monitor *, TextScreen& screen)
1.1 root 408: {
409: m68030ATCTable *table;
410: #if !defined(ATC_SINGLE)
411: struct {
412: int fc;
413: const char *name;
414: } fclist[] = {
415: { 1, "User/Data" },
416: { 2, "User/Program" },
417: { 5, "Super/Data" },
418: { 6, "Super/Program" },
419: };
420:
1.1.1.9 root 421: screen.Clear();
1.1 root 422:
423: // 行数は左端にだけ
424: for (int i = 0; i < m68030ATCTable::LINES; i++) {
1.1.1.9 root 425: screen.Print(0, i + 2, "%02d:", i);
1.1 root 426: }
427:
428: for (int t = 0; t < countof(fclist); t++) {
429: int x = t * 32 + 4;
430: int fc = fclist[t].fc;
431: const char *name = fclist[t].name;
432: double r;
433: int i;
434:
435: table = &cpu->atc.tables[fc];
1.1.1.9 root 436: screen.Print(x, 0, "FC=%d %s", fc, name);
437: screen.Puts(x, 1, "LAddr PAddr Flag Hit% Age");
1.1 root 438: // 先に統計用の母数を計算
439: uint64 total = 0;
440: for (i = 0; i < countof(table->hit); i++) {
441: total += table->hit[i];
442: }
443: total += table->hit_head;
444:
445: // エントリ表示
446: for (i = 0; i < countof(table->line); i++) {
447: m68030ATCLine& a = table->line[i];
1.1.1.2 root 448: TA attr;
1.1 root 449: if (a.IsInvalid()) {
450: attr = TA::Disable;
451: } else if (table->head == &a) {
452: attr = TA::Em;
453: } else {
454: attr = TA::Normal;
455: }
456:
1.1.1.9 root 457: screen.Print(x, i + 2, attr, "%08x %08x %c%c%c",
1.1 root 458: a.GetLAddr(),
459: a.GetPAddr(),
460: a.IsBusError() ? 'B' : '-',
461: a.IsWProtect() ? 'P' : '-',
462: a.IsModified() ? 'M' : '-');
463: }
464: // ヘッドのヒット率
1.1.1.9 root 465: screen.Puts(x + 0, i + 2, "head");
1.1 root 466: r = (double)table->hit_head * 100 / total;
467: if (!isnan(r)) {
1.1.1.9 root 468: screen.Print(x + 5, i + 2, "%4.1f%%", r);
1.1 root 469: }
470: // 配列のヒット率とミス率
1.1.1.9 root 471: screen.Puts(x + 17, i + 2, "miss");
1.1 root 472: for (i = 0; i < countof(table->hit); i++) {
473: r = (double)(table->hit[i] * 100) / total;
474: if (!isnan(r)) {
1.1.1.9 root 475: screen.Print(x + 22, i + 2, "%4.1f%%", r);
1.1 root 476: }
477: }
478: // カウンタ
479: // 分かりやすさのため最大値からの差(距離)を表示
480: for (i = 0; i < countof(table->line); i++) {
481: m68030ATCLine& a = table->line[i];
482: if (!a.IsInvalid()) {
1.1.1.9 root 483: screen.Print(x + 27, i + 2, "%4d", table->head->age - a.age);
1.1 root 484: }
485: }
486: }
487: #else
488: m68030ATCLine *a;
489: int i;
490:
491: table = &cpu->atc.tables[0];
1.1.1.9 root 492: screen.Clear();
1.1 root 493:
1.1.1.9 root 494: screen.Puts(0, 0, "No. FC LAddr PAddr Flag");
1.1 root 495: for (a = table->head, i = 0; a; a = a->next, i++) {
1.1.1.9 root 496: screen.Print(0, i + 1, "%02d:", i);
1.1 root 497: if (!a->IsInvalid()) {
498: char dp;
499: switch (a->fc & 3) {
500: case 1: dp = 'D'; break;
501: case 2: dp = 'P'; break;
502: default: dp = '?'; break;
503: }
1.1.1.9 root 504: screen.Print(4, i + 1, "%d(%c%c):%08x %08x %c%c%c",
1.1 root 505: a->fc,
506: (a->fc & 4) ? 'S' : 'U',
507: dp,
508: a->GetLAddr(), a->GetPAddr(),
509: a->IsBusError() ? 'B' : '-',
510: a->IsWProtect() ? 'W' : '-',
511: a->IsModified() ? 'M' : '-');
512: }
513: }
514: #endif
515: }
1.1.1.9 root 516:
517: // CPU 側からのコールバック。RESET 命令ハンドラ
518: void
519: m68030_reset_inst(m68kcpu *cpu)
520: {
521: gVM->ResetByMPU();
522: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.