Add support for friendly-arm SBC-2410X board
[oweals/u-boot.git] / drivers / ps2ser.c
1 /***********************************************************************
2  *
3  * (C) Copyright 2004
4  * DENX Software Engineering
5  * Wolfgang Denk, wd@denx.de
6  * All rights reserved.
7  *
8  * Simple 16550A serial driver
9  *
10  * Originally from linux source (drivers/char/ps2ser.c)
11  *
12  * Used by the PS/2 multiplexer driver (ps2mult.c)
13  *
14  ***********************************************************************/
15
16 #include <common.h>
17
18 #ifdef CONFIG_PS2SERIAL
19
20 #include <asm/io.h>
21 #include <asm/atomic.h>
22 #include <ps2mult.h>
23 #ifdef CFG_NS16550
24 #include <ns16550.h>
25 #endif
26
27 DECLARE_GLOBAL_DATA_PTR;
28
29 /* #define      DEBUG */
30
31 #define PS2SER_BAUD     57600
32
33 #ifdef CONFIG_MPC5xxx
34 #if CONFIG_PS2SERIAL == 1
35 #define PSC_BASE MPC5XXX_PSC1
36 #elif CONFIG_PS2SERIAL == 2
37 #define PSC_BASE MPC5XXX_PSC2
38 #elif CONFIG_PS2SERIAL == 3
39 #define PSC_BASE MPC5XXX_PSC3
40 #elif defined(CONFIG_MGT5100)
41 #error CONFIG_PS2SERIAL must be in 1, 2 or 3
42 #elif CONFIG_PS2SERIAL == 4
43 #define PSC_BASE MPC5XXX_PSC4
44 #elif CONFIG_PS2SERIAL == 5
45 #define PSC_BASE MPC5XXX_PSC5
46 #elif CONFIG_PS2SERIAL == 6
47 #define PSC_BASE MPC5XXX_PSC6
48 #else
49 #error CONFIG_PS2SERIAL must be in 1 ... 6
50 #endif
51
52 #elif defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555)
53
54 #if CONFIG_PS2SERIAL == 1
55 #define COM_BASE (CFG_CCSRBAR+0x4500)
56 #elif CONFIG_PS2SERIAL == 2
57 #define COM_BASE (CFG_CCSRBAR+0x4600)
58 #else
59 #error CONFIG_PS2SERIAL must be in 1 ... 2
60 #endif
61
62 #endif /* CONFIG_MPC5xxx / CONFIG_MPC8540 / other */
63
64 static int      ps2ser_getc_hw(void);
65 static void     ps2ser_interrupt(void *dev_id);
66
67 extern struct   serial_state rs_table[]; /* in serial.c */
68 #if !defined(CONFIG_MPC5xxx) && !defined(CONFIG_MPC8540) && !defined(CONFIG_MPC8541) && !defined(CONFIG_MPC8555)
69 static struct   serial_state *state;
70 #endif
71
72 static u_char   ps2buf[PS2BUF_SIZE];
73 static atomic_t ps2buf_cnt;
74 static int      ps2buf_in_idx;
75 static int      ps2buf_out_idx;
76
77 #ifdef CONFIG_MPC5xxx
78 int ps2ser_init(void)
79 {
80         volatile struct mpc5xxx_psc *psc = (struct mpc5xxx_psc *)PSC_BASE;
81         unsigned long baseclk;
82         int div;
83
84         /* reset PSC */
85         psc->command = PSC_SEL_MODE_REG_1;
86
87         /* select clock sources */
88 #if defined(CONFIG_MGT5100)
89         psc->psc_clock_select = 0xdd00;
90         baseclk = (CFG_MPC5XXX_CLKIN + 16) / 32;
91 #elif defined(CONFIG_MPC5200)
92         psc->psc_clock_select = 0;
93         baseclk = (gd->ipb_clk + 16) / 32;
94 #endif
95
96         /* switch to UART mode */
97         psc->sicr = 0;
98
99         /* configure parity, bit length and so on */
100 #if defined(CONFIG_MGT5100)
101         psc->mode = PSC_MODE_ERR | PSC_MODE_8_BITS | PSC_MODE_PARNONE;
102 #elif defined(CONFIG_MPC5200)
103         psc->mode = PSC_MODE_8_BITS | PSC_MODE_PARNONE;
104 #endif
105         psc->mode = PSC_MODE_ONE_STOP;
106
107         /* set up UART divisor */
108         div = (baseclk + (PS2SER_BAUD/2)) / PS2SER_BAUD;
109         psc->ctur = (div >> 8) & 0xff;
110         psc->ctlr = div & 0xff;
111
112         /* disable all interrupts */
113         psc->psc_imr = 0;
114
115         /* reset and enable Rx/Tx */
116         psc->command = PSC_RST_RX;
117         psc->command = PSC_RST_TX;
118         psc->command = PSC_RX_ENABLE | PSC_TX_ENABLE;
119
120         return (0);
121 }
122
123 #elif defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555)
124 int ps2ser_init(void)
125 {
126         NS16550_t com_port = (NS16550_t)COM_BASE;
127
128         com_port->ier = 0x00;
129         com_port->lcr = LCR_BKSE | LCR_8N1;
130         com_port->dll = (CFG_NS16550_CLK / 16 / PS2SER_BAUD) & 0xff;
131         com_port->dlm = ((CFG_NS16550_CLK / 16 / PS2SER_BAUD) >> 8) & 0xff;
132         com_port->lcr = LCR_8N1;
133         com_port->mcr = (MCR_DTR | MCR_RTS);
134         com_port->fcr = (FCR_FIFO_EN | FCR_RXSR | FCR_TXSR);
135
136         return (0);
137 }
138
139 #else /* !CONFIG_MPC5xxx && !CONFIG_MPC8540 / other */
140
141 static inline unsigned int ps2ser_in(int offset)
142 {
143         return readb((unsigned long) state->iomem_base + offset);
144 }
145
146 static inline void ps2ser_out(int offset, int value)
147 {
148         writeb(value, (unsigned long) state->iomem_base + offset);
149 }
150
151 int ps2ser_init(void)
152 {
153         int quot;
154         unsigned cval;
155
156         state = rs_table + CONFIG_PS2SERIAL;
157
158         quot = state->baud_base / PS2SER_BAUD;
159         cval = 0x3; /* 8N1 - 8 data bits, no parity bits, 1 stop bit */
160
161           /* Set speed, enable interrupts, enable FIFO
162            */
163         ps2ser_out(UART_LCR, cval | UART_LCR_DLAB);
164         ps2ser_out(UART_DLL, quot & 0xff);
165         ps2ser_out(UART_DLM, quot >> 8);
166         ps2ser_out(UART_LCR, cval);
167         ps2ser_out(UART_IER, UART_IER_RDI);
168         ps2ser_out(UART_MCR, UART_MCR_OUT2 | UART_MCR_DTR | UART_MCR_RTS);
169         ps2ser_out(UART_FCR,
170             UART_FCR_ENABLE_FIFO | UART_FCR_CLEAR_RCVR | UART_FCR_CLEAR_XMIT);
171
172         /* If we read 0xff from the LSR, there is no UART here
173          */
174         if (ps2ser_in(UART_LSR) == 0xff) {
175                 printf ("ps2ser.c: no UART found\n");
176                 return -1;
177         }
178
179         irq_install_handler(state->irq, ps2ser_interrupt, NULL);
180
181         return 0;
182 }
183 #endif /* CONFIG_MPC5xxx / CONFIG_MPC8540 / other */
184
185 void ps2ser_putc(int chr)
186 {
187 #ifdef CONFIG_MPC5xxx
188         volatile struct mpc5xxx_psc *psc = (struct mpc5xxx_psc *)PSC_BASE;
189 #elif defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555)
190         NS16550_t com_port = (NS16550_t)COM_BASE;
191 #endif
192 #ifdef DEBUG
193         printf(">>>> 0x%02x\n", chr);
194 #endif
195
196 #ifdef CONFIG_MPC5xxx
197         while (!(psc->psc_status & PSC_SR_TXRDY));
198
199         psc->psc_buffer_8 = chr;
200 #elif defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555)
201         while ((com_port->lsr & LSR_THRE) == 0);
202         com_port->thr = chr;
203 #else
204         while (!(ps2ser_in(UART_LSR) & UART_LSR_THRE));
205
206         ps2ser_out(UART_TX, chr);
207 #endif
208 }
209
210 static int ps2ser_getc_hw(void)
211 {
212 #ifdef CONFIG_MPC5xxx
213         volatile struct mpc5xxx_psc *psc = (struct mpc5xxx_psc *)PSC_BASE;
214 #elif defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555)
215         NS16550_t com_port = (NS16550_t)COM_BASE;
216 #endif
217         int res = -1;
218
219 #ifdef CONFIG_MPC5xxx
220         if (psc->psc_status & PSC_SR_RXRDY) {
221                 res = (psc->psc_buffer_8);
222         }
223 #elif defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555)
224         if (com_port->lsr & LSR_DR) {
225                 res = com_port->rbr;
226         }
227 #else
228         if (ps2ser_in(UART_LSR) & UART_LSR_DR) {
229                 res = (ps2ser_in(UART_RX));
230         }
231 #endif
232
233         return res;
234 }
235
236 int ps2ser_getc(void)
237 {
238         volatile int chr;
239         int flags;
240
241 #ifdef DEBUG
242         printf("<< ");
243 #endif
244
245         flags = disable_interrupts();
246
247         do {
248                 if (atomic_read(&ps2buf_cnt) != 0) {
249                         chr = ps2buf[ps2buf_out_idx++];
250                         ps2buf_out_idx &= (PS2BUF_SIZE - 1);
251                         atomic_dec(&ps2buf_cnt);
252                 } else {
253                         chr = ps2ser_getc_hw();
254                 }
255         }
256         while (chr < 0);
257
258         if (flags) enable_interrupts();
259
260 #ifdef DEBUG
261         printf("0x%02x\n", chr);
262 #endif
263
264         return chr;
265 }
266
267 int ps2ser_check(void)
268 {
269         int flags;
270
271         flags = disable_interrupts();
272         ps2ser_interrupt(NULL);
273         if (flags) enable_interrupts();
274
275         return atomic_read(&ps2buf_cnt);
276 }
277
278 static void ps2ser_interrupt(void *dev_id)
279 {
280 #ifdef CONFIG_MPC5xxx
281         volatile struct mpc5xxx_psc *psc = (struct mpc5xxx_psc *)PSC_BASE;
282 #elif defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555)
283         NS16550_t com_port = (NS16550_t)COM_BASE;
284 #endif
285         int chr;
286         int status;
287
288         do {
289                 chr = ps2ser_getc_hw();
290 #ifdef CONFIG_MPC5xxx
291                 status = psc->psc_status;
292 #elif defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555)
293                 status = com_port->lsr;
294 #else
295                 status = ps2ser_in(UART_IIR);
296 #endif
297                 if (chr < 0) continue;
298
299                 if (atomic_read(&ps2buf_cnt) < PS2BUF_SIZE) {
300                         ps2buf[ps2buf_in_idx++] = chr;
301                         ps2buf_in_idx &= (PS2BUF_SIZE - 1);
302                         atomic_inc(&ps2buf_cnt);
303                 } else {
304                         printf ("ps2ser.c: buffer overflow\n");
305                 }
306 #ifdef CONFIG_MPC5xxx
307         } while (status & PSC_SR_RXRDY);
308 #elif defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555)
309         } while (status & LSR_DR);
310 #else
311         } while (status & UART_IIR_RDI);
312 #endif
313
314         if (atomic_read(&ps2buf_cnt)) {
315                 ps2mult_callback(atomic_read(&ps2buf_cnt));
316         }
317 }
318
319 #endif /* CONFIG_PS2SERIAL */