20000317 sourceware import

libgloss/m32r/m32r-lib.c

@@ -0,0 +1,142 @@
+/* Stand-alone library for M32R-EVA board.
+ *
+ * Copyright (c) 1996, 1998 Cygnus Support
+ *
+ * The authors hereby grant permission to use, copy, modify, distribute,
+ * and license this software and its documentation for any purpose, provided
+ * that existing copyright notices are retained in all copies and that this
+ * notice is included verbatim in any distributions. No written agreement,
+ * license, or royalty fee is required for any of the authorized uses.
+ * Modifications to this software may be copyrighted by their authors
+ * and need not follow the licensing terms described here, provided that
+ * the new terms are clearly indicated on the first page of each file where
+ * they apply.
+ */
+
+/* #define REVC to enable handling of the original RevC board,
+   which is no longer the default, nor is it supported.  */
+
+#ifndef REVC
+
+/* Serial I/O routines for MSA2000G01 board */
+#define UART_INCHAR_ADDR	0xff004009
+#define UART_OUTCHR_ADDR	0xff004007
+#define UART_STATUS_ADDR	0xff004002
+
+#else
+
+/* Serial I/O routines for M32R-EVA board */
+#define UART_INCHAR_ADDR	0xff102013
+#define UART_OUTCHR_ADDR	0xff10200f
+#define UART_STATUS_ADDR	0xff102006
+
+#endif
+
+#define UART_INPUT_EMPTY	0x4
+#define UART_OUTPUT_EMPTY	0x1
+
+static volatile char  *rx_port   = (unsigned char *)  UART_INCHAR_ADDR;
+static volatile char  *tx_port   = (char *)  UART_OUTCHR_ADDR;
+static volatile short *rx_status = (short *) UART_STATUS_ADDR;
+static volatile short *tx_status = (short *) UART_STATUS_ADDR;
+
+static int
+rx_rdy()
+{
+#ifndef REVC
+  return (*rx_status & UART_INPUT_EMPTY);
+#else
+  return !(*rx_status & UART_INPUT_EMPTY);
+#endif
+}
+
+static int
+tx_rdy()
+{
+  return (*tx_status & UART_OUTPUT_EMPTY);
+}
+
+static unsigned char
+rx_uchar()
+{
+  return *rx_port;
+}
+
+void
+tx_char(char c)
+{
+  *tx_port = c;
+}
+
+int
+getDebugChar()
+{
+  while (!rx_rdy())
+    ;
+  return rx_uchar();
+}
+
+void
+putDebugChar(int c)
+{
+  while (!tx_rdy())
+    ;
+  tx_char(c);
+}
+
+void mesg(char *p)
+{
+  while (*p)
+    {
+      if (*p == '\n')
+	putDebugChar('\r');
+      putDebugChar(*p++);
+    }
+}
+
+void phex(long x)
+{
+  char buf[9];
+  int i;
+
+  buf[8] = '\0';
+  for (i = 7; i >= 0; i--)
+    {
+      char c = x & 0x0f;
+      buf[i] = c < 10 ? c + '0' : c - 10 + 'A';
+      x >>= 4;
+    }
+  mesg(buf);
+}
+
+/* Setup trap TT to go to ROUTINE. */
+
+void
+exceptionHandler (int tt, unsigned long routine)
+{
+#ifndef REVC
+  unsigned long *tb = (unsigned long *) 0x40;	/* Trap vector base address */
+
+  tb[tt] = ((routine >> 2) | 0xff000000) - tt - (0x40 >> 2);
+#else
+  unsigned long *tb = 0;	/* Trap vector base address */
+
+  tb[tt] = ((routine >> 2) | 0xff000000) - tt;
+#endif
+}
+
+/* Return the address of trap TT handler */
+
+unsigned long
+getExceptionHandler (int tt)
+{
+#ifndef REVC
+  unsigned long *tb = (unsigned long *) 0x40;	/* Trap vector base address */
+
+  return ((tb[tt] + tt + (0x40 >> 2)) | 0xff000000) << 2;
+#else
+  unsigned long *tb = 0;	/* Trap vector base address */
+
+  return ((tb[tt] + tt) | 0xff000000) << 2;
+#endif
+}