xref: /minix/minix/drivers/net/dp8390/wdeth.c (revision 7f5f010b) 
1 /*
2 wdeth.c
3 
4 Created:	March 14, 1994 by Philip Homburg
5 */
6 
7 #include <minix/drivers.h>
8 
9 #include <net/gen/ether.h>
10 #include <net/gen/eth_io.h>
11 #include "assert.h"
12 
13 #include "local.h"
14 #include "dp8390.h"
15 #include "wdeth.h"
16 
17 #if ENABLE_WDETH
18 
19 #define WET_ETHERNET	0x01		/* Ethernet transceiver */
20 #define WET_STARLAN	0x02		/* Starlan transceiver */
21 #define WET_INTERF_CHIP	0x04		/* has a WD83C583 interface chip */
22 #define WET_BRD_16BIT	0x08		/* 16 bit board */
23 #define WET_SLT_16BIT	0x10		/* 16 bit slot */
24 #define WET_790		0x20		/* '790 chip */
25 
26 static int we_int_table[8]= { 9, 3, 5, 7, 10, 11, 15, 4 };
27 static int we_790int_table[8]= { 0, 9, 3, 5, 7, 10, 11, 15 };
28 
29 static void we_init(dpeth_t *dep);
30 static void we_stop(dpeth_t *dep);
31 static int we_aliasing(dpeth_t *dep);
32 static int we_interface_chip(dpeth_t *dep);
33 static int we_16bitboard(dpeth_t *dep);
34 static int we_16bitslot(dpeth_t *dep);
35 static int we_ultra(dpeth_t *dep);
36 
37 /*===========================================================================*
38  *				wdeth_probe				     *
39  *===========================================================================*/
40 int wdeth_probe(dep)
41 dpeth_t *dep;
42 {
43 	int sum;
44 
45 	if (dep->de_linmem == 0)
46 		return 0;	/* No shared memory, so no WD board */
47 
48 	sum = inb_we(dep, EPL_EA0) + inb_we(dep, EPL_EA1) +
49 		inb_we(dep, EPL_EA2) + inb_we(dep, EPL_EA3) +
50 		inb_we(dep, EPL_EA4) + inb_we(dep, EPL_EA5) +
51 		inb_we(dep, EPL_TLB) + inb_we(dep, EPL_CHKSUM);
52 	if ((sum & 0xFF) != 0xFF)
53 		return 0;	/* No ethernet board at this address */
54 
55 	dep->de_initf= we_init;
56 	dep->de_stopf= we_stop;
57 	dep->de_prog_IO= 0;
58 	return 1;
59 }
60 
61 /*===========================================================================*
62  *				we_init					     *
63  *===========================================================================*/
64 static void we_init(dep)
65 dpeth_t *dep;
66 {
67 	int i, int_indx, int_nr;
68 	int tlb, rambit, revision;
69 	int icr, irr, hwr, b, gcr;
70 	int we_type;
71 	int sendq_nr;
72 
73 	assert(dep->de_mode == DEM_ENABLED);
74 	assert(!(dep->de_flags & DEF_ENABLED));
75 
76 	dep->de_address.ea_addr[0] = inb_we(dep, EPL_EA0);
77 	dep->de_address.ea_addr[1] = inb_we(dep, EPL_EA1);
78 	dep->de_address.ea_addr[2] = inb_we(dep, EPL_EA2);
79 	dep->de_address.ea_addr[3] = inb_we(dep, EPL_EA3);
80 	dep->de_address.ea_addr[4] = inb_we(dep, EPL_EA4);
81 	dep->de_address.ea_addr[5] = inb_we(dep, EPL_EA5);
82 
83 	dep->de_dp8390_port= dep->de_base_port + EPL_DP8390;
84 
85 	dep->de_16bit= 0;
86 
87 	we_type= 0;
88 	we_type |= WET_ETHERNET;	/* assume ethernet */
89 	if (we_ultra(dep))
90 		we_type |= WET_790;
91 	if (!we_aliasing(dep))
92 	{
93 		if (we_interface_chip(dep))
94 			we_type |= WET_INTERF_CHIP;
95 		if (we_16bitboard(dep))
96 		{
97 			we_type |= WET_BRD_16BIT;
98 			if (we_16bitslot(dep))
99 				we_type |= WET_SLT_16BIT;
100 		}
101 	}
102 	if (we_type & WET_SLT_16BIT)
103 		dep->de_16bit= 1;
104 
105 	/* look at the on board ram size. */
106 	tlb= inb_we(dep, EPL_TLB);
107 	revision= tlb & E_TLB_REV;
108 	rambit= tlb & E_TLB_RAM;
109 
110 	if (dep->de_ramsize != 0)
111 	{
112 		/* size set from boot environment. */
113 	}
114 	else if (revision < 2)
115 	{
116 		dep->de_ramsize= 0x2000;			/* 8K */
117 		if (we_type & WET_BRD_16BIT)
118 			dep->de_ramsize= 0x4000;		/* 16K */
119 		else if ((we_type & WET_INTERF_CHIP) &&
120 			inb_we(dep, EPL_ICR) & E_ICR_MEMBIT)
121 		{
122 			dep->de_ramsize= 0x8000;		/* 32K */
123 		}
124 	}
125 	else
126 	{
127 		if (we_type & WET_BRD_16BIT)
128 		{
129 			/* 32K or 16K */
130 			dep->de_ramsize= rambit ? 0x8000 : 0x4000;
131 		}
132 		else
133 		{
134 			/* 32K or 8K */
135 			dep->de_ramsize= rambit ? 0x8000 : 0x2000;
136 		}
137 	}
138 
139 	if (we_type & WET_790)
140 	{
141 		outb_we(dep, EPL_MSR, E_MSR_RESET);
142 		if ((we_type & (WET_BRD_16BIT|WET_SLT_16BIT)) ==
143 			(WET_BRD_16BIT|WET_SLT_16BIT))
144 		{
145 			outb_we(dep, EPL_LAAR, E_LAAR_LAN16E | E_LAAR_MEM16E);
146 		}
147 	}
148 	else if (we_type & WET_BRD_16BIT)
149 	{
150 		if (we_type & WET_SLT_16BIT)
151 		{
152 			outb_we(dep, EPL_LAAR, E_LAAR_A19 | E_LAAR_SOFTINT |
153 				E_LAAR_LAN16E | E_LAAR_MEM16E);
154 		}
155 		else
156 		{
157 			outb_we(dep, EPL_LAAR, E_LAAR_A19 | E_LAAR_SOFTINT |
158 				E_LAAR_LAN16E);
159 		}
160 	}
161 
162 	if (we_type & WET_790)
163 	{
164 		outb_we(dep, EPL_MSR, E_MSR_MENABLE);
165 		hwr= inb_we(dep, EPL_790_HWR);
166 		outb_we(dep, EPL_790_HWR, hwr | E_790_HWR_SWH);
167 		b= inb_we(dep, EPL_790_B);
168 		outb_we(dep, EPL_790_B, ((dep->de_linmem >> 13) & 0x0f) |
169 			((dep->de_linmem >> 11) & 0x40) | (b & 0xb0));
170 		outb_we(dep, EPL_790_HWR, hwr & ~E_790_HWR_SWH);
171 	}
172 	else
173 	{
174 		outb_we(dep, EPL_MSR, E_MSR_RESET);
175 		outb_we(dep, EPL_MSR, E_MSR_MENABLE |
176 			((dep->de_linmem >> 13) & E_MSR_MEMADDR));
177 	}
178 
179 	if ((we_type & WET_INTERF_CHIP) && !(we_type & WET_790))
180 	{
181 		icr= inb_we(dep, EPL_ICR);
182 		irr= inb_we(dep, EPL_IRR);
183 		int_indx= (icr & E_ICR_IR2) |
184 			((irr & (E_IRR_IR0|E_IRR_IR1)) >> 5);
185 		int_nr= we_int_table[int_indx];
186 #if DEBUG
187  { printf("%s: encoded irq= %d\n", dep->de_name, int_nr); }
188 #endif
189 		if (dep->de_irq & DEI_DEFAULT) dep->de_irq= int_nr;
190 
191 		outb_we(dep, EPL_IRR, irr | E_IRR_IEN);
192 	}
193 	if (we_type & WET_790)
194 	{
195 		hwr= inb_we(dep, EPL_790_HWR);
196 		outb_we(dep, EPL_790_HWR, hwr | E_790_HWR_SWH);
197 
198 		gcr= inb_we(dep, EPL_790_GCR);
199 
200 		outb_we(dep, EPL_790_HWR, hwr & ~E_790_HWR_SWH);
201 
202 		int_indx= ((gcr & E_790_GCR_IR2) >> 4) |
203 			((gcr & (E_790_GCR_IR1|E_790_GCR_IR0)) >> 2);
204 		int_nr= we_790int_table[int_indx];
205 #if DEBUG
206  { printf("%s: encoded irq= %d\n", dep->de_name, int_nr); }
207 #endif
208 		if (dep->de_irq & DEI_DEFAULT) dep->de_irq= int_nr;
209 
210 		icr= inb_we(dep, EPL_790_ICR);
211 		outb_we(dep, EPL_790_ICR, icr | E_790_ICR_EIL);
212 	}
213 
214 	/* Strip the "default flag." */
215 	dep->de_irq &= ~DEI_DEFAULT;
216 
217 	if (!debug)
218 	{
219 		printf("%s: WD80%d3 at %X:%d:%lX\n",
220 			dep->de_name, we_type & WET_BRD_16BIT ? 1 : 0,
221 			dep->de_base_port, dep->de_irq, dep->de_linmem);
222 	}
223 	else
224 	{
225 		printf("%s: Western Digital %s%s card %s%s at I/O "
226 			"address 0x%X, memory address 0x%lX, "
227 			"memory size 0x%X, irq %d\n",
228 			dep->de_name,
229 			we_type & WET_BRD_16BIT ? "16-bit " : "",
230 			we_type & WET_ETHERNET ? "Ethernet" :
231 			we_type & WET_STARLAN ? "Starlan" : "Network",
232 			we_type & WET_INTERF_CHIP ? "with an interface chip " : "",
233 			we_type & WET_SLT_16BIT ? "in a 16-bit slot " : "",
234 			dep->de_base_port, dep->de_linmem, dep->de_ramsize,
235 			dep->de_irq);
236 	}
237 
238 	dep->de_offset_page= 0;		/* Shared memory starts at 0 */
239 
240 	/* Allocate one send buffer (1.5KB) per 8KB of on board memory. */
241 	sendq_nr= dep->de_ramsize / 0x2000;
242 	if (sendq_nr < 1)
243 		sendq_nr= 1;
244 	else if (sendq_nr > SENDQ_NR)
245 		sendq_nr= SENDQ_NR;
246 	dep->de_sendq_nr= sendq_nr;
247 	for (i= 0; i<sendq_nr; i++)
248 		dep->de_sendq[i].sq_sendpage= i*SENDQ_PAGES;
249 
250 	dep->de_startpage= i*SENDQ_PAGES;
251 	dep->de_stoppage= dep->de_ramsize / DP_PAGESIZE;
252 }
253 
254 /*===========================================================================*
255  *				we_stop					     *
256  *===========================================================================*/
257 static void we_stop(dep)
258 dpeth_t *dep;
259 {
260 	if (dep->de_16bit)
261 		outb_we(dep, EPL_LAAR, E_LAAR_A19 | E_LAAR_LAN16E);
262 	outb_we(dep, EPL_MSR, E_MSR_RESET);
263 	outb_we(dep, EPL_MSR, 0);
264 }
265 
266 /*===========================================================================*
267  *				we_aliasing				     *
268  *===========================================================================*/
269 static int we_aliasing(dep)
270 dpeth_t *dep;
271 {
272 /* Determine whether wd8003 hardware performs register aliasing. This implies
273  * an old WD8003E board. */
274 
275 	if (inb_we(dep, EPL_REG1) != inb_we(dep, EPL_EA1))
276 		return 0;
277 	if (inb_we(dep, EPL_REG2) != inb_we(dep, EPL_EA2))
278 		return 0;
279 	if (inb_we(dep, EPL_REG3) != inb_we(dep, EPL_EA3))
280 		return 0;
281 	if (inb_we(dep, EPL_REG4) != inb_we(dep, EPL_EA4))
282 		return 0;
283 	if (inb_we(dep, EPL_REG7) != inb_we(dep, EPL_CHKSUM))
284 		return 0;
285 	return 1;
286 }
287 
288 /*===========================================================================*
289  *				we_interface_chip			     *
290  *===========================================================================*/
291 static int we_interface_chip(dep)
292 dpeth_t *dep;
293 {
294 /* Determine if the board has an interface chip. */
295 
296 	outb_we(dep, EPL_GP2, 0x35);
297 	if (inb_we(dep, EPL_GP2) != 0x35)
298 		return 0;
299 	outb_we(dep, EPL_GP2, 0x3A);
300 	if (inb_we(dep, EPL_GP2) != 0x3A)
301 		return 0;
302 	return 1;
303 }
304 
305 /*===========================================================================*
306  *				we_16bitboard				     *
307  *===========================================================================*/
308 static int we_16bitboard(dep)
309 dpeth_t *dep;
310 {
311 /* Determine whether the board is capable of doing 16 bit memory moves.
312  * If the 16 bit enable bit is unchangable by software we'll assume an
313  * 8 bit board.
314  */
315 	int icr;
316 	u8_t tlb;
317 
318 	icr= inb_we(dep, EPL_ICR);
319 
320 	outb_we(dep, EPL_ICR, icr ^ E_ICR_16BIT);
321 	if (inb_we(dep, EPL_ICR) == icr)
322 	{
323 		tlb= inb_we(dep, EPL_TLB);
324 #if DEBUG
325 		printf("%s: tlb= 0x%x\n", dep->de_name, tlb);
326 #endif
327 		return tlb == E_TLB_EB || tlb == E_TLB_E ||
328 			tlb == E_TLB_SMCE || tlb == E_TLB_SMC8216T ||
329 			tlb == E_TLB_SMC8216C;
330 	}
331 	outb_we(dep, EPL_ICR, icr);
332 	return (icr & E_ICR_16BIT);
333 }
334 
335 /*===========================================================================*
336  *				we_16bitslot				     *
337  *===========================================================================*/
338 static int we_16bitslot(dep)
339 dpeth_t *dep;
340 {
341 /* Determine if the 16 bit board in plugged into a 16 bit slot.  */
342 	return !!(inb_we(dep, EPL_ICR) & E_ICR_16BIT);
343 }
344 
345 /*===========================================================================*
346  *				we_ultra				     *
347  *===========================================================================*/
348 static int we_ultra(dep)
349 dpeth_t *dep;
350 {
351 /* Determine if we has an '790 chip.  */
352 	u8_t tlb;
353 
354 	tlb= inb_we(dep, EPL_TLB);
355 	return tlb == E_TLB_SMC8216T || tlb == E_TLB_SMC8216C;
356 }
357 
358 #endif /* ENABLE_WDETH */
359 
360 /*
361  * $PchId: wdeth.c,v 1.10 2003/09/10 19:31:50 philip Exp $
362  */
363