44.txt

4*4键盘显示电路程序

2007-07-24 | C51 -键盘显示 ;***********************************************************
;本程序实现4*4键盘控制数码管显示功能
;2007-07-23
;***********************************************************

 org 0
start: mov r2,#0EFh  ;扫描初值
   mov r0,#00h   ;数值指针
L1: mov a,r2      
 mov P2,a      ;将扫描值输出给P2
 mov a,P2      ;读入P2判断是否有健按下
 mov r4,a      ;存入P2以 判断键是否放开
 setb c         
 mov r5,#04h
L2:  rrc a          ;a右移一位 带有进位c
 jnc keyin          ;若c=0 则有键按下
 inc r0
 djnz r5,L2
 mov a,r2
 setb c
 rlc a
 mov r2,a
 jc L1
 jmp start
 
keyin:  call debounce
;k1:     mov     a,P2    ;k1判断 按键是否松开
; xrl a,r4
; jz k1
 mov a,r0
 da a
 mov P1,a
 jmp start

debounce:mov r7,#20
d1: mov r6,#248
 djnz r6,$
 djnz r7,d1
 ret
 end