2 * SH2 peripherals/"system on chip"
5 * This work is licensed under the terms of MAME license.
6 * See COPYING file in the top-level directory.
8 * rough fffffe00-ffffffff map:
9 * e00-e05 SCI serial communication interface
10 * e10-e1a FRT free-running timer
11 * e60-e68 VCRx irq vectors
12 * e71-e72 DRCR dma selection
13 * e80-e83 WDT watchdog timer
14 * e91 SBYCR standby control
15 * e92 CCR cache control
17 * ee2 IPRA irq priorities
18 * ee4 VCRWDT WDT irq vectors
20 * f40-f7b UBC user break controller
22 * fe0-ffb BSC bus state controller
25 #include "../pico_int.h"
26 #include "../memory.h"
30 unsigned int sar, dar; // src, dst addr
31 unsigned int tcr; // transfer count
32 unsigned int chcr; // chan ctl
33 // -- dm dm sm sm ts ts ar am al ds dl tb ta ie te de
34 // ts - transfer size: 1, 2, 4, 16 bytes
35 // ar - auto request if 1, else dreq signal
39 #define DMA_AR (1 << 9)
40 #define DMA_IE (1 << 2)
41 #define DMA_TE (1 << 1)
42 #define DMA_DE (1 << 0)
46 struct dma_chan chan[2];
48 unsigned int unknown0;
50 unsigned int unknown1;
53 // pr - priority: chan0 > chan1 or round-robin
55 // nmif - nmi occurred
56 // dme - DMA master enable
57 #define DMA_DME (1 << 0)
60 static void dmac_te_irq(SH2 *sh2, struct dma_chan *chan)
62 char *regs = (void *)sh2->peri_regs;
63 struct dmac *dmac = (void *)(regs + 0x180);
64 int level = PREG8(regs, 0xe2) & 0x0f; // IPRA
65 int vector = (chan == &dmac->chan[0]) ?
66 dmac->vcrdma0 : dmac->vcrdma1;
68 elprintf(EL_32XP, "dmac irq %d %d", level, vector);
69 sh2_internal_irq(sh2, level, vector & 0x7f);
72 static void dmac_transfer_complete(SH2 *sh2, struct dma_chan *chan)
74 chan->chcr |= DMA_TE; // DMA has ended normally
76 p32x_sh2_poll_event(sh2, SH2_STATE_SLEEP, SekCyclesDoneT());
77 if (chan->chcr & DMA_IE)
78 dmac_te_irq(sh2, chan);
81 static void dmac_transfer_one(SH2 *sh2, struct dma_chan *chan)
85 size = (chan->chcr >> 10) & 3;
88 d = p32x_sh2_read8(chan->sar, sh2);
89 p32x_sh2_write8(chan->dar, d, sh2);
91 d = p32x_sh2_read16(chan->sar, sh2);
92 p32x_sh2_write16(chan->dar, d, sh2);
95 d = p32x_sh2_read32(chan->sar, sh2);
96 p32x_sh2_write32(chan->dar, d, sh2);
99 d = p32x_sh2_read32(chan->sar + 0x00, sh2);
100 p32x_sh2_write32(chan->dar + 0x00, d, sh2);
101 d = p32x_sh2_read32(chan->sar + 0x04, sh2);
102 p32x_sh2_write32(chan->dar + 0x04, d, sh2);
103 d = p32x_sh2_read32(chan->sar + 0x08, sh2);
104 p32x_sh2_write32(chan->dar + 0x08, d, sh2);
105 d = p32x_sh2_read32(chan->sar + 0x0c, sh2);
106 p32x_sh2_write32(chan->dar + 0x0c, d, sh2);
107 chan->sar += 16; // always?
108 if (chan->chcr & (1 << 15))
110 if (chan->chcr & (1 << 14))
118 if (chan->chcr & (1 << 15))
120 if (chan->chcr & (1 << 14))
122 if (chan->chcr & (1 << 13))
124 if (chan->chcr & (1 << 12))
128 // DMA trigger by SH2 register write
129 static void dmac_trigger(SH2 *sh2, struct dma_chan *chan)
131 elprintf(EL_32XP, "sh2 DMA %08x->%08x, cnt %d, chcr %04x @%06x",
132 chan->sar, chan->dar, chan->tcr, chan->chcr, sh2->pc);
133 chan->tcr &= 0xffffff;
135 if (chan->chcr & DMA_AR) {
136 // auto-request transfer
137 while ((int)chan->tcr > 0)
138 dmac_transfer_one(sh2, chan);
139 dmac_transfer_complete(sh2, chan);
143 // DREQ0 is only sent after first 4 words are written.
144 // we do multiple of 4 words to avoid messing up alignment
145 if (chan->sar == 0x20004012) {
146 if (Pico32x.dmac0_fifo_ptr && (Pico32x.dmac0_fifo_ptr & 3) == 0) {
147 elprintf(EL_32XP, "68k -> sh2 DMA");
148 p32x_dreq0_trigger();
153 elprintf(EL_32XP|EL_ANOMALY, "unhandled DMA: "
154 "%08x->%08x, cnt %d, chcr %04x @%06x",
155 chan->sar, chan->dar, chan->tcr, chan->chcr, sh2->pc);
158 // timer state - FIXME
159 static int timer_cycles[2];
160 static int timer_tick_cycles[2];
163 void p32x_timers_recalc(void)
169 for (i = 0; i < 2; i++) {
170 tmp = PREG8(sh2s[i].peri_regs, 0x80) & 7;
171 // Sclk cycles per timer tick
173 cycles = 0x20 << tmp;
176 timer_tick_cycles[i] = cycles;
178 elprintf(EL_32XP, "WDT cycles[%d] = %d", i, cycles);
182 void p32x_timers_do(unsigned int m68k_slice)
184 unsigned int cycles = m68k_slice * 3;
188 for (i = 0; i < 2; i++) {
189 void *pregs = sh2s[i].peri_regs;
190 if (PREG8(pregs, 0x80) & 0x20) { // TME
191 timer_cycles[i] += cycles;
192 cnt = PREG8(pregs, 0x81);
193 while (timer_cycles[i] >= timer_tick_cycles[i]) {
194 timer_cycles[i] -= timer_tick_cycles[i];
198 int level = PREG8(pregs, 0xe3) >> 4;
199 int vector = PREG8(pregs, 0xe4) & 0x7f;
200 elprintf(EL_32XP, "%csh2 WDT irq (%d, %d)",
201 i ? 's' : 'm', level, vector);
202 sh2_internal_irq(&sh2s[i], level, vector);
205 PREG8(pregs, 0x81) = cnt;
210 void sh2_peripheral_reset(SH2 *sh2)
212 memset(sh2->peri_regs, 0, sizeof(sh2->peri_regs)); // ?
213 PREG8(sh2->peri_regs, 4) = 0x84; // SCI SSR
216 // ------------------------------------------------------------------
217 // SH2 internal peripheral memhandlers
218 // we keep them in little endian format
220 u32 sh2_peripheral_read8(u32 a, SH2 *sh2)
222 u8 *r = (void *)sh2->peri_regs;
228 elprintf(EL_32XP, "%csh2 peri r8 [%08x] %02x @%06x",
229 sh2->is_slave ? 's' : 'm', a | ~0x1ff, d, sh2_pc(sh2));
233 u32 sh2_peripheral_read16(u32 a, SH2 *sh2)
235 u16 *r = (void *)sh2->peri_regs;
241 elprintf(EL_32XP, "%csh2 peri r16 [%08x] %04x @%06x",
242 sh2->is_slave ? 's' : 'm', a | ~0x1ff, d, sh2_pc(sh2));
246 u32 sh2_peripheral_read32(u32 a, SH2 *sh2)
250 d = sh2->peri_regs[a / 4];
252 elprintf(EL_32XP, "%csh2 peri r32 [%08x] %08x @%06x",
253 sh2->is_slave ? 's' : 'm', a | ~0x1ff, d, sh2_pc(sh2));
257 void REGPARM(3) sh2_peripheral_write8(u32 a, u32 d, SH2 *sh2)
259 u8 *r = (void *)sh2->peri_regs;
260 elprintf(EL_32XP, "%csh2 peri w8 [%08x] %02x @%06x",
261 sh2->is_slave ? 's' : 'm', a, d, sh2_pc(sh2));
267 if ((a == 2 && (d & 0x20)) || // transmiter enabled
268 (a == 4 && !(d & 0x80))) { // valid data in TDR
269 void *oregs = sh2->other_sh2->peri_regs;
270 if ((PREG8(oregs, 2) & 0x50) == 0x50) { // receiver + irq enabled
271 int level = PREG8(oregs, 0x60) >> 4;
272 int vector = PREG8(oregs, 0x63) & 0x7f;
273 elprintf(EL_32XP, "%csh2 SCI recv irq (%d, %d)",
274 (sh2->is_slave ^ 1) ? 's' : 'm', level, vector);
275 sh2_internal_irq(sh2->other_sh2, level, vector);
281 void REGPARM(3) sh2_peripheral_write16(u32 a, u32 d, SH2 *sh2)
283 u16 *r = (void *)sh2->peri_regs;
284 elprintf(EL_32XP, "%csh2 peri w16 [%08x] %04x @%06x",
285 sh2->is_slave ? 's' : 'm', a, d, sh2_pc(sh2));
291 if ((d & 0xff00) == 0xa500) { // WTCSR
293 p32x_timers_recalc();
295 if ((d & 0xff00) == 0x5a00) // WTCNT
303 void sh2_peripheral_write32(u32 a, u32 d, SH2 *sh2)
305 u32 *r = sh2->peri_regs;
306 elprintf(EL_32XP, "%csh2 peri w32 [%08x] %08x @%06x",
307 sh2->is_slave ? 's' : 'm', a, d, sh2_pc(sh2));
313 // division unit (TODO: verify):
314 case 0x104: // DVDNT: divident L, starts divide
315 elprintf(EL_32XP, "%csh2 divide %08x / %08x",
316 sh2->is_slave ? 's' : 'm', d, r[0x100 / 4]);
318 signed int divisor = r[0x100 / 4];
319 r[0x118 / 4] = r[0x110 / 4] = (signed int)d % divisor;
320 r[0x104 / 4] = r[0x11c / 4] = r[0x114 / 4] = (signed int)d / divisor;
323 r[0x110 / 4] = r[0x114 / 4] = r[0x118 / 4] = r[0x11c / 4] = 0; // ?
326 elprintf(EL_32XP, "%csh2 divide %08x%08x / %08x @%08x",
327 sh2->is_slave ? 's' : 'm', r[0x110 / 4], d, r[0x100 / 4], sh2_pc(sh2));
329 signed long long divident = (signed long long)r[0x110 / 4] << 32 | d;
330 signed int divisor = r[0x100 / 4];
331 // XXX: undocumented mirroring to 0x118,0x11c?
332 r[0x118 / 4] = r[0x110 / 4] = divident % divisor;
334 r[0x11c / 4] = r[0x114 / 4] = divident;
336 if ((unsigned long long)divident + 1 > 1) {
337 //elprintf(EL_32XP, "%csh2 divide overflow! @%08x",
338 // sh2->is_slave ? 's' : 'm', sh2_pc(sh2));
339 r[0x11c / 4] = r[0x114 / 4] = divident > 0 ? 0x7fffffff : 0x80000000; // overflow
343 r[0x110 / 4] = r[0x114 / 4] = r[0x118 / 4] = r[0x11c / 4] = 0; // ?
347 // perhaps starting a DMA?
348 if (a == 0x1b0 || a == 0x18c || a == 0x19c) {
349 struct dmac *dmac = (void *)&sh2->peri_regs[0x180 / 4];
350 if (!(dmac->dmaor & DMA_DME))
353 if ((dmac->chan[0].chcr & (DMA_TE|DMA_DE)) == DMA_DE)
354 dmac_trigger(sh2, &dmac->chan[0]);
355 if ((dmac->chan[1].chcr & (DMA_TE|DMA_DE)) == DMA_DE)
356 dmac_trigger(sh2, &dmac->chan[1]);
361 static void dreq0_do(SH2 *sh2, struct dma_chan *chan)
363 unsigned short dreqlen = Pico32x.regs[0x10 / 2];
366 // debug/sanity checks
367 if (chan->tcr < dreqlen || chan->tcr > dreqlen + 4)
368 elprintf(EL_32XP|EL_ANOMALY, "dreq0: tcr0/len inconsistent: %d/%d",
370 // note: DACK is not connected, single addr mode should not be used
371 if ((chan->chcr & 0x3f08) != 0x0400)
372 elprintf(EL_32XP|EL_ANOMALY, "dreq0: bad control: %04x", chan->chcr);
373 if (chan->sar != 0x20004012)
374 elprintf(EL_32XP|EL_ANOMALY, "dreq0: bad sar?: %08x\n", chan->sar);
376 // HACK: assume bus is busy and SH2 is halted
377 sh2->state |= SH2_STATE_SLEEP;
379 for (i = 0; i < Pico32x.dmac0_fifo_ptr && chan->tcr > 0; i++) {
380 elprintf(EL_32XP, "dreq0 [%08x] %04x, dreq_len %d",
381 chan->dar, Pico32x.dmac_fifo[i], dreqlen);
382 p32x_sh2_write16(chan->dar, Pico32x.dmac_fifo[i], sh2);
387 if (Pico32x.dmac0_fifo_ptr != i)
388 memmove(Pico32x.dmac_fifo, &Pico32x.dmac_fifo[i],
389 (Pico32x.dmac0_fifo_ptr - i) * 2);
390 Pico32x.dmac0_fifo_ptr -= i;
392 Pico32x.regs[6 / 2] &= ~P32XS_FULL;
394 dmac_transfer_complete(sh2, chan);
396 sh2_end_run(sh2, 16);
399 static void dreq1_do(SH2 *sh2, struct dma_chan *chan)
401 // debug/sanity checks
402 if ((chan->chcr & 0xc308) != 0x0000)
403 elprintf(EL_32XP|EL_ANOMALY, "dreq1: bad control: %04x", chan->chcr);
404 if ((chan->dar & ~0xf) != 0x20004030)
405 elprintf(EL_32XP|EL_ANOMALY, "dreq1: bad dar?: %08x\n", chan->dar);
407 dmac_transfer_one(sh2, chan);
409 dmac_transfer_complete(sh2, chan);
412 void p32x_dreq0_trigger(void)
414 struct dmac *mdmac = (void *)&msh2.peri_regs[0x180 / 4];
415 struct dmac *sdmac = (void *)&ssh2.peri_regs[0x180 / 4];
417 elprintf(EL_32XP, "dreq0_trigger");
418 if ((mdmac->dmaor & DMA_DME) && (mdmac->chan[0].chcr & 3) == DMA_DE) {
419 dreq0_do(&msh2, &mdmac->chan[0]);
421 if ((sdmac->dmaor & DMA_DME) && (sdmac->chan[0].chcr & 3) == DMA_DE) {
422 dreq0_do(&ssh2, &sdmac->chan[0]);
426 void p32x_dreq1_trigger(void)
428 struct dmac *mdmac = (void *)&msh2.peri_regs[0x180 / 4];
429 struct dmac *sdmac = (void *)&ssh2.peri_regs[0x180 / 4];
432 elprintf(EL_32XP, "dreq1_trigger");
433 if ((mdmac->dmaor & DMA_DME) && (mdmac->chan[1].chcr & 3) == DMA_DE) {
434 dreq1_do(&msh2, &mdmac->chan[1]);
437 if ((sdmac->dmaor & DMA_DME) && (sdmac->chan[1].chcr & 3) == DMA_DE) {
438 dreq1_do(&ssh2, &sdmac->chan[1]);
443 elprintf(EL_32XP|EL_ANOMALY, "dreq1: nobody cared");
446 // vim:shiftwidth=2:ts=2:expandtab