1: /*
   2:  * Copyright (c) 1987 Regents of the University of California.
   3:  * All rights reserved.  The Berkeley software License Agreement
   4:  * specifies the terms and conditions for redistribution.
   5:  */
   6: 
   7: #ifdef LIBC_SCCS
   8:         <@(#)modf.s	2.3 (Berkeley) 1/5/87\0>
   9:         .even
  10: #endif LIBC_SCCS
  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: 
  22: #define one     040200
  23: 
  24: ENTRY(modf)
  25:         movf    2(sp),fr0
  26:         modf    $one,fr0
  27:         movf    fr1,*10.(sp)
  28:         rts     pc
Last modified: 1987-01-25
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 2696
Valid CSS Valid XHTML 1.0 Strict