3.5.2双字节开方.txt

来自「单片机处理子程序代码,里面有各中有用的代码!」· 文本 代码 · 共 51 行

DQRT:
MOV	R2,#10H			
MOV	R3,#00H
CLR		A
MOV	R0，A				
MOV	R1，A
MOV	R4，#01H
LOOP:
MOV	A,R4
MOV	R1,A
ADD		A,R1
DA		A					
MOV	R1,A
MOV	A,#9AH
SUBB	A,#01H
ADD		A,R1
DA		A					
CPL		C
MOV	R1,A
JNC		C,LOOP0
INC		R0
LOOP0:
CLR		C
MOV	A,#9AH
SUBB	A,R1
ADD		A,R3
DA		A				
CPL		C
MOV	R3,A
MOV	A,#9AH
SUBB	A,R0
ADD		A,R2
DA		A					
CPL		C
MOV	R2,A
JC		A,LOOP1
MOV	A,R4
ADD		A,#01H
DA		A					
MOV	R4,A
SJMP	LOOP
LOOP1:
CLR		C
MOV	A,#9AH
SUBB	A,#01H
ADD		A,R4
DA		A					
CPL		C
MOV	R4,A
RET