;********************SCOBCDMUL********************
;本程序实现单字节压缩BCD码乘法。
;入口参数：被乘数在SOU中，乘数在RLT中。
;出口参数：结果在SOUH:SOU中。
;占用资源：W,STATUS,023H,024H,025H,026H,027H,028H,029H,02AH,两重堆栈。
;说 明: 加载本文件的同时也加载了另外三个文件"SCOBCDTB.ASM","DBTBCD.ASM"
; "SUMUL.ASM",故用户在使用这三个子程序时可直接调用,不必重新加载.
IFNDEF SCOBCDMUL1
#DEFINE SCOBCDMUL1
SCOBCDMUL CALL SCOBCDTB ;乘数转化为二进制数
MOVF SOU,W
MOVWF TEMP2 ;暂存在RLTH中
MOVF RLT,W
MOVWF SOU
CALL SCOBCDTB ;被乘数转化为二进制数
MOVF TEMP2,W
MOVWF RLT ;二进制数归位
CALL SUMUL
CALL DBTBCD ;转化为BCD码
RETLW 0
INCLUDE "SCOBCDTB.ASM"
INCLUDE "SUMUL.ASM"
INCLUDE "DBTBCD.ASM"
ENDIF