十年專注單片機方案開發的方案公司英銳恩，分享pic單片機子程序庫。英銳恩現提供服務產品涉及主控芯片：8位單片機、16位單片機、32位單片機及各類運算放大器等。

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' ;**********************定點資源******************** 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 ;***************浮點基本運算資源********************* 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 ;*******************浮點函數資源*************************** 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******************** ;本程序實現單字節無符號數加法。 ;入口參數：被加數在SOU中，加數在RLT中。 ;出口參數：結果在SOUH:SOU中。 ;占用資源：W,STATUS,024H,025H,026H,一重堆棧。

IFNDEF SUADD1 #DEFINE SUADD1

SUADD CLRF SOUH ;存結果高位 MOVF RLT,W ADDWF SOU,F RLF SOUH,F ;進位位移入RLT中 RETURN ENDIF