51單片機超省P口的鍵盤程序，帶proteus仿真

DT    EQU 21H
KEYBK EQU 22H
KV    EQU 23H
D11   EQU 24H
D12   EQU 25H
MYP2  EQU 26H
ORG 0000H

AJMP START
ORG 000BH ;定時器T0的入口

AJMP DISP ;顯示程序

ORG 30H


START:

MOV SP,#5FH ;設(shè)置堆棧
MOV MYP2,#0FCH;保存P2口初設(shè)值

MOV DPTR,#ASCII
MOV DT ,#0AH ;可以調(diào)整延時時間
MOV KV,#0H ;保存當前所按鍵的值
MOV TMOD,#00000001B ;定時器T0工作于模式1（16位定時/計數(shù)模式）

MOV TH0,#HIGH(65535-1000)
MOV TL0,#LOW(65535-1000) ;賦定時器初值,這里為了驗證秒數(shù)正確性，設(shè)一開機就進入定時中斷

SETB EA
SETB ET0 ;開T0中斷

SETB TR0  ;啟動定時器


LOOP:
;加入你要的工作
AJMP LOOP
;;;;;;;;;;;;;;;

DISP:
MOV TH0,#HIGH(65535-1000)
MOV TL0,#LOW(65535-1000) ;賦定時器初值

DEC MYP2 ; FC減一就是FB了
;從F0到FB共12個LED數(shù)碼管，
;我這里管的接法是根據(jù)我在用的板子接的，不是abcdefgh順序?qū)Φ?
MOV A,MYP2 
CJNE A,#0EFH,NEXT;一個個數(shù)碼管顯示的，比較是否己是最后一個，
;因為我是從第十二個開始掃描的，也就是fb, MOV MYP2,#0FCH;保存P2口初設(shè)值
第一個是F0，再減一就成EF了。
MOV MYP2,#0FBH; 如果是第一個了就把初值重置成第十二個的值,不是跳到next


NEXT:
MOV A,MYP2
CJNE A,#0F1H,DISP12  ;我這里只用到了每一二兩個數(shù)碼管用于顯示
MOV P2,MYP2

MOV P0,D12
LCALL SCANKEY ;顯示后調(diào)用鍵盤掃描子程序
;LCALL DELAY10MS
RETI

DISP12:
CJNE A,#0F0H,OTHER
MOV P2,MYP2
MOV P0,D11
LCALL SCANKEY
LCALL DELAY10MS
RETI

OTHER:
MOV P2,MYP2  ;不是第一和二的管不顯示
MOV P0,#0FFH

LCALL SCANKEY
RETI
;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SCANKEY:
PUSH PSW
PUSH ACC

MOV A,P2
MOV KEYBK,A
LCALL DELAY10MS
MOV A,P2
CJNE A,KEYBK,RELOOP
CJNE A,#0F9H,NOSAME;檢測是不是真的有按鍵，沒有就返回中斷
NOSAME:
JNC RELOOP
CJNE A,#0B9H,KL3
KL3:
JNC KL2
MOV A,KEYBK
CLR C
SUBB A,#09DH;這里的算法是按鍵值減去一個值，得到在要顯示的鍵值，
;轉(zhuǎn)化后去碼表中得取得數(shù)碼管能顯示的相應(yīng)值
MOV KV,A
AJMP RELOOP

KL2:
CJNE A,#0D9H,KL2SET
KL2SET:
JNC KL1
MOV A,KEYBK
CLR C
SUBB A,#0C6H
MOV KV,A
AJMP RELOOP

KL1:
CJNE A,#0E9H,KL1SET
KL1SET:
JNC RELOOP

MOV A,KEYBK
CLR C
SUBB A,#0DFH
MOV KV,A
AJMP RELOOP

RELOOP:
MOV A,KV
CJNE A,#0H,CUTKEY
MOV D11,#041H
MOV D12,#041H
POP ACC
POP PSW
RET


CUTKEY:
MOV B,#0AH
DIV AB
MOVC A,@A+DPTR
MOV D11,A
MOV A,B
MOVC A,@A+DPTR
MOV D12,A
POP ACC
POP PSW
RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DELAY10MS:       ;延時函數(shù)

PUSH PSW

SETB RS0
    MOV    R7,DT
D1:
    MOV    R6,#032H
    DJNZ    R6,$
    DJNZ    R7,D1
POP PSW
    RET

ASCII: DB  041H,077H,0c2H,052H,074H   ;數(shù)字碼表 因為管腳接法不同，所以0-9值不同
       DB  058H,048H,073H,040H,050H
       
;

END