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 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 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 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 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