bcdh.bak

bcd 转hex

org 0100h
st:          mov r2,#9
             mov r3,#99
             acall bcdh2
             sjmp $
bcdh1:         mov b,#10h
              div ab
              mov r4,b
              mov b,#10
              mul ab
              add a,r4
              ret
bcdh2:        mov a,r3
              lcall bcdh1
              mov r3,a
              mov a,r2
              lcall bcdh1
              mov b,#100
              mul ab
              add a,r3
              mov r3,a
              clr a
              addc a,b
              mov r2,a
              ret