Merge branches 'release' and 'hp-cid' into release
[linux-2.6] / arch / m68k / atari / debug.c
1 /*
2  * linux/arch/m68k/atari/debug.c
3  *
4  * Atari debugging and serial console stuff
5  *
6  * Assembled of parts of former atari/config.c 97-12-18 by Roman Hodek
7  *
8  * This file is subject to the terms and conditions of the GNU General Public
9  * License.  See the file COPYING in the main directory of this archive
10  * for more details.
11  */
12
13 #include <linux/types.h>
14 #include <linux/tty.h>
15 #include <linux/console.h>
16 #include <linux/init.h>
17 #include <linux/delay.h>
18 #include <linux/module.h>
19
20 #include <asm/atarihw.h>
21 #include <asm/atariints.h>
22
23 /* Flag that Modem1 port is already initialized and used */
24 int atari_MFP_init_done;
25 EXPORT_SYMBOL(atari_MFP_init_done);
26
27 /* Flag that Modem1 port is already initialized and used */
28 int atari_SCC_init_done;
29 EXPORT_SYMBOL(atari_SCC_init_done);
30
31 /* Can be set somewhere, if a SCC master reset has already be done and should
32  * not be repeated; used by kgdb */
33 int atari_SCC_reset_done;
34 EXPORT_SYMBOL(atari_SCC_reset_done);
35
36 static struct console atari_console_driver = {
37         .name   = "debug",
38         .flags  = CON_PRINTBUFFER,
39         .index  = -1,
40 };
41
42
43 static inline void ata_mfp_out(char c)
44 {
45         while (!(mfp.trn_stat & 0x80))  /* wait for tx buf empty */
46                 barrier();
47         mfp.usart_dta = c;
48 }
49
50 void atari_mfp_console_write(struct console *co, const char *str,
51                              unsigned int count)
52 {
53         while (count--) {
54                 if (*str == '\n')
55                         ata_mfp_out('\r');
56                 ata_mfp_out(*str++);
57         }
58 }
59
60 static inline void ata_scc_out(char c)
61 {
62         do {
63                 MFPDELAY();
64         } while (!(scc.cha_b_ctrl & 0x04)); /* wait for tx buf empty */
65         MFPDELAY();
66         scc.cha_b_data = c;
67 }
68
69 void atari_scc_console_write(struct console *co, const char *str,
70                              unsigned int count)
71 {
72         while (count--) {
73                 if (*str == '\n')
74                         ata_scc_out('\r');
75                 ata_scc_out(*str++);
76         }
77 }
78
79 static inline void ata_midi_out(char c)
80 {
81         while (!(acia.mid_ctrl & ACIA_TDRE))    /* wait for tx buf empty */
82                 barrier();
83         acia.mid_data = c;
84 }
85
86 void atari_midi_console_write(struct console *co, const char *str,
87                               unsigned int count)
88 {
89         while (count--) {
90                 if (*str == '\n')
91                         ata_midi_out('\r');
92                 ata_midi_out(*str++);
93         }
94 }
95
96 static int ata_par_out(char c)
97 {
98         unsigned char tmp;
99         /* This a some-seconds timeout in case no printer is connected */
100         unsigned long i = loops_per_jiffy > 1 ? loops_per_jiffy : 10000000/HZ;
101
102         while ((mfp.par_dt_reg & 1) && --i) /* wait for BUSY == L */
103                 ;
104         if (!i)
105                 return 0;
106
107         sound_ym.rd_data_reg_sel = 15;  /* select port B */
108         sound_ym.wd_data = c;           /* put char onto port */
109         sound_ym.rd_data_reg_sel = 14;  /* select port A */
110         tmp = sound_ym.rd_data_reg_sel;
111         sound_ym.wd_data = tmp & ~0x20; /* set strobe L */
112         MFPDELAY();                     /* wait a bit */
113         sound_ym.wd_data = tmp | 0x20;  /* set strobe H */
114         return 1;
115 }
116
117 static void atari_par_console_write(struct console *co, const char *str,
118                                     unsigned int count)
119 {
120         static int printer_present = 1;
121
122         if (!printer_present)
123                 return;
124
125         while (count--) {
126                 if (*str == '\n') {
127                         if (!ata_par_out('\r')) {
128                                 printer_present = 0;
129                                 return;
130                         }
131                 }
132                 if (!ata_par_out(*str++)) {
133                         printer_present = 0;
134                         return;
135                 }
136         }
137 }
138
139 #ifdef CONFIG_SERIAL_CONSOLE
140 int atari_mfp_console_wait_key(struct console *co)
141 {
142         while (!(mfp.rcv_stat & 0x80))  /* wait for rx buf filled */
143                 barrier();
144         return mfp.usart_dta;
145 }
146
147 int atari_scc_console_wait_key(struct console *co)
148 {
149         do {
150                 MFPDELAY();
151         } while (!(scc.cha_b_ctrl & 0x01)); /* wait for rx buf filled */
152         MFPDELAY();
153         return scc.cha_b_data;
154 }
155
156 int atari_midi_console_wait_key(struct console *co)
157 {
158         while (!(acia.mid_ctrl & ACIA_RDRF)) /* wait for rx buf filled */
159                 barrier();
160         return acia.mid_data;
161 }
162 #endif
163
164 /*
165  * The following two functions do a quick'n'dirty initialization of the MFP or
166  * SCC serial ports. They're used by the debugging interface, kgdb, and the
167  * serial console code.
168  */
169 #ifndef CONFIG_SERIAL_CONSOLE
170 static void __init atari_init_mfp_port(int cflag)
171 #else
172 void atari_init_mfp_port(int cflag)
173 #endif
174 {
175         /*
176          * timer values for 1200...115200 bps; > 38400 select 110, 134, or 150
177          * bps, resp., and work only correct if there's a RSVE or RSSPEED
178          */
179         static int baud_table[9] = { 16, 11, 8, 4, 2, 1, 175, 143, 128 };
180         int baud = cflag & CBAUD;
181         int parity = (cflag & PARENB) ? ((cflag & PARODD) ? 0x04 : 0x06) : 0;
182         int csize = ((cflag & CSIZE) == CS7) ? 0x20 : 0x00;
183
184         if (cflag & CBAUDEX)
185                 baud += B38400;
186         if (baud < B1200 || baud > B38400+2)
187                 baud = B9600;           /* use default 9600bps for non-implemented rates */
188         baud -= B1200;                  /* baud_table[] starts at 1200bps */
189
190         mfp.trn_stat &= ~0x01;          /* disable TX */
191         mfp.usart_ctr = parity | csize | 0x88; /* 1:16 clk mode, 1 stop bit */
192         mfp.tim_ct_cd &= 0x70;          /* stop timer D */
193         mfp.tim_dt_d = baud_table[baud];
194         mfp.tim_ct_cd |= 0x01;          /* start timer D, 1:4 */
195         mfp.trn_stat |= 0x01;           /* enable TX */
196
197         atari_MFP_init_done = 1;
198 }
199
200 #define SCC_WRITE(reg, val)                             \
201         do {                                            \
202                 scc.cha_b_ctrl = (reg);                 \
203                 MFPDELAY();                             \
204                 scc.cha_b_ctrl = (val);                 \
205                 MFPDELAY();                             \
206         } while (0)
207
208 /* loops_per_jiffy isn't initialized yet, so we can't use udelay(). This does a
209  * delay of ~ 60us. */
210 #define LONG_DELAY()                                    \
211         do {                                            \
212                 int i;                                  \
213                 for (i = 100; i > 0; --i)               \
214                         MFPDELAY();                     \
215         } while (0)
216
217 #ifndef CONFIG_SERIAL_CONSOLE
218 static void __init atari_init_scc_port(int cflag)
219 #else
220 void atari_init_scc_port(int cflag)
221 #endif
222 {
223         extern int atari_SCC_reset_done;
224         static int clksrc_table[9] =
225                 /* reg 11: 0x50 = BRG, 0x00 = RTxC, 0x28 = TRxC */
226                 { 0x50, 0x50, 0x50, 0x50, 0x50, 0x50, 0x50, 0x00, 0x00 };
227         static int brgsrc_table[9] =
228                 /* reg 14: 0 = RTxC, 2 = PCLK */
229                 { 2, 2, 2, 2, 2, 2, 0, 2, 2 };
230         static int clkmode_table[9] =
231                 /* reg 4: 0x40 = x16, 0x80 = x32, 0xc0 = x64 */
232                 { 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0x40, 0xc0, 0x80 };
233         static int div_table[9] =
234                 /* reg12 (BRG low) */
235                 { 208, 138, 103, 50, 24, 11, 1, 0, 0 };
236
237         int baud = cflag & CBAUD;
238         int clksrc, clkmode, div, reg3, reg5;
239
240         if (cflag & CBAUDEX)
241                 baud += B38400;
242         if (baud < B1200 || baud > B38400+2)
243                 baud = B9600;           /* use default 9600bps for non-implemented rates */
244         baud -= B1200;                  /* tables starts at 1200bps */
245
246         clksrc  = clksrc_table[baud];
247         clkmode = clkmode_table[baud];
248         div     = div_table[baud];
249         if (ATARIHW_PRESENT(TT_MFP) && baud >= 6) {
250                 /* special treatment for TT, where rates >= 38400 are done via TRxC */
251                 clksrc = 0x28;          /* TRxC */
252                 clkmode = baud == 6 ? 0xc0 :
253                           baud == 7 ? 0x80 : /* really 76800bps */
254                                       0x40;  /* really 153600bps */
255                 div = 0;
256         }
257
258         reg3 = (cflag & CSIZE) == CS8 ? 0xc0 : 0x40;
259         reg5 = (cflag & CSIZE) == CS8 ? 0x60 : 0x20 | 0x82 /* assert DTR/RTS */;
260
261         (void)scc.cha_b_ctrl;           /* reset reg pointer */
262         SCC_WRITE(9, 0xc0);             /* reset */
263         LONG_DELAY();                   /* extra delay after WR9 access */
264         SCC_WRITE(4, (cflag & PARENB) ? ((cflag & PARODD) ? 0x01 : 0x03)
265                                       : 0 | 0x04 /* 1 stopbit */ | clkmode);
266         SCC_WRITE(3, reg3);
267         SCC_WRITE(5, reg5);
268         SCC_WRITE(9, 0);                /* no interrupts */
269         LONG_DELAY();                   /* extra delay after WR9 access */
270         SCC_WRITE(10, 0);               /* NRZ mode */
271         SCC_WRITE(11, clksrc);          /* main clock source */
272         SCC_WRITE(12, div);             /* BRG value */
273         SCC_WRITE(13, 0);               /* BRG high byte */
274         SCC_WRITE(14, brgsrc_table[baud]);
275         SCC_WRITE(14, brgsrc_table[baud] | (div ? 1 : 0));
276         SCC_WRITE(3, reg3 | 1);
277         SCC_WRITE(5, reg5 | 8);
278
279         atari_SCC_reset_done = 1;
280         atari_SCC_init_done = 1;
281 }
282
283 #ifndef CONFIG_SERIAL_CONSOLE
284 static void __init atari_init_midi_port(int cflag)
285 #else
286 void atari_init_midi_port(int cflag)
287 #endif
288 {
289         int baud = cflag & CBAUD;
290         int csize = ((cflag & CSIZE) == CS8) ? 0x10 : 0x00;
291         /* warning 7N1 isn't possible! (instead 7O2 is used...) */
292         int parity = (cflag & PARENB) ? ((cflag & PARODD) ? 0x0c : 0x08) : 0x04;
293         int div;
294
295         /* 4800 selects 7812.5, 115200 selects 500000, all other (incl. 9600 as
296          * default) the standard MIDI speed 31250. */
297         if (cflag & CBAUDEX)
298                 baud += B38400;
299         if (baud == B4800)
300                 div = ACIA_DIV64;       /* really 7812.5 bps */
301         else if (baud == B38400+2 /* 115200 */)
302                 div = ACIA_DIV1;        /* really 500 kbps (does that work??) */
303         else
304                 div = ACIA_DIV16;       /* 31250 bps, standard for MIDI */
305
306         /* RTS low, ints disabled */
307         acia.mid_ctrl = div | csize | parity |
308                     ((atari_switches & ATARI_SWITCH_MIDI) ?
309                      ACIA_RHTID : ACIA_RLTID);
310 }
311
312 static int __init atari_debug_setup(char *arg)
313 {
314         if (!MACH_IS_ATARI)
315                 return 0;
316
317         if (!strcmp(arg, "ser"))
318                 /* defaults to ser2 for a Falcon and ser1 otherwise */
319                 arg = MACH_IS_FALCON ? "ser2" : "ser1";
320
321         if (!strcmp(arg, "ser1")) {
322                 /* ST-MFP Modem1 serial port */
323                 atari_init_mfp_port(B9600|CS8);
324                 atari_console_driver.write = atari_mfp_console_write;
325         } else if (!strcmp(arg, "ser2")) {
326                 /* SCC Modem2 serial port */
327                 atari_init_scc_port(B9600|CS8);
328                 atari_console_driver.write = atari_scc_console_write;
329         } else if (!strcmp(arg, "midi")) {
330                 /* MIDI port */
331                 atari_init_midi_port(B9600|CS8);
332                 atari_console_driver.write = atari_midi_console_write;
333         } else if (!strcmp(arg, "par")) {
334                 /* parallel printer */
335                 atari_turnoff_irq(IRQ_MFP_BUSY); /* avoid ints */
336                 sound_ym.rd_data_reg_sel = 7;   /* select mixer control */
337                 sound_ym.wd_data = 0xff;        /* sound off, ports are output */
338                 sound_ym.rd_data_reg_sel = 15;  /* select port B */
339                 sound_ym.wd_data = 0;           /* no char */
340                 sound_ym.rd_data_reg_sel = 14;  /* select port A */
341                 sound_ym.wd_data = sound_ym.rd_data_reg_sel | 0x20; /* strobe H */
342                 atari_console_driver.write = atari_par_console_write;
343         }
344         if (atari_console_driver.write)
345                 register_console(&atari_console_driver);
346
347         return 0;
348 }
349
350 early_param("debug", atari_debug_setup);