1*17329Ssam/* frexp.s 4.2 84/11/01 */ 217000Sralph 317000Sralph/* C library -- frexp(value, eptr) */ 417000Sralph 517000Sralph#include "DEFS.h" 617000Sralph 7*17329SsamENTRY(frexp, 0) 817000Sralph movd 4(ap),r0 # (r0,r1) := value 917000Sralph extzv $7,$8,r0,*12(ap) # Fetch exponent 1017000Sralph jeql 1f # If exponent zero, we're done 1117000Sralph subl2 $128,*12(ap) # Bias the exponent appropriately 1217000Sralph insv $128,$7,$8,r0 # Force result exponent to biased 0 1317000Sralph1: 1417000Sralph ret 15