1.5.3 多字节开方.txt

数值算法,C51单片机的汇编程序

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