Merge /spare/repo/linux-2.6/
[linux-2.6] / drivers / media / radio / radio-cadet.c
1 /* radio-cadet.c - A video4linux driver for the ADS Cadet AM/FM Radio Card
2  *
3  * by Fred Gleason <fredg@wava.com>
4  * Version 0.3.3
5  *
6  * (Loosely) based on code for the Aztech radio card by
7  *
8  * Russell Kroll    (rkroll@exploits.org)
9  * Quay Ly
10  * Donald Song
11  * Jason Lewis      (jlewis@twilight.vtc.vsc.edu) 
12  * Scott McGrath    (smcgrath@twilight.vtc.vsc.edu)
13  * William McGrath  (wmcgrath@twilight.vtc.vsc.edu)
14  *
15  * History:
16  * 2000-04-29   Russell Kroll <rkroll@exploits.org>
17  *              Added ISAPnP detection for Linux 2.3/2.4
18  *
19  * 2001-01-10   Russell Kroll <rkroll@exploits.org>
20  *              Removed dead CONFIG_RADIO_CADET_PORT code
21  *              PnP detection on load is now default (no args necessary)
22  *
23  * 2002-01-17   Adam Belay <ambx1@neo.rr.com>
24  *              Updated to latest pnp code
25  *
26  * 2003-01-31   Alan Cox <alan@redhat.com>
27  *              Cleaned up locking, delay code, general odds and ends
28  */
29
30 #include <linux/module.h>       /* Modules                      */
31 #include <linux/init.h>         /* Initdata                     */
32 #include <linux/ioport.h>       /* check_region, request_region */
33 #include <linux/delay.h>        /* udelay                       */
34 #include <asm/io.h>             /* outb, outb_p                 */
35 #include <asm/uaccess.h>        /* copy to/from user            */
36 #include <linux/videodev.h>     /* kernel radio structs         */
37 #include <linux/param.h>
38 #include <linux/pnp.h>
39
40 #define RDS_BUFFER 256
41
42 static int io=-1;               /* default to isapnp activation */
43 static int radio_nr = -1;
44 static int users=0;
45 static int curtuner=0;
46 static int tunestat=0;
47 static int sigstrength=0;
48 static wait_queue_head_t read_queue;
49 static struct timer_list readtimer;
50 static __u8 rdsin=0,rdsout=0,rdsstat=0;
51 static unsigned char rdsbuf[RDS_BUFFER];
52 static spinlock_t cadet_io_lock;
53
54 static int cadet_probe(void);
55
56 /*
57  * Signal Strength Threshold Values
58  * The V4L API spec does not define any particular unit for the signal 
59  * strength value.  These values are in microvolts of RF at the tuner's input.
60  */
61 static __u16 sigtable[2][4]={{5,10,30,150},{28,40,63,1000}};
62
63 static int cadet_getrds(void)
64 {
65         int rdsstat=0;
66
67         spin_lock(&cadet_io_lock);
68         outb(3,io);                 /* Select Decoder Control/Status */
69         outb(inb(io+1)&0x7f,io+1);  /* Reset RDS detection */
70         spin_unlock(&cadet_io_lock);
71         
72         msleep(100);
73
74         spin_lock(&cadet_io_lock);      
75         outb(3,io);                 /* Select Decoder Control/Status */
76         if((inb(io+1)&0x80)!=0) {
77                 rdsstat|=VIDEO_TUNER_RDS_ON;
78         }
79         if((inb(io+1)&0x10)!=0) {
80                 rdsstat|=VIDEO_TUNER_MBS_ON;
81         }
82         spin_unlock(&cadet_io_lock);
83         return rdsstat;
84 }
85
86 static int cadet_getstereo(void)
87 {
88         int ret = 0;
89         if(curtuner != 0)       /* Only FM has stereo capability! */
90                 return 0;
91
92         spin_lock(&cadet_io_lock);
93         outb(7,io);          /* Select tuner control */
94         if( (inb(io+1) & 0x40) == 0)
95                 ret = 1;
96         spin_unlock(&cadet_io_lock);
97         return ret;
98 }
99
100 static unsigned cadet_gettune(void)
101 {
102         int curvol,i;
103         unsigned fifo=0;
104
105         /*
106          * Prepare for read
107          */
108
109         spin_lock(&cadet_io_lock);
110         
111         outb(7,io);       /* Select tuner control */
112         curvol=inb(io+1); /* Save current volume/mute setting */
113         outb(0x00,io+1);  /* Ensure WRITE-ENABLE is LOW */
114         tunestat=0xffff;
115
116         /*
117          * Read the shift register
118          */
119         for(i=0;i<25;i++) {
120                 fifo=(fifo<<1)|((inb(io+1)>>7)&0x01);
121                 if(i<24) {
122                         outb(0x01,io+1);
123                         tunestat&=inb(io+1);
124                         outb(0x00,io+1);
125                 }
126         }
127
128         /*
129          * Restore volume/mute setting
130          */
131         outb(curvol,io+1);
132         spin_unlock(&cadet_io_lock);
133
134         return fifo;
135 }
136
137 static unsigned cadet_getfreq(void)
138 {
139         int i;
140         unsigned freq=0,test,fifo=0;
141
142         /*
143          * Read current tuning
144          */
145         fifo=cadet_gettune();
146
147         /*
148          * Convert to actual frequency
149          */
150         if(curtuner==0) {    /* FM */
151                 test=12500;
152                 for(i=0;i<14;i++) {
153                         if((fifo&0x01)!=0) {
154                                 freq+=test;
155                         }
156                         test=test<<1;
157                         fifo=fifo>>1;
158                 }
159                 freq-=10700000;           /* IF frequency is 10.7 MHz */
160                 freq=(freq*16)/1000000;   /* Make it 1/16 MHz */
161         }
162         if(curtuner==1) {    /* AM */
163                 freq=((fifo&0x7fff)-2010)*16;
164         }
165
166         return freq;
167 }
168
169 static void cadet_settune(unsigned fifo)
170 {
171         int i;
172         unsigned test;  
173
174         spin_lock(&cadet_io_lock);
175         
176         outb(7,io);                /* Select tuner control */
177         /*
178          * Write the shift register
179          */
180         test=0;
181         test=(fifo>>23)&0x02;      /* Align data for SDO */
182         test|=0x1c;                /* SDM=1, SWE=1, SEN=1, SCK=0 */
183         outb(7,io);                /* Select tuner control */
184         outb(test,io+1);           /* Initialize for write */
185         for(i=0;i<25;i++) {
186                 test|=0x01;              /* Toggle SCK High */
187                 outb(test,io+1);
188                 test&=0xfe;              /* Toggle SCK Low */
189                 outb(test,io+1);
190                 fifo=fifo<<1;            /* Prepare the next bit */
191                 test=0x1c|((fifo>>23)&0x02);
192                 outb(test,io+1);
193         }
194         spin_unlock(&cadet_io_lock);
195 }
196
197 static void cadet_setfreq(unsigned freq)
198 {
199         unsigned fifo;
200         int i,j,test;
201         int curvol;
202
203         /* 
204          * Formulate a fifo command
205          */
206         fifo=0;
207         if(curtuner==0) {    /* FM */
208                 test=102400;
209                 freq=(freq*1000)/16;       /* Make it kHz */
210                 freq+=10700;               /* IF is 10700 kHz */
211                 for(i=0;i<14;i++) {
212                         fifo=fifo<<1;
213                         if(freq>=test) {
214                                 fifo|=0x01;
215                                 freq-=test;
216                         }
217                         test=test>>1;
218                 }
219         }
220         if(curtuner==1) {    /* AM */
221                 fifo=(freq/16)+2010;            /* Make it kHz */
222                 fifo|=0x100000;            /* Select AM Band */
223         }
224
225         /*
226          * Save current volume/mute setting
227          */
228
229         spin_lock(&cadet_io_lock);
230         outb(7,io);                /* Select tuner control */
231         curvol=inb(io+1); 
232         spin_unlock(&cadet_io_lock);
233
234         /*
235          * Tune the card
236          */
237         for(j=3;j>-1;j--) {
238                 cadet_settune(fifo|(j<<16));
239                 
240                 spin_lock(&cadet_io_lock);
241                 outb(7,io);         /* Select tuner control */
242                 outb(curvol,io+1);
243                 spin_unlock(&cadet_io_lock);
244                 
245                 msleep(100);
246
247                 cadet_gettune();
248                 if((tunestat & 0x40) == 0) {   /* Tuned */
249                         sigstrength=sigtable[curtuner][j];
250                         return;
251                 }
252         }
253         sigstrength=0;
254 }
255
256
257 static int cadet_getvol(void)
258 {
259         int ret = 0;
260         
261         spin_lock(&cadet_io_lock);
262         
263         outb(7,io);                /* Select tuner control */
264         if((inb(io + 1) & 0x20) != 0)
265                 ret = 0xffff;
266         
267         spin_unlock(&cadet_io_lock);
268         return ret;
269 }
270
271
272 static void cadet_setvol(int vol)
273 {
274         spin_lock(&cadet_io_lock);
275         outb(7,io);                /* Select tuner control */
276         if(vol>0)
277                 outb(0x20,io+1);
278         else
279                 outb(0x00,io+1);
280         spin_unlock(&cadet_io_lock);
281 }  
282
283 static void cadet_handler(unsigned long data)
284 {
285         /*
286          * Service the RDS fifo
287          */
288
289         if(spin_trylock(&cadet_io_lock))
290         {
291                 outb(0x3,io);       /* Select RDS Decoder Control */
292                 if((inb(io+1)&0x20)!=0) {
293                         printk(KERN_CRIT "cadet: RDS fifo overflow\n");
294                 }
295                 outb(0x80,io);      /* Select RDS fifo */
296                 while((inb(io)&0x80)!=0) {
297                         rdsbuf[rdsin]=inb(io+1);
298                         if(rdsin==rdsout)
299                                 printk(KERN_WARNING "cadet: RDS buffer overflow\n");
300                         else
301                                 rdsin++;
302                 }
303                 spin_unlock(&cadet_io_lock);
304         }
305
306         /*
307          * Service pending read
308          */
309         if( rdsin!=rdsout)
310                 wake_up_interruptible(&read_queue);
311
312         /* 
313          * Clean up and exit
314          */
315         init_timer(&readtimer);
316         readtimer.function=cadet_handler;
317         readtimer.data=(unsigned long)0;
318         readtimer.expires=jiffies+(HZ/20);
319         add_timer(&readtimer);
320 }
321
322
323
324 static ssize_t cadet_read(struct file *file, char __user *data,
325                           size_t count, loff_t *ppos)
326 {
327         int i=0;
328         unsigned char readbuf[RDS_BUFFER];
329
330         if(rdsstat==0) {
331                 spin_lock(&cadet_io_lock);
332                 rdsstat=1;
333                 outb(0x80,io);        /* Select RDS fifo */
334                 spin_unlock(&cadet_io_lock);
335                 init_timer(&readtimer);
336                 readtimer.function=cadet_handler;
337                 readtimer.data=(unsigned long)0;
338                 readtimer.expires=jiffies+(HZ/20);
339                 add_timer(&readtimer);
340         }
341         if(rdsin==rdsout) {
342                 if (file->f_flags & O_NONBLOCK)
343                         return -EWOULDBLOCK;
344                 interruptible_sleep_on(&read_queue);
345         }               
346         while( i<count && rdsin!=rdsout)
347                 readbuf[i++]=rdsbuf[rdsout++];
348
349         if (copy_to_user(data,readbuf,i))
350                 return -EFAULT;
351         return i;
352 }
353
354
355
356 static int cadet_do_ioctl(struct inode *inode, struct file *file,
357                           unsigned int cmd, void *arg)
358 {
359         switch(cmd)
360         {
361                 case VIDIOCGCAP:
362                 {
363                         struct video_capability *v = arg;
364                         memset(v,0,sizeof(*v));
365                         v->type=VID_TYPE_TUNER;
366                         v->channels=2;
367                         v->audios=1;
368                         strcpy(v->name, "ADS Cadet");
369                         return 0;
370                 }
371                 case VIDIOCGTUNER:
372                 {
373                         struct video_tuner *v = arg;
374                         if((v->tuner<0)||(v->tuner>1)) {
375                                 return -EINVAL;
376                         }
377                         switch(v->tuner) {
378                                 case 0:
379                                 strcpy(v->name,"FM");
380                                 v->rangelow=1400;     /* 87.5 MHz */
381                                 v->rangehigh=1728;    /* 108.0 MHz */
382                                 v->flags=0;
383                                 v->mode=0;
384                                 v->mode|=VIDEO_MODE_AUTO;
385                                 v->signal=sigstrength;
386                                 if(cadet_getstereo()==1) {
387                                         v->flags|=VIDEO_TUNER_STEREO_ON;
388                                 }
389                                 v->flags|=cadet_getrds();
390                                 break;
391                                 case 1:
392                                 strcpy(v->name,"AM");
393                                 v->rangelow=8320;      /* 520 kHz */
394                                 v->rangehigh=26400;    /* 1650 kHz */
395                                 v->flags=0;
396                                 v->flags|=VIDEO_TUNER_LOW;
397                                 v->mode=0;
398                                 v->mode|=VIDEO_MODE_AUTO;
399                                 v->signal=sigstrength;
400                                 break;
401                         }
402                         return 0;
403                 }
404                 case VIDIOCSTUNER:
405                 {
406                         struct video_tuner *v = arg;
407                         if((v->tuner<0)||(v->tuner>1)) {
408                                 return -EINVAL;
409                         }
410                         curtuner=v->tuner;      
411                         return 0;
412                 }
413                 case VIDIOCGFREQ:
414                 {
415                         unsigned long *freq = arg;
416                         *freq = cadet_getfreq();
417                         return 0;
418                 }
419                 case VIDIOCSFREQ:
420                 {
421                         unsigned long *freq = arg;
422                         if((curtuner==0)&&((*freq<1400)||(*freq>1728))) {
423                                 return -EINVAL;
424                         }
425                         if((curtuner==1)&&((*freq<8320)||(*freq>26400))) {
426                                 return -EINVAL;
427                         }
428                         cadet_setfreq(*freq);
429                         return 0;
430                 }
431                 case VIDIOCGAUDIO:
432                 {       
433                         struct video_audio *v = arg;
434                         memset(v,0, sizeof(*v));
435                         v->flags=VIDEO_AUDIO_MUTABLE|VIDEO_AUDIO_VOLUME;
436                         if(cadet_getstereo()==0) {
437                                 v->mode=VIDEO_SOUND_MONO;
438                         } else {
439                                 v->mode=VIDEO_SOUND_STEREO;
440                         }
441                         v->volume=cadet_getvol();
442                         v->step=0xffff;
443                         strcpy(v->name, "Radio");
444                         return 0;                       
445                 }
446                 case VIDIOCSAUDIO:
447                 {
448                         struct video_audio *v = arg;
449                         if(v->audio) 
450                                 return -EINVAL;
451                         cadet_setvol(v->volume);
452                         if(v->flags&VIDEO_AUDIO_MUTE) 
453                                 cadet_setvol(0);
454                         else
455                                 cadet_setvol(0xffff);
456                         return 0;
457                 }
458                 default:
459                         return -ENOIOCTLCMD;
460         }
461 }
462
463 static int cadet_ioctl(struct inode *inode, struct file *file,
464                        unsigned int cmd, unsigned long arg)
465 {
466         return video_usercopy(inode, file, cmd, arg, cadet_do_ioctl);
467 }
468
469 static int cadet_open(struct inode *inode, struct file *file)
470 {
471         if(users)
472                 return -EBUSY;
473         users++;
474         init_waitqueue_head(&read_queue);
475         return 0;
476 }
477
478 static int cadet_release(struct inode *inode, struct file *file)
479 {
480         del_timer_sync(&readtimer);
481         rdsstat=0;
482         users--;
483         return 0;
484 }
485
486
487 static struct file_operations cadet_fops = {
488         .owner          = THIS_MODULE,
489         .open           = cadet_open,
490         .release        = cadet_release,
491         .read           = cadet_read,
492         .ioctl          = cadet_ioctl,
493         .llseek         = no_llseek,
494 };
495
496 static struct video_device cadet_radio=
497 {
498         .owner          = THIS_MODULE,
499         .name           = "Cadet radio",
500         .type           = VID_TYPE_TUNER,
501         .hardware       = VID_HARDWARE_CADET,
502         .fops           = &cadet_fops,
503 };
504
505 static struct pnp_device_id cadet_pnp_devices[] = {
506         /* ADS Cadet AM/FM Radio Card */
507         {.id = "MSM0c24", .driver_data = 0},
508         {.id = ""}
509 };
510
511 MODULE_DEVICE_TABLE(pnp, cadet_pnp_devices);
512
513 static int cadet_pnp_probe(struct pnp_dev * dev, const struct pnp_device_id *dev_id)
514 {
515         if (!dev)
516                 return -ENODEV;
517         /* only support one device */
518         if (io > 0)
519                 return -EBUSY;
520
521         if (!pnp_port_valid(dev, 0)) {
522                 return -ENODEV;
523         }
524
525         io = pnp_port_start(dev, 0);
526
527         printk ("radio-cadet: PnP reports device at %#x\n", io);
528
529         return io;
530 }
531
532 static struct pnp_driver cadet_pnp_driver = {
533         .name           = "radio-cadet",
534         .id_table       = cadet_pnp_devices,
535         .probe          = cadet_pnp_probe,
536         .remove         = NULL,
537 };
538
539 static int cadet_probe(void)
540 {
541         static int iovals[8]={0x330,0x332,0x334,0x336,0x338,0x33a,0x33c,0x33e};
542         int i;
543
544         for(i=0;i<8;i++) {
545                 io=iovals[i];
546                 if(request_region(io,2, "cadet-probe")>=0) {
547                         cadet_setfreq(1410);
548                         if(cadet_getfreq()==1410) {
549                                 release_region(io, 2);
550                                 return io;
551                         }
552                         release_region(io, 2);
553                 }
554         }
555         return -1;
556 }
557
558 /* 
559  * io should only be set if the user has used something like
560  * isapnp (the userspace program) to initialize this card for us
561  */
562
563 static int __init cadet_init(void)
564 {
565         spin_lock_init(&cadet_io_lock);
566         
567         /*
568          *      If a probe was requested then probe ISAPnP first (safest)
569          */
570         if (io < 0)
571                 pnp_register_driver(&cadet_pnp_driver);
572         /*
573          *      If that fails then probe unsafely if probe is requested
574          */
575         if(io < 0)
576                 io = cadet_probe ();
577
578         /*
579          *      Else we bail out
580          */
581          
582         if(io < 0) {
583 #ifdef MODULE        
584                 printk(KERN_ERR "You must set an I/O address with io=0x???\n");
585 #endif
586                 goto fail;
587         }
588         if (!request_region(io,2,"cadet"))
589                 goto fail;
590         if(video_register_device(&cadet_radio,VFL_TYPE_RADIO,radio_nr)==-1) {
591                 release_region(io,2);
592                 goto fail;
593         }
594         printk(KERN_INFO "ADS Cadet Radio Card at 0x%x\n",io);
595         return 0;
596 fail:
597         pnp_unregister_driver(&cadet_pnp_driver);
598         return -1;
599 }
600
601
602
603 MODULE_AUTHOR("Fred Gleason, Russell Kroll, Quay Lu, Donald Song, Jason Lewis, Scott McGrath, William McGrath");
604 MODULE_DESCRIPTION("A driver for the ADS Cadet AM/FM/RDS radio card.");
605 MODULE_LICENSE("GPL");
606
607 module_param(io, int, 0);
608 MODULE_PARM_DESC(io, "I/O address of Cadet card (0x330,0x332,0x334,0x336,0x338,0x33a,0x33c,0x33e)");
609 module_param(radio_nr, int, 0);
610
611 static void __exit cadet_cleanup_module(void)
612 {
613         video_unregister_device(&cadet_radio);
614         release_region(io,2);
615         pnp_unregister_driver(&cadet_pnp_driver);
616 }
617
618 module_init(cadet_init);
619 module_exit(cadet_cleanup_module);
620