DACBuffer       equ     30h 
Buff            equ     32h        BinBcd:
        mov     r6,DACBuffer
        mov     r5,#08
        clr     a
        mov     r3,a  
        mov     r4,a  
Bloop 
        mov     a,r6  
        rlc     a
        mov     r6,a
        mov     a,r3
        addc    a,r3
        da      a
        mov     r3,a
        mov     a,r4
        addc    a,r4
        da      a
        mov     r4,a
        djnz    r5,Bloop
        mov     Buff,r3
        mov     Buff 1,r4
        ret