#include <reg51.h>
#include <intrins.h>

//define OP code
#define OP_EWEN_H		0x00	// 00					write enable
#define OP_EWEN_L		0x60	// 11X XXXX				write enable
#define OP_EWDS_H		0x00	// 00					disable
#define OP_EWDS_L		0x00	// 00X XXXX				disable

#define OP_WRITE_H		0x40	// 01 A6-A0				write data
#define OP_READ_H		0x80	// 10 A6-A0				read data

#define OP_ERASE_H		0xc0	// 11 A6-A0				erase a word

#define OP_ERAL_H		0x00	// 00					erase all
#define OP_ERAL_L		0x40	// 10X XXXX				erase all
#define OP_WRAL_H		0x00	// 00  					write all	
#define OP_WRAL_L		0x20	// 01X XXXX		 		write all	


//define pin
sbit CS = P3^4;
sbit SK = P3^3;
sbit DI	= P3^5;
sbit DO = P3^6;

unsigned char code dis_code[] = {0x7e,0xbd,0xdb,0xe7,0xdb,0xbd,0x7e,0xff};

void start();
void ewen();
void ewds();
void erase();
void write(unsigned char addr, unsigned char indata);
unsigned char read(unsigned char addr);
void inop(unsigned char op_h, unsigned char op_l);
void shin(unsigned char indata);
unsigned char shout();
void delayms(unsigned char ms);

main()
{
	unsigned char i;
	CS = 0;				//初始化端口
	SK = 0;
	DI = 1;
	DO = 1;

	ewen();				// 使能寫入操作
	erase();			// 擦除全部內(nèi)容
		
	for(i = 0 ; i < 8; i++)		//寫入顯示代碼到AT93C46
	{
		write(i, dis_code[i]);
	}
	
	ewds();				// 禁止寫入操作	
	
	i = 0;
	while(1)
	{
		P0 = read(i);	// 循環(huán)讀取AT93C46內(nèi)容，并輸出到P0口
		i++;
		i &= 0x07;		// 循環(huán)讀取地址為0x00～0x07
		delayms(250);		
	}
}


void write(unsigned char addr, unsigned char indata)
// 寫入數(shù)據(jù)indata到addr
{
	inop(OP_WRITE_H, addr);	// 寫入指令和地址
		shin(indata);
		CS = 0;
	delayms(10);			// Twp
}

unsigned char read(unsigned char addr)
// 讀取addr處的數(shù)據(jù)
{
	unsigned char out_data;
	inop(OP_READ_H, addr);	// 寫入指令和地址
	out_data = shout();
	CS = 0;	
	return out_data;
}

void ewen()
{
	inop(OP_EWEN_H, OP_EWEN_L);
	CS= 0;
}

void ewds()
{
	inop(OP_EWDS_H, OP_EWDS_L);
	CS= 0;	
}

void erase()
{
	inop(OP_ERAL_H, OP_ERAL_L);
	delayms(30);
	CS = 0;
}


void inop(unsigned char op_h, unsigned char op_l)
//移入op_h的高兩位和op_l的低7位
//op_h為指令碼的高兩位
//op_l為指令碼的低7位或7位地址
{	

	unsigned char i;
	
	SK = 0;		// 開始位
	DI = 1;
	CS = 1;
	_nop_();
	_nop_(); 
	SK = 1;
	_nop_();
	_nop_();
	SK = 0;		// 開始位結(jié)束

	DI = (bit)(op_h & 0x80);	// 先移入指令碼高位
	SK = 1;
	op_h <<= 1;
	SK = 0;		

	DI = (bit)(op_h & 0x80);	// 移入指令碼次高位
	SK = 1;
	_nop_();
	_nop_();	
	SK = 0;
	
	// 移入余下的指令碼或地址數(shù)據(jù)
	op_l <<= 1;	
	for(i = 0; i < 7; i++)		
	{
		DI = (bit)(op_l & 0x80);	// 先移入高位
		SK = 1;
		op_l <<= 1;
		SK = 0;		
	}
	DI = 1;		
}


void shin(unsigned char indata)		
//移入數(shù)據(jù)
{
	unsigned char i;
	for(i = 0; i < 8; i++)
	{
		DI = (bit)(indata & 0x80);	// 先移入高位
		SK = 1;
		indata <<= 1;
		SK = 0;		
	}
	DI = 1;
}

unsigned char shout(void)			
// 移出數(shù)據(jù)
{
	unsigned char i, out_data;
	for(i = 0; i < 8; i++)
	{
		SK = 1;
		out_data <<= 1;
		SK = 0;
		out_data |= (unsigned char)DO;
	}
	return(out_data);
}

void delayms(unsigned char ms)	
// 延時子程序
{						
	unsigned char i;
	while(ms--)
	{
		for(i = 0; i < 120; i++);
	}
}