1*17329Ssam/* modf.s 4.2 84/11/01 */ 213417Sroot 313417Sroot/* 413417Sroot * double modf (value, iptr) 513417Sroot * double value, *iptr; 613417Sroot * 713417Sroot * Modf returns the fractional part of "value", 813417Sroot * and stores the integer part indirectly through "iptr". 913417Sroot */ 1013417Sroot 1113417Sroot#include "DEFS.h" 1213417Sroot 13*17329SsamENTRY(modf, 0) 1413417Sroot emodd 4(ap),$0,$0f1.0,r2,r0 1513417Sroot jvs 1f # integer overflow 1613417Sroot cvtld r2,*12(ap) 1713417Sroot ret 1813417Sroot1: 1913417Sroot subd3 r0,4(ap),*12(ap) 2013417Sroot ret 21