pic转化子程序.docVIP

pic转化子程序 在该子程序中要调用大量的子程序，如浮点数乘法子程序、浮点数除法子程序、浮点数至定点数转换子程序和定点数至BCD码转换子程序等。在此由于篇幅的原因都予以省略，需要这些子程序的读者，请参阅前面相关章节。浮点数至压缩BCD码转换程序的入口条件和出口条件如下：入口条件：ACCBHI、ACCBLO、EXPB 出口条件：5位压缩BCD码存于ACCCHI低半字节、ACCCLO和ACCDHI中，符号保存于FPOL寄存器的第7位，小数点位置存于C_MUL和C_DIV中。以下为本子程序的程序清单。 LIST p=16f877 INCLUDE p16f877.inc ACCALO EQU 20 ；临时寄存器 ACCAHI EQU 21 EXPA EQU 22 ；临时寄存器 ACCBLO EQU 23 ；存放被转换浮点数尾数 ACCBHI EQU 24 EXPB EQU 25 ；存放被转换浮点数阶码 ACCCLO EQU 26 ；临时寄存器 ACCCHI EQU 27 ；临时寄存器 ACCDLO EQU 28 ；临时寄存器 ACCDHI EQU 29 ；临时寄存器 TEMP EQU 2A ；临时寄存器 TEMP1 EQU 30 ；临时寄存器 TIMES EQU 31 ；临时寄存器 SIGN EQU 2B ；临时寄存器 COUNT EQU 2F ；临时寄存器 C_MUL EQU 2C ；存放小数点位置 C_DIV EQU 2D ；存放小数点位置 FPOL EQU 2E ；存放被转换数的符号 ORG 0X0000 START GOTO MAIN ORG 0X0100 ；*************浮点数到BCD码子程序**************** FtoBCD CLRF C_MUL ；清小数点位数寄存器 CLRF C_DIV CLRF ACCAHI ；求取结果符号，存于FPOL.7 CALL S_SIGN MOVF SIGN ，0 MOVWF FPOL MOVLW 50 ；ACCA赋初值，ACCA=10（十进制） MOVWF ACCAHI CLRF ACCALO MOVLW 04 MOVWF EXPA MUl5 BTFSS EXPB，7 ；阶码EXPB0？ GOTO MUl2 ；否，转MU12 MUl1 CALL F_mpy ；是，ACCA×10 INCF C_MUL ；小数点左移寄存器加1 GOTO MUl5 ；重新判断阶码是否小于零 MUl2 MOVLW .12 ；阶码EXPB12？ SUBWF EXPB，0 BTFSC STATUS，C GOTO MUl4 ；否，转MU14 MUl3 CALL F_mpy ；是，ACCA×10 INCF C_MUL ；小数点左移寄存器加1 GOTO MUL2 ；重判阶码值 MUl4 MOVLW .16 ；阶码EXPB16？ SUBWF EXPB，0 BTFSS STATUS，C GOTO NEXT ；否，表示阶码12≤EXPB16，求取BCD码值 DIV1 CALL FDIV ；是，EXPB÷10 INCF C_DIV ；小数点右移寄存器加1 GOTO MUl4 ；重新判断阶码值 NEXT CALL FTOW3 ；调子程序，将浮点数转换为定点数 CALL BtoBCD ；调双字节数到BCD码子程序，求BCD码 MOVF ACCCHI ；ACCCHI=0？ BTFSS STATUS，Z RETLW 0 ；否，返回 MOVLW 04 ；是，结果左移4次，保证ACCCHI不为零 MOVWF TIMES BCF STATUS，C MUl6 RLF ACCDHI RLF ACCCLO RLF ACCCHI DECFSZ TIMES GOTO MUl6 MOVF C_DIV ；C_DIV=0？ BTFSC STATUS，Z GOTO TEMUL ；是，转判断C_MUL DECF C_DIV ；否，小数点右移寄存器减1 RETLW 0 TEMUL INCF C_MUL ；小数点左移寄存器加1 RETLW 0 【校验举例1】 -5.8125（十进制）化为浮点数：A30003 结果：058120（BCD），C_MUL=4，C_DIV=0，FPOL=A3 【校验举例2】 0十进制）化为浮点数：4012F6 结果：048870（BCD），C_MUL=08，C_DIV=0，FPOL=40 【例程】 MAIN MOVLW 0X00 ；将被转换数的尾数赋给ACCB MOVWF ACCBLO MOVLW 0XA3 MOVWF ACCBHI MOVLW 0X03 ； 将被转换数的阶码赋给EXPB MOVWF EXPB CALL FtoBCD ；调用子程序开始转换 END 6 定点数开方子程序 从数值计算方