[linux-2.6-block.git] / arch / x86 / boot / video.c

/* -*- linux-c -*- ------------------------------------------------------- *
 *
 *   Copyright (C) 1991, 1992 Linus Torvalds
 *   Copyright 2007 rPath, Inc. - All Rights Reserved
 *   Copyright 2009 Intel Corporation; author H. Peter Anvin
 *
 *   This file is part of the Linux kernel, and is made available under
 *   the terms of the GNU General Public License version 2.
 *
 * ----------------------------------------------------------------------- */

/*
 * Select video mode
 */

#include "boot.h"
#include "video.h"
#include "vesa.h"

static u16 video_segment;

static void store_cursor_position(void)
{
	struct biosregs ireg, oreg;

	initregs(&ireg);
	ireg.ah = 0x03;
	intcall(0x10, &ireg, &oreg);

	boot_params.screen_info.orig_x = oreg.dl;
	boot_params.screen_info.orig_y = oreg.dh;

	if (oreg.ch & 0x20)
		boot_params.screen_info.flags |= VIDEO_FLAGS_NOCURSOR;

	if ((oreg.ch & 0x1f) > (oreg.cl & 0x1f))
		boot_params.screen_info.flags |= VIDEO_FLAGS_NOCURSOR;
}

static void store_video_mode(void)
{
	struct biosregs ireg, oreg;

	/* N.B.: the saving of the video page here is a bit silly,
	   since we pretty much assume page 0 everywhere. */
	initregs(&ireg);
	ireg.ah = 0x0f;
	intcall(0x10, &ireg, &oreg);

	/* Not all BIOSes are clean with respect to the top bit */
	boot_params.screen_info.orig_video_mode = oreg.al & 0x7f;
	boot_params.screen_info.orig_video_page = oreg.bh;
}

/*
 * Store the video mode parameters for later usage by the kernel.
 * This is done by asking the BIOS except for the rows/columns
 * parameters in the default 80x25 mode -- these are set directly,
 * because some very obscure BIOSes supply insane values.
 */
static void store_mode_params(void)
{
	u16 font_size;
	int x, y;

	/* For graphics mode, it is up to the mode-setting driver
	   (currently only video-vesa.c) to store the parameters */
	if (graphic_mode)
		return;

	store_cursor_position();
	store_video_mode();

	if (boot_params.screen_info.orig_video_mode == 0x07) {
		/* MDA, HGC, or VGA in monochrome mode */
		video_segment = 0xb000;
	} else {
		/* CGA, EGA, VGA and so forth */
		video_segment = 0xb800;
	}

	set_fs(0);
	font_size = rdfs16(0x485); /* Font size, BIOS area */
	boot_params.screen_info.orig_video_points = font_size;

	x = rdfs16(0x44a);
	y = (adapter == ADAPTER_CGA) ? 25 : rdfs8(0x484)+1;

	if (force_x)
		x = force_x;
	if (force_y)
		y = force_y;

	boot_params.screen_info.orig_video_cols  = x;
	boot_params.screen_info.orig_video_lines = y;
}

static unsigned int get_entry(void)
{
	char entry_buf[4];
	int i, len = 0;
	int key;
	unsigned int v;

	do {
		key = getchar();

		if (key == '\b') {
			if (len > 0) {
				puts("\b \b");
				len--;
			}
		} else if ((key >= '0' && key <= '9') ||
			   (key >= 'A' && key <= 'Z') ||
			   (key >= 'a' && key <= 'z')) {
			if (len < sizeof entry_buf) {
				entry_buf[len++] = key;
				putchar(key);
			}
		}
	} while (key != '\r');
	putchar('\n');

	if (len == 0)
		return VIDEO_CURRENT_MODE; /* Default */

	v = 0;
	for (i = 0; i < len; i++) {
		v <<= 4;
		key = entry_buf[i] | 0x20;
		v += (key > '9') ? key-'a'+10 : key-'0';
	}

	return v;
}

static void display_menu(void)
{
	struct card_info *card;
	struct mode_info *mi;
	char ch;
	int i;
	int nmodes;
	int modes_per_line;
	int col;

	nmodes = 0;
	for (card = video_cards; card < video_cards_end; card++)
		nmodes += card->nmodes;

	modes_per_line = 1;
	if (nmodes >= 20)
		modes_per_line = 3;

	for (col = 0; col < modes_per_line; col++)
		puts("Mode: Resolution:  Type: ");
	putchar('\n');

	col = 0;
	ch = '0';
	for (card = video_cards; card < video_cards_end; card++) {
		mi = card->modes;
		for (i = 0; i < card->nmodes; i++, mi++) {
			char resbuf[32];
			int visible = mi->x && mi->y;
			u16 mode_id = mi->mode ? mi->mode :
				(mi->y << 8)+mi->x;

			if (!visible)
				continue; /* Hidden mode */

			if (mi->depth)
				sprintf(resbuf, "%dx%d", mi->y, mi->depth);
			else
				sprintf(resbuf, "%d", mi->y);

			printf("%c %03X %4dx%-7s %-6s",
			       ch, mode_id, mi->x, resbuf, card->card_name);
			col++;
			if (col >= modes_per_line) {
				putchar('\n');
				col = 0;
			}

			if (ch == '9')
				ch = 'a';
			else if (ch == 'z' || ch == ' ')
				ch = ' '; /* Out of keys... */
			else
				ch++;
		}
	}
	if (col)
		putchar('\n');
}

#define H(x)	((x)-'a'+10)
#define SCAN	((H('s')<<12)+(H('c')<<8)+(H('a')<<4)+H('n'))

static unsigned int mode_menu(void)
{
	int key;
	unsigned int sel;

	puts("Press <ENTER> to see video modes available, "
	     "<SPACE> to continue, or wait 30 sec\n");

	kbd_flush();
	while (1) {
		key = getchar_timeout();
		if (key == ' ' || key == 0)
			return VIDEO_CURRENT_MODE; /* Default */
		if (key == '\r')
			break;
		putchar('\a');	/* Beep! */
	}


	for (;;) {
		display_menu();

		puts("Enter a video mode or \"scan\" to scan for "
		     "additional modes: ");
		sel = get_entry();
		if (sel != SCAN)
			return sel;

		probe_cards(1);
	}
}

/* Save screen content to the heap */
static struct saved_screen {
	int x, y;
	int curx, cury;
	u16 *data;
} saved;

static void save_screen(void)
{
	/* Should be called after store_mode_params() */
	saved.x = boot_params.screen_info.orig_video_cols;
	saved.y = boot_params.screen_info.orig_video_lines;
	saved.curx = boot_params.screen_info.orig_x;
	saved.cury = boot_params.screen_info.orig_y;

	if (!heap_free(saved.x*saved.y*sizeof(u16)+512))
		return;		/* Not enough heap to save the screen */

	saved.data = GET_HEAP(u16, saved.x*saved.y);

	set_fs(video_segment);
	copy_from_fs(saved.data, 0, saved.x*saved.y*sizeof(u16));
}

static void restore_screen(void)
{
	/* Should be called after store_mode_params() */
	int xs = boot_params.screen_info.orig_video_cols;
	int ys = boot_params.screen_info.orig_video_lines;
	int y;
	addr_t dst = 0;
	u16 *src = saved.data;
	struct biosregs ireg;

	if (graphic_mode)
		return;		/* Can't restore onto a graphic mode */

	if (!src)
		return;		/* No saved screen contents */

	/* Restore screen contents */

	set_fs(video_segment);
	for (y = 0; y < ys; y++) {
		int npad;

		if (y < saved.y) {
			int copy = (xs < saved.x) ? xs : saved.x;
			copy_to_fs(dst, src, copy*sizeof(u16));
			dst += copy*sizeof(u16);
			src += saved.x;
			npad = (xs < saved.x) ? 0 : xs-saved.x;
		} else {
			npad = xs;
		}

		/* Writes "npad" blank characters to
		   video_segment:dst and advances dst */
		asm volatile("pushw %%es ; "
			     "movw %2,%%es ; "
			     "shrw %%cx ; "
			     "jnc 1f ; "
			     "stosw \n\t"
			     "1: rep;stosl ; "
			     "popw %%es"
			     : "+D" (dst), "+c" (npad)
			     : "bdS" (video_segment),
			       "a" (0x07200720));
	}

	/* Restore cursor position */
	if (saved.curx >= xs)
		saved.curx = xs-1;
	if (saved.cury >= ys)
		saved.cury = ys-1;

	initregs(&ireg);
	ireg.ah = 0x02;		/* Set cursor position */
	ireg.dh = saved.cury;
	ireg.dl = saved.curx;
	intcall(0x10, &ireg, NULL);

	store_cursor_position();
}

void set_video(void)
{
	u16 mode = boot_params.hdr.vid_mode;

	RESET_HEAP();

	store_mode_params();
	save_screen();
	probe_cards(0);

	for (;;) {
		if (mode == ASK_VGA)
			mode = mode_menu();

		if (!set_mode(mode))
			break;

		printf("Undefined video mode number: %x\n", mode);
		mode = ASK_VGA;
	}
	boot_params.hdr.vid_mode = mode;
	vesa_store_edid();
	store_mode_params();

	if (do_restore)
		restore_screen();
}
Commit	Line	Data
5e8ddcbe PA	1	/* -- linux-c -- ------------------------------------------------------- *
	2	*
	3	* Copyright (C) 1991, 1992 Linus Torvalds
	4	* Copyright 2007 rPath, Inc. - All Rights Reserved
cf06de7b	5	* Copyright 2009 Intel Corporation; author H. Peter Anvin
5e8ddcbe PA	6	*
	7	* This file is part of the Linux kernel, and is made available under
	8	* the terms of the GNU General Public License version 2.
	9	*
	10	* ----------------------------------------------------------------------- */
	11
	12	/*
5e8ddcbe PA	13	* Select video mode
	14	*/
	15
	16	#include "boot.h"
	17	#include "video.h"
	18	#include "vesa.h"
	19
79287cf8 AK	20	static u16 video_segment;
79287cf8 AK	21
5e8ddcbe PA	22	static void store_cursor_position(void)
5e8ddcbe PA	23	{
cf06de7b	24	struct biosregs ireg, oreg;
5e8ddcbe	25
cf06de7b PA	26	initregs(&ireg);
	27	ireg.ah = 0x03;
	28	intcall(0x10, &ireg, &oreg);
5e8ddcbe	29
cf06de7b PA	30	boot_params.screen_info.orig_x = oreg.dl;
cf06de7b PA	31	boot_params.screen_info.orig_y = oreg.dh;
d9b26352 MG	32
	33	if (oreg.ch & 0x20)
	34	boot_params.screen_info.flags \|= VIDEO_FLAGS_NOCURSOR;
	35
	36	if ((oreg.ch & 0x1f) > (oreg.cl & 0x1f))
	37	boot_params.screen_info.flags \|= VIDEO_FLAGS_NOCURSOR;
5e8ddcbe PA	38	}
	39
	40	static void store_video_mode(void)
	41	{
cf06de7b	42	struct biosregs ireg, oreg;
5e8ddcbe PA	43
	44	/* N.B.: the saving of the video page here is a bit silly,
	45	since we pretty much assume page 0 everywhere. */
cf06de7b PA	46	initregs(&ireg);
	47	ireg.ah = 0x0f;
	48	intcall(0x10, &ireg, &oreg);
5e8ddcbe PA	49
5e8ddcbe PA	50	/* Not all BIOSes are clean with respect to the top bit */
cf06de7b PA	51	boot_params.screen_info.orig_video_mode = oreg.al & 0x7f;
cf06de7b PA	52	boot_params.screen_info.orig_video_page = oreg.bh;
5e8ddcbe PA	53	}
	54
	55	/*
	56	* Store the video mode parameters for later usage by the kernel.
	57	* This is done by asking the BIOS except for the rows/columns
	58	* parameters in the default 80x25 mode -- these are set directly,
	59	* because some very obscure BIOSes supply insane values.
	60	*/
	61	static void store_mode_params(void)
	62	{
	63	u16 font_size;
	64	int x, y;
	65
	66	/* For graphics mode, it is up to the mode-setting driver
	67	(currently only video-vesa.c) to store the parameters */
	68	if (graphic_mode)
	69	return;
	70
	71	store_cursor_position();
	72	store_video_mode();
	73
	74	if (boot_params.screen_info.orig_video_mode == 0x07) {
	75	/* MDA, HGC, or VGA in monochrome mode */
	76	video_segment = 0xb000;
	77	} else {
	78	/* CGA, EGA, VGA and so forth */
	79	video_segment = 0xb800;
	80	}
	81
	82	set_fs(0);
	83	font_size = rdfs16(0x485); /* Font size, BIOS area */
	84	boot_params.screen_info.orig_video_points = font_size;
	85
	86	x = rdfs16(0x44a);
	87	y = (adapter == ADAPTER_CGA) ? 25 : rdfs8(0x484)+1;
	88
	89	if (force_x)
	90	x = force_x;
	91	if (force_y)
	92	y = force_y;
	93
	94	boot_params.screen_info.orig_video_cols = x;
	95	boot_params.screen_info.orig_video_lines = y;
	96	}
	97
5e8ddcbe PA	98	static unsigned int get_entry(void)
	99	{
	100	char entry_buf[4];
	101	int i, len = 0;
	102	int key;
	103	unsigned int v;
	104
	105	do {
	106	key = getchar();
	107
	108	if (key == '\b') {
	109	if (len > 0) {
	110	puts("\b \b");
	111	len--;
	112	}
	113	} else if ((key >= '0' && key <= '9') \|\|
	114	(key >= 'A' && key <= 'Z') \|\|
	115	(key >= 'a' && key <= 'z')) {
	116	if (len < sizeof entry_buf) {
	117	entry_buf[len++] = key;
	118	putchar(key);
	119	}
	120	}
	121	} while (key != '\r');
	122	putchar('\n');
	123
	124	if (len == 0)
	125	return VIDEO_CURRENT_MODE; /* Default */
	126
	127	v = 0;
	128	for (i = 0; i < len; i++) {
	129	v <<= 4;
	130	key = entry_buf[i] \| 0x20;
	131	v += (key > '9') ? key-'a'+10 : key-'0';
	132	}
	133
	134	return v;
	135	}
	136
	137	static void display_menu(void)
	138	{
	139	struct card_info *card;
	140	struct mode_info *mi;
	141	char ch;
	142	int i;
1cac5004 PA	143	int nmodes;
	144	int modes_per_line;
	145	int col;
5e8ddcbe	146
1cac5004 PA	147	nmodes = 0;
	148	for (card = video_cards; card < video_cards_end; card++)
	149	nmodes += card->nmodes;
5e8ddcbe	150
1cac5004 PA	151	modes_per_line = 1;
	152	if (nmodes >= 20)
	153	modes_per_line = 3;
	154
	155	for (col = 0; col < modes_per_line; col++)
	156	puts("Mode: Resolution: Type: ");
	157	putchar('\n');
	158
	159	col = 0;
5e8ddcbe PA	160	ch = '0';
	161	for (card = video_cards; card < video_cards_end; card++) {
	162	mi = card->modes;
	163	for (i = 0; i < card->nmodes; i++, mi++) {
1cac5004	164	char resbuf[32];
5e8ddcbe PA	165	int visible = mi->x && mi->y;
	166	u16 mode_id = mi->mode ? mi->mode :
	167	(mi->y << 8)+mi->x;
	168
	169	if (!visible)
	170	continue; /* Hidden mode */
	171
1cac5004 PA	172	if (mi->depth)
	173	sprintf(resbuf, "%dx%d", mi->y, mi->depth);
	174	else
	175	sprintf(resbuf, "%d", mi->y);
	176
	177	printf("%c %03X %4dx%-7s %-6s",
	178	ch, mode_id, mi->x, resbuf, card->card_name);
	179	col++;
	180	if (col >= modes_per_line) {
	181	putchar('\n');
	182	col = 0;
	183	}
5e8ddcbe PA	184
	185	if (ch == '9')
	186	ch = 'a';
	187	else if (ch == 'z' \|\| ch == ' ')
	188	ch = ' '; /* Out of keys... */
	189	else
	190	ch++;
	191	}
	192	}
1cac5004 PA	193	if (col)
1cac5004 PA	194	putchar('\n');
5e8ddcbe PA	195	}
	196
	197	#define H(x) ((x)-'a'+10)
	198	#define SCAN ((H('s')<<12)+(H('c')<<8)+(H('a')<<4)+H('n'))
	199
	200	static unsigned int mode_menu(void)
	201	{
	202	int key;
	203	unsigned int sel;
	204
	205	puts("Press <ENTER> to see video modes available, "
	206	"<SPACE> to continue, or wait 30 sec\n");
	207
	208	kbd_flush();
	209	while (1) {
	210	key = getchar_timeout();
	211	if (key == ' ' \|\| key == 0)
	212	return VIDEO_CURRENT_MODE; /* Default */
	213	if (key == '\r')
	214	break;
	215	putchar('\a'); /* Beep! */
	216	}
	217
	218
	219	for (;;) {
	220	display_menu();
	221
	222	puts("Enter a video mode or \"scan\" to scan for "
	223	"additional modes: ");
	224	sel = get_entry();
	225	if (sel != SCAN)
	226	return sel;
	227
	228	probe_cards(1);
	229	}
	230	}
	231
5e8ddcbe	232	/* Save screen content to the heap */
a1a00b58	233	static struct saved_screen {
5e8ddcbe PA	234	int x, y;
	235	int curx, cury;
	236	u16 *data;
	237	} saved;
	238
	239	static void save_screen(void)
	240	{
	241	/* Should be called after store_mode_params() */
	242	saved.x = boot_params.screen_info.orig_video_cols;
	243	saved.y = boot_params.screen_info.orig_video_lines;
	244	saved.curx = boot_params.screen_info.orig_x;
	245	saved.cury = boot_params.screen_info.orig_y;
	246
e6e1ace9	247	if (!heap_free(saved.xsaved.ysizeof(u16)+512))
5e8ddcbe PA	248	return; /* Not enough heap to save the screen */
	249
	250	saved.data = GET_HEAP(u16, saved.x*saved.y);
	251
	252	set_fs(video_segment);
	253	copy_from_fs(saved.data, 0, saved.xsaved.ysizeof(u16));
	254	}
	255
	256	static void restore_screen(void)
	257	{
	258	/* Should be called after store_mode_params() */
	259	int xs = boot_params.screen_info.orig_video_cols;
	260	int ys = boot_params.screen_info.orig_video_lines;
	261	int y;
	262	addr_t dst = 0;
	263	u16 *src = saved.data;
cf06de7b	264	struct biosregs ireg;
5e8ddcbe PA	265
	266	if (graphic_mode)
	267	return; /* Can't restore onto a graphic mode */
	268
	269	if (!src)
	270	return; /* No saved screen contents */
	271
	272	/* Restore screen contents */
	273
	274	set_fs(video_segment);
	275	for (y = 0; y < ys; y++) {
	276	int npad;
	277
	278	if (y < saved.y) {
	279	int copy = (xs < saved.x) ? xs : saved.x;
	280	copy_to_fs(dst, src, copy*sizeof(u16));
	281	dst += copy*sizeof(u16);
	282	src += saved.x;
	283	npad = (xs < saved.x) ? 0 : xs-saved.x;
	284	} else {
	285	npad = xs;
	286	}
	287
	288	/* Writes "npad" blank characters to
	289	video_segment:dst and advances dst */
	290	asm volatile("pushw %%es ; "
	291	"movw %2,%%es ; "
	292	"shrw %%cx ; "
	293	"jnc 1f ; "
	294	"stosw \n\t"
	295	"1: rep;stosl ; "
	296	"popw %%es"
	297	: "+D" (dst), "+c" (npad)
5593eaa8	298	: "bdS" (video_segment),
5e8ddcbe PA	299	"a" (0x07200720));
	300	}
	301
	302	/* Restore cursor position */
f1f6baf8 PA	303	if (saved.curx >= xs)
	304	saved.curx = xs-1;
	305	if (saved.cury >= ys)
	306	saved.cury = ys-1;
	307
cf06de7b PA	308	initregs(&ireg);
	309	ireg.ah = 0x02; /* Set cursor position */
	310	ireg.dh = saved.cury;
	311	ireg.dl = saved.curx;
	312	intcall(0x10, &ireg, NULL);
f1f6baf8 PA	313
f1f6baf8 PA	314	store_cursor_position();
5e8ddcbe	315	}
5e8ddcbe PA	316
	317	void set_video(void)
	318	{
	319	u16 mode = boot_params.hdr.vid_mode;
	320
	321	RESET_HEAP();
	322
	323	store_mode_params();
	324	save_screen();
	325	probe_cards(0);
	326
	327	for (;;) {
	328	if (mode == ASK_VGA)
	329	mode = mode_menu();
	330
	331	if (!set_mode(mode))
	332	break;
	333
	334	printf("Undefined video mode number: %x\n", mode);
	335	mode = ASK_VGA;
	336	}
e44b7b75	337	boot_params.hdr.vid_mode = mode;
5e8ddcbe PA	338	vesa_store_edid();
	339	store_mode_params();
	340
	341	if (do_restore)
	342	restore_screen();
	343	}