原创 矩阵键盘的扫描4*4显示0~f

;===================================
;实现矩阵键盘的扫描4*4显示0~f
;使用加一法
; QQ 529404547
;2008.12.10
;===================================
 ORG 00H
 AJMP MAIN
 ORG 0030H
MAIN:
 MOV P1, #01H
 MOV R0, #00H
 MOV R3, #4
 MOV R2, #4     ;程序开始 初始化
FEN1: MOV 3AH, #0EFH   ;30h存扫描初值
FF: MOV P0, 3AH
 MOV A, P0   ;把p0口 状态读回来后右移
 
YY: RRC A
     
 JNC DISPLAY    ;进位为0显示
 INC R0   
 DJNZ R3, YY   ;扫描4次否,否的话 继续
 MOV R3, #04H
 MOV A, 3AH   ;扫描完四次扫描码左移,扫描下一列
 RL A
 MOV 3AH, A
 DJNZ R2, FF
 MOV R2, #04H
 AJMP MAIN    ;从新开始

DISPLAY:
 MOV DPTR, #LAB   ;显示
 MOV A, R0
 MOVC A, @A+DPTR
 MOV P2, A
 MOV P1, #01H   
 AJMP MAIN    ;从新开始扫描    
LAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H
 DB 7FH,6FH,77H,7CH,39H,5EH,79H,71H     ;共阴数码管代码

 END