5 #include <sys/mman.h>
\r
6 #include <sys/ioctl.h>
\r
10 #include "code940/940shared.h"
\r
14 #include "asmutils.h"
\r
15 #include "../../Pico/PicoInt.h"
\r
18 #include "../../Pico/sound/mix.h"
\r
20 /* we will need some gp2x internals here */
\r
21 extern volatile unsigned short *gp2x_memregs; /* from minimal library rlyeh */
\r
22 extern volatile unsigned long *gp2x_memregl;
\r
24 static unsigned char *shared_mem = 0;
\r
25 static _940_data_t *shared_data = 0;
\r
26 static _940_ctl_t *shared_ctl = 0;
\r
27 static unsigned char *mp3_mem = 0;
\r
29 #define MP3_SIZE_MAX (0x1000000 - 4*640*480)
\r
31 int crashed_940 = 0;
\r
33 static FILE *loaded_mp3 = 0;
\r
35 /***********************************************************/
\r
37 #define MAXOUT (+32767)
\r
38 #define MINOUT (-32768)
\r
41 #define Limit(val, max,min) { \
\r
42 if ( val > max ) val = max; \
\r
43 else if ( val < min ) val = min; \
\r
46 /* these will be managed locally on our side */
\r
47 extern int *ym2612_dacen;
\r
48 extern INT32 *ym2612_dacout;
\r
49 extern void *ym2612_regs;
\r
51 static UINT8 *REGS = 0; /* we will also keep local copy of regs for savestates and such */
\r
52 static INT32 addr_A1; /* address line A1 */
\r
54 static INT32 dacout;
\r
55 static UINT8 ST_address; /* address register */
\r
56 static UINT8 ST_status; /* status flag */
\r
57 static UINT8 ST_mode; /* mode CSM / 3SLOT */
\r
58 static int ST_TA; /* timer a */
\r
59 static int ST_TAC; /* timer a maxval */
\r
60 static int ST_TAT; /* timer a ticker */
\r
61 static UINT8 ST_TB; /* timer b */
\r
62 static int ST_TBC; /* timer b maxval */
\r
63 static int ST_TBT; /* timer b ticker */
\r
65 static int writebuff_ptr = 0;
\r
68 /* OPN Mode Register Write */
\r
69 static void set_timers( int v )
\r
72 /* b6 = 3 slot mode */
\r
75 /* b3 = timer enable b */
\r
76 /* b2 = timer enable a */
\r
81 /* reset Timer b flag */
\r
85 /* reset Timer a flag */
\r
93 /* returns 1 if sample affecting state changed */
\r
94 int YM2612Write_940(unsigned int a, unsigned int v)
\r
96 int addr; //, ret=1;
\r
98 v &= 0xff; /* adjust to 8 bit bus */
\r
102 case 0: /* address port 0 */
\r
108 case 1: /* data port 0 */
\r
109 if (addr_A1 != 0) {
\r
110 return 0; /* verified on real YM2608 */
\r
116 switch( addr & 0xf0 )
\r
118 case 0x20: /* 0x20-0x2f Mode */
\r
121 case 0x24: { // timer A High 8
\r
122 int TAnew = (ST_TA & 0x03)|(((int)v)<<2);
\r
123 if(ST_TA != TAnew) {
\r
124 // we should reset ticker only if new value is written. Outrun requires this.
\r
126 ST_TAC = (1024-TAnew)*18;
\r
131 case 0x25: { // timer A Low 2
\r
132 int TAnew = (ST_TA & 0x3fc)|(v&3);
\r
133 if(ST_TA != TAnew) {
\r
135 ST_TAC = (1024-TAnew)*18;
\r
140 case 0x26: // timer B
\r
143 ST_TBC = (256-v)<<4;
\r
148 case 0x27: /* mode, timer control */
\r
150 break; // other side needs ST.mode for 3slot mode
\r
151 case 0x2a: /* DAC data (YM2612) */
\r
152 dacout = ((int)v - 0x80) << 6; /* level unknown (notaz: 8 seems to be too much) */
\r
154 case 0x2b: /* DAC Sel (YM2612) */
\r
155 /* b7 = dac enable */
\r
157 break; // other side has to know this
\r
165 case 2: /* address port 1 */
\r
171 case 3: /* data port 1 */
\r
172 if (addr_A1 != 1) {
\r
173 return 0; /* verified on real YM2608 */
\r
176 addr = ST_address | 0x100;
\r
181 if(currentConfig.EmuOpt & 4) {
\r
182 /* queue this write for 940 */
\r
183 if (writebuff_ptr < 2047) {
\r
184 if (shared_ctl->writebuffsel == 1) {
\r
185 shared_ctl->writebuff0[writebuff_ptr++] = (a<<8)|v;
\r
187 shared_ctl->writebuff1[writebuff_ptr++] = (a<<8)|v;
\r
190 printf("warning: writebuff_ptr > 2047\n");
\r
194 return 0; // cause the engine to do updates once per frame only
\r
197 UINT8 YM2612Read_940(void)
\r
203 int YM2612PicoTick_940(int n)
\r
208 if(ST_mode & 0x01 && (ST_TAT+=64*n) >= ST_TAC) {
\r
210 if(ST_mode & 0x04) ST_status |= 1;
\r
211 // CSM mode total level latch and auto key on
\r
213 if(ST_mode & 0x80) {
\r
214 CSMKeyControll( &(ym2612_940->CH[2]) ); // Vectorman2, etc.
\r
221 if(ST_mode & 0x02 && (ST_TBT+=64*n) >= ST_TBC) {
\r
223 if(ST_mode & 0x08) ST_status |= 2;
\r
229 static int g_busy = 10;
\r
231 static void wait_busy_940(void)
\r
235 printf("940 busy, entering wait loop.. (cnt: %i, wc: %i, ve: ", shared_ctl->loopc, shared_ctl->waitc);
\r
236 for (i = 0; i < 8; i++)
\r
237 printf("%i ", shared_ctl->vstarts[i]);
\r
240 for (i = 0; shared_ctl->busy; i++)
\r
242 spend_cycles(1024); /* needs tuning */
\r
244 printf("wait iterations: %i\n", i);
\r
246 for (i = 0; /*shared_ctl->busy*/gp2x_memregs[0x3B3E>>1] && i < 0x10000; i++)
\r
247 spend_cycles(8*1024); // tested to be best for mp3 dec
\r
248 //printf("i = 0x%x\n", i);
\r
249 if (i < 0x10000) return;
\r
252 printf("940 crashed (cnt: %i, ve: ", shared_ctl->loopc);
\r
253 for (i = 0; i < 8; i++)
\r
254 printf("%i ", shared_ctl->vstarts[i]);
\r
256 printf("irq pending flags: DUALCPU %04x (see 15?), SRCPND %08lx (see 26), INTPND %08lx\n",
\r
257 gp2x_memregs[0x3b46>>1], gp2x_memregl[0x4500>>2], gp2x_memregl[0x4510>>2]);
\r
258 printf("last irq PC: %08x, lastjob: 0x%03x, busy: %x, lastbusy: %x, g_busy: %x\n", shared_ctl->last_irq_pc,
\r
259 shared_ctl->lastjob, gp2x_memregs[0x3B3E>>1]/*shared_ctl->busy*/, shared_ctl->lastbusy, g_busy);
\r
260 printf("trying to interrupt..\n");
\r
261 gp2x_memregs[0x3B3E>>1] = 0xffff;
\r
262 for (i = 0; /*shared_ctl->busy*/gp2x_memregs[0x3B3E>>1] && i < 0x10000; i++)
\r
263 spend_cycles(8*1024);
\r
264 printf("i = 0x%x\n", i);
\r
265 printf("irq pending flags: DUALCPU %04x (see 15?), SRCPND %08lx (see 26), INTPND %08lx\n",
\r
266 gp2x_memregs[0x3b46>>1], gp2x_memregl[0x4500>>2], gp2x_memregl[0x4510>>2]);
\r
267 printf("last irq PC: %08x, lastjob: 0x%03x, busy: %x\n", shared_ctl->last_irq_pc, shared_ctl->lastjob, gp2x_memregs[0x3B3E>>1]/*shared_ctl->busy*/);
\r
269 strcpy(menuErrorMsg, "940 crashed.");
\r
270 engineState = PGS_Menu;
\r
276 static void add_job_940(int job0, int job1)
\r
278 /* if (gp2x_memregs[0x3b46>>1] || shared_ctl->busy)
\r
280 printf("!!add_job_940: irq pending flags: DUALCPU %04x (see 15?), SRCPND %08lx (see 26), INTPND %08lx, busy: %x\n",
\r
281 gp2x_memregs[0x3b46>>1], gp2x_memregl[0x4500>>2], gp2x_memregl[0x4510>>2], shared_ctl->busy);
\r
284 shared_ctl->jobs[0] = job0;
\r
285 shared_ctl->jobs[1] = job1;
\r
286 //shared_ctl->busy = ++g_busy; // 1;
\r
287 gp2x_memregs[0x3B3E>>1] = ++g_busy; // set busy flag
\r
288 // gp2x_memregs[0x3B3E>>1] = 0xffff; // cause interrupt
\r
292 void YM2612PicoStateLoad_940(void)
\r
294 int i, old_A1 = addr_A1;
\r
296 if (/*shared_ctl->busy*/gp2x_memregs[0x3B3E>>1]) wait_busy_940();
\r
298 // feed all the registers and update internal state
\r
299 for(i = 0; i < 0x100; i++) {
\r
300 YM2612Write_940(0, i);
\r
301 YM2612Write_940(1, REGS[i]);
\r
303 for(i = 0; i < 0x100; i++) {
\r
304 YM2612Write_940(2, i);
\r
305 YM2612Write_940(3, REGS[i|0x100]);
\r
310 add_job_940(JOB940_PICOSTATELOAD, 0);
\r
314 static void internal_reset(void)
\r
318 ST_status = 0; /* normal mode */
\r
327 extern char **g_argv;
\r
329 /* none of the functions in this file should be called before this one */
\r
330 void YM2612Init_940(int baseclock, int rate)
\r
332 printf("YM2612Init_940()\n");
\r
333 printf("Mem usage: shared_data: %i, shared_ctl: %i\n", sizeof(*shared_data), sizeof(*shared_ctl));
\r
338 gp2x_memregs[0x3B40>>1] = 0; // disable DUALCPU interrupts for 920
\r
339 gp2x_memregs[0x3B42>>1] = 1; // enable DUALCPU interrupts for 940
\r
341 if (shared_mem == NULL)
\r
343 shared_mem = (unsigned char *) mmap(0, 0x210000, PROT_READ|PROT_WRITE, MAP_SHARED, memdev, 0x2000000);
\r
344 if(shared_mem == MAP_FAILED)
\r
346 printf("mmap(shared_data) failed with %i\n", errno);
\r
349 shared_data = (_940_data_t *) (shared_mem+0x100000);
\r
350 /* this area must not get buffered on either side */
\r
351 shared_ctl = (_940_ctl_t *) (shared_mem+0x200000);
\r
352 mp3_mem = (unsigned char *) mmap(0, MP3_SIZE_MAX, PROT_READ|PROT_WRITE, MAP_SHARED, memdev, 0x3000000);
\r
353 if (mp3_mem == MAP_FAILED)
\r
355 printf("mmap(mp3_mem) failed with %i\n", errno);
\r
363 unsigned char ucData[1024];
\r
364 int nRead, i, nLen = 0;
\r
365 char binpath[1024];
\r
368 strncpy(binpath, g_argv[0], 1023);
\r
370 for (i = strlen(binpath); i > 0; i--)
\r
371 if (binpath[i] == '/') { binpath[i] = 0; break; }
\r
372 strcat(binpath, "/code940.bin");
\r
374 fp = fopen(binpath, "rb");
\r
377 memset(gp2x_screen, 0, 320*240);
\r
378 gp2x_text_out8(10, 100, "failed to open required file:");
\r
379 gp2x_text_out8(10, 110, "code940.bin");
\r
381 printf("failed to open %s\n", binpath);
\r
387 nRead = fread(ucData, 1, 1024, fp);
\r
390 memcpy(shared_mem + nLen, ucData, nRead);
\r
397 memset(shared_data, 0, sizeof(*shared_data));
\r
398 memset(shared_ctl, 0, sizeof(*shared_ctl));
\r
400 REGS = YM2612GetRegs();
\r
402 ym2612_dacen = &dacen;
\r
403 ym2612_dacout = &dacout;
\r
409 /* now cause 940 to init it's ym2612 stuff */
\r
410 shared_ctl->baseclock = baseclock;
\r
411 shared_ctl->rate = rate;
\r
412 shared_ctl->jobs[0] = JOB940_INITALL;
\r
413 shared_ctl->jobs[1] = 0;
\r
414 //shared_ctl->busy = 1;
\r
415 gp2x_memregs[0x3B3E>>1] = 1; // set busy flag
\r
417 gp2x_memregs[0x3B46>>1] = 0xffff; // clear pending DUALCPU interrupts for 940
\r
418 gp2x_memregl[0x4500>>2] = 0; // clear pending IRQs in SRCPND
\r
419 gp2x_memregl[0x4510>>2] = 0; // clear pending IRQs in INTPND
\r
420 gp2x_memregl[0x4508>>2] = ~(1<<26); // unmask DUALCPU ints in the undocumented 940's interrupt controller
\r
422 /* start the 940 */
\r
426 // YM2612ResetChip_940(); // will be done on JOB940_YM2612INIT
\r
430 void YM2612ResetChip_940(void)
\r
432 printf("YM2612ResetChip_940()\n");
\r
433 if (shared_data == NULL) {
\r
434 printf("YM2612ResetChip_940: reset before init?\n");
\r
438 if (/*shared_ctl->busy*/gp2x_memregs[0x3B3E>>1]) wait_busy_940();
\r
442 add_job_940(JOB940_YM2612RESETCHIP, 0);
\r
446 //extern int pcm_buffer[2*44100/50];
\r
448 static void mix_samples(int *dest_buf, short *mp3_buf, int len, int stereo)
\r
450 // int *pcm = pcm_buffer + offset * 2;
\r
454 for (; len > 0; len--)
\r
457 lm = *mp3_buf++; rm = *mp3_buf++;
\r
458 *dest_buf++ += lm - lm/2; *dest_buf++ += rm - rm/2;
\r
461 for (; len > 0; len--)
\r
463 int l = *mp3_buf++;
\r
464 *dest_buf++ = l - l/2;
\r
470 // here we assume that length is different between games, but constant in one game
\r
472 static int mp3_samples_ready = 0, mp3_buffer_offs = 0;
\r
473 static int mp3_play_bufsel = 0;
\r
475 int YM2612UpdateOne_940(int *buffer, int length, int stereo, int is_buf_empty)
\r
477 int length_mp3 = Pico.m.pal ? 44100/50 : 44100/60; // mp3s are locked to 44100Hz stereo
\r
478 int *ym_buf = shared_data->mix_buffer;
\r
479 // int *dest_buf = buffer;
\r
480 int cdda_on, mp3_job = 0;
\r
483 // emulating CD, enabled in opts, not data track, CDC is reading, playback was started, track not ended
\r
484 cdda_on = (PicoMCD & 1) && (PicoOpt & 0x800) && !(Pico_mcd->s68k_regs[0x36] & 1) &&
\r
485 (Pico_mcd->scd.Status_CDC & 1) && loaded_mp3;
\r
487 //printf("YM2612UpdateOne_940()\n");
\r
488 if (/*shared_ctl->busy*/gp2x_memregs[0x3B3E>>1]) wait_busy_940();
\r
491 cdda_on = cdda_on && shared_ctl->mp3_offs < shared_ctl->mp3_len;
\r
493 // mix in ym buffer
\r
494 if (is_buf_empty) memcpy32(buffer, ym_buf, length<<stereo);
\r
497 // for (len = length << stereo; len > 0; len--)
\r
499 // *dest_buf++ += *ym_buf++;
\r
502 /* mix mp3 data, only stereo */
\r
503 if (cdda_on && mp3_samples_ready >= length_mp3)
\r
506 void (*mix_samples)(int *dest_buf, short *mp3_buf, int count) = mix_16h_to_32;
\r
507 if (PsndRate == 22050) { mix_samples = mix_16h_to_32_s1; shr = 1; }
\r
508 else if (PsndRate == 11025) { mix_samples = mix_16h_to_32_s2; shr = 2; }
\r
510 if (1152 - mp3_buffer_offs >= length_mp3) {
\r
511 mix_samples(buffer, shared_data->mp3_buffer[mp3_play_bufsel] + mp3_buffer_offs*2, (length_mp3>>shr)<<1);
\r
513 mp3_buffer_offs += length_mp3;
\r
515 // collect from both buffers..
\r
516 int left = 1152 - mp3_buffer_offs;
\r
517 if (mp3_play_bufsel == 0)
\r
519 mix_samples(buffer, shared_data->mp3_buffer[0] + mp3_buffer_offs*2, (length_mp3>>shr)<<1);
\r
520 mp3_buffer_offs = length_mp3 - left;
\r
521 mp3_play_bufsel = 1;
\r
523 mix_samples(buffer, shared_data->mp3_buffer[1] + mp3_buffer_offs*2, (left>>shr)<<1);
\r
524 mp3_buffer_offs = length_mp3 - left;
\r
525 mix_samples(buffer + ((left>>shr)<<1),
\r
526 shared_data->mp3_buffer[0], (mp3_buffer_offs>>shr)<<1);
\r
527 mp3_play_bufsel = 0;
\r
530 mp3_samples_ready -= length_mp3;
\r
533 if (shared_ctl->writebuffsel == 1) {
\r
534 shared_ctl->writebuff0[writebuff_ptr] = 0xffff;
\r
536 shared_ctl->writebuff1[writebuff_ptr] = 0xffff;
\r
540 /* predict sample counter for next frame */
\r
541 if (PsndLen_exc_add) {
\r
542 if (PsndLen_exc_cnt + PsndLen_exc_add >= 0x10000) length = PsndLen + 1;
\r
543 else length = PsndLen;
\r
546 /* give 940 ym job */
\r
547 shared_ctl->writebuffsel ^= 1;
\r
548 shared_ctl->length = length;
\r
549 shared_ctl->stereo = stereo;
\r
551 // make sure we will have enough mp3 samples next frame
\r
552 if (cdda_on && mp3_samples_ready < length_mp3)
\r
554 shared_ctl->mp3_buffsel ^= 1;
\r
555 mp3_job = JOB940_MP3DECODE;
\r
556 mp3_samples_ready += 1152;
\r
559 add_job_940(JOB940_YM2612UPDATEONE, mp3_job);
\r
560 //spend_cycles(512);
\r
561 //printf("SRCPND: %08lx, INTMODE: %08lx, INTMASK: %08lx, INTPEND: %08lx\n",
\r
562 // gp2x_memregl[0x4500>>2], gp2x_memregl[0x4504>>2], gp2x_memregl[0x4508>>2], gp2x_memregl[0x4510>>2]);
\r
568 /***********************************************************/
\r
570 void mp3_start_play(FILE *f, int pos) // pos is 0-1023
\r
574 if (!(PicoOpt&0x800)) { // cdda disabled?
\r
578 if (loaded_mp3 != f)
\r
580 // printf("loading mp3... "); fflush(stdout);
\r
581 fseek(f, 0, SEEK_SET);
\r
582 fread(mp3_mem, 1, MP3_SIZE_MAX, f);
\r
583 // if (feof(f)) printf("done.\n");
\r
584 // else printf("done. mp3 too large, not all data loaded.\n");
\r
585 shared_ctl->mp3_len = ftell(f);
\r
591 byte_offs = (shared_ctl->mp3_len << 6) >> 10;
\r
595 // printf("mp3 pos1024: %i, byte_offs %i/%i\n", pos, byte_offs, shared_ctl->mp3_len);
\r
597 shared_ctl->mp3_offs = byte_offs;
\r
599 // reset buffer pointers..
\r
600 mp3_samples_ready = mp3_buffer_offs = mp3_play_bufsel = 0;
\r
601 shared_ctl->mp3_buffsel = 1; // will change to 0 on first decode
\r
605 int mp3_get_offset(void)
\r
610 cdda_on = (PicoMCD & 1) && (PicoOpt&0x800) && !(Pico_mcd->s68k_regs[0x36] & 1) &&
\r
611 (Pico_mcd->scd.Status_CDC & 1) && loaded_mp3 && shared_ctl->mp3_offs < shared_ctl->mp3_len;
\r
614 offs1024 = shared_ctl->mp3_offs << 7;
\r
615 offs1024 /= shared_ctl->mp3_len;
\r
618 printf("offs1024=%i (%i/%i)\n", offs1024, shared_ctl->mp3_offs, shared_ctl->mp3_len);
\r