1/* 2 * Copyright (c) 1983, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 */ 7 8#if defined(LIBC_SCCS) && !defined(lint) 9 .asciz "@(#)modf.s 8.1 (Berkeley) 06/04/93" 10#endif /* LIBC_SCCS and not lint */ 11 12/* 13 * double modf (value, iptr) 14 * double value, *iptr; 15 * 16 * Modf returns the fractional part of "value", 17 * and stores the integer part indirectly through "iptr". 18 */ 19 20#include "DEFS.h" 21 22ENTRY(modf, 0) 23 emodd 4(ap),$0,$0f1.0,r2,r0 24 jvs 1f # integer overflow 25 cvtld r2,*12(ap) 26 ret 271: 28 subd3 r0,4(ap),*12(ap) 29 ret 30