[libpicofe.git] / gp2x / soc_mmsp2.c

/*
 * (C) Gražvydas "notaz" Ignotas, 2006-2012
 *
 * This work is licensed under the terms of any of these licenses
 * (at your option):
 *  - GNU GPL, version 2 or later.
 *  - GNU LGPL, version 2.1 or later.
 *  - MAME license.
 * See the COPYING file in the top-level directory.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <sys/mman.h>
#include <sys/ioctl.h>
#include <unistd.h>
#include <linux/soundcard.h>

#include "soc.h"
#include "soc_mmsp2.h"
#include "plat_gp2x.h"
#include "../linux/sndout_oss.h"
#include "../plat.h"

static int mixerdev = -1;
static int touchdev = -1;
static int touchcal[7] = { 6203, 0, -1501397, 0, -4200, 16132680, 65536 };

static char gamma_was_changed = 0;
static char cpuclk_was_changed = 0;
static unsigned short memtimex_old[2];
static unsigned short reg0910;

/* 940 */
void pause940(int yes)
{
	if (yes)
		memregs[0x0904>>1] &= 0xFFFE;
	else
		memregs[0x0904>>1] |= 1;
}

void reset940(int yes, int bank)
{
	memregs[0x3B48>>1] = ((yes&1) << 7) | (bank & 0x03);
}

/*
 * CPU clock
 * Fout = (m * Fin) / (p * 2^s)
 * m = MDIV+8, p = PDIV+2, s = SDIV
 *
 * m = (Fout * p * 2^s) / Fin
 */

#define SYS_CLK_FREQ 7372800

static int cpu_current_mhz = 200;

static int mmsp2_clock_get(void)
{
	// TODO: read the actual value?
	return cpu_current_mhz;
}

static int mmsp2_clock_set(int mhz)
{
	unsigned int mdiv, pdiv, sdiv = 0;
	unsigned int v;
	int i;

	pdiv = 3;
	mdiv = (mhz * pdiv * 1000000) / SYS_CLK_FREQ;
	if (mdiv & ~0xff) {
		fprintf(stderr, "invalid cpuclk MHz: %u\n", mhz);
		return -1;
	}
	v = ((mdiv-8)<<8) | ((pdiv-2)<<2) | sdiv;
	memregs[0x910>>1] = v;

	for (i = 0; i < 10000; i++)
		if (!(memregs[0x902>>1] & 1))
			break;

	cpuclk_was_changed = 1;
	cpu_current_mhz = mhz;
	return 0;
}

/* RAM timings */
#define TIMING_CHECK(t, adj, mask) \
	t += adj; \
	if (t & ~mask) \
		goto bad

static __attribute__((noinline)) void spend_cycles(int c)
{
	asm volatile(
		"0: subs %0, %0, #1 ;"
		"bgt 0b"
		: "=r" (c) : "0" (c) : "cc");
}

static void set_ram_timing_vals(int tCAS, int tRC, int tRAS, int tWR, int tMRD, int tRFC, int tRP, int tRCD)
{
	int i;
	TIMING_CHECK(tCAS, -2, 0x1);
	TIMING_CHECK(tRC,  -1, 0xf);
	TIMING_CHECK(tRAS, -1, 0xf);
	TIMING_CHECK(tWR,  -1, 0xf);
	TIMING_CHECK(tMRD, -1, 0xf);
	TIMING_CHECK(tRFC, -1, 0xf);
	TIMING_CHECK(tRP,  -1, 0xf);
	TIMING_CHECK(tRCD, -1, 0xf);

	/* get spend_cycles() into cache */
	spend_cycles(1);

	memregs[0x3802>>1] = ((tMRD & 0xF) << 12) | ((tRFC & 0xF) << 8) | ((tRP & 0xF) << 4) | (tRCD & 0xF);
	memregs[0x3804>>1] = 0x8000 | ((tCAS & 1) << 12) | ((tRC & 0xF) << 8) | ((tRAS & 0xF) << 4) | (tWR & 0xF);

	/* be sure we don't access the mem while it's being reprogrammed */
	spend_cycles(128*1024);
	for (i = 0; i < 8*1024; i++)
		if (!(memregs[0x3804>>1] & 0x8000))
			break;

	printf("RAM timings set.\n");
	return;
bad:
	fprintf(stderr, "RAM timings invalid.\n");
}

static void set_ram_timings_(void)
{
	/* craigix: --cas 2 --trc 6 --tras 4 --twr 1 --tmrd 1 --trfc 1 --trp 2 --trcd 2 */
	set_ram_timing_vals(2, 6, 4, 1, 1, 1, 2, 2);
}

static void unset_ram_timings_(void)
{
	memregs[0x3802>>1] = memtimex_old[0];
	memregs[0x3804>>1] = memtimex_old[1] | 0x8000;
	printf("RAM timings reset to startup values.\n");
}

/* LCD refresh */
typedef struct
{
	unsigned short reg, valmask, val;
}
reg_setting;

/* 120.00 97/0/2/7|25/ 7/ 7/11/37 */
static const reg_setting lcd_rate_120[] =
{
	{ 0x0914, 0xffff, (97<<8)|(0<<2)|2 },	/* UPLLSETVREG */
	{ 0x0924, 0xff00, (2<<14)|(7<<8) },	/* DISPCSETREG */
	{ 0x281A, 0x00ff, 25 },			/* .HSWID(T2) */
	{ 0x281C, 0x00ff, 7 },			/* .HSSTR(T8) */
	{ 0x281E, 0x00ff, 7 },			/* .HSEND(T7) */
	{ 0x2822, 0x01ff, 11 },			/* .VSEND (T9) */
	{ 0x2826, 0x0ff0, 37<<4 },		/* .DESTR(T3) */
	{ 0, 0, 0 }
};

/* 100.00 96/0/2/7|29/25/53/15/37 */
static const reg_setting lcd_rate_100[] =
{
	{ 0x0914, 0xffff, (96<<8)|(0<<2)|2 },	/* UPLLSETVREG */
	{ 0x0924, 0xff00, (2<<14)|(7<<8) },	/* DISPCSETREG */
	{ 0x281A, 0x00ff, 29 },			/* .HSWID(T2) */
	{ 0x281C, 0x00ff, 25 },			/* .HSSTR(T8) */
	{ 0x281E, 0x00ff, 53 },			/* .HSEND(T7) */
	{ 0x2822, 0x01ff, 15 },			/* .VSEND (T9) */
	{ 0x2826, 0x0ff0, 37<<4 },		/* .DESTR(T3) */
	{ 0, 0, 0 }
};

static reg_setting lcd_rate_defaults[] =
{
	{ 0x0914, 0xffff, 0 },
	{ 0x0924, 0xff00, 0 },
	{ 0x281A, 0x00ff, 0 },
	{ 0x281C, 0x00ff, 0 },
	{ 0x281E, 0x00ff, 0 },
	{ 0x2822, 0x01ff, 0 },
	{ 0x2826, 0x0ff0, 0 },
	{ 0, 0, 0 }
};

static void get_reg_setting(reg_setting *set)
{
	for (; set->reg; set++)
	{
		unsigned short val = memregs[set->reg >> 1];
		val &= set->valmask;
		set->val = val;
	}
}

static void set_reg_setting(const reg_setting *set)
{
	for (; set->reg; set++)
	{
		unsigned short val = memregs[set->reg >> 1];
		val &= ~set->valmask;
		val |= set->val;
		memregs[set->reg >> 1] = val;
	}
}

static int mmsp2_lcdrate_set(int is_pal)
{
	if (memregs[0x2800>>1] & 0x100) // tv-out
		return 0;

	printf("setting custom LCD refresh (%d Hz)... ", is_pal ? 100 : 120);
	fflush(stdout);

	set_reg_setting(is_pal ? lcd_rate_100 : lcd_rate_120);
	printf("done.\n");
	return 0;
}

static void unset_lcd_custom_rate_(void)
{
	printf("reset to prev LCD refresh.\n");
	set_reg_setting(lcd_rate_defaults);
}

static void set_lcd_gamma_(int g100, int A_SNs_curve)
{
	float gamma = (float) g100 / 100.0f;
	int i;
	gamma = 1 / gamma;

	if (g100 == 100)
		A_SNs_curve = 0;

	/* enable gamma */
	memregs[0x2880>>1] &= ~(1<<12);

	memregs[0x295C>>1] = 0;
	for (i = 0; i < 256; i++)
	{
		unsigned char g;
		unsigned short s;
		const unsigned short grey50=143, grey75=177, grey25=97;
		double blah;

		if (A_SNs_curve)
		{
			// The next formula is all about gaussian interpolation
			blah = ((  -128 * exp(-powf((float) i/64.0f + 2.0f , 2.0f))) +
				(   -64 * exp(-powf((float) i/64.0f + 1.0f , 2.0f))) +
				(grey25 * exp(-powf((float) i/64.0f - 1.0f , 2.0f))) +
				(grey50 * exp(-powf((float) i/64.0f - 2.0f , 2.0f))) +
				(grey75 * exp(-powf((float) i/64.0f - 3.0f , 2.0f))) +
				(   256 * exp(-powf((float) i/64.0f - 4.0f , 2.0f))) +
				(   320 * exp(-powf((float) i/64.0f - 5.0f , 2.0f))) +
				(   384 * exp(-powf((float) i/64.0f - 6.0f , 2.0f)))) / 1.772637;
			blah += 0.5;
		}
		else
		{
			blah = (double)i;
		}

		g = (unsigned char)(255.0 * pow(blah/255.0, gamma));
		//printf("%d : %d\n", i, g);
		s = (g<<8) | g;
		memregs[0x295E>>1]= s;
		memregs[0x295E>>1]= g;
	}

	gamma_was_changed = 1;
}

static int mmsp2_gamma_set(int val, int black_level)
{
	set_lcd_gamma_(val, 1);
	return 0;
}

/* these are not quite MMSP2 related,
 * more to GP2X F100/F200 consoles themselves. */
typedef struct ucb1x00_ts_event
{
	unsigned short pressure;
	unsigned short x;
	unsigned short y;
	unsigned short pad;
	struct timeval stamp;
} UCB1X00_TS_EVENT;

int gp2x_touchpad_read(int *x, int *y)
{
	UCB1X00_TS_EVENT event;
	static int zero_seen = 0;
	int retval;

	if (touchdev < 0) return -1;

	retval = read(touchdev, &event, sizeof(event));
	if (retval <= 0) {
		perror("touch read failed");
		return -1;
	}
	// this is to ignore the messed-up 4.1.x driver
	if (event.pressure == 0) zero_seen = 1;

	if (x) *x = (event.x * touchcal[0] + touchcal[2]) >> 16;
	if (y) *y = (event.y * touchcal[4] + touchcal[5]) >> 16;
	// printf("read %i %i %i\n", event.pressure, *x, *y);

	return zero_seen ? event.pressure : 0;
}

static void proc_set(const char *path, const char *val)
{
	FILE *f;
	char tmp[16];

	f = fopen(path, "w");
	if (f == NULL) {
		printf("failed to open: %s\n", path);
		return;
	}

	fprintf(f, "0\n");
	fclose(f);

	printf("\"%s\" is set to: ", path);
	f = fopen(path, "r");
	if (f == NULL) {
		printf("(open failed)\n");
		return;
	}

	fgets(tmp, sizeof(tmp), f);
	printf("%s", tmp);
	fclose(f);
}

static int step_volume(int *volume, int diff)
{
	int ret, val;

	if (mixerdev < 0)
		return -1;

	*volume += diff;
	if (*volume >= 100)
		*volume = 100;
	else if (*volume < 0)
		*volume = 0;

	val = *volume;
	val |= val << 8;

 	ret = ioctl(mixerdev, SOUND_MIXER_WRITE_PCM, &val);
	if (ret == -1) {
		perror("WRITE_PCM");
		return ret;
	}

	return 0;
}

void mmsp2_init(void)
{
  	memdev = open("/dev/mem", O_RDWR);
	if (memdev == -1)
	{
		perror("open(\"/dev/mem\")");
		exit(1);
	}

	memregs = mmap(0, 0x10000, PROT_READ|PROT_WRITE, MAP_SHARED, memdev, 0xc0000000);
	if (memregs == MAP_FAILED)
	{
		perror("mmap(memregs)");
		exit(1);
	}
	memregl = (volatile unsigned int *) memregs;

	memregs[0x2880>>1] &= ~0x383; // disable cursor, subpict, osd, video layers

	/* save startup values: LCD refresh */
	get_reg_setting(lcd_rate_defaults);

	/* CPU and RAM timings */
	reg0910 = memregs[0x0910>>1];
	memtimex_old[0] = memregs[0x3802>>1];
	memtimex_old[1] = memregs[0x3804>>1];

	/* touchscreen */
	touchdev = open("/dev/touchscreen/wm97xx", O_RDONLY);
	if (touchdev >= 0) {
		FILE *pcf = fopen("/etc/pointercal", "r");
		if (pcf) {
			fscanf(pcf, "%d %d %d %d %d %d %d", &touchcal[0], &touchcal[1],
				&touchcal[2], &touchcal[3], &touchcal[4], &touchcal[5], &touchcal[6]);
			fclose(pcf);
		}
		printf("found touchscreen/wm97xx\n");
	}

	/* disable Linux read-ahead */
	proc_set("/proc/sys/vm/max-readahead", "0\n");
	proc_set("/proc/sys/vm/min-readahead", "0\n");

	mixerdev = open("/dev/mixer", O_RDWR);
	if (mixerdev == -1)
		perror("open(/dev/mixer)");

	set_ram_timings_();

	plat_target.cpu_clock_get = mmsp2_clock_get;
	plat_target.cpu_clock_set = mmsp2_clock_set;
	plat_target.lcdrate_set = mmsp2_lcdrate_set;
	plat_target.gamma_set = mmsp2_gamma_set;
	plat_target.step_volume = step_volume;

	gp2x_get_ticks_ms = plat_get_ticks_ms_good;
	gp2x_get_ticks_us = plat_get_ticks_us_good;

	sndout_oss_can_restart = 0;
}

void mmsp2_finish(void)
{
	reset940(1, 3);
	pause940(1);

	unset_lcd_custom_rate_();
	if (gamma_was_changed)
		set_lcd_gamma_(100, 0);
	unset_ram_timings_();
	if (cpuclk_was_changed)
		memregs[0x910>>1] = reg0910;

	munmap((void *)memregs, 0x10000);
	close(memdev);
	if (touchdev >= 0)
		close(touchdev);
	if (mixerdev >= 0)
		close(mixerdev);
}
Commit	Line	Data
f89d8471	1	/*
	2	* (C) Gražvydas "notaz" Ignotas, 2006-2012
	3	*
	4	* This work is licensed under the terms of any of these licenses
	5	* (at your option):
	6	* - GNU GPL, version 2 or later.
	7	* - GNU LGPL, version 2.1 or later.
	8	* - MAME license.
	9	* See the COPYING file in the top-level directory.
	10	*/
	11
d572cbad	12	#include <stdio.h>
	13	#include <stdlib.h>
	14	#include <string.h>
fa5e045b	15	#include <math.h>
d572cbad	16	#include <sys/types.h>
	17	#include <sys/stat.h>
	18	#include <fcntl.h>
	19	#include <sys/mman.h>
7ceadd99	20	#include <sys/ioctl.h>
d572cbad	21	#include <unistd.h>
7ceadd99	22	#include <linux/soundcard.h>
d572cbad	23
	24	#include "soc.h"
	25	#include "soc_mmsp2.h"
fa5e045b	26	#include "plat_gp2x.h"
39014486	27	#include "../linux/sndout_oss.h"
a86e9a3e	28	#include "../plat.h"
d572cbad	29
7ceadd99	30	static int mixerdev = -1;
d572cbad	31	static int touchdev = -1;
	32	static int touchcal[7] = { 6203, 0, -1501397, 0, -4200, 16132680, 65536 };
	33
71769e27	34	static char gamma_was_changed = 0;
71769e27	35	static char cpuclk_was_changed = 0;
71769e27	36	static unsigned short memtimex_old[2];
71769e27	37	static unsigned short reg0910;
d572cbad	38
d572cbad	39	/* 940 */
	40	void pause940(int yes)
	41	{
	42	if (yes)
7ceadd99	43	memregs[0x0904>>1] &= 0xFFFE;
d572cbad	44	else
7ceadd99	45	memregs[0x0904>>1] \|= 1;
d572cbad	46	}
	47
	48	void reset940(int yes, int bank)
	49	{
7ceadd99	50	memregs[0x3B48>>1] = ((yes&1) << 7) \| (bank & 0x03);
d572cbad	51	}
d572cbad	52
fa5e045b	53	/*
	54	* CPU clock
	55	* Fout = (m * Fin) / (p * 2^s)
	56	* m = MDIV+8, p = PDIV+2, s = SDIV
	57	*
	58	* m = (Fout * p * 2^s) / Fin
	59	*/
	60
	61	#define SYS_CLK_FREQ 7372800
	62
7ceadd99	63	static int cpu_current_mhz = 200;
	64
	65	static int mmsp2_clock_get(void)
	66	{
	67	// TODO: read the actual value?
	68	return cpu_current_mhz;
	69	}
	70
	71	static int mmsp2_clock_set(int mhz)
fa5e045b	72	{
	73	unsigned int mdiv, pdiv, sdiv = 0;
	74	unsigned int v;
	75	int i;
	76
	77	pdiv = 3;
	78	mdiv = (mhz * pdiv * 1000000) / SYS_CLK_FREQ;
	79	if (mdiv & ~0xff) {
	80	fprintf(stderr, "invalid cpuclk MHz: %u\n", mhz);
7ceadd99	81	return -1;
fa5e045b	82	}
fa5e045b	83	v = ((mdiv-8)<<8) \| ((pdiv-2)<<2) \| sdiv;
7ceadd99	84	memregs[0x910>>1] = v;
fa5e045b	85
fa5e045b	86	for (i = 0; i < 10000; i++)
7ceadd99	87	if (!(memregs[0x902>>1] & 1))
fa5e045b	88	break;
71769e27	89
71769e27	90	cpuclk_was_changed = 1;
7ceadd99	91	cpu_current_mhz = mhz;
7ceadd99	92	return 0;
fa5e045b	93	}
	94
	95	/* RAM timings */
fa5e045b	96	#define TIMING_CHECK(t, adj, mask) \
	97	t += adj; \
	98	if (t & ~mask) \
	99	goto bad
	100
7ceadd99	101	static __attribute__((noinline)) void spend_cycles(int c)
	102	{
	103	asm volatile(
	104	"0: subs %0, %0, #1 ;"
	105	"bgt 0b"
	106	: "=r" (c) : "0" (c) : "cc");
	107	}
	108
fa8d1331	109	static void set_ram_timing_vals(int tCAS, int tRC, int tRAS, int tWR, int tMRD, int tRFC, int tRP, int tRCD)
fa5e045b	110	{
	111	int i;
	112	TIMING_CHECK(tCAS, -2, 0x1);
	113	TIMING_CHECK(tRC, -1, 0xf);
	114	TIMING_CHECK(tRAS, -1, 0xf);
	115	TIMING_CHECK(tWR, -1, 0xf);
	116	TIMING_CHECK(tMRD, -1, 0xf);
	117	TIMING_CHECK(tRFC, -1, 0xf);
	118	TIMING_CHECK(tRP, -1, 0xf);
	119	TIMING_CHECK(tRCD, -1, 0xf);
	120
	121	/* get spend_cycles() into cache */
	122	spend_cycles(1);
	123
7ceadd99	124	memregs[0x3802>>1] = ((tMRD & 0xF) << 12) \| ((tRFC & 0xF) << 8) \| ((tRP & 0xF) << 4) \| (tRCD & 0xF);
7ceadd99	125	memregs[0x3804>>1] = 0x8000 \| ((tCAS & 1) << 12) \| ((tRC & 0xF) << 8) \| ((tRAS & 0xF) << 4) \| (tWR & 0xF);
fa5e045b	126
	127	/* be sure we don't access the mem while it's being reprogrammed */
	128	spend_cycles(128*1024);
	129	for (i = 0; i < 8*1024; i++)
7ceadd99	130	if (!(memregs[0x3804>>1] & 0x8000))
fa5e045b	131	break;
	132
	133	printf("RAM timings set.\n");
	134	return;
	135	bad:
	136	fprintf(stderr, "RAM timings invalid.\n");
	137	}
	138
fa8d1331	139	static void set_ram_timings_(void)
	140	{
	141	/* craigix: --cas 2 --trc 6 --tras 4 --twr 1 --tmrd 1 --trfc 1 --trp 2 --trcd 2 */
	142	set_ram_timing_vals(2, 6, 4, 1, 1, 1, 2, 2);
	143	}
	144
	145	static void unset_ram_timings_(void)
fa5e045b	146	{
7ceadd99	147	memregs[0x3802>>1] = memtimex_old[0];
7ceadd99	148	memregs[0x3804>>1] = memtimex_old[1] \| 0x8000;
fa5e045b	149	printf("RAM timings reset to startup values.\n");
	150	}
	151
	152	/* LCD refresh */
	153	typedef struct
	154	{
	155	unsigned short reg, valmask, val;
	156	}
	157	reg_setting;
	158
	159	/* 120.00 97/0/2/7\|25/ 7/ 7/11/37 */
	160	static const reg_setting lcd_rate_120[] =
	161	{
	162	{ 0x0914, 0xffff, (97<<8)\|(0<<2)\|2 }, /* UPLLSETVREG */
	163	{ 0x0924, 0xff00, (2<<14)\|(7<<8) }, /* DISPCSETREG */
	164	{ 0x281A, 0x00ff, 25 }, /* .HSWID(T2) */
	165	{ 0x281C, 0x00ff, 7 }, /* .HSSTR(T8) */
	166	{ 0x281E, 0x00ff, 7 }, /* .HSEND(T7) */
	167	{ 0x2822, 0x01ff, 11 }, /* .VSEND (T9) */
	168	{ 0x2826, 0x0ff0, 37<<4 }, /* .DESTR(T3) */
	169	{ 0, 0, 0 }
	170	};
	171
	172	/* 100.00 96/0/2/7\|29/25/53/15/37 */
	173	static const reg_setting lcd_rate_100[] =
	174	{
	175	{ 0x0914, 0xffff, (96<<8)\|(0<<2)\|2 }, /* UPLLSETVREG */
	176	{ 0x0924, 0xff00, (2<<14)\|(7<<8) }, /* DISPCSETREG */
	177	{ 0x281A, 0x00ff, 29 }, /* .HSWID(T2) */
	178	{ 0x281C, 0x00ff, 25 }, /* .HSSTR(T8) */
	179	{ 0x281E, 0x00ff, 53 }, /* .HSEND(T7) */
	180	{ 0x2822, 0x01ff, 15 }, /* .VSEND (T9) */
	181	{ 0x2826, 0x0ff0, 37<<4 }, /* .DESTR(T3) */
	182	{ 0, 0, 0 }
	183	};
	184
	185	static reg_setting lcd_rate_defaults[] =
	186	{
	187	{ 0x0914, 0xffff, 0 },
	188	{ 0x0924, 0xff00, 0 },
	189	{ 0x281A, 0x00ff, 0 },
	190	{ 0x281C, 0x00ff, 0 },
	191	{ 0x281E, 0x00ff, 0 },
	192	{ 0x2822, 0x01ff, 0 },
	193	{ 0x2826, 0x0ff0, 0 },
	194	{ 0, 0, 0 }
	195	};
	196
	197	static void get_reg_setting(reg_setting *set)
	198	{
	199	for (; set->reg; set++)
	200	{
7ceadd99	201	unsigned short val = memregs[set->reg >> 1];
fa5e045b	202	val &= set->valmask;
	203	set->val = val;
	204	}
	205	}
	206
	207	static void set_reg_setting(const reg_setting *set)
	208	{
	209	for (; set->reg; set++)
	210	{
7ceadd99	211	unsigned short val = memregs[set->reg >> 1];
fa5e045b	212	val &= ~set->valmask;
fa5e045b	213	val \|= set->val;
7ceadd99	214	memregs[set->reg >> 1] = val;
fa5e045b	215	}
	216	}
	217
7ceadd99	218	static int mmsp2_lcdrate_set(int is_pal)
fa5e045b	219	{
7ceadd99	220	if (memregs[0x2800>>1] & 0x100) // tv-out
7ceadd99	221	return 0;
fa5e045b	222
	223	printf("setting custom LCD refresh (%d Hz)... ", is_pal ? 100 : 120);
	224	fflush(stdout);
	225
	226	set_reg_setting(is_pal ? lcd_rate_100 : lcd_rate_120);
	227	printf("done.\n");
7ceadd99	228	return 0;
fa5e045b	229	}
fa5e045b	230
fa8d1331	231	static void unset_lcd_custom_rate_(void)
fa5e045b	232	{
	233	printf("reset to prev LCD refresh.\n");
	234	set_reg_setting(lcd_rate_defaults);
	235	}
	236
fa8d1331	237	static void set_lcd_gamma_(int g100, int A_SNs_curve)
fa5e045b	238	{
7ceadd99	239	float gamma = (float) g100 / 100.0f;
fa5e045b	240	int i;
	241	gamma = 1 / gamma;
	242
7ceadd99	243	if (g100 == 100)
	244	A_SNs_curve = 0;
	245
fa5e045b	246	/* enable gamma */
7ceadd99	247	memregs[0x2880>>1] &= ~(1<<12);
fa5e045b	248
7ceadd99	249	memregs[0x295C>>1] = 0;
fa5e045b	250	for (i = 0; i < 256; i++)
	251	{
	252	unsigned char g;
	253	unsigned short s;
	254	const unsigned short grey50=143, grey75=177, grey25=97;
	255	double blah;
	256
	257	if (A_SNs_curve)
	258	{
	259	// The next formula is all about gaussian interpolation
	260	blah = (( -128 * exp(-powf((float) i/64.0f + 2.0f , 2.0f))) +
	261	( -64 * exp(-powf((float) i/64.0f + 1.0f , 2.0f))) +
	262	(grey25 * exp(-powf((float) i/64.0f - 1.0f , 2.0f))) +
	263	(grey50 * exp(-powf((float) i/64.0f - 2.0f , 2.0f))) +
	264	(grey75 * exp(-powf((float) i/64.0f - 3.0f , 2.0f))) +
	265	( 256 * exp(-powf((float) i/64.0f - 4.0f , 2.0f))) +
	266	( 320 * exp(-powf((float) i/64.0f - 5.0f , 2.0f))) +
	267	( 384 * exp(-powf((float) i/64.0f - 6.0f , 2.0f)))) / 1.772637;
	268	blah += 0.5;
	269	}
	270	else
	271	{
7ceadd99	272	blah = (double)i;
fa5e045b	273	}
	274
	275	g = (unsigned char)(255.0 * pow(blah/255.0, gamma));
	276	//printf("%d : %d\n", i, g);
	277	s = (g<<8) \| g;
7ceadd99	278	memregs[0x295E>>1]= s;
7ceadd99	279	memregs[0x295E>>1]= g;
fa5e045b	280	}
71769e27	281
71769e27	282	gamma_was_changed = 1;
fa5e045b	283	}
fa5e045b	284
7ceadd99	285	static int mmsp2_gamma_set(int val, int black_level)
053bef76	286	{
7ceadd99	287	set_lcd_gamma_(val, 1);
7ceadd99	288	return 0;
053bef76	289	}
d572cbad	290
	291	/* these are not quite MMSP2 related,
	292	* more to GP2X F100/F200 consoles themselves. */
	293	typedef struct ucb1x00_ts_event
	294	{
	295	unsigned short pressure;
	296	unsigned short x;
	297	unsigned short y;
	298	unsigned short pad;
	299	struct timeval stamp;
	300	} UCB1X00_TS_EVENT;
	301
	302	int gp2x_touchpad_read(int x, int y)
	303	{
	304	UCB1X00_TS_EVENT event;
	305	static int zero_seen = 0;
	306	int retval;
	307
	308	if (touchdev < 0) return -1;
	309
	310	retval = read(touchdev, &event, sizeof(event));
	311	if (retval <= 0) {
	312	perror("touch read failed");
	313	return -1;
	314	}
	315	// this is to ignore the messed-up 4.1.x driver
	316	if (event.pressure == 0) zero_seen = 1;
	317
	318	if (x) x = (event.x touchcal[0] + touchcal[2]) >> 16;
	319	if (y) y = (event.y touchcal[4] + touchcal[5]) >> 16;
	320	// printf("read %i %i %i\n", event.pressure, x, y);
	321
	322	return zero_seen ? event.pressure : 0;
	323	}
	324
	325	static void proc_set(const char path, const char val)
	326	{
	327	FILE *f;
	328	char tmp[16];
	329
	330	f = fopen(path, "w");
	331	if (f == NULL) {
	332	printf("failed to open: %s\n", path);
	333	return;
	334	}
	335
	336	fprintf(f, "0\n");
	337	fclose(f);
	338
	339	printf("\"%s\" is set to: ", path);
	340	f = fopen(path, "r");
	341	if (f == NULL) {
	342	printf("(open failed)\n");
	343	return;
	344	}
	345
	346	fgets(tmp, sizeof(tmp), f);
	347	printf("%s", tmp);
	348	fclose(f);
	349	}
	350
7ceadd99	351	static int step_volume(int *volume, int diff)
	352	{
	353	int ret, val;
	354
	355	if (mixerdev < 0)
	356	return -1;
	357
	358	*volume += diff;
	359	if (*volume >= 100)
	360	*volume = 100;
	361	else if (*volume < 0)
	362	*volume = 0;
	363
	364	val = *volume;
	365	val \|= val << 8;
	366
	367	ret = ioctl(mixerdev, SOUND_MIXER_WRITE_PCM, &val);
	368	if (ret == -1) {
	369	perror("WRITE_PCM");
	370	return ret;
	371	}
	372
	373	return 0;
	374	}
d572cbad	375
	376	void mmsp2_init(void)
	377	{
d572cbad	378	memdev = open("/dev/mem", O_RDWR);
	379	if (memdev == -1)
	380	{
	381	perror("open(\"/dev/mem\")");
	382	exit(1);
	383	}
	384
7ceadd99	385	memregs = mmap(0, 0x10000, PROT_READ\|PROT_WRITE, MAP_SHARED, memdev, 0xc0000000);
7ceadd99	386	if (memregs == MAP_FAILED)
d572cbad	387	{
	388	perror("mmap(memregs)");
	389	exit(1);
	390	}
7ceadd99	391	memregl = (volatile unsigned int *) memregs;
d572cbad	392
7ceadd99	393	memregs[0x2880>>1] &= ~0x383; // disable cursor, subpict, osd, video layers
d572cbad	394
71769e27	395	/* save startup values: LCD refresh */
fa5e045b	396	get_reg_setting(lcd_rate_defaults);
fa5e045b	397
71769e27	398	/* CPU and RAM timings */
7ceadd99	399	reg0910 = memregs[0x0910>>1];
	400	memtimex_old[0] = memregs[0x3802>>1];
	401	memtimex_old[1] = memregs[0x3804>>1];
fa5e045b	402
fa5e045b	403	/* touchscreen */
d572cbad	404	touchdev = open("/dev/touchscreen/wm97xx", O_RDONLY);
	405	if (touchdev >= 0) {
	406	FILE *pcf = fopen("/etc/pointercal", "r");
	407	if (pcf) {
	408	fscanf(pcf, "%d %d %d %d %d %d %d", &touchcal[0], &touchcal[1],
	409	&touchcal[2], &touchcal[3], &touchcal[4], &touchcal[5], &touchcal[6]);
	410	fclose(pcf);
	411	}
	412	printf("found touchscreen/wm97xx\n");
	413	}
	414
	415	/* disable Linux read-ahead */
	416	proc_set("/proc/sys/vm/max-readahead", "0\n");
	417	proc_set("/proc/sys/vm/min-readahead", "0\n");
fa5e045b	418
7ceadd99	419	mixerdev = open("/dev/mixer", O_RDWR);
	420	if (mixerdev == -1)
	421	perror("open(/dev/mixer)");
fa8d1331	422
7ceadd99	423	set_ram_timings_();
fa8d1331	424
7ceadd99	425	plat_target.cpu_clock_get = mmsp2_clock_get;
	426	plat_target.cpu_clock_set = mmsp2_clock_set;
	427	plat_target.lcdrate_set = mmsp2_lcdrate_set;
	428	plat_target.gamma_set = mmsp2_gamma_set;
	429	plat_target.step_volume = step_volume;
b5bfb864	430
1eb704b6	431	gp2x_get_ticks_ms = plat_get_ticks_ms_good;
1eb704b6	432	gp2x_get_ticks_us = plat_get_ticks_us_good;
39014486	433
39014486	434	sndout_oss_can_restart = 0;
d572cbad	435	}
	436
	437	void mmsp2_finish(void)
	438	{
	439	reset940(1, 3);
	440	pause940(1);
d572cbad	441
fa8d1331	442	unset_lcd_custom_rate_();
71769e27	443	if (gamma_was_changed)
	444	set_lcd_gamma_(100, 0);
	445	unset_ram_timings_();
	446	if (cpuclk_was_changed)
7ceadd99	447	memregs[0x910>>1] = reg0910;
fa5e045b	448
7ceadd99	449	munmap((void *)memregs, 0x10000);
d572cbad	450	close(memdev);
	451	if (touchdev >= 0)
	452	close(touchdev);
7ceadd99	453	if (mixerdev >= 0)
7ceadd99	454	close(mixerdev);
d572cbad	455	}