490 lines
14 KiB
C
490 lines
14 KiB
C
/*
|
||
* main.c
|
||
*
|
||
* Created on: 22 нояб. 2018 г.
|
||
* Author: maxx
|
||
*/
|
||
#include <avr/io.h>
|
||
#include <util/delay.h>
|
||
#include <avr/interrupt.h>
|
||
#include <avr/pgmspace.h>
|
||
#include <compat/deprecated.h> //sbi, cbi etc..
|
||
#include "avr/wdt.h" // WatchDog
|
||
#include <stdio.h> // printf etc..
|
||
#include "uart_extd.h"
|
||
#include "spi.h"
|
||
|
||
#include "Ethernet/socket.h"
|
||
#include "Ethernet/wizchip_conf.h"
|
||
#include "Application/loopback/loopback.h"
|
||
#include "Application/PING/ping.h"
|
||
|
||
//#include <stdlib.h> // itoa etc..
|
||
/*
|
||
*
|
||
* (8) ICMP PING Client-Server unblocking via IPRAW mode
|
||
*
|
||
* (3) Trying WIZNET5500 init with using official Wiznet ioLibrary_Driver
|
||
* working ping on static IP
|
||
* LED1 = ON when phy_link detected
|
||
* and loopback test on TCP-IP:5000 and UDP:3000 ports.
|
||
* use Hercules terminal utility to check network connection see:
|
||
*
|
||
* https://wizwiki.net/wiki/doku.php?id=osh:cookie:loopback_test
|
||
* https://www.hw-group.com/software/hercules-setup-utility
|
||
*
|
||
*/
|
||
#define PRINTF_EN 1
|
||
#if PRINTF_EN
|
||
#define PRINTF(FORMAT,args...) printf_P(PSTR(FORMAT),##args)
|
||
#else
|
||
#define PRINTF(...)
|
||
#endif
|
||
|
||
/*
|
||
* m1284p minimum template, with one button & one led
|
||
*/
|
||
|
||
//M644P/M1284p Users LEDS:
|
||
//LED1/PORTC.4- m644p/m1284p maxxir
|
||
#define led1_conf() DDRC |= (1<<DDC4)
|
||
#define led1_high() PORTC |= (1<<PORTC4)
|
||
#define led1_low() PORTC &= ~(1<<PORTC4)
|
||
#define led1_tgl() PORTC ^= (1<<PORTC4)
|
||
#define led1_read() (PORTC & (1<<PORTC4))
|
||
|
||
#define sw1_conf() {DDRC &= ~(1<<DDC5); PORTC |= (1<<PORTC5);}
|
||
#define sw1_read() (PINC & (1<<PINC5))
|
||
|
||
#ifdef IP_WORK
|
||
uint8_t ping_ip[4] = { 192, 168, 0, 100 }; //Ping IP address
|
||
//NIC metrics for WORK PC
|
||
wiz_NetInfo netInfo = { .mac = {0x00, 0x08, 0xdc, 0xab, 0xcd, 0xef}, // Mac address
|
||
.ip = {192, 168, 0, 199}, // IP address
|
||
.sn = {255, 255, 255, 0}, // Subnet mask
|
||
.dns = {8,8,8,8}, // DNS address (google dns)
|
||
.gw = {192, 168, 0, 1}, // Gateway address
|
||
.dhcp = NETINFO_STATIC}; //Static IP configuration
|
||
#else
|
||
uint8_t ping_ip[4] = { 192, 168, 1, 81 }; //Ping IP address
|
||
//NIC metrics for another PC (second IP configuration)
|
||
wiz_NetInfo netInfo = { .mac = {0x00, 0x08, 0xdc, 0xab, 0xcd, 0xef}, // Mac address
|
||
.ip = {192, 168, 1, 199}, // IP address
|
||
.sn = {255, 255, 255, 0}, // Subnet mask
|
||
.dns = {8,8,8,8}, // DNS address (google dns)
|
||
.gw = {192, 168, 1, 1}, // Gateway address
|
||
.dhcp = NETINFO_STATIC}; //Static IP configuration
|
||
#endif
|
||
|
||
//*********Global vars
|
||
#define TICK_PER_SEC 1000UL
|
||
volatile unsigned long _millis; // for millis tick !! Overflow every ~49.7 days
|
||
|
||
//*********Program metrics
|
||
const char compile_date[] PROGMEM = __DATE__; // Mmm dd yyyy - Дата компиляции
|
||
const char compile_time[] PROGMEM = __TIME__; // hh:mm:ss - Время компиляции
|
||
const char str_prog_name[] PROGMEM = "\r\nAtMega1284p v2.1 Static IP ICMP (ping) client-server WIZNET_5500 ETHERNET 03/12/2018\r\n"; // Program name
|
||
|
||
#if defined(__AVR_ATmega128__)
|
||
const char PROGMEM str_mcu[] = "ATmega128"; //CPU is m128
|
||
#elif defined (__AVR_ATmega2560__)
|
||
const char PROGMEM str_mcu[] = "ATmega2560"; //CPU is m2560
|
||
#elif defined (__AVR_ATmega2561__)
|
||
const char PROGMEM str_mcu[] = "ATmega2561"; //CPU is m2561
|
||
#elif defined (__AVR_ATmega328P__)
|
||
const char PROGMEM str_mcu[] = "ATmega328P"; //CPU is m328p
|
||
#elif defined (__AVR_ATmega32U4__)
|
||
const char PROGMEM str_mcu[] = "ATmega32u4"; //CPU is m32u4
|
||
#elif defined (__AVR_ATmega644P__)
|
||
const char PROGMEM str_mcu[] = "ATmega644p"; //CPU is m644p
|
||
#elif defined (__AVR_ATmega1284P__)
|
||
const char PROGMEM str_mcu[] = "ATmega1284p"; //CPU is m1284p
|
||
#else
|
||
const char PROGMEM str_mcu[] = "Unknown CPU"; //CPU is unknown
|
||
#endif
|
||
|
||
|
||
//FUNC headers
|
||
static void avr_init(void);
|
||
void timer0_init(void);
|
||
static inline unsigned long millis(void);
|
||
|
||
//Wiznet FUNC headers
|
||
void print_network_information(void);
|
||
|
||
// RAM Memory usage test
|
||
static int freeRam (void)
|
||
{
|
||
extern int __heap_start, *__brkval;
|
||
int v;
|
||
int _res = (int) &v - (__brkval == 0 ? (int) &__heap_start : (int) __brkval);
|
||
return _res;
|
||
}
|
||
|
||
|
||
//******************* MILLIS ENGINE: BEGIN
|
||
//ISR (TIMER0_COMP_vect )
|
||
ISR (TIMER0_COMPA_vect)
|
||
{
|
||
// Compare match Timer0
|
||
// Here every 1ms
|
||
_millis++; // INC millis tick
|
||
// Тест мигаем при в ходе в прерывание
|
||
// 500Hz FREQ OUT
|
||
// LED_TGL;
|
||
}
|
||
|
||
static inline unsigned long millis(void)
|
||
{
|
||
unsigned long i;
|
||
cli();
|
||
// Atomic tick reading
|
||
i = _millis;
|
||
sei();
|
||
return i;
|
||
}
|
||
//******************* MILLIS ENGINE: END
|
||
|
||
//***************** UART0: BEGIN
|
||
// Assign I/O stream to UART
|
||
/* define CPU frequency in Mhz here if not defined in Makefile */
|
||
//#ifndef F_CPU
|
||
//#define F_CPU 16000000UL
|
||
//#endif
|
||
|
||
/* 19200 baud */
|
||
//#define UART_BAUD_RATE 19200
|
||
#define UART_BAUD_RATE 115200
|
||
|
||
static int uart0_putchar(char ch,FILE *stream);
|
||
static void uart0_rx_flash(void);
|
||
|
||
static FILE uart0_stdout = FDEV_SETUP_STREAM(uart0_putchar, NULL, _FDEV_SETUP_WRITE);
|
||
//PS. stdin не переназначаю, т.к. удобнее с ним работать через uart.h - api:
|
||
|
||
/*
|
||
* Т.е. например так
|
||
c = uart1_getc();
|
||
if (( c & UART_NO_DATA ) == 0)
|
||
{
|
||
uart1_putc( (unsigned char)c );
|
||
}
|
||
При этом чекаем что буфер приема не пуст и опрос идет неблокирующий (+ работаем через UART RX RINGBUFFER),
|
||
а если работаем в стиле stdin->getchar() там опрос блокируется пока символ не будет принят (поллинг)
|
||
через UART1_RX, т.е. неудобно.
|
||
*/
|
||
|
||
// STDOUT UART0 TX handler
|
||
static int uart0_putchar(char ch,FILE *stream)
|
||
{
|
||
uart_putc(ch);
|
||
return 0;
|
||
}
|
||
|
||
// Очищаем буфер приема UART1 RX (иногда нужно)
|
||
static void uart0_rx_flash(void)
|
||
{
|
||
// Считываем все из ring-buffer UART1 RX
|
||
unsigned int c;
|
||
do
|
||
{
|
||
c = uart_getc();
|
||
} while (( c & UART_NO_DATA ) == 0); // Check RX1 none-empty
|
||
|
||
}
|
||
//***************** UART0: END
|
||
|
||
//***************** ADC: BEGIN
|
||
|
||
#ifndef ADC_DIV
|
||
//12.5MHz or over use this ADC reference clock
|
||
#define ADC_DIV (1<<ADPS2)|(1<<ADPS1)|(1<<ADPS0) //:128 ADC Prescaler
|
||
#endif
|
||
|
||
#ifndef ADC_REF
|
||
// vcc voltage ref default
|
||
#define ADC_REF (1<<REFS0)
|
||
#endif
|
||
|
||
void adc_init(void)
|
||
{
|
||
ADCSRA = 0;
|
||
ADCSRA |= (ADC_DIV); // ADC reference clock
|
||
ADMUX |= (ADC_REF); // Voltage reference
|
||
ADCSRA |= (1<<ADEN); // Turn on ADC
|
||
ADCSRA |= (1<<ADSC); // Do an initial conversion because this one is the
|
||
// slowest and to ensure that everything is up
|
||
// and running
|
||
}
|
||
|
||
uint16_t adc_read(uint8_t channel)
|
||
{
|
||
ADMUX &= 0b11100000; //Clear the older channel that was read
|
||
ADMUX |= channel; //Defines the new ADC channel to be read
|
||
ADCSRA |= (1<<ADSC); //Starts a new conversion
|
||
while(ADCSRA & (1<<ADSC)); //Wait until the conversion is done
|
||
|
||
return ADCW; //Returns the ADC value of the chosen channel
|
||
}
|
||
//***************** ADC: END
|
||
|
||
|
||
//***************** WIZCHIP INIT: BEGIN
|
||
//#define ETH_MAX_BUF_SIZE 2048
|
||
#define ETH_MAX_BUF_SIZE 256
|
||
|
||
unsigned char ethBuf0[ETH_MAX_BUF_SIZE];
|
||
unsigned char ethBuf1[ETH_MAX_BUF_SIZE];
|
||
|
||
void cs_sel() {
|
||
SPI_WIZNET_ENABLE();
|
||
}
|
||
|
||
void cs_desel() {
|
||
SPI_WIZNET_DISABLE();
|
||
}
|
||
|
||
uint8_t spi_rb(void) {
|
||
uint8_t rbuf;
|
||
//HAL_SPI_Receive(&hspi1, &rbuf, 1, HAL_MAX_DELAY);
|
||
SPI_READ(rbuf);
|
||
return rbuf;
|
||
}
|
||
|
||
void spi_wb(uint8_t b) {
|
||
//HAL_SPI_Transmit(&hspi1, &b, 1, HAL_MAX_DELAY);
|
||
SPI_WRITE(b);
|
||
}
|
||
|
||
void spi_rb_burst(uint8_t *buf, uint16_t len) {
|
||
//HAL_SPI_Receive_DMA(&hspi1, buf, len);
|
||
//while(HAL_SPI_GetState(&hspi1) == HAL_SPI_STATE_BUSY_RX);
|
||
for (uint16_t var = 0; var < len; var++) {
|
||
SPI_READ(*buf++);
|
||
}
|
||
}
|
||
|
||
void spi_wb_burst(uint8_t *buf, uint16_t len) {
|
||
//HAL_SPI_Transmit_DMA(&hspi1, buf, len);
|
||
//while(HAL_SPI_GetState(&hspi1) == HAL_SPI_STATE_BUSY_TX);
|
||
for (uint16_t var = 0; var < len; var++) {
|
||
SPI_WRITE(*buf++);
|
||
}
|
||
}
|
||
|
||
void IO_LIBRARY_Init(void) {
|
||
uint8_t bufSize[] = {2, 2, 2, 2, 2, 2, 2, 2};
|
||
|
||
reg_wizchip_cs_cbfunc(cs_sel, cs_desel);
|
||
reg_wizchip_spi_cbfunc(spi_rb, spi_wb);
|
||
reg_wizchip_spiburst_cbfunc(spi_rb_burst, spi_wb_burst);
|
||
|
||
wizchip_init(bufSize, bufSize);
|
||
wizchip_setnetinfo(&netInfo);
|
||
//wizchip_setinterruptmask(IK_SOCK_0);
|
||
}
|
||
//***************** WIZCHIP INIT: END
|
||
|
||
|
||
//ICMP callback (fire on ICMP request/reply from ping_srv)
|
||
/*
|
||
* socket - socket number
|
||
* ip_query - IP from which ICMP query (like 192.168.0.x)
|
||
* type_query - ICMP query type: PING_REQUEST or PING_REPLY
|
||
* id_query - ICMP query Identificator: ID ICMP [0..0xFFFF]
|
||
* seq_query - ICMP query Sequence Number : ID Seq num [0..0xFFFF]
|
||
* len_query - ICMP query length of the data
|
||
*/
|
||
void icmp_cb(uint8_t socket,\
|
||
uint8_t* ip_query,\
|
||
uint8_t type_query,\
|
||
uint16_t id_query,\
|
||
uint16_t seq_query,\
|
||
uint16_t len_query)
|
||
{
|
||
PRINTF( "<< PING %s from %d.%d.%d.%d ID:%x Seq:%x data:%u bytes\r\n",\
|
||
type_query? "Request": "Reply",\
|
||
(int16_t) ip_query[0],\
|
||
(int16_t) ip_query[1],\
|
||
(int16_t) ip_query[2],\
|
||
(int16_t) ip_query[3],\
|
||
id_query,\
|
||
seq_query,\
|
||
len_query);
|
||
}
|
||
|
||
int main()
|
||
{
|
||
uint8_t prev_sw1 = 1; // VAR for sw1 pressing detect
|
||
|
||
// INIT MCU
|
||
avr_init();
|
||
spi_init(); //SPI Master, MODE0, 4Mhz(DIV4), CS_PB.3=HIGH - suitable for WIZNET 5x00(1/2/5)
|
||
|
||
|
||
// Print program metrics
|
||
PRINTF("%S", str_prog_name);// Название программы
|
||
PRINTF("Compiled at: %S %S\r\n", compile_time, compile_date);// Время Дата компиляции
|
||
PRINTF(">> MCU is: %S; CLK is: %luHz\r\n", str_mcu, F_CPU);// MCU Name && FREQ
|
||
PRINTF(">> Free RAM is: %d bytes\r\n", freeRam());
|
||
|
||
//Short Blink LED 3 times on startup
|
||
unsigned char i = 3;
|
||
while(i--)
|
||
{
|
||
led1_high();
|
||
_delay_ms(100);
|
||
led1_low();
|
||
_delay_ms(400);
|
||
wdt_reset();
|
||
}
|
||
|
||
//Wizchip WIZ5500 Ethernet initialize
|
||
IO_LIBRARY_Init(); //After that ping must working
|
||
print_network_information();
|
||
|
||
/* Loopback Test: TCP Server and UDP */
|
||
// Test for Ethernet data transfer validation
|
||
uint32_t timer_link_1sec = millis();
|
||
uint32_t timer_ping1 = millis();
|
||
uint32_t timer_ping2 = millis();
|
||
while(1)
|
||
{
|
||
//Here at least every 1sec
|
||
wdt_reset(); // WDT reset at least every sec
|
||
|
||
//Use Hercules Terminal to check loopback tcp:5000 and udp:3000
|
||
/*
|
||
* https://www.hw-group.com/software/hercules-setup-utility
|
||
* */
|
||
loopback_tcps(0,ethBuf0,5000);
|
||
loopback_udps(1, ethBuf0, 3000);
|
||
|
||
/*
|
||
* run ICMP (ping) server
|
||
*/
|
||
ping_srv(2);
|
||
|
||
/*ICM Ping client example #1 - ping GW/myPC every 10 sec*/
|
||
if((millis()-timer_ping1)> 10000)
|
||
{
|
||
timer_ping1 = millis();
|
||
//PRINTF("\r\n>> PING GW\r\n");
|
||
//ping_request(2, netInfo.gw);
|
||
|
||
PRINTF("\r\n>> PING my PC\r\n");
|
||
ping_request(2, ping_ip); //DEVELOPER PC IP
|
||
}
|
||
|
||
/*ICM Ping client example #2 - ping DNS google every 15 sec*/
|
||
if((millis()-timer_ping2)> 15000)
|
||
{
|
||
timer_ping2 = millis();
|
||
PRINTF("\r\n>>> PING DNS\r\n");
|
||
ping_request(2, netInfo.dns);
|
||
}
|
||
|
||
//loopback_ret = loopback_tcpc(SOCK_TCPS, gDATABUF, destip, destport);
|
||
//if(loopback_ret < 0) printf("loopback ret: %ld\r\n", loopback_ret); // TCP Socket Error code
|
||
|
||
if((millis()-timer_link_1sec)> 1000)
|
||
{
|
||
//here every 1 sec
|
||
timer_link_1sec = millis();
|
||
if(wizphy_getphylink() == PHY_LINK_ON)
|
||
{
|
||
led1_high();
|
||
}
|
||
else
|
||
{
|
||
led1_low();
|
||
}
|
||
}
|
||
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
// Timer0
|
||
// 1ms IRQ
|
||
// Used for millis() timing
|
||
void timer0_init(void)
|
||
{
|
||
/*
|
||
*
|
||
* For M128
|
||
TCCR0 = (1<<CS02)|(1<<WGM01); //TIMER0 SET-UP: CTC MODE & PS 1:64
|
||
OCR0 = 249; // 1ms reach for clear (16mz:64=>250kHz:250-=>1kHz)
|
||
TIMSK |= 1<<OCIE0; //IRQ on TIMER0 output compare
|
||
*/
|
||
//For M664p
|
||
TCCR0A = (1<<WGM01); //TIMER0 SET-UP: CTC MODE
|
||
TCCR0B = (1<<CS01)|(1<<CS00); // PS 1:64
|
||
OCR0A = 249; // 1ms reach for clear (16mz:64=>250kHz:250-=>1kHz)
|
||
TIMSK0 |= 1<<OCIE0A; //IRQ on TIMER0 output compareA
|
||
}
|
||
|
||
static void avr_init(void)
|
||
{
|
||
// Initialize device here.
|
||
// WatchDog INIT
|
||
wdt_enable(WDTO_8S); // set up wdt reset interval 2 second
|
||
wdt_reset(); // wdt reset ~ every <2000ms
|
||
|
||
timer0_init();// Timer0 millis engine init
|
||
|
||
// Initial UART Peripheral
|
||
/*
|
||
* Initialize uart11 library, pass baudrate and AVR cpu clock
|
||
* with the macro
|
||
* uart1_BAUD_SELECT() (normal speed mode )
|
||
* or
|
||
* uart1_BAUD_SELECT_DOUBLE_SPEED() ( double speed mode)
|
||
*/
|
||
#if (UART_BAUD_RATE == 115200)
|
||
uart_init( UART_BAUD_SELECT_DOUBLE_SPEED(UART_BAUD_RATE,F_CPU) ); // To works without error on 115200 bps/F_CPU=16Mhz
|
||
#else
|
||
uart_init( UART_BAUD_SELECT(UART_BAUD_RATE,F_CPU) );
|
||
#endif
|
||
// Define Output/Input Stream
|
||
stdout = &uart0_stdout;
|
||
|
||
//ADC init
|
||
adc_init();
|
||
adc_read(0); //Dummy read
|
||
|
||
|
||
led1_conf();
|
||
led1_low();// LED1 is OFF
|
||
|
||
|
||
sw1_conf();//SW1 internal pull-up
|
||
|
||
sei(); //re-enable global interrupts
|
||
|
||
return;
|
||
}
|
||
|
||
void print_network_information(void)
|
||
{
|
||
|
||
uint8_t tmpstr[6] = {0,};
|
||
ctlwizchip(CW_GET_ID,(void*)tmpstr); // Get WIZCHIP name
|
||
PRINTF("\r\n=======================================\r\n");
|
||
PRINTF(" WIZnet chip: %s \r\n", tmpstr);
|
||
PRINTF("=======================================\r\n");
|
||
|
||
wiz_NetInfo gWIZNETINFO;
|
||
wizchip_getnetinfo(&gWIZNETINFO);
|
||
if (gWIZNETINFO.dhcp == NETINFO_STATIC)
|
||
PRINTF("STATIC IP\r\n");
|
||
else
|
||
PRINTF("DHCP IP\r\n");
|
||
printf("Mac address: %02x:%02x:%02x:%02x:%02x:%02x\n\r",gWIZNETINFO.mac[0],gWIZNETINFO.mac[1],gWIZNETINFO.mac[2],gWIZNETINFO.mac[3],gWIZNETINFO.mac[4],gWIZNETINFO.mac[5]);
|
||
printf("IP address : %d.%d.%d.%d\n\r",gWIZNETINFO.ip[0],gWIZNETINFO.ip[1],gWIZNETINFO.ip[2],gWIZNETINFO.ip[3]);
|
||
printf("SM Mask : %d.%d.%d.%d\n\r",gWIZNETINFO.sn[0],gWIZNETINFO.sn[1],gWIZNETINFO.sn[2],gWIZNETINFO.sn[3]);
|
||
printf("Gate way : %d.%d.%d.%d\n\r",gWIZNETINFO.gw[0],gWIZNETINFO.gw[1],gWIZNETINFO.gw[2],gWIZNETINFO.gw[3]);
|
||
printf("DNS Server : %d.%d.%d.%d\n\r",gWIZNETINFO.dns[0],gWIZNETINFO.dns[1],gWIZNETINFO.dns[2],gWIZNETINFO.dns[3]);
|
||
}
|
||
|