FLTSQR:
MOV 	A,R5; 
RLC 	A
MOV 	7EH,C				
MOV 	A,R4
JZ  		SQRT				
ANL 	0DH,#7FH				
MOV 	A,R4
MOV 	R0,A
CLR 	C
RRC 	A
ADDC 	A,#40H
MOV  	1CH,A				
MOV  	A,R0
ANL  	A,#1
SETB 	ACC.7
MOV  	R4,A					
LCALL 	LD1					
LCALL 	SRA0
CJNE  	R4,#80H,FSQR1
ORL  	0DH,#40H				
FSQR1:
MOV 	B,#3					
FSQLP:
LCALL 	LD2
LCALL 	GET1
LCALL 	FPDI
LCALL 	GET2
LCALL 	FPAD
DEC   	R4					
DJNZ  	B,FSQLP
MOV   	R4,1CH				
SQRT: 
RET