Commit | Line | Data |
---|---|---|
1da177e4 LT |
1 | /* $Id: bkm_a8.c,v 1.22.2.4 2004/01/15 14:02:34 keil Exp $ |
2 | * | |
3 | * low level stuff for Scitel Quadro (4*S0, passive) | |
4 | * | |
5 | * Author Roland Klabunde | |
6 | * Copyright by Roland Klabunde <R.Klabunde@Berkom.de> | |
475be4d8 | 7 | * |
1da177e4 LT |
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 | ||
1da177e4 LT |
14 | #include <linux/init.h> |
15 | #include "hisax.h" | |
16 | #include "isac.h" | |
17 | #include "ipac.h" | |
18 | #include "hscx.h" | |
19 | #include "isdnl1.h" | |
20 | #include <linux/pci.h> | |
21 | #include "bkm_ax.h" | |
22 | ||
1da177e4 LT |
23 | #define ATTEMPT_PCI_REMAPPING /* Required for PLX rev 1 */ |
24 | ||
672c3fd9 | 25 | static const char sct_quadro_revision[] = "$Revision: 1.22.2.4 $"; |
1da177e4 LT |
26 | |
27 | static const char *sct_quadro_subtypes[] = | |
28 | { | |
29 | "", | |
30 | "#1", | |
31 | "#2", | |
32 | "#3", | |
33 | "#4" | |
34 | }; | |
35 | ||
36 | ||
475be4d8 | 37 | #define wordout(addr, val) outw(val, addr) |
1da177e4 LT |
38 | #define wordin(addr) inw(addr) |
39 | ||
40 | static inline u_char | |
41 | readreg(unsigned int ale, unsigned int adr, u_char off) | |
42 | { | |
43 | register u_char ret; | |
44 | wordout(ale, off); | |
45 | ret = wordin(adr) & 0xFF; | |
46 | return (ret); | |
47 | } | |
48 | ||
49 | static inline void | |
475be4d8 | 50 | readfifo(unsigned int ale, unsigned int adr, u_char off, u_char *data, int size) |
1da177e4 LT |
51 | { |
52 | int i; | |
53 | wordout(ale, off); | |
54 | for (i = 0; i < size; i++) | |
55 | data[i] = wordin(adr) & 0xFF; | |
56 | } | |
57 | ||
58 | ||
59 | static inline void | |
60 | writereg(unsigned int ale, unsigned int adr, u_char off, u_char data) | |
61 | { | |
62 | wordout(ale, off); | |
63 | wordout(adr, data); | |
64 | } | |
65 | ||
66 | static inline void | |
475be4d8 | 67 | writefifo(unsigned int ale, unsigned int adr, u_char off, u_char *data, int size) |
1da177e4 LT |
68 | { |
69 | int i; | |
70 | wordout(ale, off); | |
71 | for (i = 0; i < size; i++) | |
72 | wordout(adr, data[i]); | |
73 | } | |
74 | ||
75 | /* Interface functions */ | |
76 | ||
77 | static u_char | |
78 | ReadISAC(struct IsdnCardState *cs, u_char offset) | |
79 | { | |
80 | return (readreg(cs->hw.ax.base, cs->hw.ax.data_adr, offset | 0x80)); | |
81 | } | |
82 | ||
83 | static void | |
84 | WriteISAC(struct IsdnCardState *cs, u_char offset, u_char value) | |
85 | { | |
86 | writereg(cs->hw.ax.base, cs->hw.ax.data_adr, offset | 0x80, value); | |
87 | } | |
88 | ||
89 | static void | |
475be4d8 | 90 | ReadISACfifo(struct IsdnCardState *cs, u_char *data, int size) |
1da177e4 LT |
91 | { |
92 | readfifo(cs->hw.ax.base, cs->hw.ax.data_adr, 0x80, data, size); | |
93 | } | |
94 | ||
95 | static void | |
475be4d8 | 96 | WriteISACfifo(struct IsdnCardState *cs, u_char *data, int size) |
1da177e4 LT |
97 | { |
98 | writefifo(cs->hw.ax.base, cs->hw.ax.data_adr, 0x80, data, size); | |
99 | } | |
100 | ||
101 | ||
102 | static u_char | |
103 | ReadHSCX(struct IsdnCardState *cs, int hscx, u_char offset) | |
104 | { | |
105 | return (readreg(cs->hw.ax.base, cs->hw.ax.data_adr, offset + (hscx ? 0x40 : 0))); | |
106 | } | |
107 | ||
108 | static void | |
109 | WriteHSCX(struct IsdnCardState *cs, int hscx, u_char offset, u_char value) | |
110 | { | |
111 | writereg(cs->hw.ax.base, cs->hw.ax.data_adr, offset + (hscx ? 0x40 : 0), value); | |
112 | } | |
113 | ||
114 | /* Set the specific ipac to active */ | |
115 | static void | |
116 | set_ipac_active(struct IsdnCardState *cs, u_int active) | |
117 | { | |
118 | /* set irq mask */ | |
119 | writereg(cs->hw.ax.base, cs->hw.ax.data_adr, IPAC_MASK, | |
475be4d8 | 120 | active ? 0xc0 : 0xff); |
1da177e4 LT |
121 | } |
122 | ||
123 | /* | |
124 | * fast interrupt HSCX stuff goes here | |
125 | */ | |
126 | ||
475be4d8 JP |
127 | #define READHSCX(cs, nr, reg) readreg(cs->hw.ax.base, \ |
128 | cs->hw.ax.data_adr, reg + (nr ? 0x40 : 0)) | |
129 | #define WRITEHSCX(cs, nr, reg, data) writereg(cs->hw.ax.base, \ | |
130 | cs->hw.ax.data_adr, reg + (nr ? 0x40 : 0), data) | |
131 | #define READHSCXFIFO(cs, nr, ptr, cnt) readfifo(cs->hw.ax.base, \ | |
132 | cs->hw.ax.data_adr, (nr ? 0x40 : 0), ptr, cnt) | |
133 | #define WRITEHSCXFIFO(cs, nr, ptr, cnt) writefifo(cs->hw.ax.base, \ | |
134 | cs->hw.ax.data_adr, (nr ? 0x40 : 0), ptr, cnt) | |
1da177e4 LT |
135 | |
136 | #include "hscx_irq.c" | |
137 | ||
138 | static irqreturn_t | |
7d12e780 | 139 | bkm_interrupt_ipac(int intno, void *dev_id) |
1da177e4 LT |
140 | { |
141 | struct IsdnCardState *cs = dev_id; | |
142 | u_char ista, val, icnt = 5; | |
143 | u_long flags; | |
144 | ||
145 | spin_lock_irqsave(&cs->lock, flags); | |
146 | ista = readreg(cs->hw.ax.base, cs->hw.ax.data_adr, IPAC_ISTA); | |
147 | if (!(ista & 0x3f)) { /* not this IPAC */ | |
148 | spin_unlock_irqrestore(&cs->lock, flags); | |
149 | return IRQ_NONE; | |
150 | } | |
475be4d8 | 151 | Start_IPAC: |
1da177e4 LT |
152 | if (cs->debug & L1_DEB_IPAC) |
153 | debugl1(cs, "IPAC ISTA %02X", ista); | |
154 | if (ista & 0x0f) { | |
155 | val = readreg(cs->hw.ax.base, cs->hw.ax.data_adr, HSCX_ISTA + 0x40); | |
156 | if (ista & 0x01) | |
157 | val |= 0x01; | |
158 | if (ista & 0x04) | |
159 | val |= 0x02; | |
160 | if (ista & 0x08) | |
161 | val |= 0x04; | |
162 | if (val) { | |
163 | hscx_int_main(cs, val); | |
164 | } | |
165 | } | |
166 | if (ista & 0x20) { | |
167 | val = 0xfe & readreg(cs->hw.ax.base, cs->hw.ax.data_adr, ISAC_ISTA | 0x80); | |
168 | if (val) { | |
169 | isac_interrupt(cs, val); | |
170 | } | |
171 | } | |
172 | if (ista & 0x10) { | |
173 | val = 0x01; | |
174 | isac_interrupt(cs, val); | |
175 | } | |
176 | ista = readreg(cs->hw.ax.base, cs->hw.ax.data_adr, IPAC_ISTA); | |
177 | if ((ista & 0x3f) && icnt) { | |
178 | icnt--; | |
179 | goto Start_IPAC; | |
180 | } | |
181 | if (!icnt) | |
8349304d | 182 | printk(KERN_WARNING "HiSax: Scitel Quadro (%s) IRQ LOOP\n", |
1da177e4 LT |
183 | sct_quadro_subtypes[cs->subtyp]); |
184 | writereg(cs->hw.ax.base, cs->hw.ax.data_adr, IPAC_MASK, 0xFF); | |
185 | writereg(cs->hw.ax.base, cs->hw.ax.data_adr, IPAC_MASK, 0xC0); | |
186 | spin_unlock_irqrestore(&cs->lock, flags); | |
187 | return IRQ_HANDLED; | |
188 | } | |
189 | ||
672c3fd9 | 190 | static void |
1da177e4 LT |
191 | release_io_sct_quadro(struct IsdnCardState *cs) |
192 | { | |
193 | release_region(cs->hw.ax.base & 0xffffffc0, 128); | |
194 | if (cs->subtyp == SCT_1) | |
195 | release_region(cs->hw.ax.plx_adr, 64); | |
196 | } | |
197 | ||
198 | static void | |
199 | enable_bkm_int(struct IsdnCardState *cs, unsigned bEnable) | |
200 | { | |
201 | if (cs->typ == ISDN_CTYPE_SCT_QUADRO) { | |
202 | if (bEnable) | |
203 | wordout(cs->hw.ax.plx_adr + 0x4C, (wordin(cs->hw.ax.plx_adr + 0x4C) | 0x41)); | |
204 | else | |
205 | wordout(cs->hw.ax.plx_adr + 0x4C, (wordin(cs->hw.ax.plx_adr + 0x4C) & ~0x41)); | |
206 | } | |
207 | } | |
208 | ||
209 | static void | |
210 | reset_bkm(struct IsdnCardState *cs) | |
211 | { | |
212 | if (cs->subtyp == SCT_1) { | |
213 | wordout(cs->hw.ax.plx_adr + 0x50, (wordin(cs->hw.ax.plx_adr + 0x50) & ~4)); | |
214 | mdelay(10); | |
215 | /* Remove the soft reset */ | |
216 | wordout(cs->hw.ax.plx_adr + 0x50, (wordin(cs->hw.ax.plx_adr + 0x50) | 4)); | |
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) { | |
475be4d8 JP |
227 | case CARD_RESET: |
228 | spin_lock_irqsave(&cs->lock, flags); | |
229 | /* Disable ints */ | |
230 | set_ipac_active(cs, 0); | |
231 | enable_bkm_int(cs, 0); | |
232 | reset_bkm(cs); | |
233 | spin_unlock_irqrestore(&cs->lock, flags); | |
234 | return (0); | |
235 | case CARD_RELEASE: | |
236 | /* Sanity */ | |
237 | spin_lock_irqsave(&cs->lock, flags); | |
238 | set_ipac_active(cs, 0); | |
239 | enable_bkm_int(cs, 0); | |
240 | spin_unlock_irqrestore(&cs->lock, flags); | |
241 | release_io_sct_quadro(cs); | |
242 | return (0); | |
243 | case CARD_INIT: | |
244 | spin_lock_irqsave(&cs->lock, flags); | |
245 | cs->debug |= L1_DEB_IPAC; | |
246 | set_ipac_active(cs, 1); | |
247 | inithscxisac(cs, 3); | |
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); | |
1da177e4 LT |
254 | } |
255 | return (0); | |
256 | } | |
257 | ||
ed5a84cd | 258 | static int sct_alloc_io(u_int adr, u_int len) |
1da177e4 LT |
259 | { |
260 | if (!request_region(adr, len, "scitel")) { | |
261 | printk(KERN_WARNING | |
475be4d8 JP |
262 | "HiSax: Scitel port %#x-%#x already in use\n", |
263 | adr, adr + len); | |
1da177e4 LT |
264 | return (1); |
265 | } | |
475be4d8 | 266 | return (0); |
1da177e4 LT |
267 | } |
268 | ||
ed5a84cd GKH |
269 | static struct pci_dev *dev_a8 = NULL; |
270 | static u16 sub_vendor_id = 0; | |
271 | static u16 sub_sys_id = 0; | |
272 | static u_char pci_bus = 0; | |
273 | static u_char pci_device_fn = 0; | |
274 | static u_char pci_irq = 0; | |
1da177e4 | 275 | |
ed5a84cd | 276 | int setup_sct_quadro(struct IsdnCard *card) |
1da177e4 | 277 | { |
1da177e4 LT |
278 | struct IsdnCardState *cs = card->cs; |
279 | char tmp[64]; | |
1da177e4 LT |
280 | u_int found = 0; |
281 | u_int pci_ioaddr1, pci_ioaddr2, pci_ioaddr3, pci_ioaddr4, pci_ioaddr5; | |
282 | ||
283 | strcpy(tmp, sct_quadro_revision); | |
284 | printk(KERN_INFO "HiSax: T-Berkom driver Rev. %s\n", HiSax_getrev(tmp)); | |
285 | if (cs->typ == ISDN_CTYPE_SCT_QUADRO) { | |
286 | cs->subtyp = SCT_1; /* Preset */ | |
287 | } else | |
288 | return (0); | |
289 | ||
290 | /* Identify subtype by para[0] */ | |
291 | if (card->para[0] >= SCT_1 && card->para[0] <= SCT_4) | |
292 | cs->subtyp = card->para[0]; | |
293 | else { | |
8349304d JG |
294 | printk(KERN_WARNING "HiSax: Scitel Quadro: Invalid " |
295 | "subcontroller in configuration, default to 1\n"); | |
1da177e4 LT |
296 | return (0); |
297 | } | |
298 | if ((cs->subtyp != SCT_1) && ((sub_sys_id != PCI_DEVICE_ID_BERKOM_SCITEL_QUADRO) || | |
475be4d8 | 299 | (sub_vendor_id != PCI_VENDOR_ID_BERKOM))) |
1da177e4 LT |
300 | return (0); |
301 | if (cs->subtyp == SCT_1) { | |
41a68a74 | 302 | while ((dev_a8 = hisax_find_pci_device(PCI_VENDOR_ID_PLX, |
475be4d8 JP |
303 | PCI_DEVICE_ID_PLX_9050, dev_a8))) { |
304 | ||
1da177e4 LT |
305 | sub_vendor_id = dev_a8->subsystem_vendor; |
306 | sub_sys_id = dev_a8->subsystem_device; | |
307 | if ((sub_sys_id == PCI_DEVICE_ID_BERKOM_SCITEL_QUADRO) && | |
475be4d8 | 308 | (sub_vendor_id == PCI_VENDOR_ID_BERKOM)) { |
1da177e4 | 309 | if (pci_enable_device(dev_a8)) |
475be4d8 | 310 | return (0); |
1da177e4 LT |
311 | pci_ioaddr1 = pci_resource_start(dev_a8, 1); |
312 | pci_irq = dev_a8->irq; | |
313 | pci_bus = dev_a8->bus->number; | |
314 | pci_device_fn = dev_a8->devfn; | |
315 | found = 1; | |
316 | break; | |
317 | } | |
318 | } | |
319 | if (!found) { | |
8349304d | 320 | printk(KERN_WARNING "HiSax: Scitel Quadro (%s): " |
475be4d8 JP |
321 | "Card not found\n", |
322 | sct_quadro_subtypes[cs->subtyp]); | |
1da177e4 LT |
323 | return (0); |
324 | } | |
325 | #ifdef ATTEMPT_PCI_REMAPPING | |
326 | /* HACK: PLX revision 1 bug: PLX address bit 7 must not be set */ | |
44c10138 | 327 | if ((pci_ioaddr1 & 0x80) && (dev_a8->revision == 1)) { |
8349304d | 328 | printk(KERN_WARNING "HiSax: Scitel Quadro (%s): " |
475be4d8 JP |
329 | "PLX rev 1, remapping required!\n", |
330 | sct_quadro_subtypes[cs->subtyp]); | |
1da177e4 | 331 | /* Restart PCI negotiation */ |
475be4d8 | 332 | pci_write_config_dword(dev_a8, PCI_BASE_ADDRESS_1, (u_int)-1); |
1da177e4 LT |
333 | /* Move up by 0x80 byte */ |
334 | pci_ioaddr1 += 0x80; | |
335 | pci_ioaddr1 &= PCI_BASE_ADDRESS_IO_MASK; | |
336 | pci_write_config_dword(dev_a8, PCI_BASE_ADDRESS_1, pci_ioaddr1); | |
475be4d8 | 337 | dev_a8->resource[1].start = pci_ioaddr1; |
1da177e4 LT |
338 | } |
339 | #endif /* End HACK */ | |
340 | } | |
341 | if (!pci_irq) { /* IRQ range check ?? */ | |
8349304d | 342 | printk(KERN_WARNING "HiSax: Scitel Quadro (%s): No IRQ\n", |
1da177e4 LT |
343 | sct_quadro_subtypes[cs->subtyp]); |
344 | return (0); | |
345 | } | |
346 | pci_read_config_dword(dev_a8, PCI_BASE_ADDRESS_1, &pci_ioaddr1); | |
347 | pci_read_config_dword(dev_a8, PCI_BASE_ADDRESS_2, &pci_ioaddr2); | |
348 | pci_read_config_dword(dev_a8, PCI_BASE_ADDRESS_3, &pci_ioaddr3); | |
349 | pci_read_config_dword(dev_a8, PCI_BASE_ADDRESS_4, &pci_ioaddr4); | |
350 | pci_read_config_dword(dev_a8, PCI_BASE_ADDRESS_5, &pci_ioaddr5); | |
351 | if (!pci_ioaddr1 || !pci_ioaddr2 || !pci_ioaddr3 || !pci_ioaddr4 || !pci_ioaddr5) { | |
8349304d JG |
352 | printk(KERN_WARNING "HiSax: Scitel Quadro (%s): " |
353 | "No IO base address(es)\n", | |
1da177e4 LT |
354 | sct_quadro_subtypes[cs->subtyp]); |
355 | return (0); | |
356 | } | |
357 | pci_ioaddr1 &= PCI_BASE_ADDRESS_IO_MASK; | |
358 | pci_ioaddr2 &= PCI_BASE_ADDRESS_IO_MASK; | |
359 | pci_ioaddr3 &= PCI_BASE_ADDRESS_IO_MASK; | |
360 | pci_ioaddr4 &= PCI_BASE_ADDRESS_IO_MASK; | |
361 | pci_ioaddr5 &= PCI_BASE_ADDRESS_IO_MASK; | |
362 | /* Take over */ | |
363 | cs->irq = pci_irq; | |
9ba02bec | 364 | cs->irq_flags |= IRQF_SHARED; |
1da177e4 LT |
365 | /* pci_ioaddr1 is unique to all subdevices */ |
366 | /* pci_ioaddr2 is for the fourth subdevice only */ | |
367 | /* pci_ioaddr3 is for the third subdevice only */ | |
368 | /* pci_ioaddr4 is for the second subdevice only */ | |
369 | /* pci_ioaddr5 is for the first subdevice only */ | |
370 | cs->hw.ax.plx_adr = pci_ioaddr1; | |
371 | /* Enter all ipac_base addresses */ | |
475be4d8 JP |
372 | switch (cs->subtyp) { |
373 | case 1: | |
374 | cs->hw.ax.base = pci_ioaddr5 + 0x00; | |
375 | if (sct_alloc_io(pci_ioaddr1, 128)) | |
376 | return (0); | |
377 | if (sct_alloc_io(pci_ioaddr5, 64)) | |
378 | return (0); | |
379 | /* disable all IPAC */ | |
380 | writereg(pci_ioaddr5, pci_ioaddr5 + 4, | |
381 | IPAC_MASK, 0xFF); | |
382 | writereg(pci_ioaddr4 + 0x08, pci_ioaddr4 + 0x0c, | |
383 | IPAC_MASK, 0xFF); | |
384 | writereg(pci_ioaddr3 + 0x10, pci_ioaddr3 + 0x14, | |
385 | IPAC_MASK, 0xFF); | |
386 | writereg(pci_ioaddr2 + 0x20, pci_ioaddr2 + 0x24, | |
387 | IPAC_MASK, 0xFF); | |
388 | break; | |
389 | case 2: | |
390 | cs->hw.ax.base = pci_ioaddr4 + 0x08; | |
391 | if (sct_alloc_io(pci_ioaddr4, 64)) | |
392 | return (0); | |
393 | break; | |
394 | case 3: | |
395 | cs->hw.ax.base = pci_ioaddr3 + 0x10; | |
396 | if (sct_alloc_io(pci_ioaddr3, 64)) | |
397 | return (0); | |
398 | break; | |
399 | case 4: | |
400 | cs->hw.ax.base = pci_ioaddr2 + 0x20; | |
401 | if (sct_alloc_io(pci_ioaddr2, 64)) | |
402 | return (0); | |
403 | break; | |
404 | } | |
1da177e4 LT |
405 | /* For isac and hscx data path */ |
406 | cs->hw.ax.data_adr = cs->hw.ax.base + 4; | |
407 | ||
8349304d JG |
408 | printk(KERN_INFO "HiSax: Scitel Quadro (%s) configured at " |
409 | "0x%.4lX, 0x%.4lX, 0x%.4lX and IRQ %d\n", | |
1da177e4 LT |
410 | sct_quadro_subtypes[cs->subtyp], |
411 | cs->hw.ax.plx_adr, | |
412 | cs->hw.ax.base, | |
413 | cs->hw.ax.data_adr, | |
414 | cs->irq); | |
415 | ||
416 | test_and_set_bit(HW_IPAC, &cs->HW_Flags); | |
417 | ||
418 | cs->readisac = &ReadISAC; | |
419 | cs->writeisac = &WriteISAC; | |
420 | cs->readisacfifo = &ReadISACfifo; | |
421 | cs->writeisacfifo = &WriteISACfifo; | |
422 | ||
423 | cs->BC_Read_Reg = &ReadHSCX; | |
424 | cs->BC_Write_Reg = &WriteHSCX; | |
425 | cs->BC_Send_Data = &hscx_fill_fifo; | |
426 | cs->cardmsg = &BKM_card_msg; | |
427 | cs->irq_func = &bkm_interrupt_ipac; | |
428 | ||
8349304d | 429 | printk(KERN_INFO "HiSax: Scitel Quadro (%s): IPAC Version %d\n", |
475be4d8 JP |
430 | sct_quadro_subtypes[cs->subtyp], |
431 | readreg(cs->hw.ax.base, cs->hw.ax.data_adr, IPAC_ID)); | |
1da177e4 | 432 | return (1); |
1da177e4 | 433 | } |