[libpicofe.git] / gp2x / soc_pollux.c

#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 <unistd.h>
#include <sys/ioctl.h>
#include <linux/fb.h>

#include "soc.h"
#include "plat_gp2x.h"
#include "../common/emu.h"
#include "../common/arm_utils.h"
#include "pollux_set.h"

static volatile unsigned short *memregs;
static volatile unsigned long  *memregl;
static int memdev = -1;
static int battdev = -1;

extern void *gp2x_screens[4];

#define fb_buf_count 4
static unsigned int fb_paddr[fb_buf_count];
static int fb_work_buf;
static int fbdev = -1;

static char cpuclk_was_changed = 0;
static unsigned short memtimex_old[2];
static unsigned int pllsetreg0;
static int last_pal_setting = 0;


/* misc */
static void pollux_set_fromenv(const char *env_var)
{
	const char *set_string;
	set_string = getenv(env_var);
	if (set_string)
		pollux_set(memregs, set_string);
	else
		printf("env var %s not defined.\n", env_var);
}

/* video stuff */
static void pollux_video_flip(int buf_count)
{
	memregl[0x406C>>2] = fb_paddr[fb_work_buf];
	memregl[0x4058>>2] |= 0x10;
	fb_work_buf++;
	if (fb_work_buf >= buf_count)
		fb_work_buf = 0;
	g_screen_ptr = gp2x_screens[fb_work_buf];
}

static void gp2x_video_flip_(void)
{
	pollux_video_flip(fb_buf_count);
}

/* doulblebuffered flip */
static void gp2x_video_flip2_(void)
{
	pollux_video_flip(2);
}

static void gp2x_video_changemode_ll_(int bpp)
{
	static int prev_bpp = 0;
	int code = 0, bytes = 2;
	int rot_cmd[2] = { 0, 0 };
	unsigned int r;
	char buff[32];
	int ret;

	if (bpp == prev_bpp)
		return;
	prev_bpp = bpp;

	printf("changemode: %dbpp rot=%d\n", abs(bpp), bpp < 0);

	/* negative bpp means rotated mode */
	rot_cmd[0] = (bpp < 0) ? 6 : 5;
	ret = ioctl(fbdev, _IOW('D', 90, int[2]), rot_cmd);
	if (ret < 0)
		perror("rot ioctl failed");
	memregl[0x4004>>2] = (bpp < 0) ? 0x013f00ef : 0x00ef013f;
	memregl[0x4000>>2] |= 1 << 3;

	/* the above ioctl resets LCD timings, so set them here */
	snprintf(buff, sizeof(buff), "POLLUX_LCD_TIMINGS_%s", last_pal_setting ? "PAL" : "NTSC");
	pollux_set_fromenv(buff);

	switch (abs(bpp))
	{
		case 8:
			code = 0x443a;
			bytes = 1;
			break;

		case 15:
		case 16:
			code = 0x4432;
			bytes = 2;
			break;

		default:
			printf("unhandled bpp request: %d\n", abs(bpp));
			return;
	}

	memregl[0x405c>>2] = bytes;
	memregl[0x4060>>2] = bytes * (bpp < 0 ? 240 : 320);

	r = memregl[0x4058>>2];
	r = (r & 0xffff) | (code << 16) | 0x10;
	memregl[0x4058>>2] = r;
}

static void gp2x_video_setpalette_(int *pal, int len)
{
	/* pollux palette is 16bpp only.. */
	int i;
	for (i = 0; i < len; i++)
	{
		int c = pal[i];
		c = ((c >> 8) & 0xf800) | ((c >> 5) & 0x07c0) | ((c >> 3) & 0x001f);
		memregl[0x4070>>2] = (i << 24) | c;
	}
}

static void gp2x_video_RGB_setscaling_(int ln_offs, int W, int H)
{
	/* maybe a job for 3d hardware? */
}

static void gp2x_video_wait_vsync_(void)
{
	while (!(memregl[0x308c>>2] & (1 << 10)));
		spend_cycles(128);
	memregl[0x308c>>2] |= 1 << 10;
}

/* CPU clock */
static void gp2x_set_cpuclk_(unsigned int mhz)
{
	char buff[24];
	snprintf(buff, sizeof(buff), "cpuclk=%u", mhz);
	pollux_set(memregs, buff);

	cpuclk_was_changed = 1;
}

/* RAM timings */
static void set_ram_timings_(void)
{
	pollux_set_fromenv("POLLUX_RAM_TIMINGS");
}

static void unset_ram_timings_(void)
{
	int i;

	memregs[0x14802>>1] = memtimex_old[0];
	memregs[0x14804>>1] = memtimex_old[1] | 0x8000;

	for (i = 0; i < 0x100000; i++)
		if (!(memregs[0x14804>>1] & 0x8000))
			break;

	printf("RAM timings reset to startup values.\n");
}

/* LCD refresh */
static void set_lcd_custom_rate_(int is_pal)
{
	/* just remember PAL/NTSC. We always set timings in _changemode_ll() */
	last_pal_setting = is_pal;
}

static void unset_lcd_custom_rate_(void)
{
}

static void set_lcd_gamma_(int g100, int A_SNs_curve)
{
	/* hm, the LCD possibly can do it (but not POLLUX) */
}

static int gp2x_read_battery_(void)
{
	unsigned short magic_val = 0;

	if (battdev < 0)
		return -1;
	if (read(battdev, &magic_val, sizeof(magic_val)) != sizeof(magic_val))
		return -1;
	switch (magic_val) {
	default:
	case 1:	return 100;
	case 2: return 66;
	case 3: return 40;
	case 4: return 0;
	}
}

#define TIMER_BASE3 0x1980
#define TIMER_REG(x) memregl[(TIMER_BASE3 + x) >> 2]

unsigned int gp2x_get_ticks_us_(void)
{
	TIMER_REG(0x08) = 0x4b;  /* run timer, latch value */
	return TIMER_REG(0);
}

unsigned int gp2x_get_ticks_ms_(void)
{
	/* approximate /= 1000 */
	unsigned long long v64;
	v64 = (unsigned long long)gp2x_get_ticks_us_() * 4294968;
	return v64 >> 32;
}

static void timer_cleanup(void)
{
	TIMER_REG(0x40) = 0x0c;	/* be sure clocks are on */
	TIMER_REG(0x08) = 0x23;	/* stop the timer, clear irq in case it's pending */
	TIMER_REG(0x00) = 0;	/* clear counter */
	TIMER_REG(0x40) = 0;	/* clocks off */
	TIMER_REG(0x44) = 0;	/* dividers back to default */
}

void pollux_init(void)
{
	struct fb_fix_screeninfo fbfix;
	int i, ret;

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

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

	fbdev = open("/dev/fb0", O_RDWR);
	if (fbdev < 0) {
		perror("can't open fbdev");
		exit(1);
	}

	ret = ioctl(fbdev, FBIOGET_FSCREENINFO, &fbfix);
	if (ret == -1) {
		perror("ioctl(fbdev) failed");
		exit(1);
	}

	printf("framebuffer: \"%s\" @ %08lx\n", fbfix.id, fbfix.smem_start);
	fb_paddr[0] = fbfix.smem_start;

	gp2x_screens[0] = mmap(0, 320*240*2*fb_buf_count, PROT_READ|PROT_WRITE,
			MAP_SHARED, memdev, fb_paddr[0]);
	if (gp2x_screens[0] == MAP_FAILED)
	{
		perror("mmap(gp2x_screens) failed");
		exit(1);
	}
	memset(gp2x_screens[0], 0, 320*240*2*fb_buf_count);

	printf("  %p -> %08x\n", gp2x_screens[0], fb_paddr[0]);
	for (i = 1; i < fb_buf_count; i++)
	{
		fb_paddr[i] = fb_paddr[i-1] + 320*240*2;
		gp2x_screens[i] = (char *)gp2x_screens[i-1] + 320*240*2;
		printf("  %p -> %08x\n", gp2x_screens[i], fb_paddr[i]);
	}
	fb_work_buf = 0;
	g_screen_ptr = gp2x_screens[0];

	battdev = open("/dev/pollux_batt", O_RDONLY);
	if (battdev < 0)
		perror("Warning: could't open pollux_batt");

	/* setup timer */
	if (TIMER_REG(0x08) & 8)
		timer_cleanup();

	TIMER_REG(0x44) = 0x922; /* using PLL1, divider value 147 */
	TIMER_REG(0x40) = 0x0c;  /* clocks on */
	TIMER_REG(0x08) = 0x6b;  /* run timer, clear irq, latch value */

	pllsetreg0 = memregl[0xf004>>2];
	memtimex_old[0] = memregs[0x14802>>1];
	memtimex_old[1] = memregs[0x14804>>1];

	gp2x_video_flip = gp2x_video_flip_;
	gp2x_video_flip2 = gp2x_video_flip2_;
	gp2x_video_changemode_ll = gp2x_video_changemode_ll_;
	gp2x_video_setpalette = gp2x_video_setpalette_;
	gp2x_video_RGB_setscaling = gp2x_video_RGB_setscaling_;
	gp2x_video_wait_vsync = gp2x_video_wait_vsync_;

	gp2x_set_cpuclk = gp2x_set_cpuclk_;

	set_lcd_custom_rate = set_lcd_custom_rate_;
	unset_lcd_custom_rate = unset_lcd_custom_rate_;
	set_lcd_gamma = set_lcd_gamma_;

	set_ram_timings = set_ram_timings_;
	unset_ram_timings = unset_ram_timings_;
	gp2x_read_battery = gp2x_read_battery_;

	gp2x_get_ticks_ms = gp2x_get_ticks_ms_;
	gp2x_get_ticks_us = gp2x_get_ticks_us_;
}

void pollux_finish(void)
{
	/* switch to default fb mem, turn portrait off */
	memregl[0x406C>>2] = fb_paddr[0];
	memregl[0x4058>>2] |= 0x10;
	close(fbdev);

	gp2x_video_changemode_ll_(16);
	unset_ram_timings_();
	if (cpuclk_was_changed) {
		memregl[0xf004>>2] = pllsetreg0;
		memregl[0xf07c>>2] |= 0x8000;
	}

	munmap((void *)memregs, 0x20000);
	close(memdev);
	if (battdev >= 0)
		close(battdev);
}
Commit	Line	Data
fa8d1331	1	#include <stdio.h>
	2	#include <stdlib.h>
	3	#include <string.h>
	4	#include <math.h>
	5	#include <sys/types.h>
	6	#include <sys/stat.h>
	7	#include <fcntl.h>
	8	#include <sys/mman.h>
	9	#include <unistd.h>
	10	#include <sys/ioctl.h>
	11	#include <linux/fb.h>
	12
	13	#include "soc.h"
	14	#include "plat_gp2x.h"
	15	#include "../common/emu.h"
	16	#include "../common/arm_utils.h"
	17	#include "pollux_set.h"
	18
	19	static volatile unsigned short *memregs;
	20	static volatile unsigned long *memregl;
	21	static int memdev = -1;
053bef76	22	static int battdev = -1;
fa8d1331	23
	24	extern void *gp2x_screens[4];
	25
	26	#define fb_buf_count 4
	27	static unsigned int fb_paddr[fb_buf_count];
	28	static int fb_work_buf;
	29	static int fbdev = -1;
	30
71769e27	31	static char cpuclk_was_changed = 0;
	32	static unsigned short memtimex_old[2];
	33	static unsigned int pllsetreg0;
b7911801	34	static int last_pal_setting = 0;
71769e27	35
fa8d1331	36
f71361b5	37	/* misc */
	38	static void pollux_set_fromenv(const char *env_var)
	39	{
	40	const char *set_string;
	41	set_string = getenv(env_var);
	42	if (set_string)
	43	pollux_set(memregs, set_string);
	44	else
	45	printf("env var %s not defined.\n", env_var);
	46	}
	47
fa8d1331	48	/* video stuff */
	49	static void pollux_video_flip(int buf_count)
	50	{
	51	memregl[0x406C>>2] = fb_paddr[fb_work_buf];
	52	memregl[0x4058>>2] \|= 0x10;
	53	fb_work_buf++;
	54	if (fb_work_buf >= buf_count)
	55	fb_work_buf = 0;
	56	g_screen_ptr = gp2x_screens[fb_work_buf];
	57	}
	58
	59	static void gp2x_video_flip_(void)
	60	{
	61	pollux_video_flip(fb_buf_count);
	62	}
	63
	64	/* doulblebuffered flip */
	65	static void gp2x_video_flip2_(void)
	66	{
	67	pollux_video_flip(2);
	68	}
	69
	70	static void gp2x_video_changemode_ll_(int bpp)
	71	{
b7911801	72	static int prev_bpp = 0;
fa8d1331	73	int code = 0, bytes = 2;
b7911801	74	int rot_cmd[2] = { 0, 0 };
fa8d1331	75	unsigned int r;
f71361b5	76	char buff[32];
b7911801	77	int ret;
	78
	79	if (bpp == prev_bpp)
	80	return;
	81	prev_bpp = bpp;
	82
	83	printf("changemode: %dbpp rot=%d\n", abs(bpp), bpp < 0);
	84
	85	/* negative bpp means rotated mode */
	86	rot_cmd[0] = (bpp < 0) ? 6 : 5;
	87	ret = ioctl(fbdev, _IOW('D', 90, int[2]), rot_cmd);
	88	if (ret < 0)
	89	perror("rot ioctl failed");
	90	memregl[0x4004>>2] = (bpp < 0) ? 0x013f00ef : 0x00ef013f;
	91	memregl[0x4000>>2] \|= 1 << 3;
	92
	93	/* the above ioctl resets LCD timings, so set them here */
f71361b5	94	snprintf(buff, sizeof(buff), "POLLUX_LCD_TIMINGS_%s", last_pal_setting ? "PAL" : "NTSC");
f71361b5	95	pollux_set_fromenv(buff);
b7911801	96
b7911801	97	switch (abs(bpp))
fa8d1331	98	{
	99	case 8:
	100	code = 0x443a;
	101	bytes = 1;
	102	break;
	103
	104	case 15:
	105	case 16:
	106	code = 0x4432;
	107	bytes = 2;
	108	break;
	109
	110	default:
b7911801	111	printf("unhandled bpp request: %d\n", abs(bpp));
fa8d1331	112	return;
	113	}
	114
	115	memregl[0x405c>>2] = bytes;
b7911801	116	memregl[0x4060>>2] = bytes * (bpp < 0 ? 240 : 320);
fa8d1331	117
	118	r = memregl[0x4058>>2];
	119	r = (r & 0xffff) \| (code << 16) \| 0x10;
	120	memregl[0x4058>>2] = r;
	121	}
	122
	123	static void gp2x_video_setpalette_(int *pal, int len)
	124	{
	125	/* pollux palette is 16bpp only.. */
	126	int i;
	127	for (i = 0; i < len; i++)
	128	{
	129	int c = pal[i];
	130	c = ((c >> 8) & 0xf800) \| ((c >> 5) & 0x07c0) \| ((c >> 3) & 0x001f);
	131	memregl[0x4070>>2] = (i << 24) \| c;
	132	}
	133	}
	134
	135	static void gp2x_video_RGB_setscaling_(int ln_offs, int W, int H)
	136	{
	137	/* maybe a job for 3d hardware? */
	138	}
	139
	140	static void gp2x_video_wait_vsync_(void)
	141	{
	142	while (!(memregl[0x308c>>2] & (1 << 10)));
	143	spend_cycles(128);
	144	memregl[0x308c>>2] \|= 1 << 10;
	145	}
	146
	147	/* CPU clock */
	148	static void gp2x_set_cpuclk_(unsigned int mhz)
	149	{
	150	char buff[24];
	151	snprintf(buff, sizeof(buff), "cpuclk=%u", mhz);
	152	pollux_set(memregs, buff);
71769e27	153
71769e27	154	cpuclk_was_changed = 1;
fa8d1331	155	}
fa8d1331	156
fa8d1331	157	/* RAM timings */
fa8d1331	158	static void set_ram_timings_(void)
	159	{
	160	pollux_set_fromenv("POLLUX_RAM_TIMINGS");
	161	}
	162
	163	static void unset_ram_timings_(void)
	164	{
	165	int i;
	166
71769e27	167	memregs[0x14802>>1] = memtimex_old[0];
71769e27	168	memregs[0x14804>>1] = memtimex_old[1] \| 0x8000;
fa8d1331	169
	170	for (i = 0; i < 0x100000; i++)
	171	if (!(memregs[0x14804>>1] & 0x8000))
	172	break;
	173
	174	printf("RAM timings reset to startup values.\n");
	175	}
	176
	177	/* LCD refresh */
	178	static void set_lcd_custom_rate_(int is_pal)
	179	{
f71361b5	180	/* just remember PAL/NTSC. We always set timings in _changemode_ll() */
b7911801	181	last_pal_setting = is_pal;
fa8d1331	182	}
	183
	184	static void unset_lcd_custom_rate_(void)
	185	{
	186	}
	187
	188	static void set_lcd_gamma_(int g100, int A_SNs_curve)
	189	{
	190	/* hm, the LCD possibly can do it (but not POLLUX) */
	191	}
d572cbad	192
053bef76	193	static int gp2x_read_battery_(void)
	194	{
	195	unsigned short magic_val = 0;
	196
	197	if (battdev < 0)
	198	return -1;
	199	if (read(battdev, &magic_val, sizeof(magic_val)) != sizeof(magic_val))
	200	return -1;
	201	switch (magic_val) {
	202	default:
	203	case 1: return 100;
	204	case 2: return 66;
	205	case 3: return 40;
	206	case 4: return 0;
	207	}
	208	}
	209
b5bfb864	210	#define TIMER_BASE3 0x1980
	211	#define TIMER_REG(x) memregl[(TIMER_BASE3 + x) >> 2]
	212
	213	unsigned int gp2x_get_ticks_us_(void)
	214	{
	215	TIMER_REG(0x08) = 0x4b; /* run timer, latch value */
	216	return TIMER_REG(0);
	217	}
	218
	219	unsigned int gp2x_get_ticks_ms_(void)
	220	{
8af2da72	221	/* approximate /= 1000 */
b5bfb864	222	unsigned long long v64;
8af2da72	223	v64 = (unsigned long long)gp2x_get_ticks_us_() * 4294968;
8af2da72	224	return v64 >> 32;
b5bfb864	225	}
	226
	227	static void timer_cleanup(void)
	228	{
	229	TIMER_REG(0x40) = 0x0c; /* be sure clocks are on */
	230	TIMER_REG(0x08) = 0x23; /* stop the timer, clear irq in case it's pending */
	231	TIMER_REG(0x00) = 0; /* clear counter */
	232	TIMER_REG(0x40) = 0; /* clocks off */
	233	TIMER_REG(0x44) = 0; /* dividers back to default */
	234	}
	235
d572cbad	236	void pollux_init(void)
d572cbad	237	{
fa8d1331	238	struct fb_fix_screeninfo fbfix;
	239	int i, ret;
	240
	241	memdev = open("/dev/mem", O_RDWR);
	242	if (memdev == -1) {
	243	perror("open(/dev/mem) failed");
	244	exit(1);
	245	}
	246
	247	memregs = mmap(0, 0x20000, PROT_READ\|PROT_WRITE, MAP_SHARED, memdev, 0xc0000000);
	248	if (memregs == MAP_FAILED) {
	249	perror("mmap(memregs) failed");
	250	exit(1);
	251	}
	252	memregl = (volatile void *)memregs;
	253
	254	fbdev = open("/dev/fb0", O_RDWR);
	255	if (fbdev < 0) {
	256	perror("can't open fbdev");
	257	exit(1);
	258	}
	259
	260	ret = ioctl(fbdev, FBIOGET_FSCREENINFO, &fbfix);
	261	if (ret == -1) {
	262	perror("ioctl(fbdev) failed");
	263	exit(1);
	264	}
	265
	266	printf("framebuffer: \"%s\" @ %08lx\n", fbfix.id, fbfix.smem_start);
	267	fb_paddr[0] = fbfix.smem_start;
	268
	269	gp2x_screens[0] = mmap(0, 3202402*fb_buf_count, PROT_READ\|PROT_WRITE,
	270	MAP_SHARED, memdev, fb_paddr[0]);
	271	if (gp2x_screens[0] == MAP_FAILED)
	272	{
	273	perror("mmap(gp2x_screens) failed");
	274	exit(1);
	275	}
	276	memset(gp2x_screens[0], 0, 3202402*fb_buf_count);
	277
	278	printf(" %p -> %08x\n", gp2x_screens[0], fb_paddr[0]);
	279	for (i = 1; i < fb_buf_count; i++)
	280	{
	281	fb_paddr[i] = fb_paddr[i-1] + 3202402;
	282	gp2x_screens[i] = (char )gp2x_screens[i-1] + 320240*2;
	283	printf(" %p -> %08x\n", gp2x_screens[i], fb_paddr[i]);
	284	}
	285	fb_work_buf = 0;
	286	g_screen_ptr = gp2x_screens[0];
	287
053bef76	288	battdev = open("/dev/pollux_batt", O_RDONLY);
	289	if (battdev < 0)
	290	perror("Warning: could't open pollux_batt");
	291
b5bfb864	292	/* setup timer */
	293	if (TIMER_REG(0x08) & 8)
	294	timer_cleanup();
	295
	296	TIMER_REG(0x44) = 0x922; /* using PLL1, divider value 147 */
	297	TIMER_REG(0x40) = 0x0c; /* clocks on */
	298	TIMER_REG(0x08) = 0x6b; /* run timer, clear irq, latch value */
	299
053bef76	300	pllsetreg0 = memregl[0xf004>>2];
71769e27	301	memtimex_old[0] = memregs[0x14802>>1];
71769e27	302	memtimex_old[1] = memregs[0x14804>>1];
fa8d1331	303
	304	gp2x_video_flip = gp2x_video_flip_;
	305	gp2x_video_flip2 = gp2x_video_flip2_;
	306	gp2x_video_changemode_ll = gp2x_video_changemode_ll_;
	307	gp2x_video_setpalette = gp2x_video_setpalette_;
	308	gp2x_video_RGB_setscaling = gp2x_video_RGB_setscaling_;
	309	gp2x_video_wait_vsync = gp2x_video_wait_vsync_;
	310
	311	gp2x_set_cpuclk = gp2x_set_cpuclk_;
	312
	313	set_lcd_custom_rate = set_lcd_custom_rate_;
	314	unset_lcd_custom_rate = unset_lcd_custom_rate_;
	315	set_lcd_gamma = set_lcd_gamma_;
	316
	317	set_ram_timings = set_ram_timings_;
	318	unset_ram_timings = unset_ram_timings_;
053bef76	319	gp2x_read_battery = gp2x_read_battery_;
b5bfb864	320
	321	gp2x_get_ticks_ms = gp2x_get_ticks_ms_;
	322	gp2x_get_ticks_us = gp2x_get_ticks_us_;
d572cbad	323	}
	324
	325	void pollux_finish(void)
	326	{
fa8d1331	327	/* switch to default fb mem, turn portrait off */
	328	memregl[0x406C>>2] = fb_paddr[0];
	329	memregl[0x4058>>2] \|= 0x10;
fa8d1331	330	close(fbdev);
fa8d1331	331
71769e27	332	gp2x_video_changemode_ll_(16);
	333	unset_ram_timings_();
	334	if (cpuclk_was_changed) {
	335	memregl[0xf004>>2] = pllsetreg0;
	336	memregl[0xf07c>>2] \|= 0x8000;
	337	}
	338
fa8d1331	339	munmap((void *)memregs, 0x20000);
fa8d1331	340	close(memdev);
053bef76	341	if (battdev >= 0)
053bef76	342	close(battdev);
d572cbad	343	}
d572cbad	344