单字节BIN转BCD一法

clark

单字节BIN转BCD一法 [复制链接]

这几天折腾一个AD结果换算成某比值数的问题，终于有了结果，结果存放在一个字节内，不超过0X64(100d). 要将其转化为2位BCD码在七段LED上显示，搜了一些现成程序，发现计算时间消耗较多，于是想用查表法解决。以下是子程序，二进制数存在DATAA1里，转换后的结果以压缩BCD码格式仍存在DATAA1中。有个DATAA2是临时占用。两个表附后。该子程序在我的实际应用中调试通过。

1. 
   
2. ;*****************BIN TO BCD CONVERT**************
   
3. BIN_TO_BCD
   
4.         MOVF    DATAA1,W
   
5.         MOVWF   DATAA2
   
6.         SWAPF   DATAA1,W
   
7.         ANDLW   0X0F
   
8.         CALL    BIN_HIGHHALF_BCD_TABLE
   
9.         MOVWF   DATAA1
   
10.         MOVF    DATAA2,W
    
11.         ANDLW   0X0F
    
12.         CALL    BIN_LOWHALF_BCD_TABLE
    
13.         ADDWF   DATAA1,W
    
14.         MOVWF   DATAA2
    
15.         ANDLW   0XF0
    
16.         MOVWF   DATAA1
    
17.         MOVF    DATAA2,W
    
18.         ANDLW   0X0F
    
19.         CALL    BIN_LOWHALF_BCD_TABLE
    
20.         ADDWF   DATAA1,F      
    
21.         RETURN
    
22. ;***************BIN HIGH HALF TO BCD TABLE**********
    
23. ;用于将高半字节的BIN码换成整字节的压缩BCD码
    
24. BIN_HIGHHALF_BCD_TABLE
    
25.         ADDWF    PCL,1
    
26.         RETLW    B'00000000'     ;0
    
27.         RETLW    B'00010110'     ;16
    
28.         RETLW    B'00110010'     ;32
    
29.         RETLW    B'01001000'     ;48
    
30.         RETLW    B'01100100'     ;64
    
31.         RETLW    B'10000000'     ;80
    
32.         RETLW    B'10010110'     ;96
    
33.         RETLW    B'00101000'     ;128,失掉了百位
    
34. ;***************BIN LOW HALF TO BCD TABLE**********
    
35. ;用于将低半字节的BIN码换成整字节的压缩BCD码
    
36. BIN_LOWHALF_BCD_TABLE
    
37.         ADDWF    PCL,1
    
38.         RETLW    B'00000000'     ;0
    
39.         RETLW    B'00000001'     ;1
    
40.         RETLW    B'00000010'     ;2
    
41.         RETLW    B'00000011'     ;3
    
42.         RETLW    B'00000100'     ;4
    
43.         RETLW    B'00000101'     ;5
    
44.         RETLW    B'00000110'     ;6
    
45.         RETLW    B'00000111'     ;7
    
46.         RETLW    B'00001000'     ;8
    
47.         RETLW    B'00001001'     ;9
    
48.         RETLW    B'00010000'     ;A
    
49.         RETLW    B'00010001'     ;B
    
50.         RETLW    B'00010010'     ;C
    
51.         RETLW    B'00010011'     ;D
    
52.         RETLW    B'00010100'     ;E
    
53.         RETLW    B'00010101'     ;F
    

复制代码

clark

简要说明:
该子程序在满足无符号二进制整数的值不超过100d条件时，是一个通用的转换办法。
第一次查表一是将高半字节转换为BCD码；第二次查表二是将低半字节转换为BCD码；第三次查表二是在前两次查表结果相加后，结果的低半字节已经还原成为二进制数，要再查表二加以转换。
该法也可用于各种线性比例的变换。例如，将AD结果的10位二进制数转换为乘以某系数的值域。

gtekled

在满足无符号二进制整数的值不超过100d条件时，是一个通用的转换办法