Функция квадратного корня в Forth с помощью x86 блок?

Я не знаю много о блоке, но я вполне уверен, что существуют инструкции по квадратному корню относительно x86? Я пытаюсь заставить функцию квадратного корня работать хорошо в пене и той, которую я нашел, увязает так или иначе, когда я много раз выполняю его.

: sqrt-closer ( square guess -- square guess adjustment)
2dup / over - 2 /
;

: sqrt ( square -- root )
1 begin
sqrt-closer dup
while + repeat
drop nip ;