4321 /*     Exp =Exp +len(var1) -len(var2)				      */
4324 /*     Pad Var2 to same length as Var1				      */
4325 /*     msu2pair/plus=1st 2 or 1 units of var2, +1 to allow for round  */
4337 /*	    If same then tops2=msu2pair -- {units 1&2 of var2}	      */
4338 /*		    else tops2=msu2plus -- {0, unit 1 of var2}	      */
4348 /*	  var2=var2/10						      */
4359 /* var1 is a copy of the lhs coefficient, var2 is the rhs coefficient.*/
4383   const Unit *var2;		   /* -> var2 array */  in decDivideOp()  local
4384   const Unit *msu2;		   /* -> msu of var2 */  in decDivideOp()
4587     /* subtract in place is always possible.  The rhs (var2) has */  in decDivideOp()
4596     /* rhs (var2) is left-aligned with var1 at the start */  in decDivideOp()
4599     var2=rhs->lsu;			/* -> rhs array */  in decDivideOp()
4600     msu2=var2+var2units-1;		/* -> msu of var2 [never changes] */  in decDivideOp()
4615     /* number of leading zeros in var1 msu and subtract those in var2 msu. */  in decDivideOp()
4670 	    if (pv2>=var2) v2=*pv2;	     /* in range */  in decDivideOp()
4676 	  if (*pv1==v2) {		     /* var1 == var2 */  in decDivideOp()
4677 	    /* reach here if var1 and var2 are identical; subtraction */  in decDivideOp()
4684 	    } /* var1 == var2 */  in decDivideOp()
4687 	  /* Bring in two units of var2 to provide a good estimate. */  in decDivideOp()
4691 	  /* The var2 msu is one unit towards the lsu of the var1 msu, */  in decDivideOp()
4692 	  /* so only one unit for var2 can be used. */  in decDivideOp()
4696 	/* subtraction needed; var1 is > var2 */  in decDivideOp()
4698 	/* subtract var1-var2, into var1; only the overlap needs */  in decDivideOp()
4703 	  decDumpAr('2', var2, var2units);  in decDivideOp()
4707 		      var2, var2units, 0,  in decDivideOp()
4742       /* to get here, var1 is less than var2, so divide var2 by the per- */  in decDivideOp()
4833 	/*   var2 residual padding, which happens to be given by: */  in decDivideOp()