xref: /openbmc/qemu/hw/net/tulip.c (revision e53c136f)
1 /*
2  * QEMU TULIP Emulation
3  *
4  * Copyright (c) 2019 Sven Schnelle <svens@stackframe.org>
5  *
6  * This work is licensed under the GNU GPL license version 2 or later.
7  */
8 
9 #include "qemu/osdep.h"
10 #include "qemu/log.h"
11 #include "hw/irq.h"
12 #include "hw/pci/pci_device.h"
13 #include "hw/qdev-properties.h"
14 #include "hw/nvram/eeprom93xx.h"
15 #include "migration/vmstate.h"
16 #include "sysemu/sysemu.h"
17 #include "tulip.h"
18 #include "trace.h"
19 #include "net/eth.h"
20 
21 struct TULIPState {
22     PCIDevice dev;
23     MemoryRegion io;
24     MemoryRegion memory;
25     NICConf c;
26     qemu_irq irq;
27     NICState *nic;
28     eeprom_t *eeprom;
29     uint32_t csr[16];
30 
31     /* state for MII */
32     uint32_t old_csr9;
33     uint32_t mii_word;
34     uint32_t mii_bitcnt;
35 
36     hwaddr current_rx_desc;
37     hwaddr current_tx_desc;
38 
39     uint8_t rx_frame[2048];
40     uint8_t tx_frame[2048];
41     uint16_t tx_frame_len;
42     uint16_t rx_frame_len;
43     uint16_t rx_frame_size;
44 
45     uint32_t rx_status;
46     uint8_t filter[16][6];
47 };
48 
49 static const VMStateDescription vmstate_pci_tulip = {
50     .name = "tulip",
51     .fields = (const VMStateField[]) {
52         VMSTATE_PCI_DEVICE(dev, TULIPState),
53         VMSTATE_UINT32_ARRAY(csr, TULIPState, 16),
54         VMSTATE_UINT32(old_csr9, TULIPState),
55         VMSTATE_UINT32(mii_word, TULIPState),
56         VMSTATE_UINT32(mii_bitcnt, TULIPState),
57         VMSTATE_UINT64(current_rx_desc, TULIPState),
58         VMSTATE_UINT64(current_tx_desc, TULIPState),
59         VMSTATE_BUFFER(rx_frame, TULIPState),
60         VMSTATE_BUFFER(tx_frame, TULIPState),
61         VMSTATE_UINT16(rx_frame_len, TULIPState),
62         VMSTATE_UINT16(tx_frame_len, TULIPState),
63         VMSTATE_UINT16(rx_frame_size, TULIPState),
64         VMSTATE_UINT32(rx_status, TULIPState),
65         VMSTATE_UINT8_2DARRAY(filter, TULIPState, 16, 6),
66         VMSTATE_END_OF_LIST()
67     }
68 };
69 
70 static void tulip_desc_read(TULIPState *s, hwaddr p,
71         struct tulip_descriptor *desc)
72 {
73     const MemTxAttrs attrs = { .memory = true };
74 
75     if (s->csr[0] & CSR0_DBO) {
76         ldl_be_pci_dma(&s->dev, p, &desc->status, attrs);
77         ldl_be_pci_dma(&s->dev, p + 4, &desc->control, attrs);
78         ldl_be_pci_dma(&s->dev, p + 8, &desc->buf_addr1, attrs);
79         ldl_be_pci_dma(&s->dev, p + 12, &desc->buf_addr2, attrs);
80     } else {
81         ldl_le_pci_dma(&s->dev, p, &desc->status, attrs);
82         ldl_le_pci_dma(&s->dev, p + 4, &desc->control, attrs);
83         ldl_le_pci_dma(&s->dev, p + 8, &desc->buf_addr1, attrs);
84         ldl_le_pci_dma(&s->dev, p + 12, &desc->buf_addr2, attrs);
85     }
86 }
87 
88 static void tulip_desc_write(TULIPState *s, hwaddr p,
89         struct tulip_descriptor *desc)
90 {
91     const MemTxAttrs attrs = { .memory = true };
92 
93     if (s->csr[0] & CSR0_DBO) {
94         stl_be_pci_dma(&s->dev, p, desc->status, attrs);
95         stl_be_pci_dma(&s->dev, p + 4, desc->control, attrs);
96         stl_be_pci_dma(&s->dev, p + 8, desc->buf_addr1, attrs);
97         stl_be_pci_dma(&s->dev, p + 12, desc->buf_addr2, attrs);
98     } else {
99         stl_le_pci_dma(&s->dev, p, desc->status, attrs);
100         stl_le_pci_dma(&s->dev, p + 4, desc->control, attrs);
101         stl_le_pci_dma(&s->dev, p + 8, desc->buf_addr1, attrs);
102         stl_le_pci_dma(&s->dev, p + 12, desc->buf_addr2, attrs);
103     }
104 }
105 
106 static void tulip_update_int(TULIPState *s)
107 {
108     uint32_t ie = s->csr[5] & s->csr[7];
109     bool assert = false;
110 
111     s->csr[5] &= ~(CSR5_AIS | CSR5_NIS);
112 
113     if (ie & (CSR5_TI | CSR5_TU | CSR5_RI | CSR5_GTE | CSR5_ERI)) {
114         s->csr[5] |= CSR5_NIS;
115     }
116 
117     if (ie & (CSR5_LC | CSR5_GPI | CSR5_FBE | CSR5_LNF | CSR5_ETI | CSR5_RWT |
118               CSR5_RPS | CSR5_RU | CSR5_UNF | CSR5_LNP_ANC | CSR5_TJT |
119               CSR5_TPS)) {
120         s->csr[5] |= CSR5_AIS;
121     }
122 
123     assert = s->csr[5] & s->csr[7] & (CSR5_AIS | CSR5_NIS);
124     trace_tulip_irq(s->csr[5], s->csr[7], assert ? "assert" : "deassert");
125     qemu_set_irq(s->irq, assert);
126 }
127 
128 static bool tulip_rx_stopped(TULIPState *s)
129 {
130     return ((s->csr[5] >> CSR5_RS_SHIFT) & CSR5_RS_MASK) == CSR5_RS_STOPPED;
131 }
132 
133 static void tulip_dump_tx_descriptor(TULIPState *s,
134         struct tulip_descriptor *desc)
135 {
136     trace_tulip_descriptor("TX ", s->current_tx_desc,
137                 desc->status, desc->control >> 22,
138                 desc->control & 0x7ff, (desc->control >> 11) & 0x7ff,
139                 desc->buf_addr1, desc->buf_addr2);
140 }
141 
142 static void tulip_dump_rx_descriptor(TULIPState *s,
143         struct tulip_descriptor *desc)
144 {
145     trace_tulip_descriptor("RX ", s->current_rx_desc,
146                 desc->status, desc->control >> 22,
147                 desc->control & 0x7ff, (desc->control >> 11) & 0x7ff,
148                 desc->buf_addr1, desc->buf_addr2);
149 }
150 
151 static void tulip_next_rx_descriptor(TULIPState *s,
152     struct tulip_descriptor *desc)
153 {
154     if (desc->control & RDES1_RER) {
155         s->current_rx_desc = s->csr[3];
156     } else if (desc->control & RDES1_RCH) {
157         s->current_rx_desc = desc->buf_addr2;
158     } else {
159         s->current_rx_desc += sizeof(struct tulip_descriptor) +
160                 (((s->csr[0] >> CSR0_DSL_SHIFT) & CSR0_DSL_MASK) << 2);
161     }
162     s->current_rx_desc &= ~3ULL;
163 }
164 
165 static void tulip_copy_rx_bytes(TULIPState *s, struct tulip_descriptor *desc)
166 {
167     int len1 = (desc->control >> RDES1_BUF1_SIZE_SHIFT) & RDES1_BUF1_SIZE_MASK;
168     int len2 = (desc->control >> RDES1_BUF2_SIZE_SHIFT) & RDES1_BUF2_SIZE_MASK;
169     int len;
170 
171     if (s->rx_frame_len && len1) {
172         if (s->rx_frame_len > len1) {
173             len = len1;
174         } else {
175             len = s->rx_frame_len;
176         }
177 
178         pci_dma_write(&s->dev, desc->buf_addr1, s->rx_frame +
179             (s->rx_frame_size - s->rx_frame_len), len);
180         s->rx_frame_len -= len;
181     }
182 
183     if (s->rx_frame_len && len2) {
184         if (s->rx_frame_len > len2) {
185             len = len2;
186         } else {
187             len = s->rx_frame_len;
188         }
189 
190         pci_dma_write(&s->dev, desc->buf_addr2, s->rx_frame +
191             (s->rx_frame_size - s->rx_frame_len), len);
192         s->rx_frame_len -= len;
193     }
194 }
195 
196 static bool tulip_filter_address(TULIPState *s, const uint8_t *addr)
197 {
198     static const char broadcast[] = { 0xff, 0xff, 0xff, 0xff, 0xff, 0xff };
199     bool ret = false;
200     int i;
201 
202     for (i = 0; i < 16 && ret == false; i++) {
203         if (!memcmp(&s->filter[i], addr, ETH_ALEN)) {
204             ret = true;
205         }
206     }
207 
208     if (!memcmp(addr, broadcast, ETH_ALEN)) {
209         return true;
210     }
211 
212     if (s->csr[6] & (CSR6_PR | CSR6_RA)) {
213         /* Promiscuous mode enabled */
214         s->rx_status |= RDES0_FF;
215         return true;
216     }
217 
218     if ((s->csr[6] & CSR6_PM) && (addr[0] & 1)) {
219         /* Pass all Multicast enabled */
220         s->rx_status |= RDES0_MF;
221         return true;
222     }
223 
224     if (s->csr[6] & CSR6_IF) {
225         ret ^= true;
226     }
227     return ret;
228 }
229 
230 static ssize_t tulip_receive(TULIPState *s, const uint8_t *buf, size_t size)
231 {
232     struct tulip_descriptor desc;
233 
234     trace_tulip_receive(buf, size);
235 
236     if (size < 14 || size > sizeof(s->rx_frame) - 4
237         || s->rx_frame_len || tulip_rx_stopped(s)) {
238         return 0;
239     }
240 
241     if (!tulip_filter_address(s, buf)) {
242         return size;
243     }
244 
245     do {
246         tulip_desc_read(s, s->current_rx_desc, &desc);
247         tulip_dump_rx_descriptor(s, &desc);
248 
249         if (!(desc.status & RDES0_OWN)) {
250             s->csr[5] |= CSR5_RU;
251             tulip_update_int(s);
252             return s->rx_frame_size - s->rx_frame_len;
253         }
254         desc.status = 0;
255 
256         if (!s->rx_frame_len) {
257             s->rx_frame_size = size + 4;
258             s->rx_status = RDES0_LS |
259                  ((s->rx_frame_size & RDES0_FL_MASK) << RDES0_FL_SHIFT);
260             desc.status |= RDES0_FS;
261             memcpy(s->rx_frame, buf, size);
262             s->rx_frame_len = s->rx_frame_size;
263         }
264 
265         tulip_copy_rx_bytes(s, &desc);
266 
267         if (!s->rx_frame_len) {
268             desc.status |= s->rx_status;
269             s->csr[5] |= CSR5_RI;
270             tulip_update_int(s);
271         }
272         tulip_dump_rx_descriptor(s, &desc);
273         tulip_desc_write(s, s->current_rx_desc, &desc);
274         tulip_next_rx_descriptor(s, &desc);
275     } while (s->rx_frame_len);
276     return size;
277 }
278 
279 static ssize_t tulip_receive_nc(NetClientState *nc,
280                              const uint8_t *buf, size_t size)
281 {
282     return tulip_receive(qemu_get_nic_opaque(nc), buf, size);
283 }
284 
285 static NetClientInfo net_tulip_info = {
286     .type = NET_CLIENT_DRIVER_NIC,
287     .size = sizeof(NICState),
288     .receive = tulip_receive_nc,
289 };
290 
291 static const char *tulip_reg_name(const hwaddr addr)
292 {
293     switch (addr) {
294     case CSR(0):
295         return "CSR0";
296 
297     case CSR(1):
298         return "CSR1";
299 
300     case CSR(2):
301         return "CSR2";
302 
303     case CSR(3):
304         return "CSR3";
305 
306     case CSR(4):
307         return "CSR4";
308 
309     case CSR(5):
310         return "CSR5";
311 
312     case CSR(6):
313         return "CSR6";
314 
315     case CSR(7):
316         return "CSR7";
317 
318     case CSR(8):
319         return "CSR8";
320 
321     case CSR(9):
322         return "CSR9";
323 
324     case CSR(10):
325         return "CSR10";
326 
327     case CSR(11):
328         return "CSR11";
329 
330     case CSR(12):
331         return "CSR12";
332 
333     case CSR(13):
334         return "CSR13";
335 
336     case CSR(14):
337         return "CSR14";
338 
339     case CSR(15):
340         return "CSR15";
341 
342     default:
343         break;
344     }
345     return "";
346 }
347 
348 static const char *tulip_rx_state_name(int state)
349 {
350     switch (state) {
351     case CSR5_RS_STOPPED:
352         return "STOPPED";
353 
354     case CSR5_RS_RUNNING_FETCH:
355         return "RUNNING/FETCH";
356 
357     case CSR5_RS_RUNNING_CHECK_EOR:
358         return "RUNNING/CHECK EOR";
359 
360     case CSR5_RS_RUNNING_WAIT_RECEIVE:
361         return "WAIT RECEIVE";
362 
363     case CSR5_RS_SUSPENDED:
364         return "SUSPENDED";
365 
366     case CSR5_RS_RUNNING_CLOSE:
367         return "RUNNING/CLOSE";
368 
369     case CSR5_RS_RUNNING_FLUSH:
370         return "RUNNING/FLUSH";
371 
372     case CSR5_RS_RUNNING_QUEUE:
373         return "RUNNING/QUEUE";
374 
375     default:
376         break;
377     }
378     return "";
379 }
380 
381 static const char *tulip_tx_state_name(int state)
382 {
383     switch (state) {
384     case CSR5_TS_STOPPED:
385         return "STOPPED";
386 
387     case CSR5_TS_RUNNING_FETCH:
388         return "RUNNING/FETCH";
389 
390     case CSR5_TS_RUNNING_WAIT_EOT:
391         return "RUNNING/WAIT EOT";
392 
393     case CSR5_TS_RUNNING_READ_BUF:
394         return "RUNNING/READ BUF";
395 
396     case CSR5_TS_RUNNING_SETUP:
397         return "RUNNING/SETUP";
398 
399     case CSR5_TS_SUSPENDED:
400         return "SUSPENDED";
401 
402     case CSR5_TS_RUNNING_CLOSE:
403         return "RUNNING/CLOSE";
404 
405     default:
406         break;
407     }
408     return "";
409 }
410 
411 static void tulip_update_rs(TULIPState *s, int state)
412 {
413     s->csr[5] &= ~(CSR5_RS_MASK << CSR5_RS_SHIFT);
414     s->csr[5] |= (state & CSR5_RS_MASK) << CSR5_RS_SHIFT;
415     trace_tulip_rx_state(tulip_rx_state_name(state));
416 }
417 
418 static uint16_t tulip_mdi_default[] = {
419     /* MDI Registers 0 - 6, 7 */
420     0x3100, 0xf02c, 0x7810, 0x0000, 0x0501, 0x4181, 0x0000, 0x0000,
421     /* MDI Registers 8 - 15 */
422     0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
423     /* MDI Registers 16 - 31 */
424     0x0003, 0x0000, 0x0001, 0x0000, 0x3b40, 0x0000, 0x0000, 0x0000,
425     0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
426 };
427 
428 /* Readonly mask for MDI (PHY) registers */
429 static const uint16_t tulip_mdi_mask[] = {
430     0x0000, 0xffff, 0xffff, 0xffff, 0xc01f, 0xffff, 0xffff, 0x0000,
431     0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
432     0x0fff, 0x0000, 0xffff, 0xffff, 0x0000, 0xffff, 0xffff, 0xffff,
433     0xffff, 0xffff, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
434 };
435 
436 static uint16_t tulip_mii_read(TULIPState *s, int phy, int reg)
437 {
438     uint16_t ret = 0;
439     if (phy == 1) {
440         ret = tulip_mdi_default[reg];
441     }
442     trace_tulip_mii_read(phy, reg, ret);
443     return ret;
444 }
445 
446 static void tulip_mii_write(TULIPState *s, int phy, int reg, uint16_t data)
447 {
448     trace_tulip_mii_write(phy, reg, data);
449 
450     if (phy != 1) {
451         return;
452     }
453 
454     tulip_mdi_default[reg] &= ~tulip_mdi_mask[reg];
455     tulip_mdi_default[reg] |= (data & tulip_mdi_mask[reg]);
456 }
457 
458 static void tulip_mii(TULIPState *s)
459 {
460     uint32_t changed = s->old_csr9 ^ s->csr[9];
461     uint16_t data;
462     int op, phy, reg;
463 
464     if (!(changed & CSR9_MDC)) {
465         return;
466     }
467 
468     if (!(s->csr[9] & CSR9_MDC)) {
469         return;
470     }
471 
472     s->mii_bitcnt++;
473     s->mii_word <<= 1;
474 
475     if (s->csr[9] & CSR9_MDO && (s->mii_bitcnt < 16 ||
476         !(s->csr[9] & CSR9_MII))) {
477         /* write op or address bits */
478         s->mii_word |= 1;
479     }
480 
481     if (s->mii_bitcnt >= 16 && (s->csr[9] & CSR9_MII)) {
482         if (s->mii_word & 0x8000) {
483             s->csr[9] |= CSR9_MDI;
484         } else {
485             s->csr[9] &= ~CSR9_MDI;
486         }
487     }
488 
489     if (s->mii_word == 0xffffffff) {
490         s->mii_bitcnt = 0;
491     } else if (s->mii_bitcnt == 16) {
492         op = (s->mii_word >> 12) & 0x0f;
493         phy = (s->mii_word >> 7) & 0x1f;
494         reg = (s->mii_word >> 2) & 0x1f;
495 
496         if (op == 6) {
497             s->mii_word = tulip_mii_read(s, phy, reg);
498         }
499     } else if (s->mii_bitcnt == 32) {
500             op = (s->mii_word >> 28) & 0x0f;
501             phy = (s->mii_word >> 23) & 0x1f;
502             reg = (s->mii_word >> 18) & 0x1f;
503             data = s->mii_word & 0xffff;
504 
505         if (op == 5) {
506             tulip_mii_write(s, phy, reg, data);
507         }
508     }
509 }
510 
511 static uint32_t tulip_csr9_read(TULIPState *s)
512 {
513     if (s->csr[9] & CSR9_SR) {
514         if (eeprom93xx_read(s->eeprom)) {
515             s->csr[9] |= CSR9_SR_DO;
516         } else {
517             s->csr[9] &= ~CSR9_SR_DO;
518         }
519     }
520 
521     tulip_mii(s);
522     return s->csr[9];
523 }
524 
525 static void tulip_update_ts(TULIPState *s, int state)
526 {
527         s->csr[5] &= ~(CSR5_TS_MASK << CSR5_TS_SHIFT);
528         s->csr[5] |= (state & CSR5_TS_MASK) << CSR5_TS_SHIFT;
529         trace_tulip_tx_state(tulip_tx_state_name(state));
530 }
531 
532 static uint64_t tulip_read(void *opaque, hwaddr addr,
533                               unsigned size)
534 {
535     TULIPState *s = opaque;
536     uint64_t data = 0;
537 
538     switch (addr) {
539     case CSR(9):
540         data = tulip_csr9_read(s);
541         break;
542 
543     case CSR(12):
544         /* Fake autocompletion complete until we have PHY emulation */
545         data = 5 << CSR12_ANS_SHIFT;
546         break;
547 
548     default:
549         if (addr & 7) {
550             qemu_log_mask(LOG_GUEST_ERROR, "%s: read access at unknown address"
551                 " 0x%"PRIx64"\n", __func__, addr);
552         } else {
553             data = s->csr[addr >> 3];
554         }
555         break;
556     }
557     trace_tulip_reg_read(addr, tulip_reg_name(addr), size, data);
558     return data;
559 }
560 
561 static void tulip_tx(TULIPState *s, struct tulip_descriptor *desc)
562 {
563     if (s->tx_frame_len) {
564         if ((s->csr[6] >> CSR6_OM_SHIFT) & CSR6_OM_MASK) {
565             /* Internal or external Loopback */
566             tulip_receive(s, s->tx_frame, s->tx_frame_len);
567         } else if (s->tx_frame_len <= sizeof(s->tx_frame)) {
568             qemu_send_packet(qemu_get_queue(s->nic),
569                 s->tx_frame, s->tx_frame_len);
570         }
571     }
572 
573     if (desc->control & TDES1_IC) {
574         s->csr[5] |= CSR5_TI;
575         tulip_update_int(s);
576     }
577 }
578 
579 static int tulip_copy_tx_buffers(TULIPState *s, struct tulip_descriptor *desc)
580 {
581     int len1 = (desc->control >> TDES1_BUF1_SIZE_SHIFT) & TDES1_BUF1_SIZE_MASK;
582     int len2 = (desc->control >> TDES1_BUF2_SIZE_SHIFT) & TDES1_BUF2_SIZE_MASK;
583 
584     if (s->tx_frame_len + len1 > sizeof(s->tx_frame)) {
585         qemu_log_mask(LOG_GUEST_ERROR,
586                       "%s: descriptor overflow (ofs: %u, len:%d, size:%zu)\n",
587                       __func__, s->tx_frame_len, len1, sizeof(s->tx_frame));
588         return -1;
589     }
590     if (len1) {
591         pci_dma_read(&s->dev, desc->buf_addr1,
592             s->tx_frame + s->tx_frame_len, len1);
593         s->tx_frame_len += len1;
594     }
595 
596     if (s->tx_frame_len + len2 > sizeof(s->tx_frame)) {
597         qemu_log_mask(LOG_GUEST_ERROR,
598                       "%s: descriptor overflow (ofs: %u, len:%d, size:%zu)\n",
599                       __func__, s->tx_frame_len, len2, sizeof(s->tx_frame));
600         return -1;
601     }
602     if (len2) {
603         pci_dma_read(&s->dev, desc->buf_addr2,
604             s->tx_frame + s->tx_frame_len, len2);
605         s->tx_frame_len += len2;
606     }
607     desc->status = (len1 + len2) ? 0 : 0x7fffffff;
608 
609     return 0;
610 }
611 
612 static void tulip_setup_filter_addr(TULIPState *s, uint8_t *buf, int n)
613 {
614     int offset = n * 12;
615 
616     s->filter[n][0] = buf[offset];
617     s->filter[n][1] = buf[offset + 1];
618 
619     s->filter[n][2] = buf[offset + 4];
620     s->filter[n][3] = buf[offset + 5];
621 
622     s->filter[n][4] = buf[offset + 8];
623     s->filter[n][5] = buf[offset + 9];
624 
625     trace_tulip_setup_filter(n, s->filter[n][5], s->filter[n][4],
626             s->filter[n][3], s->filter[n][2], s->filter[n][1], s->filter[n][0]);
627 }
628 
629 static void tulip_setup_frame(TULIPState *s,
630         struct tulip_descriptor *desc)
631 {
632     uint8_t buf[4096];
633     int len = (desc->control >> TDES1_BUF1_SIZE_SHIFT) & TDES1_BUF1_SIZE_MASK;
634     int i;
635 
636     trace_tulip_setup_frame();
637 
638     if (len == 192) {
639         pci_dma_read(&s->dev, desc->buf_addr1, buf, len);
640         for (i = 0; i < 16; i++) {
641             tulip_setup_filter_addr(s, buf, i);
642         }
643     }
644 
645     desc->status = 0x7fffffff;
646 
647     if (desc->control & TDES1_IC) {
648         s->csr[5] |= CSR5_TI;
649         tulip_update_int(s);
650     }
651 }
652 
653 static void tulip_next_tx_descriptor(TULIPState *s,
654     struct tulip_descriptor *desc)
655 {
656     if (desc->control & TDES1_TER) {
657         s->current_tx_desc = s->csr[4];
658     } else if (desc->control & TDES1_TCH) {
659         s->current_tx_desc = desc->buf_addr2;
660     } else {
661         s->current_tx_desc += sizeof(struct tulip_descriptor) +
662                 (((s->csr[0] >> CSR0_DSL_SHIFT) & CSR0_DSL_MASK) << 2);
663     }
664     s->current_tx_desc &= ~3ULL;
665 }
666 
667 static uint32_t tulip_ts(TULIPState *s)
668 {
669     return (s->csr[5] >> CSR5_TS_SHIFT) & CSR5_TS_MASK;
670 }
671 
672 static void tulip_xmit_list_update(TULIPState *s)
673 {
674 #define TULIP_DESC_MAX 128
675     uint8_t i = 0;
676     struct tulip_descriptor desc;
677 
678     if (tulip_ts(s) != CSR5_TS_SUSPENDED) {
679         return;
680     }
681 
682     for (i = 0; i < TULIP_DESC_MAX; i++) {
683         tulip_desc_read(s, s->current_tx_desc, &desc);
684         tulip_dump_tx_descriptor(s, &desc);
685 
686         if (!(desc.status & TDES0_OWN)) {
687             tulip_update_ts(s, CSR5_TS_SUSPENDED);
688             s->csr[5] |= CSR5_TU;
689             tulip_update_int(s);
690             return;
691         }
692 
693         if (desc.control & TDES1_SET) {
694             tulip_setup_frame(s, &desc);
695         } else {
696             if (desc.control & TDES1_FS) {
697                 s->tx_frame_len = 0;
698             }
699 
700             if (!tulip_copy_tx_buffers(s, &desc)) {
701                 if (desc.control & TDES1_LS) {
702                     tulip_tx(s, &desc);
703                 }
704             }
705         }
706         tulip_desc_write(s, s->current_tx_desc, &desc);
707         tulip_next_tx_descriptor(s, &desc);
708     }
709 }
710 
711 static void tulip_csr9_write(TULIPState *s, uint32_t old_val,
712         uint32_t new_val)
713 {
714     if (new_val & CSR9_SR) {
715         eeprom93xx_write(s->eeprom,
716             !!(new_val & CSR9_SR_CS),
717             !!(new_val & CSR9_SR_SK),
718             !!(new_val & CSR9_SR_DI));
719     }
720 }
721 
722 static void tulip_reset(TULIPState *s)
723 {
724     trace_tulip_reset();
725 
726     s->csr[0] = 0xfe000000;
727     s->csr[1] = 0xffffffff;
728     s->csr[2] = 0xffffffff;
729     s->csr[5] = 0xf0000000;
730     s->csr[6] = 0x32000040;
731     s->csr[7] = 0xf3fe0000;
732     s->csr[8] = 0xe0000000;
733     s->csr[9] = 0xfff483ff;
734     s->csr[11] = 0xfffe0000;
735     s->csr[12] = 0x000000c6;
736     s->csr[13] = 0xffff0000;
737     s->csr[14] = 0xffffffff;
738     s->csr[15] = 0x8ff00000;
739 }
740 
741 static void tulip_qdev_reset(DeviceState *dev)
742 {
743     PCIDevice *d = PCI_DEVICE(dev);
744     TULIPState *s = TULIP(d);
745 
746     tulip_reset(s);
747 }
748 
749 static void tulip_write(void *opaque, hwaddr addr,
750                            uint64_t data, unsigned size)
751 {
752     TULIPState *s = opaque;
753     trace_tulip_reg_write(addr, tulip_reg_name(addr), size, data);
754 
755     switch (addr) {
756     case CSR(0):
757         s->csr[0] = data;
758         if (data & CSR0_SWR) {
759             tulip_reset(s);
760             tulip_update_int(s);
761         }
762         break;
763 
764     case CSR(1):
765         tulip_xmit_list_update(s);
766         break;
767 
768     case CSR(2):
769         qemu_flush_queued_packets(qemu_get_queue(s->nic));
770         break;
771 
772     case CSR(3):
773         s->csr[3] = data & ~3ULL;
774         s->current_rx_desc = s->csr[3];
775         qemu_flush_queued_packets(qemu_get_queue(s->nic));
776         break;
777 
778     case CSR(4):
779         s->csr[4] = data & ~3ULL;
780         s->current_tx_desc = s->csr[4];
781         tulip_xmit_list_update(s);
782         break;
783 
784     case CSR(5):
785         /* Status register, write clears bit */
786         s->csr[5] &= ~(data & (CSR5_TI | CSR5_TPS | CSR5_TU | CSR5_TJT |
787                                CSR5_LNP_ANC | CSR5_UNF | CSR5_RI | CSR5_RU |
788                                CSR5_RPS | CSR5_RWT | CSR5_ETI | CSR5_GTE |
789                                CSR5_LNF | CSR5_FBE | CSR5_ERI | CSR5_AIS |
790                                CSR5_NIS | CSR5_GPI | CSR5_LC));
791         tulip_update_int(s);
792         break;
793 
794     case CSR(6):
795         s->csr[6] = data;
796         if (s->csr[6] & CSR6_SR) {
797             tulip_update_rs(s, CSR5_RS_RUNNING_WAIT_RECEIVE);
798             qemu_flush_queued_packets(qemu_get_queue(s->nic));
799         } else {
800             tulip_update_rs(s, CSR5_RS_STOPPED);
801         }
802 
803         if (s->csr[6] & CSR6_ST) {
804             tulip_update_ts(s, CSR5_TS_SUSPENDED);
805             tulip_xmit_list_update(s);
806         } else {
807             tulip_update_ts(s, CSR5_TS_STOPPED);
808         }
809         break;
810 
811     case CSR(7):
812         s->csr[7] = data;
813         tulip_update_int(s);
814         break;
815 
816     case CSR(8):
817         s->csr[9] = data;
818         break;
819 
820     case CSR(9):
821         tulip_csr9_write(s, s->csr[9], data);
822         /* don't clear MII read data */
823         s->csr[9] &= CSR9_MDI;
824         s->csr[9] |= (data & ~CSR9_MDI);
825         tulip_mii(s);
826         s->old_csr9 = s->csr[9];
827         break;
828 
829     case CSR(10):
830         s->csr[10] = data;
831         break;
832 
833     case CSR(11):
834         s->csr[11] = data;
835         break;
836 
837     case CSR(12):
838         /* SIA Status register, some bits are cleared by writing 1 */
839         s->csr[12] &= ~(data & (CSR12_MRA | CSR12_TRA | CSR12_ARA));
840         break;
841 
842     case CSR(13):
843         s->csr[13] = data;
844         break;
845 
846     case CSR(14):
847         s->csr[14] = data;
848         break;
849 
850     case CSR(15):
851         s->csr[15] = data;
852         break;
853 
854     default:
855         qemu_log_mask(LOG_GUEST_ERROR, "%s: write to CSR at unknown address "
856                 "0x%"PRIx64"\n", __func__, addr);
857         break;
858     }
859 }
860 
861 static const MemoryRegionOps tulip_ops = {
862     .read = tulip_read,
863     .write = tulip_write,
864     .endianness = DEVICE_LITTLE_ENDIAN,
865     .impl = {
866         .min_access_size = 4,
867         .max_access_size = 4,
868     },
869 };
870 
871 static void tulip_idblock_crc(TULIPState *s, uint16_t *srom)
872 {
873     int word;
874     int bit;
875     unsigned char bitval, crc;
876     const int len = 9;
877     crc = -1;
878 
879     for (word = 0; word < len; word++) {
880         for (bit = 15; bit >= 0; bit--) {
881             if ((word == (len - 1)) && (bit == 7)) {
882                 /*
883                  * Insert the correct CRC result into input data stream
884                  * in place.
885                  */
886                 srom[len - 1] = (srom[len - 1] & 0xff00) | (unsigned short)crc;
887                 break;
888             }
889             bitval = ((srom[word] >> bit) & 1) ^ ((crc >> 7) & 1);
890             crc = crc << 1;
891             if (bitval == 1) {
892                 crc ^= 6;
893                 crc |= 0x01;
894             }
895         }
896     }
897 }
898 
899 static uint16_t tulip_srom_crc(TULIPState *s, uint8_t *eeprom, size_t len)
900 {
901     unsigned long crc = 0xffffffff;
902     unsigned long flippedcrc = 0;
903     unsigned char currentbyte;
904     unsigned int msb, bit, i;
905 
906     for (i = 0; i < len; i++) {
907         currentbyte = eeprom[i];
908         for (bit = 0; bit < 8; bit++) {
909             msb = (crc >> 31) & 1;
910             crc <<= 1;
911             if (msb ^ (currentbyte & 1)) {
912                 crc ^= 0x04c11db6;
913                 crc |= 0x00000001;
914             }
915             currentbyte >>= 1;
916         }
917     }
918 
919     for (i = 0; i < 32; i++) {
920         flippedcrc <<= 1;
921         bit = crc & 1;
922         crc >>= 1;
923         flippedcrc += bit;
924     }
925     return (flippedcrc ^ 0xffffffff) & 0xffff;
926 }
927 
928 static const uint8_t eeprom_default[128] = {
929     0x3c, 0x10, 0x4f, 0x10, 0x00, 0x00, 0x00, 0x00,
930     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
931     0x56, 0x08, 0x04, 0x01, 0x00, 0x80, 0x48, 0xb3,
932     0x0e, 0xa7, 0x00, 0x1e, 0x00, 0x00, 0x00, 0x08,
933     0x01, 0x8d, 0x03, 0x00, 0x00, 0x00, 0x00, 0x78,
934     0xe0, 0x01, 0x00, 0x50, 0x00, 0x18, 0x00, 0x00,
935     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
936     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
937     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
938     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
939     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
940     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe8, 0x6b,
941     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80,
942     0x48, 0xb3, 0x0e, 0xa7, 0x40, 0x00, 0x00, 0x00,
943     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
944     0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
945 };
946 
947 static void tulip_fill_eeprom(TULIPState *s)
948 {
949     uint16_t *eeprom = eeprom93xx_data(s->eeprom);
950     memcpy(eeprom, eeprom_default, 128);
951 
952     /* patch in our mac address */
953     eeprom[10] = cpu_to_le16(s->c.macaddr.a[0] | (s->c.macaddr.a[1] << 8));
954     eeprom[11] = cpu_to_le16(s->c.macaddr.a[2] | (s->c.macaddr.a[3] << 8));
955     eeprom[12] = cpu_to_le16(s->c.macaddr.a[4] | (s->c.macaddr.a[5] << 8));
956     tulip_idblock_crc(s, eeprom);
957     eeprom[63] = cpu_to_le16(tulip_srom_crc(s, (uint8_t *)eeprom, 126));
958 }
959 
960 static void pci_tulip_realize(PCIDevice *pci_dev, Error **errp)
961 {
962     TULIPState *s = DO_UPCAST(TULIPState, dev, pci_dev);
963     uint8_t *pci_conf;
964 
965     pci_conf = s->dev.config;
966     pci_conf[PCI_INTERRUPT_PIN] = 1; /* interrupt pin A */
967 
968     qemu_macaddr_default_if_unset(&s->c.macaddr);
969 
970     s->eeprom = eeprom93xx_new(&pci_dev->qdev, 64);
971     tulip_fill_eeprom(s);
972 
973     memory_region_init_io(&s->io, OBJECT(&s->dev), &tulip_ops, s,
974             "tulip-io", 128);
975 
976     memory_region_init_io(&s->memory, OBJECT(&s->dev), &tulip_ops, s,
977             "tulip-mem", 128);
978 
979     pci_register_bar(&s->dev, 0, PCI_BASE_ADDRESS_SPACE_IO, &s->io);
980     pci_register_bar(&s->dev, 1, PCI_BASE_ADDRESS_SPACE_MEMORY, &s->memory);
981 
982     s->irq = pci_allocate_irq(&s->dev);
983 
984     s->nic = qemu_new_nic(&net_tulip_info, &s->c,
985                           object_get_typename(OBJECT(pci_dev)),
986                           pci_dev->qdev.id,
987                           &pci_dev->qdev.mem_reentrancy_guard, s);
988     qemu_format_nic_info_str(qemu_get_queue(s->nic), s->c.macaddr.a);
989 }
990 
991 static void pci_tulip_exit(PCIDevice *pci_dev)
992 {
993     TULIPState *s = DO_UPCAST(TULIPState, dev, pci_dev);
994 
995     qemu_del_nic(s->nic);
996     qemu_free_irq(s->irq);
997     eeprom93xx_free(&pci_dev->qdev, s->eeprom);
998 }
999 
1000 static void tulip_instance_init(Object *obj)
1001 {
1002     PCIDevice *pci_dev = PCI_DEVICE(obj);
1003     TULIPState *d = DO_UPCAST(TULIPState, dev, pci_dev);
1004 
1005     device_add_bootindex_property(obj, &d->c.bootindex,
1006                                   "bootindex", "/ethernet-phy@0",
1007                                   &pci_dev->qdev);
1008 }
1009 
1010 static Property tulip_properties[] = {
1011     DEFINE_NIC_PROPERTIES(TULIPState, c),
1012     DEFINE_PROP_END_OF_LIST(),
1013 };
1014 
1015 static void tulip_class_init(ObjectClass *klass, void *data)
1016 {
1017     DeviceClass *dc = DEVICE_CLASS(klass);
1018     PCIDeviceClass *k = PCI_DEVICE_CLASS(klass);
1019 
1020     k->realize = pci_tulip_realize;
1021     k->exit = pci_tulip_exit;
1022     k->vendor_id = PCI_VENDOR_ID_DEC;
1023     k->device_id = PCI_DEVICE_ID_DEC_21143;
1024     k->subsystem_vendor_id = PCI_VENDOR_ID_HP;
1025     k->subsystem_id = 0x104f;
1026     k->class_id = PCI_CLASS_NETWORK_ETHERNET;
1027     dc->vmsd = &vmstate_pci_tulip;
1028     device_class_set_props(dc, tulip_properties);
1029     device_class_set_legacy_reset(dc, tulip_qdev_reset);
1030     set_bit(DEVICE_CATEGORY_NETWORK, dc->categories);
1031 }
1032 
1033 static const TypeInfo tulip_info = {
1034     .name          = TYPE_TULIP,
1035     .parent        = TYPE_PCI_DEVICE,
1036     .instance_size = sizeof(TULIPState),
1037     .class_init    = tulip_class_init,
1038     .instance_init = tulip_instance_init,
1039     .interfaces = (InterfaceInfo[]) {
1040         { INTERFACE_CONVENTIONAL_PCI_DEVICE },
1041         { },
1042     },
1043 };
1044 
1045 static void tulip_register_types(void)
1046 {
1047     type_register_static(&tulip_info);
1048 }
1049 
1050 type_init(tulip_register_types)
1051