Merge branch 'atmel'
[linux-2.6] / drivers / char / lcd.c
1 /*
2  * LCD, LED and Button interface for Cobalt
3  *
4  * This file is subject to the terms and conditions of the GNU General Public
5  * License.  See the file "COPYING" in the main directory of this archive
6  * for more details.
7  *
8  * Copyright (C) 1996, 1997 by Andrew Bose
9  *
10  * Linux kernel version history:
11  *       March 2001: Ported from 2.0.34  by Liam Davies
12  *
13  */
14
15 #define RTC_IO_EXTENT   0x10    /*Only really two ports, but... */
16
17 #include <linux/config.h>
18 #include <linux/types.h>
19 #include <linux/errno.h>
20 #include <linux/miscdevice.h>
21 #include <linux/slab.h>
22 #include <linux/ioport.h>
23 #include <linux/fcntl.h>
24 #include <linux/mc146818rtc.h>
25 #include <linux/netdevice.h>
26 #include <linux/sched.h>
27 #include <linux/delay.h>
28
29 #include <asm/io.h>
30 #include <asm/uaccess.h>
31 #include <asm/system.h>
32 #include <linux/delay.h>
33
34 #include "lcd.h"
35
36 static DEFINE_SPINLOCK(lcd_lock);
37
38 static int lcd_ioctl(struct inode *inode, struct file *file,
39                      unsigned int cmd, unsigned long arg);
40
41 static unsigned int lcd_present = 1;
42
43 /* used in arch/mips/cobalt/reset.c */
44 int led_state = 0;
45
46 #if defined(CONFIG_TULIP) && 0
47
48 #define MAX_INTERFACES  8
49 static linkcheck_func_t linkcheck_callbacks[MAX_INTERFACES];
50 static void *linkcheck_cookies[MAX_INTERFACES];
51
52 int lcd_register_linkcheck_func(int iface_num, void *func, void *cookie)
53 {
54         if (iface_num < 0 ||
55             iface_num >= MAX_INTERFACES ||
56             linkcheck_callbacks[iface_num] != NULL)
57                 return -1;
58         linkcheck_callbacks[iface_num] = (linkcheck_func_t) func;
59         linkcheck_cookies[iface_num] = cookie;
60         return 0;
61 }
62 #endif
63
64 static int lcd_ioctl(struct inode *inode, struct file *file,
65                      unsigned int cmd, unsigned long arg)
66 {
67         struct lcd_display button_display;
68         unsigned long address, a;
69
70         switch (cmd) {
71         case LCD_On:
72                 udelay(150);
73                 BusyCheck();
74                 LCDWriteInst(0x0F);
75                 break;
76
77         case LCD_Off:
78                 udelay(150);
79                 BusyCheck();
80                 LCDWriteInst(0x08);
81                 break;
82
83         case LCD_Reset:
84                 udelay(150);
85                 LCDWriteInst(0x3F);
86                 udelay(150);
87                 LCDWriteInst(0x3F);
88                 udelay(150);
89                 LCDWriteInst(0x3F);
90                 udelay(150);
91                 LCDWriteInst(0x3F);
92                 udelay(150);
93                 LCDWriteInst(0x01);
94                 udelay(150);
95                 LCDWriteInst(0x06);
96                 break;
97
98         case LCD_Clear:
99                 udelay(150);
100                 BusyCheck();
101                 LCDWriteInst(0x01);
102                 break;
103
104         case LCD_Cursor_Left:
105                 udelay(150);
106                 BusyCheck();
107                 LCDWriteInst(0x10);
108                 break;
109
110         case LCD_Cursor_Right:
111                 udelay(150);
112                 BusyCheck();
113                 LCDWriteInst(0x14);
114                 break;
115
116         case LCD_Cursor_Off:
117                 udelay(150);
118                 BusyCheck();
119                 LCDWriteInst(0x0C);
120                 break;
121
122         case LCD_Cursor_On:
123                 udelay(150);
124                 BusyCheck();
125                 LCDWriteInst(0x0F);
126                 break;
127
128         case LCD_Blink_Off:
129                 udelay(150);
130                 BusyCheck();
131                 LCDWriteInst(0x0E);
132                 break;
133
134         case LCD_Get_Cursor_Pos:{
135                         struct lcd_display display;
136
137                         udelay(150);
138                         BusyCheck();
139                         display.cursor_address = (LCDReadInst);
140                         display.cursor_address =
141                             (display.cursor_address & 0x07F);
142                         if (copy_to_user
143                             ((struct lcd_display *) arg, &display,
144                              sizeof(struct lcd_display)))
145                                 return -EFAULT;
146
147                         break;
148                 }
149
150
151         case LCD_Set_Cursor_Pos:{
152                         struct lcd_display display;
153
154                         if (copy_from_user
155                             (&display, (struct lcd_display *) arg,
156                              sizeof(struct lcd_display)))
157                                 return -EFAULT;
158
159                         a = (display.cursor_address | kLCD_Addr);
160
161                         udelay(150);
162                         BusyCheck();
163                         LCDWriteInst(a);
164
165                         break;
166                 }
167
168         case LCD_Get_Cursor:{
169                         struct lcd_display display;
170
171                         udelay(150);
172                         BusyCheck();
173                         display.character = LCDReadData;
174
175                         if (copy_to_user
176                             ((struct lcd_display *) arg, &display,
177                              sizeof(struct lcd_display)))
178                                 return -EFAULT;
179                         udelay(150);
180                         BusyCheck();
181                         LCDWriteInst(0x10);
182
183                         break;
184                 }
185
186         case LCD_Set_Cursor:{
187                         struct lcd_display display;
188
189                         if (copy_from_user
190                             (&display, (struct lcd_display *) arg,
191                              sizeof(struct lcd_display)))
192                                 return -EFAULT;
193
194                         udelay(150);
195                         BusyCheck();
196                         LCDWriteData(display.character);
197                         udelay(150);
198                         BusyCheck();
199                         LCDWriteInst(0x10);
200
201                         break;
202                 }
203
204
205         case LCD_Disp_Left:
206                 udelay(150);
207                 BusyCheck();
208                 LCDWriteInst(0x18);
209                 break;
210
211         case LCD_Disp_Right:
212                 udelay(150);
213                 BusyCheck();
214                 LCDWriteInst(0x1C);
215                 break;
216
217         case LCD_Home:
218                 udelay(150);
219                 BusyCheck();
220                 LCDWriteInst(0x02);
221                 break;
222
223         case LCD_Write:{
224                         struct lcd_display display;
225                         unsigned int index;
226
227
228                         if (copy_from_user
229                             (&display, (struct lcd_display *) arg,
230                              sizeof(struct lcd_display)))
231                                 return -EFAULT;
232
233                         udelay(150);
234                         BusyCheck();
235                         LCDWriteInst(0x80);
236                         udelay(150);
237                         BusyCheck();
238
239                         for (index = 0; index < (display.size1); index++) {
240                                 udelay(150);
241                                 BusyCheck();
242                                 LCDWriteData(display.line1[index]);
243                                 BusyCheck();
244                         }
245
246                         udelay(150);
247                         BusyCheck();
248                         LCDWriteInst(0xC0);
249                         udelay(150);
250                         BusyCheck();
251                         for (index = 0; index < (display.size2); index++) {
252                                 udelay(150);
253                                 BusyCheck();
254                                 LCDWriteData(display.line2[index]);
255                         }
256
257                         break;
258                 }
259
260         case LCD_Read:{
261                         struct lcd_display display;
262
263                         BusyCheck();
264                         for (address = kDD_R00; address <= kDD_R01;
265                              address++) {
266                                 a = (address | kLCD_Addr);
267
268                                 udelay(150);
269                                 BusyCheck();
270                                 LCDWriteInst(a);
271                                 udelay(150);
272                                 BusyCheck();
273                                 display.line1[address] = LCDReadData;
274                         }
275
276                         display.line1[0x27] = '\0';
277
278                         for (address = kDD_R10; address <= kDD_R11;
279                              address++) {
280                                 a = (address | kLCD_Addr);
281
282                                 udelay(150);
283                                 BusyCheck();
284                                 LCDWriteInst(a);
285
286                                 udelay(150);
287                                 BusyCheck();
288                                 display.line2[address - 0x40] =
289                                     LCDReadData;
290                         }
291
292                         display.line2[0x27] = '\0';
293
294                         if (copy_to_user
295                             ((struct lcd_display *) arg, &display,
296                              sizeof(struct lcd_display)))
297                                 return -EFAULT;
298                         break;
299                 }
300
301 //  set all GPIO leds to led_display.leds
302
303         case LED_Set:{
304                         struct lcd_display led_display;
305
306
307                         if (copy_from_user
308                             (&led_display, (struct lcd_display *) arg,
309                              sizeof(struct lcd_display)))
310                                 return -EFAULT;
311
312                         led_state = led_display.leds;
313                         LEDSet(led_state);
314
315                         break;
316                 }
317
318
319 //  set only bit led_display.leds
320
321         case LED_Bit_Set:{
322                         unsigned int i;
323                         int bit = 1;
324                         struct lcd_display led_display;
325
326
327                         if (copy_from_user
328                             (&led_display, (struct lcd_display *) arg,
329                              sizeof(struct lcd_display)))
330                                 return -EFAULT;
331
332                         for (i = 0; i < (int) led_display.leds; i++) {
333                                 bit = 2 * bit;
334                         }
335
336                         led_state = led_state | bit;
337                         LEDSet(led_state);
338                         break;
339                 }
340
341 //  clear only bit led_display.leds
342
343         case LED_Bit_Clear:{
344                         unsigned int i;
345                         int bit = 1;
346                         struct lcd_display led_display;
347
348
349                         if (copy_from_user
350                             (&led_display, (struct lcd_display *) arg,
351                              sizeof(struct lcd_display)))
352                                 return -EFAULT;
353
354                         for (i = 0; i < (int) led_display.leds; i++) {
355                                 bit = 2 * bit;
356                         }
357
358                         led_state = led_state & ~bit;
359                         LEDSet(led_state);
360                         break;
361                 }
362
363
364         case BUTTON_Read:{
365                         button_display.buttons = GPIRead;
366                         if (copy_to_user
367                             ((struct lcd_display *) arg, &button_display,
368                              sizeof(struct lcd_display)))
369                                 return -EFAULT;
370                         break;
371                 }
372
373         case LINK_Check:{
374                         button_display.buttons =
375                             *((volatile unsigned long *) (0xB0100060));
376                         if (copy_to_user
377                             ((struct lcd_display *) arg, &button_display,
378                              sizeof(struct lcd_display)))
379                                 return -EFAULT;
380                         break;
381                 }
382
383         case LINK_Check_2:{
384                         int iface_num;
385
386                         /* panel-utils should pass in the desired interface status is wanted for
387                          * in "buttons" of the structure.  We will set this to non-zero if the
388                          * link is in fact up for the requested interface.  --DaveM
389                          */
390                         if (copy_from_user
391                             (&button_display, (struct lcd_display *) arg,
392                              sizeof(button_display)))
393                                 return -EFAULT;
394                         iface_num = button_display.buttons;
395 #if defined(CONFIG_TULIP) && 0
396                         if (iface_num >= 0 &&
397                             iface_num < MAX_INTERFACES &&
398                             linkcheck_callbacks[iface_num] != NULL) {
399                                 button_display.buttons =
400                                     linkcheck_callbacks[iface_num]
401                                     (linkcheck_cookies[iface_num]);
402                         } else
403 #endif
404                                 button_display.buttons = 0;
405
406                         if (__copy_to_user
407                             ((struct lcd_display *) arg, &button_display,
408                              sizeof(struct lcd_display)))
409                                 return -EFAULT;
410                         break;
411                 }
412
413 //  Erase the flash
414
415         case FLASH_Erase:{
416
417                         int ctr = 0;
418
419                         if ( !capable(CAP_SYS_ADMIN) ) return -EPERM;
420
421                         pr_info(LCD "Erasing Flash\n");
422
423                         // Chip Erase Sequence
424                         WRITE_FLASH(kFlash_Addr1, kFlash_Data1);
425                         WRITE_FLASH(kFlash_Addr2, kFlash_Data2);
426                         WRITE_FLASH(kFlash_Addr1, kFlash_Erase3);
427                         WRITE_FLASH(kFlash_Addr1, kFlash_Data1);
428                         WRITE_FLASH(kFlash_Addr2, kFlash_Data2);
429                         WRITE_FLASH(kFlash_Addr1, kFlash_Erase6);
430
431                         while ((!dqpoll(0x00000000, 0xFF))
432                                && (!timeout(0x00000000))) {
433                                 ctr++;
434                         }
435
436                         if (READ_FLASH(0x07FFF0) == 0xFF) {
437                                 pr_info(LCD "Erase Successful\n");
438                         } else if (timeout) {
439                                 pr_info(LCD "Erase Timed Out\n");
440                         }
441
442                         break;
443                 }
444
445 // burn the flash
446
447         case FLASH_Burn:{
448
449                         volatile unsigned long burn_addr;
450                         unsigned long flags;
451                         unsigned int i, index;
452                         unsigned char *rom;
453
454
455                         struct lcd_display display;
456
457                         if ( !capable(CAP_SYS_ADMIN) ) return -EPERM;
458
459                         if (copy_from_user
460                             (&display, (struct lcd_display *) arg,
461                              sizeof(struct lcd_display)))
462                                 return -EFAULT;
463                         rom = (unsigned char *) kmalloc((128), GFP_ATOMIC);
464                         if (rom == NULL) {
465                                 printk(KERN_ERR LCD "kmalloc() failed in %s\n",
466                                                 __FUNCTION__);
467                                 return -ENOMEM;
468                         }
469
470                         pr_info(LCD "Starting Flash burn\n");
471                         for (i = 0; i < FLASH_SIZE; i = i + 128) {
472
473                                 if (copy_from_user
474                                     (rom, display.RomImage + i, 128)) {
475                                         kfree(rom);
476                                         return -EFAULT;
477                                 }
478                                 burn_addr = kFlashBase + i;
479                                 spin_lock_irqsave(&lcd_lock, flags);
480                                 for (index = 0; index < (128); index++) {
481
482                                         WRITE_FLASH(kFlash_Addr1,
483                                                     kFlash_Data1);
484                                         WRITE_FLASH(kFlash_Addr2,
485                                                     kFlash_Data2);
486                                         WRITE_FLASH(kFlash_Addr1,
487                                                     kFlash_Prog);
488                                         *((volatile unsigned char *)burn_addr) =
489                                           (volatile unsigned char) rom[index];
490
491                                         while ((!dqpoll (burn_addr,
492                                                 (volatile unsigned char)
493                                                 rom[index])) &&
494                                                 (!timeout(burn_addr))) { }
495                                         burn_addr++;
496                                 }
497                                 spin_unlock_irqrestore(&lcd_lock, flags);
498                                 if (* ((volatile unsigned char *)
499                                         (burn_addr - 1)) ==
500                                         (volatile unsigned char)
501                                         rom[index - 1]) {
502                                 } else if (timeout) {
503                                         pr_info(LCD "Flash burn timed out\n");
504                                 }
505
506
507                         }
508                         kfree(rom);
509
510                         pr_info(LCD "Flash successfully burned\n");
511
512                         break;
513                 }
514
515 //  read the flash all at once
516
517         case FLASH_Read:{
518
519                         unsigned char *user_bytes;
520                         volatile unsigned long read_addr;
521                         unsigned int i;
522
523                         user_bytes =
524                             &(((struct lcd_display *) arg)->RomImage[0]);
525
526                         if (!access_ok
527                             (VERIFY_WRITE, user_bytes, FLASH_SIZE))
528                                 return -EFAULT;
529
530                         pr_info(LCD "Reading Flash");
531                         for (i = 0; i < FLASH_SIZE; i++) {
532                                 unsigned char tmp_byte;
533                                 read_addr = kFlashBase + i;
534                                 tmp_byte =
535                                     *((volatile unsigned char *)
536                                       read_addr);
537                                 if (__put_user(tmp_byte, &user_bytes[i]))
538                                         return -EFAULT;
539                         }
540
541
542                         break;
543                 }
544
545         default:
546                 return -EINVAL;
547
548         }
549
550         return 0;
551
552 }
553
554 static int lcd_open(struct inode *inode, struct file *file)
555 {
556         if (!lcd_present)
557                 return -ENXIO;
558         else
559                 return 0;
560 }
561
562 /* Only RESET or NEXT counts as button pressed */
563
564 static inline int button_pressed(void)
565 {
566         unsigned long buttons = GPIRead;
567
568         if ((buttons == BUTTON_Next) || (buttons == BUTTON_Next_B)
569             || (buttons == BUTTON_Reset_B))
570                 return buttons;
571         return 0;
572 }
573
574 /* LED daemon sits on this and we wake him up once a key is pressed. */
575
576 static int lcd_waiters = 0;
577
578 static ssize_t lcd_read(struct file *file, char *buf,
579                      size_t count, loff_t *ofs)
580 {
581         long buttons_now;
582
583         if (lcd_waiters > 0)
584                 return -EINVAL;
585
586         lcd_waiters++;
587         while (((buttons_now = (long) button_pressed()) == 0) &&
588                !(signal_pending(current))) {
589                 msleep_interruptible(2000);
590         }
591         lcd_waiters--;
592
593         if (signal_pending(current))
594                 return -ERESTARTSYS;
595         return buttons_now;
596 }
597
598 /*
599  *      The various file operations we support.
600  */
601
602 static struct file_operations lcd_fops = {
603         .read = lcd_read,
604         .ioctl = lcd_ioctl,
605         .open = lcd_open,
606 };
607
608 static struct miscdevice lcd_dev = {
609         MISC_DYNAMIC_MINOR,
610         "lcd",
611         &lcd_fops
612 };
613
614 static int lcd_init(void)
615 {
616         int ret;
617         unsigned long data;
618
619         pr_info("%s\n", LCD_DRIVER);
620         ret = misc_register(&lcd_dev);
621         if (ret) {
622                 printk(KERN_WARNING LCD "Unable to register misc device.\n");
623                 return ret;
624         }
625
626         /* Check region? Naaah! Just snarf it up. */
627 /*      request_region(RTC_PORT(0), RTC_IO_EXTENT, "lcd");*/
628
629         udelay(150);
630         data = LCDReadData;
631         if ((data & 0x000000FF) == (0x00)) {
632                 lcd_present = 0;
633                 pr_info(LCD "LCD Not Present\n");
634         } else {
635                 lcd_present = 1;
636                 WRITE_GAL(kGal_DevBank2PReg, kGal_DevBank2Cfg);
637                 WRITE_GAL(kGal_DevBank3PReg, kGal_DevBank3Cfg);
638         }
639
640         return 0;
641 }
642
643 static void __exit lcd_exit(void)
644 {
645         misc_deregister(&lcd_dev);
646 }
647
648 //
649 // Function: dqpoll
650 //
651 // Description:  Polls the data lines to see if the flash is busy
652 //
653 // In: address, byte data
654 //
655 // Out: 0 = busy, 1 = write or erase complete
656 //
657 //
658
659 static int dqpoll(volatile unsigned long address, volatile unsigned char data)
660 {
661         volatile unsigned char dq7;
662
663         dq7 = data & 0x80;
664
665         return ((READ_FLASH(address) & 0x80) == dq7);
666 }
667
668 //
669 // Function: timeout
670 //
671 // Description: Checks to see if erase or write has timed out
672 //              By polling dq5
673 //
674 // In: address
675 //
676 //
677 // Out: 0 = not timed out, 1 = timed out
678
679 static int timeout(volatile unsigned long address)
680 {
681         return (READ_FLASH(address) & 0x20) == 0x20;
682 }
683
684 module_init(lcd_init);
685 module_exit(lcd_exit);
686
687 MODULE_AUTHOR("Andrew Bose");
688 MODULE_LICENSE("GPL");