//********************************************************************** 
/*
	＜拡張ポート（Ｉ２Ｃ対応）＞
*/
//********************************************************************** 

#define		LED			PORTA.F4
#define		SW_ADDR1	PORTB.F2
#define		SW_ADDR2	PORTB.F3
#define		ADDR_BASE	0xC0

#define		PORT_EX_0	PORTA.F0
#define		PORT_EX_1	PORTA.F1
#define		PORT_EX_2	PORTA.F2
#define		PORT_EX_3	PORTA.F3
#define		PORT_EX_4	PORTB.F0
#define		PORT_EX_5	PORTB.F5
#define		PORT_EX_6	PORTB.F6
#define		PORT_EX_7	PORTB.F7

#define		TRIS_EX_0	TRISA.F0
#define		TRIS_EX_1	TRISA.F1
#define		TRIS_EX_2	TRISA.F2
#define		TRIS_EX_3	TRISA.F3
#define		TRIS_EX_4	TRISB.F0
#define		TRIS_EX_5	TRISB.F5
#define		TRIS_EX_6	TRISB.F6
#define		TRIS_EX_7	TRISB.F7

#define		ON			1
#define		OFF			0

#define		DATA_SIZE	2

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

static	unsigned	short	data[DATA_SIZE], pnt, flg, tmp, stat;

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

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;
	}
}

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

void	i2c_Handler()
{
	stat = SSPSTAT;
	tmp = SSPSTAT & 0b00101101;
	//
	if (tmp == 0b00001001) {	//書き込みモード、デバイスアドレス
		tmp = SSPBUF; 
		flg = 0;
		pnt = 0;
		return;
	}
	if (tmp == 0b00101001) {	//書き込みモード、データ
		if (flg == 0) {
			pnt = SSPBUF;
			flg = 1;
			return;
		}
		if (flg == 1) {
			data[pnt] = SSPBUF;
			pnt++;
			return;
		}
	}
	if (tmp == 0b00001100) {	//読み込みモード、デバイスアドレス 
		i2c_Write(data[pnt]);
		pnt++;
		return;
	}
	if (tmp == 0b00101100) {	//読み込みモード、データ（ＡＣＫ） 
		i2c_Write(data[pnt]);
		pnt++;
		return;
	}
	if (tmp == 0b00101000) {	//読み込みモード、データ（ＮＯ＿ＡＣＫ） 
		tmp = SSPBUF;
		SSPCON = 0x36;
		return;
	}
	LED = ON;
	Delay_ms(100);
	LED = OFF;
}

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

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

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

void	ByteToBit(unsigned short number, char *output)
{
	short	cnt;
	//
	for (cnt = 0; cnt < 8; cnt++) {
		if ((number & 0x80) != 0)
			output[cnt] = '1';
		else
			output[cnt] = '0';
		number <<= 1;
	}
	output[8] = 0x00;
}

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

void	main()
{
	unsigned	short	cnt, TRIS_EX;
	//
	CMCON  = 0b00000111;		//コンパレータは使用しない。 
	ANSEL  = 0b00000000;		//A/Dコンバータは使用しない。 
	OSCCON = 0b01110000;		//クロックは内臓8MHzを使用する。 
	TRISA  = 0b11101111;		//PORTAを設定する。 
	TRISB  = 0b11111111;		//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 = 0;
	SSPADD = ADDR_BASE + ((SW_ADDR2 == 1) ? 4 : 0) + ((SW_ADDR1 == 1) ? 2 : 0);
	PIE1.SSPIE = 1;
	PIR1.SSPIF = 0;
	//
	LED = OFF;
	pnt = 0;
	flg = 0;
	data[0] = 0b11111111;
	data[1] = 0b11111111;
	TRIS_EX = data[0];
	for (cnt = 0; cnt < 10; cnt++) {
		LED = ON;
		Delay_ms(50);
		LED = OFF;
		Delay_ms(50);
	}
	// 割り込み(全体)の設定
	INTCON.PEIE = 1;
	INTCON.GIE = 1;
	//
	while (1) {
		//
		if (data[0].F0 != TRIS_EX.F0) {
			TRIS_EX.F0 = data[0].F0;
			TRIS_EX_0 = TRIS_EX.F0;
		}
		if (TRIS_EX.F0 == 1) {
			data[1].F0 = PORT_EX_0;
		} else {
			PORT_EX_0 = data[1].F0;
		}
		//
		if (data[0].F1 != TRIS_EX.F1) {
			TRIS_EX.F1 = data[0].F1;
			TRIS_EX_1 = TRIS_EX.F1;
		}
		if (TRIS_EX.F1 == 1) {
			data[1].F1 = PORT_EX_1;
		} else {
			PORT_EX_1 = data[1].F1;
		}
		//
		if (data[0].F2 != TRIS_EX.F2) {
			TRIS_EX.F2 = data[0].F2;
			TRIS_EX_2 = TRIS_EX.F2;
		}
		if (TRIS_EX.F2 == 1) {
			data[1].F2 = PORT_EX_2;
		} else {
			PORT_EX_2 = data[1].F2;
		}
		//
		if (data[0].F3 != TRIS_EX.F3) {
			TRIS_EX.F3 = data[0].F3;
			TRIS_EX_3 = TRIS_EX.F3;
		}
		if (TRIS_EX.F3 == 1) {
			data[1].F3 = PORT_EX_3;
		} else {
			PORT_EX_3 = data[1].F3;
		}
		//
		if (data[0].F4 != TRIS_EX.F4) {
			TRIS_EX.F4 = data[0].F4;
			TRIS_EX_4 = TRIS_EX.F4;
		}
		if (TRIS_EX.F4 == 1) {
			data[1].F4 = PORT_EX_4;
		} else {
			PORT_EX_4 = data[1].F4;
		}
		//
		if (data[0].F5 != TRIS_EX.F5) {
			TRIS_EX.F5 = data[0].F5;
			TRIS_EX_5 = TRIS_EX.F5;
		}
		if (TRIS_EX.F5 == 1) {
			data[1].F5 = PORT_EX_5;
		} else {
			PORT_EX_5 = data[1].F5;
		}
		//
		if (data[0].F6 != TRIS_EX.F6) {
			TRIS_EX.F6 = data[0].F6;
			TRIS_EX_6 = TRIS_EX.F6;
		}
		if (TRIS_EX.F6 == 1) {
			data[1].F6 = PORT_EX_6;
		} else {
			PORT_EX_6 = data[1].F6;
		}
		//
		if (data[0].F7 != TRIS_EX.F7) {
			TRIS_EX.F7 = data[0].F7;
			TRIS_EX_7 = TRIS_EX.F7;
		}
		if (TRIS_EX.F7 == 1) {
			data[1].F7 = PORT_EX_7;
		} else {
			PORT_EX_7 = data[1].F7;
		}
	}
}

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