notaz.gp2x.de / libpicofe.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
linux port fixed; some cleanups
[libpicofe.git] / gp2x / 940ctl.c
... / ...
CommitLineData
1// Code for communication with ARM940 and control of it.\r
2// (c) Copyright 2007, Grazvydas "notaz" Ignotas\r
3\r
4#include <stdio.h>\r
5#include <stdlib.h>\r
6#include <string.h>\r
7#include <unistd.h>\r
8#include <sys/mman.h>\r
9#include <sys/ioctl.h>\r
10#include <fcntl.h>\r
11#include <errno.h>\r
12\r
13#include "code940/940shared.h"\r
14#include "soc_mmsp2.h"\r
15#include "soc.h"\r
16#include "../common/mp3.h"\r
17#include "../common/arm_utils.h"\r
18#include "../common/menu.h"\r
19#include "../common/emu.h"\r
20#include "../../pico/pico_int.h"\r
21#include "../../pico/sound/ym2612.h"\r
22#include "../../pico/sound/mix.h"\r
23\r
24extern int reset_timing;\r
25static unsigned char *shared_mem = 0;\r
26static _940_data_t *shared_data = 0;\r
27_940_ctl_t *shared_ctl = 0;\r
28unsigned char *mp3_mem = 0;\r
29\r
30#define MP3_SIZE_MAX (0x400000 + 0x800000) // 12M\r
31#define CODE940_FILE "pico940_v3.bin"\r
32\r
33int crashed_940 = 0;\r
34\r
35static FILE *loaded_mp3 = 0;\r
36\r
37/***********************************************************/\r
38\r
39#define MAXOUT (+32767)\r
40#define MINOUT (-32768)\r
41\r
42/* limitter */\r
43#define Limit(val, max,min) { \\r
44 if ( val > max ) val = max; \\r
45 else if ( val < min ) val = min; \\r
46}\r
47\r
48/* these will be managed locally on our side */\r
49static UINT8 ST_address; /* address register */\r
50static INT32 addr_A1; /* address line A1 */\r
51\r
52static int writebuff_ptr = 0;\r
53\r
54\r
55/* YM2612 write */\r
56/* a = address */\r
57/* v = value */\r
58/* returns 1 if sample affecting state changed */\r
59int YM2612Write_940(unsigned int a, unsigned int v, int scanline)\r
60{\r
61 int upd = 1; /* the write affects sample generation */\r
62\r
63 a &= 3;\r
64\r
65 //printf("%05i:%03i: ym w ([%i] %02x)\n", Pico.m.frame_count, Pico.m.scanline, a, v);\r
66\r
67 switch (a)\r
68 {\r
69 case 0: /* address port 0 */\r
70 if (addr_A1 == 0 && ST_address == v)\r
71 return 0; /* address already selected, don't send this command to 940 */\r
72 ST_address = v;\r
73 addr_A1 = 0;\r
74 /* don't send DAC or timer related address changes to 940 */\r
75 if (v == 0x24 || v == 0x25 || v == 0x26 || v == 0x2a)\r
76 return 0;\r
77 upd = 0;\r
78 break;\r
79\r
80 case 2: /* address port 1 */\r
81 if (addr_A1 == 1 && ST_address == v)\r
82 return 0;\r
83 ST_address = v;\r
84 addr_A1 = 1;\r
85 upd = 0;\r
86 break;\r
87 }\r
88\r
89 //printf("ym pass\n");\r
90\r
91 if (currentConfig.EmuOpt & 4)\r
92 {\r
93 UINT16 *writebuff = shared_ctl->writebuffsel ? shared_ctl->writebuff0 : shared_ctl->writebuff1;\r
94\r
95 /* detect rapid ym updates */\r
96 if (upd && !(writebuff_ptr & 0x80000000) && scanline < 224)\r
97 {\r
98 int mid = Pico.m.pal ? 68 : 93;\r
99 if (scanline > mid) {\r
100 //printf("%05i:%03i: rapid ym\n", Pico.m.frame_count, scanline);\r
101 writebuff[writebuff_ptr++ & 0xffff] = 0xfffe;\r
102 writebuff_ptr |= 0x80000000;\r
103 //printf("%05i:%03i: ym w ([%02x] %02x, upd=%i)\n", Pico.m.frame_count, scanline, addr, v, upd);\r
104 }\r
105 }\r
106\r
107 /* queue this write for 940 */\r
108 if ((writebuff_ptr&0xffff) < 2047) {\r
109 writebuff[writebuff_ptr++ & 0xffff] = (a<<8)|v;\r
110 } else {\r
111 printf("warning: writebuff_ptr > 2047 ([%i] %02x)\n", a, v);\r
112 }\r
113 }\r
114\r
115 return 0; // cause the engine to do updates once per frame only\r
116}\r
117\r
118\r
119#define CHECK_BUSY(job) \\r
120 (gp2x_memregs[0x3b46>>1] & (1<<(job-1)))\r
121\r
122static void wait_busy_940(int job)\r
123{\r
124 int i;\r
125\r
126 job--;\r
127 for (i = 0; (gp2x_memregs[0x3b46>>1] & (1<<job)) && i < 0x10000; i++)\r
128 spend_cycles(8*1024); // tested to be best for mp3 dec\r
129 if (i < 0x10000) return;\r
130\r
131 /* 940 crashed */\r
132 printf("940 crashed (cnt: %i, ve: ", shared_ctl->loopc);\r
133 for (i = 0; i < 8; i++)\r
134 printf("%i ", shared_ctl->vstarts[i]);\r
135 printf(")\n");\r
136 printf("irq pending flags: DUALCPU %04x, SRCPND %08lx (see 26), INTPND %08lx\n",\r
137 gp2x_memregs[0x3b46>>1], gp2x_memregl[0x4500>>2], gp2x_memregl[0x4510>>2]);\r
138 printf("last lr: %08x, lastjob: %i\n", shared_ctl->last_lr, shared_ctl->lastjob);\r
139 printf("trying to interrupt..\n");\r
140 gp2x_memregs[0x3B3E>>1] = 0xffff;\r
141 for (i = 0; gp2x_memregs[0x3b46>>1] && i < 0x10000; i++)\r
142 spend_cycles(8*1024);\r
143 printf("i = 0x%x\n", i);\r
144 printf("irq pending flags: DUALCPU %04x, SRCPND %08lx (see 26), INTPND %08lx\n",\r
145 gp2x_memregs[0x3b46>>1], gp2x_memregl[0x4500>>2], gp2x_memregl[0x4510>>2]);\r
146 printf("last lr: %08x, lastjob: %i\n", shared_ctl->last_lr, shared_ctl->lastjob);\r
147\r
148 me_update_msg("940 crashed, too much overclock?");\r
149 engineState = PGS_Menu;\r
150 crashed_940 = 1;\r
151}\r
152\r
153\r
154static void add_job_940(int job)\r
155{\r
156 if (job <= 0 || job > 16) {\r
157 printf("add_job_940: bad job: %i\n", job);\r
158 return;\r
159 }\r
160\r
161 // generate interrupt for this job\r
162 job--;\r
163 gp2x_memregs[(0x3B20+job*2)>>1] = 1;\r
164\r
165// printf("added %i, pending %04x\n", job+1, gp2x_memregs[0x3b46>>1]);\r
166}\r
167\r
168\r
169void YM2612PicoStateLoad_940(void)\r
170{\r
171 UINT8 *REGS = YM2612GetRegs();\r
172\r
173 /* make sure JOB940_PICOSTATELOAD gets done before next JOB940_YM2612UPDATEONE */\r
174 add_job_940(JOB940_PICOSTATELOAD);\r
175 if (CHECK_BUSY(JOB940_PICOSTATELOAD)) wait_busy_940(JOB940_PICOSTATELOAD);\r
176\r
177 writebuff_ptr = 0;\r
178 addr_A1 = *(INT32 *) (REGS + 0x200);\r
179}\r
180\r
181void YM2612PicoStateSave2_940(int tat, int tbt)\r
182{\r
183 UINT8 *ym_remote_regs, *ym_local_regs;\r
184 add_job_940(JOB940_PICOSTATESAVE2);\r
185 if (CHECK_BUSY(JOB940_PICOSTATESAVE2)) wait_busy_940(JOB940_PICOSTATESAVE2);\r
186\r
187 ym_remote_regs = (UINT8 *) shared_ctl->writebuff0;\r
188 ym_local_regs = YM2612GetRegs();\r
189 if (*(UINT32 *)(ym_remote_regs + 0x100) != 0x41534d59) {\r
190 printf("code940 didn't return valid save data\n");\r
191 return;\r
192 }\r
193\r
194 /* copy addin data only */\r
195 memcpy(ym_local_regs, ym_remote_regs, 0x20);\r
196 memcpy(ym_local_regs + 0x100, ym_remote_regs + 0x100, 0x30);\r
197 memcpy(ym_local_regs + 0x0b8, ym_remote_regs + 0x0b8, 0x48);\r
198 memcpy(ym_local_regs + 0x1b8, ym_remote_regs + 0x1b8, 0x48);\r
199 *(INT32 *)(ym_local_regs + 0x108) = tat;\r
200 *(INT32 *)(ym_local_regs + 0x10c) = tbt;\r
201}\r
202\r
203int YM2612PicoStateLoad2_940(int *tat, int *tbt)\r
204{\r
205 UINT8 *ym_remote_regs, *ym_local_regs;\r
206 ym_local_regs = YM2612GetRegs();\r
207 ym_remote_regs = (UINT8 *) shared_ctl->writebuff0;\r
208\r
209 if (*(UINT32 *)(ym_local_regs + 0x100) != 0x41534d59)\r
210 return -1;\r
211\r
212 *tat = *(INT32 *)(ym_local_regs + 0x108);\r
213 *tbt = *(INT32 *)(ym_local_regs + 0x10c);\r
214\r
215 if (CHECK_BUSY(JOB940_YM2612UPDATEONE)) wait_busy_940(JOB940_YM2612UPDATEONE);\r
216\r
217 /* flush writes */\r
218 if (shared_ctl->writebuffsel == 1) {\r
219 shared_ctl->writebuff0[writebuff_ptr & 0xffff] = 0xffff;\r
220 } else {\r
221 shared_ctl->writebuff1[writebuff_ptr & 0xffff] = 0xffff;\r
222 }\r
223 shared_ctl->writebuffsel ^= 1;\r
224 writebuff_ptr = 0;\r
225 add_job_940(JOB940_PICOSTATELOAD2_PREP);\r
226 if (CHECK_BUSY(JOB940_PICOSTATELOAD2_PREP)) wait_busy_940(JOB940_PICOSTATELOAD2_PREP);\r
227\r
228 memcpy(ym_remote_regs, ym_local_regs, 0x200);\r
229\r
230 add_job_940(JOB940_PICOSTATELOAD2);\r
231 if (CHECK_BUSY(JOB940_PICOSTATELOAD2)) wait_busy_940(JOB940_PICOSTATELOAD2);\r
232\r
233 return 0;\r
234}\r
235\r
236\r
237static void internal_reset(void)\r
238{\r
239 writebuff_ptr = 0;\r
240 ST_address = addr_A1 = -1;\r
241}\r
242\r
243\r
244/* this must be called after mmu hack, the allocated regions must not get cached */\r
245void sharedmem940_init(void)\r
246{\r
247 if (shared_mem != NULL) return;\r
248\r
249 shared_mem = (unsigned char *) mmap(0, 0x210000, PROT_READ|PROT_WRITE, MAP_SHARED, memdev, 0x2000000);\r
250 if (shared_mem == MAP_FAILED)\r
251 {\r
252 printf("mmap(shared_data) failed with %i\n", errno);\r
253 exit(1);\r
254 }\r
255 shared_data = (_940_data_t *) (shared_mem+0x100000);\r
256 /* this area must not get buffered on either side */\r
257 shared_ctl = (_940_ctl_t *) (shared_mem+0x200000);\r
258 mp3_mem = (unsigned char *) mmap(0, MP3_SIZE_MAX, PROT_READ|PROT_WRITE, MAP_SHARED, memdev, 0x2400000);\r
259 if (mp3_mem == MAP_FAILED)\r
260 {\r
261 printf("mmap(mp3_mem) failed with %i\n", errno);\r
262 exit(1);\r
263 }\r
264 crashed_940 = 1;\r
265}\r
266\r
267\r
268void sharedmem940_finish(void)\r
269{\r
270 munmap(shared_mem, 0x210000);\r
271 munmap(mp3_mem, MP3_SIZE_MAX);\r
272 shared_mem = mp3_mem = NULL;\r
273 shared_data = NULL;\r
274 shared_ctl = NULL;\r
275}\r
276\r
277\r
278extern char **g_argv;\r
279\r
280void YM2612Init_940(int baseclock, int rate)\r
281{\r
282 printf("YM2612Init_940()\n");\r
283 printf("Mem usage: shared_data: %i, shared_ctl: %i\n", sizeof(*shared_data), sizeof(*shared_ctl));\r
284\r
285 reset940(1, 2);\r
286 pause940(1);\r
287\r
288 gp2x_memregs[0x3B40>>1] = 0; // disable DUALCPU interrupts for 920\r
289 gp2x_memregs[0x3B42>>1] = 1; // enable DUALCPU interrupts for 940\r
290\r
291 gp2x_memregl[0x4504>>2] = 0; // make sure no FIQs will be generated\r
292 gp2x_memregl[0x4508>>2] = ~(1<<26); // unmask DUALCPU ints in the undocumented 940's interrupt controller\r
293\r
294\r
295 if (crashed_940)\r
296 {\r
297 unsigned char ucData[1024];\r
298 int nRead, i, nLen = 0;\r
299 char binpath[1024];\r
300 FILE *fp;\r
301\r
302 strncpy(binpath, g_argv[0], 1023);\r
303 binpath[1023] = 0;\r
304 for (i = strlen(binpath); i > 0; i--)\r
305 if (binpath[i] == '/') { binpath[i] = 0; break; }\r
306 strcat(binpath, "/" CODE940_FILE);\r
307\r
308 fp = fopen(binpath, "rb");\r
309 if(!fp)\r
310 {\r
311 memset(g_screen_ptr, 0, 320*240*2);\r
312 text_out16(10, 100, "failed to open required file:");\r
313 text_out16(10, 110, CODE940_FILE);\r
314 gp2x_video_flip2();\r
315 printf("failed to open %s\n", binpath);\r
316 exit(1);\r
317 }\r
318\r
319 while(1)\r
320 {\r
321 nRead = fread(ucData, 1, 1024, fp);\r
322 if(nRead <= 0)\r
323 break;\r
324 memcpy(shared_mem + nLen, ucData, nRead);\r
325 nLen += nRead;\r
326 }\r
327 fclose(fp);\r
328 crashed_940 = 0;\r
329 }\r
330\r
331 memset(shared_data, 0, sizeof(*shared_data));\r
332 memset(shared_ctl, 0, sizeof(*shared_ctl));\r
333\r
334 /* cause local ym2612 to init REGS */\r
335 YM2612Init_(baseclock, rate);\r
336\r
337 internal_reset();\r
338\r
339 loaded_mp3 = 0;\r
340\r
341 gp2x_memregs[0x3B46>>1] = 0xffff; // clear pending DUALCPU interrupts for 940\r
342 gp2x_memregl[0x4500>>2] = 0xffffffff; // clear pending IRQs in SRCPND\r
343 gp2x_memregl[0x4510>>2] = 0xffffffff; // clear pending IRQs in INTPND\r
344\r
345 /* start the 940 */\r
346 reset940(0, 2);\r
347 pause940(0);\r
348\r
349 // YM2612ResetChip_940(); // will be done on JOB940_YM2612INIT\r
350\r
351 /* now cause 940 to init it's ym2612 stuff */\r
352 shared_ctl->baseclock = baseclock;\r
353 shared_ctl->rate = rate;\r
354 add_job_940(JOB940_INITALL);\r
355}\r
356\r
357\r
358void YM2612ResetChip_940(void)\r
359{\r
360 //printf("YM2612ResetChip_940()\n");\r
361 if (shared_data == NULL) {\r
362 printf("YM2612ResetChip_940: reset before init?\n");\r
363 return;\r
364 }\r
365\r
366 YM2612ResetChip_();\r
367 internal_reset();\r
368\r
369 add_job_940(JOB940_YM2612RESETCHIP);\r
370}\r
371\r
372\r
373int YM2612UpdateOne_940(int *buffer, int length, int stereo, int is_buf_empty)\r
374{\r
375 int *ym_buf = shared_data->ym_buffer;\r
376 int ym_active_chs;\r
377\r
378 //printf("YM2612UpdateOne_940()\n");\r
379\r
380 if (CHECK_BUSY(JOB940_YM2612UPDATEONE)) wait_busy_940(JOB940_YM2612UPDATEONE);\r
381\r
382 ym_active_chs = shared_ctl->ym_active_chs;\r
383\r
384 // mix in ym buffer. is_buf_empty means nobody mixed there anything yet and it may contain trash\r
385 if (is_buf_empty && ym_active_chs) memcpy32(buffer, ym_buf, length<<stereo);\r
386 else memset32(buffer, 0, length<<stereo);\r
387\r
388 if (shared_ctl->writebuffsel == 1) {\r
389 shared_ctl->writebuff0[writebuff_ptr & 0xffff] = 0xffff;\r
390 } else {\r
391 shared_ctl->writebuff1[writebuff_ptr & 0xffff] = 0xffff;\r
392 }\r
393 writebuff_ptr = 0;\r
394\r
395 /* predict sample counter for next frame */\r
396 if (PsndLen_exc_add) {\r
397 length = PsndLen;\r
398 if (PsndLen_exc_cnt + PsndLen_exc_add >= 0x10000) length++;\r
399 }\r
400\r
401 /* give 940 ym job */\r
402 shared_ctl->writebuffsel ^= 1;\r
403 shared_ctl->length = length;\r
404 shared_ctl->stereo = stereo;\r
405\r
406 add_job_940(JOB940_YM2612UPDATEONE);\r
407\r
408 return ym_active_chs;\r
409}\r
410\r
411\r
412static int mp3_samples_ready = 0, mp3_buffer_offs = 0;\r
413static int mp3_play_bufsel = 0, mp3_job_started = 0;\r
414\r
415void mp3_update(int *buffer, int length, int stereo)\r
416{\r
417 int length_mp3;\r
418 int cdda_on;\r
419\r
420 // playback was started, track not ended\r
421 cdda_on = loaded_mp3 && shared_ctl->mp3_offs < shared_ctl->mp3_len;\r
422\r
423 if (!cdda_on) return;\r
424\r
425 if (!(PicoOpt&0x200)) {\r
426 mp3_update_local(buffer, length, stereo);\r
427 return;\r
428 }\r
429\r
430 length_mp3 = length;\r
431 if (PsndRate == 22050) length_mp3 <<= 1; // mp3s are locked to 44100Hz stereo\r
432 else if (PsndRate == 11025) length_mp3 <<= 2; // so make length 44100ish\r
433\r
434 /* do we have to wait? */\r
435 if (mp3_job_started && mp3_samples_ready < length_mp3) {\r
436 if (CHECK_BUSY(JOB940_MP3DECODE)) wait_busy_940(JOB940_MP3DECODE);\r
437 mp3_job_started = 0;\r
438 mp3_samples_ready += 1152;\r
439 }\r
440\r
441 /* mix mp3 data, only stereo */\r
442 if (mp3_samples_ready >= length_mp3)\r
443 {\r
444 int shr = 0;\r
445 void (*mix_samples)(int *dest_buf, short *mp3_buf, int count) = mix_16h_to_32;\r
446 if (PsndRate == 22050) { mix_samples = mix_16h_to_32_s1; shr = 1; }\r
447 else if (PsndRate == 11025) { mix_samples = mix_16h_to_32_s2; shr = 2; }\r
448\r
449 if (1152 - mp3_buffer_offs >= length_mp3) {\r
450 mix_samples(buffer, shared_data->mp3_buffer[mp3_play_bufsel] + mp3_buffer_offs*2, length<<1);\r
451\r
452 mp3_buffer_offs += length_mp3;\r
453 } else {\r
454 // collect samples from both buffers..\r
455 int left = 1152 - mp3_buffer_offs;\r
456 if (mp3_play_bufsel == 0)\r
457 {\r
458 mix_samples(buffer, shared_data->mp3_buffer[0] + mp3_buffer_offs*2, length<<1);\r
459 mp3_buffer_offs = length_mp3 - left;\r
460 mp3_play_bufsel = 1;\r
461 } else {\r
462 mix_samples(buffer, shared_data->mp3_buffer[1] + mp3_buffer_offs*2, (left>>shr)<<1);\r
463 mp3_buffer_offs = length_mp3 - left;\r
464 mix_samples(buffer + ((left>>shr)<<1),\r
465 shared_data->mp3_buffer[0], (mp3_buffer_offs>>shr)<<1);\r
466 mp3_play_bufsel = 0;\r
467 }\r
468 }\r
469 mp3_samples_ready -= length_mp3;\r
470 }\r
471\r
472 // ask to decode more if we already can\r
473 if (!mp3_job_started)\r
474 {\r
475 mp3_job_started = 1;\r
476 shared_ctl->mp3_buffsel ^= 1;\r
477 add_job_940(JOB940_MP3DECODE);\r
478 }\r
479}\r
480\r
481\r
482/***********************************************************/\r
483\r
484void mp3_start_play(FILE *f, int pos) // pos is 0-1023\r
485{\r
486 int byte_offs = 0;\r
487\r
488 if (!(PicoOpt&0x800)) { // cdda disabled?\r
489 return;\r
490 }\r
491\r
492 if (loaded_mp3 != f)\r
493 {\r
494 if (PicoMessage != NULL)\r
495 {\r
496 fseek(f, 0, SEEK_END);\r
497 if (ftell(f) > 2*1024*1024)\r
498 PicoMessage("Loading MP3...");\r
499 }\r
500 fseek(f, 0, SEEK_SET);\r
501 fread(mp3_mem, 1, MP3_SIZE_MAX, f);\r
502 if (!feof(f)) printf("Warning: mp3 was too large, not all data loaded.\n");\r
503 shared_ctl->mp3_len = ftell(f);\r
504 loaded_mp3 = f;\r
505\r
506 if (PicoOpt & POPT_EXT_FM) {\r
507 // as we are going to change 940's cacheable area, we must invalidate it's cache..\r
508 if (CHECK_BUSY(JOB940_MP3DECODE)) wait_busy_940(JOB940_MP3DECODE);\r
509 add_job_940(JOB940_INVALIDATE_DCACHE);\r
510 }\r
511 reset_timing = 1;\r
512 }\r
513\r
514 // seek..\r
515 if (pos) {\r
516 byte_offs = (shared_ctl->mp3_len << 6) >> 10;\r
517 byte_offs *= pos;\r
518 byte_offs >>= 6;\r
519 }\r
520 printf(" mp3 pos1024: %i, byte_offs %i/%i\n", pos, byte_offs, shared_ctl->mp3_len);\r
521\r
522 shared_ctl->mp3_offs = byte_offs;\r
523\r
524 // reset buffer pointers and stuff..\r
525 mp3_samples_ready = mp3_buffer_offs = mp3_play_bufsel = 0;\r
526 mp3_job_started = 0;\r
527 shared_ctl->mp3_buffsel = 1; // will change to 0 on first decode\r
528\r
529 if (PicoOpt & POPT_EXT_FM)\r
530 {\r
531 add_job_940(JOB940_MP3RESET);\r
532 if (CHECK_BUSY(JOB940_MP3RESET)) wait_busy_940(JOB940_MP3RESET);\r
533 }\r
534 else\r
535 mp3_start_local();\r
536}\r
537\r
538\r
539int mp3_get_offset(void)\r
540{\r
541 unsigned int offs1024 = 0;\r
542 int cdda_on;\r
543\r
544 cdda_on = (PicoAHW & PAHW_MCD) && (PicoOpt&0x800) && !(Pico_mcd->s68k_regs[0x36] & 1) &&\r
545 (Pico_mcd->scd.Status_CDC & 1) && loaded_mp3;\r
546\r
547 if (cdda_on) {\r
548 offs1024 = shared_ctl->mp3_offs << 7;\r
549 offs1024 /= shared_ctl->mp3_len >> 3;\r
550 }\r
551 printf("offs1024=%u (%i/%i)\n", offs1024, shared_ctl->mp3_offs, shared_ctl->mp3_len);\r
552\r
553 return offs1024;\r
554}\r
555\r
556\r
PicoDrive's frontend in a lib