51单片机实现4位BCD码乘法

DA A
MOV B,#10
DIV AB ;A...B
MOV 7AH,B
MOV 7BH,A
MOV A,54H ;将54H乘51H送7CH，进位送7DH
MOV B,51H
MUL AB
MOV R0,A
ANL A,#0FH
MOV 7CH,A
MUL AB
ADD A,6AH
DA A
MOV B,#10
DIV AB ;A...B
MOV 6AH,B
MOV 6BH,A
MOV A,56H ;将56H乘51H送6CH，进位送6DH
MOV B,51H
MUL AB
MOV R0,A
ADD A,66H
DA A
MOV B,#10
D
IV AB ;A...B
MOV 66H,B
MOV 67H,A
MOV A,56H ;将56H乘53H送68H，进位送69H
MOV 69H,A
MOV A,56H ;将56H乘52H送6AH，进位送6BH
MOV B,52H
MUL AB
MOV R0,A
ANL A,#0FH
MOV 6AH,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MOV R0,#BUFFER2
MOV A,@R0 ;保存输入的乘数
MOV R4,A ;R4R5
INC R0
MOV A,@R0
MOV R5,A
;...........................................................
MOV 6FH,A
MOV A,55H ;将55H乘53H送70H，进位送71H
MOV B,53H
MUL AB
MOV R0,A
ANL A,#0FH
MOV 70H,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,70H
MOV 7ห้องสมุดไป่ตู้H,A
MOV A,54H ;将54H乘52H送7AH，进位送7BH
MOV B,52H
MUL AB
MOV R0,A
ANL A,#0FH
MOV 7AH,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,7AH
MOV A,R2 ;将输入的被乘数、乘数从千位到各位依次以非压缩型BCD码形式
MOV R1,#51H ;存入50H~53H(被乘数千位—各位)、54H~57H（乘数千位—各位）
MOV @R1,#00H ; 50 51 52 53
XCHD A,@R1 ;*54 55 56 57
MOV B,53H
MUL AB
MOV R0,A
ANL A,#0FH
MOV 68H,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,68H
DA A
MOV B,#10
DIV AB ;A...B
MOV 68H,B
MOV B,53H
MUL AB ;BA
MOV R0,A
ANL A,#0FH
MOV 60H,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,60H
DA A
MOV B,#10
DIV AB ;A...B
MUL AB
MOV R0,A
ANL A,#0FH
MOV 64H,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,64H
DA A
MOV B,#10
DIV AB ;A...B
MOV 64H,B
MOV 65H,A
EXTRN CODE (Display8)
EXTRN CODE (GetBCDKey)
PBUFFER DATA 20H
BUFFER DATA 30H
BUFFER2 DATA 40H
FLAG DATA 10H
MOV B,51H
MUL AB
MOV R0,A
ANL A,#0FH
MOV 74H,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,74H
DA A
MOV B,#10
DIV AB ;A...B
MOV 74H,B
LCALL GetBCDKey
MOV R0,#BUFFER
MOV A,@R0 ;保存输入的被乘数
MOV R2,A ;R2R3
INC R0
MOV A,@R0
MOV R3,A
CLR PSW.1
MOV R0,#BUFFER2
MOV A,#04H
LCALL GetBCDKey
;..........................................................
MOV R7,60H ;..........................................................
MOV FLAG,#00H
MOV 60H,B
MOV 61H,A
MOV A,57H ;将57H乘52H送62H，进位送63H
MOV B,52H
MUL AB ;BA
MOV R0,A
ANL A,#0FH
MOV 62H,A
MOV B,#16
MOV A,R0
DA A
MOV B,#10
DIV AB ;A...B
MOV 76H,B
MOV 77H,A
MOV A,54H ;将
54H乘53H送78H，进位送79H
ANL A,#0FH
MOV 6CH,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,6CH
MOV B,#10
DIV AB ;A...B
MOV 6CH,B
MOV 6DH,A
MOV A,56H ;将56H乘50H送6EH，进位送6FH
MUL AB
MOV R0,A
ANL A,#0FH
MOV 7EH,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,7EH
DA A
MOV B,#10
DIV AB ;A...B
MOV 7EH,B
MOV 7FH,A ;..........................................................
SWAP A ;
MOV 50H,A ;
;
MOV A,R3 ;
MOV R1,#53H
MOV @R1,#00H
XCHD A,@R1
SWAP A
MOV 52H,A
MOV A,R4
MOV R1,#55H
MOV @R1,#00H
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,72H
DA A
MOV B,#10
DIV AB ;A...B
MOV 72H,B
MOV 73H,A
MOV A,55H ;将55H乘51H送74H，进位送75H
MOV B,53H
MUL AB
MOV R0,A
ANL A,#0FH
MOV 78H,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,78H
DA A
MOV B,#10
DIV AB ;A...B
MOV 78H,B
MOV 75H,A
MOV A,55H ;将55H乘50H送76H，进位送77H
MOV B,50H
MUL AB
MOV R0,A
ANL A,#0FH
MOV 76H,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
ADD A,76H
MOV A,57H ;将57H乘50H送66H，进位送67H
MOV B,50H
MUL AB ;BA
MOV R0,A
ANL A,#0FH
MOV 66H,A
MOV A,R0
SWAP A
ANL A,#0FH
MOV B,#16
MUL AB
PORT DATA 11H
ORG 0000H
LJMP MAIN
ORG 0100H
MAIN:CLR PSW.1 ;...........................................................