;input: packed BCD
   mov   r0,a    ;separate the high and low nibble first
   anl   a,#0Fh
   xch   a,r0
   mov   b,#10   ;the high nibble has to be multiplied by 10
   mul   ab
   add   a,r0    ;now add accumulator