Return to modf.s CVS log

Up to [Research Unix] / researchv9 / libc / sun

Annotation of researchv9/libc/sun/modf.s, revision 1.1

1.1     ! root        1:        .data
        !             2: /*     .asciz  "@(#)modf.s 1.1 86/02/03 SMI"   */
        !             3:        .text
        !             4: 
        !             5: /*
        !             6:  *     double-precision operations: frexp, ldexp, modf
        !             7:  *     frexp.s 1.1     83/04/12
        !             8:  *
        !             9:  */
        !            10: #include "fpcrtdefs.h"
        !            11: 
        !            12: /*
        !            13:  * double
        !            14:  * modf( value, iptr)
        !            15:  *      double value, *iptr;
        !            16:  *
        !            17:  * return a value v and stores through iptr a value i s.t.:
        !            18:  *     v + i == value, and
        !            19:  *4.2 BSD:
        !            20:  *     1 > v >= 0
        !            21:  *     Note that for -0.5 < value < 0, v may not be representable.
        !            22:  *System V:
        !            23:        v has sign of value and |v| < 1.
        !            24:        v is always exact.
        !            25:  */
        !            26: 
        !            27:        .globl  _modf
        !            28: _modf: link    a6,#0
        !            29:        MCOUNT
        !            30:        moveml  a6@(8),d0/d1    | d0/d1 gets x.
        !            31:        jsr     Ffloord         | d0/d1 gets floor(x). 4.2 BSD definition.
        !            32: |      jsr     Faintd          | d0/d1 gets aint(x). System V definition.
        !            33:        movl    a6@(16),a0      | a0 gets address of *iptr.
        !            34:        moveml  d0/d1,a0@       | *iptr gets floor(x).
        !            35:        lea     a6@(8),a0       | a0 points to x.
        !            36:        jsr     Fsubd           | d0/d1 gets floor(x)-x.
        !            37:        bchg    #31,d0          | d0/d1 gets x-floor(x) >= 0 unless x is inf or nan.
        !            38:        unlk    a6
        !            39:        rts

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.