1/*- 2 * Copyright (c) 1990 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * the Systems Programming Group of the University of Utah Computer 7 * Science Department. 8 * 9 * %sccs.include.redist.c% 10 * 11 * @(#)sqrt.s 5.1 (Berkeley) 05/17/90 12 */ 13 14/* 15 * sqrt(x) 16 * returns the square root of x correctly rounded according 17 * to the rounding mode. 18 */ 19 20 .text 21 .globl _sqrt 22 23_sqrt: 24 fsqrtd sp@(4),fp0 25 fmoved fp0,sp@- 26 movel sp@+,d0 27 movel sp@+,d1 28 rts 29