;********************SUBCDMUL********************
;本程序實現單字節非壓縮BCD碼乘法。
;入口參數：被乘數在SOU中，乘數在RLT中。
;出口參數：結果為壓縮BCD碼，在SOU中。
;占用資源：W,STATUS,023H,024H,026H,兩重堆棧。
;說    明: 加載本文件的同時也加載了另外一個文件"SBTBCD1.ASM"
;          故用戶在使用這個子程序時可直接調用,不必重新加載.

           IFNDEF       SUBCDMUL1
            #DEFINE     SUBCDMUL1
                        
SUBCDMUL    MOVF        SOU,W
            CLRF        SOU
            MOVF        RLT,F
            BTFSC       STATUS,Z    ;被乘數是0則結果為0
            RETURN                     
LOOP17      ADDWF       SOU,F       ;加乘數
            DECFSZ      RLT,F   
            GOTO        LOOP17
            CALL        SBTBCD1
            RETURN
            INCLUDE     "SBTBCD1.ASM"
           ENDIF