📄 keyscan_9.asm
字号:
;///////////////////////////////////////////
;本程序源代码由单片机培训网提供.
;单片机培训网,让更多人学习单片机更容易.
;第一网址----www.mcuedu.com
;第二网址----http://51_train.nease.net
;创办人------刘永忠
;热线电话----(0755)27529998
;email-------aa815@163.com
;本程序实现同时按"b"键,"C"键,“D”键一次则向上加一功能.
;占用的位资源：20h,21h
;占用的字节资源：30h,31h,32h,33h,34h,35h,36h,r2,r5,r6,r7,a
;按键行列值表示如下：
;----P1.7---P1.6---P1.5---P1.4-------
;----03H----02H----01H----00H----P1.0
;----07H----06H----05H----04H----P1.1
;----0BH----0AH----09H----08H----P1.2
;----0FH----0EH----0DH----0CH----P1.3
;///////////////////////////////////////////
org 0000h
ajmp main
org 0030h
main:
mov dptr,#tab
mov 30h,#00h
mov 31h,#00h
mov 32h,#00h
mov 33h,#00h
clr 20h ;B键按下标志位
clr 21h ;c键按下标志位
loop:
lcall display ;调用显示程序
mov 34h,#0ffh ;将34H置高
mov 35h,#0ffh ;
mov 36h,#0ffh
mov r0,#34h
lcall key
cpl a
jz loop ;无键按下跳转
mov a,34h
cjne a,#0ch,loop; ;若C键未按下则返回到LOOP处
mov a,35h ;若C键按下则进行下一B键的判断
cjne a,#0bh,loop;
; mov a,36h ;若B键按下则进行下一步D键的判断
; cjne a,#0dh,loop;
tt5:lcall incdigit ;若B\C\D键都按下则调用向上加一的子程序
ljmp loop ;向上加一动作完成则返回主程序LOOP处循环
incdigit:
inc 30h ;将30H单元中的数加一
mov a,30h ;将30H单元的值送入ACC
cjne a,#10,incdelay ;ACC中的值与10不相等跳转
mov 30h,#00h ;ACC中的值与10相等,把30H单元的值清零
inc 31h ;31H单元向上加一
mov a,31h ;将31H单元的值送入ACC
cjne a,#6,incdelay ;ACC中的值与6不相等跳转
mov 31h,#00h ;将31H单元清零
incdelay:
ret
display:
mov p2,#0ffh ;将P2口置高电平
mov r7,#100 ;软件计数器赋值
dd1:
mov a,30h ;将显示缓冲区30H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.0 ;开个位显示单元
lcall delay100us ;延时100US
setb p2.0 ;关个位显示单
mov a,31h ;将显示缓冲区别31H中的值送入A
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.1 ;开十位显示单元
lcall delay100us ;延时100US
setb p2.1 ;关十位显示单元
mov a,32h ;将显示缓冲区32H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.2 ;开百位显示单元
lcall delay100us ;延时100US
setb p2.2 ;关百位显示单元
mov a,33h ;将显示缓冲区33H中的值送入ACC
movc a,@a+dptr ;查表取要显示的数并把查表的结果送入ACC
mov p0,a ;将要显示的数送入P0口
clr p2.3 ;开千位显示单元
lcall delay100us ;延时100US
setb p2.3 ;关千位显示单元
djnz r7,dd1 ;R7不等于0返回至DD1处
ret ;R7等于0子程序返回
KEY: LCALL KS ;调用检测按键子程序
JNZ K1 ;有键按下继续
ljmp key_exit ;无键按下退出KEY子程序
K1: LCALL delay4ms ;返回继续检测有无按键按下
LCALL delay4ms
LCALL KS ;有键按下继续延时去抖动
JNZ K2 ;再一次调用检测按键程序
ljmp key_exit ;无键按下退出KEY子程序
K2: MOV R2,#0EFH ;将扫描值送入 R2暂存
MOV R4,#00H ;将第一列的列值00H送入R4暂存,R4用于存放列
K3: MOV P1,R2 ;将R2的值送入P1口
L6: JB P1.0,L1 ;P1.0等于1跳转到L1
MOV A,#00H ;将第一行的行值00H送入ACC
ADD A,R4 ;将行值和列值相加生成键值
mov @r0,a ;将键值存入键盘缓冲区
inc r0 ;键盘缓冲区指针加一
L1: JB P1.1,L2 ;P1.1等于1跳转到L2
MOV A,#04H ;将第二行的行值04H送入ACC
ADD A,R4 ;将行值和列值相加生成键值
mov @r0,a ;将键值存入键盘缓冲区
inc r0 ;键盘缓冲区指针加一
L2: JB P1.2,L3 ;P1.2等于1跳转到L3
MOV A,#08H ;将第三行的行值08H送入ACC
ADD A,R4 ;将行值和列值相加生成键值
mov @r0,a ;将键值存入键盘缓冲区
inc r0 ;键盘缓冲区指针加一
L3: JB P1.3,NEXT ;P1.3等于1跳转到NEXT
MOV A,#0cH ;将第四行的行值0cH送入ACC
ADD A,R4 ;将行值和列值相加生成键值
mov @r0,a ;将键值存入键盘缓冲区
inc r0 ;键盘缓冲区指针加一
ljmp next 跳转到next
NEXT:
INC R4 ;将列值加一
MOV A,R2 ;将R2的值送入A
JNB ACC.7,k4 ;扫描完成跳至KEY处进行下一回合的扫描
RL A ;扫描未完成将A中的值右移一位进行下一列的扫描
MOV R2,A ;将ACC的值送入R2暂存
AJMP K3 ;跳转到K3继续
K4:
mov a,35h ;将键盘缓冲区的最后一个单元的内容送入A
cjne a,#0ffh,key_exit1 ;如果键盘缓冲区最后一个单元不是0FFH,跳转到key_exit1
ajmp key_exit ;
key_exit1:
lcall display ;调用动态显示子程序
LCALL KS ;调用检测按键子程序
JNZ K4 ;键没松开则跳转到K4
key_exit:
mov a,34h
ret
KS: MOV P1,#0FH ;将P1口高四位置0低四位值1
MOV A,P1 ;读P1口
XRL A,#0FH ;将A中的值与A中的值相异或
RET ;子程序返回
delay4ms: ;4ms
MOV R5,#08H
L7: MOV R6,#0FAH
L8: DJNZ R6,L8
DJNZ R5,L7
RET
delay100us:
mov r5,#50
djnz r5,$
ret
tab: db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h,88h,83h,0c6h,0a1h,86h,8eh
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -