单片机键盘扫描及数码管显示

1、单片机键盘扫描及数码管显示2010-08-19 09:32*MCS-51单片机汇编程序语言基本模型*ORG 0003HLJMP MY.INT0;外部中断0入口LED_D EQU 6ORG 0000HLJMP START;显示模块数;复位后程序计数器PC二0000HORG 000BHLJMP MY.T0;定时器中断0入口ORG 0013HLJMP MY.INT1;外部中断1入口ORG 001BHLJMP MY.T1ORG 0023HLJMP MY.TXORG 002BHLJMP MY.T2;定时器中断1入口;串行口中断入口;定时器中断2入口 (8032/8052)ORG 0030HSTART:;

2、程序开始MOV SP,#50H;设巻堆栈指针;MOV IE, S10000001B ;EA - ET2 ES ET1 EXI ETO EXOSETB EA ;总中断允许SETB EXO ;外部中断0允许MOV P1,#OFH;键盘中断条件MOV 30H,#0MOV 31H,#16; 16二空值MOV 32H,#16MOV 33H,#16MOV 34H,#16MOV 35H,#16LCALL LED.OUTLCALL DELAY;延时子程序MAIN:lcall keylcall led_outLCALL DELAY;延时子程序LJMP MAIN;程序结朿MY_ITO:;外部中断0服务子程序LCA

3、LL KEYLJMP GO_TOINTO.END:LCALL LED_OUT ;显示输出子程序RETI;中断返回MY_INT1:;外部中断1服务子程序RETI;中断返回MY_TO:;泄时器中断0服务子程序RETI;中断返回MY_T1:;泄时器中断1服务子程序RETI;中断返回MY_TX:;串行口中断服务子程序RETI;中断返回MY_T2:;泄时器中断2服务子程序(8032/8052)RETI;中断返回*;键盘扫描子程序;岀口： A二键值;占用:A, Pl, SP, R2, R3, R6, R7*KEY:LCALL KS1JZ KEYENDLCALL YS10MSLCALL KS1JZ KEYE

4、NDMOV R2,#OEFHMOV R3, #00H;是否有键按下;无键按下，返回;1OMS延时;是否有键按下;无键按下，返回;赋首列扫描字;赋首列指针LK1:MOV P1,R2;扫描字=>P1MOV A, Pl;读戸1 口JB ACC. 0, LONE ;0行无键按下，转1行MOV A, #0;0行有键按下，赋行号=>ALJMP LKP;转求键号LONE:JB ACC. 1,LTWO ; 1行无键按下，转2行MOV A, #4;1行有键按下，赋行号=>ALJMP LKP;转求键号LTWO:JB ACC. 2, LTHR ;2行无键按下，转3行MOV A, #8;2行有键按下

5、，赋行号=>ALJMP LKP;转求键号LTHR:JB ACC. 3, NEXT ;3行无键按下，转列加一MOV A, #12;3行有键按下，赋行号=>ALJMP LKP;转求键号NEXT:INC R3;列加一，指向下一列MOV A, R2;扫描字二ARL A;扫描字左移MOV R2, A;暂存扫描字LJMP LK1;转下一列扫描LKP:ADD A, R3;求键值（当前行+当前列）PUSH A;键值一压入堆栈LK2:LCALL KS1;是否有键按下JNZ LK2;A不等于0,再判断POP A;键已经释放，A二键值lcall YS10MS;10MS 延时lcall YS10MS;10

6、MS 延时KEYEND:；返回RET丰卒半半平不审茶券毕卒丰丰彷彷苹丰丰半节平彷毕举卒卒卒下卒不彷丰卒卒不不不不芥卒卒卒不彷苹毕丰平平丰丰不不怎茶KS1:;是否有键按下，有A二1,否则A=0MOV P1,#OFH ;列线全部有效MOV A, Pl;CPL A;ANL A, #OFH;RETYS10MS:涎时10亳秒,晶振频率为12. OOMHZMOV R6, #50LOOP:MOV R7, #98DJNZ R7, SNOPDJNZ R6, LOOPRETdelay：涎时mov r7, #1loop2:mov r6, #20;0loopl:mov r5,#50 djnz r5, $ djnz r

7、6,loopl djnz r7,loop2retLED.OUT:；显示输出子程序(741S164)MOV RO, #30H;显示缓冲区首地址MOV R2, #LED_D ;显示模块长度MOV DPTR, STABLED_01:MOV A, R0INC ROMOVC A,©A+DPTRMOV SBUF,AJNB TI,$CLR TIDJNZ R2, LED_OCLR P3. 4SETB P3. 4;锁存脉冲RET*X*t» 丫 r* * j : T . I | J 丫 ( * | *y* * | «7» 丫. j j | < *T» 丫.

8、| | rTAB:;段码表 ABCDEFG.DB0000001IBDB10011U1BDB00100101BDB00001101BDB10011001BDB01001001BDB01000001BDB00011U1BDB00000001BDB00001001B0123456789DB00010001BADB11000001BBDB01100011BCDB1OOOO1O1BDDB0U00001BEDB01110001BFDB11111U1B空DB1111U01B一;段码表ABCDEFG. *fMY_R:;显示缓冲区左移MOV 35H, 34HMOV 34H, 33HMOV 33H,32HMOV

9、32H, 31HMOV 31H, 30HRET *fGO.TO:;散转程序;散转表首地址;键值;乘2;0转移MOV DPTR, #TBJMOV 40H, AADD A, 40HJMP ©A+DPTRTBJ: SJMP MY_KOSJMP MY.KlSJMP MY.K2SJMP HY_K3SJMP HY_K4SJMP HY_K5SJMP HY_K6SJMP MY.K7SJMP MY.K8SJMP MY.K9SJMP MY.K1OSJMP MY.KllSJMP MY.K12SJMP MY.K13SJMP MY.K14SJMP MY.K15MY_KO:LJMP MY.KEYOMY_K1:L

10、JMP MY.KEYlMY_K2:LJMP MY.KEY2MY_K3:MY_K4:MY_K5:MY_K6:MY_K7:MY_K8:MY_K9:MY_K10:MY_K11:MY_K12:MY_K13:MY_K14:MY_K15:TMY_KEYO:MY_KEY1:MY_KEY2:MY_KEY3:LJMP MY.KEY3LJMP HY_KEY4LJMP MY.KEY5LJMP MY.KEY6LJMP MY_KEY7LJMP MY_KEY8LJMP HY_KEY9LJMP MY.KEY10LJMP MY.KEY11LJMP MY.KEY12LJMP HY_KEY13LJMP MY_KEY14LJMP

11、MY_KEY15;此处添加0号键程序代码LCALL MY_R ;缓冲区显示值左移一位MOV 30H, #0LJMP INTO.END;此处添加1号键程序代码LCALL MY_RMOV 30H, #1LJMP INTOJND;此处添加2号键程序代码LCALL MY_RMOV 30H, #2LJMP INTO.END;此处添加3号键程序代码LCALL MY_RMOV 30H, #3LJMP INTO.ENDMY_KEY4:;此处添加4号键程序代码LCALL MY_RMOV 30比 #4LJMP INTO.ENDMY_KEY5:;此处添加5号键程序代码LCALL MY_RMOV 30H, #5LJM

12、P INTO.ENDMY_KEY6:;此处添加6号键程序代码LCALL MY_RMOV 30H, #6LJMP INTO.ENDMY_KEY7:;此处添加7号键程序代码LCALL MY_RMOV 30H, #7LJMP INTO.ENDMY_KEY8:;此处添加8号键程序代码LCALL MY_RMOV 30H, #8LJMP INTO.ENDMY_KEY9:;此处添加9号键程序代码LCALL MY_RMOV 30H, #9LJMP INTO.ENDMY_KEY10:;此处添加A号键程序代码LCALL MY_RMOV 30H, #10LJMP INTO.ENDMY_KEY11:;此处添加B号键程序代码LCALL MY_RMOV 30H,#ULJMP INTO.ENDMY_KEY12:;此处添加C号键程序代码LCALL MY_RMOV 30