initial import of NetBSD tree

1 files changed, 220 insertions, 0 deletions

diff --git a/sys/arch/i386/netboot/cga.c b/sys/arch/i386/netboot/cga.c
new file mode 100644
index 00000000000..21ca95ce5d7
--- /dev/null
+++ b/sys/arch/i386/netboot/cga.c
@@ -0,0 +1,220 @@
+/*	$NetBSD: cga.c,v 1.3 1994/10/27 04:21:10 cgd Exp $	*/
+
+/* netboot
+ *
+ * source in this file came from
+ * the original 386BSD boot block.
+ *
+ * Copyright (c) 1990 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * William Jolitz.
+ *
+ * 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.
+ *
+ *	@(#)cga.c	5.3 (Berkeley) 4/28/91
+ */
+
+#include "proto.h"
+
+#define	COL		80
+#define	ROW		25
+#define	CHR		2
+#define MONO_BASE	0x3B4
+#define MONO_BUF	0xB0000
+#define CGA_BASE	0x3D4
+#define CGA_BUF		0xB8000
+
+static u_char	att = 0x7 ;
+u_char *Crtat = (u_char *)CGA_BUF;
+
+static unsigned int addr_6845 = CGA_BASE;
+
+static void cursor(int pos) {
+  outb(addr_6845, 14);
+  outb(addr_6845+1, pos >> 8);
+  outb(addr_6845, 15);
+  outb(addr_6845+1, pos&0xff);
+}
+
+void
+putc(int c) {
+#ifdef USE_BIOS
+  asm("
+	movb	%0, %%cl
+	call	_prot_to_real
+	.byte	0x66
+	mov	$0x1, %%ebx
+	movb	$0xe, %%ah
+	movb	%%cl, %%al
+	sti
+	int	$0x10
+	cli
+	.byte	0x66
+	call	_real_to_prot
+	" : : "g" (ch));
+#else
+  static u_char *crtat = 0;
+  unsigned cursorat; u_short was;
+  u_char *cp;
+
+  if (crtat == 0) {
+
+    /* XXX probe to find if a color or monochrome display */
+    was = *(u_short *)Crtat;
+    *(u_short *)Crtat = 0xA55A;
+    if (*(u_short *)Crtat != 0xA55A) {
+      Crtat = (u_char *) MONO_BUF;
+      addr_6845 = MONO_BASE;
+    }
+    *(u_short *)Crtat = was;
+
+    /* Extract cursor location */
+    outb(addr_6845,14);
+    cursorat = inb(addr_6845+1)<<8 ;
+    outb(addr_6845,15);
+    cursorat |= inb(addr_6845+1);
+
+    if(cursorat <= COL*ROW) {
+      crtat = Crtat + cursorat*CHR;
+      /* att = crtat[1]; */	/* use current attribute present */
+    } else	crtat = Crtat;
+
+    /* clean display */
+    for (cp = crtat; cp < Crtat+ROW*COL*CHR; cp += 2) {
+      cp[0] = ' ';
+      cp[1] = att;
+    }
+  }
+
+  switch (c) {
+
+  case '\t':
+    do
+      putc(' ');
+    while ((int)crtat % (8*CHR));
+    break;
+
+  case '\010':
+    crtat -= CHR;
+    break;
+
+  case '\r':
+    crtat -= (crtat - Crtat) % (COL*CHR);
+    break;
+
+  case '\n':
+    crtat += COL*CHR ;
+    break;
+
+  default:
+    crtat[0] = c;
+    crtat[1] = att;
+    crtat += CHR;
+    break ;
+  }
+
+  /* implement a scroll */
+  if (crtat >= Crtat+COL*ROW*CHR) {
+    /* move text up */
+    bcopy((char *)(Crtat+COL*CHR), (char *)Crtat, COL*(ROW-1)*CHR);
+
+    /* clear line */
+    for (cp = Crtat+ COL*(ROW-1)*CHR;
+	 cp < Crtat + COL*ROW*CHR ; cp += 2)
+      cp[0] = ' ';
+
+    crtat -= COL*CHR ;
+  }
+  cursor((crtat-Crtat)/CHR);
+#endif
+}
+
+void
+putchar(int c)
+{
+  if (c == '\n')
+    putc('\r');
+  putc(c);
+}
+
+/* printf - only handles %d as decimal, %c as char, %s as string */
+
+void
+printf(format,data)
+     const char *format;
+     int data;
+{
+  int *dataptr = &data;
+  char c;
+  while ((c = *format++)) {
+    if (c != '%')
+      putchar(c);
+    else {
+      switch (c = *format++) {
+      case 'd': {
+	int num = *dataptr++;
+	char buf[10], *ptr = buf;
+	if (num<0) {
+	  num = -num;
+	  putchar('-');
+	}
+	do
+	  *ptr++ = '0'+num%10;
+	while ((num /= 10));
+	do
+	  putchar(*--ptr);
+	while (ptr != buf);
+	break;
+      }
+      case 'x': {
+	int num = *dataptr++, dig;
+	char buf[8], *ptr = buf;
+	do
+	  *ptr++ = (dig=(num&0xf)) > 9?
+	    'a' + dig - 10 :
+	      '0' + dig;
+	while ((num >>= 4));
+	do
+	  putchar(*--ptr);
+	while (ptr != buf);
+	break;
+      }
+      case 'c': putchar((*dataptr++)&0xff); break;
+      case 's': {
+	char *ptr = (char *)*dataptr++;
+	while ((c = *ptr++))
+	  putchar(c);
+	break;
+      }
+      }
+    }
+  }
+}