参考一下我的这个子程序吧.adjusttobcd:
mov a,voll
;adjust hex data(volh and voll) to decimal data
mov b,#100
div ab
add a,volh
mov volh,a
jnc adjustcarry1
inc volint
inc volint
mov a,#56
add a,volh
mov volh,aadjustcarry1:
MOV A,#10
XCH A,B
DIV AB
SWAP A
ORL A,B
mov voll,a
mov a,volh
mov b,#100
div ab
add a,volint
mov volint,a
mov a,#10
xch a,b
div ab
swap a
orl a,b
mov volh,a
RET |