1/* frexp.s 4.2 84/11/01 */ 2 3/* C library -- frexp(value, eptr) */ 4 5#include "DEFS.h" 6 7ENTRY(frexp, 0) 8 movd 4(ap),r0 # (r0,r1) := value 9 extzv $7,$8,r0,*12(ap) # Fetch exponent 10 jeql 1f # If exponent zero, we're done 11 subl2 $128,*12(ap) # Bias the exponent appropriately 12 insv $128,$7,$8,r0 # Force result exponent to biased 0 131: 14 ret 15