Question

压缩bcd码转为二进制数

51单片机 这个算法有什么错误 50h 51h 是压缩bcd码 转换后放回 50h 51h
程序如下：
ORG 0000H
MOV R0,#50H
LCALL BCD10
INC R0
LCALL BCD10
BCD10: MOV A,@R0
ANL A,#0F0H
SWAP A
MOV B,#10
MUL AB
XCH A,@R0
ANL A,#0FH
ADD A,@R0
MOV @R0,A
RET
CLR C
MOV A,51H
MOV R3,#0
MOV R2,51H
JZ OVER
MOV A,50H
MOV R4,A
LOOP: MOV A,R4
ADD A,#100
MOV R4,A
CLR A
ADDC A,R3
MOV R3,A
CLR C
DJNZ R2,LOOP
MOV 50H,R4
MOV 51H,R3
OVER: SJMP $
END

Answer 1

程序的结构混乱。
……
LCALL BCD10 －－调用子程序，之后执行什么？
BCD10: MOV A,@R0 －－之后，又执行到子程序里搭核腊面了！
ANL A,#0F0H
SWAP A
MOV B,#10
MUL AB
XCH A,@R0
ANL A,#0FH
ADD A,@R0
MOV @R0,A
RET －－氏宏返回到何处？
CLR C －－返知滑回指令后面的程序，还能执行吗？
MOV A,51H
MOV R3,#0
……