title: Square root function in Forth using x86 Assembly?
body: <p>I don't know much about assembly, but I am pretty sure that there are square root instructions on the x86? I am trying to get a square root function to work well in froth and the one that I have found gets bogged down somehow when I run it many times.</p>
  
  <pre><code>: sqrt-closer ( square guess -- square guess adjustment)
  2dup / over - 2 /
  ;
  
  : sqrt ( square -- root )
  1 begin
  sqrt-closer dup
  while + repeat
  drop nip ;
  </code></pre>