1993-06-12 14:58:17 +00:00
|
|
|
/*
|
|
|
|
* Mach Operating System
|
|
|
|
* Copyright (c) 1992, 1991 Carnegie Mellon University
|
|
|
|
* All Rights Reserved.
|
1995-05-30 08:16:23 +00:00
|
|
|
*
|
1993-06-12 14:58:17 +00:00
|
|
|
* Permission to use, copy, modify and distribute this software and its
|
|
|
|
* documentation is hereby granted, provided that both the copyright
|
|
|
|
* notice and this permission notice appear in all copies of the
|
|
|
|
* software, derivative works or modified versions, and any portions
|
|
|
|
* thereof, and that both notices appear in supporting documentation.
|
1995-05-30 08:16:23 +00:00
|
|
|
*
|
1993-06-12 14:58:17 +00:00
|
|
|
* CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
|
|
|
|
* CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
|
|
|
|
* ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
|
1995-05-30 08:16:23 +00:00
|
|
|
*
|
1993-06-12 14:58:17 +00:00
|
|
|
* Carnegie Mellon requests users of this software to return to
|
1995-05-30 08:16:23 +00:00
|
|
|
*
|
1993-06-12 14:58:17 +00:00
|
|
|
* Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
|
|
|
|
* School of Computer Science
|
|
|
|
* Carnegie Mellon University
|
|
|
|
* Pittsburgh PA 15213-3890
|
1995-05-30 08:16:23 +00:00
|
|
|
*
|
1993-06-12 14:58:17 +00:00
|
|
|
* any improvements or extensions that they make and grant Carnegie Mellon
|
|
|
|
* the rights to redistribute these changes.
|
1993-07-13 18:15:32 +00:00
|
|
|
*
|
1993-10-16 19:17:18 +00:00
|
|
|
* from: Mach, Revision 2.2 92/04/04 11:35:57 rpd
|
1995-06-25 14:02:57 +00:00
|
|
|
* $Id: io.c,v 1.14 1995/05/30 07:58:33 rgrimes Exp $
|
1993-06-12 14:58:17 +00:00
|
|
|
*/
|
|
|
|
|
1995-01-25 21:40:47 +00:00
|
|
|
#include "boot.h"
|
1994-09-18 07:39:55 +00:00
|
|
|
#include <machine/cpufunc.h>
|
1995-01-20 07:48:27 +00:00
|
|
|
#include <sys/reboot.h>
|
1994-09-18 07:39:55 +00:00
|
|
|
|
1993-06-12 14:58:17 +00:00
|
|
|
#define K_RDWR 0x60 /* keyboard data & cmds (read/write) */
|
|
|
|
#define K_STATUS 0x64 /* keyboard status */
|
|
|
|
#define K_CMD 0x64 /* keybd ctlr command (write-only) */
|
|
|
|
|
|
|
|
#define K_OBUF_FUL 0x01 /* output buffer full */
|
|
|
|
#define K_IBUF_FUL 0x02 /* input buffer full */
|
|
|
|
|
|
|
|
#define KC_CMD_WIN 0xd0 /* read output port */
|
|
|
|
#define KC_CMD_WOUT 0xd1 /* write output port */
|
1994-06-15 19:09:14 +00:00
|
|
|
#define KB_A20 0xdf /* enable A20,
|
1993-06-12 14:58:17 +00:00
|
|
|
enable output buffer full interrupt
|
|
|
|
enable data line
|
1994-06-15 19:09:14 +00:00
|
|
|
enable clock line */
|
1993-06-12 14:58:17 +00:00
|
|
|
|
1995-01-20 07:48:27 +00:00
|
|
|
|
1993-06-12 14:58:17 +00:00
|
|
|
/*
|
|
|
|
* Gate A20 for high memory
|
|
|
|
*/
|
1995-04-14 21:26:53 +00:00
|
|
|
void
|
|
|
|
gateA20(void)
|
1993-06-12 14:58:17 +00:00
|
|
|
{
|
|
|
|
#ifdef IBM_L40
|
|
|
|
outb(0x92, 0x2);
|
|
|
|
#else IBM_L40
|
|
|
|
while (inb(K_STATUS) & K_IBUF_FUL);
|
|
|
|
while (inb(K_STATUS) & K_OBUF_FUL)
|
|
|
|
(void)inb(K_RDWR);
|
|
|
|
|
|
|
|
outb(K_CMD, KC_CMD_WOUT);
|
|
|
|
while (inb(K_STATUS) & K_IBUF_FUL);
|
1995-01-25 21:40:47 +00:00
|
|
|
outb(K_RDWR, KB_A20);
|
1993-06-12 14:58:17 +00:00
|
|
|
while (inb(K_STATUS) & K_IBUF_FUL);
|
|
|
|
#endif IBM_L40
|
|
|
|
}
|
|
|
|
|
|
|
|
/* printf - only handles %d as decimal, %c as char, %s as string */
|
|
|
|
|
1995-06-25 14:02:57 +00:00
|
|
|
void
|
1995-04-14 21:26:53 +00:00
|
|
|
printf(const char *format, ...)
|
1993-06-12 14:58:17 +00:00
|
|
|
{
|
1995-04-14 21:26:53 +00:00
|
|
|
int *dataptr = (int *)&format;
|
1993-06-12 14:58:17 +00:00
|
|
|
char c;
|
1993-07-13 18:15:32 +00:00
|
|
|
|
1995-04-14 21:26:53 +00:00
|
|
|
dataptr++;
|
1995-06-25 14:02:57 +00:00
|
|
|
while ((c = *format++))
|
1993-06-12 14:58:17 +00:00
|
|
|
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': {
|
1995-04-14 21:26:53 +00:00
|
|
|
unsigned int num = *dataptr++, dig;
|
1993-06-12 14:58:17 +00:00
|
|
|
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++;
|
1995-06-25 14:02:57 +00:00
|
|
|
while ((c = *ptr++))
|
1993-06-12 14:58:17 +00:00
|
|
|
putchar(c);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
1995-04-14 21:26:53 +00:00
|
|
|
void
|
|
|
|
putchar(int c)
|
1993-06-12 14:58:17 +00:00
|
|
|
{
|
1995-01-20 07:48:27 +00:00
|
|
|
if (c == '\n') {
|
1995-01-25 21:40:47 +00:00
|
|
|
if (loadflags & RB_SERIAL)
|
|
|
|
serial_putc('\r');
|
|
|
|
else
|
|
|
|
putc('\r');
|
1995-01-20 07:48:27 +00:00
|
|
|
}
|
1995-01-25 21:40:47 +00:00
|
|
|
if (loadflags & RB_SERIAL)
|
|
|
|
serial_putc(c);
|
|
|
|
else
|
|
|
|
putc(c);
|
1993-06-12 14:58:17 +00:00
|
|
|
}
|
|
|
|
|
1995-04-14 21:26:53 +00:00
|
|
|
int
|
|
|
|
getchar(int in_buf)
|
1993-06-12 14:58:17 +00:00
|
|
|
{
|
|
|
|
int c;
|
|
|
|
|
1994-11-07 11:26:30 +00:00
|
|
|
loop:
|
1995-04-14 21:26:53 +00:00
|
|
|
if ((c = ((loadflags & RB_SERIAL) ? serial_getc() : getc())) == '\r')
|
1993-06-12 14:58:17 +00:00
|
|
|
c = '\n';
|
|
|
|
if (c == '\b') {
|
1994-11-07 11:26:30 +00:00
|
|
|
if (in_buf != 0) {
|
|
|
|
putchar('\b');
|
|
|
|
putchar(' ');
|
|
|
|
} else {
|
|
|
|
goto loop;
|
|
|
|
}
|
1993-06-12 14:58:17 +00:00
|
|
|
}
|
|
|
|
putchar(c);
|
|
|
|
return(c);
|
|
|
|
}
|
|
|
|
|
1994-09-20 22:25:00 +00:00
|
|
|
/*
|
|
|
|
* This routine uses an inb to an unused port, the time to execute that
|
|
|
|
* inb is approximately 1.25uS. This value is pretty constant across
|
|
|
|
* all CPU's and all buses, with the exception of some PCI implentations
|
|
|
|
* that do not forward this I/O adress to the ISA bus as they know it
|
|
|
|
* is not a valid ISA bus address, those machines execute this inb in
|
|
|
|
* 60 nS :-(.
|
|
|
|
*
|
|
|
|
* XXX we need to use BIOS timer calls or something more reliable to
|
|
|
|
* produce timeouts in the boot code.
|
|
|
|
*/
|
1995-04-14 21:26:53 +00:00
|
|
|
void
|
|
|
|
delay1ms(void)
|
1994-06-16 03:53:29 +00:00
|
|
|
{
|
1994-09-20 22:25:00 +00:00
|
|
|
int i = 800;
|
1994-06-16 03:53:29 +00:00
|
|
|
while (--i >= 0)
|
|
|
|
(void)inb(0x84);
|
|
|
|
}
|
|
|
|
|
1995-04-14 21:26:53 +00:00
|
|
|
int
|
|
|
|
gets(char *buf)
|
1993-06-12 14:58:17 +00:00
|
|
|
{
|
|
|
|
int i;
|
|
|
|
char *ptr=buf;
|
|
|
|
|
1994-06-15 18:15:17 +00:00
|
|
|
#if BOOTWAIT
|
1994-09-20 22:25:00 +00:00
|
|
|
for (i = BOOTWAIT; i>0; delay1ms(),i--)
|
1994-06-15 18:15:17 +00:00
|
|
|
#endif
|
1995-01-20 07:48:27 +00:00
|
|
|
if ((loadflags & RB_SERIAL) ? serial_ischar() : ischar())
|
1993-06-12 14:58:17 +00:00
|
|
|
for (;;)
|
1994-11-07 11:26:30 +00:00
|
|
|
switch(*ptr = getchar(ptr - buf) & 0xff) {
|
1993-06-12 14:58:17 +00:00
|
|
|
case '\n':
|
|
|
|
case '\r':
|
|
|
|
*ptr = '\0';
|
|
|
|
return 1;
|
|
|
|
case '\b':
|
|
|
|
if (ptr > buf) ptr--;
|
|
|
|
continue;
|
|
|
|
default:
|
|
|
|
ptr++;
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1995-04-14 21:26:53 +00:00
|
|
|
int
|
|
|
|
strcmp(const char *s1, const char *s2)
|
1993-06-12 14:58:17 +00:00
|
|
|
{
|
|
|
|
while (*s1 == *s2) {
|
|
|
|
if (!*s1++)
|
|
|
|
return 0;
|
|
|
|
s2++;
|
|
|
|
}
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
1995-04-14 21:26:53 +00:00
|
|
|
void
|
|
|
|
bcopy(const char *from, char *to, int len)
|
1993-06-12 14:58:17 +00:00
|
|
|
{
|
|
|
|
while (len-- > 0)
|
|
|
|
*to++ = *from++;
|
|
|
|
}
|
1993-07-13 18:15:32 +00:00
|
|
|
|
1995-01-20 07:48:27 +00:00
|
|
|
/* To quote Ken: "You are not expected to understand this." :) */
|
1993-07-13 18:15:32 +00:00
|
|
|
|
1995-04-14 21:26:53 +00:00
|
|
|
void
|
|
|
|
twiddle(void)
|
1993-07-13 18:15:32 +00:00
|
|
|
{
|
1995-01-20 07:48:27 +00:00
|
|
|
putchar((char)tw_chars);
|
|
|
|
tw_chars = (tw_chars >> 8) | ((tw_chars & (unsigned long)0xFF) << 24);
|
|
|
|
putchar('\b');
|
1993-07-13 18:15:32 +00:00
|
|
|
}
|