/********************************************************************************/
//		
// 		builder : 2007-04-10
// 		Target  : ATMEAG 48V
// 		Crystal : 內(nèi)部 8.00 MHz
//
//		
		
/********************************************************************************/

#include 	<iom48v.h>
#include 	<macros.h>

#include	"eeprom.h"
#include	"time2.h"
#include	"adc.h"


#define		uchar		unsigned char
#define		uint		unsigned int

#define		SET_LED		PORTD |=  (1<<PB4)
#define		CLR_LED		PORTD &= ~(1<<PB4)

uchar	e2rom[7];

uint	PE1,PE2;

uchar	mode;
uchar	rxd_flag;	// 油門接收OK標(biāo)志

uchar	PWM;
uint	Timer;
uint	high,middle,low;
uchar	REV;
uchar	power;
uchar	heat;
union	
{	uint	temp;
	uchar  	data[2];		
}time;


/*---------------------------------------------------------------
   			初始化
----------------------------------------------------------------*/
void timer0_init(void)
{
 	TCCR0B = 0x00; //stop
 	TCNT0  = 0x01; //set count
 	TCCR0A = 0x23; 
 	OCR0B  = 0xA5;
 	TCCR0B = 0x01; //start timer
}



void timer1_init(void) 		// 20MS 中斷
{
 	TCCR1B = 0x00;  // stop
 	TCNT1H = 0xB1;  // setup
 	TCNT1L = 0xE0;
 	OCR1AH = 0x4E;
 	OCR1AL = 0x20;
 	OCR1BH = 0x4E;
 	OCR1BL = 0x20;
 	ICR1H  = 0x4E;
 	ICR1L  = 0x20;
 	TCCR1A = 0x00;
}


void init_devices(void)
{
	CLI();
		
 	DDRB  = 0x7F;
 	PORTB = 0xC0;
	
	DDRC  = 0x00;
 	PORTC = 0x40; // m103 output only
 	
 	DDRD  = 0xFB;
 	PORTD = 0x40;
 	
 	MCUCR  = 0x00;
 	EICRA  = 0x03; 	// INT0 上升沿觸發(fā)
 	EIMSK  = 0x01;	// 使能 INT0 中斷
 	
 	timer0_init();
 	timer1_init();
 	timer2_init();
 	init_eeprom();
 	adc_int();
 	
 	SEI();
}

/*---------------------------------------------------------------
   			延時
----------------------------------------------------------------*/

void delay(uint t)
{
	uint i,j,k;
	
	for(i=0;i<t;i++)
	{
		for(j=0;j<200;j++)
		{
			for(k=0;k<50;k++);;
		}
	}
}


void LED_set(void)
{
	SET_LED	;
	delay(10);
	CLR_LED	;
	delay(8);
}

void egis(void)
{
	uint temp;
	
	temp = adc_colect(1);
	if(temp<0x1D0 && power<200) power ++;
	else if(temp>0x1DF)power = 0;
	
	if(power>3 && PWM<50)
	{
		PWM = 0;
		Pwm_set(0,0);
		delay(5);
		temp = 0;
		while(temp<0x1df)
		{
			temp = adc_colect(1);
			LED_set();
			Buz();
			delay(20);
		}
	}
	
	
	temp = adc_colect(2);
	if(temp>0x3BF && heat<200) heat ++;		// >110度
	else if(temp<0x38E)heat = 0;			// <80度
	
	if(heat>3 && PWM<50)
	{
		PWM = 0;
		Pwm_set(0,0);
		delay(5);
		temp = 0xfff;
		while(temp>0x38E)
		{
			temp = adc_colect(2);
			LED_set();
			LED_set();
			Buz();
			Buz();
			delay(20);
		}
	}
}

/*---------------------------------------------------------------
   			油門處理
----------------------------------------------------------------*/

void Gun_set(void)
{	 	
	if(rxd_flag)	// 接收已完成
	{
		rxd_flag = 0;
		
		if(Timer>high) Timer = high;	// 確保接收到的數(shù)據(jù)在正常范圍內(nèi)
		if(Timer<low)  Timer = low;
		
		if(Timer>(middle+50))		// 前進(jìn) 1550us
		{
			if(power>3 || heat>3)
			{
				PWM --;
			}
			else 
			{	
				PWM = ((Timer-middle)*10)/PE1;	// 計算占空比
				if(PWM>210) PWM = 255;		
				
			}
			Pwm_set(PWM,1);		// 設(shè)置PWM占空比
			mode = 1;
			SET_LED;
		}
		else if(Timer<(middle-50)) 	
		{
			if(!mode && REV)	// 后退
			{
				if(power>3 || heat>3)
				{
					PWM --;
				}	
				else 
				{	
					PWM = ((middle-Timer)*10)/PE2;
					if(PWM>210) PWM = 255;
				}
				Pwm_set(PWM,2);
				SET_LED;
				delay(5);
			}
			else 
			{
				Pwm_set(255,3);	// 剎車
				while((Timer+50)<=middle)
				{
					LED_set();
				}
				mode = 0;
			}
		}
		else 
		{
			Pwm_set(0,0);
			CLR_LED;
		}
	}
	egis();
}




uchar key(void)
{
	uchar i,k=0;
	
	for(i=0;i<5;i++)
	{
		if(PINB & 0x80) k = 0;
		else k ++;
		delay(3);
	}

	return k;
}

/*---------------------------------------------------------------
   			
----------------------------------------------------------------*/

uint compute(void)
{
	uchar 	i;
	uint 	temp = 0;
	
	for(i=0;i<8;i++)
	{	
		while(!rxd_flag);
		temp += Timer;
		rxd_flag  = 0;
		Timer= 0;
	}
	temp = (temp>>3);
	
	return temp;
}


void Buz()
{
	Pwm_set(20,1);
	delay(15);	
	Pwm_set(0,0);	
	delay(20);
	Pwm_set(20,1);	
	delay(15);	
	Pwm_set(0,0);
}

void Rev_Setup()
{
	e2rom[6] = EEPROM_read(6);
	
	if(key()>3)	
	{
		if(e2rom[6]) e2rom[6]=0;
		else e2rom[6] =1;
		Buz();
		while(!(PINB&0x80)); // 等待按鍵松開
	}
	EEPROM_write(6,e2rom[6]);
}



/*---------------------------------------------------------------
   			中點設(shè)置
----------------------------------------------------------------*/
void Setup()
{
 	 uchar i;
	 

	if(key()>3)		// 設(shè)置
	{
loop:	Buz();	
		middle = compute();		// 中位設(shè)置
		
		delay(50);
		while(key()<3)
		{
			LED_set();
			delay(40);
		}
		Buz();
		while(!(PINB&0x80));
		high = compute();		// 高位設(shè)置
		
		delay(50);
		
		while(key()<3)
		{
			LED_set();
			LED_set();
			delay(40);
		}
		Buz();
		while(!(PINB&0x80));
		low = compute();		// W低位設(shè)置
		delay(50);

		// 設(shè)置數(shù)據(jù)正確存盤
		if((low>800&&low<1300)&&(middle>1350&&middle<1650)&&(high>1700&&high<2200))
		{							
			PE1 = ((high-middle)*10)/256+2;
			PE2 = ((middle-low )*10)/256+2;
			
			e2rom[0] = low/256;
			e2rom[1] = low%256;
		
			e2rom[2] = high/256;
			e2rom[3] = high%256;
		
			e2rom[4] = middle/256;
			e2rom[5] = middle%256;
		
			Buz();
			for(i=0;i<6;i++)	// 寫EEPOM
			{
				EEPROM_write(i,e2rom[i]);
				delay(5);
				while(compute()<1350||compute()>1650);
			}
			LED_set();
			delay(10);
			LED_set();
		}
		else 	// 設(shè)置不對重來
		{
			while(key()<3)
			{
				LED_set();
			}
			delay(100);
			goto loop;
			
		}
	}	
}
		

void Read_E2rom(void)
{	
	uchar i;
	
	for(i=0;i<7;i++)	// 讀EEPOM
	{
		e2rom[i] = EEPROM_read(i);
		delay(5);
	}
	
	low 	= e2rom[0]*256+e2rom[1];	// 油門低位
	high 	= e2rom[2]*256+e2rom[3];	// 高位
	middle 	= e2rom[4]*256+e2rom[5];	// 中位
	REV		= e2rom[6];		// 倒車標(biāo)致
	
	if((low>800&&low<1300)&&(middle>1350&&middle<1650)&&(high>1700&&high<2200))
	{	// 讀起的數(shù)據(jù)正確
		PE1 = ((high-middle)*10)/256+2;
		PE2 = ((middle-low )*10)/256+2;
	}
	else // 讀起的數(shù)據(jù)不正確使用默認(rèn)值
	{
		PE1 = 23;
		PE2 = 23;
		middle = 1500;
		low	   = 1100;
		high   = 1900;
		REV	   = 1;
	}
}



/*---------------------------------------------------------------
   			INT0 中斷油門接收
----------------------------------------------------------------*/
#pragma interrupt_handler int0_isr:2
void int0_isr(void)
{
	if(EICRA==0x03)		// 上升沿開始記時
	{
		TCNT1H = 0x00; 
 		TCNT1L = 0x00; 
 		TCCR1B = 0x02;  //start Timer1
		EICRA  = 0x02;
	}
	else if(EICRA==0x02)	// 下降沿讀計時數(shù)據(jù)
	{
		time.data[0] = TCNT1L;
		time.data[1] = TCNT1H;
		Timer  	= time.temp;
		TCNT1H 	= 0x00; 
 		TCNT1L	= 0x00; 
		EICRA  	= 0x03;
		rxd_flag =1;	// 置接收 flag
	}
}


/*---------------------------------------------------------------
   			main
----------------------------------------------------------------*/

void main(void)
{
	delay(10);
	
	init_devices();		// 初始化
	
	Rev_Setup();
	
	Read_E2rom();		// 讀EEPROM
	
	while(!rxd_flag);	// 等待油門信號
	Buz();
	
	LED_set();
	delay(10);
	LED_set();
	
	rxd_flag = 0 ;
	
	while(1)
	{	
		Gun_set();		
		Setup();	
	}
}

/*--------------------   the end ------------------------------------*/