fmod.s

操作系统SunOS 4.1.3版本的源码

|	.data
|       .asciz  "@(#)fmod.s 1.1 92/07/30 SMI"
	.even
	.text

|	Copyright (c) 1987 by Sun Microsystems, Inc.

#include "fpcrtdefs.h"

/*
 * double
 * fmod ( x, y )
 *	double x, y ;
 *
 * return a value v such that (x-v)/y is an integral value
 * and sign(v) = sign(x), which is equivalent to Fortran MOD.
 */

ENTRY(fmod)
	moveml	PARAM,d0/d1	| d0/d1 gets x.
	lea	PARAM3,a0	| a0 gets address of y.
#ifdef PIC
	movl	a2,sp@-		| transparent
#endif PIC
	JBSR(Vmodd,a1)
#ifdef PIC
	movl	sp@+,a2
#endif PIC
	RET