|
|
1.1 root 1: //
2: // nono
3: // Copyright (C) 2020 nono project
4: // Licensed under nono-license.txt
5: //
6:
1.1.1.4 root 7: //
8: // OPM (YM2151)
9: //
10:
1.1 root 11: #include "opm.h"
1.1.1.5 root 12: #include "adpcm.h"
1.1.1.4 root 13: #include "fdc.h"
1.1.1.5 root 14: #include "mpu.h"
15: #include "scheduler.h"
1.1 root 16:
1.1.1.4 root 17: // コンストラクタ
1.1 root 18: OPMDevice::OPMDevice()
1.1.1.6 root 19: : inherited(OBJ_OPM)
1.1 root 20: {
21: }
22:
1.1.1.4 root 23: // デストラクタ
1.1 root 24: OPMDevice::~OPMDevice()
25: {
1.1.1.6 root 26: }
27:
28: // 初期化
29: bool
30: OPMDevice::Init()
31: {
32: if (inherited::Init() == false) {
33: return false;
34: }
35:
36: adpcm = GetADPCMDevice();
37: fdc = GetFDCDevice();
38:
39: return true;
1.1 root 40: }
41:
1.1.1.5 root 42: // リセット
43: void
44: OPMDevice::ResetHard(bool poweron)
45: {
46: busy_origin = 0;
47: busy_start = 0;
48: busy_end = 0;
49:
1.1.1.6 root 50: fdc->SetForceReady(false);
1.1.1.5 root 51: }
52:
1.1.1.7 ! root 53: busdata
1.1.1.2 root 54: OPMDevice::Read(uint32 offset)
1.1 root 55: {
1.1.1.7 ! root 56: busdata data;
1.1.1.5 root 57:
1.1.1.4 root 58: switch (offset) {
59: case 0:
1.1.1.6 root 60: putlog(0, "Read $%06x (NOT IMPLEMENTED)", mpu->GetPaddr());
1.1.1.7 ! root 61: data = 0;
! 62: break;
1.1.1.4 root 63: case 1:
64: // OPM ステータスレジスタ
1.1.1.5 root 65: data = 0;
66: if (IsBusy()) {
67: data |= 0x80;
68: }
69: // タイマ関係の bit1, bit0 は未実装
70:
1.1.1.7 ! root 71: putlog(1, "STAT -> $%02x", data.Data());
! 72: break;
1.1.1.4 root 73: default:
1.1.1.6 root 74: VMPANIC("corrupted offset=%d", offset);
1.1.1.7 ! root 75: data = 0xff;
! 76: break;
1.1.1.4 root 77: }
1.1.1.7 ! root 78:
! 79: // InsideOut p.135
! 80: const busdata read_wait = busdata::Wait(19 * 40_usec);
! 81: data |= read_wait;
! 82:
! 83: return data;
1.1 root 84: }
85:
1.1.1.7 ! root 86: busdata
1.1.1.2 root 87: OPMDevice::Write(uint32 offset, uint32 data)
1.1 root 88: {
1.1.1.6 root 89: uint64 now = scheduler->GetVirtTime();
1.1.1.5 root 90:
1.1.1.4 root 91: switch (offset) {
92: case 0:
93: putlog(1, "REG <- $%02x", data);
1.1.1.5 root 94: // アドレス選択が反映されるまで 8 クロックかかるらしい
95: // が、顕在化しないと思うので実装していない
1.1.1.4 root 96: reg = data;
97: break;
98: case 1:
99: putlog(1, "DATA <- $%02x", data);
1.1.1.5 root 100: // CPU が命令中のどのタイミングでライトするかを用意していないので
101: // 実際に OPM にライトされるタイミングは正確にはわからない。
102: // なので正確な時刻の起点は不明。
103: //
104: // BUSY がアサートされるまで OPM クロックで 8 から 12 クロックかかる
105: // らしい。
106: //
107: // BUSY のアサート期間は 68 クロックらしい。
108: // YM2151 アプリケーションマニュアル(英語版) 2.1.1
109:
110: // BUSY フラグのみならず、書き込み処理期間中のときは保証されていない。
111: // とりあえず無視する。
112: if (busy_origin <= now && now < busy_end) {
113: putlog(0, "Write on Busy");
114: break;
115: }
116:
117: // 時刻の起点は CPU 側の命令によって異なるはずだが
118: // わからないので命令のぶんは無視しておく。
119: // 53 クロックのウェイトのほうは足す。
1.1.1.6 root 120: busy_origin = now + 53 * mpu->GetClock_nsec();
1.1.1.5 root 121:
122: // busy_start のほうはとりあえず 10 クロックにしておく。
123: busy_start = busy_origin + 10 * clk;
124: busy_end = busy_origin + 68 * clk;
125:
1.1.1.4 root 126: switch (reg) {
127: case 0x1b:
1.1.1.6 root 128: adpcm->SetClock(data & 0x80);
129: fdc->SetForceReady(data & 0x40);
1.1.1.4 root 130: // 他のビットは未対応
131: break;
132: default:
1.1.1.5 root 133: putlog(0, "Write $%06x <- $%02x (NOT IMPLEMENTED)",
1.1.1.6 root 134: mpu->GetPaddr(), data);
1.1.1.4 root 135: break;
136: }
137: break;
138: default:
1.1.1.6 root 139: VMPANIC("corrupted offset=%d", offset);
140: break;
1.1.1.4 root 141: }
142:
1.1.1.7 ! root 143: // InsideOut p.135
! 144: const busdata write_wait = busdata::Wait(53 * 40_nsec);
! 145:
! 146: return write_wait;
1.1 root 147: }
148:
1.1.1.7 ! root 149: busdata
1.1.1.2 root 150: OPMDevice::Peek(uint32 offset)
1.1 root 151: {
152: // XXX 未実装
153: return 0xff;
154: }
1.1.1.5 root 155:
156: // OPM ステータスレジスタの B (BUSY) ビット
157: bool
158: OPMDevice::IsBusy() const
159: {
1.1.1.6 root 160: uint64 now = scheduler->GetVirtTime();
1.1.1.5 root 161:
162: return (busy_start <= now && now < busy_end);
163: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.