redo include files for kernel reorg

[unix-history] / usr / src / sys / tahoe / math / Kfrexpf.s

/*      Kfrexpf.s       1.4     90/12/04        */

#include "../tahoe/SYS.h"

       .text
ENTRY(Kfrexpf, 0)
       subl3   $60,fp,sp
       clrl    -60(fp)         # j=0;
       clrl    -56(fp)         # neg=0;
       tstl    4(fp)           # if(x<0){
       jgeq    1f
       lnd     4(fp)
       std     4(fp)           # x = -x;
       movl    $1,-56(fp)      # neg=1;}
1:
       cmpd2   4(fp),one       # if (x>1){
       jleq    1f
2:
       cmpd2   4(fp),one       # while(x>1){
       jleq    3f
       addl2   $1,-60(fp)      # j=j+1;
       pushl   16(fp)          # hfs   
       ldd     two
       pushd
       ldd     4(fp)
       pushd
       callf   $24,_Kdivd
       ldd     r0
       std     4(fp)           # x= x/2;
       jbr     2b
1:
       cmpd2   4(fp),half      # if(x<0.5){
       jlss    2f
       jbr     3f
0:
       subl2   $1,-60(fp)      # j = j-1;
       pushl   16(fp)          # hfs
       ldd     4(fp)
       pushd
       ldd     two
       pushd
       callf   $24,_Kmuld
       ldd     r0
       std     4(fp)           # x = 2*x;
2:
       cmpd2   4(fp),half      # while (x<0.5){
       jlss    0b
3:
       movl    -60(fp),*12(fp) # *i=j;
       tstl    -56(fp)         # if (neg)
       jeql    1f
       lnd     4(fp)
       std     4(fp)
1:
       ldd     4(fp)
       cvdf
       stf     r0
       ret

       .data
       .align  2
one:    .long   0x40800000, 0x00000000 # .double 1
two:    .long   0x41000000, 0x00000000 # .double 2
half:   .long   0x40000000, 0x00000000 # .double .5