//*****************************************************************************
// File Name    : datalogger.c
// 
// Title                : Windlogger
// Revision          : 0.2  22-10-2006

// Revision History:
// When   Who                  Description of change
// -----------  -----------       -----------------------
// 20-Oct-2002  pstang        Created the program
// Oct - 2006 RifRaf changes stuff
//*****************************************************************************
 
//----- Include Files ---------------------------------------------------------
#include <avr/io.h>            // include I/O definitions (port names, pin names, etc)
#include <avr/signal.h>		   // include "signal" names (interrupt names)
#include <avr/interrupt.h>     // include interrupt support
 
#include "global.h"            // include our global settings
#include "uart.h"              // include uart function library
#include "rprintf.h"           // include printf function library
#include "timer.h"             // include timer function library (timing, PWM, etc)
#include "a2d.h"               // include A/D converter function library
#include "vt100.h"             // include VT100 terminal support
#include "lcd.h"               // include Character LCD support
//#include "i2ceeprom.h"         // include I2C EEPROM support
//#include "i2c.h"               // include I2C support
#include "extint.h"            // include external interrupt library
#include "spi.h"		       // include SPI interface functions
#include "mmc.h"		       // include MMC card access functions
#include "debug.h"

#define SetBit(BIT, PORT)        PORT |= (1<<BIT)
#define ClearBit(BIT, PORT)      PORT &= ~(1<<BIT)
#define IsHigh(BIT, PORT)       (PORT & (1<<BIT)) != 1
#define IsLow(BIT, PORT)        (PORT & (1<<BIT)) == 1
#define on  0
#define off 1
//User Variables
u16 RPMDivider       = 28;
u16 WSDivider        = 2.5;
u16 VOLTDivider      = 45;
u16 WindVoltOffset   = 0;
u16 SolarVoltOffset  = 0;
u16 OutputVoltOffset = 0;
u16 WindAmpDivider   = 175;
u16 SolarAmpDivider  = 175;
u16 OutputAmpDivider = 175;

//global variables
unsigned int volts,shuntvolts,solarvolts,outvolts,recttemp,outtemp,insidetemp,barometer;       // Current values
unsigned int battvolts,windamp,solaramp,outamp,recttempOut,outtempOut,insidetempOut,barometerOut;       // Current values
unsigned int maxvolts,maxshuntvolts,maxsolarvolts,maxoutvolts,maxrecttemp,maxouttemp,maxinsidetemp,maxbarometer;       // Max values
unsigned int minvolts,minshuntvolts,minsolarvolts,minoutvolts,minrecttemp,minouttemp,mininsidetemp,minbarometer;       // Min values
unsigned int windWatts;

unsigned int mode;        // Dummy load on or off
volatile u16 Int0Count;
volatile u16 Int1Count;
u16 rpm, wmrpm;                   // AC Volts IN frequency per 0 seconds
u16 windpulse, speed;             // Windspeed Pulses per 0 seconds
u16 direction;              // Wind Direction
u16 maxwmrpm, minwmrpm, maxspeed, minspeed;  // max and mins
u32 sector=0;
u08 buffer[0x200];
int c;
int i;

// functions 
void SwitchToCharging(void);
void SwitchToLoad(void);
void Setup(void);
void rpmSetup(void);
void SetMinMax(void);
void mmcStart(void);
void mmcWriteBuffer(void);
void checkDirection(void);
void myInt0Handler(void);
void myInt1Handler(void);
 
//----- Begin Code ------------------------------------------------------------
void Setup(void)
{
    uartInit();
    uartSetBaudRate(115200);            // set UART speed to 9600 baud
    rprintfInit(uartSendByte);
	timerInit();
	// initialize vt100 terminal
	vt100Init();
    a2dInit();
    DDRA  = 0x00;    // configure a2d port (PORTA) as input so we can receive analog signals
	PORTA = 0x00;   // make sure pull-up resistors are turned off
	//DDRB  = 0xFC;
	//PORTB = 0xF0;
    //DDRC  = 0xF0;
	//PORTC = 0xFC;
	//DDRD  = 0xFC;
    //PORTD = 0xF0;
         
    a2dSetPrescaler(ADC_PRESCALE_DIV64);
    a2dSetReference(ADC_REFERENCE_256V);
    lcdInit();                        // initialize LCD
    timerPause(100);
	// print welcome message
	vt100ClearScreen();
	//vt100SetCursorPos(1,0);
	//rprintfProgStrM("\r\nMMC Test!\r\n");
	timerPause(1000);
	// initialize MMC interface
	mmcInit();
	timerPause(1000);
	mmcStart();
	timerPause(1000);
}
 
int main(void)
{
    Setup();
	rpmSetup();
	
    SwitchToCharging(); mode = 1;
	
    rprintfInit(lcdDataWrite);        // direct printf output to LCD
    lcdClear();                       // clear LCD
    lcdGotoXY(0,0);                   //goto line 1 , pos 1
    rprintf("AVR WINDLOGGER 2006");   //welcome message  
	lcdGotoXY(0,1);                   //goto line 2 , pos 1
    rprintf("Wind Solar Load Mon");   //welcome message  
    timerPause(3000);
    
         
    while (1)                 // do this until finished or broken
    {
    volts      = a2dConvert10bit(0);    // Get ADC Value
    shuntvolts = a2dConvert10bit(1);    // Get ADC Value
    solarvolts = a2dConvert10bit(2);    // Get ADC Value
    outvolts   = a2dConvert10bit(3);    // Get ADC Value
    recttemp   = a2dConvert10bit(4);    // Get ADC Value
    outtemp    = a2dConvert10bit(5);    // Get ADC Value
    insidetemp = a2dConvert10bit(6);    // Get ADC Value
    barometer  = a2dConvert10bit(7);    // Get ADC Value
	    if (volts > 620) { mode = 0; SwitchToLoad(); }
        if (volts < 580) { mode = 1;  SwitchToCharging(); }
    Int0Count = 0;          // reset interrupt counters
    Int1Count = 0;          // reset interrupt counters
    timerPause(3000);       // wait 3 seconds
    rpm       = Int0Count;  // get counter values
    windpulse = Int1Count;  // get counter values
    checkDirection();
	rprintfInit(uartSendByte);
    vt100SetCursorPos(1,1);
    rprintf("[<V>%d</V><I>%d</I><R>%d</R><S>%d</S><M>%d<M><D>%d</D><T1>%d</T1><T2>%d</T2><T3>%d</T3><B>%d</B>]\r\n",volts,shuntvolts,rpm,windpulse,mode,direction,recttemp,outtemp,insidetemp,barometer);
    
	mmcWriteBuffer();
	
	
	SetMinMax();
    
	//Update LCD
    rprintfInit(lcdDataWrite);        // direct printf output to LCD
    lcdClear();
	lcdGotoXY(0,0);                   //goto line 1 , pos 1
    rprintf("V%d.%d A%d.%d W%d.%d",battvolts/10,battvolts%10,windamp/10,windamp%10,windWatts/10,windWatts%10);
    lcdGotoXY(0,1);                   //goto line 2 , pos 1
    rprintf("%dRPM %dKph %d %d",wmrpm,speed, outtempOut, insidetempOut);
    } 
}
 
void checkDirection(void)    {
        if (0) {      }
        else if ( !(PINC & (1<<PC5)) & !(PINC & (1<<PC4)) & !(PIND & (1<<PD7))) {direction =  1; } // NNNE
        else if ( !(PINC & (1<<PC5)) & !(PINC & (1<<PC4)) & !(PINC & (1<<PC3))) {direction =  5; }
        else if ( !(PINC & (1<<PC4)) & !(PINC & (1<<PC3)) & !(PINC & (1<<PC2))) {direction =  9; }
        else if ( !(PINC & (1<<PC3)) & !(PINC & (1<<PC2)) & !(PIND & (1<<PD4))) {direction = 13; }
        else if ( !(PINC & (1<<PC2)) & !(PIND & (1<<PD4)) & !(PIND & (1<<PD5))) {direction = 17; }
        else if ( !(PIND & (1<<PD4)) & !(PIND & (1<<PD5)) & !(PIND & (1<<PD6))) {direction = 21; }
        else if ( !(PIND & (1<<PD5)) & !(PIND & (1<<PD6)) & !(PIND & (1<<PD7))) {direction = 25; }
        else if ( !(PINC & (1<<PC5)) & !(PIND & (1<<PD6)) & !(PIND & (1<<PD7))) {direction = 29; }
        else if ( !(PINC & (1<<PC4)) & !(PIND & (1<<PD7)))                       {direction =  0; } // N
        else if ( !(PINC & (1<<PC5)) & !(PINC & (1<<PC4)))                       {direction =  2; } // NNE
        else if ( !(PINC & (1<<PC5)) & !(PINC & (1<<PC3)))                       {direction =  4; }
        else if ( !(PINC & (1<<PC4)) & !(PINC & (1<<PC3)))                       {direction =  6; }
        else if ( !(PINC & (1<<PC4)) & !(PINC & (1<<PC2)))                       {direction =  8; } // E
        else if ( !(PINC & (1<<PC3)) & !(PINC & (1<<PC2)))                       {direction = 10; }
        else if ( !(PINC & (1<<PC3)) & !(PIND & (1<<PD4)))                       {direction = 12; }
        else if ( !(PINC & (1<<PC2)) & !(PIND & (1<<PD4)))                       {direction = 14; }
        else if ( !(PINC & (1<<PC2)) & !(PIND & (1<<PD5)))                       {direction = 16; } // S
        else if ( !(PIND & (1<<PD4)) & !(PIND & (1<<PD5)))                       {direction = 18; }
        else if ( !(PIND & (1<<PD4)) & !(PIND & (1<<PD6)))                       {direction = 20; }
        else if ( !(PIND & (1<<PD5)) & !(PIND & (1<<PD6)))                       {direction = 22; }
        else if ( !(PIND & (1<<PD5)) & !(PIND & (1<<PD7)))                       {direction = 24; } // W
        else if ( !(PIND & (1<<PD6)) & !(PIND & (1<<PD7)))                       {direction = 26; }
        else if ( !(PINC & (1<<PC5)) & !(PIND & (1<<PD6)))                       {direction = 28; }
        else if ( !(PINC & (1<<PC5)) & !(PIND & (1<<PD7)))                       {direction = 30; }
        else if ( !(PINC & (1<<PC5)))                                             {direction =  3; } // ENEE
        else if ( !(PINC & (1<<PC4)))                                             {direction =  7; }
        else if ( !(PINC & (1<<PC3)))                                             {direction = 11; }
        else if ( !(PINC & (1<<PC2)))                                             {direction = 15; }
        else if ( !(PIND & (1<<PD4)))                                             {direction = 19; }
        else if ( !(PIND & (1<<PD5)))                                             {direction = 23; }
        else if ( !(PIND & (1<<PD6)))                                             {direction = 27; }
        else if ( !(PIND & (1<<PD7)))                                             {direction = 31; }
        else         { direction = -1;      }
}

void SetMinMax(void)   //set maximums and minimums
{ 
    wmrpm = rpm/RPMDivider*60;    
        if (wmrpm > maxwmrpm) { maxwmrpm = wmrpm; }
        if (wmrpm <= minwmrpm) { minwmrpm = wmrpm; }
    speed = windpulse/WSDivider;    
        if (speed > maxspeed) { maxspeed = speed; }
        if (speed <= minspeed) { minspeed = speed; }
    battvolts =  volts/VOLTDivider*10;
        if (battvolts > maxvolts) { maxvolts = battvolts; }
        if (battvolts <= minvolts) { minvolts = battvolts; }
    windamp   = (shuntvolts - WindVoltOffset) / WindAmpDivider*10;
        if (windamp > maxshuntvolts) { maxshuntvolts = windamp; }
        if (windamp <= minshuntvolts) { minshuntvolts = windamp; }
	windWatts = (battvolts/10) * (windamp/10)*10;
    solaramp  = (solarvolts - SolarVoltOffset) / SolarAmpDivider*10;
        if (solaramp > maxsolarvolts) { maxsolarvolts = solaramp; }
        if (solaramp <= minsolarvolts) { minsolarvolts = solaramp; }
    outamp   =  (outvolts - OutputVoltOffset) / OutputAmpDivider*10;
        if (outamp > maxoutvolts) { maxoutvolts = outamp; }
        if (outamp <= minoutvolts) { minoutvolts = outamp; }
    recttempOut   =  recttemp*0.254;
        if (recttempOut > maxrecttemp) { maxrecttemp = recttempOut; }
        if (recttempOut <= minrecttemp) { minrecttemp = recttempOut; }
    outtempOut    =  outtemp*0.254;
        if (outtempOut > maxouttemp) { maxouttemp = outtempOut; }
        if (outtempOut <= minouttemp) { minouttemp = outtempOut; }
    insidetempOut =  insidetemp*0.254;
        if (insidetempOut > maxinsidetemp) { maxinsidetemp = insidetempOut; }
        if (insidetempOut <= mininsidetemp) { mininsidetemp = insidetempOut; }
    barometerOut  =  barometer*0.254;
        if (barometerOut > maxbarometer) { maxbarometer = barometerOut; }
        if (barometerOut <= minbarometer) { minbarometer = barometerOut; }
}

void rpmSetup(void)
{
    extintInit();
    extintConfigure(EXTINT0, EXTINT_EDGE_RISING);
    extintConfigure(EXTINT1, EXTINT_EDGE_RISING);
    extintAttach(EXTINT0, myInt0Handler);
    extintAttach(EXTINT1, myInt1Handler);
    sbi(GIMSK, INT0);
    sbi(GIMSK, INT1);
}

void myInt0Handler(void)
{
    Int0Count++;
}

void myInt1Handler(void)
{
    Int1Count++;
}

void SwitchToCharging(void) { 
  ClearBit(4, PORTB) ; 
  return;
}
 
void SwitchToLoad(void) { 
  SetBit(4, PORTB) ;
  return;
} 

void mmcStart(void)
{
    //Code added to fill buffer with something 
	int i;
	u08 mystring[20] = "01234567890123456789";
	c = 0;
	for (i=0;i<=512;i++) {
		buffer[i] = mystring[c];
		c++;
		if (c > 19) { c = 0; }
	}
    //Code added to fill buffer with something 
    // initialize card 
	rprintf("\r\nResetting MMC/SD Card\r\n");
	mmcReset();
	
}

void mmcWriteBuffer(void)
{
	// write current sector with data from buffer
	vt100SetCursorPos(4,10);
	rprintf("\r\nWrite Sector %d\r\n", sector);
	mmcWrite(sector, buffer);
	sector+=512;
}