11 #define AH r1  macro
113 		EXP0 = extractu(AH,#EXPBITS,#HI_MANTBITS)
119 		TMP = xor(AH,BH)
133 		AH += asl(EXP0,#HI_MANTBITS)
150 		p0 = bitsclr(AH,BTMPL)
177 		AH += asl(EXP1,#HI_MANTBITS)
178 		EXP1 = extractu(AH,#EXPBITS,#HI_MANTBITS)
232 		AH = insert(S_ZERO,#EXPBITS,#HI_MANTBITS)  define
253 		AH = insert(S_ZERO,#EXPBITS-1,#HI_MANTBITS+1)		// Insert correct exponent  define
271 		PP_LL_L ^= lsr(AH,#31)			// Does sign match rounding?
328 		p0 = bitsclr(AH,TMP)
342 		AH -= asl(TMP,#HI_MANTBITS)
359 		BTMPH ^= lsr(AH,#31)			// rounding my way --> set LSB
403 		AH ^= asl(BH,#31)