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

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