Return to Kfrexpd.x CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Annotation of cci/sys/tahoe/Kfrexpd.x, revision 1.1

1.1     ! root        1:        .data
        !             2:        .text
        !             3: LL0:   .align  1
        !             4:        .globl  _Kfrexpd
        !             5:        .data
        !             6:        .align  2
        !             7: L18:   .long   0x40800000, 0x00000000 # .double 1
        !             8:        .text
        !             9:        .data
        !            10:        .align  2
        !            11: L21:   .long   0x40800000, 0x00000000 # .double 1
        !            12:        .text
        !            13:        .data
        !            14:        .align  2
        !            15: L22:   .long   0x41000000, 0x00000000 # .double 2
        !            16:        .text
        !            17:        .data
        !            18:        .align  2
        !            19: L25:   .long   0x40000000, 0x00000000 # .double 0.5
        !            20:        .text
        !            21:        .data
        !            22:        .align  2
        !            23: L28:   .long   0x40000000, 0x00000000 # .double 0.5
        !            24:        .text
        !            25:        .data
        !            26:        .align  2
        !            27: L29:   .long   0x41000000, 0x00000000 # .double 2
        !            28:        .text
        !            29:        .set    L12,0x0
        !            30:        .data
        !            31:        .text
        !            32: _Kfrexpd:
        !            33:        .word   L12
        !            34:        subl3   $60,fp,sp
        !            35:        clrl    -60(fp)
        !            36:        clrl    -56(fp)
        !            37:        tstl    4(fp)
        !            38:        jgeq    L16
        !            39:        lnd     4(fp)
        !            40:        std     4(fp)
        !            41:        movl    $1,-56(fp)
        !            42: L16:   cmpd2   4(fp),L18
        !            43:        jleq    L17
        !            44: L19:   cmpd2   4(fp),L21
        !            45:        jleq    L23
        !            46:        addl2   $1,-60(fp)
        !            47:        pushl   16(fp)          # hfs
        !            48:        pushl   L22+4           # ldd   L22             # 2.0
        !            49:        pushl   L22
        !            50:        pushl   8(fp)
        !            51:        pushl   4(fp)           # acc
        !            52:        callf   $24,_Kdivd
        !            53:        ldd     r0
        !            54:        std     4(fp)
        !            55:        jbr     L19
        !            56: L17:   cmpd2   4(fp),L25
        !            57:        jlss    L26
        !            58:        jbr     L23
        !            59: L2000001:
        !            60:        subl2   $1,-60(fp)
        !            61:        pushl   16(fp)          # hfs
        !            62:        ldd     L22             # 2.0
        !            63:        pushd
        !            64:        ldd     4(fp)           # acc
        !            65:        pushd
        !            66:        callf   $24,_Kmuld
        !            67:        ldd     r0
        !            68:        std     4(fp)
        !            69: L26:   cmpd2   4(fp),L28
        !            70:        jlss    L2000001
        !            71: L23:   movl    -60(fp),*12(fp)
        !            72:        tstl    -56(fp)
        !            73:        jeql    L30
        !            74:        lnd     4(fp)
        !            75:        std     4(fp)
        !            76: L30:   movl    8(fp),r1
        !            77:        movl    4(fp),r0
        !            78:        ret

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