KEYCARD BIT 00H ;用于标志是否有键按下
KEYCOUEQU 5AH ;用于记录按下键的次数
ORG 0000H;程序开始
AJMP START
ORG 30H;为避免占用中断向量区,主程序从30H开始
START:
MOV SP,#5FH;设置堆栈的初始地址
MOV P3,#0FH;P3,P2,P0的初始化
MOV P2,#00H
MOV P0,#0FFH
CLR KEYCARD;有按键标志清0
MOV KEYCOU,#0 ;计数初值赋0
LOOP: ;循环扫描键盘
ACALL KEY_CHECK
JNB KEYCARD,DISPLAY
INC KEYCOU
DISPLAY: ;显示程序
MOV A,KEYCOU;选显示第一位高位
DA A
ANL A,#0xF0 ;获得高四位
SWAP A;将A的高四位和低四位对调
MOV DPTR,#TAB;获得对应的显示码
MOVC A,@A+DPTR
MOV P0,A ;把显示码传至A口
MOV P2,#01H ;选通P2.0,显示
ACALL DELAY1S
MOV A,KEYCOU
DA A
ANL A,#0x0F
MOVC A,@A+DPTR
MOV P0,A
MOV P2,#02H;选通P2.1,显示
ACALL DELAY1S
AJMP LOOP
KEY_CHECK:;看有没有键按下
MOV A,P3
ANL A,#0FH
CJNE A,#0FH,KEY_CER;如果读入的与写出的不相等,延时消抖
CLR KEYCARD
RET
KEY_CER:;延时,再读入,看是否真的有键按下
ACALL DELAY1S
MOV A,P3
ANL A,#0FH
CJNE A,#0FH,KEY_CE
CLR KEYCARD
RET
KEY_CE:
MOV A,P3;直等到按键放下,则算作一次
ANL A,#0FH
CJNE A,#0FH,KEY_CE
SETB KEYCARD ;真的有键按下,则置标志位
RET
DELAY1S:;延时函数
MOV R7,#10
D1:
MOV R6,#50
DJNZ R6,$
DJNZ R7,D1
RET
KEY_VALUE: ;键值表
DB 0EBH,0DBH,0BBH,7BH,0E7H,0D7H,0B7H,77H
TAB: ;显示码
DB 0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,0x80,0x90