NetBSD/sys/arch/amiga/dev/ite_ul.c

475 lines
12 KiB
C

/* $NetBSD: ite_ul.c,v 1.11 2002/01/28 09:57:00 aymeric Exp $ */
/*-
* Copyright (c) 1995 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Ignatios Souvatzis.
*
* 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 NetBSD
* Foundation, Inc. and its contributors.
* 4. Neither the name of The NetBSD Foundation 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 NETBSD FOUNDATION, INC. 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 FOUNDATION 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.
*/
#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: ite_ul.c,v 1.11 2002/01/28 09:57:00 aymeric Exp $");
#include "grful.h"
#if NGRFUL > 0
#include <sys/param.h>
#include <sys/conf.h>
#include <sys/proc.h>
#include <sys/device.h>
#include <sys/ioctl.h>
#include <sys/tty.h>
#include <sys/systm.h>
#include <dev/cons.h>
#include <machine/cpu.h>
#include <amiga/amiga/device.h>
#include <amiga/amiga/isr.h>
#include <amiga/dev/itevar.h>
#include <amiga/dev/grfioctl.h>
#include <amiga/dev/grfvar.h>
#include <amiga/dev/grf_ulreg.h>
#ifndef KFONT_CUSTOM
#ifdef KFONT_8X11
#define kernel_font_width kernel_font_width_8x11
#define kernel_font_height kernel_font_height_8x11
#define kernel_font_baseline kernel_font_baseline_8x11
#define kernel_font_boldsmear kernel_font_boldsmear_8x11
#define kernel_font_lo kernel_font_lo_8x11
#define kernel_font_hi kernel_font_hi_8x11
#define kernel_font kernel_font_8x11
#define kernel_cursor kernel_cursor_8x11
#else
#define kernel_font_width kernel_font_width_8x8
#define kernel_font_height kernel_font_height_8x8
#define kernel_font_baseline kernel_font_baseline_8x8
#define kernel_font_boldsmear kernel_font_boldsmear_8x8
#define kernel_font_lo kernel_font_lo_8x8
#define kernel_font_hi kernel_font_hi_8x8
#define kernel_font kernel_font_8x8
#define kernel_cursor kernel_cursor_8x8
#endif
#endif
extern u_int8_t kernel_font_width, kernel_font_height, kernel_font_baseline;
extern short kernel_font_boldsmear;
extern u_int8_t kernel_font_lo, kernel_font_hi;
extern u_int8_t kernel_font[], kernel_cursor[];
#ifdef DEBUG_UL
#define gsp_out(ba,cmd,len) gsp_dump(cmd,len); gsp_write(ba,cmd,len)
#else
#define gsp_out(ba,cmd,len) gsp_write(ba,cmd,len)
#endif
int ulowell_console = 1;
void ulowell_cursor(struct ite_softc *, int);
void ulowell_scroll(struct ite_softc *, int, int, int, int);
void ulowell_deinit(struct ite_softc *);
void ulowell_clear(struct ite_softc *, int, int, int, int);
void ulowell_putc(struct ite_softc *, int, int, int, int);
void ulowell_init(struct ite_softc *);
#ifdef DEBUG_UL
void gsp_dump(u_int16_t *, int);
#endif
/* Text always on overlay plane, so: */
#define UL_FG(ip) 0xFFFF
#define UL_BG(ip) 0x0000
/*
* this function is called from grf_ul to init the grf_softc->g_conpri
* field each time a ulowell board is attached.
*/
int
grful_cnprobe(void)
{
static int done;
int uv;
if (ulowell_console && done == 0)
uv = CN_INTERNAL;
else
uv = CN_NORMAL;
done = 1;
return(uv);
}
/*
* init the required fields in the grf_softc struct for a
* grf to function as an ite.
*/
void
grful_iteinit(struct grf_softc *gp)
{
gp->g_iteinit = ulowell_init;
gp->g_itedeinit = ulowell_deinit;
gp->g_iteclear = ulowell_clear;
gp->g_iteputc = ulowell_putc;
gp->g_itescroll = ulowell_scroll;
gp->g_itecursor = ulowell_cursor;
}
void
ulowell_init(struct ite_softc *ip)
{
struct gspregs *ba;
u_int16_t *sp;
u_int16_t cmd[8];
int i;
ba = (struct gspregs *) ip->grf->g_regkva;
ip->font = kernel_font;
ip->font_lo = kernel_font_lo;
ip->font_hi = kernel_font_hi;
ip->ftwidth = kernel_font_width;
ip->ftheight = kernel_font_height;
ip->ftbaseline = kernel_font_baseline;
ip->ftboldsmear = kernel_font_boldsmear;
/* upload font data */
ba->ctrl = LBL|INCW;
ba->hstadrh = 0xFFA2;
ba->hstadrl = 0x0200;
ba->data = 0x0000;
ba->data = 0xFFA3;
ba->data = ip->ftwidth;
ba->data = ip->ftheight;
ba->data = ip->ftbaseline;
ba->data = 1;
ba->data = ip->font_lo;
ba->data = ip->font_hi;
ba->data = ip->ftboldsmear;
ba->hstadrh = 0xFFA3;
ba->hstadrl = 0x0000;
/*
* font has to be word aligned and padded to word boundary.
* 8 bit wide fonts will be byte swapped in the bit swap
* routine.
*/
i = (ip->font_hi - ip->font_lo + 1) * ip->ftheight;
if (ip->ftwidth <= 8)
i /= 2;
for (sp = (u_int16_t *)ip->font; i>0; --i,++sp) {
ba->data = *sp;
}
/* bitwise mirror the font: */
cmd[0] = GCMD_FNTMIR;
gsp_out(ba, cmd, 1);
ip->priv = NULL;
ip->cursor_opt = 0;
if (ip->ftwidth >0 && ip->ftheight > 0) {
ip->cols = ip->grf->g_display.gd_dwidth / ip->ftwidth;
ip->rows = ip->grf->g_display.gd_dheight / ip->ftheight;
}
ulowell_clear(ip, 0, 0, ip->rows, ip->cols);
/*
* switch overlay plane 0 on again, in case s.b. did a GM_GRFOVOFF
* XXX maybe this should be done on each output, by the TMS code?
* what happens on panic?
ba->ctrl = LBL;
GSPSETHADRS(ba, 0xFE800000);
ba->data = 0;
ba->hstadrl = 0x0020;
gup->gus_ovslct |= 1;
ba->data = gup->gus_ovslct;
*/
#ifdef UL_DEBUG
printf("ulowell_init: %d %d %d %d %d %d\n", ip->ftwidth, ip->ftheight,
ip->ftbaseline, ip->font_lo, ip->font_hi, ip->ftboldsmear);
#endif
}
void ulowell_cursor(struct ite_softc *ip, int flag)
{
struct gspregs *ba;
u_int16_t cmd[7];
ba = (struct gspregs *)ip->grf->g_regkva;
if (flag == END_CURSOROPT)
--ip->cursor_opt;
else if (flag == START_CURSOROPT) {
if (!ip->cursor_opt)
ulowell_cursor(ip, ERASE_CURSOR);
++ip->cursor_opt;
return; /* if we are already opted */
}
if (ip->cursor_opt)
return; /* if we are still nested. */
/* else we draw the cursor */
if (flag != DRAW_CURSOR && flag != END_CURSOROPT) {
/* erase cursor */
#if 0
cmd[0] = GCMD_PIXBLT;
cmd[1] = 1024 - ip->ftwidth;
cmd[2] = 1024 - ip->ftheight;
cmd[3] = ip->ftwidth;
cmd[4] = ip->ftheight;
cmd[5] = ip->cursorx * ip->ftwidth;
cmd[6] = ip->cursory * ip->ftheight;
gsp_out(ba, cmd, 7);
#endif
cmd[0] = GCMD_FILL;
cmd[1] = UL_FG(ip);
cmd[2] = ip->cursorx * ip->ftwidth;
cmd[3] = ip->cursory * ip->ftheight;
cmd[4] = ip->ftwidth;
cmd[5] = ip->ftheight;
cmd[6] = 10; /* thats src xor dst */
gsp_out(ba, cmd, 7);
}
if (flag != DRAW_CURSOR && flag != MOVE_CURSOR &&
flag != END_CURSOROPT)
return;
/* draw cursor */
ip->cursorx = min(ip->curx, ip->cols-1);
ip->cursory = ip->cury;
#if 0
cmd[0] = GCMD_PIXBLT;
cmd[1] = ip->cursorx * ip->ftwidth;
cmd[2] = ip->cursory * ip->ftheight;
cmd[3] = ip->ftwidth;
cmd[4] = ip->ftheight;
cmd[5] = 1024 - ip->ftwidth;
cmd[6] = 1024 - ip->ftheight;
gsp_out(ba, cmd, 7);
#endif
cmd[0] = GCMD_FILL;
cmd[1] = UL_FG(ip);
cmd[2] = ip->cursorx * ip->ftwidth;
cmd[3] = ip->cursory * ip->ftheight;
cmd[4] = ip->ftwidth;
cmd[5] = ip->ftheight;
cmd[6] = 10; /* thats src xor dst */
gsp_out(ba, cmd, 7);
}
static void screen_up(struct ite_softc *ip, int top, int bottom, int lines)
{
struct gspregs *ba;
u_int16_t cmd[7];
ba = (struct gspregs *)ip->grf->g_regkva;
#ifdef DEBUG_UL
printf("screen_up %d %d %d ->",top,bottom,lines);
#endif
/* do some bounds-checking here.. */
if (top >= bottom)
return;
if (top + lines >= bottom)
{
ulowell_clear (ip, top, 0, bottom - top, ip->cols);
return;
}
cmd[0] = GCMD_PIXBLT;
cmd[1] = 0; /* x */
cmd[2] = top * ip->ftheight; /* y */
cmd[3] = ip->cols * ip->ftwidth; /* w */
cmd[4] = (bottom-top+1) * ip->ftheight; /* h */
cmd[5] = 0; /* dst x */
cmd[6] = (top-lines) * ip->ftheight; /* dst y */
gsp_out(ba, cmd, 7);
ulowell_clear(ip, bottom-lines+1, 0, lines-1, ip->cols);
};
static void screen_down(struct ite_softc *ip, int top, int bottom, int lines)
{
struct gspregs *ba;
u_int16_t cmd[7];
ba = (struct gspregs *)ip->grf->g_regkva;
#ifdef DEBUG_UL
printf("screen_down %d %d %d ->",top,bottom,lines);
#endif
/* do some bounds-checking here.. */
if (top >= bottom)
return;
if (top + lines >= bottom)
{
ulowell_clear (ip, top, 0, bottom - top, ip->cols);
return;
}
cmd[0] = GCMD_PIXBLT;
cmd[1] = 0; /* x */
cmd[2] = top * ip->ftheight; /* y */
cmd[3] = ip->cols * ip->ftwidth; /* w */
cmd[4] = (bottom - top - lines) * ip->ftheight; /* h */
cmd[5] = 0; /* dst x */
cmd[6] = (top + lines) * ip->ftheight; /* dst y */
gsp_out(ba, cmd, 7);
ulowell_clear(ip, top, 0, lines, ip->cols);
};
void ulowell_deinit(struct ite_softc *ip)
{
ip->flags &= ~ITE_INITED;
}
void ulowell_putc(struct ite_softc *ip, int c, int dy, int dx, int mode)
{
struct gspregs *ba;
u_int16_t cmd[8];
ba = (struct gspregs *)ip->grf->g_regkva;
cmd[0] = GCMD_CHAR;
cmd[1] = c & 0xff;
cmd[2] = 0x0;
cmd[3] = UL_FG(ip);
cmd[4] = dx * ip->ftwidth;
cmd[5] = dy * ip->ftheight;
cmd[6] = mode;
gsp_write(ba, cmd, 7);
}
void ulowell_clear(struct ite_softc *ip, int sy, int sx, int h, int w)
{
/* XXX TBD */
struct gspregs * ba;
u_int16_t cmd[7];
#ifdef DEBUG_UL
printf("ulowell_clear %d %d %d %d ->",sy,sx,h,w);
#endif
ba = (struct gspregs *)ip->grf->g_regkva;
cmd[0] = GCMD_FILL;
cmd[1] = 0x0; /* XXX */
cmd[2] = sx * ip->ftwidth;
cmd[3] = sy * ip->ftheight;
cmd[4] = w * ip->ftwidth;
cmd[5] = h * ip->ftheight;
cmd[6] = 0;
gsp_out(ba, cmd, 7);
}
void ulowell_scroll(struct ite_softc *ip, int sy, int sx, int count, int dir)
{
struct gspregs *ba;
u_int16_t cmd[7];
ba = (struct gspregs *)ip->grf->g_regkva;
#ifdef DEBUG_UL
printf("ulowell_scroll %d %d %d %d ->",sy,sx,count,dir);
#endif
ulowell_cursor(ip, ERASE_CURSOR);
if (dir == SCROLL_UP) {
screen_up (ip, sy, ip->bottom_margin, count);
} else if (dir == SCROLL_DOWN) {
screen_down (ip, sy, ip->bottom_margin, count);
} else if (dir == SCROLL_RIGHT) {
cmd[0] = GCMD_PIXBLT;
cmd[1] = sx * ip->ftwidth;
cmd[2] = sy * ip->ftheight;
cmd[3] = (ip->cols - sx - count) * ip->ftwidth;
cmd[4] = ip->ftheight;
cmd[5] = (sx + count) * ip->ftwidth;
cmd[6] = sy * ip->ftheight;
gsp_out(ba,cmd,7);
ulowell_clear (ip, sy, sx, 1, count);
} else {
cmd[0] = GCMD_PIXBLT;
cmd[1] = sx * ip->ftwidth;
cmd[2] = sy * ip->ftheight;
cmd[3] = (ip->cols - sx) * ip->ftwidth;
cmd[4] = ip->ftheight;
cmd[5] = (sx - count) * ip->ftwidth;
cmd[6] = sy * ip->ftheight;
gsp_out(ba,cmd,7);
ulowell_clear (ip, sy, ip->cols - count, 1, count);
}
}
#ifdef DEBUG_UL
void
gsp_dump(cmd,len)
u_int16_t *cmd;
int len;
{
printf("gsp");
while (len-- > 0)
printf(" %lx",*cmd++);
printf("\n");
}
#endif
#endif /* NGRFUL */