nt7538_6800.c

nt7538 6800 mpu test

//*****************************************************************************
/*Company	:future*/
/*LCM moudle	:FG13264XX*/
/*Made by	:*/
/*Data		:*/
/*MCU size	:NT7538_6800*/
//*****************************************************************************
#include <reg52.h>         /* define 8051 registers */
#include <math.h>
#include <intrins.h>

#define uchar unsigned char
#define uint  unsigned int
//-----------------------------------------------------------------------------
//Define Data's Port
sbit RS  =P3^7;
sbit RW  =P3^6;
sbit E   =P3^5;
sbit RST =P3^4;
sbit CS1 =P3^3;
#define LCD_DATA P1

//Define Key's Input
#define AUTO 0x80		//P2^7: Input auto_run_id
#define ADDU 0x40		//P2^6: Display picture UP to end
#define SUBD 0x20		//P2^5: Display picture Down to begin
#define ADUP 0x10		//P2^4: For COG module:adjust Register's value to add
#define ADDN 0x08		//P2^3: For COG moduel:adjust Register's value to sub
#define KEY_IN	P2
//For LCD to work
//#define bias
//#define duty
#define Rab	0x26    //5.5 = 0x25
#define v0	0x0f    //10v = 0x0c
#define bias	0xa2	//选择1/9bias或0xa3=1/7bias
uchar constr;		//对比度调节
//Control the program to run
#define BmpMax 7
uchar autoid;	//Indicate that LCD display automatically
uchar bmp_id;	//The picture's id to display
uchar dispid;	//To reflash the display picture
#define dl0 500
//*****************************************************************************
uchar code q[8]={0x3E,0x41,0x41,0x51,0x21,0x5E,0x00,0x00};
uchar code num[60]={
0x3E,0x41,0x41,0x41,0x3E,0x00,	//'0'
0x40,0x42,0x7F,0x40,0x40,0x00,	//'1'
0x46,0x61,0x51,0x49,0x46,0x00,	//'2'
0x22,0x49,0x49,0x49,0x36,0x00,	//'3'
0x18,0x14,0x12,0x7F,0x10,0x00,	//'4'
0x27,0x45,0x45,0x45,0x39,0x00,	//'5'
0x3E,0x49,0x49,0x49,0x32,0x00,	//'6'
0x01,0x71,0x09,0x05,0x03,0x00,	//'7'
0x36,0x49,0x49,0x49,0x36,0x00,	//'8'
0x26,0x49,0x49,0x49,0x36,0x00};	//'9'
uchar code hanz[1056]={
0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0XC0,0XC0,0X00,0X00,
0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X80,0XC0,0X40,0X40,0X40,0XC0,0X80,0X00,
0X00,0X00,0X00,0X00,0X00,0XC0,0XC0,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X80,0XC0,
0X40,0X40,0X40,0XC0,0X80,0X00,0X00,0X00,0XC0,0XC0,0X00,0X00,0X00,0X00,0X80,0XC0,
0X40,0X00,0X00,0XC0,0XC0,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X00,0X00,0X00,0X00,
0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0XC0,0XC0,0X40,0X40,0X40,0X40,0X40,
0X40,0X40,0X00,0X00,0X00,0X80,0XC0,0X40,0X40,0X40,0XC0,0X80,0X00,0X00,0X00,0XC0,
0XC0,0X00,0XC0,0XC0,0XC0,0X00,0XC0,0XC0,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,0X10,0X10,0X10,0X10,0X10,0X00,0X00,0X00,0X00,0XFF,0XFF,0X00,0X00,0X00,
0X00,0X00,0XFF,0XFF,0X00,0X00,0X00,0X00,0X00,0XFF,0XFF,0X00,0X00,0X00,0X00,0X00,
0X00,0XFF,0XFF,0X00,0X00,0X00,0X00,0X00,0XFF,0XFF,0X00,0X00,0XFF,0XFF,0X10,0X10,
0X18,0X1E,0X37,0XE1,0XC0,0X00,0X00,0XFF,0XFF,0X10,0X10,0X10,0X10,0X10,0X10,0X00,
0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0XFF,0X00,
0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0XFF,0X00,0X00,0X00,0X00,0X00,0XC7,
0XC7,0X00,0X00,0XFF,0XFF,0XFE,0X1F,0X01,0X1F,0XFE,0XFF,0XFF,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,0X07,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X00,0X00,0X07,
0X07,0X00,0X00,0X00,0X00,0X00,0X07,0X07,0X00,0X00,0X04,0X04,0X04,0X07,0X07,0X04,
0X04,0X04,0X00,0X00,0X00,0X07,0X07,0X00,0X00,0X00,0X00,0X00,0X07,0X07,0X00,0X00,
0X07,0X07,0X04,0X04,0X04,0X04,0X06,0X03,0X01,0X00,0X00,0X07,0X07,0X04,0X04,0X04,
0X04,0X04,0X04,0X04,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,
0X00,0X07,0X07,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X03,0X07,0X04,
0X04,0X04,0X06,0X03,0X01,0X00,0X00,0X07,0X07,0X00,0X00,0X00,0X00,0X00,0X07,0X07,
0X00,0X00,0X00,0X00,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,0X60,0X30,
0X10,0X70,0X70,0X00,0X00,0X00,0XF0,0XF0,0X30,0X60,0XC0,0X80,0XE0,0XF0,0X10,0X70,
0X70,0X00,0X80,0X80,0XF0,0XF0,0X00,0X80,0XC0,0X40,0X10,0XF0,0XF0,0X00,0X00,0X00,
0X80,0X80,0X00,0XF0,0XF0,0X80,0X80,0X80,0X80,0XF0,0XF0,0X00,0X00,0X00,0X00,0X10,
0XF0,0XF0,0X10,0X10,0X10,0XB0,0XE0,0XE0,0XB0,0X10,0X10,0X00,0X20,0XE0,0XC0,0X80,
0XD0,0X70,0X60,0XC0,0X80,0XC0,0XE0,0X30,0X10,0X00,0X10,0X30,0XE0,0XE0,0XB0,0X90,
0X10,0X10,0XD0,0XD0,0X90,0X90,0X10,0X00,0X20,0XE0,0XC0,0XE0,0XF0,0X90,0XD0,0X50,
0X70,0XF0,0XC0,0X60,0X20,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,
0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X40,0X40,0X40,0X40,0X40,0X40,
0XFF,0XFF,0X5C,0X36,0X22,0X00,0X00,0X00,0X08,0X18,0X3F,0XFF,0XD0,0X10,0XFF,0XFF,
0X1F,0X5F,0X70,0X30,0X10,0X00,0X38,0X39,0XFF,0XFF,0X1B,0X29,0X29,0XF9,0XF9,0X2B,
0X2B,0X29,0X09,0X00,0X08,0X49,0X4B,0X7F,0XFF,0X8B,0X2D,0X36,0X12,0XFF,0XFF,0X01,
0X01,0X00,0X11,0X13,0XFF,0XFF,0X14,0X10,0X17,0X17,0XFC,0XFC,0X17,0X17,0X10,0X00,
0X28,0X2C,0X27,0X2F,0X3C,0X34,0X1C,0XF8,0XF7,0X17,0X18,0X18,0X10,0X00,0X08,0X88,
0XCF,0X4F,0X7F,0X7F,0X43,0XC2,0XFF,0X7F,0X41,0X7F,0X7F,0X00,0X10,0X30,0X7E,0XFE,
0XB4,0XEC,0XEA,0X3E,0X3E,0X28,0X3C,0X34,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,
0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X30,0X30,0X30,0X30,0X30,0X30,
0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,
0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,
0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,
0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,
0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,
0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,
0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,0X30,
0X30,0X30,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0X00,0XC0,0XF8,0XF8,0XC0,
0X00,0X00,0XC0,0XF8,0XF8,0XC0,0X00,0X00,0XF0,0XF8,0X48,0X48,0X48,0XD8,0XD0,0X00,
0X00,0XF8,0XF8,0X00,0X00,0XF0,0XF8,0X08,0X08,0X08,0X18,0X10,0X00,0X00,0XF0,0XF8,
0X08,0X08,0X08,0XF8,0XF0,0X00,0X00,0XF8,0XF8,0X00,0X00,0XF8,0XF8,0X00,0X00,0XF8,
0XF8,0X00,0X00,0XF0,0XF8,0X48,0X48,0X48,0XD8,0XD0,0X00,0X00,0X00,0X00,0X00,0X00,
0X00,0XF0,0XF8,0X08,0X00,0XF0,0XF8,0X08,0X08,0X08,0XF8,0XF0,0X00,0X00,0X00,0X00,
0X00,0X00,0XF8,0XF8,0X00,0X00,0XF0,0XF8,0X08,0X08,0X18,0XF8,0XF8,0X00,0X00,0XF0,
0XF8,0X08,0X00,0XF0,0XF8,0X08,0X08,0X18,0XF8,0XF8,0X00,0X00,0XF8,0XF8,0X00,0X00,
0X00,0X00,0XF0,0XF8,0X48,0X48,0X48,0XD8,0X90,0X00,0X00,0X00,0X00,0X00,0X00,0X1E,
0X1F,0X01,0X00,0X03,0X1F,0X1F,0X03,0X00,0X01,0X1F,0X1E,0X00,0X01,0X03,0X02,0X02,
0X02,0X03,0X01,0X00,0X00,0X1F,0X1F,0X00,0X00,0X01,0X03,0X02,0X02,0X02,0X03,0X01,
0X00,0X00,0X01,0X03,0X02,0X02,0X02,0X03,0X01,0X00,0X00,0X03,0X03,0X02,0X02,0X03,
0X03,0X02,0X02,0X03,0X01,0X00,0X00,0X01,0X03,0X02,0X02,0X02,0X03,0X01,0X00,0X00,
0X00,0X00,0X00,0X00,0X02,0X0F,0X0F,0X02,0X00,0X01,0X03,0X02,0X02,0X02,0X03,0X01,
0X00,0X00,0X00,0X00,0X00,0X02,0X0F,0X1F,0X12,0X00,0X03,0X03,0X00,0X00,0X00,0X03,
0X03,0X00,0X02,0X0F,0X0F,0X02,0X00,0X03,0X03,0X00,0X00,0X00,0X03,0X03,0X00,0X00,
0X03,0X03,0X03,0X02,0X02,0X00,0X01,0X03,0X02,0X02,0X02,0X03,0X01,0X00,0X00,0X00,
};
uchar code huiz[1056]={
0XFF,0X01,0X01,0X01,0X01,0X01,0X01,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X01,0X01,0X01,
0X01,0X01,0X01,0XFF,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,
0X00,0X00,0XC0,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,
0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,
0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,
0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,
0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,
0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,
0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0X40,0XC0,0X00,0X00,0X00,0X00,0X00,0X00,
0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,
0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XE0,0X20,0X20,
0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,
0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,
0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,
0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,
0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,0X20,
0X20,0X20,0X20,0X20,0X20,0X20,0XE0,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,
0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0XFF,0X00,0X00,0X00,
0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,
0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XF0,0X10,0X10,0X10,0X10,0X10,0X10,0X10,
0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,
0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,
0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,
0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,0X10,
0X10,0X10,0X10,0XF0,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,
0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,
0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,
0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0X0F,0X08,0X08,0X08,
0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,
0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,
0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,
0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X08,
0X08,0X08,0X08,0X08,0X08,0X08,0X08,0X0F,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,
0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,
0X00,0X00,0X00,0XFF,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,
0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0X07,0X04,0X04,0X04,0X04,0X04,0X04,
0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,
0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,
0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,
0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,
0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,0X04,
0X04,0X04,0X07,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,
0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,
0X00,0X00,0X00,0X00,0X00,0X00,0X03,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,
0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,
0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,
0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,
0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,
0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,
0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X02,0X03,0X00,0X00,
0X00,0X00,0X00,0X00,0XFF,0X00,0X00,0X00,0X00,0X00,0X00,0XFF,0XFF,0X80,0X80,0X80,
0X80,0X80,0X80,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,
0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X81,0X80,0X80,0X80,0X80,0X80,0X80,0XFF,
};
//*****************************************************************************
//-----------------------------------------------------------------------------
void delay_us(uchar us_value)	//delay about 1 us
{
	while(us_value--)
	{
		_nop_();
		_nop_();
		_nop_();
	}
}
//-----------------------------------------------------------------------------
void delay_ms(uint dms)	//delay about 1 ms
{
	 int nn;

  	for(nn=0;nn<dms;nn++)
	{
  	  delay_us(250);
	}
}
void init_cpu()	//Initial 89C52
{
	LCD_DATA=0;

	RS =0;
	RW =0;
	E  =0;
	RST=0;
	CS1=0;
	delay_ms(1);
	RST=1;
	delay_us(10);
}
uchar read_stat(void)
{
	uchar tmp_stat;

	RS =0;
	RW =1;
	E  =1;
	delay_us(2);
	tmp_stat=LCD_DATA;
	E  =0;
	delay_us(1);

	return tmp_stat;
}
void wait()
{
	while((read_stat()&0x80)==0x80);
	delay_us(10);
}