任务九：8-8矩阵键盘.docVIP

任务九：8*8矩阵键盘数码管显示实验  ORG 00H LJMP MAIN ORG 30H MAIN: MOV P0,#0FFH ;初始化 MOV P1,#0FFH MOV P2,#0FFH MOV P3,#0FFH MOV 30H,#00H ;行编码放置单元 MOV 31H,#00H ;列编码放置单元 MOV 32H,#100 ;键值放置单元 LOOP: LCALL KEYS ;按键判断子程序 LCALL DELAY ;延时10MS LCALL KEYS;按键判断子程序 LCALL PANDUAN;判断行号和列号 LCALL JISUAN;计算键值 LCALL SHOW ;数码管显示键值 LJMP LOOP KEYS: MOV P1,#00H ;按键判断子程序， MOV P3,#0FFH ;列为0，行为1 MOV A,P3 CJNE A,#0FFH, KEYS1 LJMP KEYS_RET KEYS1:MOV 30H,A ;有键按下,行编码放入30H MOV P3,#00H ;列为1，行为0 MOV P1,#0FFH MOV A,P1 CJNE A,#0FFH, KEYS2 LJMP KEYS_RET KEYS2:MOV 31H,A;有键按下,列编码放入31H KEYS_RET: RET PANDUAN: ;判断行号和列号 MOV A,30H;判断行号 MOV R0,#00H;行号值放入R0中 PANHANG1: JNB ACC.0,PANLIE INC R0 RR A LJMP PANHANG1 PANLIE:MOV A,31H;判断列号 MOV R1,#00H; 列号值放入R1中 PANLIE1: JNB ACC.0, PANDUAN_RET INC R1 RR A LJMP PANLIE1 PANDUAN_RET: RET JISUAN:MOV A,R0;计算键值 MOV B,#8;行号乘以8加列号 MUL AB ADD A,R1 MOV 32H,A;键值放入32H单元中 RET SHOW: ;显示子程序 MOV A,32H MOV B,#10 DIV AB MOV DPTR,#TAB ;将32H中值 MOVC A,@A+DPTR;十位显示出来 MOV P0,#0FFH MOV P0,A MOV P2,#0FEH LCALL DELAY MOV A,B MOV DPTR,#TAB ;将32H中值 MOVC A,@A+DPTR;个位显示出来 MOV P0,#0FFH MOV P0,A MOV P2,#0FDH LCALL DELAY RET DELAY:MOV R7,#40;延时10MS子程序 D1:MOV R6,#123 NOP D2:DJNZ R6, D2 DJNZ R7,D1 RET TAB: ;数码管段码表 DB 0C0H,0F9H,0A4H,0B0H DB 099H,092H,082H,0F8H DB 080H,090H,088H,083H DB 0C6H,0A1H,086H,08EH END 说明：此例与4*4键盘一样，先行线为0，列线为1；然后行线为1，列线为0；其都为8位不能合并，采用“行号*8+列号=键值”形式，行号（0~7）8行，列号（0~7）8列。 行号列号判断有专门的子程序，另外键值显示部分采用的是动态显示（显示的是两位数）。  返回 键值送32H单元 再加列号 取行号（R0值） 行号乘以8到A 计算键值子程序 计算键值子程序 N 返回 取列编码到A Y ACC.0=0?(行编码的最后一位是否为0？) 取行编码到A R0清零（用来放行号） 判断行号列号子程序 按键判断子程序 按键判断 按键判断 返回 Y N 行编码放入30H中 按键判断子程序 A=0FF