1 /* $NetBSD: if_ie.c,v 1.14 2025/05/04 14:26:27 andvar Exp $ */ 2 3 /* 4 * Copyright (c) 1995 Theo de Raadt 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 15 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS 16 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 17 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 18 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY 19 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 20 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 21 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 23 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 24 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 25 * SUCH DAMAGE. 26 */ 27 28 #include <sys/param.h> 29 #include <sys/types.h> 30 #include <sys/socket.h> 31 32 #include <netinet/in.h> 33 #include <netinet/in_systm.h> 34 35 #include <net/if.h> 36 #include <net/if_ether.h> 37 38 #include <lib/libkern/libkern.h> 39 #include <lib/libsa/stand.h> 40 #include <lib/libsa/net.h> 41 42 #define NTXBUF 1 43 #define NRXBUF 16 44 #define IE_RBUF_SIZE ETHER_MAX_LEN 45 46 #include <machine/prom.h> 47 48 #include "libsa.h" 49 #include "netif.h" 50 #include "config.h" 51 #include "dev_net.h" 52 53 #include "i82586.h" 54 #include "if_iereg.h" 55 56 int ie_debug = 0; 57 58 void ie_stop(struct netif *); 59 void ie_end(struct netif *); 60 void ie_error(struct netif *, char *, volatile struct iereg *); 61 int ie_get(struct iodesc *, void *, size_t, saseconds_t); 62 void ie_init(struct iodesc *, void *); 63 int ie_match(struct netif *, void *); 64 int ie_poll(struct iodesc *, void *, int); 65 int ie_probe(struct netif *, void *); 66 int ie_put(struct iodesc *, void *, size_t); 67 void ie_reset(struct netif *, u_char *); 68 void ieack(volatile struct iereg *, struct iemem *); 69 70 struct netif_stats ie_stats; 71 72 struct netif_dif ie0_dif = { 73 0, /* unit */ 74 1, /* nsel */ 75 &ie_stats, 76 0, 77 0, 78 }; 79 80 struct netif_driver ie_driver = { 81 "ie", /* netif_bname */ 82 ie_match, /* match */ 83 ie_probe, /* probe */ 84 ie_init, /* init */ 85 ie_get, /* get */ 86 ie_put, /* put */ 87 ie_end, /* end */ 88 &ie0_dif, /* netif_ifs */ 89 1, /* netif_nifs */ 90 }; 91 92 struct ie_configuration { 93 u_int phys_addr; 94 int used; 95 } ie_config[] = { 96 { INTEL_REG_ADDR, 0 } 97 }; 98 99 int nie_config = __arraycount(ie_config); 100 101 struct { 102 struct iereg *sc_reg; /* IE registers */ 103 struct iemem *sc_mem; /* RAM */ 104 } ie_softc; 105 106 int 107 ie_match(struct netif *nif, void *machdep_hint) 108 { 109 char *name; 110 int i, val = 0; 111 112 if (bugargs.cputyp == CPU_147) 113 return 0; 114 name = machdep_hint; 115 if (name && !memcmp(ie_driver.netif_bname, name, 2)) 116 val += 10; 117 for (i = 0; i < nie_config; i++) { 118 if (ie_config[i].used) 119 continue; 120 if (ie_debug) 121 printf("ie%d: ie_match --> %d\n", i, val + 1); 122 ie_config[i].used++; 123 return (val + 1); 124 } 125 if (ie_debug) 126 printf("ie%d: ie_match --> 0\n", i); 127 return 0; 128 } 129 130 int 131 ie_probe(struct netif *nif, void *machdep_hint) 132 { 133 134 /* the set unit is the current unit */ 135 if (ie_debug) 136 printf("ie%d: ie_probe called\n", nif->nif_unit); 137 138 if (bugargs.cputyp != CPU_147) 139 return 0; 140 return 1; 141 } 142 143 void 144 ie_error(struct netif *nif, char *str, volatile struct iereg *ier) 145 { 146 147 panic("ie%d: unknown error", nif->nif_unit); 148 } 149 150 void 151 ieack(volatile struct iereg *ier, struct iemem *iem) 152 { 153 154 /* ack the `interrupt' */ 155 iem->im_scb.ie_command = iem->im_scb.ie_status & IE_ST_WHENCE; 156 ier->ie_attention = 1; /* chan attention! */ 157 while (iem->im_scb.ie_command) 158 ; 159 } 160 161 void 162 ie_reset(struct netif *nif, u_char *myea) 163 { 164 volatile struct iereg *ier = ie_softc.sc_reg; 165 struct iemem *iem = ie_softc.sc_mem; 166 int timo = 10000, i; 167 volatile int t; 168 u_int a; 169 170 if (ie_debug) 171 printf("ie%d: ie_reset called\n", nif->nif_unit); 172 173 /*printf("ier %x iem %x\n", ier, iem);*/ 174 175 *(u_char *)0xfff4202a = 0x40; 176 177 memset(iem, 0, sizeof(*iem)); 178 iem->im_scp.scp_sysbus = 0; 179 iem->im_scp.scp_iscp_low = (int)&iem->im_iscp & 0xffff; 180 iem->im_scp.scp_iscp_high = (int)&iem->im_iscp >> 16; 181 182 iem->im_iscp.iscp_scboffset = (int)&iem->im_scb - (int) iem; 183 iem->im_iscp.iscp_busy = 1; 184 iem->im_iscp.iscp_base_low = (int)iem & 0xffff; 185 iem->im_iscp.iscp_base_high = (int)iem >> 16; 186 187 /* 188 * completely and utterly unlike what i expected, the 189 * "write" order is: 190 * 1st: d15-d0 -> high address 191 * 2nd: d31-d16 -> low address 192 */ 193 194 /* reset chip */ 195 a = IE_PORT_RESET; 196 ier->ie_porthigh = a & 0xffff; 197 t = 0; 198 t = 1; 199 ier->ie_portlow = a >> 16; 200 for (t = timo; t--;) 201 ; 202 203 /* set new SCP pointer */ 204 a = (int) &iem->im_scp | IE_PORT_NEWSCP; 205 ier->ie_porthigh = a & 0xffff; 206 t = 0; 207 t = 1; 208 ier->ie_portlow = a >> 16; 209 for (t = timo; t--;) 210 ; 211 212 ier->ie_attention = 1; /* chan attention! */ 213 for (t = timo * 10; t--;) 214 ; 215 216 /* send CONFIGURE command */ 217 iem->im_scb.ie_command = IE_CU_START; 218 iem->im_scb.ie_command_list = (int) &iem->im_cc - (int) iem; 219 iem->im_cc.com.ie_cmd_status = 0; 220 iem->im_cc.com.ie_cmd_cmd = IE_CMD_CONFIG | IE_CMD_LAST; 221 iem->im_cc.com.ie_cmd_link = 0xffff; 222 iem->im_cc.ie_config_count = 0x0c; 223 iem->im_cc.ie_fifo = 8; 224 iem->im_cc.ie_save_bad = 0x40; 225 iem->im_cc.ie_addr_len = 0x2e; 226 iem->im_cc.ie_priority = 0; 227 iem->im_cc.ie_ifs = 0x60; 228 iem->im_cc.ie_slot_low = 0; 229 iem->im_cc.ie_slot_high = 0xf2; 230 iem->im_cc.ie_promisc = 0; 231 iem->im_cc.ie_crs_cdt = 0; 232 iem->im_cc.ie_min_len = 64; 233 iem->im_cc.ie_junk = 0xff; 234 235 ier->ie_attention = 1; /* chan attention! */ 236 for (t = timo * 10; t--;) 237 ; 238 239 ieack(ier, iem); 240 241 /*printf("ic %x\n", &iem->im_ic);*/ 242 /* send IASETUP command */ 243 iem->im_scb.ie_command = IE_CU_START; 244 iem->im_scb.ie_command_list = (int)&iem->im_ic - (int)iem; 245 iem->im_ic.com.ie_cmd_status = 0; 246 iem->im_ic.com.ie_cmd_cmd = IE_CMD_IASETUP | IE_CMD_LAST; 247 iem->im_ic.com.ie_cmd_link = 0xffff; 248 memcpy((void *)&iem->im_ic.ie_address, myea, 249 sizeof(iem->im_ic.ie_address)); 250 251 ier->ie_attention = 1; /* chan attention! */ 252 for (t = timo * 10; t--;) 253 ; 254 255 ieack(ier, iem); 256 257 /* setup buffers */ 258 259 for (i = 0; i < NRXBUF; i++) { 260 iem->im_rfd[i].ie_fd_next = (int)&iem->im_rfd[(i+1) % NRXBUF] - 261 (int)iem; 262 iem->im_rbd[i].ie_rbd_next = (int)&iem->im_rbd[(i+1) % NRXBUF] - 263 (int)iem; 264 a = (int)&iem->im_rxbuf[i * IE_RBUF_SIZE]; 265 iem->im_rbd[i].ie_rbd_buffer_low = a & 0xffff; 266 iem->im_rbd[i].ie_rbd_buffer_high = a >> 16; 267 iem->im_rbd[i].ie_rbd_length = IE_RBUF_SIZE; 268 } 269 iem->im_rfd[NRXBUF - 1].ie_fd_last |= IE_FD_LAST; 270 iem->im_rbd[NRXBUF - 1].ie_rbd_length |= IE_RBD_LAST; 271 iem->im_rfd[0].ie_fd_buf_desc = (int)&iem->im_rbd[0] - (int)iem; 272 273 #if 0 274 printf("rfd[0] %x rbd[0] %x buf[0] %x\n", &iem->im_rfd, &iem->im_rbd, 275 &iem->im_rxbuf); 276 #endif 277 278 /* send receiver start command */ 279 iem->im_scb.ie_command = IE_RU_START; 280 iem->im_scb.ie_command_list = 0; 281 iem->im_scb.ie_recv_list = (int) &iem->im_rfd[0] - (int) iem; 282 ier->ie_attention = 1; /* chan attention! */ 283 while (iem->im_scb.ie_command) 284 ; 285 286 ieack(ier, iem); 287 } 288 289 int 290 ie_poll(struct iodesc *desc, void *pkt, int len) 291 { 292 volatile struct iereg *ier = ie_softc.sc_reg; 293 struct iemem *iem = ie_softc.sc_mem; 294 static int slot; 295 int length = 0; 296 u_short status; 297 298 __asm(".word 0xf518\n"); 299 status = iem->im_rfd[slot].ie_fd_status; 300 if (status & IE_FD_BUSY) 301 return 0; 302 303 /* printf("slot %d: %x\n", slot, status); */ 304 if ((status & (IE_FD_COMPLETE | IE_FD_OK)) == 305 (IE_FD_COMPLETE | IE_FD_OK)) { 306 length = iem->im_rbd[slot].ie_rbd_actual & 0x3fff; 307 if (length > len) 308 length = len; 309 memcpy(pkt, (void *)&iem->im_rxbuf[slot * IE_RBUF_SIZE], 310 length); 311 312 iem->im_rfd[slot].ie_fd_status = 0; 313 iem->im_rfd[slot].ie_fd_last |= IE_FD_LAST; 314 iem->im_rfd[(slot+NRXBUF-1)%NRXBUF].ie_fd_last &= 315 ~IE_FD_LAST; 316 iem->im_rbd[slot].ie_rbd_actual = 0; 317 iem->im_rbd[slot].ie_rbd_length |= IE_RBD_LAST; 318 iem->im_rbd[(slot+NRXBUF-1)%NRXBUF].ie_rbd_length &= 319 ~IE_RBD_LAST; 320 #if 0 321 printf("S%d\n", slot); 322 #endif 323 slot++; 324 /* should move descriptor onto end of queue... */ 325 } 326 if ((iem->im_scb.ie_status & IE_RU_READY) == 0) { 327 printf("RR\n"); 328 329 for (slot = 0; slot < NRXBUF; slot++) { 330 iem->im_rbd[slot].ie_rbd_length &= ~IE_RBD_LAST; 331 iem->im_rfd[slot].ie_fd_last &= ~IE_FD_LAST; 332 } 333 iem->im_rbd[NRXBUF-1].ie_rbd_length |= IE_RBD_LAST; 334 iem->im_rfd[NRXBUF-1].ie_fd_last |= IE_FD_LAST; 335 336 iem->im_rfd[0].ie_fd_buf_desc = (int)&iem->im_rbd[0] - (int)iem; 337 338 iem->im_scb.ie_command = IE_RU_START; 339 iem->im_scb.ie_command_list = 0; 340 iem->im_scb.ie_recv_list = (int)&iem->im_rfd[0] - (int)iem; 341 ier->ie_attention = 1; /* chan attention! */ 342 while (iem->im_scb.ie_command) 343 ; 344 slot = 0; 345 } 346 slot = slot % NRXBUF; 347 return length; 348 } 349 350 int 351 ie_put(struct iodesc *desc, void *pkt, size_t len) 352 { 353 volatile struct iereg *ier = ie_softc.sc_reg; 354 struct iemem *iem = ie_softc.sc_mem; 355 u_char *p = pkt; 356 u_int a; 357 int xx = 0; 358 359 /* send transmit command */ 360 361 while (iem->im_scb.ie_command) 362 ; 363 364 /* copy data */ 365 memcpy((void *)&iem->im_txbuf[xx], p, len); 366 367 len = MAX(len, ETHER_MIN_LEN); 368 369 /* build transmit descriptor */ 370 iem->im_xd[xx].ie_xmit_flags = len | IE_XMIT_LAST; 371 iem->im_xd[xx].ie_xmit_next = 0xffff; 372 a = (int) &iem->im_txbuf[xx]; 373 iem->im_xd[xx].ie_xmit_buf_low = a & 0xffff; 374 iem->im_xd[xx].ie_xmit_buf_high = a >> 16; 375 376 /* transmit command */ 377 iem->im_xc[xx].com.ie_cmd_status = 0; 378 iem->im_xc[xx].com.ie_cmd_cmd = IE_CMD_XMIT | IE_CMD_LAST; 379 iem->im_xc[xx].com.ie_cmd_link = 0xffff; 380 iem->im_xc[xx].ie_xmit_desc = (int)&iem->im_xd[xx] - (int)iem; 381 iem->im_xc[xx].ie_xmit_length = len; 382 memcpy((void *)&iem->im_xc[xx].ie_xmit_addr, p, 383 sizeof iem->im_xc[xx].ie_xmit_addr); 384 385 iem->im_scb.ie_command = IE_CU_START; 386 iem->im_scb.ie_command_list = (int)&iem->im_xc[xx] - (int)iem; 387 388 ier->ie_attention = 1; /* chan attention! */ 389 390 if (ie_debug) { 391 printf("ie%d: send %d to %x:%x:%x:%x:%x:%x\n", 392 ((struct netif *)desc->io_netif)->nif_unit, len, 393 p[0], p[1], p[2], p[3], p[4], p[5]); 394 } 395 return len; 396 } 397 398 int 399 ie_get(struct iodesc *desc, void *pkt, size_t len, saseconds_t timeout) 400 { 401 satime_t t; 402 int cc; 403 404 t = getsecs(); 405 cc = 0; 406 while (((getsecs() - t) < timeout) && !cc) { 407 cc = ie_poll(desc, pkt, len); 408 } 409 return cc; 410 } 411 /* 412 * init ie device. return 0 on failure, 1 if ok. 413 */ 414 void 415 ie_init(struct iodesc *desc, void *machdep_hint) 416 { 417 struct netif *nif = desc->io_netif; 418 419 if (ie_debug) 420 printf("ie%d: ie_init called\n", nif->nif_unit); 421 machdep_common_ether(desc->myea); 422 memset(&ie_softc, 0, sizeof(ie_softc)); 423 ie_softc.sc_reg = 424 (struct iereg *)ie_config[nif->nif_unit].phys_addr; 425 ie_softc.sc_mem = (struct iemem *)0x3e0000; 426 ie_reset(desc->io_netif, desc->myea); 427 printf("device: %s%d attached to %s\n", nif->nif_driver->netif_bname, 428 nif->nif_unit, ether_sprintf(desc->myea)); 429 } 430 431 void 432 ie_stop(struct netif *nif) 433 { 434 volatile struct iereg *ier = ie_softc.sc_reg; 435 struct iemem *iem = ie_softc.sc_mem; 436 int timo = 10000; 437 volatile int t; 438 u_int a; 439 440 iem->im_iscp.iscp_busy = 1; 441 /* reset chip */ 442 a = IE_PORT_RESET; 443 ier->ie_porthigh = a & 0xffff; 444 t = 0; 445 t = 1; 446 ier->ie_portlow = a >> 16; 447 for (t = timo; t--;) 448 ; 449 450 /* reset chip again */ 451 a = IE_PORT_RESET; 452 ier->ie_porthigh = a & 0xffff; 453 t = 0; 454 t = 1; 455 ier->ie_portlow = a >> 16; 456 for (t = timo; t--;) 457 ; 458 459 #if 0 460 printf("status %x busy %x\n", iem->im_scb.ie_status, 461 iem->im_iscp.iscp_busy); 462 #endif 463 } 464 465 void 466 ie_end(struct netif *nif) 467 { 468 469 if (ie_debug) 470 printf("ie%d: ie_end called\n", nif->nif_unit); 471 472 ie_stop(nif); 473 474 #if 0 475 *(u_char *)0xfff42002 = 0; 476 #endif 477 } 478
Indexes created Sat Sep 20 22:09:52 GMT 2025