分享一道单字节无符号数的乘法

;********************SUMUL********************
;本程序实现单字节无符号数乘法。
;入口参数：被乘数在SOU中，乘数在RLT中。
;出口参数：结果在SOUH:SOU中。
;占用资源：W,STATUS,023H,024H,025H,026H,一重堆栈。
           IFNDEF        SUMUL1
            #DEFINE     SUMUL1
                       
SUMUL  MOVLW       8
            MOVWF       CNT
            MOVF          SOU,W
            CLRF           SOU
            CLRF           SOUH
            BCF             STATUS,C
LOOP2  RRF              RLT,F
            BTFSC         STATUS,C
            ADDWF        SOUH,F
            RRF             SOUH,F
            RRF             SOU,F
            DECFSZ       CNT,F
            GOTO          LOOP2
            RETLW        0
            ENDIF
:victory:

再加一道使用加法的单字节乘法子程序。
;入口是被乘数SOU,RLT为乘数
;出口是R5存高位，R1存低位
;R1低位R5高位
        CLRF        R1
        CLRF        R5
LOOP0        MOVF        SOU,        W
        ADDWF        R1,        1
        MOVF        R5,        W
        BTFSC        C
        ADDLW        .1
        MOVWF        R5
        DECFSZ        RLT,        1
        GOTO        LOOP0

恩 不好意思 说是子程序，结果开头的子程序名和末尾的RETURN漏了，自动补上哈。