bcdh.bak

来自「bcd 转hex」· BAK 代码 · 共 28 行

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