//********************************************************************** 
/*
	＜ＫｅｙＰａｄ（４×４）（Ｉ２Ｃ対応）＞
*/
//********************************************************************** 

#define		LED			PORTB.F5

#define		SW_ADDR1	PORTB.F0
#define		SW_ADDR2	PORTB.F2
#define		SW_ADDR3	PORTB.F3

#define		SW_MODE		PORTB.F6

#define		ADDR_BASE	0xF0

#define		ON			0
#define		OFF			1

#define		DATA_SIZE	1

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

void	i2c_Write(unsigned short dat)
{
	while (SSPSTAT.BF == 1)
		;
	while (1) {
		SSPCON.WCOL = 0;
		SSPBUF = dat;
		if (SSPCON.WCOL == 1)
			continue;
		//
		SSPCON.CKP = 1;
		return;
	}
}

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

static	unsigned	short	i2c_memory[DATA_SIZE], i2c_pnt, i2c_flg, i2c_tmp;

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

void	i2c_Handler()
{
	if (SSPSTAT.P == 1)		//ストップビットを検出しても何もしない。 
		asm	nop;
	if (SSPSTAT.S == 1)		//スタートビットを検出しても何もしない。
		asm	nop;
	//
	i2c_tmp = SSPSTAT & 0b00101101;
	//
	if (i2c_tmp == 0b00001001) {	//書き込みモード、デバイスアドレス
		i2c_tmp = SSPBUF; 
		i2c_flg = 0;
		i2c_pnt = 0;
		return;
	}
	if (i2c_tmp == 0b00101001) {	//書き込みモード、データ
		if (i2c_flg == 0) {
			i2c_pnt = SSPBUF;
			i2c_flg = 1;
			return;
		}
		if (i2c_flg == 1) {
			i2c_memory[i2c_pnt] = SSPBUF;
			i2c_pnt++;
			return;
		}
	}
	if (i2c_tmp == 0b00001100) {	//読み込みモード、デバイスアドレス 
		i2c_Write(i2c_memory[i2c_pnt]);
		i2c_pnt++;
		return;
	}
	if (i2c_tmp == 0b00101100) {	//読み込みモード、データ（ＡＣＫ） 
		i2c_Write(i2c_memory[i2c_pnt]);
		i2c_pnt++;
		return;
	}
	if (i2c_tmp == 0b00101000) {	//読み込みモード、データ（ＮＯ＿ＡＣＫ） 
		i2c_tmp = SSPBUF;
		SSPCON = 0b00111110;
		return;
	}
}

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

void	interrupt()
{
	if (PIR1.SSPIF == 1) {
		PIR1.SSPIF = 0;
		//
		LED = ON;
		i2c_Handler();
		LED = OFF;
	}
}

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

unsigned	short	keyPad_keySearch()
{
	unsigned	short	kp;
	//
	kp = 0x00;
	//
	PORTA.F6 = 0;
	switch (PORTA & 0b00111100) {
	case 0b00111000:
		kp = 'D';
		break;
	case 0b00110100:
		kp = 'C';
		break;
	case 0b00101100:
		kp = 'B';
		break;
	case 0b00011100:
		kp = 'A';
		break;
	}
	PORTA.F6 = 1;
	//
	PORTA.F7 = 0;
	switch (PORTA & 0b00111100) {
	case 0b00111000:
		kp = '#';
		break;
	case 0b00110100:
		kp = '9';
		break;
	case 0b00101100:
		kp = '6';
		break;
	case 0b00011100:
		kp = '3';
		break;
	}
	PORTA.F7 = 1;
	//
	PORTA.F0 = 0;
	switch (PORTA & 0b00111100) {
	case 0b00111000:
		kp = '0';
		break;
	case 0b00110100:
		kp = '8';
		break;
	case 0b00101100:
		kp = '5';
		break;
	case 0b00011100:
		kp = '2';
		break;
	}
	PORTA.F0 = 1;
	//
	PORTA.F1 = 0;
	switch (PORTA & 0b00111100) {
	case 0b00111000:
		kp = '*';
		break;
	case 0b00110100:
		kp = '7';
		break;
	case 0b00101100:
		kp = '4';
		break;
	case 0b00011100:
		kp = '1';
		break;
	}
	PORTA.F1 = 1;
	//
	return (kp);
}

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

unsigned	short	keyPad_GetKey()
{
	unsigned	short	newkp, oldkp, cnt;
	//
	oldkp = 0x00;
	//
	for (cnt = 0; cnt < 10; cnt++) {
		newkp = keyPad_keySearch();
		if ((newkp == 0x00) || (newkp != oldkp))
			cnt = 0;
		oldkp = newkp;
		Delay_ms(5);
	}
	//
	for (cnt = 0; cnt < 10; cnt++) {
		if (keyPad_keySearch() != 0x00)
			cnt = 0;
		Delay_ms(5);
	}
	//
	return (newkp);
}

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

static	unsigned	short	Luminance[10] = {255, 128, 64, 32, 16, 8, 4, 2, 1, 0};

void	main()
{
	unsigned	short	cnt;
	//
	CMCON  = 0b00000111;		//コンパレータは使用しない。 
	ANSEL  = 0b00000000;		//A/Dコンバータは使用しない。 
	OSCCON = 0b01110000;		//クロックは内臓8MHzを使用する。 
	TRISA  = 0b00111100;		//PORTAを設定する。 
	TRISB  = 0b01011111;		//PORTBを設定する。 
	OPTION_REG.NOT_RBPU = 0;	//PORTBをプルアップする。
	//Ｉ２Ｃを設定する。 
	SSPSTAT.SMP = 1;
	SSPSTAT.CKE = 1;
	SSPCON.WCOL = 0;
	SSPCON.SSPOV = 0;
	SSPCON.SSPEN = 1;
	SSPCON.CKP = 1;
	SSPCON.SSPM0 = 0;
	SSPCON.SSPM1 = 1;
	SSPCON.SSPM2 = 1;
	SSPCON.SSPM3 = 1;
	SSPADD = ADDR_BASE + ((SW_ADDR3 == 1) ? 8 : 0) + ((SW_ADDR2 == 1) ? 4 : 0) + ((SW_ADDR1 == 1) ? 2 : 0);
	PIE1.SSPIE = 1;
	PIR1.SSPIF = 0;
	//
	//
	PORTA.F6 = 1;
	PORTA.F7 = 1;
	PORTA.F0 = 1;
	PORTA.F1 = 1;
	//
	LED = OFF;
	i2c_pnt = 0;
	i2c_flg = 0;
	i2c_memory[0] = 0x00;		
	//
	for (cnt = 0; cnt < 10; cnt++) {
		LED = ON;
		Delay_ms(50);
		LED = OFF;
		Delay_ms(50);
	}
	// 割り込み(全体)の設定
	INTCON.PEIE = 1;
	INTCON.GIE = 1;
	//
	while (1) {
		i2c_memory[0] = keyPad_GetKey();
		//
		if (SW_MODE == 0) {
			Delay_ms(200);
			i2c_memory[0] = 0x00;		
		}
	}
}

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