十年專注單片機(jī)方案開發(fā)的方案公司英銳恩，分享pic單片機(jī)子程序庫。英銳恩現(xiàn)提供服務(wù)產(chǎn)品涉及主控芯片：8位單片機(jī)、16位單片機(jī)、32位單片機(jī)及各類運(yùn)算放大器等。

INCLUDE "P16F877.INC" W EQU H'0000' F EQU H'0001' IRP EQU H'0007' RP1 EQU H'0006' RP0 EQU H'0005' NOT_TO EQU H'0004' NOT_PD EQU H'0003' Z EQU H'0002' DC EQU H'0001' C EQU H'0000' INDF EQU H'0000' TMR0 EQU H'0001' PCL EQU H'0002' STATUS EQU H'0003' FSR EQU H'0004' PCLATH EQU H'000A' ;**********************定點(diǎn)資源******************** SADR EQU 020H SADRH EQU 021H DADR EQU 022H CNT EQU 023H SOU EQU 024H SOUH EQU 025H RLT EQU 026H RLTH EQU 027H TEMP1 EQU 028H TEMP2 EQU 029H TEMP3 EQU 02AH TEMP4 EQU 02BH ;***************浮點(diǎn)基本運(yùn)算資源********************* TEMP9 EQU 020H ;SADR TEMP10 EQU 021H ;SADRH EXP2 EQU 022H ;DADR EXP1 EQU 023H ;CNT ARGBL1 EQU 024H ;SOU ARGBH1 EQU 025H ;SOUH ARGBL2 EQU 026H ;RLT ARGBH2 EQU 027H ;RLTH TEMP1 EQU 028H ;TEMP1 TEMP2 EQU 029H ;TEMP2 TEMP3 EQU 02AH ;TEMP3 TEMP4 EQU 02BH ;TEMP4 TEMP5 EQU 02CH TEMP6 EQU 02DH TEMP7 EQU 02EH TEMP8 EQU 02FH

FPFLAGS EQU TEMP9 SIGN EQU TEMP10 IOV EQU 0 FOV EQU 1 FUN EQU 2 FDZ EQU 3 NAN EQU 4 DOM EQU 5 RND EQU 6 SAT EQU 7 MSB EQU 7 LSB EQU 0 ;*******************浮點(diǎn)函數(shù)資源*************************** AEXP EQU EXP1 EXP EQU AEXP AARGB0 EQU ARGBH1 AARGB1 EQU ARGBL1 AARGB2 EQU TEMP1 AARGB3 EQU TEMP2 ;AARGB4 EQU ?? ;AARGB5 EQU ?? ;AARGB6 EQU ?? ;AARGB7 EQU ?? AARG EQU AARGB0 BEXP EQU EXP2 BARGB0 EQU ARGBH2 BARGB1 EQU ARGBL2 BARGB2 EQU TEMP3 ;BARGB3 EQU ?? BARG EQU BARGB0

LOOPCOUNT EQU TEMP5 TEMP EQU TEMP5

;CEXP EQU ?? ;CARGB0 EQU ?? ;CARGB1 EQU ?? ;CARGB2 EQU ?? ;CARGB3 EQU ??

;DEXP EQU ?? DARGB0 EQU TEMP4 ;DARGB1 EQU ?? ;DARGB2 EQU ?? ;DARGB3 EQU ??

;EEXP EQU ?? ;EARGB0 EQU ?? ;EARGB1 EQU ?? ;EARGB2 EQU ?? ;EARGB3 EQU ??

;ZARGB0 EQU ?? ;ZARGB1 EQU ?? ;ZARGB2 EQU ?? ;ZARGB3 EQU ?? ;RANDB0 EQU ?? ;RANDB1 EQU ?? ;RANDB2 EQU ?? ;RANDB3 EQU ??

;********************SUADD******************** ;本程序?qū)崿F(xiàn)單字節(jié)無符號(hào)數(shù)加法。 ;入口參數(shù)：被加數(shù)在SOU中，加數(shù)在RLT中。 ;出口參數(shù)：結(jié)果在SOUH:SOU中。 ;占用資源：W,STATUS,024H,025H,026H,一重堆棧。

IFNDEF SUADD1 #DEFINE SUADD1

SUADD CLRF SOUH ;存結(jié)果高位 MOVF RLT,W ADDWF SOU,F RLF SOUH,F ;進(jìn)位位移入RLT中 RETURN ENDIF