ouravrocm240128.c

6963的液晶驱动程序

/*---------
OCM240128液晶参考程序
ATMEGA128
接口  PA1-PA7---->11-17
      PC5-------->9
	  PB4-PB7---->8-5
-----------*/
#include <iom128v.h>
#include <macros.h>
#include <stdlib.h>
#include <stdio.h>

#define width      30       //显示区宽度
#define addr_w     0x0000   //文本显示区首地址
#define addr_t     0x01e0   //图形显示区首地址
#define uchar      unsigned char
#define uint       unsigned int 

#pragma  data:code
const unsigned char tabAVR1[]={
0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x00,0x00,0x00,0x38,0x00,0x00,0x00,0x30,0x00,
0x00,0x08,0x30,0x00,0x00,0x1C,0x60,0x00,0x3F,0xF8,0x60,0x00,0x00,0x18,0x60,0x08,
0x00,0x10,0x7F,0xFC,0x10,0x30,0xC0,0x1C,0x08,0x30,0x80,0x30,0x0C,0x30,0x8E,0x20,
0x06,0x61,0x0C,0x40,0x03,0x61,0x0C,0x00,0x01,0x42,0x0C,0x00,0x01,0xC0,0x0C,0x00,
0x00,0xC0,0x1A,0x00,0x01,0xE0,0x1A,0x00,0x01,0xF0,0x1A,0x00,0x03,0x30,0x13,0x00,
0x02,0x38,0x31,0x00,0x06,0x18,0x21,0x00,0x04,0x1C,0x61,0x80,0x08,0x0C,0x40,0x80,
0x10,0x08,0xC0,0xC0,0x20,0x01,0x80,0x60,0x40,0x03,0x00,0x70,0x00,0x04,0x00,0x3C,
0x00,0x18,0x00,0x18,0x00,0x60,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//"欢"

0x00,0x00,0x00,0x00,0x08,0x00,0x00,0x00,0x06,0x00,0x30,0x00,0x07,0x00,0xF8,0x00,
0x03,0x81,0x80,0x10,0x03,0x8E,0x0C,0x38,0x01,0x0C,0x0F,0xD8,0x00,0x0C,0x0C,0x10,
0x00,0x0C,0x0C,0x10,0x00,0x0C,0x0C,0x10,0x01,0x0C,0x0C,0x10,0x7F,0x8C,0x0C,0x10,
0x03,0x0C,0x0C,0x10,0x03,0x0C,0x0C,0x10,0x03,0x0C,0x0C,0x10,0x03,0x0C,0x0C,0x10,
0x03,0x0C,0x0C,0x10,0x03,0x0C,0xEC,0x10,0x03,0x0F,0x8C,0x10,0x03,0x1E,0x0D,0x30,
0x03,0x0C,0x0C,0xF0,0x03,0x00,0x0C,0x20,0x03,0x00,0x0C,0x00,0x0F,0x80,0x0C,0x00,
0x38,0xC0,0x0C,0x00,0x70,0x70,0x00,0x00,0x20,0x1F,0x00,0x0E,0x00,0x07,0xFF,0xF8,
0x00,0x00,0x0F,0xF0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//"迎"

0x00,0x00,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x01,0xC0,0x00,0x00,0x01,0x80,0x00,
0x00,0x01,0x80,0x00,0x01,0x01,0x81,0x80,0x00,0xC1,0x83,0xC0,0x00,0x61,0x83,0x00,
0x00,0x71,0x83,0x00,0x00,0x71,0x86,0x00,0x00,0x31,0x84,0x00,0x00,0x21,0x88,0x00,
0x00,0x01,0x88,0x10,0x00,0x01,0x90,0x38,0x1F,0xFE,0x7F,0xC0,0x00,0x18,0x30,0x00,
0x00,0x18,0x30,0x00,0x00,0x18,0x30,0x00,0x00,0x18,0x30,0x00,0x00,0x10,0x30,0x00,
0x00,0x30,0x30,0x00,0x00,0x30,0x30,0x08,0x00,0x30,0x30,0x08,0x00,0x60,0x30,0x08,
0x00,0x60,0x30,0x08,0x00,0xC0,0x30,0x08,0x01,0x80,0x30,0x0C,0x02,0x00,0x38,0x1C,
0x0C,0x00,0x1F,0xF8,0x30,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,//"光"

0x00,0x00,0x00,0x00,0x00,0x40,0x00,0x00,0x00,0x70,0x70,0x00,0x00,0x40,0x70,0x00,
0x00,0x40,0x60,0x00,0x00,0x40,0xC0,0x00,0x18,0x40,0xC0,0x10,0x18,0x40,0xFF,0xF8,
0x18,0x41,0x80,0x00,0x18,0x41,0x20,0x00,0x18,0x42,0x18,0x00,0x18,0x46,0x0E,0x00,
0x18,0x44,0x07,0x00,0x18,0x48,0x03,0x00,0x18,0x50,0x03,0x00,0x18,0x40,0x00,0x10,
0x18,0x43,0x00,0x38,0x18,0x43,0xFF,0xD8,0x18,0x43,0x0C,0x10,0x18,0x43,0x0C,0x10,
0x18,0x43,0x0C,0x10,0x18,0x43,0x0C,0x10,0x18,0x43,0x0C,0x10,0x18,0x43,0x0C,0x10,
0x18,0x43,0x0C,0x10,0x00,0x63,0x0C,0x10,0x00,0x63,0xFF,0xF0,0x00,0x63,0x00,0x10,
0x00,0x63,0x00,0x10,0x00,0x43,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};//"临"




/*-----------下面的表是一幅含有"我们的AVR"的图片－－－－－－－－－－*/
const unsigned char tabAVR2[]={
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x00,0x00,
0x00,0x30,0x00,0x00,0x00,0x00,0x07,0x00,0x0E,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x06,0x1E,0x00,0x00,0x00,0x78,
0x30,0x00,0x00,0x00,0x07,0x00,0x0F,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x1F,0x1C,0x60,0x00,0x00,0x78,0x18,0x00,
0x00,0x00,0x06,0x00,0x0E,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x01,0xFF,0x9C,0x38,0x00,0x00,0x70,0x1C,0x00,0x08,0x00,
0x06,0x00,0x0E,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x1F,0xE0,0x1C,0x1C,0x00,0x00,0xE0,0x0E,0x00,0x1C,0x00,0x0C,0x00,
0x1C,0x00,0x00,0x07,0x80,0x0F,0xE0,0x7E,0x1F,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0xF0,0xE0,0x1C,0x0E,0x00,0x00,0xE0,0x0E,0x1F,0xFE,0x00,0x0C,0x00,0x1C,0x00,
0x00,0x07,0x80,0x03,0xC0,0x18,0x07,0x03,0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xE0,0x1C,0x0E,0x00,0x00,0xC0,0x06,0x00,0x18,0x01,0x08,0x10,0x18,0x00,0x00,0x07,
0x80,0x03,0xC0,0x18,0x07,0x00,0xE0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x1C,
0x07,0x00,0x01,0xC1,0x06,0x00,0x18,0x01,0x98,0x38,0x38,0x03,0x00,0x07,0x80,0x01,
0xC0,0x10,0x07,0x00,0xE0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x1C,0x06,0x00,
0x01,0x81,0xE0,0x00,0x18,0x01,0xFF,0xFC,0x3F,0xFF,0x80,0x09,0x80,0x01,0xC0,0x10,
0x07,0x00,0x70,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x1C,0x00,0x00,0x03,0x81,
0xC0,0x00,0x18,0x01,0xC0,0x38,0x70,0x03,0x80,0x09,0xC0,0x01,0xC0,0x10,0x07,0x00,
0x70,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x1C,0x00,0x40,0x03,0xC1,0xC0,0x00,
0x18,0x01,0xC0,0x30,0x60,0x03,0x00,0x09,0xC0,0x01,0xC0,0x20,0x07,0x00,0x70,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x1C,0x01,0xE0,0x03,0xE1,0xC0,0x00,0x18,0x01,
0xC0,0x30,0xC0,0x03,0x00,0x09,0xC0,0x00,0xE0,0x20,0x07,0x00,0x70,0x00,0x00,0x00,
0x00,0x00,0x01,0xFF,0xFF,0xFF,0xFF,0xF0,0x07,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x30,
0xC0,0x03,0x00,0x19,0xC0,0x00,0xE0,0x20,0x07,0x00,0x70,0x00,0x00,0x00,0x00,0x00,
0x00,0x80,0xE0,0x0C,0x00,0x00,0x07,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x31,0x80,0x03,
0x00,0x10,0xE0,0x00,0xE0,0x20,0x07,0x00,0x70,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xE0,0x0C,0x00,0x00,0x0D,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x31,0x00,0x03,0x00,0x10,
0xE0,0x00,0xE0,0x60,0x07,0x00,0xE0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x0C,
0x04,0x00,0x09,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x32,0x00,0x07,0x00,0x10,0xE0,0x00,
0x70,0x40,0x07,0x01,0xC0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x0C,0x06,0x00,
0x19,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x34,0x20,0x07,0x00,0x10,0xE0,0x00,0x70,0x40,
0x07,0x03,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x0C,0x0F,0x00,0x11,0xC1,
0xC0,0x00,0x18,0x01,0xC0,0x34,0x30,0x07,0x00,0x20,0x70,0x00,0x70,0x40,0x07,0xFF,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0x0C,0x0F,0x00,0x21,0xC1,0xC0,0x00,
0x18,0x01,0xC0,0x30,0x18,0x07,0x00,0x20,0x70,0x00,0x70,0xC0,0x07,0x0E,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0xCC,0x1E,0x00,0x41,0xC1,0xC0,0x00,0x18,0x01,
0xC0,0x30,0x1C,0x07,0x00,0x20,0x70,0x00,0x38,0x80,0x07,0x0E,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0xE7,0x0E,0x1C,0x00,0x41,0xC1,0xC0,0x00,0x18,0x01,0xFF,0xF0,
0x0E,0x07,0x00,0x20,0x70,0x00,0x38,0x80,0x07,0x0E,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0xF8,0x0E,0x38,0x00,0x01,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x38,0x0E,0x07,
0x00,0x7F,0xF0,0x00,0x39,0x80,0x07,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x03,
0xE0,0x0E,0x70,0x00,0x01,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x38,0x0E,0x07,0x00,0x40,
0x38,0x00,0x39,0x80,0x07,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x3F,0xE0,0x06,
0x70,0x00,0x01,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x38,0x0E,0x07,0x00,0x40,0x38,0x00,
0x1D,0x00,0x07,0x03,0x80,0x00,0x00,0x00,0x00,0x00,0x03,0xFC,0xE0,0x06,0xE0,0x00,
0x01,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x38,0x04,0x07,0x00,0x40,0x38,0x00,0x1D,0x00,
0x07,0x03,0x80,0x00,0x00,0x00,0x00,0x00,0x01,0xF0,0xE0,0x07,0xC0,0x00,0x01,0xC1,
0xC0,0x00,0x18,0x01,0xC0,0x38,0x00,0x07,0x00,0x80,0x38,0x00,0x1F,0x00,0x07,0x03,
0x80,0x00,0x00,0x00,0x00,0x00,0x00,0xC0,0xE0,0x07,0x80,0x00,0x01,0xC1,0xC0,0x00,
0x18,0x01,0xC0,0x38,0x00,0x07,0x00,0x80,0x1C,0x00,0x1F,0x00,0x07,0x01,0xC0,0x00,
0x00,0x00,0x00,0x00,0x00,0x80,0xE0,0x07,0x80,0x10,0x01,0xC1,0xC0,0x00,0x18,0x01,
0xC0,0x38,0x00,0x07,0x00,0x80,0x1C,0x00,0x0E,0x00,0x07,0x01,0xC0,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0xE0,0x0F,0x80,0x10,0x01,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x38,
0x00,0x07,0x00,0x80,0x1C,0x00,0x0E,0x00,0x07,0x00,0xC0,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0xE0,0x1D,0xC0,0x10,0x01,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x38,0x00,0x07,
0x01,0x80,0x1C,0x00,0x0E,0x00,0x07,0x00,0xE0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xE0,0x78,0xE0,0x10,0x01,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x38,0x00,0x06,0x01,0x80,
0x1E,0x00,0x0E,0x00,0x07,0x00,0xE0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE0,0xE0,
0x70,0x10,0x01,0xC1,0xC0,0x00,0x18,0x01,0xC0,0x38,0x00,0x06,0x01,0x80,0x0E,0x00,
0x04,0x00,0x07,0x00,0x70,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE3,0x80,0x7C,0x30,
0x01,0xC1,0xC0,0x00,0x18,0x01,0xFF,0xF8,0x00,0x0E,0x07,0xE0,0x3F,0x80,0x04,0x00,
0x1F,0xC0,0x7C,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xE6,0x00,0x3E,0x30,0x01,0xC1,
0xC0,0x00,0x38,0x01,0xC0,0x38,0x06,0x0E,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x3F,0xF8,0x00,0x0F,0xB0,0x01,0xC1,0xC0,0x0F,
0xF8,0x01,0xC0,0x38,0x03,0xFE,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x0F,0xC0,0x00,0x07,0xF0,0x01,0xC1,0xC0,0x00,0xF8,0x01,
0xC0,0x38,0x00,0xFC,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x03,0xC0,0x00,0x01,0xF8,0x01,0xC1,0x80,0x00,0x70,0x01,0x80,0x20,
0x00,0x78,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x01,0x00,0x00,0x00,0x38,0x01,0x00,0x00,0x00,0x40,0x00,0x00,0x00,0x00,0x20,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};
#pragma data:data

void wr_comm (uchar comm);
void wr_data (uchar dat);
void chk_busy (uchar autowr);
/*---------------延时子程序----------------*/
void delay (uint us)
{
  while(us--);
}
void delay1 (uint ms)
{
  uint i,j;
  for(i=0;i<ms;i++)