; convert packed-BCD to decimal
; R7: packed-BCD
; R6: decimal output
BCD2DEC:
mov A, R7
anl A, #0F0h
swap A
mov B, #10
mul AB
mov R6, A
mov A, R7
anl A, #0Fh
add R6, A
ret
; convert packed-BCD to decimal
; R7: packed-BCD
; R6: decimal output
BCD2DEC:
mov A, R7
anl A, #0F0h
swap A
mov B, #10
mul AB
mov R6, A
mov A, R7
anl A, #0Fh
add R6, A
ret
This small routine helped me a lot!!!!
Thanks....