![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sysctlr.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 sysctlr.cpp CVS log | Up to [Isaki's NoNo m68k/m88k emulator] / nono / vm |
1.1 root 1: //
2: // nono
3: // Copyright (C) 2020 nono project
4: // Licensed under nono-license.txt
5: //
6:
7: // LUNA88K のシステムコントローラのような何か
8:
9: #include "sysctlr.h"
10:
11: // この辺を全部一つのデバイスで受け付けておくか。BusIO はまた後で考える。
12: // $6500000n.b HW 割り込みレベル (n*4 = CPU#n)
13: // $65000000.b CPU#0
14: // $65000004.b CPU#1
15: // $65000008.b CPU#2
16: // $6500000c.b CPU#3
17: // $6900000n ソフトウェア割り込み(?)
18: // $6d00000n CPU#n をリセット(?)
19: // $6d000010 全 CPU をリセット
20:
21: // intmask[] について:
22: // I/O ポート 0x6500_00xx での設定値は、
23: // bit 31 30 29 28 27 26 25...
24: // lvl 6 5 4 3 2 1 (not used)
25: // の対応になっている。intmask では 25bit 右シフトして、
26: // ビット番号が割り込みレベルに対応するようにマップした。
27:
28:
29: // LUNA88K
30: // 割り込みコントロールレジスタ
31: // $6500_000n
32: // n: CPU ID * 4 (0,4,8,c)
33: // この16Mページ内はミラーされている模様。
34: // 下位2bitしかデコードしていない?
35: // 書き込み時:
36: // 3 2 1
37: // 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
38: // +-+-+-+-+-+-+---------------------------------------------------+
39: // |6|5|4|3|2|1| |
40: // +-+-+-+-+-+-+---------------------------------------------------+
41: // bit31: 1=割り込み 6 イネーブル
42: // bit30: 1=割り込み 5 イネーブル
43: // bit29: 1=割り込み 4 イネーブル
44: // bit28: 1=割り込み 3 イネーブル
45: // bit27: 1=割り込み 2 イネーブル
46: // bit26: 1=割り込み 1 イネーブル
47: // m68k と異なり、個別の割り込みごとに許可/禁止できる。
48: // 該当ビットに 1 を書き込むと許可。
49: // 空欄部分は無視される模様。
50: //
51: // 読み込み時
52: // 3 2 1
53: // 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0
54: // +-----+---------+-+-+-+-+-+-+-----------------------------------+
55: // |Level| |6|5|4|3|2|1| |
56: // +-----+---------+-+-+-+-+-+-+-----------------------------------+
57: // bit31-29: 発生している最上位レベルの割り込み。範囲は7-0
58: // bit23-18: 書き込んだ割り込みマスク。
59: // 空欄部分は「不定」の模様。
60: //
61: // bit31-29 のレベルは、割り込みコントローラに入力
62: // されている割り込み信号線6本を、マスク処理した後、
63: // プライオリティバイナリエンコーダの値がそのまま出力されている模様。
64: // ラッチ機構は無いようだ。
65: // したがってマスクされている割り込み(マスクビットが 0) の
66: // 値が出力されることはない。
67: // 同時に入力があった場合は、数字の大きいほうが出力される。
68: // レベル7 はマスクなしでプライオリティエンコーダに入力されているようだ。
69: //
70: // 割り込み入力がないときは 0 になる模様。
71: // 本体 ABRT スイッチを押すと、押している間、すべての CPU の
72: // level が 111(=7) になる。離すと戻る。
73: // 88100 には NMI が無いので、通常の割り込みと同じように処理している？
74: // (なので IND 状態だとABRT できない。いいのかそれで)
75: // (OpenBSD6.7 の割り込みハンドラはABRTには対応していないように読める)
76: //
77: // 想定される回路
78: //
79: // [割り込みソース]
80: // 1:SOFTINT レジスタ $6900000n
81: // | 2:(XP 低レベル?)
82: // | | 3:SPC
83: // | | | 4:(LANCE|拡張スロット?)
84: // | | | | 5:(拡張PC98?|シリアル?)
85: // | | | | | 6:(XP 高レベル?|システムクロック?)
86: // | | | | | | 7:ABRTスイッチ
87: // V V V V V V |
88: // +---------------------+ |
89: // | 割り込みマスク | | (R:bit23-18, W:bit31-26)
90: // +---------------------+ |
91: // | | | | | | |
92: // V V V V V V V
93: // +-------------------------+
94: // |プライオリティエンコーダ |-> (R:bit31-29)
95: // +-------------------------+
96: // (入力のWired-OR)
97: // |
98: // [M88K INT]
99: //
100: // LUNA-I とはレベル配置が違う。1 レベルのズレに加え、シリアルが
101: // 6 -> 5 に変更されているようだ？
102: //
103: // 割り込みソース調査状況
104: // 1:SOFTINT レジスタ $6900000n
105: // ROM のメモリコマンドで確認。OpenBSD machdep.c の記述の通り。
106: // 2:XP 低レベル
107: // LUNA-I からの類推及び、OpenBSD mainbus.c に記述あり。OpenBSD のほうは
108: // 低レベルかどうかは不明。
109: // 3:SPC
110: // ROM1.2, OpenBSD ともに使用。
111: // 4:LANCE
112: // ROM はまだ不明。OpenBSD は使用。
113: // 4:拡張スロット
114: // LUNA-I からの類推のみ。不明。
115: // 5:拡張PC98
116: // LUNA-I からの類推のみ。LUNA88K にはスロットがないようなので、
117: // LUNA88K2 が必要。
118: // OpenBSD mainbus.c に記述あり。
119: // 5:シリアル(7201)
120: // OpenBSD mainbus.c に記述。
121: // 6:XP 高レベル
122: // LUNA-I からの類推。存在するかどうかも不明。
123: // ただ、これをなくすと XP ファームウェアまで作り直しなので、
124: // なくさないんじゃないかなあ。OMRON ファームで使ってなければ
125: // さっくり廃止されているかもしれない(PSGPAM が使用...レベル1 に
126: // 変えればいいだけだが)
127: // 6:システムクロック
128: // ROM のメモリコマンドではレベル6割り込みが常時上がっているように観測
129: // できるので、おそらくシステムクロック割り込みが上がっている。
130: // OpenBSD maibus.c にも記述。
131: // 7:ABRTスイッチ
132: // ROM のメモリコマンドで確認。
133: //
134: //
135: // SOFTINT レジスタ $6900000n
136: // $69000000: CPU0
137: // $69000004: CPU1
138: // $69000008: CPU2
139: // $6900000c: CPU3
140: // 挙動:
141: // この32ビットのどこかにライトアクセスすると、INT1 をアサートする。
142: // この32ビットのどこかをリードアクセスすると、INT1 をネゲートする。
143: // データバスは無視される。
144: // 0x00 を書いても、アサートされることに注意。
145: // リードアクセスで読み込まれる値も不定のようだ。
146: // 要はアドレスバスとR/W信号線しか見ていない。
147:
148:
149: std::unique_ptr<SysCtlrDevice> gSysCtlr;
150:
151:
152: // コンストラクタ
153: SysCtlrDevice::SysCtlrDevice()
154: {
155: logname = "sysctlr";
156: devname = "SysCtlr";
157:
158: monitor.Init(60, 5);
159: }
160:
161: // デストラクタ
162: SysCtlrDevice::~SysCtlrDevice()
163: {
164: }
165:
166: uint64
167: SysCtlrDevice::Read32(uint32 addr)
168: {
169: int n = (addr & 15) >> 2;
170:
171: // 読み込みでは割り込みレベルを返すようだ
172: // bit 31..29: アクティブな割り込みのレベル
173: // 24 level7 割り込みが発生したら 1
174: // 23 level6 ..
175: // 22 level5
176: // 21 level4
177: // 20 level3
178: // 19 level2
179: // 18 level1
180: // XXX: もう資料がないとわからない
181: if (0x65000000 <= addr && addr < 0x65000010) {
182: int maxlev = 0;
183: // 7 to 1
184: for (int i = 7; i > 0; i--) {
185: if (intlevel[n] & (1 << i)) {
186: maxlev = i;
187: break;
188: }
189: }
190:
191: uint32 data = (maxlev << 29) | (intlevel[n] << 17);
192: putlog(2, "割り込み保持読み出し(CPU#%d) -> $%08x", n, data);
193: return data;
194: }
195:
196: if (0x69000000 <= addr && addr < 0x69000010) {
197: putlog(1, "ソフトウェア割り込み(CPU#%d)クリア(未実装)", n);
198: return 0xffffffff;
199: }
200:
201: if (0x6d000000 <= addr && addr < 0x6d000010) {
202: putlog(1, "CPU%d リセット 未実装読み込み", n);
203: return 0xffffffff;
204: }
205: if (addr == 0x6d000010) {
206: putlog(1, "CPU ALL リセット 未実装読み込み");
207: return 0xffffffff;
208: }
209:
210: putlog(0, "未実装読み込み $%08x", addr);
211: return 0xffffffff;
212: }
213:
214: uint64
215: SysCtlrDevice::Write32(uint32 addr, uint32 data)
216: {
217: int n = (addr & 15) >> 2;
218:
219: if (0x65000000 <= addr && addr < 0x65000010) {
220: intmask[n] = data >> 25;
221:
222: // XXX: クリアしてみる
223: intlevel[n] = 0;
224:
225: putlog(1, "割り込みマスク(CPU#%d) <- $%08x", n, intmask[n] << 25);
226: return 0;
227: }
228: if (0x69000000 <= addr && addr < 0x69000010) {
229: // 詳細不明。0xFFFFFFFF が書き込まれている、ようだ。
230: intlevel[n] &= ~data;
231: // bit 表示したい
232: putlog(0, "割り込み(CPU#%d)クリア 0x%x 残り=0x%x", n, data, intlevel[n]);
233: return 0;
234: }
235: if (0x6d000000 <= addr && addr < 0x6d000010) {
236: putlog(0, "CPU%d リセット 未実装書き込み", n);
237: return 0;
238: }
239: if (addr == 0x6d000010) {
240: putlog(0, "CPU ALL リセット 未実装書き込み");
241: return 0;
242: }
243:
244: putlog(0, "未実装書き込み $%08x <- $%08x", addr, data);
245: return 0;
246: }
247:
248: uint64
249: SysCtlrDevice::Peek8(uint32 addr)
250: {
251: uint32 data;
252: int n = (addr & 15) >> 2;
253:
254: if (0x65000000 <= addr && addr < 0x65000010) {
255: data = intmask[n] << 25;
256: } else {
257: data = 0xffffffff;
258: }
259: switch (addr & 3) {
260: case 0:
261: return data >> 24;
262: case 1:
263: return (data >> 16) & 0xff;
264: case 2:
265: return (data >> 8) & 0xff;
266: case 3:
267: return data & 0xff;
268: default:
269: break;
270: }
271: __unreachable();
272: }
273:
274: bool
275: SysCtlrDevice::MonitorUpdate()
276: {
277: monitor.Clear();
278: monitor.Puts(6, 0, "IntrEnable SWIntr");
279: for (int i = 0; i < countof(intmask); i++) {
280: monitor.Print(0, i + 1, "CPU#%d $%02x", i, intmask[i]);
281: }
282:
283: return true;
284: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.