PIC16: toBCD8 - Hexadecimal para BCD 8 bits

A função de conversão de números hexadecimais para BCD de 8 bits em assembly é uma rotina simples que consiste em sucessivas subtrações por .10 (0xA) para contagem das dezenas. Após a obtenção do dígito das dezenas, tem-se o das unidades (o número restante das subtrações). Essa rotina pode ser utilizada para a exibição de 2 números em displays de 7 segmentos.

A função abaixo utiliza o coding folding do MPLAB. Esse recurso é utilizado através das linhas ;{ e ;}. O código abaixo é compatível com as famílias PIC16 e PIC18.

Variáveis utilizadas:

  • BCD_low
  • BCD_unidades
  • BCD_dezenas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
;*********************************************************
;<FUNÇÃO> 
; toBCD8
;{
; Converte um número de 8 bits em decimal para BCD
 
; <ARGUMENTOS>
; BCD_low = número de 8 bits a ser convertido em BCD
 
; <RETORNO>
; BCD_unidades = dígito menos significativo
; BCD_dezenas = dígito mais significativo
; BCD_low = ambos os dígitos
;*********************************************************
#ifdef toBCD 
 
toBCD8: 
    banksel BCD_low
    ; .100 invés de 99 para evitar o teste de igualdade
    movlw .100 ; verifica se o número é maior que .99
    subwf BCD_low,w
    btfsc STATUS, C
        clrf BCD_low; apaga o número caso for maior que .99
 
    clrf BCD_unidades ; apaga cálculos anteriores
    clrf BCD_dezenas
 
dezenas_toBCD8: ; dígito mais significativo
    movlw .10
    subwf BCD_low, f
    btfss STATUS, C
        goto unidades_toBCD8
    incf BCD_dezenas,f
    goto dezenas_toBCD8
 
unidades_toBCD8: ; dígito menos significativo
    movlw .10
    addwf BCD_low, f
    movf BCD_low, w
    movwf BCD_unidades    
 
    swapf BCD_dezenas,w
    iorwf BCD_unidades,w
    movwf BCD_low ; retorna o resultado também em BCD_low
 
    return ; toBCD8
#endif
;} 
 
;*********************************************************