KEY_按键示例程序

KEY_按键示例程序

;*************************************************************

#include ht48c10.inc
;------------------------------------------------------------------------data

data .section 'data' ;数据段
temp db ? ; 暂时数据寄存器
disp db ? ; 键值显示寄存器
count1 db ? ; 延时计数指针
mask db ? ; 屏蔽寄存器
matrix db ? ; 键盘阵列寄存器
temp1 db ?
temp2 db ?
;------------------------------------------------------------------------------------------------------code
code .section at 0 'code' ;程序段
org 00h ; ISR 地址初始
jmp start
start: ; 程序开始
clr pbc ; 设置PB口为输出口
MOV a, 0f0h ;(1) ; 设置PA高4位为输入口
; 设置PA低四位为输出口
MOV PAC, a ;
clr pa ; 清PA 口
set pb ; 清PB 口
keyloop: ; 键扫描循环
MOV a, 0feh ;(2) ;扫描第一行是否被按下
MOV matrix, a ; 将第一行的代码送matrix
MOV pa, a ; 输出扫描码到PA 口
MOV a, pa ; 读入PA口 的状态到ACC
xor a, 0feh ;屏蔽高四位，取出键所在的列
sz acc ; 第一行是否有键按下
jmp get_key ;有键按下跳到读键值
MOV a, 0fdh ;(2) ; 扫描第二行是否被按下
MOV matrix, a ; 将第二行的代码送matrix
MOV pa, a ;
MOV a, pa ;
xor a, 0fdh ;
sz acc ;
jmp get_key ;
MOV a, 0fbh ;(2) ; 扫描第三行是否被按下
MOV matrix, a ; 将第三行的代码送matrix
MOV pa, a ;
MOV a, pa ;
xor a, 0fbh ;
sz acc ;
jmp get_key ;
MOV a, 0f7h ;(2) ; 扫描第四行是否被按下
MOV matrix, a ; 将第三行的代码送matrix
MOV pa, a ;
MOV a, pa ;
xor a, 0f7h ;
sz acc ;
jmp get_key ;
jmp keyloop ;?跳到键循环扫描
get_key: ; 取键值
call key_in ;(3) ; 调用key_in 子程序

MOV pb, a ;(11) ; 从PB口显示键值
jmp keyloop ; 跳到键循环扫描
key_in proc ; 键值读入子程序
MOV a, pa ;
MOV temp, a ;(4) ; 将PA口的状态读入的 temp寄存器中
MOV temp1,a
MOV temp2,a
call delays ;(5) ; 调用延时子程序
get_release: ; 等待键松开
MOV a, pa ;将PA口的主状态值送ACC

and a, 0f0h
xor a,0f0h ; 屏蔽ACC高四位，取按键状态
sz acc ;(6) ; 等键松开 , 键如松开则acc=0
jmp get_release ;
MOV a, 0fh ; 取屏蔽寄存器的低四位
andm a, temp ;
MOV a,temp
MOV a, 0
set c ;
get_row: ; 取行数
rrc temp ;(7) ; 右移 matrix 指针
snz status.0 ; 检查并取键行
jmp get_column1 ; 如果找到键行，跳到 get_next
clr c ; 如果还未找到键行，清carry_c
add a, 4h ;(8) ; 加4到显示指针
jmp get_row ; 跳回get_row

get_column1: ; 取列值
MOV temp,a
MOV a,0f0h
andm a, temp2
swap temp2
MOV a,0h
get_column:
rrc temp2
snz status.0
jmp next
clr c
add a,1h
jmp get_column
next: add a,temp
xor a,0ffh
ret
key_in endp
delays proc ; 延时子程序
MOV a, 0ffh ;
MOV count1, a ;
d1:
sdz count1
jmp d1
ret
delays endp
org 300h ; light up table
dc 0ffh, 0feh, 0fdh, 0fch
dc 0fbh, 0fah, 0f9h, 0f8h
dc 0f7h, 0f6h, 0f5h, 0f4h
dc 0f3h, 0f2h, 0f1h, 0f0h
end