单片机乘法运算.docx

1、单片机乘法运算单片机乘法运算 1. 操作数在寄存器中，R0-R72. 操作数在内RAM中3. 操作数在外RAM中不过都大同小异，以2例,是个乘法子程序。入口：乘数R0，被乘数R1，字节数R7，结果在R0MULN: LCALL N2N ;多字节十六进制乘法 RLC A RLC A MOV R3,AMULN1: MOV A,R5 MOV R0,A CLR C LCALL RLCN JNC MULN2 LCALL ADDNMULN2: DJNZ R3,MULN1N1N: MOV A,R1 ADD A,R7 MOV R0,A MOV A,R7 CLR C RRC A MOV R7,A MOV R2,A

2、 ADD A,R1 MOV R1,AMULN3: 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 PSWRLCN2: 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

3、 R4,A ADD A,R7 MOV R0,AN2N1: 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 CADN1: DEC R0 DEC R1 MOV A,R

4、1 ADDC A,R0 MOV R0,A DJNZ R2,ADN1 RET;CLRN: MOV A,R7 MOV R2,A ADD A,R0 MOV R0,A CLR ACLRN1: 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，#34HMOV 32H，#56HMOV 33H，#78HMOV 40H，#87H ；填充乘数MOV 41H，#6

5、5HMOV 42H，#43HMOV 43H，#21HCALL MULN ；调用这时的结果在R0所指的数据区，即30H-37H共八个字节。当然你是3字节乘法的话，把R7改成03H就可以了，结果为6个字节，高字节在前，低字节在后。一定要注意把R0所指的区留出存放结果的空间。比如3字节乘法，你要留出6个字节空间，5字节乘法要留出10个字节的空间。反正很灵活的。想做多少字节乘法都可以。 这是除法子程序，入口、字节数、出口和乘法一样，不过有个限制：只限于被除数小于除数，结果为纯小数。不知老兄是否适用。DIVN: LCALL DIV0 ;多字节16进制除法子程序 JC DIVN1 SETB OV RETD

6、IVN1: MOV A, R0 MOV R4, A ADD A, R7 MOV R5, A MOV A, R7 MOV B, #08H MUL AB MOV R3, ADIVN4: LCALL DIVN8 JC DIVN5 LCALL ADDN CLR CDIVN5: MOV A, R5 MOV R0, A LCALL RLCN DJNZ R3,DIVN4 LCALL DIVN8 JNC DIVN6 MOV A, R5 MOV R0, A LCALL INCNDIVN6: MOV A, R1 PUSH ACC MOV A, R7 MOV R2, A ADD A, R4 MOV R0, A AD

7、D A, R7 MOV R1, ADIVN7: 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 CDIV01: DEC R0 DEC R1 MOV A,R0 SUBB A,

8、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 CADN1: DEC R0 DEC R1 MOV A,R1 ADDC A,R0 MOV R0,A DJNZ R2,ADN1 RET;INCN: MOV A,R7INCN1: MOV R2,A ADD A,R0 MOV R0,A SETB CINCN2: DEC R0 CLR A ADDC A,R0 MOV R0,A DJNZ R2,INCN2 RET;RLCN: MOV A,R7RLCN1: MOV R2,A PUSH PSW ADD A,R0 MOV R0,A POP PSWRLCN2: 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 CSUB1: DEC R0 DEC R1 MOV A,R0 SUBB A,R1 MOV R0,A DJNZ R2,SUB1 RET