11 #define EXP r28  macro
81 		EXP = extractu(AH,#DF_EXPBITS,#DF_MANTBITS-32)  define
115 		SHIFTAMT = and(EXP,#1)
286 		EXP = add(EXP,#-DF_BIAS)			// subtract bias --> signed exp  define
297 		EXP = asr(EXP,#1)				// divide signed exp by 2  define
317 		EXP = add(EXP,#-63)  define
324 		EXP = add(EXP,ADJ)				// add back bias  define
327 		RETHI += asl(EXP,#DF_MANTBITS-32)		// add exponent adjust
363 		if (!P_TMP.new) EXP = ##0x7F800001			// sNaN
375 		EXP = add(clb(A),#-DF_EXPBITS)		// how much to normalize?  define
378 		A = asl(A,EXP)				// Shift mantissa
379 		EXP = sub(#1,EXP)			// Form exponent  define
382 		AH = insert(EXP,#1,#DF_MANTBITS-32)		// insert lsb of exponent
395 		EXP = convert_df2sf(A)				// if sNaN, get invalid  define
401 		A = convert_sf2df(EXP)				// Invalid,NaNval