598 lines
12 KiB
C
598 lines
12 KiB
C
/*-
|
|
* 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/psl.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 */
|