基于单片机的计算器设计程序代码汇编

DBUF EQU 30H

TEMP EQU 40H

YJ EQU 50H ;结果存放

YJ1 EQU 51H ;中间结果存放GONG EQU 52H ;功能键存放

ORG 00H

START: MOV R3,#0 ;初始化显示为空MOV GONG,#0

MOV 30H,#10H

MOV 31H,#10H

MOV 32H,#10H

MOV 33H,#10H

MOV 34H,#10H

MLOOP: CALL DISP ;PAN调显示子程序WAIT: CALL TESTKEY ;判断有无按键JZ WAIT

CALL GETKEY ;读键

INC R3 ;按键个数

CJNE A,#0,NEXT1 ;判断是否数字键

LJMP E1 ;转数字键处理NEXT1: CJNE A,#1,NEXT2

LJMP E1

NEXT2: CJNE A,#2,NEXT3

LJMP E1

NEXT3: CJNE A,#3,NEXT4

LJMP E1

NEXT4: CJNE A,#4,NEXT5

LJMP E1

NEXT5: CJNE A,#5,NEXT6

LJMP E1

NEXT6: CJNE A,#6,NEXT7

LJMP E1

NEXT7: CJNE A,#7,NEXT8

LJMP E1

NEXT8: CJNE A,#8,NEXT9

LJMP E1

NEXT9: CJNE A,#9,NEXT10

LJMP E1

NEXT10: CJNE A,#10,NEXT11 ;判断是否功能键LJMP E2 ;转功能键处理NEXT11: CJNE A,#11,NEXT12

LJMP E2

NEXT12: CJNE A,#12, NEXT13

LJMP E2

NEXT13: CJNE A,#13,NEXT14

LJMP E2

NEXT14: CJNE A,#14,NEXT15

LJMP E2

NEXT15: LJMP E3 ;判断是否清除键E1: CJNE R3,#1,N1 ;判断第几次按键LJMP E11 ;为第一个数字

N1: CJNE R3,#2,N2

LJMP E12 ;为第二个数字

N2: CJNE R3,#3,N3

LJMP E13 ;为第三个数字

N3: LJMP E3 ;第四个数字转溢出E11: MOV R4,A ;输入值暂存R4 MOV 34H,A ;输入值送显示缓存

MOV 33H,#10H

MOV 32H,#10H

LJMP MLOOP ;等待再次输入

E12: MOV R7,A ;个位数暂存R7 MOV B,#10

MOV A,R4

MUL AB ;十位数

ADD A,R7

MOV R4,A ;输入值存R4

MOV 32H,#10H ;输入值送显示缓存

MOV 33H,34H

MOV 34H,R7

LJMP MLOOP

E13: MOV R7,A

MOV B,#10

MOV A,R4

MUL AB

JB OV,E3 ;输入溢出

ADD A,R7

JB CY,E3 ;输入溢出

MOV R4,A

MOV 32H,33H ;输入值送显示缓存

MOV 33H,34H

MOV 34H,R7

LJMP MLOOP

E3: MOV R3,#0 ;按键次数清零

MOV R4,#0 ;输入值清零

MOV YJ,#0 ;计算结果清零

MOV GONG,#0 ;功能键设为零

MOV 30H,#10H ;显示清空

MOV 31H,#10H

MOV 32H,#10H

MOV 33H,#10H

MOV 34H,#10H

LJMP MLOOP

E2: MOV 34H,#10H

MOV 33H,#10H

MOV 32H,#10H

MOV R0,GONG ;与上次功能键交换

MOV GONG,A

MOV A,R0

CJNE A,#10,N21 ;判断功能键

LJMP JIA ;"＋"

N21: CJNE A,#11,N22

LJMP JIAN ;"－"

N22: CJNE A,#12,N23

LJMP CHENG ;"*"

N23: C JNE A,#13,N24

LJMP CHU ;"/"

N24: C JNE A,#0,N25

LJMP FIRST ;首次按功能键

N25: L JMP DEN ;"="

N4: LJMP E3

FIRST: MOV YJ,R4 ;输入值送结果MOV R3,#0 ;按键次数清零

LJMP DISP1 ;结果处理

JIA: MOV A,YJ ;上次结果送累加器ADD A,R4 ;上次结果加输入值

JB CY,N4 ;溢出

MOV YJ,A ;存本次结果

MOV R3,#0 ;按键次数清零

LJMP DISP1

JIAN: MOV A,YJ

SUBB A,R4 ;上次结果减输入值

JB CY,N4 ;负数溢出

MOV YJ,A

MOV R3,#0

LJMP DISP1

CHENG: MOV A,YJ

MOV B,A

MOV A,R4

MUL AB ;上次结果乘输入值

JB OV,N4 ;溢出

MOV YJ,A

LJMP DISP1

CHU: MOV A,R4

MOV B,A

MOV A,YJ

DIV AB ;上次结果除输入值

MOV YJ,A

MOV R3,#0

LJMP DISP1

DEN: MOV R3,#0

LJMP DISP1

DISP1: MOV B,#10

MOV A,YJ ;结果送累加器

DIV AB ;结果除10

MOV YJ1,A ;暂存"商"

MOV A,B ;取个位数

MOV 34H,A ;个位数送显示缓存

MOV A,YJ1

JZ DISP11 ;结果是否为一位数

MOV B,#10

MOV A,YJ1

DIV AB

MOV YJ1,A

MOV A,B

MOV 33H,A ;十位送显示缓存

MOV A,YJ1

JZ DISP11 ;结果是否为二位数

MOV 32H,A ;百位数送显示缓存DISP11: LJMP MLOOP

DISP: MOV R0,#DBUF ;显示子程序MOV R1,#TEMP+4

MOV R2,#5

DP10: MOV DPTR,#SEGTAB

MOV A,@R0

MOVC A,@A+DPTR

MOV @R1,A

INC R0

DEC R1

DJNZ R2,DP10

MOV R0,#TEMP

DP12: MOV A,@R0

MOV P0,A

clr

CALL D1MS

setb

INC R0

MOV A,@R0

MOV P0,A

clr

CALL D1MS

setb

INC R0

MOV A,@R0

MOV P0,A

clr

CALL D1MS

setb

INC R0

MOV A,@R0

MOV P0,A

clr

CALL D1MS

setb

INC R0

MOV A,@R0

MOV P0,A

clr

CALL D1MS

setb

RET

D1MS: MOV R7,#02H

DMS: MOV R6,#0FFH

DJNZ R6,$

DJNZ R7,DMS

RET

SEGTAB: DB 028H,7eH,0A2H,062H

DB 74H, 61H, 21H, 7aH

DB 20H, 60H, 88H, 83H

DB 0C6H, 0A1H, 86H, 8EH,0ffH

TESTKEY:ACALL DISP

MOV P1,#0FH ;读入键状态

MOV A,P1

CPL A

ANL A,#0FH ;高四位不用

RET

KEYTABLE:

DB 0DEH,0EDH,0DDH,0BDH ;键码定义

DB 0EBH,0DBH,0BBH,0E7H

DB 0D7H,0B7H,07EH,07DH

DB 07BH,077H,0BEH,0EEH

GETKEY: ;读键子程序MOV R6,#10

ACALL DELAY

MOV P1,#0FH

MOV A,P1

CJNE A,0FH,K12

LJMP MLOOP

K12: MOV B,A

MOV P1,#0EFH

MOV A,P1

CJNE A,#0EFH,K13

MOV P1,#0DFH

MOV A,P1

CJNE A,#0DFH,K13

MOV P1,#0BFH

MOV A,P1

CJNE A,#0BFH,K13

MOV P1,#07FH

MOV A,P1

CJNE A,#07FH,K13

LJMP MLOOP

K13: ANL A,#0F0H

ORL A,B

MOV B,A

MOV R1,#16

MOV R2,#0

MOV DPTR,#KEYTABLE

K14: MOV A,R2

MOVC A,@A+DPTR

CJNE A,B,K16

MOV P1,#0FH

K15: MOV A,P1

CJNE A,#0FH,K15

MOV R6,#10

ACALL DELAY

MOV A,R2

RET

K16: INC R2

DJNZ R1,K14

AJMP MLOOP

DELAY: MOV R7,#80 ;延时子程序DLOOP: DJNZ R7,DLOOP

DJNZ R6,DLOOP

RET END