; $SQRT OBJECT TO MACRO CONVERSION V01.1 13-AUG-86 18:56
	
	
	.TITLE	$SQRT	
;
	.IDENT	/F40002/
;
;
	.PSECT	OTS$I	,I,LCL,RW,CON
;
	.ENABL	LSB
SQRT::	
	MOV	@2(R5),R1
	BGT	20$
	BEQ	12$
	TRAP	324
12$:	CLR	R0
	CLR	R1
	BR	72$
20$:	ASR	R1
	ADD	#20100,R1
	CLR	-(SP)
	MOV	R1,-(SP)
	MOV	#3,R0
	LDF	(SP)+,%0
	LDF	@2(R5),%2
44$:	LDF	R0,%1
	LDF	R2,%0
	DIVF	R1,%0
	ADDF	R1,%0
	DEC	R0
	DIVF	#^F2,%0
	BGT	44$
	STF	%0,-(SP)
	MOV	(SP)+,R0
	MOV	(SP)+,R1
72$:	RTS	PC
	.DSABL	LSB
	.END