scobcdmul.asm

来自「微芯公司的PIC子程序库及运算平台」· 汇编 代码 · 共 26 行

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