5 #include <sys/mman.h>
\r
6 #include <sys/ioctl.h>
\r
10 #include "940shared.h"
\r
14 #include "asmutils.h"
\r
16 /* we will need some gp2x internals here */
\r
17 extern volatile unsigned short *gp2x_memregs; /* from minimal library rlyeh */
\r
18 extern volatile unsigned long *gp2x_memregl;
\r
20 static unsigned char *shared_mem = 0;
\r
21 static _940_data_t *shared_data = 0;
\r
22 static _940_ctl_t *shared_ctl = 0;
\r
24 int crashed_940 = 0;
\r
27 /***********************************************************/
\r
29 #define MAXOUT (+32767)
\r
30 #define MINOUT (-32768)
\r
33 #define Limit(val, max,min) { \
\r
34 if ( val > max ) val = max; \
\r
35 else if ( val < min ) val = min; \
\r
38 /* these will be managed locally on our side */
\r
39 extern int *ym2612_dacen;
\r
40 extern INT32 *ym2612_dacout;
\r
41 extern void *ym2612_regs;
\r
43 static UINT8 *REGS = 0; /* we will also keep local copy of regs for savestates and such */
\r
44 static INT32 addr_A1; /* address line A1 */
\r
46 static INT32 dacout;
\r
47 static UINT8 ST_address; /* address register */
\r
48 static UINT8 ST_status; /* status flag */
\r
49 static UINT8 ST_mode; /* mode CSM / 3SLOT */
\r
50 static int ST_TA; /* timer a */
\r
51 static int ST_TAC; /* timer a maxval */
\r
52 static int ST_TAT; /* timer a ticker */
\r
53 static UINT8 ST_TB; /* timer b */
\r
54 static int ST_TBC; /* timer b maxval */
\r
55 static int ST_TBT; /* timer b ticker */
\r
57 static int writebuff_ptr = 0;
\r
60 /* OPN Mode Register Write */
\r
61 static void set_timers( int v )
\r
64 /* b6 = 3 slot mode */
\r
67 /* b3 = timer enable b */
\r
68 /* b2 = timer enable a */
\r
73 /* reset Timer b flag */
\r
77 /* reset Timer a flag */
\r
85 /* returns 1 if sample affecting state changed */
\r
86 int YM2612Write_940(unsigned int a, unsigned int v)
\r
88 int addr; //, ret=1;
\r
90 v &= 0xff; /* adjust to 8 bit bus */
\r
94 case 0: /* address port 0 */
\r
100 case 1: /* data port 0 */
\r
101 if (addr_A1 != 0) {
\r
102 return 0; /* verified on real YM2608 */
\r
108 switch( addr & 0xf0 )
\r
110 case 0x20: /* 0x20-0x2f Mode */
\r
113 case 0x24: { // timer A High 8
\r
114 int TAnew = (ST_TA & 0x03)|(((int)v)<<2);
\r
115 if(ST_TA != TAnew) {
\r
116 // we should reset ticker only if new value is written. Outrun requires this.
\r
118 ST_TAC = (1024-TAnew)*18;
\r
123 case 0x25: { // timer A Low 2
\r
124 int TAnew = (ST_TA & 0x3fc)|(v&3);
\r
125 if(ST_TA != TAnew) {
\r
127 ST_TAC = (1024-TAnew)*18;
\r
132 case 0x26: // timer B
\r
135 ST_TBC = (256-v)<<4;
\r
140 case 0x27: /* mode, timer control */
\r
142 break; // other side needs ST.mode for 3slot mode
\r
143 case 0x2a: /* DAC data (YM2612) */
\r
144 dacout = ((int)v - 0x80) << 6; /* level unknown (notaz: 8 seems to be too much) */
\r
146 case 0x2b: /* DAC Sel (YM2612) */
\r
147 /* b7 = dac enable */
\r
149 break; // other side has to know this
\r
157 case 2: /* address port 1 */
\r
163 case 3: /* data port 1 */
\r
164 if (addr_A1 != 1) {
\r
165 return 0; /* verified on real YM2608 */
\r
168 addr = ST_address | 0x100;
\r
173 if(currentConfig.EmuOpt & 4) {
\r
174 /* queue this write for 940 */
\r
175 if (writebuff_ptr < 2047) {
\r
176 if (shared_ctl->writebuffsel == 1) {
\r
177 shared_ctl->writebuff0[writebuff_ptr++] = (a<<8)|v;
\r
179 shared_ctl->writebuff1[writebuff_ptr++] = (a<<8)|v;
\r
182 printf("warning: writebuff_ptr > 2047\n");
\r
186 return 0; // cause the engine to do updates once per frame only
\r
189 UINT8 YM2612Read_940(void)
\r
195 int YM2612PicoTick_940(int n)
\r
200 if(ST_mode & 0x01 && (ST_TAT+=64*n) >= ST_TAC) {
\r
202 if(ST_mode & 0x04) ST_status |= 1;
\r
203 // CSM mode total level latch and auto key on
\r
205 if(ST_mode & 0x80) {
\r
206 CSMKeyControll( &(ym2612_940->CH[2]) ); // Vectorman2, etc.
\r
213 if(ST_mode & 0x02 && (ST_TBT+=64*n) >= ST_TBC) {
\r
215 if(ST_mode & 0x08) ST_status |= 2;
\r
222 static void wait_busy_940(void)
\r
226 printf("940 busy, entering wait loop.. (cnt: %i, wc: %i, ve: ", shared_ctl->loopc, shared_ctl->waitc);
\r
227 for (i = 0; i < 8; i++)
\r
228 printf("%i ", shared_ctl->vstarts[i]);
\r
231 for (i = 0; shared_ctl->busy; i++)
\r
233 spend_cycles(1024); /* needs tuning */
\r
235 printf("wait iterations: %i\n", i);
\r
237 for (i = 0; shared_ctl->busy && i < 0x10000; i++)
\r
238 spend_cycles(4*1024);
\r
239 if (i < 0x10000) return;
\r
242 printf("940 crashed (cnt: %i, wc: %i, ve: ", shared_ctl->loopc, shared_ctl->waitc);
\r
243 for (i = 0; i < 8; i++)
\r
244 printf("%i ", shared_ctl->vstarts[i]);
\r
246 strcpy(menuErrorMsg, "940 crashed.");
\r
247 engineState = PGS_Menu;
\r
253 static void add_job_940(int job0, int job1)
\r
255 shared_ctl->jobs[0] = job0;
\r
256 shared_ctl->jobs[1] = job1;
\r
257 shared_ctl->busy = 1;
\r
258 gp2x_memregs[0x3B3E>>1] = 0xffff; // cause an IRQ for 940
\r
262 void YM2612PicoStateLoad_940(void)
\r
264 int i, old_A1 = addr_A1;
\r
266 if (shared_ctl->busy) wait_busy_940();
\r
268 // feed all the registers and update internal state
\r
269 for(i = 0; i < 0x100; i++) {
\r
270 YM2612Write_940(0, i);
\r
271 YM2612Write_940(1, REGS[i]);
\r
273 for(i = 0; i < 0x100; i++) {
\r
274 YM2612Write_940(2, i);
\r
275 YM2612Write_940(3, REGS[i|0x100]);
\r
280 add_job_940(JOB940_PICOSTATELOAD, 0);
\r
284 static void internal_reset(void)
\r
288 ST_status = 0; /* normal mode */
\r
297 extern char **g_argv;
\r
299 /* none of the functions in this file should be called before this one */
\r
300 void YM2612Init_940(int baseclock, int rate)
\r
302 printf("YM2612Init_940()\n");
\r
303 printf("Mem usage: shared_data: %i, shared_ctl: %i\n", sizeof(*shared_data), sizeof(*shared_ctl));
\r
308 gp2x_memregs[0x3B46>>1] = 0xffff; // clear pending DUALCPU interrupts for 940
\r
309 gp2x_memregs[0x3B42>>1] = 0xffff; // enable DUALCPU interrupts for 940
\r
311 gp2x_memregl[0x4508>>2] = ~(1<<26); // unmask DUALCPU ints in the undocumented 940's interrupt controller
\r
313 if (shared_mem == NULL)
\r
315 shared_mem = (unsigned char *) mmap(0, 0x210000, PROT_READ|PROT_WRITE, MAP_SHARED, memdev, 0x2000000);
\r
316 if(shared_mem == MAP_FAILED)
\r
318 printf("mmap(shared_data) failed with %i\n", errno);
\r
321 shared_data = (_940_data_t *) (shared_mem+0x100000);
\r
322 /* this area must not get buffered on either side */
\r
323 shared_ctl = (_940_ctl_t *) (shared_mem+0x200000);
\r
329 unsigned char ucData[1024];
\r
330 int nRead, i, nLen = 0;
\r
331 char binpath[1024];
\r
334 strncpy(binpath, g_argv[0], 1023);
\r
336 for (i = strlen(binpath); i > 0; i--)
\r
337 if (binpath[i] == '/') { binpath[i] = 0; break; }
\r
338 strcat(binpath, "/code940.bin");
\r
340 fp = fopen(binpath, "rb");
\r
343 memset(gp2x_screen, 0, 320*240);
\r
344 gp2x_text_out8(10, 100, "failed to open required file:");
\r
345 gp2x_text_out8(10, 110, "code940.bin");
\r
347 printf("failed to open %s\n", binpath);
\r
353 nRead = fread(ucData, 1, 1024, fp);
\r
356 memcpy(shared_mem + nLen, ucData, nRead);
\r
363 memset(shared_data, 0, sizeof(*shared_data));
\r
364 memset(shared_ctl, 0, sizeof(*shared_ctl));
\r
366 REGS = YM2612GetRegs();
\r
368 ym2612_dacen = &dacen;
\r
369 ym2612_dacout = &dacout;
\r
373 /* now cause 940 to init it's ym2612 stuff */
\r
374 shared_ctl->baseclock = baseclock;
\r
375 shared_ctl->rate = rate;
\r
376 shared_ctl->jobs[0] = JOB940_YM2612INIT;
\r
377 shared_ctl->jobs[1] = 0;
\r
378 shared_ctl->busy = 1;
\r
380 /* start the 940 */
\r
384 // YM2612ResetChip_940(); // will be done on JOB940_YM2612INIT
\r
388 void YM2612ResetChip_940(void)
\r
390 printf("YM2612ResetChip_940()\n");
\r
391 if (shared_data == NULL) {
\r
392 printf("YM2612ResetChip_940: reset before init?\n");
\r
396 if (shared_ctl->busy) wait_busy_940();
\r
400 add_job_940(JOB940_YM2612RESETCHIP, 0);
\r
404 void YM2612UpdateOne_940(short *buffer, int length, int stereo)
\r
406 int i, *mix_buffer = shared_data->mix_buffer;
\r
408 //printf("YM2612UpdateOne_940()\n");
\r
409 if (shared_ctl->busy) wait_busy_940();
\r
411 //printf("940 (cnt: %i, wc: %i, ve: ", shared_ctl->loopc, shared_ctl->waitc);
\r
412 //for (i = 0; i < 8; i++)
\r
413 // printf("%i ", shared_ctl->vstarts[i]);
\r
416 /* mix data from previous go */
\r
418 int *mb = mix_buffer;
\r
419 for (i = length; i > 0; i--) {
\r
422 l += *mb++, r += *mb++;
\r
423 Limit( l, MAXOUT, MINOUT );
\r
424 Limit( r, MAXOUT, MINOUT );
\r
425 *buffer++ = l; *buffer++ = r;
\r
428 for (i = 0; i < length; i++) {
\r
429 int l = mix_buffer[i];
\r
431 Limit( l, MAXOUT, MINOUT );
\r
436 //printf("new writes: %i\n", writebuff_ptr);
\r
437 if (shared_ctl->writebuffsel == 1) {
\r
438 shared_ctl->writebuff0[writebuff_ptr] = 0xffff;
\r
440 shared_ctl->writebuff1[writebuff_ptr] = 0xffff;
\r
444 /* give 940 another job */
\r
445 shared_ctl->writebuffsel ^= 1;
\r
446 shared_ctl->length = length;
\r
447 shared_ctl->stereo = stereo;
\r
448 add_job_940(JOB940_YM2612UPDATEONE, 0);
\r
449 //spend_cycles(512);
\r
450 //printf("SRCPND: %08lx, INTMODE: %08lx, INTMASK: %08lx, INTPEND: %08lx\n",
\r
451 // gp2x_memregl[0x4500>>2], gp2x_memregl[0x4504>>2], gp2x_memregl[0x4508>>2], gp2x_memregl[0x4510>>2]);
\r