1/* $NetBSD: tlp.c,v 1.10 2021/07/24 21:31:32 andvar Exp $ */ 2 3/*- 4 * Copyright (c) 2007 The NetBSD Foundation, Inc. 5 * All rights reserved. 6 * 7 * This code is derived from software contributed to The NetBSD Foundation 8 * by Tohru Nishimura. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 22 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 29 * POSSIBILITY OF SUCH DAMAGE. 30 */ 31 32#include <sys/param.h> 33#include <sys/socket.h> 34 35#include <netinet/in.h> 36#include <netinet/in_systm.h> 37 38#include <lib/libsa/stand.h> 39#include <lib/libsa/net.h> 40 41#include <mips/cpuregs.h> 42 43#include <machine/cpu.h> 44 45#include "boot.h" 46 47/* 48 * - little endian access for CSR register. 49 * - assume KSEG0 on vtophys() translation. 50 * - PIPT writeback cache aware. 51 */ 52#define CSR_WRITE(l, r, v) \ 53do { \ 54 *(volatile uint32_t *)((l)->csr + (r)) = (v); \ 55} while (0) 56#define CSR_READ(l, r) (*(volatile uint32_t *)((l)->csr + (r))) 57#define VTOPHYS(va) MIPS_KSEG0_TO_PHYS(va) 58#define wb(adr, siz) pdcache_wb((uint32_t)(adr), (u_int)(siz)) 59#define wbinv(adr, siz) pdcache_wbinv((uint32_t)(adr), (u_int)(siz)) 60#define inv(adr, siz) pdcache_inv((uint32_t)(adr), (u_int)(siz)) 61#define DELAY(n) delay(n) 62#define ALLOC(T, A) (T *)((uint32_t)alloc(sizeof(T) + (A)) & ~((A) - 1)) 63 64#define T0_OWN (1U<<31) /* desc is ready to tx */ 65#define T0_ES (1U<<15) /* Tx error summary */ 66#define T1_LS (1U<<30) /* last segment */ 67#define T1_FS (1U<<29) /* first segment */ 68#define T1_SET (1U<<27) /* "setup packet" */ 69#define T1_TER (1U<<25) /* end of ring mark */ 70#define T1_TCH (1U<<24) /* Second address chained */ 71#define T1_TBS_MASK 0x7ff /* segment size 10:0 */ 72#define R0_OWN (1U<<31) /* desc is empty */ 73#define R0_FS (1U<<30) /* first desc of frame */ 74#define R0_LS (1U<<8) /* last desc of frame */ 75#define R0_ES (1U<<15) /* Rx error summary */ 76#define R1_RCH (1U<<24) /* Second address chained */ 77#define R1_RER (1U<<25) /* end of ring mark */ 78#define R0_FL_MASK 0x3fff0000 /* frame length 29:16 */ 79#define R1_RBS_MASK 0x7ff /* segment size 10:0 */ 80 81#define DESCSIZE 16 82struct desc { 83 volatile uint32_t xd0, xd1, xd2, xd3; 84#if CACHELINESIZE > DESCSIZE 85 uint8_t pad[CACHELINESIZE - DESCSIZE]; 86#endif 87}; 88 89#define TLP_BMR 0x00 /* 0: bus mode */ 90#define BMR_RST (1U<< 0) /* software reset */ 91#define BMR_BAR (1U<< 1) /* bus arbitration */ 92#define BMR_PBL8 (1U<<11) /* burst length 8 longword */ 93#define BMR_CAL8 (1U<<13) /* cache alignment 8 longword */ 94#define TLP_TPD 0x08 /* 1: instruct Tx to start */ 95#define TPD_POLL (1U<< 0) /* transmit poll demand */ 96#define TLP_RPD 0x10 /* 2: instruct Rx to start */ 97#define RPD_POLL (1U<< 0) /* receive poll demand */ 98#define TLP_RRBA 0x18 /* 3: Rx descriptor base */ 99#define TLP_TRBA 0x20 /* 4: Tx descriptor base */ 100#define TLP_STS 0x28 /* 5: status */ 101#define STS_TS 0x00700000 /* Tx status */ 102#define STS_RS 0x000e0000 /* Rx status */ 103#define TLP_OMR 0x30 /* 6: operation mode */ 104#define OMR_SDP (1U<<25) /* always ON */ 105#define OMR_PS (1U<<18) /* port select */ 106#define OMR_PM (1U<< 6) /* promicuous */ 107#define OMR_TEN (1U<<13) /* instruct start/stop Tx */ 108#define OMR_REN (1U<< 1) /* instruct start/stop Rx */ 109#define OMR_FD (1U<< 9) /* FDX */ 110#define TLP_IEN 0x38 /* 7: interrupt enable mask */ 111#define TLP_APROM 0x48 /* 9: SEEPROM and MII management */ 112#define SROM_RD (1U <<14) /* read operation */ 113#define SROM_WR (1U <<13) /* write openration */ 114#define SROM_SR (1U <<11) /* SEEPROM select */ 115#define TLP_CSR12 0x60 /* SIA status */ 116 117#define TLP_CSR13 0x68 /* SIA connectivity register */ 118#define SIACONN_10BT 0x0000ef01 /* 10BASE-T for 21041 */ 119 120#define TLP_CSR14 0x70 /* SIA TX RX register */ 121#define SIATXRX_10BT 0x0000ffff /* 10BASE-T for 21041 pass 2 */ 122 123#define TLP_CSR15 0x78 /* SIA general register */ 124#define SIAGEN_MD0 (1U<<16) 125#define SIAGEN_CWE (1U<<28) 126#define SIAGEN_10BT 0x00000000 /* 10BASE-T for 21041 */ 127 128#define TLP_SETUP_NADDR 16 129#define TLP_SETUPLEN 192 /* 16 * 3 * sizeof(uint32_t) */ 130 131#define FRAMESIZE 1536 132#define BUFSIZE 2048 133#define NTXBUF 2 134#define NEXT_TXBUF(x) (((x) + 1) & (NTXBUF - 1)) 135#define NRXBUF 2 136#define NEXT_RXBUF(x) (((x) + 1) & (NRXBUF - 1)) 137 138struct local { 139 struct desc txd[NTXBUF]; 140 struct desc rxd[NRXBUF]; 141 uint8_t txstore[TLP_SETUPLEN]; 142 uint8_t rxstore[NRXBUF][BUFSIZE]; 143 uint32_t csr, omr; 144 u_int tx; 145 u_int rx; 146 u_int sromsft; 147 u_int phy; 148 uint32_t bmsr, anlpar; 149}; 150 151#define COBALT_TLP0_BASE 0x10100000 152#define SROM_MAC_OFFSET 0 153 154static void size_srom(struct local *); 155static u_int read_srom(struct local *, int); 156#if 0 157static u_int tlp_mii_read(struct local *, int, int); 158static void tlp_mii_write(struct local *, int, int, int); 159static void mii_initphy(struct local *); 160#endif 161 162void * 163tlp_init(void *cookie) 164{ 165 uint32_t val, tag; 166 struct local *l; 167 struct desc *txd, *rxd; 168 uint8_t *en, *p; 169 int i; 170 int is21041; 171 172 if (cobalt_id == COBALT_ID_QUBE2700) 173 is21041 = 1; 174 else 175 is21041 = 0; 176 177 l = ALLOC(struct local, CACHELINESIZE); 178 memset(l, 0, sizeof(struct local)); 179 180 DPRINTF(("tlp: l = %p, txd[0] = %p, txd[1] = %p\n", 181 l, &l->txd[0], &l->txd[1])); 182 DPRINTF(("tlp: rxd[0] = %p, rxd[1] = %p\n", 183 &l->rxd[0], &l->rxd[1])); 184 DPRINTF(("tlp: txstore = %p, rxstore[0] = %p, rxstore[1] = %p\n", 185 l->txstore, l->rxstore[0], l->rxstore[1])); 186 187#if 1 188 /* XXX assume tlp0 at pci0 dev 7 function 0 */ 189 tag = (0 << 16) | ( 7 << 11) | (0 << 8); 190 /* memory map is not initialized by the firmware on cobalt */ 191 l->csr = MIPS_PHYS_TO_KSEG1(pcicfgread(tag, 0x10) & ~3U); 192 DPRINTF(("%s: CSR = 0x%x\n", __func__, l->csr)); 193#else 194 l->csr = MIPS_PHYS_TO_KSEG1(COBALT_TLP0_BASE); 195#endif 196 197 val = CSR_READ(l, TLP_BMR); 198 CSR_WRITE(l, TLP_BMR, val | BMR_RST); 199 DELAY(1000); 200 CSR_WRITE(l, TLP_BMR, val); 201 DELAY(1000); 202 (void)CSR_READ(l, TLP_BMR); 203 204 if (is21041) { 205 /* reset SIA for 10BASE-T */ 206 CSR_WRITE(l, TLP_CSR13, 0); 207 DELAY(1000); 208 CSR_WRITE(l, TLP_CSR15, SIAGEN_10BT); 209 CSR_WRITE(l, TLP_CSR14, SIATXRX_10BT); 210 CSR_WRITE(l, TLP_CSR13, SIACONN_10BT); 211 } else { 212 /* reset PHY (cobalt quirk from if_tlp_pci.c) */ 213 CSR_WRITE(l, TLP_CSR15, SIAGEN_CWE | SIAGEN_MD0); 214 DELAY(10); 215 CSR_WRITE(l, TLP_CSR15, SIAGEN_CWE); 216 DELAY(10); 217 } 218 219 l->omr = OMR_PS | OMR_SDP; 220 CSR_WRITE(l, TLP_OMR, l->omr); 221 CSR_WRITE(l, TLP_IEN, 0); 222 CSR_WRITE(l, TLP_STS, ~0); 223 224#if 0 225 mii_initphy(l); 226#endif 227 size_srom(l); 228 229 en = cookie; 230 /* MAC address is stored at offset 0 in SROM on cobalt */ 231 val = read_srom(l, SROM_MAC_OFFSET / 2 + 0); 232 en[0] = val; 233 en[1] = val >> 8; 234 val = read_srom(l, SROM_MAC_OFFSET / 2 + 1); 235 en[2] = val; 236 en[3] = val >> 8; 237 val = read_srom(l, SROM_MAC_OFFSET / 2 + 2); 238 en[4] = val; 239 en[5] = val >> 8; 240 241 DPRINTF(("tlp: MAC address %02x:%02x:%02x:%02x:%02x:%02x\n", 242 en[0], en[1], en[2], en[3], en[4], en[5])); 243 244 rxd = &l->rxd[0]; 245 for (i = 0; i < NRXBUF; i++) { 246 rxd[i].xd3 = htole32(VTOPHYS(&rxd[NEXT_RXBUF(i)])); 247 rxd[i].xd2 = htole32(VTOPHYS(l->rxstore[i])); 248 rxd[i].xd1 = htole32(R1_RCH|FRAMESIZE); 249 rxd[i].xd0 = htole32(R0_OWN); 250 } 251 252 txd = &l->txd[0]; 253 for (i = 0; i < NTXBUF; i++) { 254 txd[i].xd3 = htole32(VTOPHYS(&txd[NEXT_TXBUF(i)])); 255 txd[i].xd0 = htole32(0); 256 } 257 258 /* prepare setup packet */ 259 p = l->txstore; 260 memset(p, 0, TLP_SETUPLEN); 261 /* put broadcast first */ 262 p[0] = p[1] = p[4] = p[5] = p[8] = p[9] = 0xff; 263 for (i = 1; i < TLP_SETUP_NADDR; i++) { 264 /* put own station address to the rest */ 265 p[i * 12 + 0] = en[0]; 266 p[i * 12 + 1] = en[1]; 267 p[i * 12 + 4] = en[2]; 268 p[i * 12 + 5] = en[3]; 269 p[i * 12 + 8] = en[4]; 270 p[i * 12 + 9] = en[5]; 271 } 272 273 txd = &l->txd[0]; 274 txd->xd2 = htole32(VTOPHYS(l->txstore)); 275 txd->xd1 = htole32(T1_SET | T1_TCH | TLP_SETUPLEN); 276 txd->xd0 = htole32(T0_OWN); 277 278 /* make sure the entire descriptors transferred to memory */ 279 wbinv(l, sizeof(struct local)); 280 281 CSR_WRITE(l, TLP_RRBA, VTOPHYS(rxd)); 282 CSR_WRITE(l, TLP_TRBA, VTOPHYS(txd)); 283 284 l->tx = NEXT_TXBUF(0); 285 l->rx = 0; 286 l->omr |= OMR_TEN | OMR_REN; 287 if (!is21041) 288 l->omr |= OMR_FD; 289 290 /* enable Tx/Rx */ 291 CSR_WRITE(l, TLP_OMR, l->omr); 292 /* start TX and send setup packet */ 293 CSR_WRITE(l, TLP_TPD, TPD_POLL); 294 DELAY(50000); 295 /* start RX */ 296 CSR_WRITE(l, TLP_RPD, RPD_POLL); 297 298 return l; 299} 300 301int 302tlp_send(void *dev, char *buf, u_int len) 303{ 304 struct local *l = dev; 305 struct desc *txd; 306 u_int loop; 307 308 wb(buf, len); 309 txd = &l->txd[l->tx]; 310 txd->xd2 = htole32(VTOPHYS(buf)); 311 txd->xd1 = htole32(T1_FS | T1_LS | T1_TCH | (len & T1_TBS_MASK)); 312 txd->xd0 = htole32(T0_OWN); 313 wbinv(txd, sizeof(struct desc)); 314 CSR_WRITE(l, TLP_TPD, TPD_POLL); 315 l->tx = NEXT_TXBUF(l->tx); 316 loop = 100; 317 do { 318 if ((le32toh(txd->xd0) & T0_OWN) == 0) 319 goto done; 320 inv(txd, sizeof(struct desc)); 321 DELAY(10); 322 } while (--loop > 0); 323 printf("xmit failed\n"); 324 return -1; 325 done: 326 return len; 327} 328 329int 330tlp_recv(void *dev, char *buf, u_int maxlen, u_int timo) 331{ 332 struct local *l = dev; 333 struct desc *rxd; 334 u_int bound, len; 335 uint32_t rxstat; 336 uint8_t *ptr; 337 338 bound = timo * 1000000; 339 340 again: 341 rxd = &l->rxd[l->rx]; 342 do { 343 rxstat = le32toh(rxd->xd0); 344 inv(rxd, sizeof(struct desc)); 345 if ((rxstat & R0_OWN) == 0) 346 goto gotone; 347 DELAY(1); 348 } while (--bound > 0); 349 errno = 0; 350 CSR_WRITE(l, TLP_RPD, RPD_POLL); 351 return -1; 352 gotone: 353 if (rxstat & R0_ES) { 354 rxd->xd0 = htole32(R0_OWN); 355 wbinv(rxd, sizeof(struct desc)); 356 l->rx = NEXT_RXBUF(l->rx); 357 CSR_WRITE(l, TLP_RPD, RPD_POLL); 358 goto again; 359 } 360 /* good frame */ 361 len = ((rxstat & R0_FL_MASK) >> 16) - 4; /* HASFCS */ 362 if (len > maxlen) 363 len = maxlen; 364 ptr = l->rxstore[l->rx]; 365 memcpy(buf, ptr, len); 366 inv(ptr, FRAMESIZE); 367 rxd->xd0 = htole32(R0_OWN); 368 wbinv(rxd, sizeof(struct desc)); 369 l->rx = NEXT_RXBUF(l->rx); 370 CSR_WRITE(l, TLP_OMR, l->omr); /* necessary? */ 371 return len; 372} 373 374static void 375size_srom(struct local *l) 376{ 377 /* determine 8/6 bit addressing SEEPROM */ 378 l->sromsft = 8; 379 l->sromsft = (read_srom(l, 255) & 0x40000) ? 8 : 6; 380} 381 382/* 383 * bare SEEPROM access with bitbang'ing 384 */ 385#define R110 6 /* SEEPROM read op */ 386#define CS (1U << 0) /* hold chip select */ 387#define CLK (1U << 1) /* clk bit */ 388#define D1 (1U << 2) /* bit existence */ 389#define D0 0 /* bit absence */ 390#define VV (1U << 3) /* taken 0/1 from SEEPROM */ 391 392static u_int 393read_srom(struct local *l, int off) 394{ 395 u_int idx, cnt, ret; 396 uint32_t val, x1, x0, bit; 397 398 idx = off & 0xff; /* A7-A0 */ 399 idx |= R110 << l->sromsft; /* 110 for READ */ 400 401 val = SROM_RD | SROM_SR; 402 CSR_WRITE(l, TLP_APROM, val); 403 val |= CS; /* hold CS */ 404 CSR_WRITE(l, TLP_APROM, val); 405 406 x1 = val | D1; /* 1 */ 407 x0 = val | D0; /* 0 */ 408 /* instruct R110 op. at off in MSB first order */ 409 for (cnt = (1 << (l->sromsft + 2)); cnt > 0; cnt >>= 1) { 410 bit = (idx & cnt) ? x1 : x0; 411 CSR_WRITE(l, TLP_APROM, bit); 412 DELAY(10); 413 CSR_WRITE(l, TLP_APROM, bit | CLK); 414 DELAY(10); 415 } 416 /* read 16bit quantity in MSB first order */ 417 ret = 0; 418 for (cnt = 16; cnt > 0; cnt--) { 419 CSR_WRITE(l, TLP_APROM, val); 420 DELAY(10); 421 CSR_WRITE(l, TLP_APROM, val | CLK); 422 DELAY(10); 423 ret = (ret << 1) | !!(CSR_READ(l, TLP_APROM) & VV); 424 } 425 val &= ~CS; /* turn off chip select */ 426 CSR_WRITE(l, TLP_APROM, val); 427 428 return ret; 429} 430 431#if 0 432 433static u_int 434tlp_mii_read(struct local *l, int phy, int reg) 435{ 436 /* later ... */ 437 return 0; 438} 439 440static void 441tlp_mii_write(struct local *l, int phy, int reg, int val) 442{ 443 /* later ... */ 444} 445 446#define MII_BMCR 0x00 /* Basic mode control register (rw) */ 447#define BMCR_RESET 0x8000 /* reset */ 448#define BMCR_AUTOEN 0x1000 /* autonegotiation enable */ 449#define BMCR_ISO 0x0400 /* isolate */ 450#define BMCR_STARTNEG 0x0200 /* restart autonegotiation */ 451#define MII_BMSR 0x01 /* Basic mode status register (ro) */ 452 453static void 454mii_initphy(struct local *l) 455{ 456 int phy, bound; 457 uint32_t ctl, sts; 458 459 for (phy = 0; phy < 32; phy++) { 460 ctl = tlp_mii_read(l, phy, MII_BMCR); 461 sts = tlp_mii_read(l, phy, MII_BMSR); 462 if (ctl != 0xffff && sts != 0xffff) 463 goto found; 464 } 465 printf("MII: no PHY found\n"); 466 return; 467 found: 468 ctl = tlp_mii_read(l, phy, MII_BMCR); 469 tlp_mii_write(l, phy, MII_BMCR, ctl | BMCR_RESET); 470 bound = 100; 471 do { 472 DELAY(10); 473 ctl = tlp_mii_read(l, phy, MII_BMCR); 474 if (ctl == 0xffff) { 475 printf("MII: PHY %d has died after reset\n", phy); 476 return; 477 } 478 } while (bound-- > 0 && (ctl & BMCR_RESET)); 479 if (bound == 0) { 480 printf("PHY %d reset failed\n", phy); 481 } 482 ctl &= ~BMCR_ISO; 483 tlp_mii_write(l, phy, MII_BMCR, ctl); 484 sts = tlp_mii_read(l, phy, MII_BMSR) | 485 tlp_mii_read(l, phy, MII_BMSR); /* read twice */ 486 l->phy = phy; 487 l->bmsr = sts; 488} 489 490static void 491mii_dealan(struct local *, u_int timo) 492{ 493 uint32_t anar; 494 u_int bound; 495 496 anar = ANAR_TX_FD | ANAR_TX | ANAR_10_FD | ANAR_10 | ANAR_CSMA; 497 tlp_mii_write(l, l->phy, MII_ANAR, anar); 498 tlp_mii_write(l, l->phy, MII_BMCR, BMCR_AUTOEN | BMCR_STARTNEG); 499 l->anlpar = 0; 500 bound = getsecs() + timo; 501 do { 502 l->bmsr = tlp_mii_read(l, l->phy, MII_BMSR) | 503 tlp_mii_read(l, l->phy, MII_BMSR); /* read twice */ 504 if ((l->bmsr & BMSR_LINK) && (l->bmsr & BMSR_ACOMP)) { 505 l->anlpar = tlp_mii_read(l, l->phy, MII_ANLPAR); 506 break; 507 } 508 DELAY(10 * 1000); 509 } while (getsecs() < bound); 510 return; 511} 512#endif 513