单片机89C52行列式键盘扫描程序(汇编)

实验八键盘扫描显示实验所需软硬件：KeilSTC-ISPMCS-5189C52实验箱程序清单：基于汇编语言//连线P0接8列（同时也是数码管的位选线）高电平选中某位。P3低两位接行P1接数码管（段选线）低电平选中某段亮。 ORG0000H LJMPMAINMAIN: MOV30H,#00H MOV31H,#00H MOV32H,#00H MOV33H,#00H MOV34H,#00H MOV35H,#00HBEGIN: ACALLSCAN ACALLCHECK ACALLDISP SJMPBEGIN//子程序SCAN全扫描2次扫描去抖SCAN: ;全扫描 MOVR0,#00H ;去抖，扫描2次计数标志 MOVA,#00H MOVP0,A ;送列扫描码LOOP: MOVA,P3 ;回读行信号 ANLA,#03H ;只取低两位 INCR0 CJNEA,#03H,K1 CLRF0 ;无键，置标志位为0K1: NOP NOP CJNER0,#02H,LOOP;去抖，扫描2次 SETBF0 ;有键，置标志位为1 RET//子程序CHECK逐列扫描确定键码 CHECK: MOVR1,#0FEH ;开始逐列扫描，从第0列开始 MOVR4,#00H ;记录列号 MOVR5,#00H ;记录行号 MOVA,R1 PUSHACC ;压栈保留第0列扫描码LOOP1: MOVP0,A ;送列扫描码 MOVA,P3 ANLA,#03H CJNEA,#03H,K2 ;有键转K2确定为哪一行 POPACC ;无键扫描下一列 RLA INCR4 CJNER4,#08H,LOOP1;是否扫描进行到最后一列 RETK2: DECSP ;为保证堆栈平衡 CJNEA,#00H,K3 ;分支判断，看是否为第一行 SJMPOVERK3: MOVA,R5ADDA,#08HMOVR5，A ;不是第一行，就是第二行，行码加8OVER: MOVA,R4 ADDA,R5 ;行码+列码=键码 PUSHACC ;键码入栈保护 NOP NOP LCALLSCAN ;扫描看手是否松开CJNEA,#03H,OVER ;A=03H，表示手未松开，继续扫描 POPACC ;手松开，键码出栈 RET//子程序DISP键码分离送数码管显示DISP: JNBF0,LOOP3 ;无键不分离键码 MOVB,#10 ;有键，要进行十位和个位的分离 DIVAB MOV34H,A ;A为十位 MOV35H,B ;B为个位 MOVR0,#30H ;送显示缓冲首地址 MOVR2,#01H ;送位选信号，从最低位开始亮LOOP3: MOVA,#0FFH MOVP1,A ;段选：送灭码 MOVA,R2 MOVP0,A ;送位选信号 MOVA,@R0 ;送显示缓冲数据 MOVDPTR,#TAB ;查表求字形码 MOVCA,@A+DPTR MOVP0,A ;送段选 ACALLDELAY1MS ;延时以保持稳定 INCR0 ;取下一个数 MOVA,R2 JBACC.5,EXIT ;判断位选是否送到最高位 RLA ;左移选下一个位。 MOVR2,A ; AJMPLOOP3EXIT: RET//子程序DELAY1MSDELAY1MS: MOVR7,#0FFH DJNZR7,$ RE