1 /* $NetBSD: ne.c,v 1.7 2008/12/14 18:46:33 christos Exp $ */
2
3 /*-
4 * Copyright (c) 1997, 1998 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by Jason R. Thorpe of the Numerical Aerospace Simulation Facility,
9 * NASA Ames Research Center.
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 *
20 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
21 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
22 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
23 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
24 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
25 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
26 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
27 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
29 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
30 * POSSIBILITY OF SUCH DAMAGE.
31 */
32
33 /*
34 * Device driver for National Semiconductor DS8390/WD83C690 based ethernet
35 * adapters.
36 *
37 * Copyright (c) 1994, 1995 Charles M. Hannum. All rights reserved.
38 *
39 * Copyright (C) 1993, David Greenman. This software may be used, modified,
40 * copied, distributed, and sold, in both source and binary form provided that
41 * the above copyright and these terms are retained. Under no circumstances is
42 * the author responsible for the proper functioning of this software, nor does
43 * the author assume any responsibility for damages incurred with its use.
44 */
45
46 /*
47 * this code is mainly obtained from /sys/dev/ic/ne2000.c .
48 */
49
50 #include <sys/types.h>
51 #include <machine/pio.h>
52
53 #include <lib/libsa/stand.h>
54 #include <libi386.h>
55
56 #ifdef _STANDALONE
57 #include <lib/libkern/libkern.h>
58 #include <bootinfo.h>
59 #endif
60
61 #include "etherdrv.h"
62 #include <dev/ic/dp8390reg.h>
63 #include <dev/ic/ne2000reg.h>
64 #include "dp8390.h"
65 #include "ne.h"
66
67 #ifndef BASEREG
68 #define BASEREG 0x300
69 #endif
70
71 #define NE_BASEREG BASEREG
72 #define NE_ASIC_BASEREG (NE_BASEREG+NE2000_ASIC_OFFSET)
73
74 #define NIC_PORT(x) (NE_BASEREG + (x))
75 #define NIC_INB(x) inb(NIC_PORT(x))
76 #define NIC_OUTB(x, b) outb(NIC_PORT(x), (b))
77
78 #define NE_16BIT
79
80 #define DELAY(x) delay(x)
81
82 #define ASIC_PORT(x) (NE_ASIC_BASEREG + (x))
83 #define ASIC_INB(x) inb(ASIC_PORT(x))
84 #define ASIC_INW(x) inw(ASIC_PORT(x))
85 #define ASIC_OUTB(x, b) outb(ASIC_PORT(x), (b))
86 #define ASIC_OUTW(x, b) outw(ASIC_PORT(x), (b))
87
88 u_char eth_myaddr[6];
89
90 #ifdef _STANDALONE
91 static struct btinfo_netif bi_netif;
92 #endif
93
94 int
EtherInit(unsigned char * myadr)95 EtherInit(unsigned char *myadr)
96 {
97 uint8_t tmp;
98 int i;
99
100 printf("ne: trying iobase=0x%x\n", NE_BASEREG);
101
102 dp8390_iobase = NE_BASEREG;
103 dp8390_membase = dp8390_memsize = 8192*2;
104 dp8390_cr_proto = ED_CR_RD2;
105 dp8390_dcr_reg = ED_DCR_FT1 | ED_DCR_LS
106 #ifdef NE_16BIT
107 | ED_DCR_WTS
108 #endif
109 ;
110
111 /* reset */
112 tmp = ASIC_INB(NE2000_ASIC_RESET);
113 DELAY(10000);
114 ASIC_OUTB(NE2000_ASIC_RESET, tmp);
115 DELAY(5000);
116
117 NIC_OUTB(ED_P0_CR, ED_CR_RD2 | ED_CR_PAGE_0 | ED_CR_STP);
118 DELAY(5000);
119
120 tmp = NIC_INB(ED_P0_CR);
121 if ((tmp & (ED_CR_RD2 | ED_CR_TXP | ED_CR_STA | ED_CR_STP)) !=
122 (ED_CR_RD2 | ED_CR_STP)) {
123 goto out;
124 }
125
126 tmp = NIC_INB(ED_P0_ISR);
127 if ((tmp & ED_ISR_RST) != ED_ISR_RST) {
128 goto out;
129 }
130
131 NIC_OUTB(ED_P0_CR, ED_CR_RD2 | ED_CR_PAGE_0 | ED_CR_STA);
132
133 for (i = 0; i < 100; i++) {
134 if ((NIC_INB(ED_P0_ISR) & ED_ISR_RST) ==
135 ED_ISR_RST) {
136 /* Ack the reset bit. */
137 NIC_OUTB(ED_P0_ISR, ED_ISR_RST);
138 break;
139 }
140 DELAY(100);
141 }
142
143 printf("ne: found\n");
144
145 /*
146 * This prevents packets from being stored in the NIC memory when
147 * the readmem routine turns on the start bit in the CR.
148 */
149 NIC_OUTB(ED_P0_RCR, ED_RCR_MON);
150
151 /* Temporarily initialize DCR for byte operations. */
152 NIC_OUTB(ED_P0_DCR, ED_DCR_FT1 | ED_DCR_LS);
153
154 NIC_OUTB(ED_P0_PSTART, 8192 >> ED_PAGE_SHIFT);
155 NIC_OUTB(ED_P0_PSTOP, 16384 >> ED_PAGE_SHIFT);
156
157 #ifdef HWADDR
158 for (i = 0; i < 6; i++)
159 myadr[i] = eth_myaddr[i] = HWADDR[i];
160 #else
161 {
162 uint8_t romdata[16];
163
164 ne2000_readmem(0, romdata, 16);
165 for (i = 0; i < 6; i++)
166 myadr[i] = eth_myaddr[i] = romdata[i*2];
167 }
168 #endif
169
170 if (dp8390_config())
171 goto out;
172
173 #ifdef _STANDALONE
174 strncpy(bi_netif.ifname, "ne", sizeof(bi_netif.ifname));
175 bi_netif.bus = BI_BUS_ISA;
176 bi_netif.addr.iobase = NE_BASEREG;
177
178 BI_ADD(&bi_netif, BTINFO_NETIF, sizeof(bi_netif));
179 #endif
180 return 1;
181 out:
182 return 0;
183 }
184
185 void
EtherStop(void)186 EtherStop(void) {
187 uint8_t tmp;
188
189 dp8390_stop();
190
191 tmp = ASIC_INB(NE2000_ASIC_RESET);
192 DELAY(10000);
193 ASIC_OUTB(NE2000_ASIC_RESET, tmp);
194 DELAY(5000);
195
196 NIC_OUTB(ED_P0_CR, ED_CR_RD2 | ED_CR_PAGE_0 | ED_CR_STP);
197 DELAY(5000);
198 }
199
200 void
ne2000_writemem(uint8_t * src,int dst,size_t len)201 ne2000_writemem(uint8_t *src, int dst, size_t len)
202 {
203 size_t i;
204 int maxwait = 100; /* about 120us */
205
206 /* Select page 0 registers. */
207 NIC_OUTB(ED_P0_CR, ED_CR_RD2 | ED_CR_PAGE_0 | ED_CR_STA);
208
209 /* Reset remote DMA complete flag. */
210 NIC_OUTB(ED_P0_ISR, ED_ISR_RDC);
211
212 /* Set up DMA byte count. */
213 NIC_OUTB(ED_P0_RBCR0, len);
214 NIC_OUTB(ED_P0_RBCR1, len >> 8);
215
216 /* Set up destination address in NIC mem. */
217 NIC_OUTB(ED_P0_RSAR0, dst);
218 NIC_OUTB(ED_P0_RSAR1, dst >> 8);
219
220 /* Set remote DMA write. */
221 NIC_OUTB(ED_P0_CR, ED_CR_RD1 | ED_CR_PAGE_0 | ED_CR_STA);
222
223 #ifdef NE_16BIT
224 for (i = 0; i < len; i += 2, src += 2)
225 ASIC_OUTW(NE2000_ASIC_DATA, *(uint16_t *)src);
226 #else
227 for (i = 0; i < len; i++)
228 ASIC_OUTB(NE2000_ASIC_DATA, *src++);
229 #endif
230
231 /*
232 * Wait for remote DMA to complete. This is necessary because on the
233 * transmit side, data is handled internally by the NIC in bursts, and
234 * we can't start another remote DMA until this one completes. Not
235 * waiting causes really bad things to happen - like the NIC wedging
236 * the bus.
237 */
238 while (((NIC_INB(ED_P0_ISR) & ED_ISR_RDC) != ED_ISR_RDC) && --maxwait)
239 DELAY(1);
240
241 if (maxwait == 0)
242 printf("ne2000_writemem: failed to complete\n");
243 }
244
245 void
ne2000_readmem(int src,uint8_t * dst,size_t amount)246 ne2000_readmem(int src, uint8_t *dst, size_t amount)
247 {
248 size_t i;
249
250 /* Select page 0 registers. */
251 NIC_OUTB(ED_P0_CR, ED_CR_RD2 | ED_CR_PAGE_0 | ED_CR_STA);
252
253 /* Round up to a word. */
254 if (amount & 1)
255 ++amount;
256
257 /* Set up DMA byte count. */
258 NIC_OUTB(ED_P0_RBCR0, amount);
259 NIC_OUTB(ED_P0_RBCR1, amount >> 8);
260
261 /* Set up source address in NIC mem. */
262 NIC_OUTB(ED_P0_RSAR0, src);
263 NIC_OUTB(ED_P0_RSAR1, src >> 8);
264
265 NIC_OUTB(ED_P0_CR, ED_CR_RD0 | ED_CR_PAGE_0 | ED_CR_STA);
266
267 #ifdef NE_16BIT
268 for (i = 0; i < amount; i += 2, dst += 2)
269 *(uint16_t *)dst = ASIC_INW(NE2000_ASIC_DATA);
270 #else
271 for (i = 0; i < amount; i++)
272 *dst++ = ASIC_INB(NE2000_ASIC_DATA);
273 #endif
274 }
275