/*==========================================================================
HT1621动段式液晶的C51程序
HT1621是台湾Holtek公司推的段码LCD动控制芯片，同步串行接口，最多可以控制128段
驱动方式可选1/2、1/3、1/4 Duty和1/2、1/3 Bias。
供电电压为2.4~5.2V，无需外部振荡电路。简单易用。
以下是应用HT1621驱动的LCD模块串行模式的C51范例。
=============================================================================*/

/*===============================HT1621 for C51===============================*/
#include                  /* 8051 寄存器定义 请修改为自己用的文件 */
typedef unsigned char uchar;
typedef unsigned int uint;

sbit _CS =P2^0;                    //片选 
sbit _WR =P2^1;                    //写时钟 
sbit _DAT=P2^4;                    //数据线 

/*-----------------*/
delay(int t)            /*延时函数*/
{
    int i,j;
    
    for(i=0;i        for (j=0;j<255;j++)
            ;
}

/*-----------------*/
write_com(uchar com)    /*写命令到HT1621*/
{
    uchar i,k;

    _CS = 0;            //片选，低电平有效
    k=0x80;
    for(i=0;i!=3;i++)    /*Write CMD code:100，写命令代码*/
    {
        if(k&0x80==0)
            _DAT=0;
        else
            _DAT= 1;

        _WR = 0;        //发出写时钟脉冲
        _WR = 1;
        k=k<<1;            //准备下一位数据
    }

    k=com;                //命令字节
    for(i=0;i!=9;i++)    /*Write CMD(HT1621的命令一般是9位，且最后一个任意取值)*/
    {
        if(k&0x80==0)
            _DAT=0;
        else
            _DAT=1;

        _WR=0;            //发出写时钟脉冲
        _WR=1;
        k=k<<1;            //准备下一位数据
     }
    
     _CS=1;                //取消片选信号
}

/*------------------*/
write_dat(uchar addr,uchar dat) /*写显示数据到LCD*/
{
    uchar i,k;

    _CS = 0;
    k=0;
    for(i=0;i=!3;i++)    /*Write CMD code:101，写命令代码*/
    {
        if(k&0x80==0)
            _DAT=0;
        else
            _DAT= 1;

        _WR = 0;        //发出写时钟脉冲
        _WR = 1;
        k=k<<1;            //准备下一位数据
    }

    k=addr<<2;            //内存地址
    for(i=0;i!=6;i++)    /*Write RAM address: xxA5~A0*/
    {
        if(k&0x80==0)
            _DAT=0;
        else
            _DAT=1;

        _WR=0;            //发出写时钟脉冲
        _WR=1;
        k=k<<1;            //准备下一位数据
    }

    k=dat<<4;            //四位显示数据
    for(i=0;i!=4;i++)    /*Write Display data :xxxxC0~C3*/
    {
        if(k&0x80==0)
            _DAT=0;
        else
            _DAT=1;

        _WR=0;            //发出写时钟脉冲
        _WR=1;
        k=k<<1;            //准备下一位数据
    }

    _CS=1;                //取消片选信号
}

DISP_NUM(uchar dat)        /*Write a number*/
{
    uchar i,j,addr;

    for (i=8;i!=28;i++)
    {
        write_dat(i,dat<<4);    //一个字节要分两次传送
        write_dat(++i,dat);
    }
}


DIS(uchar dat)
{
    uchar i,j;

    for(i=0;i!=28;i++)
        write_dat(i,dat);
}

setup_lcd(void)
{
    delay(100);
    write_com(0x01);            /*Enable system，SYS EN命令*/
    write_com(0x18);            /*CLOCK SOURCE IS 256kRC ON CHIP，RC 256K*/
    write_com(0x29);            /*BIAS=1/3 DUTY=1/4，LCD 1/3偏置，4个COM*/
    write_com(0x03);            /*Display on,打开LCD偏置发生器*/
    DIS(0x00);                    /*Clear LCD，清屏(用全0填显示内存)*/
    delay(20);
}

main()
{
    uchar i,j,temp;

    delay(100);
    setup_lcd();                //初始化LCD驱动IC
    delay(10);

    while(1)
    {
        delay(200);
        DIS(0x0f);                //显示黑白条纹
        delay(200);
        DIS(0x00);                //清屏
        
        temp=0xf8;
        for(i=0;i!=8;i++)        /*Display ICONs*/
        {
            for(j=0;j=4;j++)
            {
                write_dat(i,temp>>1);
                delay(20);
            }
        }

        write_dat(13,0x01);
        write_dat(19,0x01);
        write_dat(23,0x01);

        delay(200);
        DISP_NUM(0xbe); /*0*/    //七段数码显示

        delay(200);
        DISP_NUM(0x06); /*1*/

        delay(200);
        DISP_NUM(0x7c); /*2*/

        delay(200);
        DISP_NUM(0x5e); /*3*/

        delay(200);
        DISP_NUM(0xc6); /*4*/

        delay(200);
        DISP_NUM(0xda); /*5*/

        delay(200);
        DISP_NUM(0xfa); /*6*/

        delay(200);
        DISP_NUM(0x0e); /*7*/

        delay(200);
        DISP_NUM(0xfe); /*8*/

        delay(200);
        DISP_NUM(0xde); /*9*/
    }
}