;********************SUBCDNEG********************
;本程序實現單字節非壓縮BCD碼求補。
;入口參數：待處理的數據在SOU中。
;出口參數：結果在SOU中。
;占用資源：W,STATUS,024H.,一重堆棧。
;說    明: 0求補還是0.

           IFNDEF       SUBCDNEG1
            #DEFINE     SUBCDNEG1
                                                
SUBCDNEG    MOVF        SOU,F       ;判斷是不是0
            BTFSC       STATUS,Z
            RETURN
            MOVF        SOU,W
            SUBLW       .10
            MOVWF       SOU
            RETURN
           ENDIF