}
 }

/**************************************************************************
*    函數(shù)原型: Uchar get_strokes(Uchar c);
*    功    能: 從LED顯示段碼表中查找并返回字符c的字型段碼。
**************************************************************************/
Uchar get_strokes(Uchar c) {
   Uchar i=0;
   while(led_strokes[i].ascii != c) i++;
   return(led_strokes[i].stroke);
 }

/**************************************************************************
*    函數(shù)原型: void put_on_leds(void);
*    功    能: 將當(dāng)前顯示緩沖區(qū)的字符輸出到LED顯示器上。
**************************************************************************/
void put_on_leds(void) {
   Uchar dmask=0xfe;                               /* 顯示位控制碼 */
   Uchar pos;
   for(pos=0; pos<8; pos++) {
      if(led_buf[pos]==0x00) put_off_leds();       /* 關(guān)顯示 */
      else {
     	 XBYTE[P8155IB]=get_strokes(led_buf[pos]); /* 輸出字型碼 */
     	 XBYTE[P8155IA]=dmask;                     /* 輸出位控制碼 */
      }
      delay(1);                                    /* 延時(shí)1ms */
      dmask=_crol_(dmask,1);                       /* 修改位控制碼 */
   }
 }

/**************************************************************************
*    函數(shù)原型: void put_off_leds(void);
*    功    能: 關(guān)閉LED顯示器。 
**************************************************************************/
void put_off_leds(void) {
    XBYTE[P8155IA]=0xff;
    XBYTE[P8155IB]=0xff;
 }

/**************************************************************************
*    函數(shù)原型: bit kb_hit(void);
*    功    能: 判斷是否有鍵被可靠地按下, 有則返回1, 否則返回0。 
**************************************************************************/
bit kb_hit(void) {
   put_off_leds();                       /* 關(guān)顯示 */
   XBYTE[P8155IB]=0x00;                  /* 往矩陣鍵盤列線送低電平 */
   if((XBYTE[P8155IC] & 0x3f)==0x3f)     /* 輸入并檢測(cè)行線狀態(tài) */
      return((bit)0);                    /* 行線為高電平時(shí)返回0 */
   delay(8);                             /* 延時(shí)8ms消顫 */
   if((XBYTE[P8155IC] & 0x3f)==0x3f)     /* 再次輸入并檢測(cè)行線狀態(tài) */
      return((bit)0);                    /* 行線為高電平時(shí)返回0 */
   return((bit)1);                       /* 有鍵可靠按下時(shí)返回1 */
 }

/**************************************************************************
*    函數(shù)原型: Uchar get_ch(void);
*    功    能: 等待用戶按鍵, 從矩陣鍵盤上輸入一個(gè)ASCII字符, 若輸入成功
*              則返回所輸入的字符, 否則返回0。
**************************************************************************/
Uchar get_ch(void) {
   Uchar row=0, col=0;
   Uchar mask=0xfe;
   Uchar pic;
   if(!kb_hit()) return(0);              /* 無(wú)鍵按下,輸入不成功, 返回0 */
   /* 分析按鍵所在的列號(hào) */
   XBYTE[P8155IB]=mask;
   while((XBYTE[P8155IC] & 0x3f)==0x3f && mask>0xef) {
      ++col;
      mask=_crol_(mask,1);
      XBYTE[P8155IB]=mask;
   }
   /* 分析按鍵所在的行號(hào) */
   pic=XBYTE[P8155IC] & 0x3f;
   mask=0x01;
   while(pic & mask) {
      ++row;
      mask=_crol_(mask,1);
   }
   /* 等待按鍵釋放 */
   while((XBYTE[P8155IC] & 0x3f)!=0x3f);
   XBYTE[P8155IB]=0xff;
   /* 計(jì)算按鍵序號(hào)并將其轉(zhuǎn)換成ASCII碼值返回 */
   pic=row*4+col;
   if(pic<10) pic+='0';
   else       pic+='A'-10;
   return(pic);
 }

/**************************************************************************
*    函數(shù)原型: * get_str(Uchar * str, Uchar len);
*    功    能: 從矩陣鍵盤輸入長(zhǎng)度為len的字符串, 并將其存儲(chǔ)在由指針str所
*              指向的存儲(chǔ)器空間, 并返回該指針。在輸入的同時(shí)滾動(dòng)顯示所輸
*              入的字符。
**************************************************************************/
Uchar * get_str(Uchar * str, Uint len) {
   Uchar pdata i;
   Uchar pdata ch;
   Uchar pdata keyboard_buf[14];             /* 定義鍵盤緩沖區(qū) */
   Uchar pdata ledbuf_pos=0, keybuf_pos=0;   /* 清除顯示緩沖區(qū) */
   set_led_buf(0x00,0,8);
   while(keybuf_pos<len) {
      put_on_leds();
      ch=get_ch();                           /* 輸入一個(gè)字符 */
      /* 如果成功, 將顯示緩沖區(qū)原有字符向左滾動(dòng)一位 */
      /* 并將新字符放在顯示緩沖區(qū)末尾, 并送鍵盤緩沖區(qū) */
      if(ch) {
	         for(i=ledbuf_pos; i>0; i--)
      	    led_buf[i]=led_buf[i-1];
     	 led_buf[0]=ch;
     	 if(++ledbuf_pos>7) ledbuf_pos=7;
     	 keyboard_buf[keybuf_pos++]=ch;
      }
   }
   for(i=0; i<255; i++) put_on_leds();       /* 短時(shí)顯示最后輸入的字符 */
   memcpy(str, keyboard_buf, len);           /* 拷貝鍵盤緩沖區(qū)中的輸入串 */
   return(str);
 }

/**************************************************************************
*    函數(shù)原型: bit set_date_time(void);
*    功    能: 輸入一個(gè)完整的表示日期和時(shí)間的字符串, 分析其合法性, 并將其
*              轉(zhuǎn)換成年、月、日、時(shí)、分、秒值后存儲(chǔ)到相應(yīng)的結(jié)構(gòu)變量中, 然
*              后啟動(dòng)計(jì)時(shí)和動(dòng)態(tài)時(shí)間顯示。如果成功則返回1, 否則返回0。
**************************************************************************/
bit set_date_time(void) {
   Uchar pdata str[14]; Uchar pdata ltime[5]; Uint pdata lyear;
   Uchar pdata lmonth, lday, lhour, lmin, lsec;
   get_str(str,14);
   for(lsec=0; lsec<14 && isdigit(str[lsec]); lsec++);
   if(lsec!=14) return((bit)0);          /* 日期時(shí)間字符串長(zhǎng)度錯(cuò), 返回0 */
   /* 下列語(yǔ)句從日期和時(shí)間字符串中分離出年月日和時(shí)分秒子字符串, 
      判斷它們的合法性, 如果合法則轉(zhuǎn)換成對(duì)應(yīng)的整數(shù)值, 否則返回0 */
   memcpy(ltime, str,4);
   ltime[4]=0;
   if(strcmp(ltime, "1995")<0) return((bit)0);
   lyear=atoi(ltime);
   memcpy(ltime,str+4,2);
   ltime[2]=0;
   if(strcmp(ltime,"01")<0 || strcmp(ltime, "12")>0) return((bit)0);
   lmonth=atoi(ltime);
   memcpy(ltime,str+6,2);
   ltime[2]=0;
   lday=atoi(ltime);
   if(lmonth==2 && (lyear%4==0 && lyear%100 != 0 || lyear%400==0))
      if(lday<1 || lday>29)    return((bit)0);
   if(lday<1 || lday>days_month[lmonth]) return((bit)0);
   memcpy(ltime,str+8,2);
   ltime[2]=0;
   if(strcmp(ltime,"23")>0)    return((bit)0);
   lhour=atoi(ltime);
   memcpy(ltime,str+10,2);
   ltime[2]=0;
   if(strcmp(ltime,"59")>0)    return((bit)0);
   lmin=atoi(ltime);
   memcpy(ltime,str+12,2);
   ltime[2]=0;
   if(strcmp(ltime,"59")>0)    return((bit)0);
   lsec=atoi(ltime);
   /* 將年月日時(shí)分秒值轉(zhuǎn)儲(chǔ)到相應(yīng)的結(jié)構(gòu)變量中去, */
   /* 啟動(dòng)計(jì)時(shí)并設(shè)置日期時(shí)間初始化和動(dòng)態(tài)顯示刷新標(biāo)志 */
   TR0=0;
   date.year=lyear;
   date.month=lmonth;
   date.day=lday;
   time.hour=lhour;
   time.min=lmin;
   time.sec=lsec;
   TMOD=V_TMOD;
   TL0=V_TL0;
   TH0=V_TH0;
   TR0=1;
   time_init=1;
   auto_flush=1;
   return((bit)1);
 }

/**************************************************************************
*    函數(shù)原型: void ask_date(void);
*    功    能: 將日期結(jié)構(gòu)變量的年月日整數(shù)值轉(zhuǎn)換成ASCII碼字符后拷貝到顯示
*              緩沖區(qū)并清除顯示緩沖區(qū)自動(dòng)刷新標(biāo)志。 
**************************************************************************/
 void ask_date(void) {
    Uchar s[8];
    /* 將日期結(jié)構(gòu)轉(zhuǎn)換成日期字符串 */
    s[0]=date.day%10+0x30;
    s[1]=date.day/10+0x30;
    s[2]='-';
    s[3]=date.month%10+0x30;
    s[4]=date.month/10+0x30;
    s[5]='-';
    s[6]=date.year%10+0x30;
    s[7]=(date.year/10)%10+0x30;
    auto_flush=0;                        /* 清除顯示緩沖區(qū)自動(dòng)刷新標(biāo)志 */
    memcpy(led_buf,s,8);                 /* 將日期字符串拷貝到顯示緩沖區(qū) */
    message_time=10;                     /* 將日期字符串顯示時(shí)間置為10秒 */
    message_flag=1;                      /* 設(shè)置日期顯示標(biāo)志 */
 }

/**************************************************************************
*    函數(shù)原型: void error_message(void);
*    功    能: 將字符串"ERROR"填充到顯示緩沖區(qū)。 
**************************************************************************/
void error_message(void) {
   auto_flush=0;                         /* 清除顯示緩沖區(qū)自動(dòng)刷新標(biāo)志 */
   set_led_buf('R',0,1);
   set_led_buf('O',1,1);
   set_led_buf('R',2,1);
   set_led_buf('R',3,1);
   set_led_buf('E',4,1);
   set_led_buf(0x00,5,3);
   message_time=10;                      /* 將出錯(cuò)信息顯示時(shí)間置為10秒 */
   message_flag=1;                       /* 設(shè)置錯(cuò)誤信息顯示標(biāo)志 */
 }