/*

 * io.c

 *

 * Created: 11/7/2012 7:17:52 PM

 *  Author: kripperger

 */ 

#include <avr/io.h>

#include "../config.h"

#include "inputOutput.h"

#include "led.h"

#include "sensors.h"

int8_t	moduleID;	// Slave Module ID from rotary dip switch (or EEPROM)

 void io_configure()

 {

	// Configure ports/pins

	DDRB |= (1 << DDB4);		// Set PB4 to Output for Heater (also allows SCK (on SPI bus) to operate)

	DDRC &= ~(1 << DDC2);		// Set PC2 to input for rotary dip

	DDRC &= ~(1 << DDC3);		// Set PC3 to input for rotary dip

	DDRC &= ~(1 << DDC4);		// Set PC4 to input for rotary dip

	DDRC &= ~(1 << DDC5);		// Set PC5 to input for rotary dip

	DDRA &= ~(1 << DDA7);		// Set PA7 to input for battery voltage divider

	//ADC register configurations for battery level detection on PA7

	ADCSRA |= (1 << ADPS2) | (1 << ADPS1) | (1 << ADPS0);	// Set prescaler for ADC, 128 gives ADC freq of 125 KHz

	ADMUX |= (1 << REFS0);									// Set ADC reference voltage to AVCC

	//ADMUX |= (1 << ADLAR);								// Sets 10 bit ADC to 8 bit

	ADMUX |= (1 << MUX2) | (1 << MUX1) | (1 << MUX0);		// Select ADC7 as the conversion channel

	ADCSRA |= (1 << ADATE);									// Enables auto trigger, determined in ADCSRB bits ADTS

	//ADCSRA |= (1 << ADIF);								// 

	//ADCSRA |= (1 << ADIE);								// ADC interrupt enable set

	ADCSRB &= ~((1 << ADTS2) | (1 << ADTS1) | (1 << ADTS0));// Set ADC auto trigger source to free running mode

	ADCSRA |= (1 << ADEN);									// Enable ADC

	ADCSRA |= (1 << ADSC);									// Start ADC measurements.  ADC should now continuously run conversions, which are stored in ADCH 0x79

 }

 void io_readModuleId()

 {

	// Get ID from rotary dip and return it. 

	PORTC |= (1 << PC2);	// Pull pins on rotary dip high

	PORTC |= (1 << PC3);	// Pull pins on rotary dip high

	PORTC |= (1 << PC4);	// Pull pins on rotary dip high

	PORTC |= (1 << PC5);	// Pull pins on rotary dip high

	moduleID = ((PINC & 0b00011100) >> 2);		// Read Dip Encoder

	moduleID = ~moduleID;						//Invert Dip reading

	moduleID = (moduleID & 0b0111);				//Mask bits

	{

		moduleID = i2c_read(EEPROM_ADDR, 0x05);

	}

 }

 uint8_t io_getModuleId()

 {

	return moduleID;

 }

 void io_heaterOn()

 {		

	PORTB |= (1 << PB4);	//ON

 }

 void io_heaterOff()

 {

	PORTB &= ~(1 << PB4);	//OFF

 }

 void io_piezoOn()

 {

	 PORTA |= (1 << PA2);	//ON

 }

 void io_piezoOff()

 {

	 PORTA &= ~(1 << PA2);	//OFF

 }

 uint8_t io_heaterStatus()

 {

	 uint8_t state;

	 state = 0;

	 state = ((PORTB & 0b00010000) >> 4);

	 return state;

 }

  void io_regulateTemp()

  {

	  // Gets board temperature and enables heater if below threshold

	  if (sensors_getBoardTemp() <= HEATER_THRESHOLD)

	  {

		  io_heaterOn();

		  led_on(3);

	  } 

	  else if (sensors_getBoardTemp() > (HEATER_THRESHOLD + 4))

	  {

		  io_heaterOff();

		  led_off(3);

	  }

  }

	mb = i2c_read(PRESSURE_ADDR, 0xBA);

	mb = mb << 8;

	mb = mb | i2c_read(PRESSURE_ADDR, 0xBB);

	mc = i2c_read(PRESSURE_ADDR, 0xBC);

	mc = mc << 8;

	mc = mc | i2c_read(PRESSURE_ADDR, 0xBD);

	md = i2c_read(PRESSURE_ADDR, 0xBE);

	md = md << 8;

	md = md | i2c_read(PRESSURE_ADDR, 0xBF);

}

void sensors_readSpiTemp()

{

	// Select TEMP wait 100 microseconds then read four bytes

	SELECT_TEMP;

	_delay_us(100);

	uint8_t one = send_spi(0xFF);

	_delay_us(100);

	uint8_t two = send_spi(0xFF);

	_delay_us(100);

	uint8_t three = send_spi(0xFF);

	_delay_us(100);

	uint8_t four = send_spi(0xFF);

	DESELECT_TEMP;

	int16_t temperature = ((one<<4)|(two>>4));	// Shift and place into larger int. (Cuts off Decimal)

	temperature = (temperature & (0x0800)) ? (temperature & 0xF000) : temperature;	// Sign extend

	//int16_t temperature = ((one<<6)|(two>>2));	// Shift and place into larger int. (Includes Decimal)

	//temperature = (temperature & (0x2000)) ? (temperature & 0xC000) : temperature;	// Sign extend

	temperature = (two & 0x01) ? 0x00DE : temperature;	// Error Condition. If error is detected output is set to 222 degrees (0x00DE)

	// Note: Temperature still needs to be scaled in order to be accurate (eg. boil water). Do this before implementing.

	spiTemp = temperature;

}

void sensors_readBoardTemp()

{

	boardTemp = i2c_read(BOARDTEMP_ADDR, 0x00);		// Read only the first byte of data (we don't need the resolution here)

	boardTemp = ((boardTemp*18)/10) + (32);			// Converting Celsius to Fahrenheit

	boardTemp = boardTemp - 3;						// Linear offset

}

void sensors_readPressure()

{

	i2c_write(PRESSURE_ADDR, 0xF4, 0x2E);				//write 0x2E (temp) into 0xF4 (control register), (write is 0xEE)

	_delay_us(4500);							//wait 4.5 ms

	ut = i2c_read(PRESSURE_ADDR, 0xF6);

	ut = ut << 8;

	ut = ut | i2c_read(PRESSURE_ADDR, 0xF7);	//ut = MSB<<8 + LSB

	i2c_write(PRESSURE_ADDR, 0xF4, 0x34);				//write 0x34 (pressure) into 0xF4 (control register), (write is 0xEE)

	_delay_us(4500);							//wait 4.5 ms

	up = i2c_read(PRESSURE_ADDR, 0xF6);

	up = up << 8;

	up = up | i2c_read(PRESSURE_ADDR, 0xF7);	//up = (MSB<<16 + LSB<<8 + XLSB(NOT USED)) >> (8-oss)

	//calculate true temperature

	x1 = ((ut - ac6) * ac5) >> 15;

	x2 = (mc << 11) / (x1 + md);

	b5 = x1 + x2;

	trueTemp = (b5 + 8) >> 4;

	//calculate b3

	b6 = b5 - 4000;

	x1 = (b2 * (b6 * b6) >> 12) >> 11;

	x2 = (ac2 * b6) >> 11;

	x3 = x1 + x2;

	b3 = ((ac1 * 4 + x3) + 2) / 4;

	//calculate b4

	x1 = (ac3 * b6) >> 16;

	x2 = (b1 * ((b6 * b6) >> 12)) >> 16;

	x3 = ((x1 + x2) + 2) >> 2;

	b4 = (ac4 * (x3 + 32768)) >> 15;

	b7 = (up - b3) * 50000;

	if (b7 < 0x80000000)

	{

		pressure = (b7 << 1) / b4;

	}

	else

	{

		pressure = (b7 / b4) << 1;

	}

	x1 = (pressure >> 8) * (pressure >> 8);

	x1 = (x1 * 3038) >> 16;

	x2 = (-7357 * pressure) >> 16;

	pressure += (x1 + x2 + 3791) >> 4;				//This is the final value for our pressure

}

void sensors_readHumid()

{

	//i2c_write(HUMID_ADDR, 0x00, 0x00);		//Measurement Request

	//humid = i2c_read16(HUMID_ADDR);

//humid = i2c_humidRead();

	//calculations to relative humidity: humid = (humid/((2^14) - 1))*100%       >> is divide by power, << is multiply by power, 2^14-1 = 16383

	 //humid = (humid / 16383) * 100;

	 //humid = (humid / 2500) * 100;

}

void sensors_readLux()

{

	lightH = i2c_read(LIGHT_ADDR, 0x03);

	lightL = i2c_read(LIGHT_ADDR, 0x04);

	exponent = lightH;

	exponent = exponent >> 4;

	lightH = lightH << 4;

	mantissa = lightH | lightL;

	lux = (float)(pow(2,exponent) * mantissa) * 0.045;

}

void sensors_readBatt()

{

	battL = ADCL;					// Read low battery byte from ADC (all 8 bits)

	batt = ADCH;					// Read high battery byte from ADC (only two LSBs)

	batt = batt << 8;

	batt |= battL;

	vBatt = (batt * 10.0) / 67.4;

}

int16_t sensors_getSpiTemp(void)	// Gets spi temperature from variable

{

	return spiTemp;

}

int8_t sensors_getBoardTemp(void)	// Gets board temperature from variable

{

	return boardTemp;

}

int32_t sensors_getPressure(void)	// Gets pressure from variable

{

	return pressure;

}

uint16_t sensors_getHumid(void)			// Gets relative humidity from variable

{

	return humid;

}

uint32_t sensors_getLux(void)		// Gets light from variable

{

	return lux;

}

uint16_t sensors_getBatt(void)		// Gets battery voltage from variable

{

	return vBatt;

}

uint32_t sensors_getAltitude(void)

{

	return altitude;

}

		default:

			modules_generic_setup();

			break;

	}

 }

 void modules_run(uint8_t id)

 {

	switch(id)

	{

		case 0:

			modules_generic();

			break;

		case 1:

			modules_sensors();

			break;

		case 2:

			modules_geiger();

			break;

		case 3:

			modules_cameras();

			break;

		default:

			modules_generic();

			break;

	}

 }

 void modules_generic_setup()

 {

 }

 void modules_sensors_setup()

 {

	DESELECT_TEMP;

	setup_spi();

	sensors_setupPressure();

 }

 void modules_geiger_setup()

 {

	// Pin setup

	DDRA &= ~(1 << DDA0);	// PA0 is an input for count interrupt

	DDRA |= (1 << DDA1);	// PA1 is an output for HV control

	DDRA |= (1 << DDA2);	// PA2 is an output for piezo

	geiger_on();	// Turn on HV supply

	// Setup for interrupt input on PA0 (PCINT0)

	PCMSK0 |= (1 << PCINT0);	// Enable interrupt for PA0

	PCICR |= (1 << PCIE0);		// Enable ioc section PCIF0

	// Setup for interrupt from Timer2

	ASSR &= ~(1 << EXCLK);	// Disable external clock input (enabling crystal use)

	ASSR |= (1 << AS2);		// Enable timer2 async mode with an external crystal	

	_delay_ms(100);			// Let external 32KHz crystal stabilize

	TCCR2B = 0x05;			// Set the prescaler to 128: 32.768kHz / 128 = 1Hz overflow

	TIFR2 = 0x01;			// Reset timer2 overflow interrupt flag

	TIMSK2 = 0x01;			// Enable interrupt on overflow

 }

 void modules_cameras_setup()

 {

	 lastPicture = time_millis();	 

	 DDRA |= (1 << DDA0);	// Set PA0 to Output for Camera

	 DDRA |= (1 << DDA1);	// Set PA1 to Output for Camera

	 DDRA |= (1 << DDA2);	// Set PA2 to Output for Camera

	 DDRA |= (1 << DDA3);	// Set PA3 to Output for Camera

 }

 void modules_generic()

 {

	// Gathers data and performs functions for generic daughter board

 }

 void modules_sensors()

 {

	// Gathers data and performs functions for sensor daughter board

	sensors_readBoardTemp();		//Data Read

	sensors_readSpiTemp();			//Data Read	

	sensors_readPressure();			//Data Read

	//sensors_readHumid();			//Data Read

 }

 void modules_geiger()

 {

	// No data gatering function needed for geiger daughter board

		// This is taken care of in interrupt (See geiger.c)

	//lastRefresh = time_millis();

	//if ((time_millis() - lastRefresh) > 1000000)

	//{

	//	geiger_refresh();	//Refreshes every 1000sec (16min)

	//}

	if ((time_millis() - geiger_getCountStart()) > 30)

	{

		led_off(1);

		io_piezoOn();

	}		

 }

 void modules_cameras()

 {

	// Gathers data and performs functions for cameras daughter board

		//cameras_readAccelXYZ();

		if ((time_millis() - lastPicture) > CAMERA_FREQ)

		{

			cameras_sendPulse();

			lastPicture = time_millis();

		}

		else if ((time_millis() - lastPicture) > CAMERA_PULSE)

		{

			PORTA &= ~(1 << PA0);	// Pull pin on usb low

			PORTA &= ~(1 << PA1);	// Pull pin on usb low

			PORTA &= ~(1 << PA2);	// Pull pin on usb low

			PORTA &= ~(1 << PA3);	// Pull pin on usb low

		}		

 }