实用子程序.rar本子程序库对《单片机应用程序设计技术》一书附录中的子程序库作了重大修订

				;【校验举例1】 19531（十进制）
				;化为十六进制数：4C4B0FH 
				;结果：4C4BH
				;4.2  3字节浮点数转换为定点整数
				;子程序的转换结果将采用补码表示。其转换数值范围：-32768～32767,
				;入口条件和出口条件如下：
				;入口条件：ACCBHI、ACCBLO、EXPB
				;出口条件：ACCBHI、ACCBLO
				 ;   以下为子程序的清单。由于程序所需调用的子程序和所需通用寄存器
				;单元地址和定点数转换为浮点数子程序相同,在此省略。使用时,将前面介绍
				;的子程序拷入此处即可。
				    LIST            p=16f877
				    INCLUDE        p16f877.inc
				ACCBLO         EQU     23h        ;存放被转换的双字节整数低8位
				ACCBHI         EQU     24h        ;存放被转换的双字节整数高8位
				ACCCLO         EQU     26h        ;存放5位BCD码
				ACCCHI         EQU     27h
				ACCDLO         EQU     28h
				ACCDHI         EQU     29h
				TEMP         EQU     2Ah        ;临时寄存器
				SIGN         EQU     2Bh        ;被转换数符号寄存器
				EXPB         equ     2ch
				NEG_B        EQU     2DH 
				    ORG            0X0000
				
				
				
				MAIN        MOVLW        0X4B        ;被转换数4C4BH送ACCB
				    MOVWF        ACCBLO
				    MOVLW        0X4C
				    MOVWF        ACCBHI
				    MOVLW        0X0F
				    MOVWF        EXPB
				        CALL        FtoD            ;调用定点数至浮点数转换子程序
				   GOTO  $
				
				FtoD    CLRF         SIGN            ;清结果符号寄存器
				    MOVF         ACCBHI,0
				    BTFSS         ACCBHI,7    ;被转换数是否为负？
				    GOTO         D1
				    BSF             SIGN,7        ;是,SIGN.7置1
				    CALL         NEG_B        ;被转换数取补
				D1    BTFSS         EXPB,7        ;被转换数为正,再判阶码为负否？
				    GOTO         D2
				    CLRF         ACCBHI        ;为负,被转换数小于1,无法用定点数表示
				    CLRF         ACCBLO
				    RETLW         0
				D2    MOVLW         .16            ;被转换数阶码减16（十进制数）
				    SUBWF         EXPB,0
				    BTFSS         STATUS,C    ;阶码小于16？
				    GOTO         D3
				        MOVLW         0XFF            ;阶码大于等于16,置ACCB为最大,返回
				    MOVWF         ACCBHI
				    MOVWF         ACCBLO
				    RETLW         01
				D3    CALL         FTOW3        ;调用子程序将浮点数转换为定点数
				    BTFSC         SIGN,7        ;定点数为负？
				    CALL         NEG_B        ;是,取补
				    RETLW         0            ;否,返回
				;****************************************
				FTOW3    MOVLW         .15            ;EXPB=15（十进制数）？
				    SUBWF         EXPB,0
				    BTFSC         STATUS,Z
				    RETLW         0            ;是,返回
				    BCF             STATUS,C    ;否,ACCB继续右移,EXPB加1
				    RRF             ACCBHI
				    RRF             ACCBLO
				    INCF         EXPB
				    GOTO         FTOW3        ;重新判断EXPB=15？
				
				
				
				
				
				    END