At89c51单片机键盘扫描和显现程序

;******************************************************
;* 称号:kbd
;* 功用:从键盘中读入按键值，存入寄存器A:r*4+c
;* 输入:
;* 输出: A=按键值
;******************************************************
org 0000h
ljmp main

org 0200h
main:
init:
MOV 60H,#10h
MOV 61H,#10h
MOV 62H,#10h
MOV 63H,#10h
wait:
acall keyscan ;有键按下,转定按键方位扫描
acall disp
sjmp wait

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; p1.7p1.6p1.5p1.4 1110
; | | | | R*4
; p1.3 ———-/|–/|–/|–/|———|===|—-vcc
; p1.2 ———-/|–/|–/|–/|———|===|—-vcc
; p1.1 ———-/|–/|–/|–/|———|===|—-vcc
; p1.0 ———-/|–/|–/|–/|———|===|—-vcc 1111
; | | | |
keyscan:
mov R1,#0efh;0efh,顺次扫描p1.4,p1.5,p1.6列
mov R2,#0; 列数
ks_colum:
mov P1,R1;
nop
nop
mov A,P1;从p1口获得行信息

orl a, #0f0h

mov r3,#0 ;行数
ks_row:
rrc a

jnc ks_wait_release
inc r3
cjne r3,#5,ks_row

ks_this_colum_none:; 该列无键按下
mov A,R1; 扫描下一列
rl A
mov R1,A

inc r2
cjne r2,#4,ks_colum

error:clr A; 一切列无键按下，回来0
jmp ks_end
ks_wait_release:
mov p1,#0fh

mov a,p1
orl a,#0f0h
cpl a
jnz ks_wait_release
ks_decode:
mov a,r3
rl a
add a,r3
add a,r2 ;r3*3+r2
add a,#1h

set_disp_bit:
mov r0,#63h;放入显现缓冲
mov @r0,a

ks_end:
ret

;<<<<<< <<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<led显现部分

disp:
disp_number:
push acc
MOV R0,#60H ;显现数码存放在0x60~0x63(BCD方式)
MOV R3,#0feH ;把显现位码取到R3
display_scan:
MOV A,@R0
MOV R2,A ;把显现数码取到R2

ACALL display_a_bit
ACALL delay

MOV A,R3
RL A ;下一位码

MOV R3,A

INC R0;下一显现数码
CJNE R0,#64H,display_scan
pop acc
ret

;*******************************************************************************************
;r2=显现数据 r3=显现位（0feh,0fdh,0fbh,0f7h别离指第1,2,3,4位)
led_digit1 equ 0feh
led_digit2 equ 0fdh
led_digit3 equ 0fbh
led_digit4 equ 0f7h

display_a_bit:
MOV DPTR,#table
next:
MOV A,R2
MOVC A,@A+DPTR
MOV P0,A ;取段码:TABLE1+x

MOV A,R3
MOV P2,A ;输出位码

RET
;*******************************************************************************************
delay:
MOV R6,#04H
d1:
MOV R7,#248
DJNZ R7,$
DJNZ R6,d1
RET ;推迟 1us+4*(1us+2us*248+2us)+2us=1999us,约2ms

;*******************************************************************************************
; 8
; p0.0~p0.7—-/————————————-
; | | | |
; ===a=== ======= ====== ======
; f| | b | | | | | |
; ====g=== |=======| |======| |======|
; e| | c | | | | | |
; ===d== oh ====== o ===== o ===== o
; | | | |
; p2.0———-/————+————–+————+
;
; p0: ghfedcba
; xxxxxxxx (请承认衔接）,如共阴数码管:0000 0110,显现1.
table: ; 0 1 2 3 4 5 6 7 8 9,共阴
db 3fh,06h,5bh,4fh,66h;0-4
db 6dh,7dh,07h,7fh,6fh;5-9
db 77h,7ch,39h,5eh,86h;A,b,C,d,E
db 00h;关数码管
end