Return to Kfrexpd.s CVS log

Up to [CSRG BSD Unix] / 43BSDReno / sys / tahoemath

Annotation of 43BSDReno/sys/tahoemath/Kfrexpd.s, revision 1.1

1.1     ! root        1: /*     Kfrexpd.s       1.3     86/01/05        */
        !             2: 
        !             3: #include "../tahoe/SYS.h"
        !             4: 
        !             5:        .text
        !             6: ENTRY(Kfrexpd, 0)
        !             7:        subl3   $60,fp,sp
        !             8:        clrl    -60(fp)
        !             9:        clrl    -56(fp)
        !            10:        tstl    4(fp)
        !            11:        jgeq    1f
        !            12:        lnd     4(fp)
        !            13:        std     4(fp)
        !            14:        movl    $1,-56(fp)
        !            15: 1:
        !            16:        cmpd2   4(fp),one
        !            17:        jleq    1f
        !            18: 2:
        !            19:        cmpd2   4(fp),one
        !            20:        jleq    3f
        !            21:        addl2   $1,-60(fp)
        !            22:        pushl   16(fp)          # hfs
        !            23:        pushl   two+4           # ldd   2.0
        !            24:        pushl   two
        !            25:        pushl   8(fp)
        !            26:        pushl   4(fp)           # acc
        !            27:        callf   $24,_Kdivd
        !            28:        ldd     r0
        !            29:        std     4(fp)
        !            30:        jbr     2b
        !            31: 1:     cmpd2   4(fp),half
        !            32:        jlss    2f
        !            33:        jbr     3f
        !            34: 0:
        !            35:        subl2   $1,-60(fp)
        !            36:        pushl   16(fp)          # hfs
        !            37:        ldd     two; pushd      # 2.0
        !            38:        ldd     4(fp); pushd    # acc
        !            39:        callf   $24,_Kmuld
        !            40:        ldd     r0
        !            41:        std     4(fp)
        !            42: 2:
        !            43:        cmpd2   4(fp),half
        !            44:        jlss    0b
        !            45: 3:     movl    -60(fp),*12(fp)
        !            46:        tstl    -56(fp)
        !            47:        jeql    1f
        !            48:        lnd     4(fp)
        !            49:        std     4(fp)
        !            50: 1:
        !            51:        movl    8(fp),r1
        !            52:        movl    4(fp),r0
        !            53:        ret
        !            54:        .data
        !            55:        .align 2
        !            56: one:   .long   0x40800000, 0x00000000 # .double 1
        !            57: two:   .long   0x41000000, 0x00000000 # .double 2
        !            58: half:  .long   0x40000000, 0x00000000 # .double 0.5

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