5 * This work is licensed under the terms of MAME license.
6 * See COPYING file in the top-level directory.
9 #include "../pico_int.h"
10 #include "../sound/ym2612.h"
12 extern unsigned char formatted_bram[4*0x10];
14 static unsigned int m68k_cycle_mult;
16 void (*PicoMCDopenTray)(void) = NULL;
17 void (*PicoMCDcloseTray)(void) = NULL;
20 PICO_INTERNAL void PicoInitMCD(void)
26 PICO_INTERNAL void PicoExitMCD(void)
31 PICO_INTERNAL void PicoPowerMCD(void)
33 int fmt_size = sizeof(formatted_bram);
34 memset(Pico_mcd->prg_ram, 0, sizeof(Pico_mcd->prg_ram));
35 memset(Pico_mcd->word_ram2M, 0, sizeof(Pico_mcd->word_ram2M));
36 memset(Pico_mcd->pcm_ram, 0, sizeof(Pico_mcd->pcm_ram));
37 memset(Pico_mcd->bram, 0, sizeof(Pico_mcd->bram));
38 memcpy(Pico_mcd->bram + sizeof(Pico_mcd->bram) - fmt_size, formatted_bram, fmt_size);
41 PICO_INTERNAL int PicoResetMCD(void)
43 memset(Pico_mcd->s68k_regs, 0, sizeof(Pico_mcd->s68k_regs));
44 memset(&Pico_mcd->pcm, 0, sizeof(Pico_mcd->pcm));
45 memset(&Pico_mcd->m, 0, sizeof(Pico_mcd->m));
47 memset(Pico_mcd->bios + 0x70, 0xff, 4); // reset hint vector (simplest way to implement reg6)
48 Pico_mcd->m.state_flags = 0;
49 Pico_mcd->s68k_regs[3] = 1; // 2M word RAM mode with m68k access after reset
54 #ifdef _ASM_CD_MEMORY_C
55 //PicoMemResetCDdecode(1); // don't have to call this in 2M mode
58 // use SRam.data for RAM cart
59 if (PicoOpt & POPT_EN_MCD_RAMCART) {
60 if (SRam.data == NULL)
61 SRam.data = calloc(1, 0x12000);
63 else if (SRam.data != NULL) {
67 SRam.start = SRam.end = 0; // unused
69 pcd_event_schedule(0, PCD_EVENT_CDC, 12500000/75);
74 static __inline void SekRunS68k(unsigned int to)
79 if ((cyc_do = SekCycleAimS68k - SekCycleCntS68k) <= 0)
82 SekCycleCntS68k += cyc_do;
84 PicoCpuCS68k.cycles = cyc_do;
85 CycloneRun(&PicoCpuCS68k);
86 SekCycleCntS68k -= PicoCpuCS68k.cycles;
87 #elif defined(EMU_M68K)
88 m68k_set_context(&PicoCpuMS68k);
89 SekCycleCntS68k += m68k_execute(cyc_do) - cyc_do;
90 m68k_set_context(&PicoCpuMM68k);
91 #elif defined(EMU_F68K)
92 g_m68kcontext = &PicoCpuFS68k;
93 SekCycleCntS68k += fm68k_emulate(cyc_do, 0, 0) - cyc_do;
94 g_m68kcontext = &PicoCpuFM68k;
99 unsigned int pcd_cycles_m68k_to_s68k(unsigned int c)
101 return (long long)c * m68k_cycle_mult >> 16;
105 static void pcd_cdc_event(unsigned int now)
109 pcd_event_schedule(now, PCD_EVENT_CDC, 12500000/75);
112 static void pcd_int3_timer_event(unsigned int now)
114 if (Pico_mcd->s68k_regs[0x33] & PCDS_IEN3) {
115 elprintf(EL_INTS|EL_CD, "s68k: timer irq 3");
119 if (Pico_mcd->s68k_regs[0x31] != 0)
120 pcd_event_schedule(now, PCD_EVENT_TIMER3,
121 Pico_mcd->s68k_regs[0x31] * 384);
124 static void pcd_gfx_event(unsigned int now)
127 if (Pico_mcd->rot_comp.Reg_58 & 0x8000) {
128 Pico_mcd->rot_comp.Reg_58 &= 0x7fff;
129 Pico_mcd->rot_comp.Reg_64 = 0;
130 if (Pico_mcd->s68k_regs[0x33] & PCDS_IEN1) {
131 elprintf(EL_INTS |EL_CD, "s68k: gfx_cd irq 1");
137 static void pcd_dma_event(unsigned int now)
139 int ddx = Pico_mcd->s68k_regs[4] & 7;
140 Update_CDC_TRansfer(ddx);
143 typedef void (event_cb)(unsigned int now);
145 /* times are in s68k (12.5MHz) cycles */
146 unsigned int pcd_event_times[PCD_EVENT_COUNT];
147 static unsigned int event_time_next;
148 static event_cb *pcd_event_cbs[PCD_EVENT_COUNT] = {
149 [PCD_EVENT_CDC] = pcd_cdc_event,
150 [PCD_EVENT_TIMER3] = pcd_int3_timer_event,
151 [PCD_EVENT_GFX] = pcd_gfx_event,
152 [PCD_EVENT_DMA] = pcd_dma_event,
155 void pcd_event_schedule(unsigned int now, enum pcd_event event, int after)
162 pcd_event_times[event] = 0;
168 elprintf(EL_CD, "cd: new event #%u %u->%u", event, now, when);
169 pcd_event_times[event] = when;
171 if (event_time_next == 0 || CYCLES_GT(event_time_next, when))
172 event_time_next = when;
175 void pcd_event_schedule_s68k(enum pcd_event event, int after)
177 if (SekCyclesLeftS68k > after)
178 SekEndRunS68k(after);
180 pcd_event_schedule(SekCyclesDoneS68k(), event, after);
183 static void pcd_run_events(unsigned int until)
185 int oldest, oldest_diff, time;
189 oldest = -1, oldest_diff = 0x7fffffff;
191 for (i = 0; i < PCD_EVENT_COUNT; i++) {
192 if (pcd_event_times[i]) {
193 diff = pcd_event_times[i] - until;
194 if (diff < oldest_diff) {
201 if (oldest_diff <= 0) {
202 time = pcd_event_times[oldest];
203 pcd_event_times[oldest] = 0;
204 elprintf(EL_CD, "cd: run event #%d %u", oldest, time);
205 pcd_event_cbs[oldest](time);
207 else if (oldest_diff < 0x7fffffff) {
208 event_time_next = pcd_event_times[oldest];
218 elprintf(EL_CD, "cd: next event #%d at %u",
219 oldest, event_time_next);
222 int pcd_sync_s68k(unsigned int m68k_target, int m68k_poll_sync)
224 #define now SekCycleCntS68k
225 unsigned int s68k_target =
226 (unsigned long long)m68k_target * m68k_cycle_mult >> 16;
229 elprintf(EL_CD, "s68k sync to %u, %u->%u",
230 m68k_target, now, s68k_target);
232 if ((Pico_mcd->m.busreq & 3) != 1) { /* busreq/reset */
233 SekCycleCntS68k = SekCycleAimS68k = s68k_target;
234 pcd_run_events(m68k_target);
238 while (CYCLES_GT(s68k_target, now)) {
239 if (event_time_next && CYCLES_GE(now, event_time_next))
242 target = s68k_target;
243 if (event_time_next && CYCLES_GT(target, event_time_next))
244 target = event_time_next;
247 if (m68k_poll_sync && Pico_mcd->m.m68k_poll_cnt == 0)
251 return s68k_target - now;
255 static void SekSyncM68k(void);
257 static void pcd_run_cpus(int m68k_cycles)
259 SekCycleAim += m68k_cycles;
260 if (Pico_mcd->m.m68k_poll_cnt >= 16 && !SekShouldInterrupt()) {
261 int s68k_left = pcd_sync_s68k(SekCycleAim, 1);
262 if (s68k_left <= 0) {
263 elprintf(EL_CDPOLL, "m68k poll [%02x] %d @%06x",
264 Pico_mcd->m.m68k_poll_a, Pico_mcd->m.m68k_poll_cnt, SekPc);
265 SekCycleCnt = SekCycleAim;
268 SekCycleCnt = SekCycleAim - (s68k_left * 40220 >> 16);
275 #define CPUS_RUN(m68k_cycles) \
276 pcd_run_cpus(m68k_cycles)
278 #include "../pico_cmn.c"
281 PICO_INTERNAL void PicoFrameMCD(void)
283 if (!(PicoOpt&POPT_ALT_RENDERER))
286 // ~1.63 for NTSC, ~1.645 for PAL
288 m68k_cycle_mult = ((12500000ull << 16) / (50*312*488));
290 m68k_cycle_mult = ((12500000ull << 16) / (60*262*488)) + 1;
295 void pcd_state_loaded(void)
300 pcd_state_loaded_mem();
303 cycles = pcd_cycles_m68k_to_s68k(SekCycleAim);
304 diff = cycles - SekCycleAimS68k;
305 if (diff < -1000 || diff > 1000) {
306 SekCycleCntS68k = SekCycleAimS68k = cycles;
308 if (pcd_event_times[PCD_EVENT_CDC] == 0) {
309 pcd_event_schedule(SekCycleAimS68k, PCD_EVENT_CDC, 12500000/75);
311 if (Pico_mcd->s68k_regs[0x31])
312 pcd_event_schedule(SekCycleAimS68k, PCD_EVENT_TIMER3,
313 Pico_mcd->s68k_regs[0x31] * 384);
315 if (Pico_mcd->rot_comp.Reg_58 & 0x8000) {
316 Pico_mcd->rot_comp.Reg_58 &= 0x7fff;
317 Pico_mcd->rot_comp.Reg_64 = 0;
318 if (Pico_mcd->s68k_regs[0x33] & PCDS_IEN1)
321 if (Pico_mcd->scd.Status_CDC & 0x08)
322 Update_CDC_TRansfer(Pico_mcd->s68k_regs[4] & 7);
326 // vim:shiftwidth=2:ts=2:expandtab