summaryrefslogtreecommitdiff
path: root/sys/arch/atari/dev/ite_cc.c
diff options
context:
space:
mode:
authorleo <leo@NetBSD.org>1995-03-26 07:12:03 +0000
committerleo <leo@NetBSD.org>1995-03-26 07:12:03 +0000
commit8b0113cfceadf3ee3bc427c4680b6b46bb57ceea (patch)
tree2a5b7db0400149a733175c4b1a56774b2d4c1eb7 /sys/arch/atari/dev/ite_cc.c
parent282052c7a8346370f47965457329f3b0b3fa01b7 (diff)
NetBSD/Atari, port by Leo Weppelman.
Diffstat (limited to 'sys/arch/atari/dev/ite_cc.c')
-rw-r--r--sys/arch/atari/dev/ite_cc.c578
1 files changed, 578 insertions, 0 deletions
diff --git a/sys/arch/atari/dev/ite_cc.c b/sys/arch/atari/dev/ite_cc.c
new file mode 100644
index 00000000000..daca2860ec3
--- /dev/null
+++ b/sys/arch/atari/dev/ite_cc.c
@@ -0,0 +1,578 @@
+/* $NetBSD: ite_cc.c,v 1.1.1.1 1995/03/26 07:12:14 leo Exp $ */
+
+/*
+ * Copyright (c) 1994 Christian E. Hopps
+ * 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.
+ * 3. All advertising materials mentioning features or use of this software
+ * must display the following acknowledgement:
+ * This product includes software developed by Christian E. Hopps.
+ * 4. The name of the author may not be used to endorse or promote products
+ * derived from this software without specific prior written permission
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 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 "grf.h"
+#if NGRF > 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 <sys/queue.h>
+#include <sys/termios.h>
+#include <sys/malloc.h>
+#include <dev/cons.h>
+#include <machine/cpu.h>
+#include <atari/dev/itevar.h>
+#include <atari/dev/iteioctl.h>
+#include <atari/dev/grfioctl.h>
+#include <atari/dev/grfabs_reg.h>
+#include <atari/dev/grfvar.h>
+#include <atari/dev/font.h>
+#include <atari/dev/viewioctl.h>
+#include <atari/dev/viewvar.h>
+
+/*
+ * This is what ip->priv points to;
+ * it contains local variables for custom-chip ites.
+ */
+struct ite_priv {
+ u_char **row_ptr; /* array of pointers into the bitmap */
+ u_long row_bytes;
+ u_long cursor_opt;
+ u_short *column_offset; /* array of offsets for columns */
+ u_int row_offset; /* the row offset */
+ u_short width; /* the bitmap width */
+ u_short underline; /* where the underline goes */
+ u_short ft_x; /* the font width */
+ u_short ft_y; /* the font height */
+ u_char *font_cell[256];/* the font pointer */
+};
+typedef struct ite_priv ipriv_t;
+
+/*
+ * We need the following space to get an ite-console setup before
+ * the VM-system is brought up. We setup for a 1280x960 monitor with
+ * an 8x8 font.
+ */
+extern int atari_realconfig;
+
+#define CONS_MAXROW 120 /* Max. number of rows on console */
+#define CONS_MAXCOL 160 /* Max. number of columns on console */
+static u_short con_columns[CONS_MAXCOL];
+static u_char *con_rows[CONS_MAXROW];
+static ipriv_t con_ipriv;
+
+extern font_info font_info_8x8;
+extern font_info font_info_8x16;
+
+static void view_init __P((struct ite_softc *));
+static void view_deinit __P((struct ite_softc *));
+static int ite_newsize __P((struct ite_softc *, struct itewinsize *));
+static void cursor32 __P((struct ite_softc *, int));
+static void putc8 __P((struct ite_softc *, int, int, int, int));
+static void clear8 __P((struct ite_softc *, int, int, int, int));
+static void scroll8 __P((struct ite_softc *, int, int, int, int));
+static void scrollbmap __P((bmap_t *, u_short, u_short, u_short, u_short,
+ short, short));
+
+/*
+ * Patchable
+ */
+int ite_default_x = 0; /* def leftedge offset */
+int ite_default_y = 0; /* def topedge offset */
+int ite_default_width = 640; /* def width */
+int ite_default_depth = 1; /* def depth */
+int ite_default_height = 400; /* def height */
+
+/*
+ * called from grf_cc to return console priority
+ */
+int
+grfcc_cnprobe()
+{
+ return(CN_INTERNAL);
+}
+/*
+ * called from grf_cc to init ite portion of
+ * grf_softc struct
+ */
+void
+grfcc_iteinit(gp)
+struct grf_softc *gp;
+{
+
+ gp->g_itecursor = cursor32;
+ gp->g_iteputc = putc8;
+ gp->g_iteclear = clear8;
+ gp->g_itescroll = scroll8;
+ gp->g_iteinit = view_init;
+ gp->g_itedeinit = view_deinit;
+}
+
+static void
+view_deinit(ip)
+struct ite_softc *ip;
+{
+ ip->flags &= ~ITE_INITED;
+}
+
+static void
+view_init(ip)
+register struct ite_softc *ip;
+{
+ struct itewinsize wsz;
+ ipriv_t *cci;
+
+ if(cci = ip->priv)
+ return;
+
+#if defined(KFONT_8X8)
+ ip->font = font_info_8x8;
+#else
+ ip->font = font_info_8x16;
+#endif
+
+ /* Find the correct set of rendering routines for this font. */
+ if(ip->font.width != 8)
+ panic("kernel font size not supported");
+
+ if(!atari_realconfig)
+ ip->priv = cci = &con_ipriv;
+ else ip->priv = cci = (ipriv_t*)malloc(sizeof(*cci), M_DEVBUF,M_WAITOK);
+ if(cci == NULL)
+ panic("No memory for ite-view");
+ bzero(cci, sizeof(*cci));
+
+ cci->cursor_opt = 0;
+ cci->row_ptr = NULL;
+ cci->column_offset = NULL;
+
+ wsz.x = ite_default_x;
+ wsz.y = ite_default_y;
+ wsz.width = ite_default_width;
+ wsz.height = ite_default_height;
+ wsz.depth = ite_default_depth;
+
+ ite_newsize (ip, &wsz);
+
+ /*
+ * Only console will be turned on by default..
+ */
+ if(ip->flags & ITE_ISCONS)
+ ip->grf->g_mode(ip->grf, GM_GRFON, NULL, 0, 0);
+}
+
+static int
+ite_newsize(ip, winsz)
+struct ite_softc *ip;
+struct itewinsize *winsz;
+{
+ struct view_size vs;
+ ipriv_t *cci = ip->priv;
+ u_long fbp, i, j;
+ int error = 0;
+ view_t *view = ip->grf->g_view;
+
+ vs.x = winsz->x;
+ vs.y = winsz->y;
+ vs.width = winsz->width;
+ vs.height = winsz->height;
+ vs.depth = winsz->depth;
+ error = viewioctl(ip->grf->g_viewdev, VIOCSSIZE, &vs, 0, -1);
+
+ /*
+ * Reinitialize our structs
+ */
+ ip->cols = view->display.width / ip->font.width;
+ ip->rows = view->display.height / ip->font.height;
+
+ /*
+ * save new values so that future opens use them
+ * this may not be correct when we implement Virtual Consoles
+ */
+ ite_default_height = view->display.height;
+ ite_default_width = view->display.width;
+ ite_default_x = view->display.x;
+ ite_default_y = view->display.y;
+ ite_default_depth = view->bitmap->depth;
+
+ if(cci->row_ptr && (cci->row_ptr != con_rows)) {
+ free(cci->row_ptr, M_DEVBUF);
+ cci->row_ptr = NULL;
+ }
+ if(cci->column_offset && (cci->column_offset != con_columns)) {
+ free(cci->column_offset, M_DEVBUF);
+ cci->column_offset = NULL;
+ }
+
+ if(!atari_realconfig) {
+ cci->row_ptr = con_rows;
+ cci->column_offset = con_columns;
+ }
+ else {
+ cci->row_ptr = malloc(sizeof(u_char *) * ip->rows,M_DEVBUF,M_WAITOK);
+ cci->column_offset = malloc(sizeof(u_int)*ip->cols,M_DEVBUF,M_WAITOK);
+ }
+
+ if(!cci->row_ptr || !cci->column_offset)
+ panic("No memory for ite-view");
+
+
+ cci->width = view->bitmap->bytes_per_row << 3;
+ cci->underline = ip->font.baseline + 1;
+ cci->row_offset = view->bitmap->bytes_per_row;
+ cci->ft_x = ip->font.width;
+ cci->ft_y = ip->font.height;
+ cci->row_bytes = cci->row_offset * cci->ft_y;
+ cci->row_ptr[0] = view->bitmap->plane;
+ for(i = 1; i < ip->rows; i++)
+ cci->row_ptr[i] = cci->row_ptr[i-1] + cci->row_bytes;
+
+ /*
+ * Initialize the column offsets to point at the correct location
+ * in the first plane. This definitely assumes a font width of 8!
+ */
+ j = view->bitmap->depth * 2;
+ cci->column_offset[0] = 0;
+ for(i = 1; i < ip->cols; i++)
+ cci->column_offset[i] = ((i >> 1) * j) + (i & 1);
+
+ /* initialize the font cell pointers */
+ cci->font_cell[ip->font.font_lo] = ip->font.font_p;
+ for(i = ip->font.font_lo+1; i <= ip->font.font_hi; i++)
+ cci->font_cell[i] = cci->font_cell[i-1] + ip->font.height;
+
+ return(error);
+}
+
+static void
+cursor32(struct ite_softc *ip, int flag)
+{
+ int cend;
+ u_char *pl;
+ ipriv_t *cci;
+
+ cci = ip->priv;
+
+ if(flag == END_CURSOROPT)
+ cci->cursor_opt--;
+ else if(flag == START_CURSOROPT) {
+ if(!cci->cursor_opt)
+ cursor32(ip, ERASE_CURSOR);
+ cci->cursor_opt++;
+ return; /* if we are already opted. */
+ }
+
+ if(cci->cursor_opt)
+ return; /* if we are still nested. */
+ /* else we draw the cursor. */
+
+ if(flag != DRAW_CURSOR && flag != END_CURSOROPT) {
+ /*
+ * erase the cursor
+ */
+ cend = ip->font.height-1;
+ pl = cci->column_offset[ip->cursorx]
+ + cci->row_ptr[ip->cursory];
+ __asm__ __volatile__
+ ("1: notb %0@ ; addaw %4,%0\n\t"
+ "dbra %1,1b"
+ : "=a" (pl), "=d" (cend)
+ : "0" (pl), "1" (cend),
+ "d" (cci->row_offset)
+ );
+ }
+
+ if(flag != DRAW_CURSOR && flag != MOVE_CURSOR && flag != END_CURSOROPT)
+ return;
+
+ /*
+ * draw the cursor
+ */
+ ip->cursorx = min(ip->curx, ip->cols-1);
+ ip->cursory = ip->cury;
+ cend = ip->font.height-1;
+ pl = cci->column_offset[ip->cursorx]
+ + cci->row_ptr[ip->cursory];
+
+ __asm__ __volatile__
+ ("1: notb %0@ ; addaw %4,%0\n\t"
+ "dbra %1,1b"
+ : "=a" (pl), "=d" (cend)
+ : "0" (pl), "1" (cend),
+ "d" (cci->row_offset)
+ );
+}
+
+static void
+putc8(struct ite_softc *ip, int c, int dy, int dx, int mode)
+{
+ register ipriv_t *cci = (ipriv_t *)ip->priv;
+ register u_char *pl = cci->column_offset[dx] + cci->row_ptr[dy];
+ register u_int fh = cci->ft_y;
+ register u_int ro = cci->row_offset;
+ register u_char eor_mask;
+ register u_char bl, tmp, ul;
+ register u_char *ft;
+
+ if(c < ip->font.font_lo || c > ip->font.font_hi)
+ return;
+
+ ft = cci->font_cell[c];
+
+ if(!mode) {
+ while(fh--) {
+ *pl = *ft++; pl += ro;
+ }
+ return;
+ }
+
+ eor_mask = (mode & ATTR_INV) ? 0xff : 0x00;
+ bl = (mode & ATTR_BOLD) ? 1 : 0;
+ ul = fh - cci->underline;
+ while(fh--) {
+ tmp = *ft++ ^ eor_mask;
+ if(bl)
+ *pl = tmp | (tmp >> 1);
+ else *pl = tmp;
+ if(fh == ul)
+ *pl = 0xff;
+ pl += ro;
+ }
+}
+
+static void
+clear8(struct ite_softc *ip, int sy, int sx, int h, int w)
+{
+ ipriv_t *cci = (ipriv_t *) ip->priv;
+ view_t *v = ip->grf->g_view;
+ bmap_t *bm = v->bitmap;
+
+ if((sx == 0) && (w == ip->cols)) {
+ /* common case: clearing whole lines */
+ while (h--) {
+ int i;
+ u_char *ptr = cci->row_ptr[sy];
+ for(i = 0; i < ip->font.height; i++) {
+ bzero(ptr, bm->bytes_per_row);
+ ptr += bm->bytes_per_row;
+ }
+ sy++;
+ }
+ }
+ else {
+ /*
+ * clearing only part of a line
+ * XXX could be optimized MUCH better, but is it worth the
+ * trouble?
+ */
+
+ int i;
+ u_char *pls, *ple;
+
+ pls = cci->row_ptr[sy];
+ ple = pls + cci->column_offset[sx + w-1];
+ pls = pls + cci->column_offset[sx];
+
+ for(i = ((ip->font.height) * h)-1; i >= 0; i--) {
+ u_char *p = pls;
+ while(p <= ple)
+ *p++ = 0;
+ pls += bm->bytes_per_row;
+ ple += bm->bytes_per_row;
+ }
+ }
+}
+
+/* Note: sx is only relevant for SCROLL_LEFT or SCROLL_RIGHT. */
+static void
+scroll8(ip, sy, sx, count, dir)
+register struct ite_softc *ip;
+register int sy;
+int dir, sx, count;
+{
+ bmap_t *bm = ip->grf->g_view->bitmap;
+ u_char *pl = ((ipriv_t *)ip->priv)->row_ptr[sy];
+
+ if(dir == SCROLL_UP) {
+ int dy = sy - count;
+ int height = ip->bottom_margin - sy + 1;
+ int i;
+
+ cursor32(ip, ERASE_CURSOR);
+ scrollbmap(bm, 0, dy*ip->font.height, bm->bytes_per_row >> 3,
+ (ip->bottom_margin-dy+1)*ip->font.height,
+ 0, -(count*ip->font.height));
+ }
+ else if(dir == SCROLL_DOWN) {
+ int dy = sy + count;
+ int height = ip->bottom_margin - dy + 1;
+ int i;
+
+ cursor32(ip, ERASE_CURSOR);
+ scrollbmap(bm, 0, sy*ip->font.height, bm->bytes_per_row >> 3,
+ (ip->bottom_margin-sy+1)*ip->font.height,
+ 0, count*ip->font.height);
+ }
+ else if(dir == SCROLL_RIGHT) {
+ int sofs = (ip->cols - count) * ip->font.width;
+ int dofs = (ip->cols) * ip->font.width;
+ int i, j;
+
+ cursor32(ip, ERASE_CURSOR);
+ for(j = ip->font.height-1; j >= 0; j--) {
+ int sofs2 = sofs, dofs2 = dofs;
+ for (i = (ip->cols - (sx + count))-1; i >= 0; i--) {
+ int t;
+ sofs2 -= ip->font.width;
+ dofs2 -= ip->font.width;
+ asm("bfextu %1@{%2:%3},%0" : "=d" (t)
+ : "a" (pl), "d" (sofs2), "d" (ip->font.width));
+ asm("bfins %3,%0@{%1:%2}" :
+ : "a" (pl), "d" (dofs2), "d" (ip->font.width),
+ "d" (t));
+ }
+ pl += bm->bytes_per_row;
+ }
+ }
+ else { /* SCROLL_LEFT */
+ int sofs = (sx) * ip->font.width;
+ int dofs = (sx - count) * ip->font.width;
+ int i, j;
+
+ cursor32(ip, ERASE_CURSOR);
+ for(j = ip->font.height-1; j >= 0; j--) {
+ int sofs2 = sofs, dofs2 = dofs;
+ for(i = (ip->cols - sx)-1; i >= 0; i--) {
+ int t;
+
+ asm("bfextu %1@{%2:%3},%0" : "=d" (t)
+ : "a" (pl), "d" (sofs2), "d" (ip->font.width));
+ asm("bfins %3,%0@{%1:%2}"
+ : : "a" (pl), "d" (dofs2),"d" (ip->font.width),
+ "d" (t));
+ sofs2 += ip->font.width;
+ dofs2 += ip->font.width;
+ }
+ pl += bm->bytes_per_row;
+ }
+ }
+}
+
+static void
+scrollbmap (bmap_t *bm, u_short x, u_short y, u_short width, u_short height, short dx, short dy)
+{
+ u_short depth = bm->depth;
+ u_short lwpr = bm->bytes_per_row >> 2;
+
+ if(dx) {
+ /* FIX: */ panic ("delta x not supported in scroll bitmap yet.");
+ }
+
+ if(dy == 0) {
+ return;
+ }
+ if(dy > 0) {
+ u_long *pl = (u_long *)bm->plane;
+ u_long *src_y = pl + (lwpr*y);
+ u_long *dest_y = pl + (lwpr*(y+dy));
+ u_long count = lwpr*(height-dy);
+ u_long *clr_y = src_y;
+ u_long clr_count = dest_y - src_y;
+ u_long bc, cbc;
+
+ src_y += count - 1;
+ dest_y += count - 1;
+
+ bc = count >> 4;
+ count &= 0xf;
+
+ while (bc--) {
+ *dest_y-- = *src_y--; *dest_y-- = *src_y--;
+ *dest_y-- = *src_y--; *dest_y-- = *src_y--;
+ *dest_y-- = *src_y--; *dest_y-- = *src_y--;
+ *dest_y-- = *src_y--; *dest_y-- = *src_y--;
+ *dest_y-- = *src_y--; *dest_y-- = *src_y--;
+ *dest_y-- = *src_y--; *dest_y-- = *src_y--;
+ *dest_y-- = *src_y--; *dest_y-- = *src_y--;
+ *dest_y-- = *src_y--; *dest_y-- = *src_y--;
+ }
+ while (count--)
+ *dest_y-- = *src_y--;
+
+ cbc = clr_count >> 4;
+ clr_count &= 0xf;
+
+ while (cbc--) {
+ *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
+ *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
+ *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
+ *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
+ }
+ while(clr_count--)
+ *clr_y++ = 0;
+ }
+ else {
+ u_long *pl = (u_long *)bm->plane;
+ u_long *src_y = pl + (lwpr*(y-dy));
+ u_long *dest_y = pl + (lwpr*y);
+ long count = lwpr*(height + dy);
+ u_long *clr_y = dest_y + count;
+ u_long clr_count = src_y - dest_y;
+ u_long bc, cbc;
+
+ bc = count >> 4;
+ count &= 0xf;
+
+ while(bc--) {
+ *dest_y++ = *src_y++; *dest_y++ = *src_y++;
+ *dest_y++ = *src_y++; *dest_y++ = *src_y++;
+ *dest_y++ = *src_y++; *dest_y++ = *src_y++;
+ *dest_y++ = *src_y++; *dest_y++ = *src_y++;
+ *dest_y++ = *src_y++; *dest_y++ = *src_y++;
+ *dest_y++ = *src_y++; *dest_y++ = *src_y++;
+ *dest_y++ = *src_y++; *dest_y++ = *src_y++;
+ *dest_y++ = *src_y++; *dest_y++ = *src_y++;
+ }
+ while(count--)
+ *dest_y++ = *src_y++;
+
+ cbc = clr_count >> 4;
+ clr_count &= 0xf;
+
+ while (cbc--) {
+ *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
+ *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
+ *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
+ *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0; *clr_y++ = 0;
+ }
+ while (clr_count--)
+ *clr_y++ = 0;
+ }
+}
+#else
+#error Must be defined
+#endif /* NGRF */