procedure senlarge(var x: scalar);
begin { senlarge }
  underflow:=false;
  rup(x.u);
  rdown(x.l);
  if underflow then snormalize(x);
end { senlarge };

