if_le.c revision 1.2 1 /* $NetBSD: if_le.c,v 1.2 2002/10/02 05:31:46 thorpej Exp $ */
2
3 /*-
4 * Copyright (c) 1995 Charles M. Hannum. All rights reserved.
5 * Copyright (c) 1992, 1993
6 * The Regents of the University of California. All rights reserved.
7 *
8 * This code is derived from software contributed to Berkeley by
9 * Ralph Campbell and Rick Macklem.
10 *
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
13 * are met:
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by the University of
22 * California, Berkeley and its contributors.
23 * 4. Neither the name of the University nor the names of its contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
26 *
27 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
37 * SUCH DAMAGE.
38 *
39 * @(#)if_le.c 8.2 (Berkeley) 11/16/93
40 */
41
42 #include <sys/cdefs.h> /* RCS ID & Copyright macro defns */
43
44 __KERNEL_RCSID(0, "$NetBSD: if_le.c,v 1.2 2002/10/02 05:31:46 thorpej Exp $");
45
46 #include "opt_inet.h"
47 #include "bpfilter.h"
48
49 #include <sys/param.h>
50 #include <sys/systm.h>
51 #include <sys/mbuf.h>
52 #include <sys/socket.h>
53 #include <sys/device.h>
54
55 #include <net/if.h>
56 #include <net/if_ether.h>
57 #include <net/if_media.h>
58
59 #ifdef INET
60 #include <netinet/in.h>
61 #include <netinet/if_inarp.h>
62 #endif
63
64 #include <machine/cpu.h>
65 #include <machine/autoconf.h>
66
67 #include <luna68k/luna68k/isr.h>
68
69 #include <dev/ic/lancereg.h>
70 #include <dev/ic/lancevar.h>
71 #include <dev/ic/am7990reg.h>
72 #include <dev/ic/am7990var.h>
73
74 /*
75 * LANCE registers.
76 */
77 struct lereg1 {
78 volatile u_int16_t ler1_rdp; /* data port */
79 volatile u_int16_t ler1_rap; /* register select port */
80 };
81
82 /*
83 * Ethernet software status per interface.
84 *
85 * Each interface is referenced by a network interface structure,
86 * arpcom.ac_if, which the routing code uses to locate the interface.
87 * This structure contains the output queue for the interface, its address, ...
88 */
89 struct le_softc {
90 struct am7990_softc sc_am7990; /* glue to MI code */
91
92 struct lereg1 *sc_r1; /* LANCE registers */
93 };
94
95 static int le_match __P((struct device *, struct cfdata *, void *));
96 static void le_attach __P((struct device *, struct device *, void *));
97
98 CFATTACH_DECL(le, sizeof(struct le_softc),
99 le_match, le_attach, NULL, NULL);
100 extern struct cfdriver le_cd;
101
102 static void lesrcsr __P((struct lance_softc *, u_int16_t, u_int16_t));
103 static u_int16_t lerdcsr __P((struct lance_softc *, u_int16_t));
104 static void myetheraddr __P((u_int8_t *));
105
106 static void
107 lesrcsr(sc, port, val)
108 struct lance_softc *sc;
109 u_int16_t port, val;
110 {
111 struct lereg1 *ler1 = ((struct le_softc *)sc)->sc_r1;
112
113 ler1->ler1_rap = port;
114 ler1->ler1_rdp = val;
115 }
116
117 static u_int16_t
118 lerdcsr(sc, port)
119 struct lance_softc *sc;
120 u_int16_t port;
121 {
122 struct lereg1 *ler1 = ((struct le_softc *)sc)->sc_r1;
123 u_int16_t val;
124
125 ler1->ler1_rap = port;
126 val = ler1->ler1_rdp;
127 return (val);
128 }
129
130 static int
131 le_match(parent, cf, aux)
132 struct device *parent;
133 struct cfdata *cf;
134 void *aux;
135 {
136 struct mainbus_attach_args *ma = aux;
137
138 if (strcmp(ma->ma_name, le_cd.cd_name))
139 return (0);
140
141 return (1);
142 }
143
144 void
145 le_attach(parent, self, aux)
146 struct device *parent, *self;
147 void *aux;
148 {
149 struct le_softc *lesc = (void *)self;
150 struct lance_softc *sc = &lesc->sc_am7990.lsc;
151 struct mainbus_attach_args *ma = aux;
152
153 /* Map control registers. */
154 lesc->sc_r1 = (struct lereg1 *)ma->ma_addr; /* LANCE */
155
156 sc->sc_mem = (void *)0x71010000; /* SRAM */
157 sc->sc_conf3 = LE_C3_BSWP;
158 sc->sc_addr = (u_long)sc->sc_mem & 0xffffff;
159 sc->sc_memsize = 64 * 1024; /* 64KB */
160
161 myetheraddr(sc->sc_enaddr);
162
163 sc->sc_copytodesc = lance_copytobuf_contig;
164 sc->sc_copyfromdesc = lance_copyfrombuf_contig;
165 sc->sc_copytobuf = lance_copytobuf_contig;
166 sc->sc_copyfrombuf = lance_copyfrombuf_contig;
167 sc->sc_zerobuf = lance_zerobuf_contig;
168
169 sc->sc_rdcsr = lerdcsr;
170 sc->sc_wrcsr = lesrcsr;
171 sc->sc_hwinit = NULL;
172
173 am7990_config(&lesc->sc_am7990);
174
175 isrlink_autovec(am7990_intr, (void *)sc, ma->ma_ilvl, ISRPRI_NET);
176 }
177
178 /*
179 * LUNA-I has 1Mbit CPU ROM, which contains MAC address directly
180 * readable at 0x4100FFE0 as a sequence of 12 ASCII characters.
181 *
182 * LUNA-II has 16Kbit NVSRAM on its ethercard, whose contents are
183 * accessible 4bit-wise by ctl register operation. The register is
184 * mapped at 0xF1000004.
185 */
186 void
187 myetheraddr(ether)
188 u_int8_t *ether;
189 {
190 unsigned i, loc;
191 u_int8_t *ea;
192 volatile struct { u_int32_t ctl; } *ds1220;
193
194 switch (machtype) {
195 case LUNA_I:
196 ea = (u_int8_t *)0x4101FFE0;
197 for (i = 0; i < 6; i++) {
198 int u, l;
199
200 u = ea[0];
201 u = (u < 'A') ? u & 0xf : u - 'A' + 10;
202 l = ea[1];
203 l = (l < 'A') ? l & 0xf : l - 'A' + 10;
204
205 ether[i] = l | (u << 4);
206 ea += 2;
207 }
208 break;
209 case LUNA_II:
210 ds1220 = (void *)0xF1000004;
211 loc = 12;
212 for (i = 0; i < 6; i++) {
213 unsigned u, l, hex;
214
215 ds1220->ctl = (loc) << 16;
216 u = 0xf0 & (ds1220->ctl >> 12);
217 ds1220->ctl = (loc + 1) << 16;
218 l = 0x0f & (ds1220->ctl >> 16);
219 hex = (u < '9') ? l : l + 9;
220
221 ds1220->ctl = (loc + 2) << 16;
222 u = 0xf0 & (ds1220->ctl >> 12);
223 ds1220->ctl = (loc + 3) << 16;
224 l = 0x0f & (ds1220->ctl >> 16);
225
226 ether[i] = ((u < '9') ? l : l + 9) | (hex << 4);
227 loc += 4;
228 }
229 break;
230 default:
231 ether[0] = 0x00; ether[1] = 0x00; ether[2] = 0x0a;
232 ether[3] = 0xDE; ether[4] = 0xAD; ether[5] = 0x00;
233 break;
234 }
235 }
236