Hello,

I developed a routine to convert from one byte hex to 100's, 10's and
1's, I would like to share it on the piclist library.

here is the code:

BUILT FOR PIC16

 MOVF    VALUE,W              ;THIS IS THE VALUE IN HEX TO BE CONVERT
    MOVWF   W_TEMP
    CLRF    PULSEVALUE_H
HUNDREDS
    MOVLW   .100    ;LOAD ONE HUNDRED
    SUBWF   W_TEMP
    BTFSS   CARRY   ;CARRY FLOW?
    GOTO    TENS    ;NOW TENS
    INCF    H,F ;MORE ONE HUNDRED, H IS THE REGISTER OF HUNDREDS
    MOVF    W_TEMP,W
    MOVWF   W_TEMP2
    GOTO    $-7     ;SUB ONE MORE TIME
TENS
    MOVLW   .10    ;LOAD ONE HUNDRED
    SUBWF   W_TEMP2
    BTFSS   CARRY   ;CARRY FLOW?
    GOTO    ONES    ;NOW ONES
    INCF    T,F ;MORE ONE HUNDRED, T IS THE REGISTER OF TENS
    MOVF    W_TEMP2,W
    MOVWF   W_TEMP
    GOTO    $-7     ;SUB ONE MORE TIME
ONES
    MOVF    W_TEMP,W
    MOVWF  O       ;THE REST IS NUMBER OF ONES, "O" IS THE REGISTER



Regards, Renan Valente
-- 
http://www.piclist.com PIC/SX FAQ & list archive
View/change your membership options at
http://mailman.mit.edu/mailman/listinfo/piclist