Return to frexp.s CVS log

Up to [Research Unix] / researchv10no / libc / gen

Annotation of researchv10no/libc/gen/frexp.s, revision 1.1

1.1     ! root        1: #
        !             2: #      double frexp (value, eptr)
        !             3: #              double value;
        !             4: #              int *eptr;
        !             5: #
        !             6: #      Frexp breaks "value" up into a fraction and an exponent.
        !             7: #      It stores the exponent indirectly through eptr, and
        !             8: #      returns the fraction.  More specifically, after
        !             9: #
        !            10: #              double d, frexp();
        !            11: #              int e;
        !            12: #              d = frexp (x, &e);
        !            13: #
        !            14: #      then |d| will be less than 1, and x will be equal to d*(2**e).
        !            15: #      Further, if x is not zero, d will be no less than 1/2, and if
        !            16: #      x is zero, both d and e will be zero too.
        !            17: #
        !            18: #
        !            19: #      Entry point
        !            20: #
        !            21:        .text
        !            22:        .globl  _frexp
        !            23: _frexp:        .word   0x0000
        !            24: 
        !            25:        movd    4(ap),r0                # (r0,r1) := value
        !            26:        extzv   $7,$8,r0,*12(ap)        # Fetch exponent
        !            27:        jeql    fr1                     # If exponent zero, we're done
        !            28:        subl2   $128,*12(ap)            # Bias the exponent appropriately
        !            29:        insv    $128,$7,$8,r0           # Force the result exponent to biased 0
        !            30: fr1:   ret

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