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

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.