N字节无符号二进制 转 十进制BCD码（C调用汇编子程序）

BXAK

汇编子程序模块：NBYTE_BCD.asm

1. ;========================================================================
   
2. ; extern void NBYTEBCD(unsigned char idata *pri, unsigned char leni, unsigned char idata *pro, unsigned char leno);
   
3. ;
   
4. ; N字节无符号二进制  对应  十进制BCD码字节数
   
5. ; (N <= 4 )  则 N+1   
   
6. ; (N <= 9 )  则 N+2          
   
7. ; (N <= 12) 则 N+3
   
8. ; ……
   
9. 
   
10. $NOMOD51
    
11. 
    
12. NAME NBYTE_BCD                                                  ;模块名
    
13. 
    
14. ?PR?_NBYTEBCD?NBYTE_BCD  SEGMENT CODE              ;在程序存储区中定义段     
    
15. ?DT?_NBYTEBCD?NBYTE_BCD  SEGMENT DATA OVERLAYABLE
    
16.         PUBLIC  ?_NBYTEBCD?BYTE
    
17.         PUBLIC  _NBYTEBCD                                        ;用PUBLIC 声明函数为公共函数
    
18. 
    
19.         RSEG          ?DT?_NBYTEBCD?NBYTE_BCD
    
20. ?_NBYTEBCD?BYTE:
    
21.             pri?040:   DS   1    ;R7
    
22.            leni?041:   DS   1    ;R5
    
23.             pro?042:   DS   1    ;R3
    
24.            ORG 3
    
25.            leno?043:   DS   1
    
26.         RSEG    ?PR?_NBYTEBCD?NBYTE_BCD                ;用RSEG 表示函数可被连接器放置在任何地方
    
27. 
    
28. ;========================================================================
    
29. ;函数：N字节无符号二进制转十进制BCD码
    
30. ;输入：*pri         
    
31. ;输出：*pro
    
32. ;资源：ACC、CY、R0、R1、R3、R4、R5、R7、leno?043
    
33. ; ROM：59B（包括调用函数时的形参输入）
    
34. 
    
35. _NBYTEBCD:
    
36.         ;USING        0
    
37.         MOV  A,R7
    
38.         ADD  A,R5  
    
39.         DEC  A     
    
40.         MOV  R7,A
    
41.        
    
42.         MOV  A,leno?043
    
43.         MOV  R4,A
    
44.         ADD  A,R3
    
45.         DEC  A      
    
46.         MOV  R3,A
    
47. 
    
48.         MOV  R0,A
    
49. NP__0:
    
50.          MOV  @R0,#0
    
51.         DEC  R0
    
52.         DJNZ R4,NP__0
    
53.        
    
54.         MOV  A,R5       ;转换(R5)字节二进制整数
    
55.         RL   A
    
56.         RL   A
    
57.         RL   A
    
58.         MOV  R1,A       ;计数器
    
59.      CLR  C
    
60. NP__1:       
    
61.         MOV  A,R5
    
62.         MOV  R4,A       ;循环(R5)次
    
63.         MOV  A,R7
    
64.         MOV  R0,A
    
65. NP__2:
    
66.          MOV  A,@R0      ;从高端移出待转换数的1位到CY中
    
67.          RLC  A
    
68.          MOV  @R0,A
    
69.         DEC  R0
    
70.         DJNZ R4,NP__2
    
71.        
    
72.         MOV  A,leno?043
    
73.         MOV  R4,A       ;循环(leno)次
    
74.         MOV  A,R3
    
75.         MOV  R0,A
    
76. NP__3:
    
77.          MOV  A,@R0      ;BCD码带进位自身相加，相当于乘2
    
78.          ADDC A,@R0
    
79.          DA   A          ;十进制调整
    
80.          MOV  @R0,A
    
81.         DEC  R0
    
82.         DJNZ R4,NP__3
    
83.        
    
84.          DJNZ R1,NP__1
    
85.        
    
86.          RET
    
87. 
    
88.         END

复制代码

使用方法，将 NBYTE_BCD.asm 添加到工程中，在 main.c 中声明后就可以调用，举例：

1. unsigned char asc[8] = {0x0A,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA};
   
2. unsigned char nz[10];
   
3. 
   
4. extern void NBYTEBCD(unsigned char idata *pri, unsigned char leni, unsigned char idata *pro, unsigned char leno);
   
5. 
   
6. void main(void)
   
7. {
   
8.         NBYTEBCD(asc, 8, nz, 10);
   
9.        
   
10.         while (1)
    
11.         {
    
12.                
    
13.         }
    
14. }

复制代码

downtoearth

汇编没有看懂，为什么不用C写一个呢，速度问题吗？

BXAK

downtoearth 发表于 2012-9-29 06:43
汇编没有看懂，为什么不用C写一个呢，速度问题吗？

用C写这个N字节转换还真不会，
如果你有C写的可否帖上来

Rookie_li

/*
* @brief  exchange the data to BCD
* @param  *source : the data to exchange
* @param  *target : the data exchanged
* @param  number :        the bytes of source to change
* @retval None
*/
void Tool_ChangeTo_BCD(rt_uint8_t *source,rt_uint8_t *target,rt_uint8_t number)
{
        rt_uint8_t count;
        rt_uint8_t length;

        length = number;
        for(count = 0;count < length;count++)
        {
                if(count%2 == 0)
                {
                        *(target + count/2) = *(source + count);
                        *(target + count/2) &= 0x0F;
                }
                if(count%2 == 1)
                {
                        *(target + count/2) |= (*(source + count)<<4);
                }
        }
}

BXAK

Rookie_li 发表于 2012-9-29 09:55
/*
* @brief  exchange the data to BCD
* @param  *source : the data to exchange

这个程序好像是N位十进制 转 BCD码，而不是 N字节无符号二进制 转 BCD码

downtoearth

我真心不会，只是我只会C，所以才问问.

downtoearth

想了一会写了这程序，我还是很菜，有什么错误的地方望大家多点指导，口下流情。

1. #include <STRING.H>
   
2. uchar Data[]= {0x0A,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA,0xAA};
   
3. uchar BCD[]={0};
   
4. uchar Four_Bit_BCD (uchar Data)
   
5. {
   
6. uchar Data_Temp ;
   
7. switch (Data)
   
8.         {
   
9.                  case 0 : Data_Temp = 0x00 ; break ;
   
10.                  case 1 : Data_Temp = 0x01 ; break ;
    
11.                  case 2 : Data_Temp = 0x02 ; break ;
    
12.                  case 3 : Data_Temp = 0x03 ; break ;
    
13.                  case 4 : Data_Temp = 0x04 ; break ;
    
14.                  case 5 : Data_Temp = 0x05 ; break ;
    
15.                  case 6 : Data_Temp = 0x06 ; break ;
    
16.                  case 7 : Data_Temp = 0x07 ; break ;
    
17.                  case 8 : Data_Temp = 0x08 ; break ;
    
18.                  case 9 : Data_Temp = 0x09 ; break ;
    
19.                  default : break ;
    
20.                 }
    
21. return Data_Temp ;
    
22. }
    
23. 
    
24. void Data_Change_BCD(uchar *Data_P,uchar *BCD_P)
    
25. {
    
26. uchar i ;
    
27. uchar Data_Temp_L,Data_Temp_H;
    
28. i=strlen(Data_P);
    
29. for (; i>0; i--)
    
30.       {
    
31.            Data_Temp_L = *Data_P  % 10 ;
    
32.            Data_Temp_H = *Data_P  / 10 ;
    
33.            *BCD_P = Four_Bit_BCD( Data_Temp_H )<<4+Four_Bit_BCD( Data_Temp_L );
    
34.            Data_P++;
    
35.            BCD_P++ ;
    
36.           }
    
37. }
    

复制代码

BXAK

downtoearth 发表于 2012-9-29 14:05
想了一会写了这程序，我还是很菜，有什么错误的地方望大家多点指导，口下流情。 ...

好像不对头，比如：
十六进制0xFF = 十进制255，将 十六进制0xFF 转换成 BCD 结果应该是 0x0225
十六进制0x0FFF FFFF FFFF FFFF = 十进制1,152,921,504,606,846,975，将 十六进制0x0FFF FFFF FFFF FFFF 转换成 BCD 结果应该是 0x01152921504606846975

downtoearth

BCD码不是用4位的二进制数表示1位的十进制数中的0-9吗？那么一个8位二进制数就是只可以表示0-99咯！
那为什么有0xAA的数据的。不明白，跟帖弄个究竟.理解错，我再想想！

BXAK

downtoearth 发表于 2012-9-29 14:28
BCD码不是用4位的二进制数表示1位的十进制数中的0-9吗？那么一个8位二进制数就是只可以表示0-99咯！
那为什 ...

1字节（即8位）无符号二进制数：0000 0000 ~ 1111 1111         
对应 十六进制：0x00 ~ 0xFF   
对应    十进制：0 ~ 255

比如想把十六进制数以十进制显示到数码管、液晶屏……时，
如果小于等于4字节时直接用除法和求余提取就可以，如：
unsigned int n = 12345;
十万位 = n/10000;
万位 = n/1000%10;
……
但如果8字节、……的十六进制数时，上面的方法行不通（keil C51支持最大的整形数据是unsigned long，4字节），这就需要把 8字节、……的十六进制数 先转成BCD


之所以弄这个程序是因为想做等精度频率计，需要公式 fx = (fo * nx) / no，其中:
unsigned long code fo = 22118400UL;
unsigned long no,nx;
运算中为了精确没有用浮点float运算，keil C51不支持double。
(fo * nx) 的积是 8字节十六进制，
(fo * nx) / no 的商是 8字节十六进制，余数是 4字节十六进制

downtoearth

改成这样不知可以不可以，我都不知用什么来测试这段代码。

1. #include <STRING.H>
   
2. #include "MacroAndConst.H"
   
3. uchar Data[]= {0x0F,0xFF,0xFF,0xFF,0xFF,0xFF, 0xFF,0xFF};
   
4. uchar BCD[]={0};
   
5. uchar Four_Bit_BCD (uint Data)
   
6. {
   
7. uchar Data_Temp ;
   
8. switch (Data)
   
9.         {
   
10.                  case 0 : Data_Temp = 0x00 ; break ;
    
11.                  case 1 : Data_Temp = 0x01 ; break ;
    
12.                  case 2 : Data_Temp = 0x02 ; break ;
    
13.                  case 3 : Data_Temp = 0x03 ; break ;
    
14.                  case 4 : Data_Temp = 0x04 ; break ;
    
15.                  case 5 : Data_Temp = 0x05 ; break ;
    
16.                  case 6 : Data_Temp = 0x06 ; break ;
    
17.                  case 7 : Data_Temp = 0x07 ; break ;
    
18.                  case 8 : Data_Temp = 0x08 ; break ;
    
19.                  case 9 : Data_Temp = 0x09 ; break ;
    
20.                  default : break ;
    
21.                 }
    
22. return Data_Temp ;
    
23. }
    
24. 
    
25. void Data_Change_BCD(uchar *Data_P,uchar *BCD_P)
    
26. {
    
27. uchar i ;
    
28. uint Data_Temp_1,Data_Temp_2,Data_Temp_3 ;
    
29. i=strlen(Data_P);
    
30. for (; i>0; i--)
    
31.       {
    
32.         *Data_P += Data_Temp_3 ;
    
33.          Data_Temp_1 = *Data_P  % 10 ;
    
34.          Data_Temp_2 = *Data_P  / 10 ;
    
35.            if ( Data_Temp_2 > 9 )               {
    
36.                                                                 Data_Temp_3 = Data_Temp_2 - 9 ;   
    
37.                                                                 Data_Temp_2 = 9 ;  
    
38.                                                            }
    
39.                else Data_Temp_3 = 0 ;
    
40.           
    
41.            *BCD_P = Four_Bit_BCD( Data_Temp_2 )<<4+Four_Bit_BCD( Data_Temp_1 );
    
42.            Data_P++;
    
43.            BCD_P++ ;
    
44.           }
    
45. if ( Data_Temp_3 != 0 )
    
46.       {
    
47.            BCD_P += 1;
    
48.            Data_Temp_1 = Data_Temp_3 % 10 ;
    
49.            Data_Temp_2 = Data_Temp_3 / 10 ;
    
50.            *BCD_P = Four_Bit_BCD( Data_Temp_2 )<<4+Four_Bit_BCD( Data_Temp_1 );
    
51.           }
    
52. }
    

复制代码

downtoearth

BXAK 发表于 2012-9-29 15:20
1字节（即8位）无符号二进制数：0000 0000 ~ 1111 1111         
对应 十六进制：0x00 ~ 0xFF   
对应   ...

哦，原来是这样，好复杂呀，不过我在keil51中用过double型数据修饰符，为什么编译器没有报错的。运算正确奇怪！

BXAK

downtoearth 发表于 2012-9-29 15:43
哦，原来是这样，好复杂呀，不过我在keil51中用过double型数据修饰符，为什么编译器没有报错的。运算正确 ...

keil51中用double 编译器会自动转成 float，精度只有6位小数，1.23456789 变成 1.234568
调试窗口如下：

downtoearth

BXAK 发表于 2012-9-29 16:31
keil51中用double 编译器会自动转成 float，精度只有6位小数，1.23456789 变成 1.234568
调试窗口如下：
...

哦，原来是这样，我想再问问你这个是什么软件，不是keil呀，是周立功那个程序编辑软件吗？

BXAK

downtoearth 发表于 2012-9-29 19:06
哦，原来是这样，我想再问问你这个是什么软件，不是keil呀，是周立功那个程序编辑软件吗？ ...

keil C51 最新版 9.50a

dexidz

很喜欢楼主的态度。。敬佩