//********************************************************************** 
/*
　　＜赤外線データ通信（ＵＳＡＲＴ）＞ 
*/
//********************************************************************** 

#define		SW_MODE		PORTA.F5
#define		EOF			0x1A

#define		LED			PORTB.F1

//********************************************************************** 

void	Pwm_Change_DutyEx(unsigned int duty_ratio)
{
    CCPR1L = duty_ratio >> 2;
    CCP1CON.CCP1Y = duty_ratio & 0b00000001;
    CCP1CON.CCP1X = (duty_ratio & 0b00000010) >> 1; 
}

//********************************************************************** 

void	Usart_Write_Ex(unsigned short data)
{
	Usart_Write(data);
	//
	while (1) {
		while (PORTB.F3 == 1) {
			if (TXSTA.TRMT == 1)
				return;
		}
		Pwm_Start();
		while (PORTB.F3 == 0)
			;
		Pwm_Stop();
	}
}

//********************************************************************** 

void	Usart_Write_Str_Ex(unsigned short* pData)
{
	while (*pData != 0x00) {
		Usart_Write_Ex(*pData);
		Delay_ms(10);
		pData++;
	}
}

//********************************************************************** 

void	dataSendProc()
{
	static	unsigned	short	buf[32];
	static	double	ad;
	//
	while (1) {
		ad = Adc_Read(0);
		ad = ad * 4.8828125;
		WordToStr(ad, buf);
		Usart_Write_Str_Ex("1:");
		Usart_Write_Str_Ex(&buf[1]);
		Usart_Write_Str_Ex("mV");
		Usart_Write_Ex(EOF);
		//
		ad = Adc_Read(1);
		ad = ad * 4.8828125;
		WordToStr(ad, buf);
		Usart_Write_Str_Ex("2:");
		Usart_Write_Str_Ex(&buf[1]);
		Usart_Write_Str_Ex("mV");
		Usart_Write_Ex(EOF);
		//
		ad = Adc_Read(2);
		ad = ad * 4.8828125;
		WordToStr(ad, buf);
		Usart_Write_Str_Ex("3:");
		Usart_Write_Str_Ex(&buf[1]);
		Usart_Write_Str_Ex("mV");
		Usart_Write_Ex(EOF);
		//
		ad = Adc_Read(3);
		ad = ad * 4.8828125;
		WordToStr(ad, buf);
		Usart_Write_Str_Ex("4:");
		Usart_Write_Str_Ex(&buf[1]);
		Usart_Write_Str_Ex("mV");
		Usart_Write_Ex(EOF);
		//
		Delay_ms(100);
	}
}

//********************************************************************** 

void	dataRecvProc()
{
	static	unsigned	short	dt, cnt, buf[32];
	//
	while(1) {
		cnt = 0;
		while (1) {
			if (Usart_Data_Ready() != 1) {
				continue;
			}
			//
			dt = Usart_Read();
			if (dt != EOF) {
				buf[cnt] = dt;
				cnt++;
			} else {
				buf[cnt] = 0x00;
				LED = ~LED;
				break;
			}
			//
			if (cnt == 16) {
				cnt = 0;
				continue;
			}
		}
		//
		switch (buf[0]) {
		case '1':
			Lcd_Custom_Out(1, 1, &buf[2]);
			break;
		case '2':
			Lcd_Custom_Out(1, 9, &buf[2]);
			break;
		case '3':
			Lcd_Custom_Out(2, 1, &buf[2]);
			break;
		case '4':
			Lcd_Custom_Out(2, 9, &buf[2]);
			break;
		}
	}
}

//********************************************************************** 

void main()
{
	static	unsigned	short	dt, cnt, buf[32];
	static	unsigned	int		ad;
	//
	OSCCON = 0b01110000;	// クロックを8Mhzに設定する。 
	TRISA  = 0b11111111;
	TRISB  = 0b00001100;
	//
	LED = 0;
	//
	if (SW_MODE == 1) {	//データ送信モード 
		ANSEL  = 0b00001111;
		//
		Pwm_Init(38000);	// 38kHz duty=50% 
		Pwm_Change_DutyEx((PR2 * 4) / 2);
		Pwm_Stop();
	} else {			//データ受信モード
		ANSEL  = 0b00000000;
		Lcd_Custom_Config(&PORTA,1,0,7,6,&PORTB,4,6,7);
		Lcd_Custom_Cmd(LCD_CURSOR_OFF);
		Lcd_Custom_Cmd(LCD_CLEAR);
		for (cnt = 0; cnt < 16; cnt++) {
			Lcd_Custom_Chr(1, cnt + 1, 0xFF);
			Delay_ms(50);
		}
		for (cnt = 0; cnt < 16; cnt++) {
			Lcd_Custom_Chr(2, cnt + 1, 0xFF);
			Delay_ms(50);
		}
		Delay_ms(1000);
		Lcd_Custom_Cmd(LCD_CLEAR);
	}
	//
	Usart_Init(1200);
	//
	while (1) {
		if (SW_MODE == 1) {	//データ送信モード 
			dataSendProc();
		} else {			//データ受信モード
			dataRecvProc();
		}
	}
}

//**********************************************************************