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