Return to modf.s CVS log

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

Annotation of researchv10no/libc/gen/modf.s, revision 1.1.1.1

1.1       root        1: #
                      2: #      double modf (value, iptr)
                      3: #              double value;
                      4: #              double *iptr;
                      5: #
                      6: #      Modf returns the fractional part of "value", and stores the integer
                      7: #      part indirectly through "iptr".
                      8: #
                      9: #      Entry point
                     10: #
                     11:        .text
                     12:        .align  1
                     13:        .globl  _modf
                     14: _modf: .word   0x0000          # We use r0-r2, but do not save them
                     15: #
                     16: #      This instruction does the following:
                     17: #
                     18: #              Extend the long floating value at 4(ap) with 0, and
                     19: #              multiply it by 1.0.  Store the integer part of the result
                     20: #              in r2, and the fractional part of the result in r0-r1.
                     21: #
                     22:        emodd   4(ap),$0,$0f1.0,r2,r0   # How did you like
                     23:                                        # THAT, sports fans?
                     24:        jvs     iovfl                   # Jump if integer overflow
                     25:        cvtld   r2,*12(ap)              # Else store integer result
                     26:        ret                             #    and return
                     27: #
                     28: #      Integer overflow occurred...develop the integer part by
                     29: #      subtracting the fractional part from the argument.
                     30: #
                     31: iovfl: subd3   r0,4(ap),*12(ap)        # Develop integer part
                     32:        ret

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