键盘.c

基于AVR实验平台下ATMega128芯片实习作业

#include <iom128v.h>
#define req asm("sbi 0x03,6")
#define cl_req asm("cbi 0x03,6")
#define dat asm("sbi 0x18,0")
#define cl_dat asm("cbi 0x18,0")
#define cl_reset asm("cbi 0x15,3")
#define set_reset asm("sbi 0x15,3")
#define LCD 0x9000

void delay (unsigned int t)
{
unsigned char i;
for (i=1;i<t;i++);
}
void delay_1ms(void)                
  {
   unsigned int i;
   for (i=0;i<2286;i++);
  }
void delay_nms(unsigned int n)      
  {
   unsigned int i=0;
   for (i=0;i<n;i++)
   delay_1ms();
  }
  
void l_delay()                                     /* 延时  */
{
    unsigned char i=33;
	
    while(i!=0)
    {
	i--;
	}
}

void s_delay()                                      /* 延时  */
{
    unsigned char i=11;
	
    while(i!=0)
    {
    i--;
    }
}  

void move()
{int i;
 for(i=0;i<128;i++)
{lcd_w(0xf8);
delay_nms(2);}
  }
  
void move1()
{int i;
 for(i=0;i<64;i++)
{lcd_w(0xf6);
delay_nms(2);}
  }
void lcd_w(unsigned char data)
{unsigned char *p=(unsigned char *)(LCD);
while((PINE&0x80)!=0x00);
dat;
*p=data;
cl_dat;
;;
req;
;;
while((PINE&0x80)==0x00);
cl_req;
}
void lcd_init (void)
{
MCUCR=MCUCR|0x80;
DDRB|=0x01;
PORTB&=0xfe;
DDRE=0x40;
PORTE=0xff;
cl_reset;
delay(10);
set_reset;
delay(10);
cl_req;
delay(10);
}
void lcd_clear (void)
{
lcd_w(0xf4);
}


void lcd_putsc (unsigned char x,unsigned char y,unsigned char *ch)
{
x+=2;
while (*ch!=0)
{
lcd_w(0xf0);
lcd_w(x);
lcd_w(y);
lcd_w(*ch-0xa0);
ch++;
lcd_w(*ch-0xa0);
ch++;
if (x>=0x09)
{
x=2;
y+=1;
}
else 
x++;
}
}

void lcd_putsm(unsigned char x,unsigned char y,unsigned char *ch)
{int i;
x+=2;
while (*ch!=0)
{
lcd_w(0xf0);
lcd_w(x);
lcd_w(y);
lcd_w(*ch-0xa0);
ch++;
lcd_w(*ch-0xa0);
ch++;
for(i=0;i<16;i++)
{lcd_w(0xf8);
delay_nms(2);}
}
for(i=0;i<118;i++)
{lcd_w(0xf8);
delay_nms(2);
}
}

void lcd_putse(unsigned char x,unsigned char y,unsigned char *ch)
{
x+=4;
while (y<=64)
{
lcd_w(0xf3);
lcd_w(x);
lcd_w(y);
lcd_w(*ch);
ch++;
if (x>=19)
{
x=4;
y+=1;
}
else 
x++;
}
}

unsigned char a[]={
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x02,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x03,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x03,0x80,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x03,0xC0,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x03,0x74,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x03,0x5E,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x03,0x4E,0x04,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x02,0x4F,0x0E,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x26,0x4F,0x8E,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x3E,0x40,0xCF,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x3E,0x45,0xCB,0x80,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x86,0x26,0x47,0xF9,0x80,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x87,0x27,0x22,0x7D,0xE0,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x83,0xA3,0xB1,0x7D,0xE4,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x82,0xE5,0xFE,0xDE,0xE4,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x81,0xF3,0x8D,0x5E,0xF6,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x87,0x79,0x85,0xDE,0xFE,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x87,0x74,0x87,0xF4,0xFE,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x87,0x52,0xCF,0xFE,0xFF,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x82,0x4E,0xF8,0x03,0xEF,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xA5,0x61,0x80,0x00,0xFF,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xBD,0x3F,0x00,0x00,0x79,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xBD,0x18,0x00,0x00,0x6F,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xB5,0x30,0x00,0xE0,0x35,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xB6,0xE0,0x01,0xF0,0x3B,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xA9,0xE0,0x1F,0xF0,0x35,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xB4,0xC0,0xFF,0xE0,0x3B,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xBB,0xC3,0xFC,0x07,0x3E,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xB4,0xCC,0x02,0x0F,0xBC,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xB9,0x58,0x03,0x0F,0xBC,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x9D,0x70,0x01,0x07,0x38,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x9C,0x63,0xC0,0x00,0x20,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x91,0x6F,0xC1,0x80,0x40,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x88,0x73,0xC1,0x80,0x80,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x8F,0xE3,0xC0,0x01,0x80,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x87,0xB0,0x00,0x07,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x87,0xAC,0x00,0x1C,0x38,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x8D,0xB7,0x01,0xFF,0xEC,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x8C,0xBF,0xFF,0xF3,0xCA,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x88,0x64,0x7F,0xF8,0x62,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x84,0x40,0x3C,0x78,0x26,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x83,0x80,0x3D,0x78,0x46,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0xC0,0x3D,0x7E,0x7F,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x38,0x7D,0x7E,0x07,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x07,0xFC,0x7C,0x0F,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x00,0x7F,0xFC,0x07,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x00,0x7F,0xFC,0x01,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x00,0x7F,0xFC,0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x00,0xFF,0xFC,0x0F,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x01,0xBF,0xFC,0x07,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x03,0x3F,0xF2,0x03,0x81,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x02,0x1F,0xE2,0x02,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x04,0x0F,0xC3,0x0B,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x80,0x04,0x18,0xC1,0x0E,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,