Changeset View
Changeset View
Standalone View
Standalone View
head/sys/boot/pc98/libpc98/vidconsole.c
Property | Old Value | New Value |
---|---|---|
svn:keywords | null | FreeBSD=%H \ No newline at end of property |
/*- | |||||
* Copyright (c) 1998 Michael Smith (msmith@freebsd.org) | |||||
* Copyright (c) 1997 Kazutaka YOKOTA (yokota@zodiac.mech.utsunomiya-u.ac.jp) | |||||
* All rights reserved. | |||||
* | |||||
* Redistribution and use in source and binary forms, with or without | |||||
* modification, are permitted provided that the following conditions | |||||
* are met: | |||||
* 1. Redistributions of source code must retain the above copyright | |||||
* notice, this list of conditions and the following disclaimer. | |||||
* 2. Redistributions in binary form must reproduce the above copyright | |||||
* notice, this list of conditions and the following disclaimer in the | |||||
* documentation and/or other materials provided with the distribution. | |||||
* | |||||
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND | |||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | |||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | |||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | |||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | |||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | |||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | |||||
* SUCH DAMAGE. | |||||
* | |||||
* Id: probe_keyboard.c,v 1.13 1997/06/09 05:10:55 bde Exp | |||||
*/ | |||||
#include <sys/cdefs.h> | |||||
__FBSDID("$FreeBSD$"); | |||||
#include <stand.h> | |||||
#include <bootstrap.h> | |||||
#include <btxv86.h> | |||||
#include <machine/cpufunc.h> | |||||
#include "libi386.h" | |||||
#if KEYBOARD_PROBE | |||||
#include <machine/cpufunc.h> | |||||
static int probe_keyboard(void); | |||||
#endif | |||||
static void vidc_probe(struct console *cp); | |||||
static int vidc_init(int arg); | |||||
static void vidc_putchar(int c); | |||||
static int vidc_getchar(void); | |||||
static int vidc_ischar(void); | |||||
static int vidc_started; | |||||
#ifdef TERM_EMU | |||||
#define MAXARGS 8 | |||||
#define DEFAULT_FGCOLOR 7 | |||||
#define DEFAULT_BGCOLOR 0 | |||||
void end_term(void); | |||||
void bail_out(int c); | |||||
void vidc_term_emu(int c); | |||||
void get_pos(void); | |||||
void curs_move(int x, int y); | |||||
void write_char(int c, int fg, int bg); | |||||
void scroll_up(int rows, int fg, int bg); | |||||
void CD(void); | |||||
void CM(void); | |||||
void HO(void); | |||||
static int args[MAXARGS], argc; | |||||
static int fg_c, bg_c, curx, cury; | |||||
static int esc; | |||||
#endif | |||||
static unsigned short *crtat, *Crtat; | |||||
static int row = 25, col = 80; | |||||
#ifdef TERM_EMU | |||||
static u_int8_t ibmpc_to_pc98[256] = { | |||||
0x01, 0x21, 0x81, 0xa1, 0x41, 0x61, 0xc1, 0xe1, | |||||
0x09, 0x29, 0x89, 0xa9, 0x49, 0x69, 0xc9, 0xe9, | |||||
0x25, 0x25, 0x25, 0x25, 0x25, 0x25, 0x25, 0x25, | |||||
0x25, 0x25, 0x25, 0x25, 0x25, 0x25, 0x25, 0x25, | |||||
0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, | |||||
0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, | |||||
0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, | |||||
0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, | |||||
0x45, 0x45, 0x45, 0x45, 0x45, 0x45, 0x45, 0x45, | |||||
0x45, 0x45, 0x45, 0x45, 0x45, 0x45, 0x45, 0x45, | |||||
0x65, 0x65, 0x65, 0x65, 0x65, 0x65, 0x65, 0x65, | |||||
0x65, 0x65, 0x65, 0x65, 0x65, 0x65, 0x65, 0x65, | |||||
0xc5, 0xc5, 0xc5, 0xc5, 0xc5, 0xc5, 0xc5, 0xc5, | |||||
0xc5, 0xc5, 0xc5, 0xc5, 0xc5, 0xc5, 0xc5, 0xc5, | |||||
0xe5, 0xe5, 0xe5, 0xe5, 0xe5, 0xe5, 0xe5, 0xe5, | |||||
0xe5, 0xe5, 0xe5, 0xe5, 0xe5, 0xe5, 0xe5, 0xe5, | |||||
0x03, 0x23, 0x83, 0xa3, 0x43, 0x63, 0xc3, 0xe3, | |||||
0x0b, 0x2b, 0x8b, 0xab, 0x4b, 0x6b, 0xcb, 0xeb, | |||||
0x2f, 0x2f, 0x2f, 0x2f, 0x2f, 0x2f, 0x2f, 0x2f, | |||||
0x2f, 0x2f, 0x2f, 0x2f, 0x2f, 0x2f, 0x2f, 0x2f, | |||||
0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, | |||||
0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, | |||||
0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, | |||||
0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, | |||||
0x4f, 0x4f, 0x4f, 0x4f, 0x4f, 0x4f, 0x4f, 0x4f, | |||||
0x4f, 0x4f, 0x4f, 0x4f, 0x4f, 0x4f, 0x4f, 0x4f, | |||||
0x6f, 0x6f, 0x6f, 0x6f, 0x6f, 0x6f, 0x6f, 0x6f, | |||||
0x6f, 0x6f, 0x6f, 0x6f, 0x6f, 0x6f, 0x6f, 0x6f, | |||||
0xcf, 0xcf, 0xcf, 0xcf, 0xcf, 0xcf, 0xcf, 0xcf, | |||||
0xcf, 0xcf, 0xcf, 0xcf, 0xcf, 0xcf, 0xcf, 0xcf, | |||||
0xef, 0xef, 0xef, 0xef, 0xef, 0xef, 0xef, 0xef, | |||||
0xef, 0xef, 0xef, 0xef, 0xef, 0xef, 0xef, 0xef, | |||||
}; | |||||
#define at2pc98(fg_at, bg_at) ibmpc_to_pc98[((bg_at) << 4) | (fg_at)] | |||||
#endif /* TERM_EMU */ | |||||
struct console vidconsole = { | |||||
"vidconsole", | |||||
"internal video/keyboard", | |||||
0, | |||||
vidc_probe, | |||||
vidc_init, | |||||
vidc_putchar, | |||||
vidc_getchar, | |||||
vidc_ischar | |||||
}; | |||||
static void | |||||
vidc_probe(struct console *cp) | |||||
{ | |||||
/* look for a keyboard */ | |||||
#if KEYBOARD_PROBE | |||||
if (probe_keyboard()) | |||||
#endif | |||||
{ | |||||
cp->c_flags |= C_PRESENTIN; | |||||
} | |||||
/* XXX for now, always assume we can do BIOS screen output */ | |||||
cp->c_flags |= C_PRESENTOUT; | |||||
} | |||||
static int | |||||
vidc_init(int arg) | |||||
{ | |||||
int i, hw_cursor; | |||||
if (vidc_started && arg == 0) | |||||
return (0); | |||||
vidc_started = 1; | |||||
Crtat = (unsigned short *)PTOV(0xA0000); | |||||
while ((inb(0x60) & 0x04) == 0) | |||||
; | |||||
outb(0x62, 0xe0); | |||||
while ((inb(0x60) & 0x01) == 0) | |||||
; | |||||
hw_cursor = inb(0x62); | |||||
hw_cursor |= (inb(0x62) << 8); | |||||
inb(0x62); | |||||
inb(0x62); | |||||
inb(0x62); | |||||
crtat = Crtat + hw_cursor; | |||||
#ifdef TERM_EMU | |||||
/* Init terminal emulator */ | |||||
end_term(); | |||||
get_pos(); | |||||
curs_move(curx, cury); | |||||
fg_c = DEFAULT_FGCOLOR; | |||||
bg_c = DEFAULT_BGCOLOR; | |||||
#endif | |||||
for (i = 0; i < 10 && vidc_ischar(); i++) | |||||
(void)vidc_getchar(); | |||||
return (0); /* XXX reinit? */ | |||||
} | |||||
static void | |||||
beep(void) | |||||
{ | |||||
outb(0x37, 6); | |||||
delay(40000); | |||||
outb(0x37, 7); | |||||
} | |||||
#if 0 | |||||
static void | |||||
vidc_biosputchar(int c) | |||||
{ | |||||
unsigned short *cp; | |||||
int i, pos; | |||||
#ifdef TERM_EMU | |||||
*crtat = (c == 0x5c ? 0xfc : c); | |||||
*(crtat + 0x1000) = at2pc98(fg, bg); | |||||
#else | |||||
switch(c) { | |||||
case '\b': | |||||
crtat--; | |||||
break; | |||||
case '\r': | |||||
crtat -= (crtat - Crtat) % col; | |||||
break; | |||||
case '\n': | |||||
crtat += col; | |||||
break; | |||||
default: | |||||
*crtat = (c == 0x5c ? 0xfc : c); | |||||
*(crtat++ + 0x1000) = 0xe1; | |||||
break; | |||||
} | |||||
if (crtat >= Crtat + col * row) { | |||||
cp = Crtat; | |||||
for (i = 1; i < row; i++) { | |||||
bcopy((void *)(cp + col), (void *)cp, col * 2); | |||||
cp += col; | |||||
} | |||||
for (i = 0; i < col; i++) { | |||||
*cp++ = ' '; | |||||
} | |||||
crtat -= col; | |||||
} | |||||
pos = crtat - Crtat; | |||||
while ((inb(0x60) & 0x04) == 0) {} | |||||
outb(0x62, 0x49); | |||||
outb(0x60, pos & 0xff); | |||||
outb(0x60, pos >> 8); | |||||
#endif | |||||
} | |||||
#endif | |||||
static void | |||||
vidc_rawputchar(int c) | |||||
{ | |||||
int i; | |||||
if (c == '\t') | |||||
/* lame tab expansion */ | |||||
for (i = 0; i < 8; i++) | |||||
vidc_rawputchar(' '); | |||||
else { | |||||
/* Emulate AH=0eh (teletype output) */ | |||||
switch(c) { | |||||
case '\a': | |||||
beep(); | |||||
return; | |||||
case '\r': | |||||
curx = 0; | |||||
curs_move(curx, cury); | |||||
return; | |||||
case '\n': | |||||
cury++; | |||||
if (cury > 24) { | |||||
scroll_up(1, fg_c, bg_c); | |||||
cury--; | |||||
} else { | |||||
curs_move(curx, cury); | |||||
} | |||||
return; | |||||
case '\b': | |||||
if (curx > 0) { | |||||
curx--; | |||||
curs_move(curx, cury); | |||||
/* write_char(' ', fg_c, bg_c); XXX destructive(!) */ | |||||
return; | |||||
} | |||||
return; | |||||
default: | |||||
write_char(c, fg_c, bg_c); | |||||
curx++; | |||||
if (curx > 79) { | |||||
curx = 0; | |||||
cury++; | |||||
} | |||||
if (cury > 24) { | |||||
curx = 0; | |||||
scroll_up(1, fg_c, bg_c); | |||||
cury--; | |||||
} | |||||
} | |||||
curs_move(curx, cury); | |||||
} | |||||
} | |||||
#ifdef TERM_EMU | |||||
/* Get cursor position on the screen. Result is in edx. Sets | |||||
* curx and cury appropriately. | |||||
*/ | |||||
void | |||||
get_pos(void) | |||||
{ | |||||
int pos = crtat - Crtat; | |||||
curx = pos % col; | |||||
cury = pos / col; | |||||
} | |||||
/* Move cursor to x rows and y cols (0-based). */ | |||||
void | |||||
curs_move(int x, int y) | |||||
{ | |||||
int pos; | |||||
pos = x + y * col; | |||||
crtat = Crtat + pos; | |||||
pos = crtat - Crtat; | |||||
while((inb(0x60) & 0x04) == 0) {} | |||||
outb(0x62, 0x49); | |||||
outb(0x60, pos & 0xff); | |||||
outb(0x60, pos >> 8); | |||||
curx = x; | |||||
cury = y; | |||||
#define isvisible(c) (((c) >= 32) && ((c) < 255)) | |||||
if (!isvisible(*crtat & 0x00ff)) { | |||||
write_char(' ', fg_c, bg_c); | |||||
} | |||||
} | |||||
/* Scroll up the whole window by a number of rows. If rows==0, | |||||
* clear the window. fg and bg are attributes for the new lines | |||||
* inserted in the window. | |||||
*/ | |||||
void | |||||
scroll_up(int rows, int fgcol, int bgcol) | |||||
{ | |||||
unsigned short *cp; | |||||
int i; | |||||
if (rows == 0) | |||||
rows = 25; | |||||
cp = Crtat; | |||||
for (i = rows; i < row; i++) { | |||||
bcopy((void *)(cp + col), (void *)cp, col * 2); | |||||
cp += col; | |||||
} | |||||
for (i = 0; i < col; i++) { | |||||
*(cp + 0x1000) = at2pc98(fgcol, bgcol); | |||||
*cp++ = ' '; | |||||
} | |||||
} | |||||
/* Write character and attribute at cursor position. */ | |||||
void | |||||
write_char(int c, int fgcol, int bgcol) | |||||
{ | |||||
*crtat = (c == 0x5c ? 0xfc : (c & 0xff)); | |||||
*(crtat + 0x1000) = at2pc98(fgcol, bgcol); | |||||
} | |||||
/**************************************************************/ | |||||
/* | |||||
* Screen manipulation functions. They use accumulated data in | |||||
* args[] and argc variables. | |||||
* | |||||
*/ | |||||
/* Clear display from current position to end of screen */ | |||||
void | |||||
CD(void) | |||||
{ | |||||
int pos; | |||||
get_pos(); | |||||
for (pos = 0; crtat + pos <= Crtat + col * row; pos++) { | |||||
*(crtat + pos) = ' '; | |||||
*(crtat + pos + 0x1000) = at2pc98(fg_c, bg_c); | |||||
} | |||||
end_term(); | |||||
} | |||||
/* Absolute cursor move to args[0] rows and args[1] columns | |||||
* (the coordinates are 1-based). | |||||
*/ | |||||
void | |||||
CM(void) | |||||
{ | |||||
if (args[0] > 0) | |||||
args[0]--; | |||||
if (args[1] > 0) | |||||
args[1]--; | |||||
curs_move(args[1], args[0]); | |||||
end_term(); | |||||
} | |||||
/* Home cursor (left top corner) */ | |||||
void | |||||
HO(void) | |||||
{ | |||||
argc = 1; | |||||
args[0] = args[1] = 1; | |||||
CM(); | |||||
} | |||||
/* Clear internal state of the terminal emulation code */ | |||||
void | |||||
end_term(void) | |||||
{ | |||||
esc = 0; | |||||
argc = -1; | |||||
} | |||||
/* Gracefully exit ESC-sequence processing in case of misunderstanding */ | |||||
void | |||||
bail_out(int c) | |||||
{ | |||||
char buf[16], *ch; | |||||
int i; | |||||
if (esc) { | |||||
vidc_rawputchar('\033'); | |||||
if (esc != '\033') | |||||
vidc_rawputchar(esc); | |||||
for (i = 0; i <= argc; ++i) { | |||||
sprintf(buf, "%d", args[i]); | |||||
ch = buf; | |||||
while (*ch) | |||||
vidc_rawputchar(*ch++); | |||||
} | |||||
} | |||||
vidc_rawputchar(c); | |||||
end_term(); | |||||
} | |||||
static void | |||||
get_arg(int c) | |||||
{ | |||||
if (argc < 0) | |||||
argc = 0; | |||||
args[argc] *= 10; | |||||
args[argc] += c - '0'; | |||||
} | |||||
/* Emulate basic capabilities of cons25 terminal */ | |||||
void | |||||
vidc_term_emu(int c) | |||||
{ | |||||
static int ansi_col[] = { | |||||
0, 4, 2, 6, 1, 5, 3, 7, | |||||
}; | |||||
int t; | |||||
int i; | |||||
switch (esc) { | |||||
case 0: | |||||
switch (c) { | |||||
case '\033': | |||||
esc = c; | |||||
break; | |||||
default: | |||||
vidc_rawputchar(c); | |||||
break; | |||||
} | |||||
break; | |||||
case '\033': | |||||
switch (c) { | |||||
case '[': | |||||
esc = c; | |||||
args[0] = 0; | |||||
argc = -1; | |||||
break; | |||||
default: | |||||
bail_out(c); | |||||
break; | |||||
} | |||||
break; | |||||
case '[': | |||||
switch (c) { | |||||
case ';': | |||||
if (argc < 0) /* XXX */ | |||||
argc = 0; | |||||
else if (argc + 1 >= MAXARGS) | |||||
bail_out(c); | |||||
else | |||||
args[++argc] = 0; | |||||
break; | |||||
case 'H': | |||||
if (argc < 0) | |||||
HO(); | |||||
else if (argc == 1) | |||||
CM(); | |||||
else | |||||
bail_out(c); | |||||
break; | |||||
case 'J': | |||||
if (argc < 0) | |||||
CD(); | |||||
else | |||||
bail_out(c); | |||||
break; | |||||
case 'm': | |||||
if (argc < 0) { | |||||
fg_c = DEFAULT_FGCOLOR; | |||||
bg_c = DEFAULT_BGCOLOR; | |||||
} | |||||
for (i = 0; i <= argc; ++i) { | |||||
switch (args[i]) { | |||||
case 0: /* back to normal */ | |||||
fg_c = DEFAULT_FGCOLOR; | |||||
bg_c = DEFAULT_BGCOLOR; | |||||
break; | |||||
case 1: /* bold */ | |||||
fg_c |= 0x8; | |||||
break; | |||||
case 4: /* underline */ | |||||
case 5: /* blink */ | |||||
bg_c |= 0x8; | |||||
break; | |||||
case 7: /* reverse */ | |||||
t = fg_c; | |||||
fg_c = bg_c; | |||||
bg_c = t; | |||||
break; | |||||
case 30: case 31: case 32: case 33: | |||||
case 34: case 35: case 36: case 37: | |||||
fg_c = ansi_col[args[i] - 30]; | |||||
break; | |||||
case 39: /* normal */ | |||||
fg_c = DEFAULT_FGCOLOR; | |||||
break; | |||||
case 40: case 41: case 42: case 43: | |||||
case 44: case 45: case 46: case 47: | |||||
bg_c = ansi_col[args[i] - 40]; | |||||
break; | |||||
case 49: /* normal */ | |||||
bg_c = DEFAULT_BGCOLOR; | |||||
break; | |||||
} | |||||
} | |||||
end_term(); | |||||
break; | |||||
default: | |||||
if (isdigit(c)) | |||||
get_arg(c); | |||||
else | |||||
bail_out(c); | |||||
break; | |||||
} | |||||
break; | |||||
default: | |||||
bail_out(c); | |||||
break; | |||||
} | |||||
} | |||||
#endif | |||||
static void | |||||
vidc_putchar(int c) | |||||
{ | |||||
#ifdef TERM_EMU | |||||
vidc_term_emu(c); | |||||
#else | |||||
vidc_rawputchar(c); | |||||
#endif | |||||
} | |||||
static int | |||||
vidc_getchar(void) | |||||
{ | |||||
if (vidc_ischar()) { | |||||
v86.ctl = 0; | |||||
v86.addr = 0x18; | |||||
v86.eax = 0x0; | |||||
v86int(); | |||||
return (v86.eax & 0xff); | |||||
} else { | |||||
return (-1); | |||||
} | |||||
} | |||||
static int | |||||
vidc_ischar(void) | |||||
{ | |||||
v86.ctl = 0; | |||||
v86.addr = 0x18; | |||||
v86.eax = 0x100; | |||||
v86int(); | |||||
return ((v86.ebx >> 8) & 0x1); | |||||
} | |||||
#if KEYBOARD_PROBE | |||||
static int | |||||
probe_keyboard(void) | |||||
{ | |||||
return (*(u_char *)PTOV(0xA1481) & 0x48); | |||||
} | |||||
#endif /* KEYBOARD_PROBE */ |