subcdmul.asm

来自「本程序实现ASCII码转化为一位十六进制数 原ASCII码在SOU中 结果在」· 汇编 代码 · 共 23 行

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