计算器.asm

来自「proteus仿真实例大全」· 汇编 代码 · 共 2,743 行 · 第 1/3 页

MOV A,75H
MOV B,45H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 7DH,B
MOV 91H,A
MOV A,75H
MOV B,46H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 7EH,B
MOV 91H,A
MOV A,75H
MOV B,48H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 7FH,B
MOV 91H,A
MOV A,75H
MOV B,49H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 92H,B
MOV 0E5H,A
;**************************************第五次乘法结束，第六次乘法运算开始
MOV A,76H
MOV B,40H
MUL AB
MOV B,#10
DIV AB
MOV 93H,B
MOV 91H,A
MOV A,76H
MOV B,41H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 94H,B
MOV 91H,A
MOV A,76H
MOV B,42H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 95H,B
MOV 91H,A
MOV A,76H
MOV B,44H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 96H,B
MOV 91H,A
MOV A,76H
MOV B,45H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 97H,B
MOV 91H,A
MOV A,76H
MOV B,46H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 9AH,B
MOV 91H,A
MOV A,76H
MOV B,48H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 9BH,B
MOV 91H,A
MOV A,76H
MOV B,49H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 9CH,B
MOV 0E6H,A
;***********************************第六次乘法结束，第七次乘法运算开始
MOV A,78H
MOV B,40H
MUL AB
MOV B,#10
DIV AB
MOV 9DH,B
MOV 91H,A
MOV A,78H
MOV B,41H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 9EH,B
MOV 91H,A
MOV A,78H
MOV B,42H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 9FH,B
MOV 91H,A
MOV A,78H
MOV B,44H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0C0H,B
MOV 91H,A
MOV A,78H
MOV B,45H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0C1H,B
MOV 91H,A
MOV A,78H
MOV B,46H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0C2H,B
MOV 91H,A
MOV A,78H
MOV B,48H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0C3H,B
MOV 91H,A
MOV A,78H
MOV B,49H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0C4H,B
MOV 0E7H,A
;***********************************第七次乘法结束，第八次乘法运算开始
MOV A,79H
MOV B,40H
MUL AB
MOV B,#10
DIV AB
MOV 0C5H,B
MOV 91H,A
MOV A,79H
MOV B,41H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0C6H,B
MOV 91H,A
MOV A,79H
MOV B,42H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0C7H,B
MOV 91H,A
MOV A,79H
MOV B,44H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0C8H,B
MOV 91H,A
MOV A,79H
MOV B,45H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0C9H,B
MOV 91H,A
MOV A,79H
MOV B,46H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0CAH,B
MOV 91H,A
MOV A,79H
MOV B,48H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0CBH,B
MOV 91H,A
MOV A,79H
MOV B,49H
MUL AB
MOV B,#10
ADD A,91H
DIV AB
MOV 0CCH,B
MOV 0E8H,A
;***************************第八次乘法结束，全加求和开始
MOV 40H,3AH
MOV A,3BH
ADD A,58H
MOV B,#10
DIV AB
MOV 91H,A
MOV 41H,B
MOV A,3CH
ADD A,59H
ADD A,54H
ADD A,91H
MOV B,#10
DIV AB
MOV 91H,A
MOV 42H,B
MOV A,3DH
ADD A,5AH
ADD A,61H
ADD A,55H
ADD A,91H
MOV B,#10
DIV AB
MOV 91H,A
MOV 44H,B
MOV A,3EH
ADD A,5BH
ADD A,62H
ADD A,56H
ADD A,6EH
ADD A,91H
MOV B,#10
DIV AB
MOV 91H,A
MOV 45H,B
MOV A,3FH
ADD A,5CH
ADD A,63H
ADD A,57H
ADD A,7AH
ADD A,93H
ADD A,91H
MOV B,#10
DIV AB
MOV 91H,A
MOV 46H,B
MOV A,52H
ADD A,5DH
ADD A,64H
ADD A,68H
ADD A,7BH
ADD A,94H
ADD A,9DH
ADD A,91H
MOV B,#10
DIV AB
MOV 91H,A
MOV 48H,B
MOV A,53H
ADD A,5EH
ADD A,65H
ADD A,6AH
ADD A,7CH
ADD A,95H
ADD A,9EH
ADD A,0C5H
ADD A,91H
MOV B,#10
DIV AB
MOV 91H,A
MOV 49H,B
MOV A,5FH
ADD A,66H
ADD A,6BH
ADD A,7DH
ADD A,96H
ADD A,9FH
ADD A,0C6H
ADD A,91H
ADD A,0E1H
MOV B,#10
DIV AB
MOV 91H,A
MOV 4AH,B
MOV A,67H
ADD A,6CH
ADD A,7EH
ADD A,97H
ADD A,0C0H
ADD A,0C7H
ADD A,91H
ADD A,0E2H
MOV B,#10
DIV AB
MOV 91H,A
MOV 4BH,B
MOV A,6DH
ADD A,7FH
ADD A,9AH
ADD A,0C1H
ADD A,0C8H
ADD A,91H
ADD A,0E3H
MOV B,#10
DIV AB
MOV 91H,A
MOV 4CH,B
MOV A,92H
ADD A,9BH
ADD A,0C2H
ADD A,0C9H
ADD A,91H
ADD A,0E4H
MOV B,#10
DIV AB
MOV 91H,A
MOV 4DH,B
MOV A,9CH
ADD A,0C3H
ADD A,0CAH
ADD A,91H
ADD A,0E5H
MOV B,#10
DIV AB
MOV 91H,A
MOV 4EH,B
MOV A,0C4H
ADD A,0CBH
ADD A,91H
ADD A,0E6H
MOV B,#10
DIV AB
MOV 91H,A
MOV 4FH,B
MOV A,0CCH
ADD A,91H
ADD A,0E7H
MOV B,#10
DIV AB
MOV 91H,A
MOV 6FH,B
MOV A,91H
ADD A,0E8H
MOV 69H,A
;********************************全加求和结束,消零程序开始
MOV A,69H
CJNE A,#0,DD0
MOV A,6FH
CJNE A,#0,DD1
MOV A,4FH
CJNE A,#0,DD2
MOV A,4EH
CJNE A,#0,DD3
MOV A,4DH
CJNE A,#0,DD4
MOV A,4CH
CJNE A,#0,DD5
MOV A,4BH
CJNE A,#0,DD6
MOV A,4AH
CJNE A,#0,DD7
MOV A,49H
CJNE A,#0,DD8
MOV A,48H
CJNE A,#0,DD9
MOV A,46H
CJNE A,#0,DD10
MOV A,45H
CJNE A,#0,DD11
MOV A,44H
CJNE A,#0,DD12
MOV A,42H
CJNE A,#0,DD13
MOV A,41H
CJNE A,#0,DD14
MOV A,40H
CJNE A,#0,DD15
LJMP DD15
DD0:LCALL A0020
DD1:LCALL A0014
DD2:LCALL A0013
DD3:LCALL A0012
DD4:LCALL A0011
DD5:LCALL A0010
DD6:LCALL A009
DD7:LCALL A008
DD8:LCALL A007
DD9:LCALL A006
DD10:LCALL A005
DD11:LCALL A004
DD12:LCALL A003
DD13:LCALL A002
DD14:LCALL A001
DD15:LCALL A000
LJMP DD
KAO3:CJNE A,#15,KA0OO1
LJMP START1
KA0OO1:
MOV A,50H
CJNE A,#0,A011A1
MOV 60H,R1
LCALL A8
INC 50H
ljmp dd
A011A1:CJNE A,#1,A011A2
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
INC 50H
LJMP DD
A011A2:CJNE A,#2,A011A3
MOV 72H,71H
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
LCALL A10
INC 50H
LJMP DD
A011A3:CJNE A,#3,A011A5
MOV 74H,72H
MOV 72H,71H
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
LCALL A10
LCALL A11
INC 50H
LJMP DD
A011A5:CJNE A,#4,A011A6
MOV 75H,74H
MOV 74H,72H
MOV 72H,71H
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
LCALL A10
LCALL A11
LCALL A12
INC 50H
LJMP DD
A011A6:CJNE A,#5,A011A7
MOV 76H,75H
MOV 75H,74H
MOV 74H,72H
MOV 72H,71H
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
LCALL A10
LCALL A11
LCALL A12
LCALL A13
INC 50H
LJMP DD
A011A7:CJNE A,#6,A011A9
MOV 78H,76H
MOV 76H,75H
MOV 75H,74H
MOV 74H,72H
MOV 72H,71H
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
LCALL A10
LCALL A11
LCALL A12
LCALL A13
LCALL A14
INC 50H
LJMP DD
A011A9:CJNE A,#7,A011A10
MOV 79H,78H
MOV 78H,76H
MOV 76H,75H
MOV 75H,74H
MOV 74H,72H
MOV 72H,71H
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
LCALL A10
LCALL A11
LCALL A12
LCALL A13
LCALL A14
LCALL A15
INC 50H
A011A10:LJMP DD
BBBB3:LJMP BB3
KAOOO8:LJMP KAO4
YY1:CJNE A,#4,BBBB3        ;乘法运算结束，除法运算开始
MOV A,R1
CJNE A,#14,KAOOO8
MOV 47H,R1
LCALL A31
MOV A,49H
CJNE A,60H,HH
LJMP HHH
HH:CLR C
SUBB A,60H
JNC HHH
MOV A,49H
MOV B,#10
LJMP HHH1
HHH:MOV A,49H
MOV B,60H
DIV AB
MOV 69H,A
MOV A,#10
HHH1:MUL AB
ADD A,48H
MOV B,60H
DIV AB
MOV 6FH,A
MOV A,#10
MUL AB
ADD A,46H
MOV B,60H
DIV AB
MOV 4FH,A
MOV A,#10
MUL AB
ADD A,45H
MOV B,60H
DIV AB
MOV 4EH,A
MOV A,#10
MUL AB
ADD A,44H
MOV B,60H
DIV AB
MOV 4DH,A
MOV A,#10
MUL AB
ADD A,42H
MOV B,60H
DIV AB
MOV 4CH,A
MOV A,#10
MUL AB
ADD A,41H
MOV B,60H
DIV AB
MOV 4BH,A
MOV A,#10
MUL AB
ADD A,40H
MOV B,60H
DIV AB
MOV 4AH,A
MOV A,69H
CJNE A,#0,KKK0
MOV A,6FH
CJNE A,#0,KKK1
MOV A,4FH
CJNE A,#0,KKK2
MOV A,4EH
CJNE A,#0,KKK3
MOV A,4DH
CJNE A,#0,KKK4
MOV A,4CH
CJNE A,#0,KKK5
MOV A,4BH
CJNE A,#0,KKK6
MOV A,4AH
CJNE A,#0,KKK7
KK8:
MOV 69H,#0
MOV R0,#0FH
MOV R1,#14
LL8:MOV A,#10
MUL AB
MOV B,60H
DIV AB
MOV @R0,A
DEC R0
DJNZ R1,LL8
MOV 6FH,#16
MOV 4FH,0FH
MOV 4EH,0EH
MOV 4DH,0DH
MOV 4CH,0CH
MOV 4BH,0BH
MOV 4AH,0AH
MOV 49H,9
MOV 48H,8
MOV 46H,7
MOV 45H,6
MOV 44H,5
MOV 42H,4
MOV 41H,3
MOV 40H,2
MOV 0FEH,#0
LCALL A0016
LJMP DDD0
KKK0:LJMP KK0
KKK1:LJMP KK1
KKK2:LJMP KK2
KKK3:LJMP KK3
KKK4:LJMP KK4
KKK5:LJMP KK5
KKK6:LJMP KK6
KKK7:LJMP KK7
KK0:
MOV R0,#0FH
MOV R1,#7
LL0:MOV A,#10
MUL AB
MOV B,60H
DIV AB
MOV @R0,A
DEC R0
DJNZ R1,LL0
MOV 49H,#16
MOV 48H,0FH
MOV 46H,0EH
MOV 45H,0DH
MOV 44H,0CH
MOV 42H,0BH
MOV 41H,0AH
MOV 40H,9
LCALL A0017
LJMP DDD0
KK1:MOV 69H,6FH
MOV 6FH,4FH
MOV 4FH,4EH
MOV 4EH,4DH
MOV 4DH,4CH
MOV 4CH,4BH
MOV 4BH,4AH
MOV 4AH,#16
MOV R0,#0FH
MOV R1,#8
LL1:MOV A,#10
MUL AB
MOV B,60H
DIV AB
MOV @R0,A
DEC R0
DJNZ R1,LL1
MOV 49H,0FH
MOV 48H,0EH
MOV 46H,0DH
MOV 45H,0CH
MOV 44H,0BH
MOV 42H,0AH
MOV 41H,9
MOV 40H,8
MOV 0FEH,#56
LCALL A0016
LJMP DDD0
KK2:MOV 69H,4FH
MOV 6FH,4EH
MOV 4FH,4DH
MOV 4EH,4CH
MOV 4DH,4BH
MOV 4CH,4AH
MOV 4BH,#16
MOV R0,#0FH
MOV R1,#9
LL2:MOV A,#10
MUL AB
MOV B,60H
DIV AB
MOV @R0,A
DEC R0
DJNZ R1,LL2
MOV 4AH,0FH
MOV 49H,0EH
MOV 48H,0DH
MOV 46H,0CH
MOV 45H,0BH
MOV 44H,0AH
MOV 42H,9
MOV 41H,8
MOV 40H,7
MOV 0FEH,#48
LCALL A0016
LJMP DDD0
KK3:MOV 69H,4EH
MOV 6FH,4DH
MOV 4FH,4CH
MOV 4EH,4BH
MOV 4DH,4AH
MOV 4CH,#16
MOV R0,#0FH
MOV R1,#10
LL3:MOV A,#10
MUL AB
MOV B,60H
DIV AB
MOV @R0,A
DEC R0
DJNZ R1,LL3
MOV 4BH,0FH
MOV 4AH,0EH
MOV 49H,0DH
MOV 48H,0CH
MOV 46H,0BH
MOV 45H,0AH
MOV 44H,9
MOV 42H,8
MOV 41H,7
MOV 40H,6
MOV 0FEH,#40
LCALL A0016
LJMP DDD0
KK4:MOV 69H,4DH
MOV 6FH,4CH
MOV 4FH,4BH
MOV 4EH,4AH
MOV 4DH,#16
MOV R0,#0FH
MOV R1,#11
LL4:MOV A,#10
MUL AB
MOV B,60H
DIV AB
MOV @R0,A
DEC R0
DJNZ R1,LL4
MOV 4CH,0FH
MOV 4BH,0EH
MOV 4AH,0DH
MOV 49H,0CH
MOV 48H,0BH
MOV 46H,0AH
MOV 45H,9
MOV 44H,8
MOV 42H,7
MOV 41H,6
MOV 40H,5
MOV 0FEH,#32
LCALL A0016
LJMP DDD0
KK5:MOV 69H,4CH
MOV 6FH,4BH
MOV 4FH,4AH
MOV 4EH,#16
MOV R0,#0FH
MOV R1,#12
LL5:MOV A,#10
MUL AB
MOV B,60H
DIV AB
MOV @R0,A
DEC R0
DJNZ R1,LL5
MOV 4DH,0FH
MOV 4CH,0EH
MOV 4BH,0DH
MOV 4AH,0CH
MOV 49H,0BH
MOV 48H,0AH
MOV 46H,9
MOV 45H,8
MOV 44H,7
MOV 42H,6
MOV 41H,5
MOV 40H,4
MOV 0FEH,#24
LCALL A0016
LJMP DDD0
KK6:MOV 69H,4BH
MOV 6FH,4AH
MOV 4FH,#16
MOV R0,#0FH
MOV R1,#13
LL6:MOV A,#10
MUL AB
MOV B,60H
DIV AB
MOV @R0,A
DEC R0
DJNZ R1,LL6
MOV 4EH,0FH
MOV 4DH,0EH
MOV 4CH,0DH
MOV 4BH,0CH
MOV 4AH,0BH
MOV 49H,0AH
MOV 48H,9
MOV 46H,8
MOV 45H,7
MOV 44H,6
MOV 42H,5
MOV 41H,4
MOV 40H,3
MOV 0FEH,#16
LCALL A0016
LJMP DDD0
KK7:MOV 69H,4AH
MOV 6FH,#16
MOV R0,#0FH
MOV R1,#14
LL7:MOV A,#10
MUL AB
MOV B,60H
DIV AB
MOV @R0,A
DEC R0
DJNZ R1,LL7
MOV 4FH,0FH
MOV 4EH,0EH
MOV 4DH,0DH
MOV 4CH,0CH
MOV 4BH,0BH
MOV 4AH,0AH
MOV 49H,9
MOV 48H,8
MOV 46H,7
MOV 45H,6
MOV 44H,5
MOV 42H,4
MOV 41H,3
MOV 40H,2
MOV 0FEH,#8
LCALL A0016


DDD0:
LCALL A0020
LCALL A0014
LCALL A0013
LCALL A0012
LCALL A0011
LCALL A0010
LCALL A009
LCALL A008
LCALL A007
LCALL A006
LCALL A005
LCALL A004
LCALL A003
LCALL A002
LCALL A001
LCALL A000
LJMP DD













KAO4:CJNE A,#15,K1A0OO1
LJMP START1
K1A0OO1:
MOV A,50H
CJNE A,#0,A1011A1
MOV 60H,R1
LCALL A8
INC 50H
ljmp dd
A1011A1:CJNE A,#1,A1011A2
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
INC 50H
LJMP DD
A1011A2:CJNE A,#2,A1011A3
MOV 72H,71H
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
LCALL A10
INC 50H
LJMP DD
A1011A3:CJNE A,#3,A1011A5
MOV 74H,72H
MOV 72H,71H
MOV 71H,60H
MOV  60H,R1
LCALL A8
LCALL A9
LCALL A10