KEY_按鍵示例程序

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

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

data .section 'data' ;數(shù)據(jù)段
temp db ? ; 暫時(shí)數(shù)據(jù)寄存器
disp db ? ; 鍵值顯示寄存器
count1 db ? ; 延時(shí)計(jì)數(shù)指針
mask db ? ; 屏蔽寄存器
matrix db ? ; 鍵盤(pán)陣列寄存器
temp1 db ?
temp2 db ?
;------------------------------------------------------------------------------------------------------code
code .section at 0 'code' ;程序段
org 00h ; ISR 地址初始
jmp start
start: ; 程序開(kāi)始
clr pbc ; 設(shè)置PB口為輸出口
MOV a, 0f0h ;(1) ; 設(shè)置PA高4位為輸入口
; 設(shè)置PA低四位為輸出口
MOV PAC, a ;
clr pa ; 清PA 口
set pb ; 清PB 口
keyloop: ; 鍵掃描循環(huán)
MOV a, 0feh ;(2) ;掃描第一行是否被按下
MOV matrix, a ; 將第一行的代碼送matrix
MOV pa, a ; 輸出掃描碼到PA 口
MOV a, pa ; 讀入PA口 的狀態(tài)到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 ;?跳到鍵循環(huán)掃描
get_key: ; 取鍵值
call key_in ;(3) ; 調(diào)用key_in 子程序

MOV pb, a ;(11) ; 從PB口顯示鍵值
jmp keyloop ; 跳到鍵循環(huán)掃描
key_in proc ; 鍵值讀入子程序
MOV a, pa ;
MOV temp, a ;(4) ; 將PA口的狀態(tài)讀入的 temp寄存器中
MOV temp1,a
MOV temp2,a
call delays ;(5) ; 調(diào)用延時(shí)子程序
get_release: ; 等待鍵松開(kāi)
MOV a, pa ;將PA口的主狀態(tài)值送ACC

and a, 0f0h
xor a,0f0h ; 屏蔽ACC高四位，取按鍵狀態(tài)
sz acc ;(6) ; 等鍵松開(kāi) , 鍵如松開(kāi)則acc=0
jmp get_release ;
MOV a, 0fh ; 取屏蔽寄存器的低四位
andm a, temp ;
MOV a,temp
MOV a, 0
set c ;
get_row: ; 取行數(shù)
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 ; 延時(shí)子程序
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