NetBSD/sys/arch/hp300/stand/ite.c

303 lines
8.0 KiB
C

/* $NetBSD: ite.c,v 1.7 1994/10/26 07:27:29 cgd Exp $ */
/*
* Copyright (c) 1988 University of Utah.
* Copyright (c) 1990, 1993
* The Regents of the University of California. All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* the Systems Programming Group of the University of Utah Computer
* Science Department.
*
* 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
*
* from: Utah $Hdr: ite.c 1.24 93/06/25$
*
* @(#)ite.c 8.1 (Berkeley) 7/8/93
*/
/*
* Standalone Internal Terminal Emulator (CRT and keyboard)
*/
#include <hp300/stand/samachdep.h>
#ifdef ITECONSOLE
#include <sys/param.h>
#include <dev/cons.h>
#include <hp300/dev/device.h>
#include <hp300/dev/itevar.h>
#include <hp300/dev/grfreg.h>
extern int nodev();
extern u_char ite_readbyte();
extern int ite_writeglyph();
extern int topcat_init(), topcat_putc();
extern int topcat_clear(), topcat_cursor(), topcat_scroll();
extern int gbox_init(), gbox_clear();
extern int gbox_putc(), gbox_cursor(), gbox_scroll();
extern int rbox_init(), rbox_clear();
extern int rbox_putc(), rbox_cursor(), rbox_scroll();
extern int dvbox_init(), dvbox_clear();
extern int dvbox_putc(), dvbox_cursor(), dvbox_scroll();
extern int hyper_init(), hyper_clear();
extern int hyper_putc(), hyper_cursor(), hyper_scroll();
struct itesw itesw[] = {
GID_TOPCAT,
topcat_init, nodev, topcat_clear, topcat_putc,
topcat_cursor, topcat_scroll, ite_readbyte, ite_writeglyph,
GID_GATORBOX,
gbox_init, nodev, gbox_clear, gbox_putc,
gbox_cursor, gbox_scroll, ite_readbyte, ite_writeglyph,
GID_RENAISSANCE,
rbox_init, nodev, rbox_clear, rbox_putc,
rbox_cursor, rbox_scroll, ite_readbyte, ite_writeglyph,
GID_LRCATSEYE,
topcat_init, nodev, topcat_clear, topcat_putc,
topcat_cursor, topcat_scroll, ite_readbyte, ite_writeglyph,
GID_HRCCATSEYE,
topcat_init, nodev, topcat_clear, topcat_putc,
topcat_cursor, topcat_scroll, ite_readbyte, ite_writeglyph,
GID_HRMCATSEYE,
topcat_init, nodev, topcat_clear, topcat_putc,
topcat_cursor, topcat_scroll, ite_readbyte, ite_writeglyph,
GID_DAVINCI,
dvbox_init, nodev, dvbox_clear, dvbox_putc,
dvbox_cursor, dvbox_scroll, ite_readbyte, ite_writeglyph,
GID_HYPERION,
hyper_init, nodev, hyper_clear, hyper_putc,
hyper_cursor, hyper_scroll, ite_readbyte, ite_writeglyph,
};
int nitesw = sizeof(itesw) / sizeof(itesw[0]);
/* these guys need to be in initialized data */
int itecons = -1;
struct ite_softc ite_softc[NITE] = { 0 };
/*
* Locate all bitmapped displays
*/
iteconfig()
{
extern struct hp_hw sc_table[];
int dtype, fboff, i;
struct hp_hw *hw;
struct grfreg *gr;
struct ite_softc *ip;
i = 0;
for (hw = sc_table; hw < &sc_table[MAXCTLRS]; hw++) {
if (!HW_ISDEV(hw, D_BITMAP))
continue;
gr = (struct grfreg *) hw->hw_kva;
/* XXX: redundent but safe */
if (badaddr((caddr_t)gr) || gr->gr_id != GRFHWID)
continue;
for (dtype = 0; dtype < nitesw; dtype++)
if (itesw[dtype].ite_hwid == gr->gr_id2)
break;
if (dtype == nitesw)
continue;
if (i >= NITE)
break;
ip = &ite_softc[i];
ip->isw = &itesw[dtype];
ip->regbase = (caddr_t) gr;
fboff = (gr->gr_fbomsb << 8) | gr->gr_fbolsb;
ip->fbbase = (caddr_t) (*((u_char *)ip->regbase+fboff) << 16);
/* DIO II: FB offset is relative to select code space */
if (ip->regbase >= (caddr_t)DIOIIBASE)
ip->fbbase += (int)ip->regbase;
ip->fbwidth = gr->gr_fbwidth_h << 8 | gr->gr_fbwidth_l;
ip->fbheight = gr->gr_fbheight_h << 8 | gr->gr_fbheight_l;
ip->dwidth = gr->gr_dwidth_h << 8 | gr->gr_dwidth_l;
ip->dheight = gr->gr_dheight_h << 8 | gr->gr_dheight_l;
/*
* XXX some displays (e.g. the davinci) appear
* to return a display height greater than the
* returned FB height. Guess we should go back
* to getting the display dimensions from the
* fontrom...
*/
if (ip->dwidth > ip->fbwidth)
ip->dwidth = ip->fbwidth;
if (ip->dheight > ip->fbheight)
ip->dheight = ip->fbheight;
ip->flags = ITE_ALIVE|ITE_CONSOLE;
i++;
}
}
#ifdef CONSDEBUG
/*
* Allows us to cycle through all possible consoles (NITE ites and serial port)
* by using SHIFT-RESET on the keyboard.
*/
int whichconsole = -1;
#endif
iteprobe(cp)
struct consdev *cp;
{
register int ite;
register struct ite_softc *ip;
int unit, pri;
#ifdef CONSDEBUG
whichconsole = ++whichconsole % (NITE+1);
#endif
if (itecons != -1)
return(1);
iteconfig();
unit = -1;
pri = CN_DEAD;
for (ite = 0; ite < NITE; ite++) {
#ifdef CONSDEBUG
if (ite < whichconsole)
continue;
#endif
ip = &ite_softc[ite];
if ((ip->flags & (ITE_ALIVE|ITE_CONSOLE))
!= (ITE_ALIVE|ITE_CONSOLE))
continue;
if ((int)ip->regbase == GRFIADDR) {
pri = CN_INTERNAL;
unit = ite;
} else if (unit < 0) {
pri = CN_NORMAL;
unit = ite;
}
}
cp->cn_dev = unit;
cp->cn_pri = pri;
}
iteinit(cp)
struct consdev *cp;
{
int ite = cp->cn_dev;
struct ite_softc *ip;
if (itecons != -1)
return(1);
ip = &ite_softc[ite];
ip->curx = 0;
ip->cury = 0;
ip->cursorx = 0;
ip->cursory = 0;
(*ip->isw->ite_init)(ip);
(*ip->isw->ite_cursor)(ip, DRAW_CURSOR);
itecons = ite;
kbdinit();
}
iteputchar(c)
register int c;
{
register struct ite_softc *ip = &ite_softc[itecons];
register struct itesw *sp = ip->isw;
c &= 0x7F;
switch (c) {
case '\n':
if (++ip->cury == ip->rows) {
ip->cury--;
(*sp->ite_scroll)(ip, 1, 0, 1, SCROLL_UP);
ite_clrtoeol(ip, sp, ip->cury, 0);
}
else
(*sp->ite_cursor)(ip, MOVE_CURSOR);
break;
case '\r':
ip->curx = 0;
(*sp->ite_cursor)(ip, MOVE_CURSOR);
break;
case '\b':
if (--ip->curx < 0)
ip->curx = 0;
else
(*sp->ite_cursor)(ip, MOVE_CURSOR);
break;
default:
if (c < ' ' || c == 0177)
break;
(*sp->ite_putc)(ip, c, ip->cury, ip->curx, ATTR_NOR);
(*sp->ite_cursor)(ip, DRAW_CURSOR);
itecheckwrap(ip, sp);
break;
}
}
itecheckwrap(ip, sp)
register struct ite_softc *ip;
register struct itesw *sp;
{
if (++ip->curx == ip->cols) {
ip->curx = 0;
if (++ip->cury == ip->rows) {
--ip->cury;
(*sp->ite_scroll)(ip, 1, 0, 1, SCROLL_UP);
ite_clrtoeol(ip, sp, ip->cury, 0);
return;
}
}
(*sp->ite_cursor)(ip, MOVE_CURSOR);
}
ite_clrtoeol(ip, sp, y, x)
register struct ite_softc *ip;
register struct itesw *sp;
register int y, x;
{
(*sp->ite_clear)(ip, y, x, 1, ip->cols - x);
(*sp->ite_cursor)(ip, DRAW_CURSOR);
}
itegetchar()
{
#ifdef SMALL
return (0);
#else
return (kbdgetc());
#endif
}
#endif