3d1bdc8431ada97b5b779b984628e1e2de1f4f5a
[linux-2.6.git] / drivers / isdn / hisax / bkm_a4t.c
1 /* $Id: bkm_a4t.c,v 1.22.2.4 2004/01/14 16:04:48 keil Exp $
2  *
3  * low level stuff for T-Berkom A4T
4  *
5  * Author       Roland Klabunde
6  * Copyright    by Roland Klabunde   <R.Klabunde@Berkom.de>
7  * 
8  * This software may be used and distributed according to the terms
9  * of the GNU General Public License, incorporated herein by reference.
10  *
11  */
12
13
14 #include <linux/init.h>
15 #include "hisax.h"
16 #include "isac.h"
17 #include "hscx.h"
18 #include "jade.h"
19 #include "isdnl1.h"
20 #include <linux/pci.h>
21 #include "bkm_ax.h"
22
23 extern const char *CardType[];
24
25 static const char *bkm_a4t_revision = "$Revision: 1.22.2.4 $";
26
27
28 static inline u_char
29 readreg(unsigned int ale, unsigned long adr, u_char off)
30 {
31         register u_int ret;
32         unsigned int *po = (unsigned int *) adr;        /* Postoffice */
33
34         *po = (GCS_2 | PO_WRITE | off);
35         __WAITI20__(po);
36         *po = (ale | PO_READ);
37         __WAITI20__(po);
38         ret = *po;
39         return ((unsigned char) ret);
40 }
41
42
43 static inline void
44 readfifo(unsigned int ale, unsigned long adr, u_char off, u_char * data, int size)
45 {
46         int i;
47         for (i = 0; i < size; i++)
48                 *data++ = readreg(ale, adr, off);
49 }
50
51
52 static inline void
53 writereg(unsigned int ale, unsigned long adr, u_char off, u_char data)
54 {
55         unsigned int *po = (unsigned int *) adr;        /* Postoffice */
56         *po = (GCS_2 | PO_WRITE | off);
57         __WAITI20__(po);
58         *po = (ale | PO_WRITE | data);
59         __WAITI20__(po);
60 }
61
62
63 static inline void
64 writefifo(unsigned int ale, unsigned long adr, u_char off, u_char * data, int size)
65 {
66         int i;
67
68         for (i = 0; i < size; i++)
69                 writereg(ale, adr, off, *data++);
70 }
71
72
73 /* Interface functions */
74
75 static u_char
76 ReadISAC(struct IsdnCardState *cs, u_char offset)
77 {
78         return (readreg(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, offset));
79 }
80
81 static void
82 WriteISAC(struct IsdnCardState *cs, u_char offset, u_char value)
83 {
84         writereg(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, offset, value);
85 }
86
87 static void
88 ReadISACfifo(struct IsdnCardState *cs, u_char * data, int size)
89 {
90         readfifo(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, 0, data, size);
91 }
92
93 static void
94 WriteISACfifo(struct IsdnCardState *cs, u_char * data, int size)
95 {
96         writefifo(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, 0, data, size);
97 }
98
99 static u_char
100 ReadJADE(struct IsdnCardState *cs, int jade, u_char offset)
101 {
102         return (readreg(cs->hw.ax.jade_ale, cs->hw.ax.jade_adr, offset + (jade == -1 ? 0 : (jade ? 0xC0 : 0x80))));
103 }
104
105 static void
106 WriteJADE(struct IsdnCardState *cs, int jade, u_char offset, u_char value)
107 {
108         writereg(cs->hw.ax.jade_ale, cs->hw.ax.jade_adr, offset + (jade == -1 ? 0 : (jade ? 0xC0 : 0x80)), value);
109 }
110
111 /*
112  * fast interrupt JADE stuff goes here
113  */
114
115 #define READJADE(cs, nr, reg) readreg(cs->hw.ax.jade_ale,\
116                 cs->hw.ax.jade_adr, reg + (nr == -1 ? 0 : (nr ? 0xC0 : 0x80)))
117 #define WRITEJADE(cs, nr, reg, data) writereg(cs->hw.ax.jade_ale,\
118                 cs->hw.ax.jade_adr, reg + (nr == -1 ? 0 : (nr ? 0xC0 : 0x80)), data)
119
120 #define READJADEFIFO(cs, nr, ptr, cnt) readfifo(cs->hw.ax.jade_ale,\
121                 cs->hw.ax.jade_adr, (nr == -1 ? 0 : (nr ? 0xC0 : 0x80)), ptr, cnt)
122 #define WRITEJADEFIFO(cs, nr, ptr, cnt) writefifo( cs->hw.ax.jade_ale,\
123                 cs->hw.ax.jade_adr, (nr == -1 ? 0 : (nr ? 0xC0 : 0x80)), ptr, cnt)
124
125 #include "jade_irq.c"
126
127 static irqreturn_t
128 bkm_interrupt(int intno, void *dev_id)
129 {
130         struct IsdnCardState *cs = dev_id;
131         u_char val = 0;
132         u_long flags;
133         I20_REGISTER_FILE *pI20_Regs;
134
135         spin_lock_irqsave(&cs->lock, flags);
136         pI20_Regs = (I20_REGISTER_FILE *) (cs->hw.ax.base);
137
138         /* ISDN interrupt pending? */
139         if (pI20_Regs->i20IntStatus & intISDN) {
140                 /* Reset the ISDN interrupt     */
141                 pI20_Regs->i20IntStatus = intISDN;
142                 /* Disable ISDN interrupt */
143                 pI20_Regs->i20IntCtrl &= ~intISDN;
144                 /* Channel A first */
145                 val = readreg(cs->hw.ax.jade_ale, cs->hw.ax.jade_adr, jade_HDLC_ISR + 0x80);
146                 if (val) {
147                         jade_int_main(cs, val, 0);
148                 }
149                 /* Channel B  */
150                 val = readreg(cs->hw.ax.jade_ale, cs->hw.ax.jade_adr, jade_HDLC_ISR + 0xC0);
151                 if (val) {
152                         jade_int_main(cs, val, 1);
153                 }
154                 /* D-Channel */
155                 val = readreg(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, ISAC_ISTA);
156                 if (val) {
157                         isac_interrupt(cs, val);
158                 }
159                 /* Reenable ISDN interrupt */
160                 pI20_Regs->i20IntCtrl |= intISDN;
161                 spin_unlock_irqrestore(&cs->lock, flags);
162                 return IRQ_HANDLED;
163         } else {
164                 spin_unlock_irqrestore(&cs->lock, flags);
165                 return IRQ_NONE;
166         }
167 }
168
169 static void
170 release_io_bkm(struct IsdnCardState *cs)
171 {
172         if (cs->hw.ax.base) {
173                 iounmap((void *) cs->hw.ax.base);
174                 cs->hw.ax.base = 0;
175         }
176 }
177
178 static void
179 enable_bkm_int(struct IsdnCardState *cs, unsigned bEnable)
180 {
181         if (cs->typ == ISDN_CTYPE_BKM_A4T) {
182                 I20_REGISTER_FILE *pI20_Regs = (I20_REGISTER_FILE *) (cs->hw.ax.base);
183                 if (bEnable)
184                         pI20_Regs->i20IntCtrl |= (intISDN | intPCI);
185                 else
186                         /* CAUTION: This disables the video capture driver too */
187                         pI20_Regs->i20IntCtrl &= ~(intISDN | intPCI);
188         }
189 }
190
191 static void
192 reset_bkm(struct IsdnCardState *cs)
193 {
194         if (cs->typ == ISDN_CTYPE_BKM_A4T) {
195                 I20_REGISTER_FILE *pI20_Regs = (I20_REGISTER_FILE *) (cs->hw.ax.base);
196                 /* Issue the I20 soft reset     */
197                 pI20_Regs->i20SysControl = 0xFF;        /* all in */
198                 mdelay(10);
199                 /* Remove the soft reset */
200                 pI20_Regs->i20SysControl = sysRESET | 0xFF;
201                 mdelay(10);
202                 /* Set our configuration */
203                 pI20_Regs->i20SysControl = sysRESET | sysCFG;
204                 /* Issue ISDN reset     */
205                 pI20_Regs->i20GuestControl = guestWAIT_CFG |
206                     g_A4T_JADE_RES |
207                     g_A4T_ISAR_RES |
208                     g_A4T_ISAC_RES |
209                     g_A4T_JADE_BOOTR |
210                     g_A4T_ISAR_BOOTR;
211                 mdelay(10);
212
213                 /* Remove RESET state from ISDN */
214                 pI20_Regs->i20GuestControl &= ~(g_A4T_ISAC_RES |
215                                                 g_A4T_JADE_RES |
216                                                 g_A4T_ISAR_RES);
217                 mdelay(10);
218         }
219 }
220
221 static int
222 BKM_card_msg(struct IsdnCardState *cs, int mt, void *arg)
223 {
224         u_long flags;
225
226         switch (mt) {
227                 case CARD_RESET:
228                         /* Disable ints */
229                         spin_lock_irqsave(&cs->lock, flags);
230                         enable_bkm_int(cs, 0);
231                         reset_bkm(cs);
232                         spin_unlock_irqrestore(&cs->lock, flags);
233                         return (0);
234                 case CARD_RELEASE:
235                         /* Sanity */
236                         spin_lock_irqsave(&cs->lock, flags);
237                         enable_bkm_int(cs, 0);
238                         reset_bkm(cs);
239                         spin_unlock_irqrestore(&cs->lock, flags);
240                         release_io_bkm(cs);
241                         return (0);
242                 case CARD_INIT:
243                         spin_lock_irqsave(&cs->lock, flags);
244                         clear_pending_isac_ints(cs);
245                         clear_pending_jade_ints(cs);
246                         initisac(cs);
247                         initjade(cs);
248                         /* Enable ints */
249                         enable_bkm_int(cs, 1);
250                         spin_unlock_irqrestore(&cs->lock, flags);
251                         return (0);
252                 case CARD_TEST:
253                         return (0);
254         }
255         return (0);
256 }
257
258 static int __devinit a4t_pci_probe(struct pci_dev *dev_a4t,
259                                    struct IsdnCardState *cs,
260                                    u_int *found,
261                                    u_int *pci_memaddr)
262 {
263         u16 sub_sys;
264         u16 sub_vendor;
265
266         sub_vendor = dev_a4t->subsystem_vendor;
267         sub_sys = dev_a4t->subsystem_device;
268         if ((sub_sys == PCI_DEVICE_ID_BERKOM_A4T) && (sub_vendor == PCI_VENDOR_ID_BERKOM)) {
269                 if (pci_enable_device(dev_a4t))
270                         return (0);     /* end loop & function */
271                 *found = 1;
272                 *pci_memaddr = pci_resource_start(dev_a4t, 0);
273                 cs->irq = dev_a4t->irq;
274                 return (1);             /* end loop */
275         }
276
277         return (-1);                    /* continue looping */
278 }
279
280 static int __devinit a4t_cs_init(struct IsdnCard *card,
281                                  struct IsdnCardState *cs,
282                                  u_int pci_memaddr)
283 {
284         I20_REGISTER_FILE *pI20_Regs;
285
286         if (!cs->irq) {         /* IRQ range check ?? */
287                 printk(KERN_WARNING "HiSax: %s: No IRQ\n", CardType[card->typ]);
288                 return (0);
289         }
290         cs->hw.ax.base = (long) ioremap(pci_memaddr, 4096);
291         /* Check suspecious address */
292         pI20_Regs = (I20_REGISTER_FILE *) (cs->hw.ax.base);
293         if ((pI20_Regs->i20IntStatus & 0x8EFFFFFF) != 0) {
294                 printk(KERN_WARNING "HiSax: %s address %lx-%lx suspecious\n",
295                        CardType[card->typ], cs->hw.ax.base, cs->hw.ax.base + 4096);
296                 iounmap((void *) cs->hw.ax.base);
297                 cs->hw.ax.base = 0;
298                 return (0);
299         }
300         cs->hw.ax.isac_adr = cs->hw.ax.base + PO_OFFSET;
301         cs->hw.ax.jade_adr = cs->hw.ax.base + PO_OFFSET;
302         cs->hw.ax.isac_ale = GCS_1;
303         cs->hw.ax.jade_ale = GCS_3;
304
305         printk(KERN_INFO "HiSax: %s: Card configured at 0x%lX IRQ %d\n",
306                CardType[card->typ], cs->hw.ax.base, cs->irq);
307
308         setup_isac(cs);
309         cs->readisac = &ReadISAC;
310         cs->writeisac = &WriteISAC;
311         cs->readisacfifo = &ReadISACfifo;
312         cs->writeisacfifo = &WriteISACfifo;
313         cs->BC_Read_Reg = &ReadJADE;
314         cs->BC_Write_Reg = &WriteJADE;
315         cs->BC_Send_Data = &jade_fill_fifo;
316         cs->cardmsg = &BKM_card_msg;
317         cs->irq_func = &bkm_interrupt;
318         cs->irq_flags |= IRQF_SHARED;
319         ISACVersion(cs, "Telekom A4T:");
320         /* Jade version */
321         JadeVersion(cs, "Telekom A4T:");
322
323         return (1);
324 }
325
326 static struct pci_dev *dev_a4t __devinitdata = NULL;
327
328 int __devinit
329 setup_bkm_a4t(struct IsdnCard *card)
330 {
331         struct IsdnCardState *cs = card->cs;
332         char tmp[64];
333         u_int pci_memaddr = 0, found = 0;
334         int ret;
335
336         strcpy(tmp, bkm_a4t_revision);
337         printk(KERN_INFO "HiSax: T-Berkom driver Rev. %s\n", HiSax_getrev(tmp));
338         if (cs->typ == ISDN_CTYPE_BKM_A4T) {
339                 cs->subtyp = BKM_A4T;
340         } else
341                 return (0);
342
343         while ((dev_a4t = pci_find_device(PCI_VENDOR_ID_ZORAN,
344                 PCI_DEVICE_ID_ZORAN_36120, dev_a4t))) {
345                 ret = a4t_pci_probe(dev_a4t, cs, &found, &pci_memaddr);
346                 if (!ret)
347                         return (0);
348                 if (ret > 0)
349                         break;
350         }
351         if (!found) {
352                 printk(KERN_WARNING "HiSax: %s: Card not found\n", CardType[card->typ]);
353                 return (0);
354         }
355         if (!pci_memaddr) {
356                 printk(KERN_WARNING "HiSax: %s: No Memory base address\n", CardType[card->typ]);
357                 return (0);
358         }
359
360         return a4t_cs_init(card, cs, pci_memaddr);
361 }