课程设计：矩阵键盘扫描（汇编）

//比较简单的汇编矩阵键盘扫描程序
//P2口高四位接列线，第四位接行线

//源程序和proteus仿真我一打包，地址：http://proteus.5d6d.com/thread-9013-1-1.html
ORG0000H
AJMPMAIN

ORG0030H
MAIN:MOVP2,#0F0H;给列送高电平
LCALLDELAY;延时，使电路稳定下来
MOVR4,00H
MOVA,P2;取P2口的值
ANLA,#0F0H;屏蔽行线的影响
CJNEA,#0F0H,L;如果有键按下，就跳转到L
DESPLAY:
MOVA,R7
MOVDPTR,#TABLE
MOVCA,@A+DPTR
MOVP1,A
AJMPMAIN

L: LCALLDELAY;延时去除抖动
MOVA,P2;重新取值
JBACC.4,L1;P2.4这一列有键按下？没有则跳转到L1
MOVR3,#00H;R3用作记列号
AJMPQ1

L1: JBACC.5,L2
MOVR3,#01H
AJMPQ1

L2: JBACC.6,L3
MOVR3,#02H
AJMPQ1

L3:JBACC.7,MAIN
MOVR3,#03H
AJMPQ1

Q1: MOVP2,#0FH;给行送高电平
LCALLDELAY;延时，稳定电路
MOVA,P2;取值
ANLA,#0FH;屏蔽高四位
JBACC.0,Q2;判断是不是第0行，不是则转移
MOVR4,#00H;如果是，那把0送给R4(R4存行（转换为键号）)
AJMPJIA

Q2: JBACC.1,Q3
MOVR4,#04H
AJMPJIA

Q3: JBACC.2,Q4
MOVR4,#08H
AJMPJIA

Q4: JBACC.3,MAIN
MOVR4,#0CH
AJMPJIA

JIA: MOVA,R3 ;行号加上列号就是改键的值
ADDA,R4
MOVR7,A;调整后放在R7寄存器中
AJMPMAIN

DELAY:MOVR6,#20H;仿真时测试延时为13ms

Q6: MOVR5,#0BBH
DJNZR5,$
DJNZR6,Q6
RET

//下面为0-f的字形表
TABLE:DB3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H
DB7CH,39H,5EH,79H,71H;

END