Ethernet Shield code

Mieke/SW/ETH/main.c

@@ -0,0 +1,115 @@
+/*
+	Ethernet shield test program
+    Copyright (C) 2018  Andreas Mieke
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <https://www.gnu.org/licenses/>.
+*/
+
+#include "stm32f10x.h"
+#include "stm32f10x_usart.h"            // Keil::Device:StdPeriph Drivers:USART
+
+#include "w5100.h"
+#include "socket.h"
+
+#include "string.h"
+
+#define BUFFLEN 256
+
+// Socket (TCP) with ID 1
+SOCKET tcp = 1;
+uint8_t buffer[BUFFLEN] = {0};
+uint8_t len = 0;
+
+void USART_SendString(USART_TypeDef *USARTx, uint8_t *str)
+{
+	// Send a string character by character over UART
+	while(*str) {
+		while(USART_GetFlagStatus(USARTx, USART_FLAG_TXE) == RESET);
+		USART_SendData(USARTx, *str++);
+	}
+}
+
+int main() {
+	// Enable USART 1 and GPIOA clock
+	RCC_APB2PeriphClockCmd(RCC_APB2Periph_USART1, ENABLE);
+	RCC_APB2PeriphClockCmd(RCC_APB2Periph_GPIOA, ENABLE);
+	
+	// Create gpio strct and set default values
+	GPIO_InitTypeDef gpio;
+	GPIO_StructInit(&gpio);
+
+	// Set PA9 to alternate function push pull (TxD)
+	gpio.GPIO_Mode = GPIO_Mode_AF_PP;
+	gpio.GPIO_Pin = GPIO_Pin_9;
+	GPIO_Init(GPIOA, &gpio);
+	
+	// Set PA10 to input floating (RxD)
+	gpio.GPIO_Mode = GPIO_Mode_IN_FLOATING;
+	gpio.GPIO_Pin = GPIO_Pin_10;
+	GPIO_Init(GPIOA, &gpio);
+	
+	// Set up USART1
+	USART_InitTypeDef usart;
+	USART_StructInit(&usart);
+	USART_Init(USART1, &usart);
+	
+	// Set up USART1 clocks
+	USART_ClockInitTypeDef usartclock;
+	USART_ClockStructInit(&usartclock);
+	USART_ClockInit(USART1, &usartclock);
+	
+	// Enable USART1
+	USART_Cmd(USART1, ENABLE);
+	
+	// Initzialize Ethernet module
+	ETH_init();
+	
+	// Set gateway IP
+	uint8_t gid[4] = {192, 168, 10, 1};
+
+	// Set subnet mask
+	uint8_t sma[4] = {255, 255, 255, 0};
+
+	// Set MAC address (unused testing address space)
+	uint8_t mac[6] = {0x1E, 0x8E, 0xA8, 0x88, 0x1C, 0xAA};
+
+	// Set source IP (IP of the Ethernet module)
+	uint8_t sip[4] = {192, 168, 10, 2};
+	
+	// Transmit all these values to the module
+	ETH_set_gateway_IP(gid);
+	ETH_set_subnet_mask(sma);
+	ETH_set_mac(mac);
+	ETH_set_IP(sip);
+	
+	// Try to create a TCP socket on port 80 as long as it does not work
+	do {
+		ETH_socket(tcp, ETH_SMR_TCP, 80, 0);
+	} while (ETH_socket_status(tcp) != ETH_SSR_INIT);
+
+	// Wait for the socket to finish creating
+	while(!ETH_listen(tcp));
+	
+	// Endless loop
+	do {
+		// Wait for data to be available
+		while(ETH_recv_available(tcp) == 0);
+		// Receive data
+		buffer[ETH_recv(tcp, buffer, BUFFLEN)] = 0;
+		// Send data to USART
+		USART_SendString(USART1, buffer);
+		// Send string over tcp
+		ETH_send(tcp, "Hallo, Welt!", 12);
+	} while (1);
+}