101 #define ERROR r1:0  macro
175 		ERROR = asl(FRACRAD,#15)  define
180 		ERROR -= asl(PROD,#15)
185 		ERROR -= lsr(PROD,#16)
189 		ERROR = mpyu(ERRORHI,RECIPEST)  define
192 		ROOT += lsr(ERROR,SHIFTAMT)
194 		ERROR = asl(FRACRAD,#31)		// for next iter  define
199 		ERROR -= mpyu(ROOTHI,ROOTLO)	// amount is 31, no shift needed
202 		ERROR -= asl(PROD,#31)
206 		ERROR -= lsr(PROD,#33)
209 		ERROR = mpyu(ERRORHI,RECIPEST)  define
212 		ROOT += lsr(ERROR,SHIFTAMT)
214 		ERROR = asl(FRACRAD,#47)	// for next iter  define
221 		ERROR -= asl(PROD,#47)
225 		ERROR -= asl(PROD,#16)		// bidir shr 31-47
229 		ERROR -= lsr(PROD,#17)		// 64-47
232 		ERROR = mpyu(ERRORHI,RECIPEST)  define
235 		ROOT += lsr(ERROR,SHIFTAMT)
237 #undef ERROR