Return to Kfrexpf.x CVS log

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

Annotation of cci/sys/tahoe/Kfrexpf.x, revision 1.1.1.1

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

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