/*-----------------------------------------------------*
*文件描述:本文件包含了H08C鍵盤中斷子函數分別為:???????*??
*（1）KB_Init:鍵盤初始化函數?????????????????????????????*
*???void?KB_Init（void）?????????????????????????????????*
*（2）KB_Scan:掃描讀取鍵值函數???????????????????????????*
*???unsigned?char?KB_Scan（void）????????????????????????*
*（3）KB_Def:鍵值轉為定義值函數??????????????????????????*
*???unsigned?char?KB_Def（unsigned?char?KB_valve）???????*
*-----------------------------------------------------*/
/*[以下為子程序源代碼]*/
/*[頭文件]*/
#include?“GP32C.H“
#include?“KB.h“
/*KB_Init:鍵盤初始化函數-------------------------------*
*功??能:初始化鍵盤中斷的引腳，但未開放鍵盤中斷?????????*
*參??數:無?????????????????????????????????????????????*
*返??回:無?????????????????????????????????????????????*
*-----------------------------------------------------*/??
unsigned?char?flag=0;
void?KB_Init（void）
{
	?KB_P=0x00;?????????????//復位KB_P
	?KB_D=0b00001111;???????//定定義7-4為輸入3-0為輸出
	?KB_PUE=0b11110000;?????//定義輸入引腳有內部上拉電阻
	?//INTKBSCR|=?（1<	//?INTKBIER=0b11110000;???//允許輸入引腳的中斷可進入
	//?INTKBSCR|=?（1<}
/*KB_Scan:掃描讀取鍵值函數-----------------------------*
*功??能:掃描一次4*4鍵盤上的按鍵，讀取鍵值->*p??????????*
*?????????若無按鍵，*p為0xff???????????????????????????*
*參??數:無?????????????????????????????????????????????*
*返??回:掃描到的鍵值???????????????????????????????????*
*-----------------------------------------------------*/??
unsigned?char?KB_Scan（void）?
?{
	?unsigned?char?lineitmp;
?????line=0b11111110;????????//使第一根行線為0（低電平）
	?for（i=1;i<=4;i++）?????????//將掃描4根行線
	??{	
????????tmp=KB_P;????????????//取KB_P->tmp
????????tmp|=0b00001111;?????//KB_P.7-4保留KB_P.3-0為1
????????KB_P=tmp&line;???????//令KB_P.n=0n=0、1、2、3
	????asm（“NOP“）;????????????//等待，消除按鍵抖動
	????asm（“NOP“）;
	????tmp=KB_P;
	????tmp&=0b11110000;???????//看第n行是否有鍵按下
	????if（tmp!=0xf0）??????????//本行有鍵按下
	?????{
	????????tmp=KB_P;
		????break;
	?????}
	?????else??????????????????//本行無鍵按下掃描下一行
		????line=（line<<1）|0x01;?
	?}	
	??if（i==5）???tmp=0xff;
	??
	??return（tmp）;
?}
?unsigned?char?KB_Scan2（void）?
?{
	?unsigned?char?lineitmptmp1tmp2line1line2line3;
?????line=0b11110111;????????//使第四根行線為0（低電平）
	?for（i=1;i<=4;i++）?????????//將掃描4根行線
	??{	
????????tmp=KB_P;????????????//取KB_P->tmp
????????tmp|=0b00001111;?????//KB_P.7-4保留KB_P.3-0為1
????????KB_P=tmp&line;???????//令KB_P.n=0n=0、1、2、3
	????asm（“NOP“）;????????????//等待，消除按鍵抖動
	????asm（“NOP“）;
	????tmp=KB_P;
	????tmp&=0b11110000;???????//看第n行是否有鍵按下
	????if（tmp!=0xf0）??????????//本行有鍵按下
	?????{
	????????tmp=KB_P;
	????????if（tmp==0xe7||tmp==0xd7）
	????????{
	???????????line1=0b11111110;
	???????????for（i=1;i<=3;i++）
	???????????{
	????????????tmp1=KB_P;????????????//取KB_P->tmp
????????????????tmp1|=0b00001111;?????//KB_P.7-4保留KB_P.3-0為1
????????????????KB_P=tmp1&line1;???????//令KB_P.n=0n=0、1、2、3
	????????????asm（“NOP“）;????????????//等待，消除按鍵抖動
	????????????asm（“NOP“）;
	????????????tmp1=KB_P;
	????????????tmp1&=0b1

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件?????????35??2007-06-18?09:21??電子琴6.6WAN\diazq.lk

?????文件??????36186??2007-06-18?09:21??電子琴6.6WAN\diazq.lst

?????文件????????599??2007-06-18?09:21??電子琴6.6WAN\diazq.mak

?????文件???????3648??2007-06-18?09:21??電子琴6.6WAN\diazq.mp

?????文件????????187??2007-06-18?09:21??電子琴6.6WAN\diazq.prj

?????文件???????5316??2007-06-18?09:21??電子琴6.6WAN\diazq.s19

?????文件?????????93??2007-06-18?09:21??電子琴6.6WAN\diazq.src

?????文件???????5592??2006-04-12?11:14??電子琴6.6WAN\gp32c.h

?????文件????????500??2006-04-12?11:14??電子琴6.6WAN\KB.h

?????文件???????6230??2007-06-07?20:16??電子琴6.6WAN\KBsub.c

?????文件??????27215??2007-06-18?09:21??電子琴6.6WAN\KBsub.lis

?????文件???????5158??2007-06-18?09:21??電子琴6.6WAN\KBsub.o

?????文件??????12111??2007-06-18?09:21??電子琴6.6WAN\KBsub.s

?????文件???????4773??2007-06-07?20:07??電子琴6.6WAN\main.c

?????文件??????26285??2007-06-18?09:21??電子琴6.6WAN\main.lis

?????文件???????6426??2007-06-18?09:21??電子琴6.6WAN\main.o

?????文件??????10913??2007-06-18?09:21??電子琴6.6WAN\main.s

?????文件???????1803??2005-04-16?11:05??電子琴6.6WAN\setup.c

?????文件???????3286??2007-06-18?09:21??電子琴6.6WAN\setup.lis

?????文件????????273??2007-06-18?09:21??電子琴6.6WAN\setup.o

?????文件???????2156??2007-06-18?09:21??電子琴6.6WAN\setup.s

?????文件???????1655??2007-06-06?11:02??電子琴6.6WAN\vectors08.c

?????文件???????2722??2007-06-18?09:21??電子琴6.6WAN\vectors08.lis

?????文件????????672??2007-06-18?09:21??電子琴6.6WAN\vectors08.o

?????文件???????1481??2007-06-18?09:21??電子琴6.6WAN\vectors08.s

?????目錄??????????0??2009-03-25?22:45??電子琴6.6WAN

-----------?---------??----------?-----??----

???????????????165315????????????????????26