You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.

654 lines
17 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 "globals.h" //Global definitions for project
#include "stdbool.h"
#include "Ethernet/socket.h"
#include "Ethernet/wizchip_conf.h"
#include "Application/loopback/loopback.h"
#define _MAIN_DEBUG_
//NIC metrics
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}; //Dynamic IP configuration from a DHCP sever
/*
* (3) WIZNET loopback + FATFS (as template)
* + Added FATFS init (from <02_m1284p_FATFS_Chang_tst>),
* Trying WIZNET5500 init with using official Wiznet ioLibrary_Driver
* working ping, assign 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
*
*/
//***********Prologue for fast WDT disable & and save reason of reset/power-up: END
uint8_t mcucsr_mirror __attribute__ ((section (".noinit")));
// This is for fast WDT disable & and save reason of reset/power-up
void get_mcusr(void) \
__attribute__((naked)) \
__attribute__((section(".init3")));
void get_mcusr(void)
{
mcucsr_mirror = MCUSR;
MCUSR = 0;
wdt_disable();
}
//***********Prologue for fast WDT disable & and save reason of reset/power-up: END
//*********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 v1.0 Static IP Loop-back && FATFS SDCARD template WIZNET_5500 ETHERNET 20/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);
//Wiznet FUNC headers
void print_network_information(void);
// RAM Memory usage test
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)
{
static uint8_t fatfs_10ms;
// Compare match Timer0
// Here every 1ms
_millis++; // INC millis tick
// Òåñò ìèãàåì ïðè â õîäå â ïðåðûâàíèå
// 500Hz FREQ OUT
// LED_TGL;
if(++fatfs_10ms > 9 )
{
//Here every 10ms
fatfs_10ms = 0;
//Timer++; /* Performance counter for this module (for FatFS test) */
disk_timerproc(); // FAT FS timing func
}
}
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 38400
#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 SOCK_TCPS 0
#define SOCK_UDPS 1
#define PORT_TCPS 5000
#define PORT_UDPS 3000
#define ETH_MAX_BUF_SIZE 2048
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
//****************************FAT FS initialize: BEGIN
static void put_rc (FRESULT rc)
{
const char PROGMEM *p;
static const char PROGMEM str[] =
"OK\0" "DISK_ERR\0" "INT_ERR\0" "NOT_READY\0" "NO_FILE\0" "NO_PATH\0"
"INVALID_NAME\0" "DENIED\0" "EXIST\0" "INVALID_OBJECT\0" "WRITE_PROTECTED\0"
"INVALID_DRIVE\0" "NOT_ENABLED\0" "NO_FILE_SYSTEM\0" "MKFS_ABORTED\0" "TIMEOUT\0"
"LOCKED\0" "NOT_ENOUGH_CORE\0" "TOO_MANY_OPEN_FILES\0";
FRESULT i;
for (p = str, i = 0; i != rc && pgm_read_byte_near(p); i++) {
while(pgm_read_byte_near(p++));
}
PRINTF("rc=%u FR_%S\r\n", rc, p);
}
static void ls_dir(char* path)
{
DIR Dir;
FILINFO _Finfo;
BYTE res;
long p1, p2;
UINT s1, s2;
//while (*ptr == ' ') ptr++;
res = f_opendir(&Dir, path);
if (res) { put_rc(res); return; }
p1 = s1 = s2 = 0;
#if _USE_LFN
//Init buffer for LFN NAME (Without this LFN NAME not visible!!)
//Also look here:
/*
* http://microsin.net/programming/file-systems/fatfs-read-dir.html
* https://electronix.ru/forum/index.php?app=forums&module=forums&controller=topic&id=122267
*/
_Finfo.lfname = Lfname;
_Finfo.lfsize = sizeof(Lfname);
#endif
for(;;) {
res = f_readdir(&Dir, &_Finfo);
if ((res != FR_OK) || !_Finfo.fname[0]) break;
if (_Finfo.fattrib & AM_DIR) {
s2++;
} else {
s1++; p1 += _Finfo.fsize;
}
PRINTF("%c%c%c%c%c %u/%02u/%02u %02u:%02u %9lu %s",
(_Finfo.fattrib & AM_DIR) ? 'D' : '-',
(_Finfo.fattrib & AM_RDO) ? 'R' : '-',
(_Finfo.fattrib & AM_HID) ? 'H' : '-',
(_Finfo.fattrib & AM_SYS) ? 'S' : '-',
(_Finfo.fattrib & AM_ARC) ? 'A' : '-',
(_Finfo.fdate >> 9) + 1980, (_Finfo.fdate >> 5) & 15, _Finfo.fdate & 31,
(_Finfo.ftime >> 11), (_Finfo.ftime >> 5) & 63,
_Finfo.fsize, &(_Finfo.fname[0]));
#if _USE_LFN
for (p2 = strlen(_Finfo.fname); p2 < 14; p2++)
xputc(' ');
xprintf(PSTR("%s\r\n"), Lfname);
#else
PRINTF("\r\n");
#endif
}
f_closedir(&Dir);
}
void fatfs_head_file(const char * fn)
{
FRESULT f_err_code;
FIL fil_obj;
//trying to open and read file..
f_chdir("/");
f_err_code=f_open(&fil_obj, fn,FA_READ); //Open *fn - <index.htm> for reading
if(f_err_code==0)
{
DWORD file_len = fil_obj.fsize;
UINT br;
uint8_t _buf[128] = {0, };
PRINTF("++Content <%s> = %lu bytes found on SDCARD\r\n", fn, file_len);
PRINTF("++Trying to read head file..\r\n");
f_err_code = f_read(&fil_obj,&_buf[0], 128, &br);
if(f_err_code == 0)
{
if(br < 128)
_buf[br] = 0x0;
else
_buf[127] = 0x0;
PRINTF ("OK\r\n");
PRINTF("text contents reading %u bytes:\r\n", br);
PRINTF("%s", _buf);
}
else
{
PRINTF ("ERROR ");
put_rc(f_err_code);
PRINTF("But anyway text contents:\r\n");
PRINTF("%s", _buf);
}
f_close(&fil_obj);
}
else
{
PRINTF ("ERROR opening file <%s> ", fn);
put_rc(f_err_code);
}
}
void fatfs_init(void)
{
if( disk_status (0) == STA_NOINIT ) // Initialise the SD Card here, before we do anything else.
{
if( disk_initialize (0) ) // If it didn't initialise, or the card is write protected, try again.
{
if( disk_initialize (0) ) // If it didn't initialise, or the card is write protected, then call it out.
{
PRINTF("\r\nSDCard initialization failed..!\r\nPlease power cycle the SDCard.\r\nCheck write protect.\r\n");
PRINTF("\r\nReboot the Board");
while(1)
{
_delay_ms(1000);
PRINTF(".");
}
}
else
{
PRINTF("\r\nSDCard initialization OK\r\n");
}
}
else
{
PRINTF("\r\nSDCard initialization OK\r\n");
}
PRINTF(">>FS MOUNT ");
put_rc(f_mount(&Fatfs, (const TCHAR *)"", 1));
PRINTF(">>GO ROOT DIRECTORY ");
put_rc(f_chdir((const TCHAR *)"/") );
PRINTF ("\r\n\r\nSD-Card root file list:\r\n");
PRINTF ("===============================================\r\n");
ls_dir("/");
PRINTF ("===============================================\r\n\r\n");
}
}
// Blocking (~3.5sec) receive one symbol from uart
/*
char uart0_receive(void)
{
unsigned int c;
uint32_t wait_start = millis();
do
{
wdt_reset();
c = uart_getc();
if (( c & UART_NO_DATA ) == 0)
{
uart_putc( (unsigned char)c );
return (char)c ;
}
//After 3.5 sec waiting return with no symbol
if((millis()-wait_start) > 3500)
{
return 0;
}
}
while(( c & UART_NO_DATA ));
return 0;
}
*/
//****************************FAT FS initialize: END
/*
void spi_speed_tst(void)
{
// Here on SPI pins: MOSI 400Khz freq out, on SCLK 3.2MhzOUT
while(1)
{
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
SPI_WRITE(0xF0);
}
}
*/
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)
//spi_speed_tst(); / Here on SPI pins: MOSI 400Khz freq out, on SCLK 3.2MhzOUT (Witk SPI CLK 4Mhz)
// 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();
}
//FAT_FS init and quick test(root directory list && print out head index.htm)
fatfs_init();
fatfs_head_file("index.htm");
//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();
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(SOCK_TCPS,ethBuf0,PORT_TCPS);
loopback_udps(SOCK_UDPS,ethBuf0,PORT_UDPS);
//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();
//Printout RAM usage every 1 minute
static uint16_t j_ram = 0;
if(j_ram++%60 == 0)
{
PRINTF(">> Free RAM is: %d bytes\r\n", freeRam());
}
//Check ETHERNET PHY link
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]);
}