应用STC89C52设计算器 Microsoft Word 文档.docVIP

;//+******************************************************************************** ;//*P2.0-P2.3做数码管位选信号，分别对应从右至左四个数码管 ;//*P0.0-P0.7做数码管段选信号，分别对应abcdefgh段 ;//*P1.0-P1.2做矩阵键盘行线，对应0、1、2行 ;//*P1.4-P1.7做矩阵键盘列线，对应0、1、2、3、4列 ;//******************************************************************************** ORG 0000H Z0 EQU 4FH ;输出的实际键值 Z1 EQU 50H ;输出缓冲区，第一个数码管 Z2 EQU 51H ;输出缓冲区，第二个数码管 Z3 EQU 52H ;输出缓冲区，第三个数码管 Z4 EQU 53H ;输出缓冲区，第四个数码管 Z5 EQU 54H ;原始键值保存地址 BAI EQU 55H ;进制转换，百位 SHI EQU 56H ;进制转换，十位 SHU1 EQU 60H ;输入的第一个数值，用十进制表示 SUAN EQU 61H ;运算符存放地址，用键值表示 SHU2 EQU 62H ;输入的第二个数值，用十进制表示 JIEG EQU 63H ;结果存放地址，用十进制表示 AJMP START ORG 0100H START: ;初始化 MOV Z0,#00 MOV Z1,#00 MOV Z2,#00 MOV Z3,#00 MOV Z4,#00 MOV Z5,#00 MOV BAI,#64 ;定义为8进制 MOV SHI,#8 ;定义为8进制 MOV SHU1,#00 MOV SUAN,#00 MOV SHU2,#00 MOV JIEG,#00 MAIN: ACALL KEY ;调用是否有键按下子程序 JNZ JIANZHI ;若有键按下则跳转到键值计算子程序 ACALL SHUCHU ;若无键按下则调用显示子程序 AJMP MAIN ;//****************************判断是否有键按下子程序****************************** KEY: MOV A,#0F0H MOV P1,A MOV A,P1 CPL A ANL A,#0F0H RET ;//***************************有键按下判断是哪个键并计算键值*********************** JIANZHI: ACALL KEY ;再次调用键是否按下子程序 JNZ LIE ;若还保持在按下状态 AJMP MAIN ;若键闭合则调回主程序 LIE: ;判断列值，并将列值赋给R5 MOV P2,#0FFH ;关闭数码管的位选信号 MOV R3,#0FEH MOV R5,#4 ;列值从左到右依次为1、2、3、4 LIE0: MOV A,R3 RR A MOV R3,A MOV P1,A MOV A,P1 CPL A ANL A,#0FH JNZ HANG DJNZ R5,LIE0 AJMP MAIN HANG: ;判断行值，并将行值赋给R1 MOV R4,#0F7H MOV R1,#3 ;行值从上到下依次为1、2、3 HANG0: MOV A,R4 RR A MOV R4,A MOV P1,A MOV A,P1 CPL A ANL A,#0F0H JNZ JIANZHI0 DJNZ R1,HANG0 AJMP MAIN JIANZHI0: ;计算键值，并将键值送至原始键值存储单元Z5 MOV A,R5 ;计算方法，键值=（行值-1）*4+（列值-1） DEC A MOV R5,A MOV A,R1 DEC A MOV R1,A MOV A,R1 MOV B,#4 MUL AB ADD A,R5 MOV Z5,A ;原始键值保存在Z5中 WAIT: ACALL KEY