cff531af |
1 | /* |
2 | * debug stuff |
3 | * (C) notaz, 2006-2009 |
4 | * |
5 | * This work is licensed under the terms of MAME license. |
6 | * See COPYING file in the top-level directory. |
7 | */ |
f579f7b8 |
8 | |
efcba75f |
9 | #include "pico_int.h" |
7b3f44c6 |
10 | #include "sound/ym2612.h" |
ebd70cb5 |
11 | #include "memory.h" |
efcba75f |
12 | #include "debug.h" |
f579f7b8 |
13 | |
14 | #define bit(r, x) ((r>>x)&1) |
15 | #define MVP dstrp+=strlen(dstrp) |
16 | void z80_debug(char *dstr); |
17 | |
18 | static char dstr[1024*8]; |
19 | |
20 | char *PDebugMain(void) |
21 | { |
22 | struct PicoVideo *pv=&Pico.video; |
23 | unsigned char *reg=pv->reg, r; |
f579f7b8 |
24 | int i, sprites_lo, sprites_hi; |
25 | char *dstrp; |
26 | |
27 | sprites_lo = sprites_hi = 0; |
99bdfd31 |
28 | for (i = 0; Pico.est.HighPreSpr[i] != 0; i+=2) |
29 | if (Pico.est.HighPreSpr[i+1] & 0x8000) |
f579f7b8 |
30 | sprites_hi++; |
31 | else sprites_lo++; |
32 | |
33 | dstrp = dstr; |
34 | sprintf(dstrp, "mode set 1: %02x spr lo: %2i, spr hi: %2i\n", (r=reg[0]), sprites_lo, sprites_hi); MVP; |
35 | sprintf(dstrp, "display_disable: %i, M3: %i, palette: %i, ?, hints: %i\n", bit(r,0), bit(r,1), bit(r,2), bit(r,4)); MVP; |
36 | sprintf(dstrp, "mode set 2: %02x hcnt: %i\n", (r=reg[1]), pv->reg[10]); MVP; |
37 | sprintf(dstrp, "SMS/gen: %i, pal: %i, dma: %i, vints: %i, disp: %i, TMS: %i\n",bit(r,2),bit(r,3),bit(r,4),bit(r,5),bit(r,6),bit(r,7)); MVP; |
38 | sprintf(dstrp, "mode set 3: %02x\n", (r=reg[0xB])); MVP; |
39 | sprintf(dstrp, "LSCR: %i, HSCR: %i, 2cell vscroll: %i, IE2: %i\n", bit(r,0), bit(r,1), bit(r,2), bit(r,3)); MVP; |
40 | sprintf(dstrp, "mode set 4: %02x\n", (r=reg[0xC])); MVP; |
41 | sprintf(dstrp, "interlace: %i%i, cells: %i, shadow: %i\n", bit(r,2), bit(r,1), (r&0x80) ? 40 : 32, bit(r,3)); MVP; |
42 | sprintf(dstrp, "scroll size: w: %i, h: %i SRAM: %i; eeprom: %i (%i)\n", reg[0x10]&3, (reg[0x10]&0x30)>>4, |
88fd63ad |
43 | !!(Pico.sv.flags & SRF_ENABLED), !!(Pico.sv.flags & SRF_EEPROM), Pico.sv.eeprom_type); MVP; |
44 | sprintf(dstrp, "sram range: %06x-%06x, reg: %02x\n", Pico.sv.start, Pico.sv.end, Pico.m.sram_reg); MVP; |
f579f7b8 |
45 | sprintf(dstrp, "pend int: v:%i, h:%i, vdp status: %04x\n", bit(pv->pending_ints,5), bit(pv->pending_ints,4), pv->status); MVP; |
17bd69ad |
46 | sprintf(dstrp, "VDP regs 00-07: %02x %02x %02x %02x %02x %02x %02x %02x\n",reg[0],reg[1],reg[2],reg[3],reg[4],reg[5],reg[6],reg[7]); MVP; |
47 | sprintf(dstrp, "VDP regs 08-0f: %02x %02x %02x %02x %02x %02x %02x %02x\n",reg[8],reg[9],reg[10],reg[11],reg[12],reg[13],reg[14],reg[15]); MVP; |
48 | sprintf(dstrp, "VDP regs 10-17: %02x %02x %02x %02x %02x %02x %02x %02x\n",reg[16],reg[17],reg[18],reg[19],reg[20],reg[21],reg[22],reg[23]); MVP; |
49 | sprintf(dstrp, "VDP regs 18-1f: %02x %02x %02x %02x %02x %02x %02x %02x\n",reg[24],reg[25],reg[26],reg[27],reg[28],reg[29],reg[30],reg[31]); MVP; |
50 | r = (reg[5]<<9)+(reg[6]<<11); |
51 | sprintf(dstrp, "sprite #0: %04x %04x %04x %04x\n",PicoMem.vram[r/2],PicoMem.vram[r/2+1],PicoMem.vram[r/2+2],PicoMem.vram[r/2+3]); MVP; |
ebd70cb5 |
52 | sprintf(dstrp, "pal: %i, hw: %02x, frame#: %i, cycles: %u\n", Pico.m.pal, Pico.m.hardware, Pico.m.frame_count, SekCyclesDone()); MVP; |
4cc0fcaf |
53 | sprintf(dstrp, "M68k: PC: %06lx, SR: %04x, irql: %i\n", (ulong)SekPc, SekSr, SekIrqLevel); MVP; |
5fadfb1c |
54 | for (r = 0; r < 8; r++) { |
4cc0fcaf |
55 | sprintf(dstrp, "d%i=%08lx, a%i=%08lx\n", r, (ulong)SekDar(r), r, (ulong)SekDar(r+8)); MVP; |
5fadfb1c |
56 | } |
f579f7b8 |
57 | sprintf(dstrp, "z80Run: %i, z80_reset: %i, z80_bnk: %06x\n", Pico.m.z80Run, Pico.m.z80_reset, Pico.m.z80_bank68k<<15); MVP; |
58 | z80_debug(dstrp); MVP; |
59 | if (strlen(dstr) > sizeof(dstr)) |
f8af9634 |
60 | elprintf(EL_STATUS, "warning: debug buffer overflow (%i/%i)\n", strlen(dstr), sizeof(dstr)); |
f579f7b8 |
61 | |
62 | return dstr; |
63 | } |
64 | |
266c6afa |
65 | char *PDebug32x(void) |
66 | { |
f3a57b2d |
67 | #ifndef NO_32X |
266c6afa |
68 | char *dstrp = dstr; |
69 | unsigned short *r; |
70 | int i; |
71 | |
72 | r = Pico32x.regs; |
73 | sprintf(dstrp, "regs:\n"); MVP; |
74 | for (i = 0; i < 0x40/2; i += 8) { |
75 | sprintf(dstrp, "%02x: %04x %04x %04x %04x %04x %04x %04x %04x\n", |
76 | i*2, r[i+0], r[i+1], r[i+2], r[i+3], r[i+4], r[i+5], r[i+6], r[i+7]); MVP; |
77 | } |
be20816c |
78 | r = Pico32x.sh2_regs; |
5fadfb1c |
79 | sprintf(dstrp, "SH: %04x %04x %04x IRQs: %02x eflags: %02x\n", |
83416730 |
80 | r[0], r[1], r[2], Pico32x.sh2irqi[0]|Pico32x.sh2irqi[1], Pico32x.emu_flags); MVP; |
266c6afa |
81 | |
82 | i = 0; |
83 | r = Pico32x.vdp_regs; |
84 | sprintf(dstrp, "VDP regs:\n"); MVP; |
85 | sprintf(dstrp, "%02x: %04x %04x %04x %04x %04x %04x %04x %04x\n", |
86 | i*2, r[i+0], r[i+1], r[i+2], r[i+3], r[i+4], r[i+5], r[i+6], r[i+7]); MVP; |
87 | |
88 | sprintf(dstrp, " mSH2 sSH2\n"); MVP; |
4cc0fcaf |
89 | sprintf(dstrp, "PC,SR %08lx, %03x %08lx, %03x\n", (ulong)sh2_pc(&msh2), (uint)sh2_sr(0), (ulong)sh2_pc(&ssh2), (uint)sh2_sr(1)); MVP; |
266c6afa |
90 | for (i = 0; i < 16/2; i++) { |
4cc0fcaf |
91 | sprintf(dstrp, "R%d,%2d %08lx,%08lx %08lx,%08lx\n", i, i + 8, |
92 | (ulong)sh2_reg(0,i), (ulong)sh2_reg(0,i+8), (ulong)sh2_reg(1,i), (ulong)sh2_reg(1,i+8)); MVP; |
266c6afa |
93 | } |
4cc0fcaf |
94 | sprintf(dstrp, "gb,vb %08lx,%08lx %08lx,%08lx\n", (ulong)sh2_gbr(0), (ulong)sh2_vbr(0), (ulong)sh2_gbr(1), (ulong)sh2_vbr(1)); MVP; |
be20816c |
95 | sprintf(dstrp, "IRQs/mask: %02x/%02x %02x/%02x\n", |
96 | Pico32x.sh2irqi[0], Pico32x.sh2irq_mask[0], Pico32x.sh2irqi[1], Pico32x.sh2irq_mask[1]); MVP; |
f3a57b2d |
97 | #else |
98 | dstr[0] = 0; |
99 | #endif |
266c6afa |
100 | |
101 | return dstr; |
102 | } |
103 | |
f579f7b8 |
104 | char *PDebugSpriteList(void) |
105 | { |
106 | struct PicoVideo *pvid=&Pico.video; |
107 | int table=0,u,link=0; |
108 | int max_sprites = 80; |
109 | char *dstrp; |
110 | |
111 | if (!(pvid->reg[12]&1)) |
112 | max_sprites = 64; |
113 | |
114 | dstr[0] = 0; |
115 | dstrp = dstr; |
116 | |
117 | table=pvid->reg[5]&0x7f; |
118 | if (pvid->reg[12]&1) table&=0x7e; // Lowest bit 0 in 40-cell mode |
119 | table<<=8; // Get sprite table address/2 |
120 | |
121 | for (u=0; u < max_sprites; u++) |
122 | { |
123 | unsigned int *sprite; |
124 | int code, code2, sx, sy, height; |
125 | |
88fd63ad |
126 | sprite=(unsigned int *)(PicoMem.vram+((table+(link<<2))&0x7ffc)); // Find sprite |
f579f7b8 |
127 | |
128 | // get sprite info |
129 | code = sprite[0]; |
130 | |
131 | // check if it is on this line |
132 | sy = (code&0x1ff)-0x80; |
133 | height = ((code>>24)&3)+1; |
134 | |
135 | // masking sprite? |
136 | code2 = sprite[1]; |
137 | sx = ((code2>>16)&0x1ff)-0x80; |
138 | |
139 | sprintf(dstrp, "#%02i x:%4i y:%4i %ix%i %s\n", u, sx, sy, ((code>>26)&3)+1, height, |
140 | (code2&0x8000)?"hi":"lo"); |
141 | MVP; |
142 | |
143 | link=(code>>16)&0x7f; |
144 | if(!link) break; // End of sprites |
145 | } |
146 | |
147 | return dstr; |
148 | } |
149 | |
150 | #define GREEN1 0x0700 |
cdc6aac4 |
151 | #if defined(USE_BGR555) |
152 | #define YELLOW1 0x039c |
153 | #define BLUE1 0x7800 |
154 | #define RED1 0x001e |
155 | #elif defined(USE_BGR565) |
f579f7b8 |
156 | #define YELLOW1 0x071c |
157 | #define BLUE1 0xf000 |
158 | #define RED1 0x001e |
159 | #else |
160 | #define YELLOW1 0xe700 |
161 | #define BLUE1 0x001e |
162 | #define RED1 0xf000 |
163 | #endif |
164 | |
165 | static void set16(unsigned short *p, unsigned short d, int cnt) |
166 | { |
167 | while (cnt-- > 0) |
168 | *p++ = d; |
169 | } |
170 | |
171 | void PDebugShowSpriteStats(unsigned short *screen, int stride) |
172 | { |
173 | int lines, i, u, step; |
174 | unsigned short *dest; |
175 | unsigned char *p; |
176 | |
177 | step = (320-4*4-1) / MAX_LINE_SPRITES; |
178 | lines = 240; |
179 | if (!Pico.m.pal || !(Pico.video.reg[1]&8)) |
180 | lines = 224, screen += stride*8; |
181 | |
182 | for (i = 0; i < lines; i++) |
183 | { |
184 | dest = screen + stride*i; |
185 | p = &HighLnSpr[i][0]; |
186 | |
187 | // sprite graphs |
188 | for (u = 0; u < (p[0] & 0x7f); u++) { |
189 | set16(dest, (p[3+u] & 0x80) ? YELLOW1 : GREEN1, step); |
190 | dest += step; |
191 | } |
192 | |
193 | // flags |
194 | dest = screen + stride*i + 320-4*4; |
195 | if (p[1] & 0x40) set16(dest+4*0, GREEN1, 4); |
196 | if (p[1] & 0x80) set16(dest+4*1, YELLOW1, 4); |
197 | if (p[1] & 0x20) set16(dest+4*2, BLUE1, 4); |
198 | if (p[1] & 0x10) set16(dest+4*3, RED1, 4); |
199 | } |
200 | |
201 | // draw grid |
202 | for (i = step*5; i <= 320-4*4-1; i += step*5) { |
203 | for (u = 0; u < lines; u++) |
204 | screen[i + u*stride] = 0x182; |
205 | } |
206 | } |
207 | |
208 | void PDebugShowPalette(unsigned short *screen, int stride) |
209 | { |
98a27142 |
210 | struct PicoEState *est = &Pico.est; |
200772b7 |
211 | int x, y; |
f579f7b8 |
212 | |
200772b7 |
213 | Pico.m.dirtyPal = 1; |
93f9619e |
214 | if (PicoIn.AHW & PAHW_SMS) |
0df7401c |
215 | PicoDoHighPal555SMS(); |
200772b7 |
216 | else |
98a27142 |
217 | PicoDoHighPal555(1, 0, est); |
200772b7 |
218 | Pico.m.dirtyPal = 1; |
f579f7b8 |
219 | |
220 | screen += 16*stride+8; |
221 | for (y = 0; y < 8*4; y++) |
222 | for (x = 0; x < 8*16; x++) |
98a27142 |
223 | screen[x + y*stride] = est->HighPal[x/8 + (y/8)*16]; |
f579f7b8 |
224 | |
225 | screen += 160; |
226 | for (y = 0; y < 8*4; y++) |
227 | for (x = 0; x < 8*16; x++) |
98a27142 |
228 | screen[x + y*stride] = est->HighPal[(x/8 + (y/8)*16) | 0x40]; |
f579f7b8 |
229 | |
230 | screen += stride*48; |
231 | for (y = 0; y < 8*4; y++) |
232 | for (x = 0; x < 8*16; x++) |
98a27142 |
233 | screen[x + y*stride] = est->HighPal[(x/8 + (y/8)*16) | 0x80]; |
f579f7b8 |
234 | } |
235 | |
236 | #if defined(DRAW2_OVERRIDE_LINE_WIDTH) |
237 | #define DRAW2_LINE_WIDTH DRAW2_OVERRIDE_LINE_WIDTH |
238 | #else |
239 | #define DRAW2_LINE_WIDTH 328 |
240 | #endif |
241 | |
242 | void PDebugShowSprite(unsigned short *screen, int stride, int which) |
243 | { |
244 | struct PicoVideo *pvid=&Pico.video; |
245 | int table=0,u,link=0,*sprite=0,*fsprite,oldsprite[2]; |
246 | int x,y,max_sprites = 80, oldcol, oldreg; |
e0bcb7a9 |
247 | unsigned char olddbg; |
f579f7b8 |
248 | |
249 | if (!(pvid->reg[12]&1)) |
250 | max_sprites = 64; |
251 | |
252 | table=pvid->reg[5]&0x7f; |
253 | if (pvid->reg[12]&1) table&=0x7e; // Lowest bit 0 in 40-cell mode |
254 | table<<=8; // Get sprite table address/2 |
255 | |
256 | for (u=0; u < max_sprites && u <= which; u++) |
257 | { |
88fd63ad |
258 | sprite=(int *)(PicoMem.vram+((table+(link<<2))&0x7ffc)); // Find sprite |
f579f7b8 |
259 | |
260 | link=(sprite[0]>>16)&0x7f; |
8cf22667 |
261 | if (!link) break; // End of sprites |
f579f7b8 |
262 | } |
8cf22667 |
263 | if (u >= max_sprites) return; |
f579f7b8 |
264 | |
88fd63ad |
265 | fsprite = (int *)(PicoMem.vram+(table&0x7ffc)); |
f579f7b8 |
266 | oldsprite[0] = fsprite[0]; |
267 | oldsprite[1] = fsprite[1]; |
268 | fsprite[0] = (sprite[0] & ~0x007f01ff) | 0x000080; |
269 | fsprite[1] = (sprite[1] & ~0x01ff8000) | 0x800000; |
270 | oldreg = pvid->reg[7]; |
88fd63ad |
271 | oldcol = PicoMem.cram[0]; |
e0bcb7a9 |
272 | olddbg = pvid->debug_p; |
f579f7b8 |
273 | pvid->reg[7] = 0; |
88fd63ad |
274 | PicoMem.cram[0] = 0; |
e0bcb7a9 |
275 | pvid->debug_p = PVD_KILL_A | PVD_KILL_B; |
f579f7b8 |
276 | |
277 | PicoFrameFull(); |
278 | for (y = 0; y < 8*4; y++) |
279 | { |
98a27142 |
280 | unsigned char *ps = Pico.est.Draw2FB + DRAW2_LINE_WIDTH*y + 8; |
f579f7b8 |
281 | for (x = 0; x < 8*4; x++) |
98a27142 |
282 | if (ps[x]) screen[x] = Pico.est.HighPal[ps[x]], ps[x] = 0; |
f579f7b8 |
283 | screen += stride; |
284 | } |
285 | |
286 | fsprite[0] = oldsprite[0]; |
287 | fsprite[1] = oldsprite[1]; |
288 | pvid->reg[7] = oldreg; |
88fd63ad |
289 | PicoMem.cram[0] = oldcol; |
e0bcb7a9 |
290 | pvid->debug_p = olddbg; |
f579f7b8 |
291 | } |
292 | |
ebd70cb5 |
293 | #define dump_ram_m(ram,fname,mode) \ |
f579f7b8 |
294 | { \ |
295 | unsigned short *sram = (unsigned short *) ram; \ |
296 | FILE *f; \ |
297 | int i; \ |
298 | \ |
299 | for (i = 0; i < sizeof(ram)/2; i++) \ |
300 | sram[i] = (sram[i]<<8) | (sram[i]>>8); \ |
ebd70cb5 |
301 | f = fopen(fname, mode); \ |
f579f7b8 |
302 | if (f) { \ |
303 | fwrite(ram, 1, sizeof(ram), f); \ |
304 | fclose(f); \ |
305 | } \ |
306 | for (i = 0; i < sizeof(ram)/2; i++) \ |
307 | sram[i] = (sram[i]<<8) | (sram[i]>>8); \ |
308 | } |
309 | |
ebd70cb5 |
310 | #define dump_ram(ram,fname) \ |
311 | dump_ram_m(ram,fname,"wb") |
312 | |
f579f7b8 |
313 | #define dump_ram_noswab(ram,fname) \ |
314 | { \ |
315 | FILE *f; \ |
316 | f = fopen(fname, "wb"); \ |
317 | if (f) { \ |
318 | fwrite(ram, 1, sizeof(ram), f); \ |
319 | fclose(f); \ |
320 | } \ |
321 | } |
322 | |
323 | void PDebugDumpMem(void) |
324 | { |
ebd70cb5 |
325 | #if 0 |
326 | char buf[1 << M68K_MEM_SHIFT]; |
327 | unsigned int a; |
328 | for (a = 0; ; a++) { |
329 | uptr v = m68k_read16_map[a]; |
330 | if (map_flag_set(v)) |
331 | break; |
332 | v <<= 1; |
333 | v += a << M68K_MEM_SHIFT; |
334 | memcpy(buf, (void *)v, sizeof(buf)); |
335 | dump_ram_m(buf, "dumps/cart.bin", a ? "ab" : "wb"); |
336 | } |
337 | #endif |
88fd63ad |
338 | dump_ram_noswab(PicoMem.zram, "dumps/zram.bin"); |
339 | dump_ram(PicoMem.cram, "dumps/cram.bin"); |
87b0845f |
340 | |
93f9619e |
341 | if (PicoIn.AHW & PAHW_SMS) |
87b0845f |
342 | { |
88fd63ad |
343 | dump_ram_noswab(PicoMem.vramb, "dumps/vram.bin"); |
87b0845f |
344 | } |
345 | else |
346 | { |
88fd63ad |
347 | dump_ram(PicoMem.ram, "dumps/ram.bin"); |
348 | dump_ram(PicoMem.vram, "dumps/vram.bin"); |
349 | dump_ram(PicoMem.vsram,"dumps/vsram.bin"); |
87b0845f |
350 | } |
f579f7b8 |
351 | |
93f9619e |
352 | if (PicoIn.AHW & PAHW_MCD) |
f579f7b8 |
353 | { |
354 | dump_ram(Pico_mcd->prg_ram, "dumps/prg_ram.bin"); |
355 | if (Pico_mcd->s68k_regs[3]&4) // 1M mode? |
356 | wram_1M_to_2M(Pico_mcd->word_ram2M); |
357 | dump_ram(Pico_mcd->word_ram2M, "dumps/word_ram_2M.bin"); |
358 | wram_2M_to_1M(Pico_mcd->word_ram2M); |
359 | dump_ram(Pico_mcd->word_ram1M[0], "dumps/word_ram_1M_0.bin"); |
360 | dump_ram(Pico_mcd->word_ram1M[1], "dumps/word_ram_1M_1.bin"); |
361 | if (!(Pico_mcd->s68k_regs[3]&4)) // 2M mode? |
362 | wram_2M_to_1M(Pico_mcd->word_ram2M); |
363 | dump_ram_noswab(Pico_mcd->pcm_ram,"dumps/pcm_ram.bin"); |
364 | dump_ram_noswab(Pico_mcd->bram, "dumps/bram.bin"); |
365 | } |
266c6afa |
366 | |
f3a57b2d |
367 | #ifndef NO_32X |
93f9619e |
368 | if (PicoIn.AHW & PAHW_32X) |
266c6afa |
369 | { |
370 | dump_ram(Pico32xMem->sdram, "dumps/sdram.bin"); |
371 | dump_ram(Pico32xMem->dram[0], "dumps/dram0.bin"); |
372 | dump_ram(Pico32xMem->dram[1], "dumps/dram1.bin"); |
373 | dump_ram(Pico32xMem->pal, "dumps/pal32x.bin"); |
f81107f5 |
374 | dump_ram(msh2.data_array, "dumps/data_array0.bin"); |
375 | dump_ram(ssh2.data_array, "dumps/data_array1.bin"); |
266c6afa |
376 | } |
f3a57b2d |
377 | #endif |
f579f7b8 |
378 | } |
379 | |
7b3f44c6 |
380 | void PDebugZ80Frame(void) |
381 | { |
43e14010 |
382 | int lines; |
7b3f44c6 |
383 | |
93f9619e |
384 | if (PicoIn.AHW & PAHW_SMS) |
87b0845f |
385 | return; |
386 | |
43e14010 |
387 | if (Pico.m.pal) |
e42a47e2 |
388 | lines = 313; |
43e14010 |
389 | else |
7b3f44c6 |
390 | lines = 262; |
7b3f44c6 |
391 | |
4f2cdbf5 |
392 | PsndStartFrame(); |
7b3f44c6 |
393 | |
93f9619e |
394 | if (/*Pico.m.z80Run &&*/ !Pico.m.z80_reset && (PicoIn.opt&POPT_EN_Z80)) { |
88fd63ad |
395 | PicoSyncZ80(Pico.t.m68c_cnt + 224 * 488); |
7b3f44c6 |
396 | z80_int(); |
397 | } |
7b3f44c6 |
398 | |
399 | // sync z80 |
93f9619e |
400 | if (/*Pico.m.z80Run &&*/ !Pico.m.z80_reset && (PicoIn.opt&POPT_EN_Z80)) { |
88fd63ad |
401 | Pico.t.m68c_cnt += Pico.m.pal ? 151809 : 127671; // cycles adjusted for converter |
402 | PicoSyncZ80(Pico.t.m68c_cnt); |
4f2cdbf5 |
403 | } |
43e14010 |
404 | |
405 | if (PicoIn.sndOut) |
406 | PsndGetSamples(lines); |
7b3f44c6 |
407 | |
c3d70d13 |
408 | timers_cycle(Pico.t.z80c_aim); |
274dd51a |
409 | z80_resetCycles(); |
88fd63ad |
410 | Pico.t.m68c_aim = Pico.t.m68c_cnt; |
7b3f44c6 |
411 | } |
412 | |
87b0845f |
413 | void PDebugCPUStep(void) |
414 | { |
93f9619e |
415 | if (PicoIn.AHW & PAHW_SMS) |
6ccf5504 |
416 | z80_run_nr(1); |
87b0845f |
417 | else |
418 | SekStepM68k(); |
419 | } |
420 | |
19886062 |
421 | #ifdef EVT_LOG |
422 | static struct evt_t { |
423 | unsigned int cycles; |
424 | short cpu; |
425 | short evt; |
426 | } *evts; |
427 | static int first_frame; |
428 | static int evt_alloc; |
429 | static int evt_cnt; |
430 | |
431 | void pevt_log(unsigned int cycles, enum evt_cpu c, enum evt e) |
432 | { |
433 | if (first_frame == 0) |
434 | first_frame = Pico.m.frame_count; |
435 | if (evt_alloc == evt_cnt) { |
436 | evt_alloc = evt_alloc * 2 + 16 * 1024; |
437 | evts = realloc(evts, evt_alloc * sizeof(evts[0])); |
438 | } |
439 | evts[evt_cnt].cycles = cycles; |
440 | evts[evt_cnt].cpu = c; |
441 | evts[evt_cnt].evt = e; |
442 | evt_cnt++; |
443 | } |
444 | |
445 | static int evt_cmp(const void *p1, const void *p2) |
446 | { |
447 | const struct evt_t *e1 = p1, *e2 = p2; |
448 | int ret = (int)(e1->cycles - e2->cycles); |
449 | if (ret) |
450 | return ret; |
451 | if (e1->evt == EVT_RUN_END || e1->evt == EVT_POLL_END) |
452 | return -1; |
453 | if (e1->evt == EVT_RUN_START || e1->evt == EVT_POLL_START) |
454 | return 1; |
455 | if (e2->evt == EVT_RUN_END || e2->evt == EVT_POLL_END) |
456 | return 1; |
457 | if (e1->evt == EVT_RUN_START || e1->evt == EVT_POLL_START) |
458 | return -1; |
459 | return 0; |
460 | } |
461 | |
462 | void pevt_dump(void) |
463 | { |
464 | static const char *evt_names[EVT_CNT] = { |
465 | "x", "x", "+run", "-run", "+poll", "-poll", |
466 | }; |
467 | char evt_print[EVT_CPU_CNT][EVT_CNT] = {{0,}}; |
468 | unsigned int start_cycles[EVT_CPU_CNT] = {0,}; |
469 | unsigned int run_cycles[EVT_CPU_CNT] = {0,}; |
470 | unsigned int frame_cycles[EVT_CPU_CNT] = {0,}; |
471 | unsigned int frame_resched[EVT_CPU_CNT] = {0,}; |
472 | unsigned int cycles = 0; |
473 | int frame = first_frame - 1; |
474 | int line = 0; |
475 | int cpu_mask = 0; |
476 | int dirty = 0; |
477 | int i; |
478 | |
479 | qsort(evts, evt_cnt, sizeof(evts[0]), evt_cmp); |
480 | |
481 | for (i = 0; i < evt_cnt; i++) { |
482 | int c = evts[i].cpu, e = evts[i].evt; |
483 | int ei, ci; |
484 | |
485 | if (cycles != evts[i].cycles || (cpu_mask & (1 << c)) |
486 | || e == EVT_FRAME_START || e == EVT_NEXT_LINE) |
487 | { |
488 | if (dirty) { |
489 | printf("%u:%03u:%u ", frame, line, cycles); |
490 | for (ci = 0; ci < EVT_CPU_CNT; ci++) { |
491 | int found = 0; |
492 | for (ei = 0; ei < EVT_CNT; ei++) { |
493 | if (evt_print[ci][ei]) { |
494 | if (ei == EVT_RUN_END) { |
495 | printf("%8s%4d", evt_names[ei], run_cycles[ci]); |
496 | run_cycles[ci] = 0; |
497 | } |
498 | else |
499 | printf("%8s ", evt_names[ei]); |
500 | found = 1; |
501 | } |
502 | } |
503 | if (!found) |
504 | printf("%12s", ""); |
505 | } |
506 | printf("\n"); |
507 | memset(evt_print, 0, sizeof(evt_print)); |
508 | cpu_mask = 0; |
509 | dirty = 0; |
510 | } |
511 | cycles = evts[i].cycles; |
512 | } |
513 | |
514 | switch (e) { |
515 | case EVT_FRAME_START: |
516 | frame++; |
517 | line = 0; |
518 | printf("%u:%03u:%u ", frame, line, cycles); |
519 | for (ci = 0; ci < EVT_CPU_CNT; ci++) { |
520 | printf("%12u", frame_cycles[ci]); |
521 | frame_cycles[ci] = 0; |
522 | } |
523 | printf("\n"); |
524 | printf("%u:%03u:%u ", frame, line, cycles); |
525 | for (ci = 0; ci < EVT_CPU_CNT; ci++) { |
526 | printf("%12u", frame_resched[ci]); |
527 | frame_resched[ci] = 0; |
528 | } |
529 | printf("\n"); |
530 | break; |
531 | case EVT_NEXT_LINE: |
532 | line++; |
533 | printf("%u:%03u:%u\n", frame, line, cycles); |
534 | break; |
535 | case EVT_RUN_START: |
536 | start_cycles[c] = cycles; |
537 | goto default_; |
538 | case EVT_RUN_END: |
539 | run_cycles[c] += cycles - start_cycles[c]; |
540 | frame_cycles[c] += cycles - start_cycles[c]; |
541 | frame_resched[c]++; |
542 | goto default_; |
543 | default_: |
544 | default: |
545 | evt_print[c][e] = 1; |
546 | cpu_mask |= 1 << c; |
547 | dirty = 1; |
548 | break; |
549 | } |
550 | } |
551 | } |
552 | #endif |
553 | |
12da51c2 |
554 | #if defined(CPU_CMP_R) || defined(CPU_CMP_W) || defined(DRC_CMP) |
555 | static FILE *tl_f; |
556 | |
557 | void tl_write(const void *ptr, size_t size) |
558 | { |
559 | if (tl_f == NULL) |
560 | tl_f = fopen("tracelog", "wb"); |
561 | |
562 | fwrite(ptr, 1, size, tl_f); |
563 | } |
564 | |
565 | void tl_write_uint(unsigned char ctl, unsigned int v) |
566 | { |
567 | tl_write(&ctl, sizeof(ctl)); |
568 | tl_write(&v, sizeof(v)); |
569 | } |
570 | |
571 | int tl_read(void *ptr, size_t size) |
572 | { |
573 | if (tl_f == NULL) |
574 | tl_f = fopen("tracelog", "rb"); |
575 | |
576 | return fread(ptr, 1, size, tl_f); |
577 | } |
578 | |
579 | int tl_read_uint(void *ptr) |
580 | { |
581 | return tl_read(ptr, 4); |
582 | } |
583 | #endif |
584 | |
19886062 |
585 | // vim:shiftwidth=2:ts=2:expandtab |