114 #define SHIFTAMT r9  macro
115 		SHIFTAMT = and(EXP,#1)  define
120 		P_EXP1 = cmp.gtu(SHIFTAMT,#0)
126 		SHIFTAMT = mux(P_EXP1,#8,#9)  define
130 		FRACRAD = asl(FRACRAD,SHIFTAMT)		// Move fracrad bits to right place
131 		SHIFTAMT = mux(P_EXP1,#3,#2)  define
136 		PROD = asl(FRACRAD,SHIFTAMT)		// fracrad<<(2+exp1)
143 		SHIFTAMT = mux(P_EXP1,#7,#8)  define
146 		RECIPEST = asl(SF_H,SHIFTAMT)
147 		SHIFTAMT = mux(P_EXP1,#15-(1+1),#15-(1+0))  define
192 		ROOT += lsr(ERROR,SHIFTAMT)
193 		SHIFTAMT = add(SHIFTAMT,#16)  define
212 		ROOT += lsr(ERROR,SHIFTAMT)
213 		SHIFTAMT = add(SHIFTAMT,#16)  define
235 		ROOT += lsr(ERROR,SHIFTAMT)
245 #undef SHIFTAMT