|
| |
1、双字节无符号数加法
DADD:
MOV R4,#00H
MOV R5,#40H
MOV R6,#60H
MOV R7,#01H
MOV 20H,R4
MOV 21H,R5
CLR C
MOV A,R4
ADD A,20H
MOV 20H,A
MOV A,R5
ADDC A,21H
JB D2,LOOP
MOV R4,20H
MOV R5,21H
RET
LOOP:
MOV R4,#0FFH
MOV R5, #0FFH
RET |
| |
2、多字节无符号数加法
ORG 1000H
MADD:
PUSH PSW
CLR C
MOV R3,#00H
ADD10:
MOV A,@R0
ADDC A,@R1
MOV @R0,A
INC R0
INC R1
INC R3
DJNZ R2,ADD10
JNC ADD20
MOV @R0,#01H
INC R3
ADD20:
POP PSW
RET |
| |
3、双字节有符号数加法
SDADD:
MOV R4,#00H
MOV R5,#40H
MOV R6,#60H
MOV R7,#01H
MOV 20H,R4
MOV 21H,R5
ACALL COMP
MOV R4,20H
MOV R5,21H
MOV 20H,R6
MOV 21H,R7
ACALL COMP
CLR C
MOV A,R4
ADD A,20H
JB D2,LOOP
ACALL COMP
MOV R4,20H
MOV R5,21H
RET
LOOP:
MOV R4,#0FFH
MOV R5, #0FFH
RET
COMP:
CLR C
MOV A,20H
RLC A
MOV 20H,A
MOV A,21H
RLC A
MOV 21H,A
JNC C,LOOP1
ACALL NEGNVM
LOOP1:
MOV A,21H
RRC A
MOV 20H,A
RET
NEGNVM:
MOV R0,20H
MOV R1,21H
CLR C
CLR A
MOV 20H,A
MOV 21H,A
MOV A,20H
SUBB A,R0
MOV 20H,A
MOV A,21H
NOP
SUBB A,R1
MOV 21H,A
RET |
| |
4、多字节有符号数加法
SMADD:
CLR 07H
MOV A,R0
MOV R2,A
MOV A,R3
MOV R7,A
CLR C
LP:
MOV A,@R0
ADDC A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R7,LP
JB OV,ERR
DEC R0
MOV A,@R0
JNB E7H,LP0
SETB 07H
LP0:
MOV A,R2
MOV R0,A
RET
ERR:
………
RET |
| |
5、双字节无符号数减法
DSUB:
MOV R4,#20H
MOV R5,#80H
MOV R6,#0ADH
MOV R7,#71H
MOV 20H,R4
MOV 21H,R5
CLR C
MOV A,R4
SUBB A,20H
MOV 20H,A
MOV A,R5
SUBB A,21H
MOV 21H,A
JB D2,LOOP
MOV R4,20H
MOV R5,21H
RET
LOOP:
MOV R4,#0FFH
MOV R5, #0FFH
RET |
| |
6、
多字节无符号数减法
MSUB:
CLR 07H
MOV A,R0
MOV R2,A
MOV A,R3
MOV R7,A
CLR C
LP:
MOV A,@R0
SUBB A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R7,LP
JNC LP0
SETB 07H
LP0:
MOV A,R2
MOV R0,A
RET
|
| |
7、
双字节有符号数减法
SDSUB:
MOV R4,#20H
MOV R5,#80H
MOV R6,#0FDH
MOV R7,#71H
MOV 20H,R4
MOV 21H,R5
ACALL COMP
MOV R4,20H
MOV R5,21H
MOV 20H,R6
MOV 21H,R7
ACALL COMP
CLR C
MOV A,R4
SUBB A,20H
MOV A,R5
SUBB A,21H
MOV 21H,A
JB D2,LOOP
ACALL COMP
MOV R4,20H
MOV R5,21H
RET
LOOP:
MOV R4,#0FFH
MOV R5, #0FFH
RET
COMP:
CLR C
MOV A,20H
RLC A
MOV 20H,A
MOV A,21H
RLC A
MOV 21H,A
JNC C,LOOP1
ACALL NEGNVM
LOOP1:
MOV A,21H
RRC A
MOV 20H,A
RET
NEGNVM:
MOV R0,20H
MOV R1,21H
CLR C
CLR A
MOV 20H,A
MOV 21H,A
MOV A,20H
SUBB A,R0
MOV 20H,A
MOV A,21H
NOP
SUBB A,R1
MOV 21H,A
RET |
| |
8、
多字节有符号数减法
SMSUB:
CLR 07H
MOV A,R0
MOV R2,A
MOV A,R3
MOV R7,A
CLR C
LP:
MOV A,@R0
SUBB A,@R1
MOV @R0,A
INC R0
INC R1
DJNZ R7,LP
JB OV,ERR
DEC R0
MOV A,@R0
JNB E7H,LP0
SETB 07H
LP0:
MOV A,R2
MOV R0,A
RET
ERR:
……...
RET
|
| |
9、
双字节无符号数乘法
ORG 2000H
DOMUL:
MOV 33H,#0
MOV 32H,#0
MOV 31H,#0
MOV 30H,#0
START:
MOV R0H,#30H
MOV A,@R0
ADD A,R4
MOV @R0,A
INC R0
MOV A,@R0
ADDC A,R5
MOV @R0,A
INC R0
MOV A,@R0
ADDC A,#0
MOV @R0,A
INC R0
MOV A,@R0
ADDC A,#0
MOV @R0,A
CLR C
CJNE R7,#0,BB
MOV A,R6
SUBB A,#1
MOV R6,A
JNZ START
SJMP CC
BB:
MOV A,R6
SUBB A,#1
MOV R6,A
MOV A,R7
SUBB A,#0
MOV R7,A
JNC START
CC:
RET |
| |
10、多字节无符号数乘法
DOMUL:
MOV A,R1
MOV R6,A
MOV A,R0
MOV R5,A
MOV A,R2
ADD A,R2
MOV 26H,A
MOV R7,A
MOV A,R4
MOV R0,A
CLEAR:
MOV @R0,#00H
INC R0
DJNZ R7,CLEAR
MOV A,R4
MOV R7,A
MOV 27H,R7
MOV 20H,R2
LP0:
MOV A,R5
MOV R0,A
MOV A,@R0
MOV B,@R1
MUL AB
ACALL ADDM
INC R1
DJNZ R2,LP0
MOV R2,20H
MOV A,R6
MOV R1,A
MOV A,R7
INC A
MOV R7,A
MOV R4,A
INC R5
DJNZ R3,LP0
MOV R4,27H
MOV R5,26H
RET
ADDM:
MOV 21H,A
MOV A,R4
MOV R0,A
MOV A,21H
ADD A,@R0
MOV @R0,A
MOV A,B
INC R0
ADDC A,@R0
MOV @R0,A
INC R0
MOV A,@R0
ADDC A,#00H
MOV @R0,A
DEC R0
MOV A,R0
MOV R4,A
RET |
| |
11、双字节有符号数乘法
ORG 1000H
SDOMUL:
MOV R0,#20H
MOV A,@R0
ANL A,#80H
MOV R3,A
JZ L1
ACALL L0
L1:
INC R0
INC R0
MOV A,@R0
ANL A,#80H
MOV R2,A
JZ L2
ACALL L0
L2:
MOV A,R3
XRL A,R2
MOV 08H,A
MOV R2,#4
MOV R0,#20H
MOV R1,#07H
L3:
MOV A,@R0
MOV @R1,A
INC R0
DEC R1
DJNZ R2,L3
MOV R0,#30H
LCALL START
MOV A,80H
JNZ L4
SJMP L6
L4:
CLR C
MOV R0,#30H
MOV R3,#3
MOV A,@R0
CPL A
ADD A,#1
MOV @R0,A
L5:
INC R0
MOV A,@R0
CPL A
ADDC A,#0
MOV @R0,A
DJNZ R3,L5
L6:
RET
L0:
CLR C
INC R0
MOV A,@R0
CPL A
ADD A,#1
MOV @R0,A
DEC R0
MOV A,@R0
CPL A
ADDC A,#0
MOV @R0,A
RET
|
|
12、多字节有符号数乘法
SDOMUL:
MOV 24H,R1
MOV A,R1
ADD A,R2
DEC A
MOV R1,A
MOV A,@R1
ANL A,#80H
MOV R6,A
JZ NEG0
NEG1:
MOV R1,24H
MOV 22H,R2
ACALL NEGTUN
NEG0:
MOV 28H,R0
MOV A,R0
ADD A,R3
DEC A
MOV R0,A
MOV A,@R0
ANL A,#80H
MOV R7,A
JZ DDOMUL
MOV R1,#28H
MOV 22H,R3
ACALL NEGTUN
DDOMUL:
MOV A,R6
XRL A,R7
MOV 23H,A
MOV R0,28H
MOV R1,24H
ACALL DOMUL
JNB 1FH,RETURN
NEG2:
MOV R1,27H
MOV 22H,R5
ACALL NEGTUN
RETURN:
RET
NEGTUN:
SETB C
LP:
MOV A,@R1
CPL A
ADDC A,#00H
MOV @R1,A
INC R1
DJNZ 22H,LP
RET |
| |
13、双字节无符号数除法
ORG 1000H
OVER DATA 2FH
DUDIV:
MOV A,R7
JNZ START
MOV A,R6
JZ ERROR
START:
MOV A,R5
JNZ START1
MOV A,R4
JNZ START1
RET
START1:
CLR A
MOV R2,A
MOV R3,A
MOV R1,#16
DIV0:
CLR C
MOV A,R4
RLC A
MOV R4,A
MOV A,R5
RLC A
MOV R5,A
MOV A,R2
RLC A
MOV R2,A
MOV A,R3
RLC A
MOV R3,A
MOV A,R2
SUBB A,R6
JC NEXT
INC R4
MOV R3,A
MOV A,R0
MOV R2,A
NEXT:
DJNZ R1,DIV0
MOV A,R3
JB ACC.7,ROUND
MOV A,R2
RLC A
MOV R2,A
MOV A,R3
RLC A
SUBB A,R7
JC DONE
JNZ ROUND
MOV A,R2
SUBB A,R6
JC DONE
ROUND:
MOV A,R4
ADD A,#1H
MOV R4,A
MOV A,R5
ADDC A,#0H
MOV R5,A
DONE:
MOV OVER,#0H
RET
ERROR:
MOV OVER,#0FFH
RET |
| |
14、多字节无符号数除法
DODIV:
MOV A,R0
MOV R4, A
MOV A, R1
MOV R5, A
MOV A, R3
MOV R7, A
MOV A, R0
ADD A, R3
MOV R6,A
MOV R1, A
LP0:
MOV @R1,#00H
INC R1
DJNZ R3, LP0
MOV A,R7
ADD A, R7
MOV R2, A
MOV B, #04H
MUL AB
LP1:
PUSH A
MOV A, R2
MOV R3, A
MOV A, R4
MOV R1, A
CLR C
LP2:
MOV A,@R1
RLC A
MOV @R1, A
INC R1
DJNZ R3, LP2
NEXT:
MOV A, R6
MOV R0, A
MOV A, R5
MOV R1, A
MOV A, R7
MOV R3, A
CLR C
LP3:
MOV A,@R0
SUBB A,@R1
PUSH A
INC R0
INC R1
DJNZ R3, LP3
MOV A, R7
MOV R3, A
JC SMALL
MOV A, R4
MOV R0, A
INC @R0
MOV A, R6
ADD A, R7
DEC A
MOV R0, A
LP4:
POP A
MOV @R0, A
DEC R0
DJNZ R3, LP4
SJMP NEXT
SMALL:
POP A
DJNZ R3, SMALL
POP A
DEC A
JNZ LP1
I504:
MOV A,R6
ADD A, R7
DEC A
MOV R0, A
MOV R2, A
MOV A,@R0
JB E7H, ADD1
MOV A, R6
MOV R1, A
MOV A, R7
MOV R3, A
CLR C
LP5:
MOV A,@R1
RLC A
MOV @R1, A
INC R1
DJNZ R3, LP5
MOV A, R2
MOV R0, A
MOV A, R7
MOV R3, A
ADD A, R5
DEC A
MOV R1, A
LP6:
CLR C
MOV A,@R0
SUBB A,@R1
JC RETURN
JNZ ADD1
DEC R0
DEC
DJNZ R3, LP6
ADD1:
MOV A,R4
MOV R1, A
MOV A, R7
MOV R3, A
SETB C
LP7l:
MOV A,@R1
ADDC A, #00H
MOV @R1, A
DJNZ R3, LP7
RETURN:
MOV A,R4
MOV R0, A
MOV A, R7
MOV R3, A
RET |
| |
15、双字节有符号数除法
SDUDIV:
MOV A,R3
ANL A, #80H
MOV 26H, A
JZ NEG32
ACALL NEG54
NEG32:
MOV A,R5
ANL A, #80H
MOV 27H, A
JZ DDUDIV
MOV A,R4
CPL A
ADD A, #01H
MOV R4, A
MOV A, R5
CPL A
ADDC A, #00H
MOV R5, A
DDUDIV:
MOV A,26H
XRL A, 27H
MOV 21H, A
ACALL DUDIV
JNB 0FH, RETURN
ACALL NEG54
RETURN:
RET
NEG54:
MOV A, R2
CPL A
ADD A, #01H
MOV R2, A
MOV A, R3
CPL A
ADDC A, #00H
MOV R3, A
RET |
| |
16、多字节有符号数除法
SDODIV:
MOV 21H,R0
MOV A, R0
ADD A, R3
DEC A
MOV R0, A
MOV A,@R0
ANL A, #80H
MOV R6, A
JZ NEG1
NEG0:
MOV R0,21H
MOV 22H, R3
ACALL NEGTUN
NEG1:
MOV 24H,R1
MOV A, R1
ADD A, R2
DEC A
MOV R1, A
MOV A,@R1
ANL A, #80H
MOV R7, A
JZ ZERO
MOV R0,24H
MOV 22H, R2
ACALL NEGTUN
ZERO:
MOV A, 24H
ADD A, R2
MOV R0, A
MOV A, R3
CLR C
SUBB A, R2
MOV R2, A
JZ DODIV
LP:
MOV @R0,#00H
INC R0
DJNZ R2, LP
DDODIV:
MOV A,R6
XRL A, R7
MOV 23H, A
MOV R0, 21H
MOV R1, 24H
ACALL DODIV
JNB 1FH, RETURN
NEG2:
MOV 22H,R3
ACALL NEGTUN
MOV R0, 21H
RETURN:
RET
NEGTUN:
SETB C
LP:
MOV A,@R0
CPL A
ADDC A, #00H
MOV @R0, A
INC R0
DJNZ 22H, LP
RET |
| |
17、单字节开方
SSQR:
MOV R4,#00H
LP:
MOV A,R4
ADD A, R4
ADD A, #01H
MOV R6, A
MOV A,R2
CLR C
SUBB A, R6
MOV R2, A
JC RETURN
INC R4
SJMP LP
RETURN:
RET |
| |
18、双字节开方
DUSQR:
MOV R2,#00H
LP:
MOV A,R2
ADD A, R2
MOV R7, #00H
XCH A, R7
ADDC A, #00H
XCH A, R7
ADD A, #01H
XCH A, R7
ADDC A, #00H
XCH A, R7
MOV R6, A
CLR C
MOV A, R5
SUBB A, R6
MOV R5, A
MOV A, R4
SUBB A, R7
MOV R4, A
JC RETURN
INC R2
SJMP LP
RETURN:
RET |
| |
19、多字节开方
DOSQR:
MOV 20H, R3
MOV 21H, R1
MOV 23H,R0
CLR C
MOV A, R0
RRC A
ADDC A, #00H
MOV R2, A
MOV 22H, A
ZERO:
MOV @R1,#00H
INC R1
DJNZ R0, ZERO
LP0:
MOV R1,21H
MOV R0, 23H
MOV R3, #60H
CLR C
LP6:
MOV A,@R1
RLC A
MOV @R3, A
INC R3
INC R1
DJNZ R0, LP6
SETB C
MOV R3, #60H
INC R2
LP1:
MOV A,@R3
ADDC A, #00H
MOV @R3, A
INC R3
DJNZ R2, LP1
MOV R0,23H
MOV R3, 20H
MOV R1, #60H
CLR C
LP2:
MOV A,@R3
SUBB A,@R1
MOV @R3, A
INC R3
INC R1
DJNZ R0, LP2
JC RETURN
MOV R1,21H
MOV R2,22H
SETB C
LP4:
MOV A,@R1
ADDC A, #00H
MOV @R1, A
INC R1
DJNZ R2, LP4
SJMP LP0
RETURN:
RET |
| |
| |
| |
|
|
