單片機(jī)鍵盤掃描及數(shù)碼管顯示

1、單片機(jī)鍵盤掃描及數(shù)碼管顯示2010-08-19 09:32*MCS-51單片機(jī)匯編程序語言基本模型*ORG 0003HLJMP MY.INT0;外部中斷0入口LED_D EQU 6ORG 0000HLJMP START;顯示模塊數(shù);復(fù)位后程序計(jì)數(shù)器PC二0000HORG 000BHLJMP MY.T0;定時(shí)器中斷0入口ORG 0013HLJMP MY.INT1;外部中斷1入口ORG 001BHLJMP MY.T1ORG 0023HLJMP MY.TXORG 002BHLJMP MY.T2;定時(shí)器中斷1入口;串行口中斷入口;定時(shí)器中斷2入口 (8032/8052)ORG 0030HSTART:;

2、程序開始MOV SP,#50H;設(shè)巻堆棧指針;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;延時(shí)子程序MAIN:lcall keylcall led_outLCALL DELAY;延時(shí)子程序LJMP MAIN;程序結(jié)朿MY_ITO:;外部中斷0服務(wù)子程序LCA

3、LL KEYLJMP GO_TOINTO.END:LCALL LED_OUT ;顯示輸出子程序RETI;中斷返回MY_INT1:;外部中斷1服務(wù)子程序RETI;中斷返回MY_TO:;泄時(shí)器中斷0服務(wù)子程序RETI;中斷返回MY_T1:;泄時(shí)器中斷1服務(wù)子程序RETI;中斷返回MY_TX:;串行口中斷服務(wù)子程序RETI;中斷返回MY_T2:;泄時(shí)器中斷2服務(wù)子程序(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延時(shí);是否有鍵按下;無鍵按下，返回;賦首列掃描字;賦首列指針LK1:MOV P1,R2;掃描字=>P1MOV A, Pl;讀戸1 口JB ACC. 0, LONE ;0行無鍵按下，轉(zhuǎn)1行MOV A, #0;0行有鍵按下，賦行號(hào)=>ALJMP LKP;轉(zhuǎn)求鍵號(hào)LONE:JB ACC. 1,LTWO ; 1行無鍵按下，轉(zhuǎn)2行MOV A, #4;1行有鍵按下，賦行號(hào)=>ALJMP LKP;轉(zhuǎn)求鍵號(hào)LTWO:JB ACC. 2, LTHR ;2行無鍵按下，轉(zhuǎn)3行MOV A, #8;2行有鍵按下

5、，賦行號(hào)=>ALJMP LKP;轉(zhuǎn)求鍵號(hào)LTHR:JB ACC. 3, NEXT ;3行無鍵按下，轉(zhuǎn)列加一MOV A, #12;3行有鍵按下，賦行號(hào)=>ALJMP LKP;轉(zhuǎn)求鍵號(hào)NEXT:INC R3;列加一，指向下一列MOV A, R2;掃描字二ARL A;掃描字左移MOV R2, A;暫存掃描字LJMP LK1;轉(zhuǎn)下一列掃描LKP:ADD A, R3;求鍵值（當(dāng)前行+當(dāng)前列）PUSH A;鍵值一壓入堆棧LK2:LCALL KS1;是否有鍵按下JNZ LK2;A不等于0,再判斷POP A;鍵已經(jīng)釋放，A二鍵值lcall YS10MS;10MS 延時(shí)lcall YS10MS;10

6、MS 延時(shí)KEYEND:；返回RET豐卒半半平不審茶券畢卒豐豐彷彷蘋豐豐半節(jié)平彷畢舉卒卒卒下卒不彷豐卒卒不不不不芥卒卒卒不彷蘋畢豐平平豐豐不不怎茶KS1:;是否有鍵按下，有A二1,否則A=0MOV P1,#OFH ;列線全部有效MOV A, Pl;CPL A;ANL A, #OFH;RETYS10MS:涎時(shí)10亳秒,晶振頻率為12. OOMHZMOV R6, #50LOOP:MOV R7, #98DJNZ R7, SNOPDJNZ R6, LOOPRETdelay：涎時(shí)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;顯示緩沖區(qū)首地址MOV R2, #LED_D ;顯示模塊長(zhǎng)度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:;顯示緩沖區(qū)左移MOV 35H, 34HMOV 34H, 33HMOV 33H,32HMOV

9、32H, 31HMOV 31H, 30HRET *fGO.TO:;散轉(zhuǎn)程序;散轉(zhuǎn)表首地址;鍵值;乘2;0轉(zhuǎn)移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號(hào)鍵程序代碼LCALL MY_R ;緩沖區(qū)顯示值左移一位MOV 30H, #0LJMP INTO.END;此處添加1號(hào)鍵程序代碼LCALL MY_RMOV 30H, #1LJMP INTOJND;此處添加2號(hào)鍵程序代碼LCALL MY_RMOV 30H, #2LJMP INTO.END;此處添加3號(hào)鍵程序代碼LCALL MY_RMOV 30H, #3LJMP INTO.ENDMY_KEY4:;此處添加4號(hào)鍵程序代碼LCALL MY_RMOV 30比 #4LJMP INTO.ENDMY_KEY5:;此處添加5號(hào)鍵程序代碼LCALL MY_RMOV 30H, #5LJM

12、P INTO.ENDMY_KEY6:;此處添加6號(hào)鍵程序代碼LCALL MY_RMOV 30H, #6LJMP INTO.ENDMY_KEY7:;此處添加7號(hào)鍵程序代碼LCALL MY_RMOV 30H, #7LJMP INTO.ENDMY_KEY8:;此處添加8號(hào)鍵程序代碼LCALL MY_RMOV 30H, #8LJMP INTO.ENDMY_KEY9:;此處添加9號(hào)鍵程序代碼LCALL MY_RMOV 30H, #9LJMP INTO.ENDMY_KEY10:;此處添加A號(hào)鍵程序代碼LCALL MY_RMOV 30H, #10LJMP INTO.ENDMY_KEY11:;此處添加B號(hào)鍵程序代碼LCALL MY_RMOV 30H,#ULJMP INTO.ENDMY_KEY12:;此處添加C號(hào)鍵程序代碼LCALL MY_RMOV 30