[libpicofe.git] / pandora / plat.c

// (c) Copyright 2006-2009 notaz, All rights reserved.\r
// Free for non-commercial use.\r
\r
// For commercial use, separate licencing terms must be obtained.\r
\r
#include <stdio.h>\r
#include <unistd.h>\r
#include <stdarg.h>\r
#include <sys/types.h>\r
#include <sys/stat.h>\r
#include <fcntl.h>\r
#include <sys/ioctl.h>\r
#include <unistd.h>\r
#include <linux/fb.h>\r
#include <linux/omapfb.h>\r
\r
#include "../common/emu.h"\r
#include "../common/menu.h"\r
#include "../common/plat.h"\r
#include "../common/arm_utils.h"\r
#include "../linux/sndout_oss.h"\r
#include "../linux/fbdev.h"\r
#include "plat.h"\r
#include "asm_utils.h"\r
#include "version.h"\r
\r
#include <pico/pico_int.h>\r
\r
\r
static struct vout_fbdev *main_fb, *layer_fb;\r
static int g_layer_x, g_layer_y;\r
static int g_layer_w = 320, g_layer_h = 240;\r
static int g_osd_fps_x, g_osd_y;\r
\r
static const char pnd_script_base[] = "sudo -n /usr/pandora/scripts";\r
static short __attribute__((aligned(4))) sndBuffer[2*44100/50];\r
static unsigned char __attribute__((aligned(4))) temp_frame[g_menuscreen_w * g_menuscreen_h * 2];\r
static unsigned char __attribute__((aligned(4))) fb_copy[g_screen_width * g_screen_height * 2];\r
unsigned char *PicoDraw2FB = temp_frame;\r
const char *renderer_names[] = { NULL };\r
const char *renderer_names32x[] = { NULL };\r
\r
static int get_cpu_clock(void)\r
{\r
	FILE *f;\r
	int ret = 0;\r
	f = fopen("/proc/pandora/cpu_mhz_max", "r");\r
	if (f) {\r
		fscanf(f, "%d", &ret);\r
		fclose(f);\r
	}\r
	return ret;\r
}\r
\r
void pemu_prep_defconfig(void)\r
{\r
	defaultConfig.EmuOpt |= EOPT_VSYNC|EOPT_16BPP;\r
	defaultConfig.s_PicoOpt |= POPT_EN_MCD_GFX|POPT_EN_MCD_PSYNC;\r
	defaultConfig.scaling = SCALE_2x2_3x2;\r
}\r
\r
void pemu_validate_config(void)\r
{\r
	currentConfig.CPUclock = get_cpu_clock();\r
}\r
\r
static void osd_text(int x, int y, const char *text)\r
{\r
	int len = strlen(text)*8;\r
	int i, h;\r
\r
	len++;\r
	for (h = 0; h < 8; h++) {\r
		unsigned short *p;\r
		p = (unsigned short *)g_screen_ptr + x + g_screen_width*(y + h);\r
		for (i = len; i; i--, p++)\r
			*p = (*p>>2) & 0x39e7;\r
	}\r
	emu_text_out16(x, y, text);\r
}\r
\r
static void draw_cd_leds(void)\r
{\r
	int old_reg;\r
	old_reg = Pico_mcd->s68k_regs[0];\r
\r
	if (0) {\r
		// 8-bit modes\r
		unsigned int col_g = (old_reg & 2) ? 0xc0c0c0c0 : 0xe0e0e0e0;\r
		unsigned int col_r = (old_reg & 1) ? 0xd0d0d0d0 : 0xe0e0e0e0;\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*2+ 4) =\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*3+ 4) =\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*4+ 4) = col_g;\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*2+12) =\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*3+12) =\r
		*(unsigned int *)((char *)g_screen_ptr + g_screen_width*4+12) = col_r;\r
	} else {\r
		// 16-bit modes\r
		unsigned int *p = (unsigned int *)((short *)g_screen_ptr + g_screen_width*2+4);\r
		unsigned int col_g = (old_reg & 2) ? 0x06000600 : 0;\r
		unsigned int col_r = (old_reg & 1) ? 0xc000c000 : 0;\r
		*p++ = col_g; *p++ = col_g; p+=2; *p++ = col_r; *p++ = col_r; p += g_screen_width/2 - 12/2;\r
		*p++ = col_g; *p++ = col_g; p+=2; *p++ = col_r; *p++ = col_r; p += g_screen_width/2 - 12/2;\r
		*p++ = col_g; *p++ = col_g; p+=2; *p++ = col_r; *p++ = col_r;\r
	}\r
}\r
\r
static int emuscan(unsigned int num)\r
{\r
	DrawLineDest = (unsigned short *)g_screen_ptr + num * g_screen_width;\r
\r
	return 0;\r
}\r
\r
void pemu_finalize_frame(const char *fps, const char *notice)\r
{\r
	if (notice && notice[0])\r
		osd_text(2, g_osd_y, notice);\r
	if (fps && fps[0] && (currentConfig.EmuOpt & EOPT_SHOW_FPS))\r
		osd_text(g_osd_fps_x, g_osd_y, fps);\r
	if ((PicoAHW & PAHW_MCD) && (currentConfig.EmuOpt & EOPT_EN_CD_LEDS))\r
		draw_cd_leds();\r
}\r
\r
void plat_video_flip(void)\r
{\r
	g_screen_ptr = vout_fbdev_flip(layer_fb);\r
}\r
\r
void plat_video_toggle_renderer(int change, int is_menu)\r
{\r
}\r
\r
void plat_video_menu_enter(int is_rom_loaded)\r
{\r
}\r
\r
void plat_video_menu_begin(void)\r
{\r
	memcpy32(g_menuscreen_ptr, g_menubg_ptr, g_menuscreen_w * g_menuscreen_h * 2 / 4);\r
}\r
\r
void plat_video_menu_end(void)\r
{\r
	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
}\r
\r
void plat_video_wait_vsync(void)\r
{\r
	vout_fbdev_wait_vsync(main_fb);\r
}\r
\r
void plat_status_msg_clear(void)\r
{\r
	vout_fbdev_clear_lines(layer_fb, g_osd_y, 8);\r
}\r
\r
void plat_status_msg_busy_next(const char *msg)\r
{\r
	plat_status_msg_clear();\r
	pemu_finalize_frame("", msg);\r
	plat_video_flip();\r
	emu_status_msg("");\r
	reset_timing = 1;\r
}\r
\r
void plat_status_msg_busy_first(const char *msg)\r
{\r
	plat_status_msg_busy_next(msg);\r
}\r
\r
void plat_update_volume(int has_changed, int is_up)\r
{\r
	static int prev_frame = 0, wait_frames = 0;\r
	int vol = currentConfig.volume;\r
\r
	if (has_changed)\r
	{\r
		if (is_up) {\r
			if (vol < 99) vol++;\r
		} else {\r
			if (vol >  0) vol--;\r
		}\r
		wait_frames = 0;\r
		sndout_oss_setvol(vol, vol);\r
		currentConfig.volume = vol;\r
		emu_status_msg("VOL: %02i", vol);\r
		prev_frame = Pico.m.frame_count;\r
	}\r
}\r
\r
void pemu_forced_frame(int opts, int no_scale)\r
{\r
	int oldscale = currentConfig.scaling;\r
	int po_old = PicoOpt;\r
\r
	if (no_scale) {\r
		currentConfig.scaling = SCALE_1x1;\r
		emu_video_mode_change(8, 224, 0);\r
	}\r
\r
	PicoOpt |= opts|POPT_ACC_SPRITES;\r
\r
	Pico.m.dirtyPal = 1;\r
	PicoFrameDrawOnly();\r
\r
	PicoOpt = po_old;\r
	currentConfig.scaling = oldscale;\r
}\r
\r
static void updateSound(int len)\r
{\r
	unsigned int t;\r
\r
	len <<= 1;\r
	if (PicoOpt & POPT_EN_STEREO)\r
		len <<= 1;\r
\r
	// sndout_oss_can_write() not reliable..\r
	if ((currentConfig.EmuOpt & EOPT_NO_FRMLIMIT) && !sndout_oss_can_write(len))\r
		return;\r
\r
	/* avoid writing audio when lagging behind to prevent audio lag */\r
	if (PicoSkipFrame == 2)\r
		return;\r
\r
	t = plat_get_ticks_ms();\r
	sndout_oss_write(PsndOut, len);\r
	t = plat_get_ticks_ms() - t;\r
	if (t > 1)\r
		printf("audio lag %u\n", t);\r
}\r
\r
void pemu_sound_start(void)\r
{\r
	int target_fps = Pico.m.pal ? 50 : 60;\r
\r
	PsndOut = NULL;\r
\r
	if (currentConfig.EmuOpt & EOPT_EN_SOUND)\r
	{\r
		int snd_excess_add, frame_samples;\r
		int is_stereo = (PicoOpt & POPT_EN_STEREO) ? 1 : 0;\r
\r
		PsndRerate(Pico.m.frame_count ? 1 : 0);\r
\r
		frame_samples = PsndLen;\r
		snd_excess_add = ((PsndRate - PsndLen * target_fps)<<16) / target_fps;\r
		if (snd_excess_add != 0)\r
			frame_samples++;\r
\r
		/*\r
		 * for 44k stereo, we do 1470 samples/frame\r
		 * OMAP driver does power of 2 buffers, so we need at least 4K buffer.\r
		 * The most we can lag is 1K samples, size of OMAP's McBSP FIFO,\r
		 * with 2K sample buffer we might sometimes lag more than that,\r
		 * thus causing underflows.\r
		 */\r
		printf("starting audio: %i len: %i (ex: %04x) stereo: %i, pal: %i\n",\r
			PsndRate, PsndLen, snd_excess_add, is_stereo, Pico.m.pal);\r
		sndout_oss_start(PsndRate, frame_samples * 2, is_stereo);\r
		//sndout_oss_setvol(currentConfig.volume, currentConfig.volume);\r
		PicoWriteSound = updateSound;\r
		plat_update_volume(0, 0);\r
		memset(sndBuffer, 0, sizeof(sndBuffer));\r
		PsndOut = sndBuffer;\r
	}\r
}\r
\r
void pemu_sound_stop(void)\r
{\r
	sndout_oss_stop();\r
}\r
\r
void pemu_sound_wait(void)\r
{\r
	// don't need to do anything, writes will block by themselves\r
}\r
\r
void plat_debug_cat(char *str)\r
{\r
}\r
\r
static int pnd_setup_layer_(int fd, int enabled, int x, int y, int w, int h)\r
{\r
	struct omapfb_plane_info pi;\r
	struct omapfb_mem_info mi;\r
	int ret;\r
\r
	ret = ioctl(fd, OMAPFB_QUERY_PLANE, &pi);\r
	if (ret != 0) {\r
		perror("QUERY_PLANE");\r
		return -1;\r
	}\r
\r
	ret = ioctl(fd, OMAPFB_QUERY_MEM, &mi);\r
	if (ret != 0) {\r
		perror("QUERY_MEM");\r
		return -1;\r
	}\r
\r
	/* must disable when changing stuff */\r
	if (pi.enabled) {\r
		pi.enabled = 0;\r
		ret = ioctl(fd, OMAPFB_SETUP_PLANE, &pi);\r
		if (ret != 0)\r
			perror("SETUP_PLANE");\r
	}\r
\r
	mi.size = 320*240*2*4;\r
	ret = ioctl(fd, OMAPFB_SETUP_MEM, &mi);\r
	if (ret != 0) {\r
		perror("SETUP_MEM");\r
		return -1;\r
	}\r
\r
	pi.pos_x = x;\r
	pi.pos_y = y;\r
	pi.out_width = w;\r
	pi.out_height = h;\r
	pi.enabled = enabled;\r
\r
	ret = ioctl(fd, OMAPFB_SETUP_PLANE, &pi);\r
	if (ret != 0) {\r
		perror("SETUP_PLANE");\r
		return -1;\r
	}\r
\r
	return 0;\r
}\r
\r
int pnd_setup_layer(int enabled, int x, int y, int w, int h)\r
{\r
	return pnd_setup_layer_(vout_fbdev_get_fd(layer_fb), enabled, x, y, w, h);\r
}\r
\r
void pnd_restore_layer_data(void)\r
{\r
	short *t = (short *)fb_copy + 320*240 / 2 + 160;\r
\r
	// right now this is used by menu, which wants to preview something\r
	// so try to get something on the layer.\r
	if ((t[0] | t[5] | t[13]) == 0)\r
		memset32((void *)fb_copy, 0x07000700, sizeof(fb_copy) / 4);\r
\r
	memcpy32(g_screen_ptr, (void *)fb_copy, 320*240*2 / 4);\r
	plat_video_flip();\r
}\r
\r
static void apply_filter(int which)\r
{\r
	char buf[128];\r
	int i;\r
\r
	if (pnd_filter_list == NULL)\r
		return;\r
\r
	for (i = 0; i < which; i++)\r
		if (pnd_filter_list[i] == NULL)\r
			return;\r
\r
	if (pnd_filter_list[i] == NULL)\r
		return;\r
\r
	snprintf(buf, sizeof(buf), "%s/op_videofir.sh %s", pnd_script_base, pnd_filter_list[i]);\r
	system(buf);\r
}\r
\r
void emu_video_mode_change(int start_line, int line_count, int is_32cols)\r
{\r
	int fb_w = 320, fb_h = 240, fb_left = 0, fb_right = 0, fb_top = 0, fb_bottom = 0;\r
\r
	PicoDrawSetOutFormat(PDF_RGB555, 1);\r
	PicoDrawSetCallbacks(emuscan, NULL);\r
\r
	if (is_32cols) {\r
		fb_w = 256;\r
		fb_left = fb_right = 32;\r
	}\r
\r
	switch (currentConfig.scaling) {\r
	case SCALE_1x1:\r
		g_layer_w = fb_w;\r
		g_layer_h = fb_h;\r
		break;\r
	case SCALE_2x2_3x2:\r
		g_layer_w = fb_w * (is_32cols ? 3 : 2);\r
		g_layer_h = fb_h * 2;\r
		break;\r
	case SCALE_2x2_2x2:\r
		g_layer_w = fb_w * 2;\r
		g_layer_h = fb_h * 2;\r
		break;\r
	case SCALE_FULLSCREEN:\r
		g_layer_w = 800;\r
		g_layer_h = 480;\r
		break;\r
	case SCALE_CUSTOM:\r
		g_layer_x = g_layer_cx;\r
		g_layer_y = g_layer_cy;\r
		g_layer_w = g_layer_cw;\r
		g_layer_h = g_layer_ch;\r
		break;\r
	}\r
\r
	if (currentConfig.scaling != SCALE_CUSTOM) {\r
		// center the layer\r
		g_layer_x = 800 / 2 - g_layer_w / 2;\r
		g_layer_y = 480 / 2 - g_layer_h / 2;\r
	}\r
\r
	switch (currentConfig.scaling) {\r
	case SCALE_FULLSCREEN:\r
	case SCALE_CUSTOM:\r
		fb_top = start_line;\r
		fb_h = line_count;\r
		break;\r
	}\r
	g_osd_fps_x = is_32cols ? 232 : 264;\r
	g_osd_y = fb_top + fb_h - 8;\r
\r
	pnd_setup_layer(1, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
	vout_fbdev_resize(layer_fb, fb_w, fb_h, fb_left, fb_right, fb_top, fb_bottom, 0);\r
	vout_fbdev_clear(layer_fb);\r
	plat_video_flip();\r
}\r
\r
static void make_bg(void)\r
{\r
	unsigned short *s = (void *)fb_copy;\r
	unsigned int t, *d = (unsigned int *)g_menubg_src_ptr + 80 / 2;\r
	int x, y;\r
\r
	memset32(g_menubg_src_ptr, 0, 800 * 480 * 2 / 4);\r
\r
	for (y = 0; y < 240; y++, s += 320, d += 800*2/2) {\r
		for (x = 0; x < 320; x++) {\r
			t = s[x];\r
			t |= t << 16;\r
			d[x] = d[x + 800 / 2] = t;\r
		}\r
	}\r
}\r
\r
void pemu_loop_prep(void)\r
{\r
	static int pal_old = -1;\r
	static int filter_old = -1;\r
	char buf[128];\r
\r
	if (currentConfig.CPUclock != get_cpu_clock()) {\r
		snprintf(buf, sizeof(buf), "unset DISPLAY; echo y | %s/op_cpuspeed.sh %d",\r
			 pnd_script_base, currentConfig.CPUclock);\r
		system(buf);\r
	}\r
\r
	if (Pico.m.pal != pal_old) {\r
		snprintf(buf, sizeof(buf), "%s/op_lcdrate.sh %d",\r
			 pnd_script_base, Pico.m.pal ? 50 : 60);\r
		system(buf);\r
		pal_old = Pico.m.pal;\r
	}\r
\r
	if (currentConfig.filter != filter_old) {\r
		apply_filter(currentConfig.filter);\r
		filter_old = currentConfig.filter;\r
	}\r
\r
	// make sure there is no junk left behind the layer\r
	memset32(g_menuscreen_ptr, 0, 800 * 480 * 2 / 4);\r
	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
\r
	// emu_video_mode_change will call pnd_setup_layer()\r
\r
	// dirty buffers better go now than during gameplay\r
	sync();\r
	sleep(0);\r
\r
	pemu_sound_start();\r
}\r
\r
void pemu_loop_end(void)\r
{\r
	int po_old = PicoOpt;\r
	int eo_old = currentConfig.EmuOpt;\r
\r
	pemu_sound_stop();\r
	memset32(g_screen_ptr, 0, g_screen_width * g_screen_height * 2 / 4);\r
\r
	/* do one more frame for menu bg */\r
	PicoOpt |= POPT_EN_SOFTSCALE|POPT_ACC_SPRITES;\r
	currentConfig.EmuOpt |= EOPT_16BPP;\r
\r
	PicoDrawSetOutFormat(PDF_RGB555, 1);\r
	Pico.m.dirtyPal = 1;\r
	PicoFrame();\r
\r
	// making a copy because enabling the layer clears it's mem\r
	memcpy32((void *)fb_copy, g_screen_ptr, sizeof(fb_copy) / 4);\r
	make_bg();\r
\r
	pnd_setup_layer(0, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
\r
	PicoOpt = po_old;\r
	currentConfig.EmuOpt = eo_old;\r
}\r
\r
void plat_wait_till_us(unsigned int us_to)\r
{\r
	unsigned int now;\r
	signed int diff;\r
\r
	now = plat_get_ticks_us();\r
\r
	// XXX: need to check NOHZ\r
	diff = (signed int)(us_to - now);\r
	if (diff > 10000) {\r
		//printf("sleep %d\n", us_to - now);\r
		usleep(diff * 15 / 16);\r
		now = plat_get_ticks_us();\r
		//printf(" wake %d\n", (signed)(us_to - now));\r
	}\r
/*\r
	while ((signed int)(us_to - now) > 512) {\r
		spend_cycles(1024);\r
		now = plat_get_ticks_us();\r
	}\r
*/\r
}\r
\r
const char *plat_get_credits(void)\r
{\r
	return "PicoDrive v" VERSION " (c) notaz, 2006-2010\n\n\n"\r
		"Credits:\n"\r
		"fDave: Cyclone 68000 core,\n"\r
		"      base code of PicoDrive\n"\r
		"Reesy & FluBBa: DrZ80 core\n"\r
		"MAME devs: YM2612 and SN76496 cores\n"\r
		"Pandora team: Pandora\n"\r
		"Inder, ketchupgun: graphics\n"\r
		"\n"\r
		"special thanks (for docs, ideas):\n"\r
		" Charles MacDonald, Haze,\n"\r
		" Stephane Dallongeville,\n"\r
		" Lordus, Exophase, Rokas,\n"\r
		" Nemesis, Tasco Deluxe";\r
}\r
\r
#include "../linux/oshide.h"\r
\r
void plat_early_init(void)\r
{\r
}\r
\r
void plat_init(void)\r
{\r
	const char *main_fb_name, *layer_fb_name;\r
	int fd, ret, w, h;\r
\r
	main_fb_name = getenv("FBDEV_MAIN");\r
	if (main_fb_name == NULL)\r
		main_fb_name = "/dev/fb0";\r
\r
	layer_fb_name = getenv("FBDEV_LAYER");\r
	if (layer_fb_name == NULL)\r
		layer_fb_name = "/dev/fb1";\r
\r
	// must set the layer up first to be able to use it\r
	fd = open(layer_fb_name, O_RDWR);\r
	if (fd == -1) {\r
		fprintf(stderr, "%s: ", layer_fb_name);\r
		perror("open");\r
		exit(1);\r
	}\r
\r
	ret = pnd_setup_layer_(fd, 0, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
	close(fd);\r
	if (ret != 0) {\r
		fprintf(stderr, "failed to set up layer, exiting.\n");\r
		exit(1);\r
	}\r
\r
	oshide_init();\r
\r
	w = h = 0;\r
	main_fb = vout_fbdev_init(main_fb_name, &w, &h, 0);\r
	if (main_fb == NULL) {\r
		fprintf(stderr, "couldn't init fb: %s\n", main_fb_name);\r
		exit(1);\r
	}\r
\r
	if (w != g_menuscreen_w || h != g_menuscreen_h) {\r
		fprintf(stderr, "%dx%d not supported on %s\n", w, h, main_fb_name);\r
		goto fail0;\r
	}\r
	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
\r
	w = 320; h = 240;\r
	layer_fb = vout_fbdev_init(layer_fb_name, &w, &h, 0);\r
	if (layer_fb == NULL) {\r
		fprintf(stderr, "couldn't init fb: %s\n", layer_fb_name);\r
		goto fail0;\r
	}\r
\r
	if (w != g_screen_width || h != g_screen_height) {\r
		fprintf(stderr, "%dx%d not supported on %s\n", w, h, layer_fb_name);\r
		goto fail1;\r
	}\r
	g_screen_ptr = vout_fbdev_flip(layer_fb);\r
\r
	g_menubg_ptr = temp_frame;\r
	g_menubg_src_ptr = temp_frame;\r
\r
	sndout_oss_init();\r
	pnd_menu_init();\r
	return;\r
\r
fail1:\r
	vout_fbdev_finish(layer_fb);\r
fail0:\r
	vout_fbdev_finish(main_fb);\r
	exit(1);\r
}\r
\r
void plat_finish(void)\r
{\r
	sndout_oss_exit();\r
	vout_fbdev_finish(main_fb);\r
	oshide_finish();\r
\r
	printf("all done\n");\r
}\r
\r
/* lprintf */\r
void lprintf(const char *fmt, ...)\r
{\r
	va_list vl;\r
\r
	va_start(vl, fmt);\r
	vprintf(fmt, vl);\r
	va_end(vl);\r
}\r
\r
Commit	Line	Data
c66f49e6	1	// (c) Copyright 2006-2009 notaz, All rights reserved.\r
	2	// Free for non-commercial use.\r
	3	\r
	4	// For commercial use, separate licencing terms must be obtained.\r
	5	\r
	6	#include <stdio.h>\r
	7	#include <unistd.h>\r
	8	#include <stdarg.h>\r
	9	#include <sys/types.h>\r
	10	#include <sys/stat.h>\r
	11	#include <fcntl.h>\r
	12	#include <sys/ioctl.h>\r
	13	#include <unistd.h>\r
	14	#include <linux/fb.h>\r
	15	#include <linux/omapfb.h>\r
	16	\r
	17	#include "../common/emu.h"\r
	18	#include "../common/menu.h"\r
	19	#include "../common/plat.h"\r
	20	#include "../common/arm_utils.h"\r
	21	#include "../linux/sndout_oss.h"\r
	22	#include "../linux/fbdev.h"\r
	23	#include "plat.h"\r
	24	#include "asm_utils.h"\r
	25	#include "version.h"\r
	26	\r
	27	#include <pico/pico_int.h>\r
	28	\r
	29	\r
	30	static struct vout_fbdev main_fb, layer_fb;\r
	31	static int g_layer_x, g_layer_y;\r
	32	static int g_layer_w = 320, g_layer_h = 240;\r
	33	static int g_osd_fps_x, g_osd_y;\r
	34	\r
	35	static const char pnd_script_base[] = "sudo -n /usr/pandora/scripts";\r
	36	static short __attribute__((aligned(4))) sndBuffer[2*44100/50];\r
	37	static unsigned char __attribute__((aligned(4))) temp_frame[g_menuscreen_w * g_menuscreen_h * 2];\r
	38	static unsigned char __attribute__((aligned(4))) fb_copy[g_screen_width * g_screen_height * 2];\r
	39	unsigned char *PicoDraw2FB = temp_frame;\r
	40	const char *renderer_names[] = { NULL };\r
	41	const char *renderer_names32x[] = { NULL };\r
c66f49e6	42	\r
	43	static int get_cpu_clock(void)\r
	44	{\r
	45	FILE *f;\r
	46	int ret = 0;\r
	47	f = fopen("/proc/pandora/cpu_mhz_max", "r");\r
	48	if (f) {\r
	49	fscanf(f, "%d", &ret);\r
	50	fclose(f);\r
	51	}\r
	52	return ret;\r
	53	}\r
	54	\r
	55	void pemu_prep_defconfig(void)\r
	56	{\r
	57	defaultConfig.EmuOpt \|= EOPT_VSYNC\|EOPT_16BPP;\r
	58	defaultConfig.s_PicoOpt \|= POPT_EN_MCD_GFX\|POPT_EN_MCD_PSYNC;\r
	59	defaultConfig.scaling = SCALE_2x2_3x2;\r
	60	}\r
	61	\r
	62	void pemu_validate_config(void)\r
	63	{\r
	64	currentConfig.CPUclock = get_cpu_clock();\r
	65	}\r
	66	\r
	67	static void osd_text(int x, int y, const char *text)\r
	68	{\r
	69	int len = strlen(text)*8;\r
	70	int i, h;\r
	71	\r
	72	len++;\r
	73	for (h = 0; h < 8; h++) {\r
	74	unsigned short *p;\r
	75	p = (unsigned short )g_screen_ptr + x + g_screen_width(y + h);\r
	76	for (i = len; i; i--, p++)\r
	77	p = (p>>2) & 0x39e7;\r
	78	}\r
	79	emu_text_out16(x, y, text);\r
	80	}\r
	81	\r
	82	static void draw_cd_leds(void)\r
	83	{\r
	84	int old_reg;\r
	85	old_reg = Pico_mcd->s68k_regs[0];\r
	86	\r
	87	if (0) {\r
	88	// 8-bit modes\r
	89	unsigned int col_g = (old_reg & 2) ? 0xc0c0c0c0 : 0xe0e0e0e0;\r
	90	unsigned int col_r = (old_reg & 1) ? 0xd0d0d0d0 : 0xe0e0e0e0;\r
	91	(unsigned int )((char )g_screen_ptr + g_screen_width2+ 4) =\r
	92	(unsigned int )((char )g_screen_ptr + g_screen_width3+ 4) =\r
	93	(unsigned int )((char )g_screen_ptr + g_screen_width4+ 4) = col_g;\r
	94	(unsigned int )((char )g_screen_ptr + g_screen_width2+12) =\r
	95	(unsigned int )((char )g_screen_ptr + g_screen_width3+12) =\r
	96	(unsigned int )((char )g_screen_ptr + g_screen_width4+12) = col_r;\r
	97	} else {\r
	98	// 16-bit modes\r
	99	unsigned int p = (unsigned int )((short )g_screen_ptr + g_screen_width2+4);\r
	100	unsigned int col_g = (old_reg & 2) ? 0x06000600 : 0;\r
	101	unsigned int col_r = (old_reg & 1) ? 0xc000c000 : 0;\r
	102	p++ = col_g; p++ = col_g; p+=2; p++ = col_r; p++ = col_r; p += g_screen_width/2 - 12/2;\r
	103	p++ = col_g; p++ = col_g; p+=2; p++ = col_r; p++ = col_r; p += g_screen_width/2 - 12/2;\r
	104	p++ = col_g; p++ = col_g; p+=2; p++ = col_r; p++ = col_r;\r
	105	}\r
106	}\r
107	\r
108	static int emuscan(unsigned int num)\r
109	{\r
110	DrawLineDest = (unsigned short )g_screen_ptr + num g_screen_width;\r
111	\r
112	return 0;\r
113	}\r
114	\r
115	void pemu_finalize_frame(const char fps, const char notice)\r
116	{\r
c4046e6e	117	if (notice && notice[0])\r
	118	osd_text(2, g_osd_y, notice);\r
	119	if (fps && fps[0] && (currentConfig.EmuOpt & EOPT_SHOW_FPS))\r
	120	osd_text(g_osd_fps_x, g_osd_y, fps);\r
c66f49e6	121	if ((PicoAHW & PAHW_MCD) && (currentConfig.EmuOpt & EOPT_EN_CD_LEDS))\r
	122	draw_cd_leds();\r
	123	}\r
	124	\r
	125	void plat_video_flip(void)\r
	126	{\r
	127	g_screen_ptr = vout_fbdev_flip(layer_fb);\r
	128	}\r
	129	\r
	130	void plat_video_toggle_renderer(int change, int is_menu)\r
	131	{\r
	132	}\r
	133	\r
	134	void plat_video_menu_enter(int is_rom_loaded)\r
	135	{\r
	136	}\r
	137	\r
	138	void plat_video_menu_begin(void)\r
	139	{\r
	140	memcpy32(g_menuscreen_ptr, g_menubg_ptr, g_menuscreen_w * g_menuscreen_h * 2 / 4);\r
	141	}\r
	142	\r
	143	void plat_video_menu_end(void)\r
	144	{\r
	145	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
	146	}\r
	147	\r
	148	void plat_video_wait_vsync(void)\r
	149	{\r
	150	vout_fbdev_wait_vsync(main_fb);\r
	151	}\r
	152	\r
	153	void plat_status_msg_clear(void)\r
	154	{\r
69dfeea1	155	vout_fbdev_clear_lines(layer_fb, g_osd_y, 8);\r
c66f49e6	156	}\r
	157	\r
	158	void plat_status_msg_busy_next(const char *msg)\r
	159	{\r
	160	plat_status_msg_clear();\r
	161	pemu_finalize_frame("", msg);\r
	162	plat_video_flip();\r
	163	emu_status_msg("");\r
	164	reset_timing = 1;\r
	165	}\r
	166	\r
	167	void plat_status_msg_busy_first(const char *msg)\r
	168	{\r
	169	plat_status_msg_busy_next(msg);\r
	170	}\r
	171	\r
	172	void plat_update_volume(int has_changed, int is_up)\r
	173	{\r
	174	static int prev_frame = 0, wait_frames = 0;\r
	175	int vol = currentConfig.volume;\r
	176	\r
	177	if (has_changed)\r
	178	{\r
	179	if (is_up) {\r
	180	if (vol < 99) vol++;\r
	181	} else {\r
	182	if (vol > 0) vol--;\r
	183	}\r
	184	wait_frames = 0;\r
	185	sndout_oss_setvol(vol, vol);\r
	186	currentConfig.volume = vol;\r
	187	emu_status_msg("VOL: %02i", vol);\r
	188	prev_frame = Pico.m.frame_count;\r
	189	}\r
	190	}\r
	191	\r
	192	void pemu_forced_frame(int opts, int no_scale)\r
	193	{\r
	194	int oldscale = currentConfig.scaling;\r
	195	int po_old = PicoOpt;\r
	196	\r
	197	if (no_scale) {\r
	198	currentConfig.scaling = SCALE_1x1;\r
	199	emu_video_mode_change(8, 224, 0);\r
	200	}\r
	201	\r
	202	PicoOpt \|= opts\|POPT_ACC_SPRITES;\r
	203	\r
	204	Pico.m.dirtyPal = 1;\r
	205	PicoFrameDrawOnly();\r
	206	\r
	207	PicoOpt = po_old;\r
	208	currentConfig.scaling = oldscale;\r
	209	}\r
	210	\r
	211	static void updateSound(int len)\r
	212	{\r
	213	unsigned int t;\r
	214	\r
	215	len <<= 1;\r
	216	if (PicoOpt & POPT_EN_STEREO)\r
	217	len <<= 1;\r
	218	\r
	219	// sndout_oss_can_write() not reliable..\r
220	if ((currentConfig.EmuOpt & EOPT_NO_FRMLIMIT) && !sndout_oss_can_write(len))\r
221	return;\r
222	\r
223	/* avoid writing audio when lagging behind to prevent audio lag */\r
224	if (PicoSkipFrame == 2)\r
225	return;\r
226	\r
227	t = plat_get_ticks_ms();\r
228	sndout_oss_write(PsndOut, len);\r
229	t = plat_get_ticks_ms() - t;\r
230	if (t > 1)\r
231	printf("audio lag %u\n", t);\r
232	}\r
233	\r
234	void pemu_sound_start(void)\r
235	{\r
236	int target_fps = Pico.m.pal ? 50 : 60;\r
237	\r
238	PsndOut = NULL;\r
239	\r
240	if (currentConfig.EmuOpt & EOPT_EN_SOUND)\r
241	{\r
242	int snd_excess_add, frame_samples;\r
243	int is_stereo = (PicoOpt & POPT_EN_STEREO) ? 1 : 0;\r
244	\r
245	PsndRerate(Pico.m.frame_count ? 1 : 0);\r
246	\r
247	frame_samples = PsndLen;\r
248	snd_excess_add = ((PsndRate - PsndLen * target_fps)<<16) / target_fps;\r
249	if (snd_excess_add != 0)\r
250	frame_samples++;\r
251	\r
252	/*\r
253	* for 44k stereo, we do 1470 samples/frame\r
254	* OMAP driver does power of 2 buffers, so we need at least 4K buffer.\r
255	* The most we can lag is 1K samples, size of OMAP's McBSP FIFO,\r
256	* with 2K sample buffer we might sometimes lag more than that,\r
257	* thus causing underflows.\r
258	*/\r
259	printf("starting audio: %i len: %i (ex: %04x) stereo: %i, pal: %i\n",\r
260	PsndRate, PsndLen, snd_excess_add, is_stereo, Pico.m.pal);\r
261	sndout_oss_start(PsndRate, frame_samples * 2, is_stereo);\r
262	//sndout_oss_setvol(currentConfig.volume, currentConfig.volume);\r
263	PicoWriteSound = updateSound;\r
264	plat_update_volume(0, 0);\r
265	memset(sndBuffer, 0, sizeof(sndBuffer));\r
266	PsndOut = sndBuffer;\r
267	}\r
268	}\r
269	\r
270	void pemu_sound_stop(void)\r
271	{\r
272	sndout_oss_stop();\r
273	}\r
274	\r
275	void pemu_sound_wait(void)\r
276	{\r
277	// don't need to do anything, writes will block by themselves\r
278	}\r
279	\r
280	void plat_debug_cat(char *str)\r
281	{\r
282	}\r
283	\r
284	static int pnd_setup_layer_(int fd, int enabled, int x, int y, int w, int h)\r
285	{\r
286	struct omapfb_plane_info pi;\r
287	struct omapfb_mem_info mi;\r
288	int ret;\r
289	\r
290	ret = ioctl(fd, OMAPFB_QUERY_PLANE, &pi);\r
291	if (ret != 0) {\r
292	perror("QUERY_PLANE");\r
293	return -1;\r
294	}\r
295	\r
296	ret = ioctl(fd, OMAPFB_QUERY_MEM, &mi);\r
297	if (ret != 0) {\r
298	perror("QUERY_MEM");\r
299	return -1;\r
300	}\r
301	\r
302	/* must disable when changing stuff */\r
303	if (pi.enabled) {\r
304	pi.enabled = 0;\r
305	ret = ioctl(fd, OMAPFB_SETUP_PLANE, &pi);\r
306	if (ret != 0)\r
307	perror("SETUP_PLANE");\r
308	}\r
309	\r
310	mi.size = 3202402*4;\r
311	ret = ioctl(fd, OMAPFB_SETUP_MEM, &mi);\r
312	if (ret != 0) {\r
313	perror("SETUP_MEM");\r
314	return -1;\r
315	}\r
316	\r
317	pi.pos_x = x;\r
318	pi.pos_y = y;\r
319	pi.out_width = w;\r
320	pi.out_height = h;\r
321	pi.enabled = enabled;\r
322	\r
323	ret = ioctl(fd, OMAPFB_SETUP_PLANE, &pi);\r
324	if (ret != 0) {\r
325	perror("SETUP_PLANE");\r
326	return -1;\r
327	}\r
328	\r
329	return 0;\r
330	}\r
331	\r
332	int pnd_setup_layer(int enabled, int x, int y, int w, int h)\r
333	{\r
334	return pnd_setup_layer_(vout_fbdev_get_fd(layer_fb), enabled, x, y, w, h);\r
335	}\r
336	\r
337	void pnd_restore_layer_data(void)\r
338	{\r
24cf9d99	339	short t = (short )fb_copy + 320*240 / 2 + 160;\r
c66f49e6	340	\r
	341	// right now this is used by menu, which wants to preview something\r
	342	// so try to get something on the layer.\r
	343	if ((t[0] \| t[5] \| t[13]) == 0)\r
	344	memset32((void *)fb_copy, 0x07000700, sizeof(fb_copy) / 4);\r
	345	\r
	346	memcpy32(g_screen_ptr, (void )fb_copy, 320240*2 / 4);\r
	347	plat_video_flip();\r
	348	}\r
	349	\r
	350	static void apply_filter(int which)\r
	351	{\r
	352	char buf[128];\r
	353	int i;\r
	354	\r
	355	if (pnd_filter_list == NULL)\r
	356	return;\r
	357	\r
	358	for (i = 0; i < which; i++)\r
	359	if (pnd_filter_list[i] == NULL)\r
	360	return;\r
	361	\r
	362	if (pnd_filter_list[i] == NULL)\r
	363	return;\r
	364	\r
	365	snprintf(buf, sizeof(buf), "%s/op_videofir.sh %s", pnd_script_base, pnd_filter_list[i]);\r
	366	system(buf);\r
	367	}\r
	368	\r
	369	void emu_video_mode_change(int start_line, int line_count, int is_32cols)\r
	370	{\r
	371	int fb_w = 320, fb_h = 240, fb_left = 0, fb_right = 0, fb_top = 0, fb_bottom = 0;\r
	372	\r
c66f49e6	373	PicoDrawSetOutFormat(PDF_RGB555, 1);\r
b6072c17	374	PicoDrawSetCallbacks(emuscan, NULL);\r
c66f49e6	375	\r
	376	if (is_32cols) {\r
	377	fb_w = 256;\r
	378	fb_left = fb_right = 32;\r
	379	}\r
	380	\r
	381	switch (currentConfig.scaling) {\r
	382	case SCALE_1x1:\r
	383	g_layer_w = fb_w;\r
	384	g_layer_h = fb_h;\r
	385	break;\r
	386	case SCALE_2x2_3x2:\r
	387	g_layer_w = fb_w * (is_32cols ? 3 : 2);\r
	388	g_layer_h = fb_h * 2;\r
	389	break;\r
	390	case SCALE_2x2_2x2:\r
	391	g_layer_w = fb_w * 2;\r
	392	g_layer_h = fb_h * 2;\r
	393	break;\r
	394	case SCALE_FULLSCREEN:\r
	395	g_layer_w = 800;\r
	396	g_layer_h = 480;\r
	397	break;\r
	398	case SCALE_CUSTOM:\r
	399	g_layer_x = g_layer_cx;\r
	400	g_layer_y = g_layer_cy;\r
	401	g_layer_w = g_layer_cw;\r
	402	g_layer_h = g_layer_ch;\r
	403	break;\r
	404	}\r
	405	\r
	406	if (currentConfig.scaling != SCALE_CUSTOM) {\r
	407	// center the layer\r
	408	g_layer_x = 800 / 2 - g_layer_w / 2;\r
	409	g_layer_y = 480 / 2 - g_layer_h / 2;\r
	410	}\r
	411	\r
	412	switch (currentConfig.scaling) {\r
	413	case SCALE_FULLSCREEN:\r
	414	case SCALE_CUSTOM:\r
	415	fb_top = start_line;\r
	416	fb_h = line_count;\r
	417	break;\r
	418	}\r
	419	g_osd_fps_x = is_32cols ? 232 : 264;\r
	420	g_osd_y = fb_top + fb_h - 8;\r
	421	\r
	422	pnd_setup_layer(1, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
	423	vout_fbdev_resize(layer_fb, fb_w, fb_h, fb_left, fb_right, fb_top, fb_bottom, 0);\r
	424	vout_fbdev_clear(layer_fb);\r
c4046e6e	425	plat_video_flip();\r
c66f49e6	426	}\r
	427	\r
	428	static void make_bg(void)\r
	429	{\r
	430	unsigned short s = (void )fb_copy;\r
	431	unsigned int t, d = (unsigned int )g_menubg_src_ptr + 80 / 2;\r
	432	int x, y;\r
	433	\r
	434	memset32(g_menubg_src_ptr, 0, 800 * 480 * 2 / 4);\r
	435	\r
	436	for (y = 0; y < 240; y++, s += 320, d += 800*2/2) {\r
	437	for (x = 0; x < 320; x++) {\r
	438	t = s[x];\r
	439	t \|= t << 16;\r
	440	d[x] = d[x + 800 / 2] = t;\r
	441	}\r
	442	}\r
	443	}\r
	444	\r
	445	void pemu_loop_prep(void)\r
	446	{\r
	447	static int pal_old = -1;\r
	448	static int filter_old = -1;\r
	449	char buf[128];\r
	450	\r
	451	if (currentConfig.CPUclock != get_cpu_clock()) {\r
	452	snprintf(buf, sizeof(buf), "unset DISPLAY; echo y \| %s/op_cpuspeed.sh %d",\r
	453	pnd_script_base, currentConfig.CPUclock);\r
	454	system(buf);\r
	455	}\r
	456	\r
	457	if (Pico.m.pal != pal_old) {\r
	458	snprintf(buf, sizeof(buf), "%s/op_lcdrate.sh %d",\r
	459	pnd_script_base, Pico.m.pal ? 50 : 60);\r
	460	system(buf);\r
	461	pal_old = Pico.m.pal;\r
	462	}\r
	463	\r
	464	if (currentConfig.filter != filter_old) {\r
	465	apply_filter(currentConfig.filter);\r
	466	filter_old = currentConfig.filter;\r
	467	}\r
	468	\r
	469	// make sure there is no junk left behind the layer\r
	470	memset32(g_menuscreen_ptr, 0, 800 * 480 * 2 / 4);\r
	471	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
	472	\r
	473	// emu_video_mode_change will call pnd_setup_layer()\r
	474	\r
	475	// dirty buffers better go now than during gameplay\r
	476	sync();\r
	477	sleep(0);\r
	478	\r
	479	pemu_sound_start();\r
	480	}\r
	481	\r
	482	void pemu_loop_end(void)\r
	483	{\r
	484	int po_old = PicoOpt;\r
	485	int eo_old = currentConfig.EmuOpt;\r
	486	\r
	487	pemu_sound_stop();\r
	488	memset32(g_screen_ptr, 0, g_screen_width * g_screen_height * 2 / 4);\r
	489	\r
490	/* do one more frame for menu bg */\r
491	PicoOpt \|= POPT_EN_SOFTSCALE\|POPT_ACC_SPRITES;\r
492	currentConfig.EmuOpt \|= EOPT_16BPP;\r
493	\r
494	PicoDrawSetOutFormat(PDF_RGB555, 1);\r
495	Pico.m.dirtyPal = 1;\r
496	PicoFrame();\r
497	\r
498	// making a copy because enabling the layer clears it's mem\r
499	memcpy32((void *)fb_copy, g_screen_ptr, sizeof(fb_copy) / 4);\r
500	make_bg();\r
501	\r
502	pnd_setup_layer(0, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
503	\r
504	PicoOpt = po_old;\r
505	currentConfig.EmuOpt = eo_old;\r
506	}\r
507	\r
508	void plat_wait_till_us(unsigned int us_to)\r
509	{\r
510	unsigned int now;\r
511	signed int diff;\r
512	\r
513	now = plat_get_ticks_us();\r
514	\r
515	// XXX: need to check NOHZ\r
516	diff = (signed int)(us_to - now);\r
517	if (diff > 10000) {\r
518	//printf("sleep %d\n", us_to - now);\r
519	usleep(diff * 15 / 16);\r
520	now = plat_get_ticks_us();\r
521	//printf(" wake %d\n", (signed)(us_to - now));\r
522	}\r
523	/*\r
524	while ((signed int)(us_to - now) > 512) {\r
525	spend_cycles(1024);\r
526	now = plat_get_ticks_us();\r
527	}\r
528	*/\r
529	}\r
530	\r
531	const char *plat_get_credits(void)\r
532	{\r
533	return "PicoDrive v" VERSION " (c) notaz, 2006-2010\n\n\n"\r
534	"Credits:\n"\r
535	"fDave: Cyclone 68000 core,\n"\r
536	" base code of PicoDrive\n"\r
537	"Reesy & FluBBa: DrZ80 core\n"\r
538	"MAME devs: YM2612 and SN76496 cores\n"\r
539	"Pandora team: Pandora\n"\r
540	"Inder, ketchupgun: graphics\n"\r
541	"\n"\r
542	"special thanks (for docs, ideas):\n"\r
543	" Charles MacDonald, Haze,\n"\r
544	" Stephane Dallongeville,\n"\r
545	" Lordus, Exophase, Rokas,\n"\r
546	" Nemesis, Tasco Deluxe";\r
547	}\r
548	\r
549	#include "../linux/oshide.h"\r
550	\r
551	void plat_early_init(void)\r
552	{\r
553	}\r
554	\r
555	void plat_init(void)\r
556	{\r
557	const char main_fb_name, layer_fb_name;\r
558	int fd, ret, w, h;\r
559	\r
560	main_fb_name = getenv("FBDEV_MAIN");\r
561	if (main_fb_name == NULL)\r
562	main_fb_name = "/dev/fb0";\r
563	\r
564	layer_fb_name = getenv("FBDEV_LAYER");\r
565	if (layer_fb_name == NULL)\r
566	layer_fb_name = "/dev/fb1";\r
567	\r
568	// must set the layer up first to be able to use it\r
569	fd = open(layer_fb_name, O_RDWR);\r
570	if (fd == -1) {\r
571	fprintf(stderr, "%s: ", layer_fb_name);\r
572	perror("open");\r
573	exit(1);\r
574	}\r
575	\r
576	ret = pnd_setup_layer_(fd, 0, g_layer_x, g_layer_y, g_layer_w, g_layer_h);\r
577	close(fd);\r
578	if (ret != 0) {\r
579	fprintf(stderr, "failed to set up layer, exiting.\n");\r
580	exit(1);\r
581	}\r
582	\r
583	oshide_init();\r
584	\r
585	w = h = 0;\r
586	main_fb = vout_fbdev_init(main_fb_name, &w, &h, 0);\r
587	if (main_fb == NULL) {\r
588	fprintf(stderr, "couldn't init fb: %s\n", main_fb_name);\r
589	exit(1);\r
590	}\r
591	\r
592	if (w != g_menuscreen_w \|\| h != g_menuscreen_h) {\r
593	fprintf(stderr, "%dx%d not supported on %s\n", w, h, main_fb_name);\r
594	goto fail0;\r
595	}\r
596	g_menuscreen_ptr = vout_fbdev_flip(main_fb);\r
597	\r
598	w = 320; h = 240;\r
599	layer_fb = vout_fbdev_init(layer_fb_name, &w, &h, 0);\r
600	if (layer_fb == NULL) {\r
601	fprintf(stderr, "couldn't init fb: %s\n", layer_fb_name);\r
602	goto fail0;\r
603	}\r
604	\r
605	if (w != g_screen_width \|\| h != g_screen_height) {\r
606	fprintf(stderr, "%dx%d not supported on %s\n", w, h, layer_fb_name);\r
607	goto fail1;\r
608	}\r
609	g_screen_ptr = vout_fbdev_flip(layer_fb);\r
610	\r
611	g_menubg_ptr = temp_frame;\r
612	g_menubg_src_ptr = temp_frame;\r
613	\r
614	sndout_oss_init();\r
615	pnd_menu_init();\r
616	return;\r
617	\r
618	fail1:\r
619	vout_fbdev_finish(layer_fb);\r
620	fail0:\r
621	vout_fbdev_finish(main_fb);\r
622	exit(1);\r
623	}\r
624	\r
625	void plat_finish(void)\r
626	{\r
627	sndout_oss_exit();\r
628	vout_fbdev_finish(main_fb);\r
629	oshide_finish();\r
630	\r
631	printf("all done\n");\r
632	}\r
633	\r
634	/* lprintf */\r
635	void lprintf(const char *fmt, ...)\r
636	{\r
637	va_list vl;\r
638	\r
639	va_start(vl, fmt);\r
640	vprintf(fmt, vl);\r
641	va_end(vl);\r
642	}\r
643	\r