Automatic merge of 'for-linus' branch from
[linux-2.6] / drivers / macintosh / via-macii.c
1 /*
2  * Device driver for the via ADB on (many) Mac II-class machines
3  *
4  * Based on the original ADB keyboard handler Copyright (c) 1997 Alan Cox
5  * Also derived from code Copyright (C) 1996 Paul Mackerras.
6  *
7  * With various updates provided over the years by Michael Schmitz,
8  * Guideo Koerber and others.
9  *
10  * Rewrite for Unified ADB by Joshua M. Thompson (funaho@jurai.org)
11  *
12  * 1999-08-02 (jmt) - Initial rewrite for Unified ADB.
13  * 2000-03-29 Tony Mantler <tonym@mac.linux-m68k.org>
14  *                              - Big overhaul, should actually work now.
15  */
16  
17 #include <stdarg.h>
18 #include <linux/types.h>
19 #include <linux/errno.h>
20 #include <linux/kernel.h>
21 #include <linux/delay.h>
22 #include <linux/sched.h>
23 #include <linux/adb.h>
24 #include <linux/interrupt.h>
25 #include <linux/init.h>
26 #include <asm/macintosh.h>
27 #include <asm/macints.h>
28 #include <asm/machw.h>
29 #include <asm/mac_via.h>
30 #include <asm/io.h>
31 #include <asm/system.h>
32
33 static volatile unsigned char *via;
34
35 /* VIA registers - spaced 0x200 bytes apart */
36 #define RS              0x200           /* skip between registers */
37 #define B               0               /* B-side data */
38 #define A               RS              /* A-side data */
39 #define DIRB            (2*RS)          /* B-side direction (1=output) */
40 #define DIRA            (3*RS)          /* A-side direction (1=output) */
41 #define T1CL            (4*RS)          /* Timer 1 ctr/latch (low 8 bits) */
42 #define T1CH            (5*RS)          /* Timer 1 counter (high 8 bits) */
43 #define T1LL            (6*RS)          /* Timer 1 latch (low 8 bits) */
44 #define T1LH            (7*RS)          /* Timer 1 latch (high 8 bits) */
45 #define T2CL            (8*RS)          /* Timer 2 ctr/latch (low 8 bits) */
46 #define T2CH            (9*RS)          /* Timer 2 counter (high 8 bits) */
47 #define SR              (10*RS)         /* Shift register */
48 #define ACR             (11*RS)         /* Auxiliary control register */
49 #define PCR             (12*RS)         /* Peripheral control register */
50 #define IFR             (13*RS)         /* Interrupt flag register */
51 #define IER             (14*RS)         /* Interrupt enable register */
52 #define ANH             (15*RS)         /* A-side data, no handshake */
53
54 /* Bits in B data register: all active low */
55 #define TREQ            0x08            /* Transfer request (input) */
56 #define TACK            0x10            /* Transfer acknowledge (output) */
57 #define TIP             0x20            /* Transfer in progress (output) */
58 #define ST_MASK         0x30            /* mask for selecting ADB state bits */
59
60 /* Bits in ACR */
61 #define SR_CTRL         0x1c            /* Shift register control bits */
62 #define SR_EXT          0x0c            /* Shift on external clock */
63 #define SR_OUT          0x10            /* Shift out if 1 */
64
65 /* Bits in IFR and IER */
66 #define IER_SET         0x80            /* set bits in IER */
67 #define IER_CLR         0               /* clear bits in IER */
68 #define SR_INT          0x04            /* Shift register full/empty */
69 #define SR_DATA         0x08            /* Shift register data */
70 #define SR_CLOCK        0x10            /* Shift register clock */
71
72 /* ADB transaction states according to GMHW */
73 #define ST_CMD          0x00            /* ADB state: command byte */
74 #define ST_EVEN         0x10            /* ADB state: even data byte */
75 #define ST_ODD          0x20            /* ADB state: odd data byte */
76 #define ST_IDLE         0x30            /* ADB state: idle, nothing to send */
77
78 static int  macii_init_via(void);
79 static void macii_start(void);
80 static irqreturn_t macii_interrupt(int irq, void *arg, struct pt_regs *regs);
81 static void macii_retransmit(int);
82 static void macii_queue_poll(void);
83
84 static int macii_probe(void);
85 static int macii_init(void);
86 static int macii_send_request(struct adb_request *req, int sync);
87 static int macii_write(struct adb_request *req);
88 static int macii_autopoll(int devs);
89 static void macii_poll(void);
90 static int macii_reset_bus(void);
91
92 struct adb_driver via_macii_driver = {
93         "Mac II",
94         macii_probe,
95         macii_init,
96         macii_send_request,
97         macii_autopoll,
98         macii_poll,
99         macii_reset_bus
100 };
101
102 static enum macii_state {
103         idle,
104         sending,
105         reading,
106         read_done,
107         awaiting_reply
108 } macii_state;
109
110 static int need_poll    = 0;
111 static int command_byte = 0;
112 static int last_reply   = 0;
113 static int last_active  = 0;
114
115 static struct adb_request *current_req;
116 static struct adb_request *last_req;
117 static struct adb_request *retry_req;
118 static unsigned char reply_buf[16];
119 static unsigned char *reply_ptr;
120 static int reply_len;
121 static int reading_reply;
122 static int data_index;
123 static int first_byte;
124 static int prefix_len;
125 static int status = ST_IDLE|TREQ;
126 static int last_status;
127 static int driver_running = 0;
128
129 /* debug level 10 required for ADB logging (should be && debug_adb, ideally) */
130
131 /* Check for MacII style ADB */
132 static int macii_probe(void)
133 {
134         if (macintosh_config->adb_type != MAC_ADB_II) return -ENODEV;
135
136         via = via1;
137
138         printk("adb: Mac II ADB Driver v1.0 for Unified ADB\n");
139         return 0;
140 }
141
142 /* Initialize the driver */
143 int macii_init(void)
144 {
145         unsigned long flags;
146         int err;
147         
148         local_irq_save(flags);
149         
150         err = macii_init_via();
151         if (err) return err;
152
153         err = request_irq(IRQ_MAC_ADB, macii_interrupt, IRQ_FLG_LOCK, "ADB",
154                           macii_interrupt);
155         if (err) return err;
156
157         macii_state = idle;
158         local_irq_restore(flags);
159         return 0;
160 }
161
162 /* initialize the hardware */   
163 static int macii_init_via(void)
164 {
165         unsigned char x;
166
167         /* Set the lines up. We want TREQ as input TACK|TIP as output */
168         via[DIRB] = (via[DIRB] | TACK | TIP) & ~TREQ;
169
170         /* Set up state: idle */
171         via[B] |= ST_IDLE;
172         last_status = via[B] & (ST_MASK|TREQ);
173
174         /* Shift register on input */
175         via[ACR] = (via[ACR] & ~SR_CTRL) | SR_EXT;
176
177         /* Wipe any pending data and int */
178         x = via[SR];
179
180         return 0;
181 }
182
183 /* Send an ADB poll (Talk Register 0 command, tagged on the front of the request queue) */
184 static void macii_queue_poll(void)
185 {
186         static int device = 0;
187         static int in_poll=0;
188         static struct adb_request req;
189         unsigned long flags;
190         
191         if (in_poll) printk("macii_queue_poll: double poll!\n");
192
193         in_poll++;
194         if (++device > 15) device = 1;
195
196         adb_request(&req, NULL, ADBREQ_REPLY|ADBREQ_NOSEND, 1,
197                     ADB_READREG(device, 0));
198
199         local_irq_save(flags);
200
201         req.next = current_req;
202         current_req = &req;
203
204         local_irq_restore(flags);
205         macii_start();
206         in_poll--;
207 }
208
209 /* Send an ADB retransmit (Talk, appended to the request queue) */
210 static void macii_retransmit(int device)
211 {
212         static int in_retransmit = 0;
213         static struct adb_request rt;
214         unsigned long flags;
215         
216         if (in_retransmit) printk("macii_retransmit: double retransmit!\n");
217
218         in_retransmit++;
219
220         adb_request(&rt, NULL, ADBREQ_REPLY|ADBREQ_NOSEND, 1,
221                     ADB_READREG(device, 0));
222
223         local_irq_save(flags);
224
225         if (current_req != NULL) {
226                 last_req->next = &rt;
227                 last_req = &rt;
228         } else {
229                 current_req = &rt;
230                 last_req = &rt;
231         }
232
233         if (macii_state == idle) macii_start();
234
235         local_irq_restore(flags);
236         in_retransmit--;
237 }
238
239 /* Send an ADB request; if sync, poll out the reply 'till it's done */
240 static int macii_send_request(struct adb_request *req, int sync)
241 {
242         int i;
243
244         i = macii_write(req);
245         if (i) return i;
246
247         if (sync) {
248                 while (!req->complete) macii_poll();
249         }
250         return 0;
251 }
252
253 /* Send an ADB request */
254 static int macii_write(struct adb_request *req)
255 {
256         unsigned long flags;
257
258         if (req->nbytes < 2 || req->data[0] != ADB_PACKET || req->nbytes > 15) {
259                 req->complete = 1;
260                 return -EINVAL;
261         }
262         
263         req->next = 0;
264         req->sent = 0;
265         req->complete = 0;
266         req->reply_len = 0;
267
268         local_irq_save(flags);
269
270         if (current_req != NULL) {
271                 last_req->next = req;
272                 last_req = req;
273         } else {
274                 current_req = req;
275                 last_req = req;
276                 if (macii_state == idle) macii_start();
277         }
278
279         local_irq_restore(flags);
280         return 0;
281 }
282
283 /* Start auto-polling */
284 static int macii_autopoll(int devs)
285 {
286         /* Just ping a random default address */
287         if (!(current_req || retry_req))
288                 macii_retransmit( (last_active < 16 && last_active > 0) ? last_active : 3);
289         return 0;
290 }
291
292 /* Prod the chip without interrupts */
293 static void macii_poll(void)
294 {
295         unsigned long flags;
296
297         local_irq_save(flags);
298         if (via[IFR] & SR_INT) macii_interrupt(0, 0, 0);
299         local_irq_restore(flags);
300 }
301
302 /* Reset the bus */
303 static int macii_reset_bus(void)
304 {
305         static struct adb_request req;
306         
307         /* Command = 0, Address = ignored */
308         adb_request(&req, NULL, 0, 1, ADB_BUSRESET);
309
310         return 0;
311 }
312
313 /* Start sending ADB packet */
314 static void macii_start(void)
315 {
316         unsigned long flags;
317         struct adb_request *req;
318
319         req = current_req;
320         if (!req) return;
321         
322         /* assert macii_state == idle */
323         if (macii_state != idle) {
324                 printk("macii_start: called while driver busy (%p %x %x)!\n",
325                         req, macii_state, (uint) via1[B] & (ST_MASK|TREQ));
326                 return;
327         }
328
329         local_irq_save(flags);
330         
331         /* 
332          * IRQ signaled ?? (means ADB controller wants to send, or might 
333          * be end of packet if we were reading)
334          */
335 #if 0 /* FIXME: This is broke broke broke, for some reason */
336         if ((via[B] & TREQ) == 0) {
337                 printk("macii_start: weird poll stuff. huh?\n");
338                 /*
339                  *      FIXME - we need to restart this on a timer
340                  *      or a collision at boot hangs us.
341                  *      Never set macii_state to idle here, or macii_start 
342                  *      won't be called again from send_request!
343                  *      (need to re-check other cases ...)
344                  */
345                 /*
346                  * if the interrupt handler set the need_poll
347                  * flag, it's hopefully a SRQ poll or re-Talk
348                  * so we try to send here anyway
349                  */
350                 if (!need_poll) {
351                         if (console_loglevel == 10)
352                                 printk("macii_start: device busy - retry %p state %d status %x!\n", 
353                                         req, macii_state,
354                                         (uint) via[B] & (ST_MASK|TREQ));
355                         retry_req = req;
356                         /* set ADB status here ? */
357                         local_irq_restore(flags);
358                         return;
359                 } else {
360                         need_poll = 0;
361                 }
362         }
363 #endif
364         /*
365          * Another retry pending? (sanity check)
366          */
367         if (retry_req) {
368                 retry_req = NULL;
369         }
370
371         /* Now send it. Be careful though, that first byte of the request */
372         /* is actually ADB_PACKET; the real data begins at index 1!       */
373         
374         /* store command byte */
375         command_byte = req->data[1];
376         /* Output mode */
377         via[ACR] |= SR_OUT;
378         /* Load data */
379         via[SR] = req->data[1];
380         /* set ADB state to 'command' */
381         via[B] = (via[B] & ~ST_MASK) | ST_CMD;
382
383         macii_state = sending;
384         data_index = 2;
385
386         local_irq_restore(flags);
387 }
388
389 /*
390  * The notorious ADB interrupt handler - does all of the protocol handling, 
391  * except for starting new send operations. Relies heavily on the ADB 
392  * controller sending and receiving data, thereby generating SR interrupts
393  * for us. This means there has to be always activity on the ADB bus, otherwise
394  * the whole process dies and has to be re-kicked by sending TALK requests ...
395  * CUDA-based Macs seem to solve this with the autopoll option, for MacII-type
396  * ADB the problem isn't solved yet (retransmit of the latest active TALK seems
397  * a good choice; either on timeout or on a timer interrupt).
398  *
399  * The basic ADB state machine was left unchanged from the original MacII code
400  * by Alan Cox, which was based on the CUDA driver for PowerMac. 
401  * The syntax of the ADB status lines seems to be totally different on MacII, 
402  * though. MacII uses the states Command -> Even -> Odd -> Even ->...-> Idle for
403  * sending, and Idle -> Even -> Odd -> Even ->...-> Idle for receiving. Start 
404  * and end of a receive packet are signaled by asserting /IRQ on the interrupt
405  * line. Timeouts are signaled by a sequence of 4 0xFF, with /IRQ asserted on 
406  * every other byte. SRQ is probably signaled by 3 or more 0xFF tacked on the 
407  * end of a packet. (Thanks to Guido Koerber for eavesdropping on the ADB 
408  * protocol with a logic analyzer!!)
409  *
410  * Note: As of 21/10/97, the MacII ADB part works including timeout detection
411  * and retransmit (Talk to the last active device).
412  */
413 static irqreturn_t macii_interrupt(int irq, void *arg, struct pt_regs *regs)
414 {
415         int x, adbdir;
416         unsigned long flags;
417         struct adb_request *req;
418
419         last_status = status;
420
421         /* prevent races due to SCSI enabling ints */
422         local_irq_save(flags);
423
424         if (driver_running) {
425                 local_irq_restore(flags);
426                 return IRQ_NONE;
427         }
428
429         driver_running = 1;
430         
431         status = via[B] & (ST_MASK|TREQ);
432         adbdir = via[ACR] & SR_OUT;
433
434         switch (macii_state) {
435                 case idle:
436                         x = via[SR];
437                         first_byte = x;
438                         /* set ADB state = even for first data byte */
439                         via[B] = (via[B] & ~ST_MASK) | ST_EVEN;
440
441                         reply_buf[0] = first_byte; /* was command_byte?? */
442                         reply_ptr = reply_buf + 1;
443                         reply_len = 1;
444                         prefix_len = 1;
445                         reading_reply = 0;
446                         
447                         macii_state = reading;
448                         break;
449
450                 case awaiting_reply:
451                         /* handshake etc. for II ?? */
452                         x = via[SR];
453                         first_byte = x;
454                         /* set ADB state = even for first data byte */
455                         via[B] = (via[B] & ~ST_MASK) | ST_EVEN;
456
457                         current_req->reply[0] = first_byte;
458                         reply_ptr = current_req->reply + 1;
459                         reply_len = 1;
460                         prefix_len = 1;
461                         reading_reply = 1;
462
463                         macii_state = reading;                  
464                         break;
465
466                 case sending:
467                         req = current_req;
468                         if (data_index >= req->nbytes) {
469                                 /* print an error message if a listen command has no data */
470                                 if (((command_byte & 0x0C) == 0x08)
471                                  /* && (console_loglevel == 10) */
472                                     && (data_index == 2))
473                                         printk("MacII ADB: listen command with no data: %x!\n", 
474                                                 command_byte);
475                                 /* reset to shift in */
476                                 via[ACR] &= ~SR_OUT;
477                                 x = via[SR];
478                                 /* set ADB state idle - might get SRQ */
479                                 via[B] = (via[B] & ~ST_MASK) | ST_IDLE;
480
481                                 req->sent = 1;
482
483                                 if (req->reply_expected) {
484                                         macii_state = awaiting_reply;
485                                 } else {
486                                         req->complete = 1;
487                                         current_req = req->next;
488                                         if (req->done) (*req->done)(req);
489                                         macii_state = idle;
490                                         if (current_req || retry_req)
491                                                 macii_start();
492                                         else
493                                                 macii_retransmit((command_byte & 0xF0) >> 4);
494                                 }
495                         } else {
496                                 via[SR] = req->data[data_index++];
497
498                                 if ( (via[B] & ST_MASK) == ST_CMD ) {
499                                         /* just sent the command byte, set to EVEN */
500                                         via[B] = (via[B] & ~ST_MASK) | ST_EVEN;
501                                 } else {
502                                         /* invert state bits, toggle ODD/EVEN */
503                                         via[B] ^= ST_MASK;
504                                 }
505                         }
506                         break;
507
508                 case reading:
509
510                         /* timeout / SRQ handling for II hw */
511                         if( (first_byte == 0xFF && (reply_len-prefix_len)==2 
512                              && memcmp(reply_ptr-2,"\xFF\xFF",2)==0) || 
513                             ((reply_len-prefix_len)==3 
514                              && memcmp(reply_ptr-3,"\xFF\xFF\xFF",3)==0))
515                         {
516                                 /*
517                                  * possible timeout (in fact, most probably a 
518                                  * timeout, since SRQ can't be signaled without
519                                  * transfer on the bus).
520                                  * The last three bytes seen were FF, together 
521                                  * with the starting byte (in case we started
522                                  * on 'idle' or 'awaiting_reply') this probably
523                                  * makes four. So this is mostl likely #5!
524                                  * The timeout signal is a pattern 1 0 1 0 0..
525                                  * on /INT, meaning we missed it :-(
526                                  */
527                                 x = via[SR];
528                                 if (x != 0xFF) printk("MacII ADB: mistaken timeout/SRQ!\n");
529
530                                 if ((status & TREQ) == (last_status & TREQ)) {
531                                         /* Not a timeout. Unsolicited SRQ? weird. */
532                                         /* Terminate the SRQ packet and poll */
533                                         need_poll = 1;
534                                 }
535                                 /* There's no packet to get, so reply is blank */
536                                 via[B] ^= ST_MASK;
537                                 reply_ptr -= (reply_len-prefix_len);
538                                 reply_len = prefix_len;
539                                 macii_state = read_done;
540                                 break;
541                         } /* end timeout / SRQ handling for II hw. */
542
543                         if((reply_len-prefix_len)>3
544                                 && memcmp(reply_ptr-3,"\xFF\xFF\xFF",3)==0)
545                         {
546                                 /* SRQ tacked on data packet */
547                                 /* Terminate the packet (SRQ never ends) */
548                                 x = via[SR];
549                                 macii_state = read_done;
550                                 reply_len -= 3;
551                                 reply_ptr -= 3;
552                                 need_poll = 1;
553                                 /* need to continue; next byte not seen else */
554                         } else {
555                                 /* Sanity check */
556                                 if (reply_len > 15) reply_len = 0;
557                                 /* read byte */
558                                 x = via[SR];
559                                 *reply_ptr = x;
560                                 reply_ptr++;
561                                 reply_len++;
562                         }
563                         /* The usual handshake ... */
564
565                         /*
566                          * NetBSD hints that the next to last byte 
567                          * is sent with IRQ !! 
568                          * Guido found out it's the last one (0x0),
569                          * but IRQ should be asserted already.
570                          * Problem with timeout detection: First
571                          * transition to /IRQ might be second 
572                          * byte of timeout packet! 
573                          * Timeouts are signaled by 4x FF.
574                          */
575                         if (((status & TREQ) == 0) && (x == 0x00)) { /* != 0xFF */
576                                 /* invert state bits, toggle ODD/EVEN */
577                                 via[B] ^= ST_MASK;
578
579                                 /* adjust packet length */
580                                 reply_len--;
581                                 reply_ptr--;
582                                 macii_state = read_done;
583                         } else {
584                                 /* not caught: ST_CMD */
585                                 /* required for re-entry 'reading'! */
586                                 if ((status & ST_MASK) == ST_IDLE) {
587                                         /* (in)sanity check - set even */
588                                         via[B] = (via[B] & ~ST_MASK) | ST_EVEN;
589                                 } else {
590                                         /* invert state bits */
591                                         via[B] ^= ST_MASK;
592                                 }
593                         }
594                         break;
595
596                 case read_done:
597                         x = via[SR];
598                         if (reading_reply) {
599                                 req = current_req;
600                                 req->reply_len = reply_ptr - req->reply;
601                                 req->complete = 1;
602                                 current_req = req->next;
603                                 if (req->done) (*req->done)(req);
604                         } else {
605                                 adb_input(reply_buf, reply_ptr - reply_buf,
606                                           regs, 0);
607                         }
608
609                         /*
610                          * remember this device ID; it's the latest we got a 
611                          * reply from!
612                          */
613                         last_reply = command_byte;
614                         last_active = (command_byte & 0xF0) >> 4;
615
616                         /* SRQ seen before, initiate poll now */
617                         if (need_poll) {
618                                 macii_state = idle;
619                                 macii_queue_poll();
620                                 need_poll = 0;
621                                 break;
622                         }
623                         
624                         /* set ADB state to idle */
625                         via[B] = (via[B] & ~ST_MASK) | ST_IDLE;
626                         
627                         /* /IRQ seen, so the ADB controller has data for us */
628                         if ((via[B] & TREQ) != 0) {
629                                 macii_state = reading;
630
631                                 reply_buf[0] = command_byte;
632                                 reply_ptr = reply_buf + 1;
633                                 reply_len = 1;
634                                 prefix_len = 1;
635                                 reading_reply = 0;
636                         } else {
637                                 /* no IRQ, send next packet or wait */
638                                 macii_state = idle;
639                                 if (current_req)
640                                         macii_start();
641                                 else
642                                         macii_retransmit(last_active);
643                         }
644                         break;
645
646                 default:
647                 break;
648         }
649         /* reset mutex and interrupts */
650         driver_running = 0;
651         local_irq_restore(flags);
652         return IRQ_HANDLED;
653 }