[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 "asmutils.h"\r
#include "mp3.h"\r
#include "../../Pico/PicoInt.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 (0x1000000 - 4*640*480)\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
extern int   *ym2612_dacen;\r
extern INT32 *ym2612_dacout;\r
extern void  *ym2612_regs;\r
\r
static UINT8 *REGS = 0;		/* we will also keep local copy of regs for savestates and such */\r
static INT32 addr_A1;		/* address line A1      */\r
static int	 dacen;\r
static INT32 dacout;\r
static UINT8 ST_address;	/* address register     */\r
static UINT8 ST_status;		/* status flag          */\r
static UINT8 ST_mode;		/* mode  CSM / 3SLOT    */\r
static int   ST_TA;			/* timer a              */\r
static int   ST_TAC;		/* timer a maxval       */\r
static int   ST_TAT;		/* timer a ticker       */\r
static UINT8 ST_TB;			/* timer b              */\r
static int   ST_TBC;		/* timer b maxval       */\r
static int   ST_TBT;		/* timer b ticker       */\r
\r
static int   writebuff_ptr = 0;\r
\r
\r
/* OPN Mode Register Write */\r
static int set_timers( int v )\r
{\r
	int change;\r
\r
	/* b7 = CSM MODE */\r
	/* b6 = 3 slot mode */\r
	/* b5 = reset b */\r
	/* b4 = reset a */\r
	/* b3 = timer enable b */\r
	/* b2 = timer enable a */\r
	/* b1 = load b */\r
	/* b0 = load a */\r
	change = (ST_mode ^ v) & 0xc0;\r
	ST_mode = v;\r
\r
	/* reset Timer b flag */\r
	if( v & 0x20 )\r
		ST_status &= ~2;\r
\r
	/* reset Timer a flag */\r
	if( v & 0x10 )\r
		ST_status &= ~1;\r
\r
	return change;\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)\r
{\r
	int addr;\r
	int upd = 1;	/* the write affects sample generation */\r
\r
	v &= 0xff;	/* adjust to 8 bit bus */\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 && ST_address == v)\r
			return 0;	/* address already selected, don't send this command to 940 */\r
		ST_address = v;\r
		/* don't send DAC or timer related address changes to 940 */\r
		if (!addr_A1 && (v & 0xf0) == 0x20 &&\r
			(v == 0x24 || v == 0x25 || v == 0x26 || v == 0x2a))\r
				return 0;\r
		addr_A1 = 0;\r
		upd = 0;\r
		break;\r
\r
	case 1:	/* data port 0    */\r
		if (addr_A1 != 0) {\r
			return 0;	/* verified on real YM2608 */\r
		}\r
\r
		addr = ST_address;\r
		REGS[addr] = v;\r
\r
		switch( addr & 0xf0 )\r
		{\r
		case 0x20:	/* 0x20-0x2f Mode */\r
			switch( addr )\r
			{\r
			case 0x24: { // timer A High 8\r
					int TAnew = (ST_TA & 0x03)|(((int)v)<<2);\r
					if(ST_TA != TAnew) {\r
						// we should reset ticker only if new value is written. Outrun requires this.\r
						ST_TA = TAnew;\r
						ST_TAC = (1024-TAnew)*18;\r
						ST_TAT = 0;\r
					}\r
					return 0;\r
				}\r
			case 0x25: { // timer A Low 2\r
					int TAnew = (ST_TA & 0x3fc)|(v&3);\r
					if(ST_TA != TAnew) {\r
						ST_TA = TAnew;\r
						ST_TAC = (1024-TAnew)*18;\r
						ST_TAT = 0;\r
					}\r
					return 0;\r
				}\r
			case 0x26: // timer B\r
				if(ST_TB != v) {\r
					ST_TB = v;\r
					ST_TBC  = (256-v)<<4;\r
					ST_TBC *= 18;\r
					ST_TBT  = 0;\r
				}\r
				return 0;\r
			case 0x27:	/* mode, timer control */\r
				if (set_timers( v ))\r
					break; // other side needs ST.mode for 3slot mode\r
				return 0;\r
			case 0x2a:	/* DAC data (YM2612) */\r
				dacout = ((int)v - 0x80) << 6;	/* level unknown (notaz: 8 seems to be too much) */\r
				return 0;\r
			case 0x2b:	/* DAC Sel  (YM2612) */\r
				/* b7 = dac enable */\r
				dacen = v & 0x80;\r
				upd = 0;\r
				break; // other side has to know this\r
			default:\r
				break;\r
			}\r
			break;\r
		}\r
		break;\r
\r
	case 2:	/* address port 1 */\r
		if (addr_A1 && ST_address == v)\r
			return 0;\r
		ST_address = v;\r
		addr_A1 = 1;\r
		upd = 0;\r
		break;\r
\r
	case 3:	/* data port 1    */\r
		if (addr_A1 != 1) {\r
			return 0;	/* verified on real YM2608 */\r
		}\r
\r
		addr = ST_address | 0x100;\r
		REGS[addr] = v;\r
		break;\r
	}\r
\r
	//printf("ym pass\n");\r
\r
	if(currentConfig.EmuOpt & 4) {\r
		UINT16 *writebuff = shared_ctl->writebuffsel ? shared_ctl->writebuff0 : shared_ctl->writebuff1;\r
\r
		/* detect rapid ym updates */\r
		if (upd && !(writebuff_ptr & 0x80000000) && Pico.m.scanline < 224) {\r
			int mid = Pico.m.pal ? 68 : 93;\r
			if (Pico.m.scanline > mid) {\r
				//printf("%05i:%03i: rapid ym\n", Pico.m.frame_count, Pico.m.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, Pico.m.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
UINT8 YM2612Read_940(void)\r
{\r
	return ST_status;\r
}\r
\r
\r
int YM2612PicoTick_940(int n)\r
{\r
	//int ret = 0;\r
\r
	// timer A\r
	if(ST_mode & 0x01 && (ST_TAT+=64*n) >= ST_TAC) {\r
		ST_TAT -= ST_TAC;\r
		if(ST_mode & 0x04) ST_status |= 1;\r
		// CSM mode total level latch and auto key on\r
/*		FIXME\r
		if(ST_mode & 0x80) {\r
			CSMKeyControll( &(ym2612_940->CH[2]) ); // Vectorman2, etc.\r
			ret = 1;\r
		}\r
*/\r
	}\r
\r
	// timer B\r
	if(ST_mode & 0x02 && (ST_TBT+=64*n) >= ST_TBC) {\r
		ST_TBT -= ST_TBC;\r
		if(ST_mode & 0x08) ST_status |= 2;\r
	}\r
\r
	return 0;\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
	int i, old_A1 = addr_A1;\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);\r
		YM2612Write_940(1, REGS[i]);\r
	}\r
	for(i = 0; i < 0x100; i++) {\r
		YM2612Write_940(2, i);\r
		YM2612Write_940(3, REGS[i|0x100]);\r
	}\r
\r
	addr_A1 = old_A1;\r
}\r
\r
\r
static void internal_reset(void)\r
{\r
	writebuff_ptr = 0;\r
	ST_mode   = 0;\r
	ST_status = 0;	/* normal mode */\r
	ST_TA     = 0;\r
	ST_TAC    = 0;\r
	ST_TB     = 0;\r
	ST_TBC    = 0;\r
	dacen = 0;\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, 0x3000000);\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.bin");\r
\r
		fp = fopen(binpath, "rb");\r
		if(!fp)\r
		{\r
			memset(gp2x_screen, 0, 320*240);\r
			gp2x_text_out8(10, 100, "failed to open required file:");\r
			gp2x_text_out8(10, 110, "code940.bin");\r
			gp2x_video_flip();\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
	REGS = YM2612GetRegs();\r
\r
	ym2612_dacen  = &dacen;\r
	ym2612_dacout = &dacout;\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
	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
	// not data track, CDC is reading, playback was started, track not ended\r
	cdda_on = !(Pico_mcd->s68k_regs[0x36] & 1) && (Pico_mcd->scd.Status_CDC & 1) &&\r
			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
		// printf("loading mp3... "); fflush(stdout);\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("done.\n");\r
		// else printf("done. mp3 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
	int offs1024 = 0;\r
	int cdda_on;\r
\r
	cdda_on = (PicoMCD & 1) && (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;\r
		offs1024 <<= 3;\r
	}\r
	printf("offs1024=%i (%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
	17	#include "asmutils.h"\r
abe0ea43	18	#include "mp3.h"\r
cb0316e4	19	#include "../../Pico/PicoInt.h"\r
4f265db7	20	#include "../../Pico/sound/mix.h"\r
4f265db7	21	\r
cc68a136	22	/* we will need some gp2x internals here */\r
	23	extern volatile unsigned short gp2x_memregs; / from minimal library rlyeh */\r
	24	extern volatile unsigned long *gp2x_memregl;\r
	25	\r
00bd648e	26	extern int reset_timing;\r
cc68a136	27	static unsigned char *shared_mem = 0;\r
cc68a136	28	static _940_data_t *shared_data = 0;\r
abe0ea43	29	_940_ctl_t *shared_ctl = 0;\r
abe0ea43	30	unsigned char *mp3_mem = 0;\r
cb0316e4	31	\r
cb0316e4	32	#define MP3_SIZE_MAX (0x1000000 - 4640480)\r
cc68a136	33	\r
	34	int crashed_940 = 0;\r
	35	\r
51a902ae	36	static FILE *loaded_mp3 = 0;\r
cc68a136	37	\r
	38	/***********************************************************/\r
	39	\r
	40	#define MAXOUT (+32767)\r
	41	#define MINOUT (-32768)\r
	42	\r
	43	/* limitter */\r
	44	#define Limit(val, max,min) { \\r
	45	if ( val > max ) val = max; \\r
	46	else if ( val < min ) val = min; \\r
	47	}\r
	48	\r
	49	/* these will be managed locally on our side */\r
	50	extern int *ym2612_dacen;\r
	51	extern INT32 *ym2612_dacout;\r
	52	extern void *ym2612_regs;\r
	53	\r
	54	static UINT8 REGS = 0; / we will also keep local copy of regs for savestates and such */\r
	55	static INT32 addr_A1; /* address line A1 */\r
	56	static int dacen;\r
	57	static INT32 dacout;\r
	58	static UINT8 ST_address; /* address register */\r
	59	static UINT8 ST_status; /* status flag */\r
	60	static UINT8 ST_mode; /* mode CSM / 3SLOT */\r
	61	static int ST_TA; /* timer a */\r
	62	static int ST_TAC; /* timer a maxval */\r
	63	static int ST_TAT; /* timer a ticker */\r
	64	static UINT8 ST_TB; /* timer b */\r
	65	static int ST_TBC; /* timer b maxval */\r
	66	static int ST_TBT; /* timer b ticker */\r
	67	\r
	68	static int writebuff_ptr = 0;\r
	69	\r
	70	\r
	71	/* OPN Mode Register Write */\r
2433f409	72	static int set_timers( int v )\r
cc68a136	73	{\r
2433f409	74	int change;\r
2433f409	75	\r
cc68a136	76	/* b7 = CSM MODE */\r
	77	/* b6 = 3 slot mode */\r
	78	/* b5 = reset b */\r
	79	/* b4 = reset a */\r
	80	/* b3 = timer enable b */\r
	81	/* b2 = timer enable a */\r
	82	/* b1 = load b */\r
	83	/* b0 = load a */\r
2433f409	84	change = (ST_mode ^ v) & 0xc0;\r
cc68a136	85	ST_mode = v;\r
	86	\r
	87	/* reset Timer b flag */\r
	88	if( v & 0x20 )\r
	89	ST_status &= ~2;\r
	90	\r
	91	/* reset Timer a flag */\r
	92	if( v & 0x10 )\r
	93	ST_status &= ~1;\r
2433f409	94	\r
2433f409	95	return change;\r
cc68a136	96	}\r
	97	\r
	98	/* YM2612 write */\r
	99	/* a = address */\r
	100	/* v = value */\r
	101	/* returns 1 if sample affecting state changed */\r
	102	int YM2612Write_940(unsigned int a, unsigned int v)\r
	103	{\r
2433f409	104	int addr;\r
2433f409	105	int upd = 1; /* the write affects sample generation */\r
cc68a136	106	\r
	107	v &= 0xff; /* adjust to 8 bit bus */\r
	108	a &= 3;\r
	109	\r
2433f409	110	//printf("%05i:%03i: ym w ([%i] %02x)\n", Pico.m.frame_count, Pico.m.scanline, a, v);\r
2433f409	111	\r
cc68a136	112	switch( a ) {\r
cc68a136	113	case 0: /* address port 0 */\r
4ff2d527	114	if (!addr_A1 && ST_address == v)\r
4ff2d527	115	return 0; /* address already selected, don't send this command to 940 */\r
cc68a136	116	ST_address = v;\r
4ff2d527	117	/* don't send DAC or timer related address changes to 940 */\r
	118	if (!addr_A1 && (v & 0xf0) == 0x20 &&\r
	119	(v == 0x24 \|\| v == 0x25 \|\| v == 0x26 \|\| v == 0x2a))\r
	120	return 0;\r
cc68a136	121	addr_A1 = 0;\r
2433f409	122	upd = 0;\r
cc68a136	123	break;\r
	124	\r
	125	case 1: /* data port 0 */\r
	126	if (addr_A1 != 0) {\r
	127	return 0; /* verified on real YM2608 */\r
	128	}\r
	129	\r
	130	addr = ST_address;\r
	131	REGS[addr] = v;\r
	132	\r
	133	switch( addr & 0xf0 )\r
	134	{\r
	135	case 0x20: /* 0x20-0x2f Mode */\r
	136	switch( addr )\r
	137	{\r
	138	case 0x24: { // timer A High 8\r
	139	int TAnew = (ST_TA & 0x03)\|(((int)v)<<2);\r
	140	if(ST_TA != TAnew) {\r
	141	// we should reset ticker only if new value is written. Outrun requires this.\r
	142	ST_TA = TAnew;\r
	143	ST_TAC = (1024-TAnew)*18;\r
	144	ST_TAT = 0;\r
	145	}\r
	146	return 0;\r
	147	}\r
	148	case 0x25: { // timer A Low 2\r
	149	int TAnew = (ST_TA & 0x3fc)\|(v&3);\r
	150	if(ST_TA != TAnew) {\r
	151	ST_TA = TAnew;\r
	152	ST_TAC = (1024-TAnew)*18;\r
	153	ST_TAT = 0;\r
	154	}\r
	155	return 0;\r
	156	}\r
	157	case 0x26: // timer B\r
	158	if(ST_TB != v) {\r
	159	ST_TB = v;\r
	160	ST_TBC = (256-v)<<4;\r
	161	ST_TBC *= 18;\r
	162	ST_TBT = 0;\r
	163	}\r
	164	return 0;\r
	165	case 0x27: /* mode, timer control */\r
2433f409	166	if (set_timers( v ))\r
	167	break; // other side needs ST.mode for 3slot mode\r
	168	return 0;\r
cc68a136	169	case 0x2a: /* DAC data (YM2612) */\r
	170	dacout = ((int)v - 0x80) << 6; /* level unknown (notaz: 8 seems to be too much) */\r
	171	return 0;\r
	172	case 0x2b: /* DAC Sel (YM2612) */\r
	173	/* b7 = dac enable */\r
	174	dacen = v & 0x80;\r
2433f409	175	upd = 0;\r
cc68a136	176	break; // other side has to know this\r
	177	default:\r
	178	break;\r
	179	}\r
	180	break;\r
	181	}\r
	182	break;\r
	183	\r
	184	case 2: /* address port 1 */\r
4ff2d527	185	if (addr_A1 && ST_address == v)\r
4ff2d527	186	return 0;\r
cc68a136	187	ST_address = v;\r
cc68a136	188	addr_A1 = 1;\r
2433f409	189	upd = 0;\r
cc68a136	190	break;\r
	191	\r
	192	case 3: /* data port 1 */\r
	193	if (addr_A1 != 1) {\r
	194	return 0; /* verified on real YM2608 */\r
	195	}\r
	196	\r
	197	addr = ST_address \| 0x100;\r
	198	REGS[addr] = v;\r
	199	break;\r
	200	}\r
	201	\r
2433f409	202	//printf("ym pass\n");\r
2433f409	203	\r
cc68a136	204	if(currentConfig.EmuOpt & 4) {\r
2433f409	205	UINT16 *writebuff = shared_ctl->writebuffsel ? shared_ctl->writebuff0 : shared_ctl->writebuff1;\r
	206	\r
	207	/* detect rapid ym updates */\r
	208	if (upd && !(writebuff_ptr & 0x80000000) && Pico.m.scanline < 224) {\r
	209	int mid = Pico.m.pal ? 68 : 93;\r
	210	if (Pico.m.scanline > mid) {\r
	211	//printf("%05i:%03i: rapid ym\n", Pico.m.frame_count, Pico.m.scanline);\r
	212	writebuff[writebuff_ptr++ & 0xffff] = 0xfffe;\r
	213	writebuff_ptr \|= 0x80000000;\r
	214	//printf("%05i:%03i: ym w ([%02x] %02x, upd=%i)\n", Pico.m.frame_count, Pico.m.scanline, addr, v, upd);\r
cc68a136	215	}\r
2433f409	216	}\r
	217	\r
	218	/* queue this write for 940 */\r
	219	if ((writebuff_ptr&0xffff) < 2047) {\r
	220	writebuff[writebuff_ptr++ & 0xffff] = (a<<8)\|v;\r
cc68a136	221	} else {\r
4ff2d527	222	printf("warning: writebuff_ptr > 2047 ([%i] %02x)\n", a, v);\r
cc68a136	223	}\r
	224	}\r
	225	\r
	226	return 0; // cause the engine to do updates once per frame only\r
	227	}\r
	228	\r
	229	UINT8 YM2612Read_940(void)\r
	230	{\r
	231	return ST_status;\r
	232	}\r
	233	\r
	234	\r
	235	int YM2612PicoTick_940(int n)\r
	236	{\r
	237	//int ret = 0;\r
	238	\r
	239	// timer A\r
	240	if(ST_mode & 0x01 && (ST_TAT+=64*n) >= ST_TAC) {\r
	241	ST_TAT -= ST_TAC;\r
	242	if(ST_mode & 0x04) ST_status \|= 1;\r
	243	// CSM mode total level latch and auto key on\r
	244	/* FIXME\r
	245	if(ST_mode & 0x80) {\r
	246	CSMKeyControll( &(ym2612_940->CH[2]) ); // Vectorman2, etc.\r
	247	ret = 1;\r
	248	}\r
	249	*/\r
	250	}\r
	251	\r
	252	// timer B\r
	253	if(ST_mode & 0x02 && (ST_TBT+=64*n) >= ST_TBC) {\r
	254	ST_TBT -= ST_TBC;\r
	255	if(ST_mode & 0x08) ST_status \|= 2;\r
	256	}\r
	257	\r
	258	return 0;\r
	259	}\r
	260	\r
	261	\r
abe0ea43	262	#define CHECK_BUSY(job) \\r
	263	(gp2x_memregs[0x3b46>>1] & (1<<(job-1)))\r
	264	\r
	265	static void wait_busy_940(int job)\r
cc68a136	266	{\r
cc68a136	267	int i;\r
cc68a136	268	\r
abe0ea43	269	job--;\r
abe0ea43	270	for (i = 0; (gp2x_memregs[0x3b46>>1] & (1<<job)) && i < 0x10000; i++)\r
42c7b147	271	spend_cycles(8*1024); // tested to be best for mp3 dec\r
cc68a136	272	if (i < 0x10000) return;\r
	273	\r
	274	/* 940 crashed */\r
42c7b147	275	printf("940 crashed (cnt: %i, ve: ", shared_ctl->loopc);\r
cc68a136	276	for (i = 0; i < 8; i++)\r
	277	printf("%i ", shared_ctl->vstarts[i]);\r
	278	printf(")\n");\r
abe0ea43	279	printf("irq pending flags: DUALCPU %04x, SRCPND %08lx (see 26), INTPND %08lx\n",\r
4f265db7	280	gp2x_memregs[0x3b46>>1], gp2x_memregl[0x4500>>2], gp2x_memregl[0x4510>>2]);\r
abe0ea43	281	printf("last lr: %08x, lastjob: %i\n", shared_ctl->last_lr, shared_ctl->lastjob);\r
4f265db7	282	printf("trying to interrupt..\n");\r
4f265db7	283	gp2x_memregs[0x3B3E>>1] = 0xffff;\r
abe0ea43	284	for (i = 0; gp2x_memregs[0x3b46>>1] && i < 0x10000; i++)\r
4f265db7	285	spend_cycles(8*1024);\r
4f265db7	286	printf("i = 0x%x\n", i);\r
abe0ea43	287	printf("irq pending flags: DUALCPU %04x, SRCPND %08lx (see 26), INTPND %08lx\n",\r
4f265db7	288	gp2x_memregs[0x3b46>>1], gp2x_memregl[0x4500>>2], gp2x_memregl[0x4510>>2]);\r
abe0ea43	289	printf("last lr: %08x, lastjob: %i\n", shared_ctl->last_lr, shared_ctl->lastjob);\r
4f265db7	290	\r
6cadc2da	291	strcpy(menuErrorMsg, "940 crashed, too much overclock?");\r
cc68a136	292	engineState = PGS_Menu;\r
cc68a136	293	crashed_940 = 1;\r
cc68a136	294	}\r
	295	\r
	296	\r
abe0ea43	297	static void add_job_940(int job)\r
cc68a136	298	{\r
abe0ea43	299	if (job <= 0 \|\| job > 16) {\r
	300	printf("add_job_940: bad job: %i\n", job);\r
	301	return;\r
4f265db7	302	}\r
abe0ea43	303	\r
	304	// generate interrupt for this job\r
	305	job--;\r
	306	gp2x_memregs[(0x3B20+job*2)>>1] = 1;\r
	307	\r
	308	// printf("added %i, pending %04x\n", job+1, gp2x_memregs[0x3b46>>1]);\r
cc68a136	309	}\r
	310	\r
	311	\r
	312	void YM2612PicoStateLoad_940(void)\r
	313	{\r
	314	int i, old_A1 = addr_A1;\r
	315	\r
d5d11924	316	/* make sure JOB940_PICOSTATELOAD gets done before next JOB940_YM2612UPDATEONE */\r
	317	add_job_940(JOB940_PICOSTATELOAD);\r
	318	if (CHECK_BUSY(JOB940_PICOSTATELOAD)) wait_busy_940(JOB940_PICOSTATELOAD);\r
	319	\r
	320	writebuff_ptr = 0;\r
	321	\r
cc68a136	322	// feed all the registers and update internal state\r
	323	for(i = 0; i < 0x100; i++) {\r
	324	YM2612Write_940(0, i);\r
	325	YM2612Write_940(1, REGS[i]);\r
	326	}\r
	327	for(i = 0; i < 0x100; i++) {\r
	328	YM2612Write_940(2, i);\r
	329	YM2612Write_940(3, REGS[i\|0x100]);\r
	330	}\r
	331	\r
	332	addr_A1 = old_A1;\r
cc68a136	333	}\r
	334	\r
	335	\r
	336	static void internal_reset(void)\r
	337	{\r
	338	writebuff_ptr = 0;\r
	339	ST_mode = 0;\r
	340	ST_status = 0; /* normal mode */\r
	341	ST_TA = 0;\r
	342	ST_TAC = 0;\r
	343	ST_TB = 0;\r
	344	ST_TBC = 0;\r
	345	dacen = 0;\r
	346	}\r
	347	\r
	348	\r
f80d67e1	349	/* this must be called after mmu hack, the allocated regions must not get cached */\r
	350	void sharedmem_init(void)\r
	351	{\r
	352	if (shared_mem != NULL) return;\r
	353	\r
	354	shared_mem = (unsigned char *) mmap(0, 0x210000, PROT_READ\|PROT_WRITE, MAP_SHARED, memdev, 0x2000000);\r
	355	if(shared_mem == MAP_FAILED)\r
	356	{\r
	357	printf("mmap(shared_data) failed with %i\n", errno);\r
	358	exit(1);\r
	359	}\r
	360	shared_data = (_940_data_t *) (shared_mem+0x100000);\r
	361	/* this area must not get buffered on either side */\r
	362	shared_ctl = (_940_ctl_t *) (shared_mem+0x200000);\r
	363	mp3_mem = (unsigned char *) mmap(0, MP3_SIZE_MAX, PROT_READ\|PROT_WRITE, MAP_SHARED, memdev, 0x3000000);\r
	364	if (mp3_mem == MAP_FAILED)\r
	365	{\r
	366	printf("mmap(mp3_mem) failed with %i\n", errno);\r
	367	exit(1);\r
	368	}\r
	369	crashed_940 = 1;\r
	370	}\r
	371	\r
	372	\r
85f8e929	373	void sharedmem_deinit(void)\r
	374	{\r
	375	munmap(shared_mem, 0x210000);\r
	376	munmap(mp3_mem, MP3_SIZE_MAX);\r
	377	shared_mem = mp3_mem = NULL;\r
	378	shared_data = NULL;\r
	379	shared_ctl = NULL;\r
	380	}\r
	381	\r
	382	\r
cc68a136	383	extern char **g_argv;\r
	384	\r
	385	/* none of the functions in this file should be called before this one */\r
	386	void YM2612Init_940(int baseclock, int rate)\r
	387	{\r
	388	printf("YM2612Init_940()\n");\r
b837b69b	389	printf("Mem usage: shared_data: %i, shared_ctl: %i\n", sizeof(shared_data), sizeof(shared_ctl));\r
cc68a136	390	\r
b837b69b	391	Reset940(1, 2);\r
cc68a136	392	Pause940(1);\r
cc68a136	393	\r
4f265db7	394	gp2x_memregs[0x3B40>>1] = 0; // disable DUALCPU interrupts for 920\r
4f265db7	395	gp2x_memregs[0x3B42>>1] = 1; // enable DUALCPU interrupts for 940\r
cc68a136	396	\r
abe0ea43	397	gp2x_memregl[0x4504>>2] = 0; // make sure no FIQs will be generated\r
	398	gp2x_memregl[0x4508>>2] = ~(1<<26); // unmask DUALCPU ints in the undocumented 940's interrupt controller\r
	399	\r
	400	\r
cc68a136	401	if (crashed_940)\r
	402	{\r
	403	unsigned char ucData[1024];\r
	404	int nRead, i, nLen = 0;\r
	405	char binpath[1024];\r
	406	FILE *fp;\r
	407	\r
	408	strncpy(binpath, g_argv[0], 1023);\r
	409	binpath[1023] = 0;\r
	410	for (i = strlen(binpath); i > 0; i--)\r
	411	if (binpath[i] == '/') { binpath[i] = 0; break; }\r
	412	strcat(binpath, "/code940.bin");\r
	413	\r
	414	fp = fopen(binpath, "rb");\r
	415	if(!fp)\r
	416	{\r
	417	memset(gp2x_screen, 0, 320*240);\r
	418	gp2x_text_out8(10, 100, "failed to open required file:");\r
	419	gp2x_text_out8(10, 110, "code940.bin");\r
	420	gp2x_video_flip();\r
	421	printf("failed to open %s\n", binpath);\r
	422	exit(1);\r
	423	}\r
	424	\r
	425	while(1)\r
	426	{\r
	427	nRead = fread(ucData, 1, 1024, fp);\r
	428	if(nRead <= 0)\r
	429	break;\r
	430	memcpy(shared_mem + nLen, ucData, nRead);\r
	431	nLen += nRead;\r
	432	}\r
	433	fclose(fp);\r
	434	crashed_940 = 0;\r
	435	}\r
	436	\r
	437	memset(shared_data, 0, sizeof(*shared_data));\r
	438	memset(shared_ctl, 0, sizeof(*shared_ctl));\r
	439	\r
	440	REGS = YM2612GetRegs();\r
	441	\r
	442	ym2612_dacen = &dacen;\r
	443	ym2612_dacout = &dacout;\r
	444	\r
	445	internal_reset();\r
	446	\r
51a902ae	447	loaded_mp3 = 0;\r
51a902ae	448	\r
4f265db7	449	gp2x_memregs[0x3B46>>1] = 0xffff; // clear pending DUALCPU interrupts for 940\r
abe0ea43	450	gp2x_memregl[0x4500>>2] = 0xffffffff; // clear pending IRQs in SRCPND\r
abe0ea43	451	gp2x_memregl[0x4510>>2] = 0xffffffff; // clear pending IRQs in INTPND\r
cc68a136	452	\r
cc68a136	453	/* start the 940 */\r
b837b69b	454	Reset940(0, 2);\r
cc68a136	455	Pause940(0);\r
	456	\r
	457	// YM2612ResetChip_940(); // will be done on JOB940_YM2612INIT\r
abe0ea43	458	\r
	459	/* now cause 940 to init it's ym2612 stuff */\r
	460	shared_ctl->baseclock = baseclock;\r
	461	shared_ctl->rate = rate;\r
	462	add_job_940(JOB940_INITALL);\r
cc68a136	463	}\r
	464	\r
	465	\r
	466	void YM2612ResetChip_940(void)\r
	467	{\r
	468	printf("YM2612ResetChip_940()\n");\r
	469	if (shared_data == NULL) {\r
	470	printf("YM2612ResetChip_940: reset before init?\n");\r
	471	return;\r
	472	}\r
	473	\r
cc68a136	474	internal_reset();\r
cc68a136	475	\r
abe0ea43	476	add_job_940(JOB940_YM2612RESETCHIP);\r
cc68a136	477	}\r
	478	\r
	479	\r
abe0ea43	480	int YM2612UpdateOne_940(int *buffer, int length, int stereo, int is_buf_empty)\r
cb0316e4	481	{\r
abe0ea43	482	int *ym_buf = shared_data->ym_buffer;\r
85f8e929	483	int ym_active_chs;\r
4f265db7	484	\r
abe0ea43	485	//printf("YM2612UpdateOne_940()\n");\r
	486	\r
	487	if (CHECK_BUSY(JOB940_YM2612UPDATEONE)) wait_busy_940(JOB940_YM2612UPDATEONE);\r
	488	\r
85f8e929	489	ym_active_chs = shared_ctl->ym_active_chs;\r
abe0ea43	490	\r
85f8e929	491	// mix in ym buffer. is_buf_empty means nobody mixed there anything yet and it may contain trash\r
	492	if (is_buf_empty && ym_active_chs) memcpy32(buffer, ym_buf, length<<stereo);\r
	493	else memset32(buffer, 0, length<<stereo);\r
abe0ea43	494	\r
abe0ea43	495	if (shared_ctl->writebuffsel == 1) {\r
2433f409	496	shared_ctl->writebuff0[writebuff_ptr & 0xffff] = 0xffff;\r
4f265db7	497	} else {\r
2433f409	498	shared_ctl->writebuff1[writebuff_ptr & 0xffff] = 0xffff;\r
cb0316e4	499	}\r
abe0ea43	500	writebuff_ptr = 0;\r
	501	\r
	502	/* predict sample counter for next frame */\r
	503	if (PsndLen_exc_add) {\r
	504	if (PsndLen_exc_cnt + PsndLen_exc_add >= 0x10000) length = PsndLen + 1;\r
	505	else length = PsndLen;\r
	506	}\r
	507	\r
	508	/* give 940 ym job */\r
	509	shared_ctl->writebuffsel ^= 1;\r
	510	shared_ctl->length = length;\r
	511	shared_ctl->stereo = stereo;\r
	512	\r
	513	add_job_940(JOB940_YM2612UPDATEONE);\r
	514	\r
85f8e929	515	return ym_active_chs;\r
cb0316e4	516	}\r
cb0316e4	517	\r
cb0316e4	518	\r
51a902ae	519	static int mp3_samples_ready = 0, mp3_buffer_offs = 0;\r
abe0ea43	520	static int mp3_play_bufsel = 0, mp3_job_started = 0;\r
cb0316e4	521	\r
abe0ea43	522	void mp3_update(int *buffer, int length, int stereo)\r
cc68a136	523	{\r
abe0ea43	524	int length_mp3;\r
abe0ea43	525	int cdda_on;\r
4f265db7	526	\r
abe0ea43	527	// not data track, CDC is reading, playback was started, track not ended\r
	528	cdda_on = !(Pico_mcd->s68k_regs[0x36] & 1) && (Pico_mcd->scd.Status_CDC & 1) &&\r
	529	loaded_mp3 && shared_ctl->mp3_offs < shared_ctl->mp3_len;\r
cc68a136	530	\r
abe0ea43	531	if (!cdda_on) return;\r
cc68a136	532	\r
abe0ea43	533	if (!(PicoOpt&0x200)) {\r
	534	mp3_update_local(buffer, length, stereo);\r
	535	return;\r
	536	}\r
cc68a136	537	\r
abe0ea43	538	length_mp3 = length;\r
	539	if (PsndRate == 22050) length_mp3 <<= 1; // mp3s are locked to 44100Hz stereo\r
	540	else if (PsndRate == 11025) length_mp3 <<= 2; // so make length 44100ish\r
4f265db7	541	\r
abe0ea43	542	/* do we have to wait? */\r
	543	if (mp3_job_started && mp3_samples_ready < length_mp3) {\r
	544	if (CHECK_BUSY(JOB940_MP3DECODE)) wait_busy_940(JOB940_MP3DECODE);\r
	545	mp3_job_started = 0;\r
	546	mp3_samples_ready += 1152;\r
	547	}\r
cb0316e4	548	\r
4f265db7	549	/* mix mp3 data, only stereo */\r
abe0ea43	550	if (mp3_samples_ready >= length_mp3)\r
cb0316e4	551	{\r
4f265db7	552	int shr = 0;\r
	553	void (mix_samples)(int dest_buf, short *mp3_buf, int count) = mix_16h_to_32;\r
	554	if (PsndRate == 22050) { mix_samples = mix_16h_to_32_s1; shr = 1; }\r
	555	else if (PsndRate == 11025) { mix_samples = mix_16h_to_32_s2; shr = 2; }\r
cb0316e4	556	\r
4f265db7	557	if (1152 - mp3_buffer_offs >= length_mp3) {\r
abe0ea43	558	mix_samples(buffer, shared_data->mp3_buffer[mp3_play_bufsel] + mp3_buffer_offs*2, length<<1);\r
4f265db7	559	\r
4f265db7	560	mp3_buffer_offs += length_mp3;\r
cb0316e4	561	} else {\r
abe0ea43	562	// collect samples from both buffers..\r
cb0316e4	563	int left = 1152 - mp3_buffer_offs;\r
4f265db7	564	if (mp3_play_bufsel == 0)\r
4f265db7	565	{\r
abe0ea43	566	mix_samples(buffer, shared_data->mp3_buffer[0] + mp3_buffer_offs*2, length<<1);\r
4f265db7	567	mp3_buffer_offs = length_mp3 - left;\r
	568	mp3_play_bufsel = 1;\r
	569	} else {\r
	570	mix_samples(buffer, shared_data->mp3_buffer[1] + mp3_buffer_offs*2, (left>>shr)<<1);\r
	571	mp3_buffer_offs = length_mp3 - left;\r
	572	mix_samples(buffer + ((left>>shr)<<1),\r
	573	shared_data->mp3_buffer[0], (mp3_buffer_offs>>shr)<<1);\r
	574	mp3_play_bufsel = 0;\r
	575	}\r
cc68a136	576	}\r
4f265db7	577	mp3_samples_ready -= length_mp3;\r
cc68a136	578	}\r
cc68a136	579	\r
abe0ea43	580	// ask to decode more if we already can\r
abe0ea43	581	if (!mp3_job_started)\r
cb0316e4	582	{\r
abe0ea43	583	mp3_job_started = 1;\r
cb0316e4	584	shared_ctl->mp3_buffsel ^= 1;\r
abe0ea43	585	add_job_940(JOB940_MP3DECODE);\r
cb0316e4	586	}\r
cc68a136	587	}\r
cb0316e4	588	\r
	589	\r
	590	/***********************************************************/\r
	591	\r
	592	void mp3_start_play(FILE *f, int pos) // pos is 0-1023\r
	593	{\r
	594	int byte_offs = 0;\r
	595	\r
1cd356a3	596	if (!(PicoOpt&0x800)) { // cdda disabled?\r
cb0316e4	597	return;\r
	598	}\r
	599	\r
	600	if (loaded_mp3 != f)\r
	601	{\r
4f265db7	602	// printf("loading mp3... "); fflush(stdout);\r
66fdc0f0	603	if (PicoMessage != NULL)\r
	604	{\r
	605	fseek(f, 0, SEEK_END);\r
	606	if (ftell(f) > 210241024)\r
	607	PicoMessage("Loading MP3...");\r
	608	}\r
cb0316e4	609	fseek(f, 0, SEEK_SET);\r
cb0316e4	610	fread(mp3_mem, 1, MP3_SIZE_MAX, f);\r
4f265db7	611	// if (feof(f)) printf("done.\n");\r
4f265db7	612	// else printf("done. mp3 too large, not all data loaded.\n");\r
cb0316e4	613	shared_ctl->mp3_len = ftell(f);\r
cb0316e4	614	loaded_mp3 = f;\r
abe0ea43	615	\r
	616	if (PicoOpt&0x200) {\r
	617	// as we are going to change 940's cacheable area, we must invalidate it's cache..\r
	618	if (CHECK_BUSY(JOB940_MP3DECODE)) wait_busy_940(JOB940_MP3DECODE);\r
	619	add_job_940(JOB940_INVALIDATE_DCACHE);\r
	620	}\r
00bd648e	621	reset_timing = 1;\r
cb0316e4	622	}\r
	623	\r
	624	// seek..\r
	625	if (pos) {\r
	626	byte_offs = (shared_ctl->mp3_len << 6) >> 10;\r
	627	byte_offs *= pos;\r
	628	byte_offs >>= 6;\r
	629	}\r
4f265db7	630	// printf("mp3 pos1024: %i, byte_offs %i/%i\n", pos, byte_offs, shared_ctl->mp3_len);\r
cb0316e4	631	\r
cb0316e4	632	shared_ctl->mp3_offs = byte_offs;\r
51a902ae	633	\r
abe0ea43	634	// reset buffer pointers and stuff..\r
51a902ae	635	mp3_samples_ready = mp3_buffer_offs = mp3_play_bufsel = 0;\r
abe0ea43	636	mp3_job_started = 0;\r
51a902ae	637	shared_ctl->mp3_buffsel = 1; // will change to 0 on first decode\r
abe0ea43	638	\r
abe0ea43	639	if (!(PicoOpt&0x200)) mp3_start_local();\r
cb0316e4	640	}\r
	641	\r
	642	\r
75736070	643	int mp3_get_offset(void)\r
	644	{\r
	645	int offs1024 = 0;\r
	646	int cdda_on;\r
	647	\r
1cd356a3	648	cdda_on = (PicoMCD & 1) && (PicoOpt&0x800) && !(Pico_mcd->s68k_regs[0x36] & 1) &&\r
abe0ea43	649	(Pico_mcd->scd.Status_CDC & 1) && loaded_mp3;\r
75736070	650	\r
	651	if (cdda_on) {\r
	652	offs1024 = shared_ctl->mp3_offs << 7;\r
	653	offs1024 /= shared_ctl->mp3_len;\r
	654	offs1024 <<= 3;\r
	655	}\r
	656	printf("offs1024=%i (%i/%i)\n", offs1024, shared_ctl->mp3_offs, shared_ctl->mp3_len);\r
	657	\r
	658	return offs1024;\r
	659	}\r
	660	\r
	661	\r