* Copyright (c) 1980 Regents of the University of California.
* %sccs.include.redist.c%
#if defined(LIBC_SCCS) && !defined(lint)
.asciz "@(#)frexp.s 5.6 (Berkeley) %G%"
#endif /* LIBC_SCCS and not lint */
/* C library -- frexp(value, eptr) */
movd 4(ap),r0 # (r0,r1) := value
extzv $7,$8,r0,*12(ap) # Fetch exponent
jeql 1f # If exponent zero, we're done
subl2 $128,*12(ap) # Bias the exponent appropriately
insv $128,$7,$8,r0 # Force result exponent to biased 0