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

任务九：8*8矩阵键盘数码管显示实验开始初始化延时计算键值显示键值结束主程序流程图判断行号列号子程序行线为1，列线为0取行线值到AA=0FFH?按键判断子程序行编码放入30H中 NY返回按键判断按键判断按键判断子程序判断行号列号子程序取行编码到AACC.0=0?(行编码的最后一位是否为0？)Y取列编码到A 返回N计算键值子程序计算键值子程序行号乘以8到A取行号（R0值）再加列号键值送32H单元返回判断行号和列号，并且存入相应单元列线为1，行线为0取列线值到AA=0FFH?列编码放入31H中 NYR0清零（用来放行号）ACC.0=0?(列编码的最后一位是否为0？)R1清零（用来放列号）行号加1（R0+1）A右移（为了下次判断）N行号加1（R1+1）A右移（为了下次判断）显示子程序显示子程序查表取个位段码值返回取键值到A（32H值）键值除以10（个位在A，十位在B）段码值送P0口位码值送P2口延时查表取十位段码值段码值送P0口位码值送P2口延时YORG 00H LJMP MAIN ORG 30HMAIN: 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 LOOPKEYS: MOV P1,#00H ;按键判断子程序， MOV P3,#0FFH ;列为0，行为1 MOV A,P3 CJNE A,#0FFH, KEYS1 LJMP KEYS_RETKEYS1:MOV 30H,A ;有键按下,行编码放入30H MOV P3,#00H ;列为1，行为0 MOV P1,#0FFH MOV A,P1 CJNE A,#0FFH, KEYS2 LJMP KEYS_RETKEYS2: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 PANHANG1PANLIE:MOV A,31H;判断列号 MOV R1,#00H; 列号值放入R1中PANLIE1: JNB ACC.0, PANDUAN_RET INC R1 RR A LJMP PANLIE1PANDUAN_RET: RETJISUAN:MOV A,R0;计算键值 MOV B,#8;行号乘以8加列号 MUL AB ADD A,R1 MOV 32H,A;键值放入32H单元中 RETSHOW: ;显示子程序 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 RETDELAY:MOV R7,#40;延时10MS子程序 D1:MOV R6,#123 NOP D2:DJNZ R6, D2 DJNZ R7,D1 RETTAB: ;数码管段码表 DB 0C0H,0F9H,0A4H,0B0HDB 099H,092H,082H,0F8H DB 080H,090H,088H,083H DB 0C6H,0A1H,086H,08EH END说明：此例与4*4键盘一样，先行线为0，列线为1；然后行线为1，列线