source: trunk/libs/newlib/src/libgloss/m32r/m32r-lib.c @ 546

Last change on this file since 546 was 444, checked in by satin@…, 6 years ago

add newlib,libalmos-mkh, restructure shared_syscalls.h and mini-libc

File size: 3.2 KB
Line 
1/* Stand-alone library for M32R-EVA board.
2 *
3 * Copyright (c) 1996, 1998 Cygnus Support
4 *
5 * The authors hereby grant permission to use, copy, modify, distribute,
6 * and license this software and its documentation for any purpose, provided
7 * that existing copyright notices are retained in all copies and that this
8 * notice is included verbatim in any distributions. No written agreement,
9 * license, or royalty fee is required for any of the authorized uses.
10 * Modifications to this software may be copyrighted by their authors
11 * and need not follow the licensing terms described here, provided that
12 * the new terms are clearly indicated on the first page of each file where
13 * they apply.
14 */
15
16/* #define REVC to enable handling of the original RevC board,
17   which is no longer the default, nor is it supported.  */
18
19#ifndef REVC
20
21/* Serial I/O routines for MSA2000G01 board */
22#define UART_INCHAR_ADDR        0xff004009
23#define UART_OUTCHR_ADDR        0xff004007
24#define UART_STATUS_ADDR        0xff004002
25
26#else
27
28/* Serial I/O routines for M32R-EVA board */
29#define UART_INCHAR_ADDR        0xff102013
30#define UART_OUTCHR_ADDR        0xff10200f
31#define UART_STATUS_ADDR        0xff102006
32
33#endif
34
35#define UART_INPUT_EMPTY        0x4
36#define UART_OUTPUT_EMPTY       0x1
37
38static volatile char  *rx_port   = (unsigned char *)  UART_INCHAR_ADDR;
39static volatile char  *tx_port   = (char *)  UART_OUTCHR_ADDR;
40static volatile short *rx_status = (short *) UART_STATUS_ADDR;
41static volatile short *tx_status = (short *) UART_STATUS_ADDR;
42
43static int
44rx_rdy()
45{
46#ifndef REVC
47  return (*rx_status & UART_INPUT_EMPTY);
48#else
49  return !(*rx_status & UART_INPUT_EMPTY);
50#endif
51}
52
53static int
54tx_rdy()
55{
56  return (*tx_status & UART_OUTPUT_EMPTY);
57}
58
59static unsigned char
60rx_uchar()
61{
62  return *rx_port;
63}
64
65void
66tx_char(char c)
67{
68  *tx_port = c;
69}
70
71int
72getDebugChar()
73{
74  while (!rx_rdy())
75    ;
76  return rx_uchar();
77}
78
79void
80putDebugChar(int c)
81{
82  while (!tx_rdy())
83    ;
84  tx_char(c);
85}
86
87void mesg(char *p)
88{
89  while (*p)
90    {
91      if (*p == '\n')
92        putDebugChar('\r');
93      putDebugChar(*p++);
94    }
95}
96
97void phex(long x)
98{
99  char buf[9];
100  int i;
101
102  buf[8] = '\0';
103  for (i = 7; i >= 0; i--)
104    {
105      char c = x & 0x0f;
106      buf[i] = c < 10 ? c + '0' : c - 10 + 'A';
107      x >>= 4;
108    }
109  mesg(buf);
110}
111
112/*
113 * These routines set and get exception handlers.  They look a little
114 * funny because the M32R uses branch instructions in its exception
115 * vectors, not just the addresses.  The instruction format used is
116 * BRA pcdisp24.
117 */
118
119#define TRAP_VECTOR_BASE_ADDR   0x00000040
120
121/* Setup trap TT to go to ROUTINE. */
122void 
123exceptionHandler (int tt, unsigned long routine)
124{
125#ifndef REVC
126  unsigned long *tb = (unsigned long *) TRAP_VECTOR_BASE_ADDR;
127  tb[tt] = (0xff000000 | ((routine - (unsigned long) (&tb[tt])) >> 2));
128#else
129  unsigned long *tb = 0;        /* Trap vector base address */
130
131  tb[tt] = ((routine >> 2) | 0xff000000) - tt;
132#endif
133}
134
135/* Return the address of trap TT handler */
136unsigned long
137getExceptionHandler (int tt)
138{
139#ifndef REVC
140  unsigned long *tb = (unsigned long *) TRAP_VECTOR_BASE_ADDR;
141  return ((tb[tt] & ~0xff000000) << 2) + (unsigned long) (&tb[tt]);
142#else
143  unsigned long *tb = 0;        /* Trap vector base address */
144
145  return ((tb[tt] + tt) | 0xff000000) << 2;
146#endif
147}
Note: See TracBrowser for help on using the repository browser.