1*13417Sroot/* modf.s 4.1 83/06/27 */ 2*13417Sroot 3*13417Sroot/* 4*13417Sroot * double modf (value, iptr) 5*13417Sroot * double value, *iptr; 6*13417Sroot * 7*13417Sroot * Modf returns the fractional part of "value", 8*13417Sroot * and stores the integer part indirectly through "iptr". 9*13417Sroot */ 10*13417Sroot 11*13417Sroot#include "DEFS.h" 12*13417Sroot 13*13417SrootENTRY(modf) 14*13417Sroot emodd 4(ap),$0,$0f1.0,r2,r0 15*13417Sroot jvs 1f # integer overflow 16*13417Sroot cvtld r2,*12(ap) 17*13417Sroot ret 18*13417Sroot1: 19*13417Sroot subd3 r0,4(ap),*12(ap) 20*13417Sroot ret 21