Binary/BCD converter

[Ranco_Raider]

Hey guys, I'm using a pic16F690 and I need assembly code to convert an 8 bit binary to packed bcd and vice versa. I have to use the w register as the input and output. Im using MPLab X. Please can someone help with the code. Thanks for the help

 

[KlausST]

Hi,

We will not write code for you, but we will help you.
So show what you have done so far.

Klaus

 

[danadakk]

PIC Microcontoller Radix Math Method Binary to BCD half-packed 8 bit to 3 digit

PIC Microcontoller Radix Math Method Binary to BCD half-packed 8 bit to 3 digit

www.piclist.com

8 bit to BCD routine? struggling | Microchip

hi all, im programming a 18f8722, on PIC18 board, and sampling An0, all is well. However, does anyone have decent routine for 8 bit to bcd in assembler. Ive fried my brain trying to understand examples/psuedo code. ie Double Dabble routine, shift left one bit, (where do...

www.microchip.com

Maybe you could draw from the above to do your task.


Regards, Dana.

 

[Dan1138]

Hey guys, I'm using a pic16F690 and I need assembly code to convert an 8 bit binary to packed bcd and vice versa. I have to use the w register as the input and output. Im using MPLab X. Please can someone help with the code. Thanks for the help

Careful what you ask for you just might get it.

;
;   Data space use by binary to BCD convertion
    PSECT   BCD_Data,global,class=RAM,space=1,delta=1,noexec
;
    GLOBAL  BCD_Result
BCD_Result: DS      2
;
    PSECT   MainCode,global,class=CODE,delta=2
;
Bin2BCD:
    movwf   BCD_Result
    clrf    BCD_Result+1
    movlw   200
    subwf   BCD_Result,W
    skipnc
    movwf   BCD_Result
    skipnc
    bsf     BCD_Result+1,1
    movlw   100
    subwf   BCD_Result,W
    skipnc
    movwf   BCD_Result
    skipnc
    bsf     BCD_Result+1,0
    movlw   80
    subwf   BCD_Result,W
    skipnc
    movwf   BCD_Result
    skipnc
    bsf     BCD_Result+1,7
    movlw   40
    subwf   BCD_Result,W
    skipnc
    movwf   BCD_Result
    skipnc
    bsf     BCD_Result+1,6
    movlw   20
    subwf   BCD_Result,W
    skipnc
    movwf   BCD_Result
    skipnc
    bsf     BCD_Result+1,5
    movlw   10
    subwf   BCD_Result,W
    skipnc
    movwf   BCD_Result
    skipnc
    bsf     BCD_Result+1,4
    movf    BCD_Result+1,W
    xorwf   BCD_Result,W
    andlw   0xF0
    xorwf   BCD_Result+1,F
    xorwf   BCD_Result,F
    movf    BCD_Result,W
    return
;
BCD2Bin:
    movlw   0x0F
    andwf   BCD_Result,W
    btfsc   BCD_Result,4
    addlw   10
    btfsc   BCD_Result,5
    addlw   20
    btfsc   BCD_Result,6
    addlw   40
    btfsc   BCD_Result,7
    addlw   80
    btfsc   BCD_Result+1,0
    addlw   100
    btfsc   BCD_Result+1,1
    addlw   200
    return
;

 

[betwixt]

Check here: http://www.piclist.com/techref/microchip/math/radix/index.htm

Brian.