Commit | Line | Data |
---|---|---|
1da177e4 LT |
1 | /* $Id: teles0.c,v 2.15.2.4 2004/01/13 23:48:39 keil Exp $ |
2 | * | |
3 | * low level stuff for Teles Memory IO isdn cards | |
4 | * | |
5 | * Author Karsten Keil | |
6 | * based on the teles driver from Jan den Ouden | |
7 | * Copyright by Karsten Keil <keil@isdn4linux.de> | |
475be4d8 | 8 | * |
1da177e4 LT |
9 | * This software may be used and distributed according to the terms |
10 | * of the GNU General Public License, incorporated herein by reference. | |
11 | * | |
12 | * Thanks to Jan den Ouden | |
13 | * Fritz Elfert | |
14 | * Beat Doebeli | |
15 | * | |
16 | */ | |
17 | ||
18 | #include <linux/init.h> | |
19 | #include "hisax.h" | |
20 | #include "isdnl1.h" | |
21 | #include "isac.h" | |
22 | #include "hscx.h" | |
23 | ||
672c3fd9 | 24 | static const char *teles0_revision = "$Revision: 2.15.2.4 $"; |
1da177e4 LT |
25 | |
26 | #define TELES_IOMEM_SIZE 0x400 | |
475be4d8 | 27 | #define byteout(addr, val) outb(val, addr) |
1da177e4 LT |
28 | #define bytein(addr) inb(addr) |
29 | ||
30 | static inline u_char | |
31 | readisac(void __iomem *adr, u_char off) | |
32 | { | |
33 | return readb(adr + ((off & 1) ? 0x2ff : 0x100) + off); | |
34 | } | |
35 | ||
36 | static inline void | |
37 | writeisac(void __iomem *adr, u_char off, u_char data) | |
38 | { | |
39 | writeb(data, adr + ((off & 1) ? 0x2ff : 0x100) + off); mb(); | |
40 | } | |
41 | ||
42 | ||
43 | static inline u_char | |
44 | readhscx(void __iomem *adr, int hscx, u_char off) | |
45 | { | |
46 | return readb(adr + (hscx ? 0x1c0 : 0x180) + | |
47 | ((off & 1) ? 0x1ff : 0) + off); | |
48 | } | |
49 | ||
50 | static inline void | |
51 | writehscx(void __iomem *adr, int hscx, u_char off, u_char data) | |
52 | { | |
53 | writeb(data, adr + (hscx ? 0x1c0 : 0x180) + | |
54 | ((off & 1) ? 0x1ff : 0) + off); mb(); | |
55 | } | |
56 | ||
57 | static inline void | |
475be4d8 | 58 | read_fifo_isac(void __iomem *adr, u_char *data, int size) |
1da177e4 LT |
59 | { |
60 | register int i; | |
61 | register u_char __iomem *ad = adr + 0x100; | |
62 | for (i = 0; i < size; i++) | |
63 | data[i] = readb(ad); | |
64 | } | |
65 | ||
66 | static inline void | |
475be4d8 | 67 | write_fifo_isac(void __iomem *adr, u_char *data, int size) |
1da177e4 LT |
68 | { |
69 | register int i; | |
70 | register u_char __iomem *ad = adr + 0x100; | |
71 | for (i = 0; i < size; i++) { | |
72 | writeb(data[i], ad); mb(); | |
73 | } | |
74 | } | |
75 | ||
76 | static inline void | |
475be4d8 | 77 | read_fifo_hscx(void __iomem *adr, int hscx, u_char *data, int size) |
1da177e4 LT |
78 | { |
79 | register int i; | |
80 | register u_char __iomem *ad = adr + (hscx ? 0x1c0 : 0x180); | |
81 | for (i = 0; i < size; i++) | |
82 | data[i] = readb(ad); | |
83 | } | |
84 | ||
85 | static inline void | |
475be4d8 | 86 | write_fifo_hscx(void __iomem *adr, int hscx, u_char *data, int size) |
1da177e4 LT |
87 | { |
88 | int i; | |
89 | register u_char __iomem *ad = adr + (hscx ? 0x1c0 : 0x180); | |
90 | for (i = 0; i < size; i++) { | |
91 | writeb(data[i], ad); mb(); | |
92 | } | |
93 | } | |
94 | ||
95 | /* Interface functions */ | |
96 | ||
97 | static u_char | |
98 | ReadISAC(struct IsdnCardState *cs, u_char offset) | |
99 | { | |
100 | return (readisac(cs->hw.teles0.membase, offset)); | |
101 | } | |
102 | ||
103 | static void | |
104 | WriteISAC(struct IsdnCardState *cs, u_char offset, u_char value) | |
105 | { | |
106 | writeisac(cs->hw.teles0.membase, offset, value); | |
107 | } | |
108 | ||
109 | static void | |
475be4d8 | 110 | ReadISACfifo(struct IsdnCardState *cs, u_char *data, int size) |
1da177e4 LT |
111 | { |
112 | read_fifo_isac(cs->hw.teles0.membase, data, size); | |
113 | } | |
114 | ||
115 | static void | |
475be4d8 | 116 | WriteISACfifo(struct IsdnCardState *cs, u_char *data, int size) |
1da177e4 LT |
117 | { |
118 | write_fifo_isac(cs->hw.teles0.membase, data, size); | |
119 | } | |
120 | ||
121 | static u_char | |
122 | ReadHSCX(struct IsdnCardState *cs, int hscx, u_char offset) | |
123 | { | |
124 | return (readhscx(cs->hw.teles0.membase, hscx, offset)); | |
125 | } | |
126 | ||
127 | static void | |
128 | WriteHSCX(struct IsdnCardState *cs, int hscx, u_char offset, u_char value) | |
129 | { | |
130 | writehscx(cs->hw.teles0.membase, hscx, offset, value); | |
131 | } | |
132 | ||
133 | /* | |
134 | * fast interrupt HSCX stuff goes here | |
135 | */ | |
136 | ||
137 | #define READHSCX(cs, nr, reg) readhscx(cs->hw.teles0.membase, nr, reg) | |
138 | #define WRITEHSCX(cs, nr, reg, data) writehscx(cs->hw.teles0.membase, nr, reg, data) | |
139 | #define READHSCXFIFO(cs, nr, ptr, cnt) read_fifo_hscx(cs->hw.teles0.membase, nr, ptr, cnt) | |
140 | #define WRITEHSCXFIFO(cs, nr, ptr, cnt) write_fifo_hscx(cs->hw.teles0.membase, nr, ptr, cnt) | |
141 | ||
142 | #include "hscx_irq.c" | |
143 | ||
144 | static irqreturn_t | |
7d12e780 | 145 | teles0_interrupt(int intno, void *dev_id) |
1da177e4 LT |
146 | { |
147 | struct IsdnCardState *cs = dev_id; | |
148 | u_char val; | |
149 | u_long flags; | |
150 | int count = 0; | |
151 | ||
152 | spin_lock_irqsave(&cs->lock, flags); | |
153 | val = readhscx(cs->hw.teles0.membase, 1, HSCX_ISTA); | |
475be4d8 | 154 | Start_HSCX: |
1da177e4 LT |
155 | if (val) |
156 | hscx_int_main(cs, val); | |
157 | val = readisac(cs->hw.teles0.membase, ISAC_ISTA); | |
475be4d8 | 158 | Start_ISAC: |
1da177e4 LT |
159 | if (val) |
160 | isac_interrupt(cs, val); | |
161 | count++; | |
162 | val = readhscx(cs->hw.teles0.membase, 1, HSCX_ISTA); | |
163 | if (val && count < 5) { | |
164 | if (cs->debug & L1_DEB_HSCX) | |
165 | debugl1(cs, "HSCX IntStat after IntRoutine"); | |
166 | goto Start_HSCX; | |
167 | } | |
168 | val = readisac(cs->hw.teles0.membase, ISAC_ISTA); | |
169 | if (val && count < 5) { | |
170 | if (cs->debug & L1_DEB_ISAC) | |
171 | debugl1(cs, "ISAC IntStat after IntRoutine"); | |
172 | goto Start_ISAC; | |
173 | } | |
174 | writehscx(cs->hw.teles0.membase, 0, HSCX_MASK, 0xFF); | |
175 | writehscx(cs->hw.teles0.membase, 1, HSCX_MASK, 0xFF); | |
176 | writeisac(cs->hw.teles0.membase, ISAC_MASK, 0xFF); | |
177 | writeisac(cs->hw.teles0.membase, ISAC_MASK, 0x0); | |
178 | writehscx(cs->hw.teles0.membase, 0, HSCX_MASK, 0x0); | |
179 | writehscx(cs->hw.teles0.membase, 1, HSCX_MASK, 0x0); | |
180 | spin_unlock_irqrestore(&cs->lock, flags); | |
181 | return IRQ_HANDLED; | |
182 | } | |
183 | ||
672c3fd9 | 184 | static void |
1da177e4 LT |
185 | release_io_teles0(struct IsdnCardState *cs) |
186 | { | |
187 | if (cs->hw.teles0.cfg_reg) | |
188 | release_region(cs->hw.teles0.cfg_reg, 8); | |
189 | iounmap(cs->hw.teles0.membase); | |
190 | release_mem_region(cs->hw.teles0.phymem, TELES_IOMEM_SIZE); | |
191 | } | |
192 | ||
193 | static int | |
194 | reset_teles0(struct IsdnCardState *cs) | |
195 | { | |
196 | u_char cfval; | |
197 | ||
198 | if (cs->hw.teles0.cfg_reg) { | |
199 | switch (cs->irq) { | |
475be4d8 JP |
200 | case 2: |
201 | case 9: | |
202 | cfval = 0x00; | |
203 | break; | |
204 | case 3: | |
205 | cfval = 0x02; | |
206 | break; | |
207 | case 4: | |
208 | cfval = 0x04; | |
209 | break; | |
210 | case 5: | |
211 | cfval = 0x06; | |
212 | break; | |
213 | case 10: | |
214 | cfval = 0x08; | |
215 | break; | |
216 | case 11: | |
217 | cfval = 0x0A; | |
218 | break; | |
219 | case 12: | |
220 | cfval = 0x0C; | |
221 | break; | |
222 | case 15: | |
223 | cfval = 0x0E; | |
224 | break; | |
225 | default: | |
226 | return (1); | |
1da177e4 LT |
227 | } |
228 | cfval |= ((cs->hw.teles0.phymem >> 9) & 0xF0); | |
229 | byteout(cs->hw.teles0.cfg_reg + 4, cfval); | |
230 | HZDELAY(HZ / 10 + 1); | |
231 | byteout(cs->hw.teles0.cfg_reg + 4, cfval | 1); | |
232 | HZDELAY(HZ / 10 + 1); | |
233 | } | |
234 | writeb(0, cs->hw.teles0.membase + 0x80); mb(); | |
235 | HZDELAY(HZ / 5 + 1); | |
236 | writeb(1, cs->hw.teles0.membase + 0x80); mb(); | |
237 | HZDELAY(HZ / 5 + 1); | |
475be4d8 | 238 | return (0); |
1da177e4 LT |
239 | } |
240 | ||
241 | static int | |
242 | Teles_card_msg(struct IsdnCardState *cs, int mt, void *arg) | |
243 | { | |
244 | u_long flags; | |
245 | ||
246 | switch (mt) { | |
475be4d8 JP |
247 | case CARD_RESET: |
248 | spin_lock_irqsave(&cs->lock, flags); | |
249 | reset_teles0(cs); | |
250 | spin_unlock_irqrestore(&cs->lock, flags); | |
251 | return (0); | |
252 | case CARD_RELEASE: | |
253 | release_io_teles0(cs); | |
254 | return (0); | |
255 | case CARD_INIT: | |
256 | spin_lock_irqsave(&cs->lock, flags); | |
257 | inithscxisac(cs, 3); | |
258 | spin_unlock_irqrestore(&cs->lock, flags); | |
259 | return (0); | |
260 | case CARD_TEST: | |
261 | return (0); | |
1da177e4 | 262 | } |
475be4d8 | 263 | return (0); |
1da177e4 LT |
264 | } |
265 | ||
ed5a84cd | 266 | int setup_teles0(struct IsdnCard *card) |
1da177e4 LT |
267 | { |
268 | u_char val; | |
269 | struct IsdnCardState *cs = card->cs; | |
270 | char tmp[64]; | |
271 | ||
272 | strcpy(tmp, teles0_revision); | |
273 | printk(KERN_INFO "HiSax: Teles 8.0/16.0 driver Rev. %s\n", HiSax_getrev(tmp)); | |
274 | if ((cs->typ != ISDN_CTYPE_16_0) && (cs->typ != ISDN_CTYPE_8_0)) | |
275 | return (0); | |
276 | ||
277 | if (cs->typ == ISDN_CTYPE_16_0) | |
278 | cs->hw.teles0.cfg_reg = card->para[2]; | |
279 | else /* 8.0 */ | |
280 | cs->hw.teles0.cfg_reg = 0; | |
281 | ||
282 | if (card->para[1] < 0x10000) { | |
283 | card->para[1] <<= 4; | |
284 | printk(KERN_INFO | |
475be4d8 | 285 | "Teles0: membase configured DOSish, assuming 0x%lx\n", |
1da177e4 LT |
286 | (unsigned long) card->para[1]); |
287 | } | |
288 | cs->irq = card->para[0]; | |
289 | if (cs->hw.teles0.cfg_reg) { | |
290 | if (!request_region(cs->hw.teles0.cfg_reg, 8, "teles cfg")) { | |
291 | printk(KERN_WARNING | |
475be4d8 | 292 | "HiSax: %s config port %x-%x already in use\n", |
1da177e4 LT |
293 | CardType[card->typ], |
294 | cs->hw.teles0.cfg_reg, | |
295 | cs->hw.teles0.cfg_reg + 8); | |
296 | return (0); | |
297 | } | |
298 | } | |
299 | if (cs->hw.teles0.cfg_reg) { | |
300 | if ((val = bytein(cs->hw.teles0.cfg_reg + 0)) != 0x51) { | |
301 | printk(KERN_WARNING "Teles0: 16.0 Byte at %x is %x\n", | |
302 | cs->hw.teles0.cfg_reg + 0, val); | |
303 | release_region(cs->hw.teles0.cfg_reg, 8); | |
304 | return (0); | |
305 | } | |
306 | if ((val = bytein(cs->hw.teles0.cfg_reg + 1)) != 0x93) { | |
307 | printk(KERN_WARNING "Teles0: 16.0 Byte at %x is %x\n", | |
308 | cs->hw.teles0.cfg_reg + 1, val); | |
309 | release_region(cs->hw.teles0.cfg_reg, 8); | |
310 | return (0); | |
311 | } | |
312 | val = bytein(cs->hw.teles0.cfg_reg + 2); /* 0x1e=without AB | |
475be4d8 JP |
313 | * 0x1f=with AB |
314 | * 0x1c 16.3 ??? | |
1da177e4 LT |
315 | */ |
316 | if (val != 0x1e && val != 0x1f) { | |
317 | printk(KERN_WARNING "Teles0: 16.0 Byte at %x is %x\n", | |
318 | cs->hw.teles0.cfg_reg + 2, val); | |
319 | release_region(cs->hw.teles0.cfg_reg, 8); | |
320 | return (0); | |
321 | } | |
322 | } | |
323 | /* 16.0 and 8.0 designed for IOM1 */ | |
324 | test_and_set_bit(HW_IOM1, &cs->HW_Flags); | |
325 | cs->hw.teles0.phymem = card->para[1]; | |
326 | if (!request_mem_region(cs->hw.teles0.phymem, TELES_IOMEM_SIZE, "teles iomem")) { | |
327 | printk(KERN_WARNING | |
475be4d8 JP |
328 | "HiSax: %s memory region %lx-%lx already in use\n", |
329 | CardType[card->typ], | |
330 | cs->hw.teles0.phymem, | |
331 | cs->hw.teles0.phymem + TELES_IOMEM_SIZE); | |
1da177e4 LT |
332 | if (cs->hw.teles0.cfg_reg) |
333 | release_region(cs->hw.teles0.cfg_reg, 8); | |
334 | return (0); | |
335 | } | |
336 | cs->hw.teles0.membase = ioremap(cs->hw.teles0.phymem, TELES_IOMEM_SIZE); | |
337 | printk(KERN_INFO | |
338 | "HiSax: %s config irq:%d mem:%p cfg:0x%X\n", | |
339 | CardType[cs->typ], cs->irq, | |
340 | cs->hw.teles0.membase, cs->hw.teles0.cfg_reg); | |
341 | if (reset_teles0(cs)) { | |
342 | printk(KERN_WARNING "Teles0: wrong IRQ\n"); | |
343 | release_io_teles0(cs); | |
344 | return (0); | |
345 | } | |
346 | setup_isac(cs); | |
347 | cs->readisac = &ReadISAC; | |
348 | cs->writeisac = &WriteISAC; | |
349 | cs->readisacfifo = &ReadISACfifo; | |
350 | cs->writeisacfifo = &WriteISACfifo; | |
351 | cs->BC_Read_Reg = &ReadHSCX; | |
352 | cs->BC_Write_Reg = &WriteHSCX; | |
353 | cs->BC_Send_Data = &hscx_fill_fifo; | |
354 | cs->cardmsg = &Teles_card_msg; | |
355 | cs->irq_func = &teles0_interrupt; | |
356 | ISACVersion(cs, "Teles0:"); | |
357 | if (HscxVersion(cs, "Teles0:")) { | |
358 | printk(KERN_WARNING | |
475be4d8 | 359 | "Teles0: wrong HSCX versions check IO/MEM addresses\n"); |
1da177e4 LT |
360 | release_io_teles0(cs); |
361 | return (0); | |
362 | } | |
363 | return (1); | |
364 | } |