16 #define AH r1  macro
147 		TMP = xor(AH,BH)
150 		EXPA = extractu(AH,#EXPBITS,#HI_MANTBITS)
317 		AH += asl(EXPA,#HI_MANTBITS)
334 		if (p0.new) AH = ##0x80000000
358 		AH += asl(EXPA,#HI_MANTBITS)
359 		NEW_EXPB = extractu(AH,#EXPBITS,#HI_MANTBITS)
406 		AH = USR  define
426 		if (!p1.new) AH = or(AH,AL)
431 		USR = AH
438 		AH += asl(TMP,#HI_MANTBITS)
448 		p0 = bitsclr(AH,TMP)
480 		BH ^= lsr(AH,#31)
549 		p0 = bitsclr(AH,TMP)
560 		AH -= asl(TMP,#HI_MANTBITS)
634 		AH = lsr(AH,#31)		// get sign  define
637 		BH ^= asl(AH,#31)		// form correctly signed zero in B
657 		if (p0.new) AH = ##0x80000000