32x: add some comments
[picodrive.git] / pico / sek.c
... / ...
CommitLineData
1/*\r
2 * PicoDrive\r
3 * (c) Copyright Dave, 2004\r
4 * (C) notaz, 2006-2009\r
5 *\r
6 * This work is licensed under the terms of MAME license.\r
7 * See COPYING file in the top-level directory.\r
8 */\r
9\r
10#include "pico_int.h"\r
11#include "memory.h"\r
12\r
13\r
14int SekCycleCnt=0; // cycles done in this frame\r
15int SekCycleAim=0; // cycle aim\r
16unsigned int SekCycleCntT=0;\r
17\r
18\r
19/* context */\r
20// Cyclone 68000\r
21#ifdef EMU_C68K\r
22struct Cyclone PicoCpuCM68k;\r
23#endif\r
24// MUSASHI 68000\r
25#ifdef EMU_M68K\r
26m68ki_cpu_core PicoCpuMM68k;\r
27#endif\r
28// FAME 68000\r
29#ifdef EMU_F68K\r
30M68K_CONTEXT PicoCpuFM68k;\r
31#endif\r
32\r
33\r
34/* callbacks */\r
35#ifdef EMU_C68K\r
36// interrupt acknowledgment\r
37static int SekIntAck(int level)\r
38{\r
39 // try to emulate VDP's reaction to 68000 int ack\r
40 if (level == 4) { Pico.video.pending_ints = 0; elprintf(EL_INTS, "hack: @ %06x [%i]", SekPc, SekCycleCnt); }\r
41 else if(level == 6) { Pico.video.pending_ints &= ~0x20; elprintf(EL_INTS, "vack: @ %06x [%i]", SekPc, SekCycleCnt); }\r
42 PicoCpuCM68k.irq = 0;\r
43 return CYCLONE_INT_ACK_AUTOVECTOR;\r
44}\r
45\r
46static void SekResetAck(void)\r
47{\r
48 elprintf(EL_ANOMALY, "Reset encountered @ %06x", SekPc);\r
49}\r
50\r
51static int SekUnrecognizedOpcode()\r
52{\r
53 unsigned int pc;\r
54 pc = SekPc;\r
55 elprintf(EL_ANOMALY, "Unrecognized Opcode @ %06x", pc);\r
56 // see if we are still in a mapped region\r
57 pc &= 0x00ffffff;\r
58 if (map_flag_set(m68k_read16_map[pc >> M68K_MEM_SHIFT])) {\r
59 elprintf(EL_STATUS|EL_ANOMALY, "m68k crash @%06x", pc);\r
60 PicoCpuCM68k.cycles = 0;\r
61 PicoCpuCM68k.state_flags |= 1;\r
62 return 1;\r
63 }\r
64#ifdef EMU_M68K // debugging cyclone\r
65 {\r
66 extern int have_illegal;\r
67 have_illegal = 1;\r
68 }\r
69#endif\r
70 return 0;\r
71}\r
72#endif\r
73\r
74\r
75#ifdef EMU_M68K\r
76static int SekIntAckM68K(int level)\r
77{\r
78 if (level == 4) { Pico.video.pending_ints = 0; elprintf(EL_INTS, "hack: @ %06x [%i]", SekPc, SekCycleCnt); }\r
79 else if(level == 6) { Pico.video.pending_ints &= ~0x20; elprintf(EL_INTS, "vack: @ %06x [%i]", SekPc, SekCycleCnt); }\r
80 CPU_INT_LEVEL = 0;\r
81 return M68K_INT_ACK_AUTOVECTOR;\r
82}\r
83\r
84static int SekTasCallback(void)\r
85{\r
86 return 0; // no writeback\r
87}\r
88#endif\r
89\r
90\r
91#ifdef EMU_F68K\r
92static void SekIntAckF68K(unsigned level)\r
93{\r
94 if (level == 4) { Pico.video.pending_ints = 0; elprintf(EL_INTS, "hack: @ %06x [%i]", SekPc, SekCycleCnt); }\r
95 else if(level == 6) { Pico.video.pending_ints &= ~0x20; elprintf(EL_INTS, "vack: @ %06x [%i]", SekPc, SekCycleCnt); }\r
96 PicoCpuFM68k.interrupts[0] = 0;\r
97}\r
98#endif\r
99\r
100\r
101PICO_INTERNAL void SekInit(void)\r
102{\r
103#ifdef EMU_C68K\r
104 CycloneInit();\r
105 memset(&PicoCpuCM68k,0,sizeof(PicoCpuCM68k));\r
106 PicoCpuCM68k.IrqCallback=SekIntAck;\r
107 PicoCpuCM68k.ResetCallback=SekResetAck;\r
108 PicoCpuCM68k.UnrecognizedCallback=SekUnrecognizedOpcode;\r
109 PicoCpuCM68k.flags=4; // Z set\r
110#endif\r
111#ifdef EMU_M68K\r
112 {\r
113 void *oldcontext = m68ki_cpu_p;\r
114 m68k_set_context(&PicoCpuMM68k);\r
115 m68k_set_cpu_type(M68K_CPU_TYPE_68000);\r
116 m68k_init();\r
117 m68k_set_int_ack_callback(SekIntAckM68K);\r
118 m68k_set_tas_instr_callback(SekTasCallback);\r
119 //m68k_pulse_reset();\r
120 m68k_set_context(oldcontext);\r
121 }\r
122#endif\r
123#ifdef EMU_F68K\r
124 {\r
125 void *oldcontext = g_m68kcontext;\r
126 g_m68kcontext = &PicoCpuFM68k;\r
127 memset(&PicoCpuFM68k, 0, sizeof(PicoCpuFM68k));\r
128 fm68k_init();\r
129 PicoCpuFM68k.iack_handler = SekIntAckF68K;\r
130 PicoCpuFM68k.sr = 0x2704; // Z flag\r
131 g_m68kcontext = oldcontext;\r
132 }\r
133#endif\r
134}\r
135\r
136\r
137// Reset the 68000:\r
138PICO_INTERNAL int SekReset(void)\r
139{\r
140 if (Pico.rom==NULL) return 1;\r
141\r
142#ifdef EMU_C68K\r
143 CycloneReset(&PicoCpuCM68k);\r
144#endif\r
145#ifdef EMU_M68K\r
146 m68k_set_context(&PicoCpuMM68k); // if we ever reset m68k, we always need it's context to be set\r
147 m68ki_cpu.sp[0]=0;\r
148 m68k_set_irq(0);\r
149 m68k_pulse_reset();\r
150 REG_USP = 0; // ?\r
151#endif\r
152#ifdef EMU_F68K\r
153 {\r
154 g_m68kcontext = &PicoCpuFM68k;\r
155 fm68k_reset();\r
156 }\r
157#endif\r
158\r
159 return 0;\r
160}\r
161\r
162void SekStepM68k(void)\r
163{\r
164 SekCycleAim=SekCycleCnt+1;\r
165#if defined(EMU_CORE_DEBUG)\r
166 SekCycleCnt+=CM_compareRun(1, 0);\r
167#elif defined(EMU_C68K)\r
168 PicoCpuCM68k.cycles=1;\r
169 CycloneRun(&PicoCpuCM68k);\r
170 SekCycleCnt+=1-PicoCpuCM68k.cycles;\r
171#elif defined(EMU_M68K)\r
172 SekCycleCnt+=m68k_execute(1);\r
173#elif defined(EMU_F68K)\r
174 SekCycleCnt+=fm68k_emulate(1, 0, 0);\r
175#endif\r
176}\r
177\r
178PICO_INTERNAL void SekSetRealTAS(int use_real)\r
179{\r
180#ifdef EMU_C68K\r
181 CycloneSetRealTAS(use_real);\r
182#endif\r
183#ifdef EMU_F68K\r
184 // TODO\r
185#endif\r
186}\r
187\r
188// Pack the cpu into a common format:\r
189// XXX: rename\r
190PICO_INTERNAL void SekPackCpu(unsigned char *cpu, int is_sub)\r
191{\r
192 unsigned int pc=0;\r
193\r
194#if defined(EMU_C68K)\r
195 struct Cyclone *context = is_sub ? &PicoCpuCS68k : &PicoCpuCM68k;\r
196 memcpy(cpu,context->d,0x40);\r
197 pc=context->pc-context->membase;\r
198 *(unsigned int *)(cpu+0x44)=CycloneGetSr(context);\r
199 *(unsigned int *)(cpu+0x48)=context->osp;\r
200 cpu[0x4c] = context->irq;\r
201 cpu[0x4d] = context->state_flags & 1;\r
202#elif defined(EMU_M68K)\r
203 void *oldcontext = m68ki_cpu_p;\r
204 m68k_set_context(is_sub ? &PicoCpuMS68k : &PicoCpuMM68k);\r
205 memcpy(cpu,m68ki_cpu_p->dar,0x40);\r
206 pc=m68ki_cpu_p->pc;\r
207 *(unsigned int *)(cpu+0x44)=m68k_get_reg(NULL, M68K_REG_SR);\r
208 *(unsigned int *)(cpu+0x48)=m68ki_cpu_p->sp[m68ki_cpu_p->s_flag^SFLAG_SET];\r
209 cpu[0x4c] = CPU_INT_LEVEL>>8;\r
210 cpu[0x4d] = CPU_STOPPED;\r
211 m68k_set_context(oldcontext);\r
212#elif defined(EMU_F68K)\r
213 M68K_CONTEXT *context = is_sub ? &PicoCpuFS68k : &PicoCpuFM68k;\r
214 memcpy(cpu,context->dreg,0x40);\r
215 pc=context->pc;\r
216 *(unsigned int *)(cpu+0x44)=context->sr;\r
217 *(unsigned int *)(cpu+0x48)=context->asp;\r
218 cpu[0x4c] = context->interrupts[0];\r
219 cpu[0x4d] = (context->execinfo & FM68K_HALTED) ? 1 : 0;\r
220#endif\r
221\r
222 *(unsigned int *)(cpu+0x40)=pc;\r
223}\r
224\r
225PICO_INTERNAL void SekUnpackCpu(const unsigned char *cpu, int is_sub)\r
226{\r
227#if defined(EMU_C68K)\r
228 struct Cyclone *context = is_sub ? &PicoCpuCS68k : &PicoCpuCM68k;\r
229 CycloneSetSr(context, *(unsigned int *)(cpu+0x44));\r
230 context->osp=*(unsigned int *)(cpu+0x48);\r
231 memcpy(context->d,cpu,0x40);\r
232 context->membase = 0;\r
233 context->pc = *(unsigned int *)(cpu+0x40);\r
234 CycloneUnpack(context, NULL); // rebase PC\r
235 context->irq = cpu[0x4c];\r
236 context->state_flags = 0;\r
237 if (cpu[0x4d])\r
238 context->state_flags |= 1;\r
239#elif defined(EMU_M68K)\r
240 void *oldcontext = m68ki_cpu_p;\r
241 m68k_set_context(is_sub ? &PicoCpuMS68k : &PicoCpuMM68k);\r
242 m68k_set_reg(M68K_REG_SR, *(unsigned int *)(cpu+0x44));\r
243 memcpy(m68ki_cpu_p->dar,cpu,0x40);\r
244 m68ki_cpu_p->pc=*(unsigned int *)(cpu+0x40);\r
245 m68ki_cpu_p->sp[m68ki_cpu_p->s_flag^SFLAG_SET]=*(unsigned int *)(cpu+0x48);\r
246 CPU_INT_LEVEL = cpu[0x4c] << 8;\r
247 CPU_STOPPED = cpu[0x4d];\r
248 m68k_set_context(oldcontext);\r
249#elif defined(EMU_F68K)\r
250 M68K_CONTEXT *context = is_sub ? &PicoCpuFS68k : &PicoCpuFM68k;\r
251 memcpy(context->dreg,cpu,0x40);\r
252 context->pc =*(unsigned int *)(cpu+0x40);\r
253 context->sr =*(unsigned int *)(cpu+0x44);\r
254 context->asp=*(unsigned int *)(cpu+0x48);\r
255 context->interrupts[0] = cpu[0x4c];\r
256 context->execinfo &= ~FM68K_HALTED;\r
257 if (cpu[0x4d]&1) context->execinfo |= FM68K_HALTED;\r
258#endif\r
259}\r
260\r
261\r
262/* idle loop detection, not to be used in CD mode */\r
263#ifdef EMU_C68K\r
264#include "cpu/cyclone/tools/idle.h"\r
265#endif\r
266\r
267static unsigned short **idledet_ptrs = NULL;\r
268static int idledet_count = 0, idledet_bads = 0;\r
269int idledet_start_frame = 0;\r
270\r
271#if 0\r
272#define IDLE_STATS 1\r
273unsigned int idlehit_addrs[128], idlehit_counts[128];\r
274\r
275void SekRegisterIdleHit(unsigned int pc)\r
276{\r
277 int i;\r
278 for (i = 0; i < 127 && idlehit_addrs[i]; i++) {\r
279 if (idlehit_addrs[i] == pc) {\r
280 idlehit_counts[i]++;\r
281 return;\r
282 }\r
283 }\r
284 idlehit_addrs[i] = pc;\r
285 idlehit_counts[i] = 1;\r
286 idlehit_addrs[i+1] = 0;\r
287}\r
288#endif\r
289\r
290void SekInitIdleDet(void)\r
291{\r
292 unsigned short **tmp = realloc(idledet_ptrs, 0x200*4);\r
293 if (tmp == NULL) {\r
294 free(idledet_ptrs);\r
295 idledet_ptrs = NULL;\r
296 }\r
297 else\r
298 idledet_ptrs = tmp;\r
299 idledet_count = idledet_bads = 0;\r
300 idledet_start_frame = Pico.m.frame_count + 360;\r
301#ifdef IDLE_STATS\r
302 idlehit_addrs[0] = 0;\r
303#endif\r
304\r
305#ifdef EMU_C68K\r
306 CycloneInitIdle();\r
307#endif\r
308#ifdef EMU_F68K\r
309 fm68k_emulate(0, 0, 1);\r
310#endif\r
311}\r
312\r
313int SekIsIdleCode(unsigned short *dst, int bytes)\r
314{\r
315 // printf("SekIsIdleCode %04x %i\n", *dst, bytes);\r
316 switch (bytes)\r
317 {\r
318 case 2:\r
319 if ((*dst & 0xf000) != 0x6000) // not another branch\r
320 return 1;\r
321 break;\r
322 case 4:\r
323 if ( (*dst & 0xfff8) == 0x4a10 || // tst.b ($aX) // there should be no need to wait\r
324 (*dst & 0xfff8) == 0x4a28 || // tst.b ($xxxx,a0) // for byte change anywhere\r
325 (*dst & 0xff3f) == 0x4a38 || // tst.x ($xxxx.w); tas ($xxxx.w)\r
326 (*dst & 0xc1ff) == 0x0038 || // move.x ($xxxx.w), dX\r
327 (*dst & 0xf13f) == 0xb038) // cmp.x ($xxxx.w), dX\r
328 return 1;\r
329 break;\r
330 case 6:\r
331 if ( ((dst[1] & 0xe0) == 0xe0 && ( // RAM and\r
332 *dst == 0x4a39 || // tst.b ($xxxxxxxx)\r
333 *dst == 0x4a79 || // tst.w ($xxxxxxxx)\r
334 *dst == 0x4ab9 || // tst.l ($xxxxxxxx)\r
335 (*dst & 0xc1ff) == 0x0039 || // move.x ($xxxxxxxx), dX\r
336 (*dst & 0xf13f) == 0xb039))||// cmp.x ($xxxxxxxx), dX\r
337 *dst == 0x0838 || // btst $X, ($xxxx.w) [6 byte op]\r
338 (*dst & 0xffbf) == 0x0c38) // cmpi.{b,w} $X, ($xxxx.w)\r
339 return 1;\r
340 break;\r
341 case 8:\r
342 if ( ((dst[2] & 0xe0) == 0xe0 && ( // RAM and\r
343 *dst == 0x0839 || // btst $X, ($xxxxxxxx.w) [8 byte op]\r
344 (*dst & 0xffbf) == 0x0c39))||// cmpi.{b,w} $X, ($xxxxxxxx)\r
345 *dst == 0x0cb8) // cmpi.l $X, ($xxxx.w)\r
346 return 1;\r
347 break;\r
348 case 12:\r
349 if ((*dst & 0xf1f8) == 0x3010 && // move.w (aX), dX\r
350 (dst[1]&0xf100) == 0x0000 && // arithmetic\r
351 (dst[3]&0xf100) == 0x0000) // arithmetic\r
352 return 1;\r
353 break;\r
354 }\r
355\r
356 return 0;\r
357}\r
358\r
359int SekRegisterIdlePatch(unsigned int pc, int oldop, int newop, void *ctx)\r
360{\r
361 int is_main68k = 1;\r
362 u16 *target;\r
363 uptr v;\r
364\r
365#if defined(EMU_C68K)\r
366 struct Cyclone *cyc = ctx;\r
367 is_main68k = cyc == &PicoCpuCM68k;\r
368 pc -= cyc->membase;\r
369#elif defined(EMU_F68K)\r
370 is_main68k = ctx == &PicoCpuFM68k;\r
371#endif\r
372 pc &= ~0xff000000;\r
373 elprintf(EL_IDLE, "idle: patch %06x %04x %04x %c %c #%i", pc, oldop, newop,\r
374 (newop&0x200)?'n':'y', is_main68k?'m':'s', idledet_count);\r
375\r
376 // XXX: probably shouldn't patch RAM too\r
377 v = m68k_read16_map[pc >> M68K_MEM_SHIFT];\r
378 if (!(v & 0x80000000))\r
379 target = (u16 *)((v << 1) + pc);\r
380 else {\r
381 if (++idledet_bads > 128)\r
382 return 2; // remove detector\r
383 return 1; // don't patch\r
384 }\r
385\r
386 if (idledet_count >= 0x200 && (idledet_count & 0x1ff) == 0) {\r
387 unsigned short **tmp = realloc(idledet_ptrs, (idledet_count+0x200)*4);\r
388 if (tmp == NULL)\r
389 return 1;\r
390 idledet_ptrs = tmp;\r
391 }\r
392\r
393 idledet_ptrs[idledet_count++] = target;\r
394\r
395 return 0;\r
396}\r
397\r
398void SekFinishIdleDet(void)\r
399{\r
400#ifdef EMU_C68K\r
401 CycloneFinishIdle();\r
402#endif\r
403#ifdef EMU_F68K\r
404 fm68k_emulate(0, 0, 2);\r
405#endif\r
406 while (idledet_count > 0)\r
407 {\r
408 unsigned short *op = idledet_ptrs[--idledet_count];\r
409 if ((*op & 0xfd00) == 0x7100)\r
410 *op &= 0xff, *op |= 0x6600;\r
411 else if ((*op & 0xfd00) == 0x7500)\r
412 *op &= 0xff, *op |= 0x6700;\r
413 else if ((*op & 0xfd00) == 0x7d00)\r
414 *op &= 0xff, *op |= 0x6000;\r
415 else\r
416 elprintf(EL_STATUS|EL_IDLE, "idle: don't know how to restore %04x", *op);\r
417 }\r
418}\r
419\r
420\r
421#if defined(EMU_M68K) && M68K_INSTRUCTION_HOOK == OPT_SPECIFY_HANDLER\r
422static unsigned char op_flags[0x400000/2] = { 0, };\r
423static int atexit_set = 0;\r
424\r
425static void make_idc(void)\r
426{\r
427 FILE *f = fopen("idc.idc", "w");\r
428 int i;\r
429 if (!f) return;\r
430 fprintf(f, "#include <idc.idc>\nstatic main() {\n");\r
431 for (i = 0; i < 0x400000/2; i++)\r
432 if (op_flags[i] != 0)\r
433 fprintf(f, " MakeCode(0x%06x);\n", i*2);\r
434 fprintf(f, "}\n");\r
435 fclose(f);\r
436}\r
437\r
438void instruction_hook(void)\r
439{\r
440 if (!atexit_set) {\r
441 atexit(make_idc);\r
442 atexit_set = 1;\r
443 }\r
444 if (REG_PC < 0x400000)\r
445 op_flags[REG_PC/2] = 1;\r
446}\r
447#endif\r