From: Scott Dattalo
mov W, >>bcd and W, #01111000b ;W = tens*8 mov temp, W clrb C rr temp ;temp = tens*4 rr temp ;temp = tens*2 mov W, bcd-w ;W = tens*16 + ones - tens*8 ;W = tens*8 + ones add W, temp ;W = tens*10 + ones