mulss.asm

来自「通过调试的有用的单片机控制程序」· 汇编 代码 · 共 62 行

;     双字节乘单字节
;*************************  *****
;              高字节低字节
;            X 高字节低字节
;         —————————
;        高字节中字节低字节
;+ 高字节中字节低字节
;———————————
;  1      2     3     4  
;*************************  *****
MULCL   DATA    31H     ;被乘数低字节
MULCH   DATA    30H     ;被乘数高字节
MULBCL  DATA    33H     ;乘数低字节
MULBCH  DATA    32H     ;乘数高字节
MULBUF1 DATA    36H
MULBUF2 DATA    35H
MULBUF3 DATA    34H
ORG     0000H
AJMP    MULSS
MULSS:  MOV     A,#0
        MOV     MULBUF1,A
        MOV     MULBUF2,A
        MOV     MULBUF3,A
        ;
        MOV     A,MULBCL
        MOV     B,MULCL
        MUL     AB
        MOV     MULBUF1,A
        MOV     MULBUF2,B
        MOV     A,MULBCH
        MOV     B,MULCL
        MUL     AB
        CLR     C
        ADD     A,MULBUF2
        MOV     MULBUF2,A
        CLR     A
        ADDC    A,B
        MOV     MULBUF3,A
        CLR     C
        ;
        MOV     A,MULBCL
        MOV     B,MULCH
        MUL     AB
        ADD     A,MULBUF2
        MOV     MULBUF2,A
        MOV     A,MULBUF3
        ADDC    A,B
        MOV     MULBUF3,A
       ; MOV     F0,C
        MOV     A,MULBCH
        MOV     B,MULCH
        MUL     AB
       ; MOV     C,F0
        ADDC    A,MULBUF3
        MOV     MULBUF3,A
        MOV     A,#0
        ADDC    A,B
        MOV     MULBCL,A
        SJMP    $
        END