/* Klogf.s 1.2 86/01/03 */
ENTRY(Klogf, R5|R4|R3|R2)
subl3 $88,fp,-(sp) # &exp
std -60(fp) # movl r0,-60(fp)
ldd r4 # temp result of x-1
ldd r2 # temp result of x+1
std r2 # temp result of (q1*zsq+q0)
std -84(fp) # put in temp
ldd r2 # result of temp*z
_log2: .long 0x40317217, 0xf7d1cf7a # .double 0.69314718055994531
_ln10: .long 0x41135d8d, 0xddaaa8ac # .double 2.3025850929940457
_sqrto2:.long 0x403504f3, 0x33f9de65 # .double 0.70710678118654753
_p0: .long 0xc154114d, 0xeb0ba468 # .double -3.31355617479
_p1: .long 0x40654226, 0x56bd0c4c # .double 0.89554061525
_q0: .long 0xc0d4114c, 0xfdc7df02 # .double -1.65677797691
_q1: .long 0x40800000, 0x00000000 # .double 1
small: .long 0xfffffffe, 0xfffffffe # .double -1.7014117331926443e+38
half: .long 0x40000000, 0x00000000 # .double 0.5
two: .long 0x41000000, 0x00000000 # .double 2
one: .long 0x40800000, 0x00000000 # .double 1