The following routine will solve your problem
;===============================;
; 16 bits Binary to 24 bits BCD ;
;===============================;
; R2:R1=Binary, R6:R5:R4=BCD ;
;-------------------------------;
Bin2Bcd16: ;
push b ;
mov b,#16 ;16 bits
clr a ;
mov r4,a ;Result=0
mov r5,a ;
mov r6,a ;
b2b16: mov a,r1 ;Shift Left binary
rlc a ;
mov r1,a ;
mov a,r2 ;
rlc a ;
mov r2,a ;
mov a,r4 ;Shift Left bcd
addc a,r4 ;
da a ;
mov r4,a ;
mov a,r5 ;
addc a,r5 ;
da a ;
mov r5,a ;
mov a,r6 ;
addc a,r6 ;
da a ;
mov r6,a ;
djnz b,b2b16 ;Repeat 16 times
pop b ;
ret ;
;-------------------------------;