233 lines
6.0 KiB
C
233 lines
6.0 KiB
C
#include <module.h>
|
|
#include <logging.h>
|
|
#include <printf.h>
|
|
#include <pci.h>
|
|
#include <ipv4.h>
|
|
#include <mod/shell.h>
|
|
|
|
#include "lwip/netif.h"
|
|
#include "lwip/dhcp.h"
|
|
#include "ipv4/lwip/ip.h"
|
|
#include "lwip/tcpip.h"
|
|
#include "netif/etharp.h"
|
|
|
|
static uint32_t rtl_device_pci = 0x00000000;
|
|
|
|
static void find_rtl(uint32_t device, uint16_t vendorid, uint16_t deviceid, void * extra) {
|
|
if ((vendorid == 0x10ec) && (deviceid == 0x8139)) {
|
|
*((uint32_t *)extra) = device;
|
|
}
|
|
}
|
|
|
|
#define RTL_PORT_MAC 0x00
|
|
#define RTL_PORT_MAR 0x08
|
|
#define RTL_PORT_RBSTART 0x30
|
|
#define RTL_PORT_CMD 0x37
|
|
#define RTL_PORT_IMR 0x3C
|
|
#define RTL_PORT_ISR 0x3E
|
|
#define RTL_PORT_RCR 0x44
|
|
#define RTL_PORT_CONFIG 0x52
|
|
|
|
static uint8_t rtl_rx_buffer[8192+16];
|
|
static struct netif rtl_lwip_netif;
|
|
static ip_addr_t ipaddr, netmask, gw;
|
|
|
|
err_t rtl_linkoutput(struct netif * netif, struct pbuf * p) {
|
|
debug_print(NOTICE, "tx %x %x", netif, p);
|
|
return 0;
|
|
}
|
|
|
|
err_t rtl_output(struct netif * netif, struct pbuf * p, struct ip_addr* dest) {
|
|
debug_print(NOTICE, "tx %x %x %x", netif, p, dest);
|
|
return 0;
|
|
}
|
|
|
|
err_t rtl_init(struct netif * netif) {
|
|
debug_print(NOTICE, "rtl init");
|
|
netif->linkoutput = rtl_linkoutput;
|
|
netif->output = rtl_output; //etharp_output;
|
|
return 0;
|
|
}
|
|
|
|
static void dhcp_thread(void * arg, char * name) {
|
|
dhcp_start(&rtl_lwip_netif);
|
|
|
|
int mscnt = 0;
|
|
while (rtl_lwip_netif.ip_addr.addr == 0) {
|
|
unsigned long s, ss;
|
|
relative_time(0, DHCP_FINE_TIMER_MSECS / 100, &s, &ss);
|
|
sleep_until((process_t *)current_process, s, ss);
|
|
switch_task(0);
|
|
dhcp_fine_tmr();
|
|
mscnt += DHCP_FINE_TIMER_MSECS;
|
|
if (mscnt >= DHCP_COARSE_TIMER_SECS * 1000) {
|
|
debug_print(NOTICE, "coarse timer");
|
|
dhcp_coarse_tmr();
|
|
mscnt = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
static void tcpip_init_done(void * arg) {
|
|
netif_add(&rtl_lwip_netif, &ipaddr, &netmask, &gw, 0, rtl_init, ethernet_input);
|
|
|
|
netif_set_default(&rtl_lwip_netif);
|
|
netif_set_up(&rtl_lwip_netif);
|
|
|
|
create_kernel_tasklet(dhcp_thread, "[[dhcpd]]", NULL);
|
|
}
|
|
|
|
|
|
DEFINE_SHELL_FUNCTION(rtl, "rtl8139 experiments") {
|
|
if (rtl_device_pci) {
|
|
fprintf(tty, "Located an RTL 8139: 0x%x\n", rtl_device_pci);
|
|
|
|
uint16_t command_reg = pci_read_field(rtl_device_pci, PCI_COMMAND, 2);
|
|
fprintf(tty, "COMMAND register before: 0x%4x\n", command_reg);
|
|
if (command_reg & 0x0002) {
|
|
fprintf(tty, "Bus mastering already enabled.\n");
|
|
} else {
|
|
command_reg |= 0x2; /* bit 2 */
|
|
fprintf(tty, "COMMAND register after: 0x%4x\n", command_reg);
|
|
fprintf(tty, "XXX: I can't write config registers :(\n");
|
|
return -1;
|
|
}
|
|
|
|
uint32_t rtl_irq = pci_read_field(rtl_device_pci, PCI_INTERRUPT_LINE, 1);
|
|
|
|
fprintf(tty, "Interrupt Line: %x\n", rtl_irq);
|
|
|
|
uint32_t rtl_bar0 = pci_read_field(rtl_device_pci, PCI_BAR0, 4);
|
|
uint32_t rtl_bar1 = pci_read_field(rtl_device_pci, PCI_BAR1, 4);
|
|
|
|
fprintf(tty, "BAR0: 0x%8x\n", rtl_bar0);
|
|
fprintf(tty, "BAR1: 0x%8x\n", rtl_bar1);
|
|
|
|
uint32_t rtl_iobase = 0x00000000;
|
|
|
|
if (rtl_bar0 & 0x00000001) {
|
|
rtl_iobase = rtl_bar0 & 0xFFFFFFFC;
|
|
} else {
|
|
fprintf(tty, "This doesn't seem right! RTL8139 should be using an I/O BAR; this looks like a memory bar.");
|
|
}
|
|
|
|
fprintf(tty, "RTL iobase: 0x%x\n", rtl_iobase);
|
|
|
|
fprintf(tty, "Determining mac address...\n");
|
|
|
|
uint8_t mac[6];
|
|
for (int i = 0; i < 6; ++i) {
|
|
mac[i] = inports(rtl_iobase + RTL_PORT_MAC + i);
|
|
}
|
|
|
|
fprintf(tty, "%2x:%2x:%2x:%2x:%2x:%2x\n", mac[0], mac[1], mac[2], mac[3], mac[4], mac[5]);
|
|
|
|
fprintf(tty, "Enabling RTL8139.\n");
|
|
outportb(rtl_iobase + RTL_PORT_CONFIG, 0x0);
|
|
|
|
fprintf(tty, "Resetting RTL8139.\n");
|
|
outportb(rtl_iobase + RTL_PORT_CMD, 0x10);
|
|
while ((inportb(rtl_iobase + 0x37) & 0x10) != 0) { }
|
|
|
|
fprintf(tty, "Done resetting RTL8139.\n");
|
|
|
|
fprintf(tty, "Initializing receive buffer.\n");
|
|
outportl(rtl_iobase + RTL_PORT_RBSTART, (unsigned long)&rtl_rx_buffer);
|
|
|
|
fprintf(tty, "Enabling IRQs.\n");
|
|
outports(rtl_iobase + RTL_PORT_IMR, 0x0005); /* TOK, ROK */
|
|
|
|
fprintf(tty, "Configuring receive buffer.\n");
|
|
outportl(rtl_iobase + RTL_PORT_RCR, 0xF | (1 << 7)); /* 0xF = AB+AM+APM+AAP */
|
|
|
|
fprintf(tty, "Enabling receive and transmit.\n");
|
|
outportb(rtl_iobase + RTL_PORT_CMD, 0x0C);
|
|
|
|
memset(&rtl_lwip_netif, 0, sizeof(struct netif));
|
|
|
|
IP4_ADDR(&gw, 0,0,0,0);
|
|
IP4_ADDR(&ipaddr, 0,0,0,0);
|
|
IP4_ADDR(&netmask, 0,0,0,0);
|
|
|
|
rtl_lwip_netif.hwaddr_len = 6;
|
|
rtl_lwip_netif.hwaddr[0] = mac[0];
|
|
rtl_lwip_netif.hwaddr[1] = mac[1];
|
|
rtl_lwip_netif.hwaddr[2] = mac[2];
|
|
rtl_lwip_netif.hwaddr[3] = mac[3];
|
|
rtl_lwip_netif.hwaddr[4] = mac[4];
|
|
rtl_lwip_netif.hwaddr[5] = mac[5];
|
|
|
|
debug_print(NOTICE, "Going to init stuff.");
|
|
switch_task(1);
|
|
|
|
tcpip_init(tcpip_init_done, NULL);
|
|
|
|
debug_print(NOTICE, "okay, stuff should be running in the background now\n");
|
|
switch_task(1);
|
|
|
|
#if 0
|
|
fprintf(tty, "Going to try to force-send a UDP packet...\n");
|
|
struct ipv4_packet p;
|
|
p.version_ihl = (4 << 4) & (5 << 0); /* IPv4, no options */
|
|
p.dscp_ecn = 0; /* nope nope nope */
|
|
p.length = sizeof(struct ipv4_packet) + sizeof(struct udp_packet) + sizeof(struct dhcp_packet);
|
|
p.ident = 0;
|
|
p.flags_fragment = 0;
|
|
p.ttl = 0xFF;
|
|
p.protocol = 17;
|
|
p.checksum = 0; /* calculate this later */
|
|
p.source = 0x00000000; /* 0.0.0.0 */
|
|
p.destination = 0xFFFFFFFF; /* 255.255.255.255 */
|
|
|
|
uint16_t * packet = (uint16_t *)&p;
|
|
uint32_t total = 0;
|
|
for (int i = 0; i < 10; ++i) {
|
|
total += packet[i];
|
|
if (total & 0x80000000) {
|
|
total = (total & 0xFFFF) + (total >> 16);
|
|
}
|
|
}
|
|
|
|
while (total >> 16) {
|
|
total = (total & 0xFFFF) + (total >> 16);
|
|
}
|
|
|
|
p.checksum = ~total;
|
|
|
|
struct udp_packet u;
|
|
u.source = p.source;
|
|
u.destination = p.destination;
|
|
u.zeroes = 0;
|
|
u.protocol = p.protocol;
|
|
u.udp_length = p.length;
|
|
u.source_port = 68;
|
|
u.destination_port = 67;
|
|
u.length = sizeof(struct dhcp_packet);
|
|
u.checksum = 0;
|
|
#endif
|
|
|
|
|
|
} else {
|
|
return -1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int init(void) {
|
|
BIND_SHELL_FUNCTION(rtl);
|
|
pci_scan(&find_rtl, -1, &rtl_device_pci);
|
|
if (!rtl_device_pci) {
|
|
debug_print(ERROR, "No RTL 8139 found?");
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static int fini(void) {
|
|
return 0;
|
|
}
|
|
|
|
MODULE_DEF(rtl8139, init, fini);
|
|
MODULE_DEPENDS(debugshell);
|
|
MODULE_DEPENDS(netif);
|