#include<reg51.h>
#include<intrins.h>
#define uchar unsigned char
#define uint unsigned int
#define staticdis  0x01
#define up 0x02
#define left 0x03

typedef struct typFNT_GB16              	// 漢字字模顯示數據結構
{
	char Index[2];
	char Msk[32];
};
struct typFNT_GB16 code GB_16[] = {	    // 顯示為16*16
"中",0x01,0x00,0x01,0x00,0x21,0x08,0x3F,0xFC,0x21,0x08,0x21,0x08,0x21,0x08,0x21,0x08,0x21,0x08,0x3F,0xF8,0x21,0x08,0x01,0x00,0x01,0x00,0x01,0x00,0x01,0x00,0x01,0x00,
"文",0x02,0x00,0x01,0x00,0x01,0x00,0xFF,0xFE,0x08,0x20,0x08,0x20,0x08,0x20,0x04,0x40,0x04,0x40,0x02,0x80,0x01,0x00,0x02,0x80,0x04,0x60,0x18,0x1E,0xE0,0x08,0x00,0x00,
"測",0x40,0x02,0x27,0xC2,0x24,0x42,0x84,0x52,0x45,0x52,0x55,0x52,0x15,0x52,0x25,0x52,0x25,0x52,0x25,0x52,0xC5,0x52,0x41,0x02,0x42,0x82,0x42,0x42,0x44,0x4A,0x48,0x04,
"試",0x00,0x20,0x40,0x28,0x20,0x24,0x30,0x24,0x27,0xFE,0x00,0x20,0xE0,0x20,0x27,0xE0,0x21,0x20,0x21,0x10,0x21,0x10,0x21,0x0A,0x29,0xCA,0x36,0x06,0x20,0x02,0x00,0x00,
};

uchar code str1[]={"文文測試"};
void timerinit(void);
void sioinit(void);
void initial(void);
void clrscree(void);
void clrindex(void);
void senddata(uchar i);
void row_dis(void);
void full_databuf(uchar effict);
void l_databuf(uchar i);
void full_index(uchar *prt,uchar effict);
void display(uchar *a,uchar effict);
void timeIRQ(void);

uchar databuf[18];
uchar *dataindex[12];	
uchar cbuf_flag,fullindex_flag,fulldata_flag;
uchar row_count,shift_count,shift_add,disen;
uchar *indexprt;

main()
{
	initial();
	while(1)
	{
		display(str1,staticdis);
	//	clrscree();	
	//	display(str2[],up);	
	}
}



void timerinit(void)//3ms timer
{
	TMOD=0x01;
	TH0=(65535-1000)/256;
	TL0=(65535-1000)%256;
	IE=0x82;
}
void sioinit(void)// 方式0
{
	SCON=0x00;
	TI=0;
}
void initial(void)
{
	timerinit();
	sioinit();
	fulldata_flag=1;
	fullindex_flag=1;
	TR0=1;
}

/*********application function*******
 靜態顯示、左移、右移
************************************/
void clrscree(void)
{	
	int i;
	for(i=0;i<18;i+=2)
	{
		databuf[i]=0;
		databuf[i+1]=0;
	}	
}
void clrindex(void)
{	
	int i;
	for(i=0;i<12;i++)
	{
		dataindex[i]=0;
	}	
}
void senddata(uchar j) 	//sio 口發送數據
{
	j=~j;
	SBUF=j;
	while(TI==0);
	TI=0;
}
void row_dis(void)   //p1.0-a,p1.1-b,p1.2-c,p1.3-d st-p1.4 p1.5-en
{
	uchar i=0,j=0,k;
	for(i=0;i<16;i++)
	{
		j=databuf[15-i];
		senddata(j);
	}
	k=~row_count&0x0f;
	P1=k+0x20+0x10; 
	_nop_();
	_nop_();
	P1=k+0x20;
//	P1=row_count+0x10;	
//	P1=row_count;
	fulldata_flag=1;
	row_count++;
	if(row_count==16)row_count=0;
}
//*************************databuf 更新
void full_databuf(uchar effict)
{	
	uchar i;
	uchar *ptr;
	if(fulldata_flag==1)
	{
		clrscree();
//		fulldata_flag=0;	
		if(effict==staticdis||effict==left)
		{
			for(i=0;i<18;i+=2)
			{
				ptr=dataindex[i/2];
				if(ptr==0)break;
				databuf[i]=*(ptr+row_count*2);
				databuf[i+1]=*(ptr+row_count*2+1);
			}
			if(effict==left)
			{
				l_databuf(shift_add);
			}
		}
		else if(effict==up)
		{
			for(i=0;i<18;i+=2)
			{
				ptr=dataindex[i/2];
				if(ptr==0)break;
				databuf[i]=*(ptr+shift_add+row_count*2);
				databuf[i+1]=*(ptr+shift_add+row_count*2+1);
			}		
		}
		fulldata_flag=0;
	}
}
void l_databuf(uchar i)//左移時數據BUF處理
{
	uchar h;
	int j,k;
	if(i>=8)
	{
		for(h=0;h<17;h++)
		databuf[h]=databuf[h+1];
		i-=8;
	}
	for(h=0;h<16;h++)
	{
		j=databuf[h];
		k=databuf[h+1];
		j=j<<i;
		k=k>>(8-i);
		databuf[h]=j|k;
	}	
}

void full_index(uchar *prt,uchar effict)
{
	uchar str1,str2;
	uchar *prt2;
	int i,j;
	if(fullindex_flag==1)
	{
 		if(effict==staticdis)indexprt=prt;
		else if(effict==up)indexprt=prt+8;
		else if(effict==up)indexprt=prt+2;
		clrindex();
		for(i=0;i<12;i++,prt=prt+2)
		{
			str1=*prt;
			str2=*(prt+1);
			if(str1=='\0') {disen=1;break;}
			for(j=0;j<sizeof(GB_16)/sizeof(GB_16[0]);j++)
			{
				if(str1 == GB_16[j].Index[0]&&str2 == GB_16[j].Index[1])
				break;
			}
			prt2=GB_16[j].Msk;
			dataindex[i]=prt2;
		}
		fullindex_flag=0;
	}		
}
void timeIRQ(void) interrupt 1
{
	TH0=(65535-1000)/256;
	TL0=(65535-1000)%256;
	if(fulldata_flag!=1)
	{
		row_dis();
		shift_count++;
		if(shift_count==100)
		{
			shift_add++;
			if(shift_add==16)
			{
				shift_add=0;
				fullindex_flag=1;		
			}			
		}
	}
}

void display(uchar *a,uchar effict)
{
	indexprt=a;
	disen=0;
	while(!disen)
	{
		full_index(indexprt,effict);
		full_databuf(effict);
	}
}