7565p3.c

这是一个驱动LCM模块显示的51单片程序

//LCD Display  Program
//IC :ST7565P
//1/65Duty  1/9Bias
//Vop=8.9V
//VDD=3V
//Pause Is   P3.2
//C68=H,PS=H  :6800 interface
//4X Step-up  voltage


//Date: Sep 8 2004




//-------------------------------------------------------------------
#include  <reg52.h>
#include  <intrins.h>

#define uint unsigned int
#define uchar unsigned char



//-------------------------------------------------------------------


uchar code pic2[]={  //char
                    0x00,
                    };



uchar code pic3[]={   //world
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x84,0xcc,0xb0,0x14,0xfc,0x04,
0x00,0x68,0xa4,0xa4,0xa4,0x78,0x00,0x00,0x00,0x84,0x84,0xf8,0x80,0x80,0x00,0x04,0x04,0xfc,0x04,0x04,
0x00,0x00,0x0c,0xe4,0x44,0x44,0xfc,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x04,0x74,0x48,0xb4,
0xc4,0x38,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc8,0x84,0x84,0x84,0x78,0x00,0x00,0x68,0xa4,0xa4,
0xa4,0x78,0x00,0x00,0x04,0x04,0xfc,0x04,0x04,0x00,0x00,0x0c,0xe4,0x44,0x44,0xfc,0x04,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xc0,0xc0,0xe0,0xf0,0x38,
0x18,0x0c,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x07,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x00,0x00,0x00,0x00,0x00,0x07,0x04,0x04,0x00,0x00,0x06,0x84,0xc4,0x44,0x27,
0x24,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x00,0x00,0x00,0x03,0x04,0x03,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x07,
0x04,0x04,0x00,0x00,0x06,0x04,0x04,0x04,0x07,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xc0,0xe0,0xe0,0xf0,
0xf8,0xf8,0xfc,0xfe,0xfe,0xff,0xff,0x1f,0x0f,0x03,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x02,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x3c,0x7f,
0xff,0xff,0xff,0xfe,0xfc,0xf8,0xf8,0xfc,0xfc,0xfc,0x7e,0x7c,0x30,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xe0,0xc0,0x00,
0x00,0xe0,0xf8,0xfc,0xfc,0xfe,0xfe,0xf8,0xf0,0xc0,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x08,0x1c,0x3f,0x3f,0x7f,0x7f,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xfe,0x78,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x10,0x08,0x19,0x1f,0x38,0x31,0x27,0x63,0x03,
0x01,0x01,0x78,0x28,0xc8,0xe8,0xe8,0x48,0x30,0x70,0xe0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x03,0x80,0x80,0xe7,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xe0,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x01,0x01,0x03,0x07,0x07,0x27,0x27,0x27,0x27,0x42,0x02,0x84,0x9c,0x18,0x78,
0x70,0x30,0x20,0xe0,0xe0,0xc0,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0e,0xb8,0x10,0x01,0x81,0xc0,
0xe8,0xfc,0xf8,0xfb,0xe1,0xe0,0x80,0x80,0xc0,0xe0,0xf2,0xfe,0xfc,0xf0,0x80,0x00,0x00,0x00,0x00,0xc0,
0xe0,0xf0,0xfc,0xf7,0xff,0xff,0xdf,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xfe,0xfe,0xfe,0xfe,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,0xda,0xfe,0xfc,0xfc,0xfc,0xfc,0xfd,0xff,0xff,0xff,
0xff,0xff,0xfe,0xfe,0xfc,0xf8,0xf0,0xf0,0xc0,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xc0,0x70,0x10,0x88,0x88,0xc8,0xf0,0xc0,0xf4,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x3f,0xfe,0xfd,0xff,0xff,0x7f,0x7f,0x7f,
0xf7,0xf7,0xe7,0xf7,0x67,0xe7,0x97,0xa7,0x9f,0x9f,0xdf,0x7f,0x7f,0x7f,0x2f,0x07,0x03,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02,
0x02,0x00,0xa5,0xc7,0xcf,0xcf,0x9f,0x9f,0x1f,0x3f,0xf7,0xe7,0xef,0x8f,0xcf,0x4f,0xdf,0xff,0xff,0xff,
0xff,0xff,0xff,0xfe,0xfc,0xfc,0xf8,0xf8,0xf0,0xf0,0xe0,0xe0,0xe0,0xe0,0xf0,0xf0,0xe8,0xe0,0xe0,0x80,
0x00,0x80,0x80,0xc0,0xc0,0xe0,0xe0,0xe0,0xf8,0xdc,0xe0,0xe0,0xe0,0xe0,0xe6,0xf7,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xdf,0x7f,0x77,0x3f,0x3f,0x1f,0x07,0x07,0x9f,
0x9f,0xc7,0xc7,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x01,0x03,0x03,0x07,
0x07,0x07,0x06,0x0e,0x0e,0x1d,0x1d,0x1d,0x19,0x0a,0x0b,0x0b,0x0f,0x07,0x0f,0x0f,0x0f,0x0f,0x0f,0x07,
0x07,0x07,0x07,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x00,0x00,0x00,0x01,0x01,0x01,0x01,
0x01,0x01,0x01,0x01,0x01,0x03,0x07,0x07,0x07,0x01,0x01,0x01,0x03,0x03,0x03,0x07,0x07,0x07,0x0f,0x07,
0x07,0x07,0x03,0x03,0x03,0x03,0x03,0x01,0x05,0x05,0x03,0x01,0x01,0x00,0x00,0x00,0x01,0x01,0x01,0x01,
0x01,0x01,0x01,0x00,0x00,0x08,0x08,0x08,0x04,0x04,0x04,0x00,0x02,0x02,0x01,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x2c
};



uchar code pic4[]={    //bike
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0xc0,0xe0,0x70,0x38,0x18,0x0c,0x0e,0x06,0x03,0x03,0x03,0x03,0x03,0x01,0x01,0x01,0x01,0x01,0x01,
0x01,0x03,0x03,0x07,0x07,0x06,0x0e,0x0c,0x1c,0x38,0xf0,0xe0,0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xc0,0xc0,0xc0,0xc0,0xc0,0x80,0xc0,0xe0,0x60,0xc0,0xc0,
0x80,0x80,0x00,0x00,0x80,0xe0,0xf0,0x38,0x38,0x1c,0x0c,0x06,0x07,0x07,0x03,0x03,0x01,0x03,0x01,0x01,
0x01,0x01,0x01,0x01,0x01,0x03,0x03,0x07,0x06,0x0e,0x0e,0x1c,0x38,0x70,0xe0,0xc0,0x80,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xff,0xff,0xc1,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x3c,0x3e,0x3e,0x3e,0x3e,0x3c,0x68,0xc0,0xc0,0x80,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0xc3,0xff,0x7f,0x10,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x88,0x8a,0x5e,0x7e,0x7e,
0x7f,0xff,0xff,0xff,0xff,0x7f,0x7f,0xff,0x1f,0x0f,0x0f,0x09,0x89,0xc9,0xef,0xff,0x7f,0xff,0xff,0x9f,
0x0e,0x0e,0x0c,0x08,0x08,0x08,0x08,0x88,0xc8,0xc8,0x7c,0x3c,0x3e,0x3e,0x3e,0x3e,0x38,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc1,0xff,0xff,0x1c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x07,0x0f,0x0c,0x18,0x30,0x30,0x20,0x60,0x60,0x40,0xc0,0xc0,
0xc0,0xc0,0xc0,0xc0,0xc0,0xc0,0xc0,0x40,0x61,0x63,0x67,0xfe,0xf8,0xf0,0xdc,0xde,0xc7,0x43,0x61,0x70,
0x38,0x18,0x0c,0x0c,0x04,0x06,0x03,0x83,0xc1,0xe0,0xf8,0xfc,0xfe,0x7f,0x3f,0x0f,0xc3,0xe0,0xf0,0xf8,
0xf9,0xff,0xfe,0xfe,0xff,0x1f,0x07,0x83,0xc0,0xc0,0xe0,0x63,0x37,0x3e,0x1c,0x3c,0x3c,0x26,0x72,0x63,
0x61,0x41,0xc0,0xc0,0xc0,0xc0,0xc0,0xc0,0x80,0xc0,0xc0,0xc0,0x60,0x60,0x60,0x30,0x38,0x38,0x1c,0x0f,
0x07,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0xf0,0x18,0x08,0x18,
0x08,0x08,0x18,0x18,0x10,0x01,0x8f,0x9f,0xfe,0xfc,0x46,0x06,0x06,0x06,0x06,0x7e,0xfe,0xfe,0xfe,0xff,
0xff,0xff,0xf7,0xf7,0xf7,0xe6,0xe6,0xe6,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xe6,0xc7,0x0f,0x3f,
0xe1,0xc1,0x80,0x80,0x80,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x03,0x03,0x07,0x06,0x07,0x07,0x07,0x07,0x07,0x0f,
0x0f,0x0c,0x1c,0x1c,0x3c,0x38,0x38,0xf8,0xf0,0xf0,0xe1,0xc1,0x03,0x03,0x07,0x07,0x0f,0x0f,0x9f,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x77,0x0f,0x0f,0x0f,0x0f,0x07,0x07,
0x02,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0xf0,0xff,
0xff,0xff,0xff,0xff,0xff,0xf8,0xfc,0xfc,0xfe,0xfe,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x7f,0x3f,
0x1f,0x17,0x07,0x03,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x80,0xe0,0xe0,0xf0,0xf0,0xf0,0xf0,0xf0,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0x5f,0xdf,0x5f,0xdf,0x4f,0x07,0x07,0x03,0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x06,0x1e,0x3f,0x3f,0x3f,0x7f,0xff,
0x7f,0xff,0x7f,0x7f,0x7f,0x3f,0x3f,0x1f,0x0f,0x1f,0x0f,0x0f,0x07,0x07,0x07,0x07,0x01,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00
};


uchar code pic5[]={
0x00,0x00,0x00,0x00,0x40,0xc0,0x80,0x80,0x80,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xc0,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,0x40,0x60,0x20,0x10,0x10,0x00,0x08,0x04,
0x04,0x00,0x00,0xf2,0xfe,0xfe,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xf9,0xf0,0x42,0x80,0x00,0x04,0x04,0x00,0x08,0x00,0x10,0x20,0x20,0x40,0x40,0x80,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0x0d,
0x01,0x01,0x01,0xc7,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,0x00,0x00,0x00,0x00,0x00,
0x80,0x20,0x00,0x00,0x01,0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xe0,0xd0,0xc8,
0xc4,0xc6,0xc3,0xc1,0xc0,0x00,0x10,0x08,0x0c,0x04,0x00,0x02,0x00,0x01,0x01,0x01,0x01,0x01,0x03,0x03,
0x03,0x03,0x07,0x07,0x07,0x77,0x07,0x07,0x07,0x03,0x03,0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x01,0x01,
0x00,0x02,0x04,0x0c,0x18,0x10,0x20,0xc0,0x80,0x81,0x80,0x80,0x80,0x88,0xb0,0xc0,0x80,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0xd4,0xe9,0xe8,0xf0,0xd0,0x80,0x84,0x80,0x80,0x80,0x80,
0x80,0x80,0x80,0xc0,0x80,0x00,0x00,0x00,0x80,0x80,0x80,0x80,0x00,0x80,0xc0,0xc0,0xc0,0x60,0x20,0x30,
0x10,0x18,0x0c,0x04,0x06,0x03,0x03,0x07,0x07,0x02,0x02,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0xc0,0xf0,0xfc,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,0xc0,0xe0,
0xc0,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xfe,0xfc,0xe0,0x80,0x00,0x00,0x00,0x00,0x04,0x00,
0xa8,0xd0,0xc1,0xc1,0xc7,0x07,0x0f,0x1f,0x1f,0x3f,0x6f,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xfe,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x3f,0x5e,0x0e,0x00,0x00,0xd0,0x98,0x84,0x88,0x20,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x0c,0x04,0x00,0x30,0x30,0x33,0x03,0x00,0x18,0x18,0x00,0x00,0x7e,0x07,0x0f,
0x1f,0x1f,0x3f,0x7f,0x7f,0x3f,0x1f,0x0f,0x07,0x07,0x03,0x00,0x02,0x02,0x04,0x00,0x00,0x08,0x08,0x00,
0x10,0x10,0xf0,0xf8,0xf8,0xfc,0xfe,0xfe,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xfe,0xfc,0xfc,
0xf8,0xf0,0x70,0x20,0x00,0x00,0x00,0x00,0x08,0x00,0x00,0x04,0x00,0x00,0x07,0x07,0x0f,0x3f,0x7f,0xff,
0xff,0xff,0xff,0x7f,0x3f,0x1f,0x0f,0xf8,0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x07,0x1f,0x3f,0xff,0xfc,
0xfc,0xf0,0xe0,0xc0,0x80,0xd3,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xf1,0x00,0x00,0x00,0x80,0xe0,0xfd,0xff,0xff,0xff,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x7e,0x00,0x00,0x00,0x00,0x00,0x08,0xe0,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x0f,0x3f,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x7f,0x1f,0x03,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x71,0x03,0x00,0x00,0x00,0x00,0x80,
0x7f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x07,0x3f,0x7f,0xff,0xff,0xff,0xff,
0xff,0xff,0x7f,0x0f,0x01,0xf9,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xfc,0xfe,0xff,0x7f,0x3f,
0x1f,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x03,0x08,0x20,0x80,0x00,0x00,0x01,0x18,0x30,0xc0,0x80,0x80,0x80,0x80,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0xc0,0x60,0x10,0x0c,0x06,0x02,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,0x01,
0x01,0x01,0x01,0x01,0x03,0x06,0x08,0x30,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x80,0x80,0x80,
0xc0,0xe0,0x30,0x18,0x0e,0x01,0x00,0x00,0x80,0xc0,0x30,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x03,0x07,0x07,0x0f,0x0f,0x1e,0x1e,0xfe,0xfe,0xfe,
0xde,0x9e,0x1e,0x9f,0x0f,0x0f,0x07,0x07,0x03,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x03,0x06,0x0c,0x18,0x3f,0x7f,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xfe,0xfe,0xff,0xfc,0xf8,
0xe0,0xc0,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,
0xe0,0xf8,0xfc,0xff,0xfe,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x7c,0x20,0x20,0x10,0x0c,
0x02,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0f,0x1f,0x3f,0x3f,0x3f,0x3f,0x3f,0x1f,0x0e,0x06,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x01,0x03,0x07,0x07,0x07,0x0f,0x1f,0x1f,0x3f,0x2f,0x07,0x07,0x43,0x41,0x40,0x82,0x82,0x80,
0x80,0x04,0x04,0x04,0x04,0x04,0x04,0x04,0x84,0x84,0x84,0xc7,0x47,0x4f,0x0f,0x0f,0x1f,0x3f,0x1f,0x1f,
0x0f,0x0f,0x0f,0x07,0x03,0x03,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00
};



//--------------------------------------------------------------------

sbit RS=P3^7;
sbit RW=P3^6;
sbit E=P3^5;
sbit CS=P3^4;
sbit REST=P3^3;

sbit key=P3^2; //EXT INT0



//------- -------------------------------------------------------------


void delay1ms(uint i)
     {
      uchar state;
      uint x,y;
      for(x=0;x<i;x++)
         {
          for(y=0;y<100;y++)

           {
           if(key==0)
           {
            state=1;
           }
           else state=0;
           while(state)
           {
            if(key==1)
            {
            state=0;
            }
            ;

           }



           }
         }
     }

void delay(uint i)
     {
      uint x,y;
      for(x=0;x<i;x++)
         {
          for(y=0;y<10;y++)

            { ;}
         }
     }


void wr_com(uchar cc)       //6800 interface
{
  CS=0;
  _nop_;
  _nop_;
  E=0;
  RS=0;
  RW=0;
  _nop_;
  _nop_;
  P1=cc;
  _nop_;
  _nop_;

  E=1;
  _nop_;
  _nop_;
  CS=0;





}