Ensamblador - Ayuda ajuste bcd en ensamblador !!!! porfa!!

Bin8ToBCD3

        clrf    bcdL                ; clear bcd digits

        clrf    bcdH               ;

        bsf     bcdH,0            ; set bits count = 8

bcd_lp  rlcf    bin               ; shift bit out of binary

        movf    bcdL,w            ; and into bcd

        addwfc  bcdL,w          ;

        daw                             ; adjust bcd digits

        movwf   bcdL            ;

        rlcf    bcdH                 ;

        bnc     bcd_lp            ; loop until 8 bits

        return                         ; exit