定点数转浮点数的程序

十年专注单片机方案开发的方案公司英锐恩，分享定点数转浮点数的程序。英锐恩现提供服务产品涉及主控芯片：8位单片机、16位单片机、32位单片机及各类运算放大器等。

定点数转换成浮点数
本子程序的功能是将双字节定点整数（十六进制）转换为3字节浮点数，其转换数值范围：-32768～32767，入口条件和出口条件如下：
入口条件：ACCBHI、ACCBLO
出口条件：ACCBHI、ACCBLO、EXPB
以下为定点整数转换成浮点数的程序清单。
    LIST            p=16f877
    INCLUDE        p16f877.inc
    ACCBLO         EQU     23        ；存放定点整数和转换后浮点数的尾数
    ACCBHI         EQU     24
    EXPB         EQU     25        ；存放转换后浮点数的阶码
    ACCCLO         EQU     26        ；临时寄存器
    ACCCHI         EQU     27        ；临时寄存器
    ACCDLO         EQU     28        ；临时寄存器
    ACCDHI         EQU     29        ；临时寄存器
    SIGN         EQU     2B        ；存放被转换数的符号

ORG            0X0000
START    GOTO        MAIN
    ORG            0X0100
；*********双字节定点整数到浮点数转换子程序***********
DtoF    CLRF         SIGN            ；根据被转换数确定结果的符号，对负数取补
    BTFSS         ACCBHI，7
    GOTO         INTF1
    BSF             SIGN，7
    CALL         NEG_B
INTF1    MOVLW         .15            ；初始化EXPB
    MOVWF         EXPB
    CLRF         ACCCHI
    CLRF         ACCCLO
    CALL         F_norm        ；对ACCB进行规格化
    BTFSS         SIGN，7        ；结果为负？
    GOTO         DtoF1
    CALL         NEG_B        ；是，求补
DtoF1    RETURN   
；**************浮点数规格化子程序**************
F_norm     MOVF         ACCBHI        ；ACCB＝0？
    BTFSS         STATUS，Z
    GOTO         C_norm
    MOVF         ACCBLO
    BTFSC         STATUS，Z

 RETLW         0            ；是，不需规格化，返回
C_norm    BTFSC        ACCBHI，7    ；否。ACCB为负？
     GOTO        C_norm2   
C_norm1    BTFSC         ACCBHI，6    ；为正。规格化完毕？
    RETLW         0            ；ACCBHI.6=1，规格化结束
    CALL         SHFTSL        ；否。ACCB左移
    DECF         EXPB        ；EXPB减1
    GOTO         C_norm1        ；重新判断规格化完毕否？
C_norm2    BTFSS        ACCBHI，6    ；ACCB为负。规格化完毕否？
    RETLW        0            ；ACCBHI.6=0，规格化结束
    BCF            STATUS，C   
    CALL        SHFTSL        ；否，ACCB左移
    BSF            ACCBHI，7    ；加符号
    DECF        EXPB        ；EXPB减1

 GOTO        C_norm2        ；重新判断规格化完毕否？
SHFTSL      BCF             STATUS ，C    ；ACCB左移子程序   
    RLF             ACCCLO       
    RLF             ACCCHI
    RLF             ACCBLO
    RLF             ACCBHI
    RETLW         0
【校验举例1】 19531（十进制）
化为十六进制数：4C4BH
结果：4C4B0FH
【校验举例2】 2622（十进制）
化为十六进制数： 0A3EH
结果：51F00CH
【例程】
MAIN        MOVLW        0X4B        ；被转换数4C4BH送ACCB
    MOVWF        ACCBLO
    MOVLW        0X4C
    MOVWF        ACCBHI
        CALL        DtoF            ；调用定点数至浮点数转换子程序
    END