单片机多字节数相乘的实现方法(转贴)

 

******************************************************************

1. 操作数在寄存器中，R0--R7

2. 操作数在内RAM中

3. 操作数在外RAM中

不过都大同小异，以2例,是个乘法子程序。

入口：乘数R0，被乘数R1，字节数R7，结果在R0

 

MULN:    LCALL  N2N                             ;多字节十六进制乘法

         RLC    A

         RLC    A

         MOV    R3,A

MULN1:   MOV    A,R5

         MOV    R0,A

         CLR    C

         LCALL  RLCN

         JNC   MULN2

         LCALL   ADDN

MULN2:  DJNZ   R3,MULN1

N1N:     MOV   A,R1

  ADD   A,R7

  MOV   R0,A

  MOV   A,R7

  CLR   C

  RRC   A

  MOV   R7,A

  MOV   R2,A

  ADD   A,R1

  MOV   R1,A

MULN3:   DEC   R0

  DEC   R1

  MOV   A,@R0

  MOV   @R1,A

  DJNZ  R2,MULN3

  MOV   A,R5

  MOV   R0,A

  RET

;

RLCN:    MOV   A,R7             ;多字节二进制无符号数左移一位

RLCN1:   MOV   R2,A

         PUSH   PSW

         ADD   A,R0

         MOV   R0,A

         POP   PSW

RLCN2:   DEC   R0

         MOV   A,@R0

         RLC   A

         MOV   @R0,A

         DJNZ   R2,RLCN2

         RET

;

N2N:     MOV   A,R7

  MOV   R2,A

  ADD   A,R0

  MOV   R6,A

  MOV   A,R0

  MOV   R5,A

  MOV   A,R1

  MOV   R4,A

  ADD   A,R7

  MOV   R0,A

N2N1:    MOV   A,@R1

  MOV   @R0,A

  INC   R0

  INC   R1

  DJNZ  R2,N2N1

  MOV   A,R6

  MOV   R0,A

  LCALL CLRN

  MOV   A,R4

  MOV   R0,A

  LCALL CLRN

  MOV   A,R4

  MOV   R1,A

  MOV   A,R5

  MOV   R0,A

  MOV   A,R7

  ADD   A,R7

  MOV   R7,A

  RET

;

ADDN:    MOV   A,R7

         MOV   R2,A

         ADD   A,R0

         MOV   R0,A

         MOV   A,R7

         ADD   A,R1

         MOV   R1,A

         CLR   C

ADN1:    DEC   R0

         DEC   R1

         MOV   A,@R1

         ADDC  A,@R0

         MOV   @R0,A

         DJNZ  R2,ADN1

         RET

;

CLRN:    MOV   A,R7

  MOV   R2,A

  ADD   A,R0

  MOV   R0,A

  CLR   A

CLRN1:   DEC   R0

  MOV   @R0,A

  DJNZ  R2,CLRN1

  RET

 

比如你要把12345678H这个十六进制数乘以87654321H，那么你可以这样调用：

MOV   R0，#30H     ；被乘数区

MOV   R1，#40H     ；乘数区

MOV   R7，#04H     ；字节数

 

MOV   30H，#12H    ；填充被乘数

MOV   31H，#34H

MOV   32H，#56H

MOV   33H，#78H

MOV   40H，#87H    ；填充乘数

MOV   41H，#65H

MOV   42H，#43H

MOV   43H，#21H

CALL  MULN          ；调用

 

这时的结果在R0所指的数据区，即30H-37H共八个字节。当然你是3字节乘法的话，把R7改成03H就可以了，

 

结果为6个字节，高字节在前，低字节在后。一定要注意把R0所指的区留出存放结果的空间。比如3字节乘

 

法，你要留出6个字节空间，5字节乘法要留出10个字节的空间。反正很灵活的。想做多少字节乘法都可以

 

。  

这是除法子程序，入口、字节数、出口和乘法一样，不过有个限制：只限于被除数小于除数，结果为纯小

 

数。不知老兄是否适用。

DIVN:   LCALL  DIV0    ;多字节16进制除法子程序

        JC     DIVN1

        SETB   OV

        RET

DIVN1:  MOV    A, R0

        MOV    R4, A

        ADD    A, R7

        MOV    R5, A

        MOV    A, R7

        MOV    B, #08H

        MUL    AB

        MOV    R3, A

DIVN4:  LCALL  DIVN8

        JC     DIVN5

        LCALL  ADDN

        CLR    C

DIVN5:  MOV    A, R5

        MOV    R0, A

        LCALL  RLCN

        DJNZ   R3,DIVN4

        LCALL  DIVN8

        JNC    DIVN6

        MOV    A, R5

        MOV    R0, A

        LCALL  INCN

DIVN6:  MOV    A, R1

        PUSH   ACC

        MOV    A, R7

        MOV    R2, A

        ADD    A, R4

        MOV    R0, A

        ADD    A, R7

        MOV    R1, A

DIVN7:  DEC    R0

        DEC    R1

        MOV    A, @R1

        MOV    @R0, A

        DJNZ   R2,DIVN7

        POP    ACC

        MOV    R1, A

        CLR    OV

        RET

;

DIVN8:  MOV   A,R4

  MOV   R0,A

  CLR    C

  LCALL  RLCN

  MOV   2FH.4,C

  LCALL  SUBN

  ANL   C,/2FH.4

  CPL   C

  RET

;

DIV0:  MOV    A,R7

  MOV    R2,A

  ADD    A,R1

  MOV    R1,A

  MOV    A,R7

  ADD    A,R0

  MOV    R0,A

  CLR    C

DIV01:  DEC    R0

  DEC    R1

  MOV    A,@R0

  SUBB   A,@R1

  DJNZ   R2,DIV01

  RET

;

ADDN:  MOV   A,R7

  MOV   R2,A

  ADD   A,R0

  MOV   R0,A

  MOV   A,R7

  ADD   A,R1

  MOV   R1,A

  CLR    C

ADN1:   DEC   R0

  DEC   R1

  MOV   A,@R1

  ADDC   A,@R0

  MOV   @R0,A

  DJNZ   R2,ADN1

  RET

;

INCN:  MOV    A,R7

INCN1:  MOV    R2,A

  ADD    A,R0

  MOV    R0,A

  SETB   C

INCN2:  DEC    R0

  CLR    A

  ADDC   A,@R0

  MOV    @R0,A

  DJNZ   R2,INCN2

  RET

;

RLCN:  MOV   A,R7

RLCN1:  MOV   R2,A

  PUSH   PSW

  ADD   A,R0

  MOV   R0,A

  POP   PSW

RLCN2:  DEC   R0

  MOV   A,@R0

  RLC   A

  MOV   @R0,A

  DJNZ   R2,RLCN2

  RET

;

SUBN:   MOV   A,R7

  MOV   R2,A

  ADD   A,R0

  MOV   R0,A

  MOV   A,R7

  ADD   A,R1

  MOV   R1,A

  CLR   C

SUB1:   DEC   R0

  DEC   R1

  MOV   A,@R0

  SUBB  A,@R1

  MOV   @R0,A

  DJNZ  R2,SUB1

  RET 

 

******************************************************************