;********************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