File: /usr/src/linux/drivers/isdn/hisax/nj_u.c
1 /* $Id: nj_u.c,v 2.8.6.5 2001/07/18 16:25:12 kai Exp $
2 *
3 * This file is (c) under GNU General Public License
4 *
5 */
6
7 #define __NO_VERSION__
8 #include <linux/config.h>
9 #include <linux/init.h>
10 #include "hisax.h"
11 #include "icc.h"
12 #include "isdnl1.h"
13 #include <linux/pci.h>
14 #include <linux/interrupt.h>
15 #include <linux/ppp_defs.h>
16 #include "netjet.h"
17
18 const char *NETjet_U_revision = "$Revision: 2.8.6.5 $";
19
20 static u_char dummyrr(struct IsdnCardState *cs, int chan, u_char off)
21 {
22 return(5);
23 }
24
25 static void dummywr(struct IsdnCardState *cs, int chan, u_char off, u_char value)
26 {
27 }
28
29 static void
30 netjet_u_interrupt(int intno, void *dev_id, struct pt_regs *regs)
31 {
32 struct IsdnCardState *cs = dev_id;
33 u_char val, sval;
34 long flags;
35
36 if (!cs) {
37 printk(KERN_WARNING "NETspider-U: Spurious interrupt!\n");
38 return;
39 }
40 if (!((sval = bytein(cs->hw.njet.base + NETJET_IRQSTAT1)) &
41 NETJET_ISACIRQ)) {
42 val = NETjet_ReadIC(cs, ICC_ISTA);
43 if (cs->debug & L1_DEB_ISAC)
44 debugl1(cs, "tiger: i1 %x %x", sval, val);
45 if (val) {
46 icc_interrupt(cs, val);
47 NETjet_WriteIC(cs, ICC_MASK, 0xFF);
48 NETjet_WriteIC(cs, ICC_MASK, 0x0);
49 }
50 }
51 save_flags(flags);
52 cli();
53 /* start new code 13/07/00 GE */
54 /* set bits in sval to indicate which page is free */
55 if (inl(cs->hw.njet.base + NETJET_DMA_WRITE_ADR) <
56 inl(cs->hw.njet.base + NETJET_DMA_WRITE_IRQ))
57 /* the 2nd write page is free */
58 sval = 0x08;
59 else /* the 1st write page is free */
60 sval = 0x04;
61 if (inl(cs->hw.njet.base + NETJET_DMA_READ_ADR) <
62 inl(cs->hw.njet.base + NETJET_DMA_READ_IRQ))
63 /* the 2nd read page is free */
64 sval = sval | 0x02;
65 else /* the 1st read page is free */
66 sval = sval | 0x01;
67 if (sval != cs->hw.njet.last_is0) /* we have a DMA interrupt */
68 {
69 if (test_and_set_bit(FLG_LOCK_ATOMIC, &cs->HW_Flags)) {
70 restore_flags(flags);
71 return;
72 }
73 cs->hw.njet.irqstat0 = sval;
74 restore_flags(flags);
75 if ((cs->hw.njet.irqstat0 & NETJET_IRQM0_READ) !=
76 (cs->hw.njet.last_is0 & NETJET_IRQM0_READ))
77 /* we have a read dma int */
78 read_tiger(cs);
79 if ((cs->hw.njet.irqstat0 & NETJET_IRQM0_WRITE) !=
80 (cs->hw.njet.last_is0 & NETJET_IRQM0_WRITE))
81 /* we have a write dma int */
82 write_tiger(cs);
83 /* end new code 13/07/00 GE */
84 test_and_clear_bit(FLG_LOCK_ATOMIC, &cs->HW_Flags);
85 } else
86 restore_flags(flags);
87
88 /* if (!testcnt--) {
89 cs->hw.njet.dmactrl = 0;
90 byteout(cs->hw.njet.base + NETJET_DMACTRL,
91 cs->hw.njet.dmactrl);
92 byteout(cs->hw.njet.base + NETJET_IRQMASK0, 0);
93 }
94 */
95 }
96
97 static void
98 reset_netjet_u(struct IsdnCardState *cs)
99 {
100 long flags;
101
102 save_flags(flags);
103 sti();
104 cs->hw.njet.ctrl_reg = 0xff; /* Reset On */
105 byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
106 set_current_state(TASK_UNINTERRUPTIBLE);
107 schedule_timeout((10*HZ)/1000); /* Timeout 10ms */
108 cs->hw.njet.ctrl_reg = 0x40; /* Reset Off and status read clear */
109 /* now edge triggered for TJ320 GE 13/07/00 */
110 byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
111 set_current_state(TASK_UNINTERRUPTIBLE);
112 schedule_timeout((10*HZ)/1000); /* Timeout 10ms */
113 restore_flags(flags);
114 cs->hw.njet.auxd = 0xC0;
115 cs->hw.njet.dmactrl = 0;
116 byteout(cs->hw.njet.auxa, 0);
117 byteout(cs->hw.njet.base + NETJET_AUXCTRL, ~NETJET_ISACIRQ);
118 byteout(cs->hw.njet.base + NETJET_IRQMASK1, NETJET_ISACIRQ);
119 byteout(cs->hw.njet.auxa, cs->hw.njet.auxd);
120 }
121
122 static int
123 NETjet_U_card_msg(struct IsdnCardState *cs, int mt, void *arg)
124 {
125 switch (mt) {
126 case CARD_RESET:
127 reset_netjet_u(cs);
128 return(0);
129 case CARD_RELEASE:
130 release_io_netjet(cs);
131 return(0);
132 case CARD_INIT:
133 inittiger(cs);
134 clear_pending_icc_ints(cs);
135 initicc(cs);
136 /* Reenable all IRQ */
137 cs->writeisac(cs, ICC_MASK, 0);
138 return(0);
139 case CARD_TEST:
140 return(0);
141 }
142 return(0);
143 }
144
145 static struct pci_dev *dev_netjet __initdata = NULL;
146
147 int __init
148 setup_netjet_u(struct IsdnCard *card)
149 {
150 int bytecnt;
151 struct IsdnCardState *cs = card->cs;
152 char tmp[64];
153 long flags;
154 #if CONFIG_PCI
155 #endif
156 #ifdef __BIG_ENDIAN
157 #error "not running on big endian machines now"
158 #endif
159 strcpy(tmp, NETjet_U_revision);
160 printk(KERN_INFO "HiSax: Traverse Tech. NETspider-U driver Rev. %s\n", HiSax_getrev(tmp));
161 if (cs->typ != ISDN_CTYPE_NETJET_U)
162 return(0);
163 test_and_clear_bit(FLG_LOCK_ATOMIC, &cs->HW_Flags);
164
165 #if CONFIG_PCI
166
167 for ( ;; )
168 {
169 if (!pci_present()) {
170 printk(KERN_ERR "Netjet: no PCI bus present\n");
171 return(0);
172 }
173 if ((dev_netjet = pci_find_device(PCI_VENDOR_ID_TIGERJET,
174 PCI_DEVICE_ID_TIGERJET_300, dev_netjet))) {
175 if (pci_enable_device(dev_netjet))
176 return(0);
177 pci_set_master(dev_netjet);
178 cs->irq = dev_netjet->irq;
179 if (!cs->irq) {
180 printk(KERN_WARNING "NETspider-U: No IRQ for PCI card found\n");
181 return(0);
182 }
183 cs->hw.njet.base = pci_resource_start(dev_netjet, 0);
184 if (!cs->hw.njet.base) {
185 printk(KERN_WARNING "NETspider-U: No IO-Adr for PCI card found\n");
186 return(0);
187 }
188 } else {
189 printk(KERN_WARNING "NETspider-U: No PCI card found\n");
190 return(0);
191 }
192
193 cs->hw.njet.auxa = cs->hw.njet.base + NETJET_AUXDATA;
194 cs->hw.njet.isac = cs->hw.njet.base | NETJET_ISAC_OFF;
195
196 save_flags(flags);
197 sti();
198
199 cs->hw.njet.ctrl_reg = 0xff; /* Reset On */
200 byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
201
202 set_current_state(TASK_UNINTERRUPTIBLE);
203 schedule_timeout((10*HZ)/1000); /* Timeout 10ms */
204
205 cs->hw.njet.ctrl_reg = 0x00; /* Reset Off and status read clear */
206 byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
207
208 set_current_state(TASK_UNINTERRUPTIBLE);
209 schedule_timeout((10*HZ)/1000); /* Timeout 10ms */
210
211 restore_flags(flags);
212
213 cs->hw.njet.auxd = 0xC0;
214 cs->hw.njet.dmactrl = 0;
215
216 byteout(cs->hw.njet.auxa, 0);
217 byteout(cs->hw.njet.base + NETJET_AUXCTRL, ~NETJET_ISACIRQ);
218 byteout(cs->hw.njet.base + NETJET_IRQMASK1, NETJET_ISACIRQ);
219 byteout(cs->hw.njet.auxa, cs->hw.njet.auxd);
220
221 switch ( ( ( NETjet_ReadIC( cs, ICC_RBCH ) >> 5 ) & 3 ) )
222 {
223 case 3 :
224 break;
225
226 case 0 :
227 printk( KERN_WARNING "NETspider-U: NETjet-S PCI card found\n" );
228 continue;
229
230 default :
231 printk( KERN_WARNING "NETspider-U: No PCI card found\n" );
232 return 0;
233 }
234 break;
235 }
236 #else
237
238 printk(KERN_WARNING "NETspider-U: NO_PCI_BIOS\n");
239 printk(KERN_WARNING "NETspider-U: unable to config NETspider-U PCI\n");
240 return (0);
241
242 #endif /* CONFIG_PCI */
243
244 bytecnt = 256;
245
246 printk(KERN_INFO
247 "NETspider-U: PCI card configured at %#lx IRQ %d\n",
248 cs->hw.njet.base, cs->irq);
249 if (check_region(cs->hw.njet.base, bytecnt)) {
250 printk(KERN_WARNING
251 "HiSax: %s config port %#lx-%#lx already in use\n",
252 CardType[card->typ],
253 cs->hw.njet.base,
254 cs->hw.njet.base + bytecnt);
255 return (0);
256 } else {
257 request_region(cs->hw.njet.base, bytecnt, "netspider-u isdn");
258 }
259 reset_netjet_u(cs);
260 cs->readisac = &NETjet_ReadIC;
261 cs->writeisac = &NETjet_WriteIC;
262 cs->readisacfifo = &NETjet_ReadICfifo;
263 cs->writeisacfifo = &NETjet_WriteICfifo;
264 cs->BC_Read_Reg = &dummyrr;
265 cs->BC_Write_Reg = &dummywr;
266 cs->BC_Send_Data = &netjet_fill_dma;
267 cs->cardmsg = &NETjet_U_card_msg;
268 cs->irq_func = &netjet_u_interrupt;
269 cs->irq_flags |= SA_SHIRQ;
270 ICCVersion(cs, "NETspider-U:");
271 return (1);
272 }
273