/*
12864LCD （ST7920）驅動程序
馬文壘     2004/12/27

*/

#include <REGx51.H>
  //引腳定義
#define CS    P2_0	//片選 高電平有效 單片LCD使用時可固定高電平
#define SID   P2_1	//數據
#define SCLK  P2_2	//時鐘
#define PSB   P2_3	//低電平時表示用串口驅動，可固定低電平
#define RESET P2_4	//LCD復位，LCD模塊自帶復位電路。可不接

void write(bit start, unsigned char ddata);
void sendbyte(unsigned char bbyte);
void delaynms(unsigned int di);
void lcdinit(void);
void lcdtest(void);
void lcdcls(void);

unsigned char code ma[] ={"  漢字顯示LCD   "};
unsigned char code ma2[]={"自帶字庫圖文混排"};
unsigned char code ma3[]={"控制IC：ST7920  "};
unsigned char code ma4[]={"功能強大使用方便"};

void lcdinit(void)	//初始化LCD 
{
  delaynms(10); //啟動等待，等LCM講入工作狀態
  PSB=0; ;   	 //串口驅動模式
  RESET=0; delaynms(1); RESET=1; // 復位LCD
  CS=1;
  write(0,0x30);  //8 位介面，基本指令集
  write(0,0x0c);  //顯示打開，光標關，反白關
  write(0,0x01);  //清屏，將DDRAM的地址計數器歸零  
}

void write(bit start, unsigned char ddata) //寫指令或數據
{
  unsigned char start_data,Hdata,Ldata;
  if(start==0) start_data=0xf8;	 //寫指令
    else       start_data=0xfa;  //寫數據
  
  Hdata=ddata&0xf0;		  //取高四位
  Ldata=(ddata<<4)&0xf0;  //取低四位
  sendbyte(start_data);	  //發送起始信號
  delaynms(5); //延時是必須的
  sendbyte(Hdata);	      //發送高四位
  delaynms(1);  //延時是必須的
  sendbyte(Ldata);		  //發送低四位
  delaynms(1);  //延時是必須的
}

void sendbyte(unsigned char bbyte) //發送一個字節
{
 unsigned char i;
 for(i=0;i<8;i++)
   {
   SID=bbyte&0x80; //取出最高位
   SCLK=1;
   SCLK=0;
   bbyte<<=1; //左移
   }  
}

void delaynms(unsigned int di) //延時
{
 unsigned int da,db;
 for(da=0;da<di;da++)
   for(db=0;db<10;db++);
}

void lcdtest(void)	//圖形方式下屏幕全黑
{ 
unsigned char i,j;
for(i=0;i<32;i++)
  { write(0,0x80+i);write(0,0x80);
    for(j=0;j<16;j++) write(1,0xff);
  }

 for(i=0;i<32;i++)
  { write(0,0x80+i);write(0,0x88);
    for(j=0;j<16;j++) write(1,0xff);
  }
}

void lcdcls(void)  //圖形方式下清屏
{ 
unsigned char i,j;
for(i=0;i<32;i++)
  { write(0,0x80+i);write(0,0x80);
    for(j=0;j<16;j++) write(1,0x00);
  }

 for(i=0;i<32;i++)
  { write(0,0x80+i);write(0,0x88);
    for(j=0;j<16;j++) write(1,0x00);
  }
}

void main(void)
{
 unsigned char i;
 lcdinit();

 while(1)
 {
  write(0,0x80); for(i=0;i<16;i++)  write(1,ma[i]);
  write(0,0x90); for(i=0;i<16;i++)  write(1,ma2[i]);
  write(0,0x88); for(i=0;i<16;i++)  write(1,ma3[i]);
  write(0,0x98); for(i=0;i<16;i++)  write(1,ma4[i]);

  write(0,0x36); //圖形方式
  lcdtest();
  lcdcls();
 }

}