;	Static Name Aliases
;
	TITLE   sqrt.c
	.8087
INCLUDELIB	SLIBCE
_TEXT	SEGMENT  WORD PUBLIC 'CODE'
_TEXT	ENDS
_DATA	SEGMENT  WORD PUBLIC 'DATA'
_DATA	ENDS
CONST	SEGMENT  WORD PUBLIC 'CONST'
CONST	ENDS
_BSS	SEGMENT  WORD PUBLIC 'BSS'
_BSS	ENDS
DGROUP	GROUP	CONST, _BSS, _DATA
	ASSUME DS: DGROUP, SS: DGROUP
EXTRN	__fac:QWORD
EXTRN	__fltused:NEAR
_TEXT      SEGMENT
	ASSUME	CS: _TEXT
	PUBLIC	_sqrt
_sqrt	PROC NEAR
	push	bp
	mov	bp,sp
	fld	QWORD PTR [bp+4]
	fsqrt
	fwait	
	fstp	QWORD PTR __fac
	mov	ax,OFFSET __fac
	pop	bp
	ret	

_sqrt	ENDP
_TEXT	ENDS
END