[picodrive.git] / platform / gp2x / 940ctl.c

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