small batch early bottling hppa64 port

matured in mighty ukrainian oak for 23 months

1 files changed, 212 insertions, 0 deletions

diff --git a/sys/arch/hppa64/stand/libsa/itecons.c b/sys/arch/hppa64/stand/libsa/itecons.c
new file mode 100644
index 00000000000..49e4413e2d2
--- /dev/null
+++ b/sys/arch/hppa64/stand/libsa/itecons.c
@@ -0,0 +1,212 @@
+/*	$OpenBSD: itecons.c,v 1.1 2005/04/01 10:40:48 mickey Exp $	*/
+
+/*
+ * Copyright (c) 2005 Michael Shalayeff
+ * All rights reserved.
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER IN
+ * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
+ * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+/*
+ * Copyright 1996 1995 by Open Software Foundation, Inc.
+ *              All Rights Reserved
+ *
+ * Permission to use, copy, modify, and distribute this software and
+ * its documentation for any purpose and without fee is hereby granted,
+ * provided that the above copyright notice appears in all copies and
+ * that both the copyright notice and this permission notice appear in
+ * supporting documentation.
+ *
+ * OSF DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE
+ * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
+ * FOR A PARTICULAR PURPOSE.
+ *
+ * IN NO EVENT SHALL OSF BE LIABLE FOR ANY SPECIAL, INDIRECT, OR
+ * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
+ * LOSS OF USE, DATA OR PROFITS, WHETHER IN ACTION OF CONTRACT,
+ * NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
+ * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ *
+ */
+
+#include "libsa.h"
+
+#include <sys/param.h>
+#include <sys/disklabel.h>
+#include <machine/pdc.h>
+#include <machine/iomod.h>
+#include <dev/cons.h>
+
+#include "dev_hppa64.h"
+
+iodcio_t cniodc;	/* console IODC entry point */
+iodcio_t kyiodc;	/* keyboard IODC entry point */
+pz_device_t *cons_pzdev, *kbd_pzdev;
+
+/*
+ * Console.
+ */
+
+char cnbuf[IODC_MINIOSIZ] __attribute__ ((aligned (IODC_MINIOSIZ)));
+int kycode[IODC_MAXSIZE/sizeof(int)];
+
+int
+cnspeed(dev, sp)
+	dev_t	dev;
+	int	sp;
+{
+	return 9600;
+}
+
+void
+ite_probe(cn)
+	struct consdev *cn;
+{
+	cniodc = (iodcio_t)(u_long)PAGE0->mem_free;
+	cons_pzdev = &PAGE0->mem_cons;
+	kbd_pzdev = &PAGE0->mem_kbd;
+
+	if (pdc_call(pdc, PDC_IODC, PDC_IODC_READ, pdcbuf, cons_pzdev->pz_hpa,
+		      IODC_INIT, cniodc, IODC_MAXSIZE) < 0 ||
+	    pdc_call(cniodc, cons_pzdev->pz_hpa,
+		      (cons_pzdev->pz_hpa==PAGE0->mem_boot.pz_hpa)?
+			IODC_INIT_DEV: IODC_INIT_ALL, cons_pzdev->pz_spa,
+			cons_pzdev->pz_layers, pdcbuf, 0,0,0,0) < 0 ||
+	    pdc_call(pdc, PDC_IODC, PDC_IODC_READ, pdcbuf, cons_pzdev->pz_hpa,
+		      IODC_IO, cniodc, IODC_MAXSIZE) < 0) {
+		/* morse code with the LED's?!! */
+		cons_pzdev->pz_iodc_io = kbd_pzdev->pz_iodc_io = NULL;
+	} else {
+		cn->cn_pri = CN_INTERNAL;
+		cn->cn_dev = makedev(0, 0);
+	}
+}
+
+void
+ite_init(cn)
+	struct consdev *cn;
+{
+	/*
+	 * If the keyboard is separate from the console output device,
+	 * we load the keyboard code at `kycode'.
+	 *
+	 * N.B. In this case, since the keyboard code is part of the
+	 * boot code, it will be overwritten when we load a kernel.
+	 */
+	if (cons_pzdev->pz_class != PCL_DUPLEX ||
+	    kbd_pzdev->pz_class == PCL_KEYBD) {
+
+		kyiodc = (iodcio_t)kycode;
+
+		if (pdc_call(pdc, PDC_IODC, PDC_IODC_READ, pdcbuf, kbd_pzdev->pz_hpa,
+			      IODC_INIT, kyiodc, IODC_MAXSIZE) < 0 ||
+		    pdc_call(kyiodc, kbd_pzdev->pz_hpa,
+			      (kbd_pzdev->pz_hpa == PAGE0->mem_boot.pz_hpa ||
+			       kbd_pzdev->pz_hpa == cons_pzdev->pz_hpa)?
+			      IODC_INIT_DEV: IODC_INIT_ALL, kbd_pzdev->pz_spa,
+			      kbd_pzdev->pz_layers, pdcbuf, 0, 0, 0, 0) < 0 ||
+		    pdc_call(pdc, PDC_IODC, PDC_IODC_READ, pdcbuf, kbd_pzdev->pz_hpa,
+			      IODC_IO, kyiodc, IODC_MAXSIZE))
+			kyiodc = NULL;
+	} else {
+		kyiodc = cniodc;
+
+		bcopy((char *)&PAGE0->mem_cons, (char *)&PAGE0->mem_kbd,
+		      sizeof(struct pz_device));
+	}
+
+	cons_pzdev->pz_iodc_io = (u_long)cniodc;
+	kbd_pzdev->pz_iodc_io = (u_long)kyiodc;
+#ifdef DEBUG
+	if (!kyiodc)
+		printf("ite_init: no kbd\n");
+#endif
+}
+
+void
+ite_putc(dev, c)
+	dev_t dev;
+	int c;
+{
+	if (cniodc == NULL)
+		return;
+
+	*cnbuf = c;
+
+	pdc_call(cniodc, cons_pzdev->pz_hpa, IODC_IO_CONSOUT,
+	    cons_pzdev->pz_spa, cons_pzdev->pz_layers, pdcbuf, 0, cnbuf, 1, 0);
+}
+
+/*
+ * since i don't know how to 'just check the char available'
+ * i store the key into the stash removing on read op later;
+ */
+int
+ite_getc(dev)
+	dev_t dev;
+{
+	static int stash = 0;
+	int err, c, l, i;
+
+	if (kyiodc == NULL)
+		return(0x100);
+
+	if (stash) {
+		c = stash;
+		if (!(dev & 0x80))
+			stash = 0;
+		return c;
+	}
+
+	i = 16;
+	do {
+		err = pdc_call(kyiodc, kbd_pzdev->pz_hpa, IODC_IO_CONSIN,
+		    kbd_pzdev->pz_spa, kbd_pzdev->pz_layers, pdcbuf,
+		    0, cnbuf, 1, 0);
+		l = pdcbuf[0];
+		c = cnbuf[0];
+#ifdef DEBUG
+		if (debug && err < 0)
+			printf("KBD input error: %d", err);
+#endif
+
+		/* if we are doing ischar() report immidiatelly */
+		if (!i-- && (dev & 0x80) && l == 0) {
+#ifdef DEBUG
+			if (debug > 2)
+				printf("ite_getc(0x%x): no char %d(%x)\n",
+				       dev, l, c);
+#endif
+			return (0);
+		}
+	} while(!l);
+
+#if DEBUG
+	if (debug && l > 1)
+		printf("KBD input got too much (%d)\n", l);
+
+	if (debug > 3)
+		printf("kbd: \'%c\' (0x%x)\n", c, c);
+#endif
+	if (dev & 0x80)
+		stash = c;
+
+	return (c);
+}
+
+void
+ite_pollc(dev, on)
+	dev_t dev;
+	int on;
+{
+
+}