Merge branch 'fixes' of master.kernel.org:/home/rmk/linux-2.6-arm
[linux-2.6] / drivers / isdn / hisax / ix1_micro.c
1 /* $Id: ix1_micro.c,v 2.12.2.4 2004/01/13 23:48:39 keil Exp $
2  *
3  * low level stuff for ITK ix1-micro Rev.2 isdn cards
4  * derived from the original file teles3.c from Karsten Keil
5  *
6  * Author       Klaus-Peter Nischke
7  * Copyright    by Klaus-Peter Nischke, ITK AG
8  *                                   <klaus@nischke.do.eunet.de>
9  *              by Karsten Keil      <keil@isdn4linux.de>
10  * 
11  * This software may be used and distributed according to the terms
12  * of the GNU General Public License, incorporated herein by reference.
13  *
14  * Klaus-Peter Nischke
15  * Deusener Str. 287
16  * 44369 Dortmund
17  * Germany
18  */
19
20 #include <linux/init.h>
21 #include <linux/isapnp.h>
22 #include "hisax.h"
23 #include "isac.h"
24 #include "hscx.h"
25 #include "isdnl1.h"
26
27 static const char *ix1_revision = "$Revision: 2.12.2.4 $";
28
29 #define byteout(addr,val) outb(val,addr)
30 #define bytein(addr) inb(addr)
31
32 #define SPECIAL_PORT_OFFSET 3
33
34 #define ISAC_COMMAND_OFFSET 2
35 #define ISAC_DATA_OFFSET 0
36 #define HSCX_COMMAND_OFFSET 2
37 #define HSCX_DATA_OFFSET 1
38
39 #define TIMEOUT 50
40
41 static inline u_char
42 readreg(unsigned int ale, unsigned int adr, u_char off)
43 {
44         register u_char ret;
45
46         byteout(ale, off);
47         ret = bytein(adr);
48         return (ret);
49 }
50
51 static inline void
52 readfifo(unsigned int ale, unsigned int adr, u_char off, u_char * data, int size)
53 {
54         byteout(ale, off);
55         insb(adr, data, size);
56 }
57
58
59 static inline void
60 writereg(unsigned int ale, unsigned int adr, u_char off, u_char data)
61 {
62         byteout(ale, off);
63         byteout(adr, data);
64 }
65
66 static inline void
67 writefifo(unsigned int ale, unsigned int adr, u_char off, u_char * data, int size)
68 {
69         byteout(ale, off);
70         outsb(adr, data, size);
71 }
72
73 /* Interface functions */
74
75 static u_char
76 ReadISAC(struct IsdnCardState *cs, u_char offset)
77 {
78         return (readreg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, offset));
79 }
80
81 static void
82 WriteISAC(struct IsdnCardState *cs, u_char offset, u_char value)
83 {
84         writereg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, offset, value);
85 }
86
87 static void
88 ReadISACfifo(struct IsdnCardState *cs, u_char * data, int size)
89 {
90         readfifo(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, 0, data, size);
91 }
92
93 static void
94 WriteISACfifo(struct IsdnCardState *cs, u_char * data, int size)
95 {
96         writefifo(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, 0, data, size);
97 }
98
99 static u_char
100 ReadHSCX(struct IsdnCardState *cs, int hscx, u_char offset)
101 {
102         return (readreg(cs->hw.ix1.hscx_ale,
103                         cs->hw.ix1.hscx, offset + (hscx ? 0x40 : 0)));
104 }
105
106 static void
107 WriteHSCX(struct IsdnCardState *cs, int hscx, u_char offset, u_char value)
108 {
109         writereg(cs->hw.ix1.hscx_ale,
110                  cs->hw.ix1.hscx, offset + (hscx ? 0x40 : 0), value);
111 }
112
113 #define READHSCX(cs, nr, reg) readreg(cs->hw.ix1.hscx_ale, \
114                 cs->hw.ix1.hscx, reg + (nr ? 0x40 : 0))
115 #define WRITEHSCX(cs, nr, reg, data) writereg(cs->hw.ix1.hscx_ale, \
116                 cs->hw.ix1.hscx, reg + (nr ? 0x40 : 0), data)
117
118 #define READHSCXFIFO(cs, nr, ptr, cnt) readfifo(cs->hw.ix1.hscx_ale, \
119                 cs->hw.ix1.hscx, (nr ? 0x40 : 0), ptr, cnt)
120
121 #define WRITEHSCXFIFO(cs, nr, ptr, cnt) writefifo(cs->hw.ix1.hscx_ale, \
122                 cs->hw.ix1.hscx, (nr ? 0x40 : 0), ptr, cnt)
123
124 #include "hscx_irq.c"
125
126 static irqreturn_t
127 ix1micro_interrupt(int intno, void *dev_id)
128 {
129         struct IsdnCardState *cs = dev_id;
130         u_char val;
131         u_long flags;
132
133         spin_lock_irqsave(&cs->lock, flags);
134         val = readreg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_ISTA + 0x40);
135       Start_HSCX:
136         if (val)
137                 hscx_int_main(cs, val);
138         val = readreg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, ISAC_ISTA);
139       Start_ISAC:
140         if (val)
141                 isac_interrupt(cs, val);
142         val = readreg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_ISTA + 0x40);
143         if (val) {
144                 if (cs->debug & L1_DEB_HSCX)
145                         debugl1(cs, "HSCX IntStat after IntRoutine");
146                 goto Start_HSCX;
147         }
148         val = readreg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, ISAC_ISTA);
149         if (val) {
150                 if (cs->debug & L1_DEB_ISAC)
151                         debugl1(cs, "ISAC IntStat after IntRoutine");
152                 goto Start_ISAC;
153         }
154         writereg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_MASK, 0xFF);
155         writereg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_MASK + 0x40, 0xFF);
156         writereg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, ISAC_MASK, 0xFF);
157         writereg(cs->hw.ix1.isac_ale, cs->hw.ix1.isac, ISAC_MASK, 0);
158         writereg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_MASK, 0);
159         writereg(cs->hw.ix1.hscx_ale, cs->hw.ix1.hscx, HSCX_MASK + 0x40, 0);
160         spin_unlock_irqrestore(&cs->lock, flags);
161         return IRQ_HANDLED;
162 }
163
164 static void
165 release_io_ix1micro(struct IsdnCardState *cs)
166 {
167         if (cs->hw.ix1.cfg_reg)
168                 release_region(cs->hw.ix1.cfg_reg, 4);
169 }
170
171 static void
172 ix1_reset(struct IsdnCardState *cs)
173 {
174         int cnt;
175
176         /* reset isac */
177         cnt = 3 * (HZ / 10) + 1;
178         while (cnt--) {
179                 byteout(cs->hw.ix1.cfg_reg + SPECIAL_PORT_OFFSET, 1);
180                 HZDELAY(1);     /* wait >=10 ms */
181         }
182         byteout(cs->hw.ix1.cfg_reg + SPECIAL_PORT_OFFSET, 0);
183 }
184
185 static int
186 ix1_card_msg(struct IsdnCardState *cs, int mt, void *arg)
187 {
188         u_long flags;
189
190         switch (mt) {
191                 case CARD_RESET:
192                         spin_lock_irqsave(&cs->lock, flags);
193                         ix1_reset(cs);
194                         spin_unlock_irqrestore(&cs->lock, flags);
195                         return(0);
196                 case CARD_RELEASE:
197                         release_io_ix1micro(cs);
198                         return(0);
199                 case CARD_INIT:
200                         spin_lock_irqsave(&cs->lock, flags);
201                         ix1_reset(cs);
202                         inithscxisac(cs, 3);
203                         spin_unlock_irqrestore(&cs->lock, flags);
204                         return(0);
205                 case CARD_TEST:
206                         return(0);
207         }
208         return(0);
209 }
210
211 #ifdef __ISAPNP__
212 static struct isapnp_device_id itk_ids[] __devinitdata = {
213         { ISAPNP_VENDOR('I', 'T', 'K'), ISAPNP_FUNCTION(0x25),
214           ISAPNP_VENDOR('I', 'T', 'K'), ISAPNP_FUNCTION(0x25), 
215           (unsigned long) "ITK micro 2" },
216         { ISAPNP_VENDOR('I', 'T', 'K'), ISAPNP_FUNCTION(0x29),
217           ISAPNP_VENDOR('I', 'T', 'K'), ISAPNP_FUNCTION(0x29), 
218           (unsigned long) "ITK micro 2." },
219         { 0, }
220 };
221
222 static struct isapnp_device_id *ipid __devinitdata = &itk_ids[0];
223 static struct pnp_card *pnp_c __devinitdata = NULL;
224 #endif
225
226
227 int __devinit
228 setup_ix1micro(struct IsdnCard *card)
229 {
230         struct IsdnCardState *cs = card->cs;
231         char tmp[64];
232
233         strcpy(tmp, ix1_revision);
234         printk(KERN_INFO "HiSax: ITK IX1 driver Rev. %s\n", HiSax_getrev(tmp));
235         if (cs->typ != ISDN_CTYPE_IX1MICROR2)
236                 return (0);
237
238 #ifdef __ISAPNP__
239         if (!card->para[1] && isapnp_present()) {
240                 struct pnp_dev *pnp_d;
241                 while(ipid->card_vendor) {
242                         if ((pnp_c = pnp_find_card(ipid->card_vendor,
243                                 ipid->card_device, pnp_c))) {
244                                 pnp_d = NULL;
245                                 if ((pnp_d = pnp_find_dev(pnp_c,
246                                         ipid->vendor, ipid->function, pnp_d))) {
247                                         int err;
248
249                                         printk(KERN_INFO "HiSax: %s detected\n",
250                                                 (char *)ipid->driver_data);
251                                         pnp_disable_dev(pnp_d);
252                                         err = pnp_activate_dev(pnp_d);
253                                         if (err<0) {
254                                                 printk(KERN_WARNING "%s: pnp_activate_dev ret(%d)\n",
255                                                         __FUNCTION__, err);
256                                                 return(0);
257                                         }
258                                         card->para[1] = pnp_port_start(pnp_d, 0);
259                                         card->para[0] = pnp_irq(pnp_d, 0);
260                                         if (!card->para[0] || !card->para[1]) {
261                                                 printk(KERN_ERR "ITK PnP:some resources are missing %ld/%lx\n",
262                                                         card->para[0], card->para[1]);
263                                                 pnp_disable_dev(pnp_d);
264                                                 return(0);
265                                         }
266                                         break;
267                                 } else {
268                                         printk(KERN_ERR "ITK PnP: PnP error card found, no device\n");
269                                 }
270                         }
271                         ipid++;
272                         pnp_c = NULL;
273                 } 
274                 if (!ipid->card_vendor) {
275                         printk(KERN_INFO "ITK PnP: no ISAPnP card found\n");
276                         return(0);
277                 }
278         }
279 #endif
280         /* IO-Ports */
281         cs->hw.ix1.isac_ale = card->para[1] + ISAC_COMMAND_OFFSET;
282         cs->hw.ix1.hscx_ale = card->para[1] + HSCX_COMMAND_OFFSET;
283         cs->hw.ix1.isac = card->para[1] + ISAC_DATA_OFFSET;
284         cs->hw.ix1.hscx = card->para[1] + HSCX_DATA_OFFSET;
285         cs->hw.ix1.cfg_reg = card->para[1];
286         cs->irq = card->para[0];
287         if (cs->hw.ix1.cfg_reg) {
288                 if (!request_region(cs->hw.ix1.cfg_reg, 4, "ix1micro cfg")) {
289                         printk(KERN_WARNING
290                           "HiSax: ITK ix1-micro Rev.2 config port "
291                           "%x-%x already in use\n",
292                                cs->hw.ix1.cfg_reg,
293                                cs->hw.ix1.cfg_reg + 4);
294                         return (0);
295                 }
296         }
297         printk(KERN_INFO "HiSax: ITK ix1-micro Rev.2 config irq:%d io:0x%X\n",
298                 cs->irq, cs->hw.ix1.cfg_reg);
299         setup_isac(cs);
300         cs->readisac = &ReadISAC;
301         cs->writeisac = &WriteISAC;
302         cs->readisacfifo = &ReadISACfifo;
303         cs->writeisacfifo = &WriteISACfifo;
304         cs->BC_Read_Reg = &ReadHSCX;
305         cs->BC_Write_Reg = &WriteHSCX;
306         cs->BC_Send_Data = &hscx_fill_fifo;
307         cs->cardmsg = &ix1_card_msg;
308         cs->irq_func = &ix1micro_interrupt;
309         ISACVersion(cs, "ix1-Micro:");
310         if (HscxVersion(cs, "ix1-Micro:")) {
311                 printk(KERN_WARNING
312                     "ix1-Micro: wrong HSCX versions check IO address\n");
313                 release_io_ix1micro(cs);
314                 return (0);
315         }
316         return (1);
317 }