.TITLE	$SQRT 
	.IDENT	/F40002/
	.PSECT	OTS$I

AC0=%0
AC1=%1
AC2=%2
AC3=%3
AC4=%4
AC5=%5

SQRT::	MOV	@2(R5),R1
	BGT	20$
	BEQ	12$
	SQRERR
12$:	CLR	R0
	CLR	R1
	RETURN
20$:	ASR	R1
	ADD	#20100,R1
	CLR	-(SP)
	MOV	R1,-(SP)
	MOV	#3,R0
	LDF	(SP)+,AC0
	LDF	@2(R5),AC2
44$:	LDF	AC0,AC1
	LDF	AC2,AC0
	DIVF	AC1,AC0
	ADDF	AC1,AC0
	DEC	R0
	DIVF	#2,AC0
	BGT	44$
	STF	AC0,-(SP)
	MOV	(SP)+,R0
	MOV	(SP)+,R1
	RTS	PC
	.END