Итеративное вычисление корня сопроцессором

.MODEL small
.STACK 10h
.DATA
 
Hello db 'Put integer number: ', 13, 10, '$'
a dq 4
x dq 1.0
k dq 2.0
e dq 2.0001
 
.CODE
.386
 
START:
    mov ax, @data
    mov ds, ax
 
    mov ah, 09h
    mov dx, offset Hello
    int 21h
 
    mov edx, dword ptr e
    
 sopj:
    FINIT
          FLD x 
      FDIV a 
      FADD x
      FDIV k
      FSTP x
    mov eax, dword ptr x
    cmp eax, edx
    ja sopj
 
    push 10
    call outfloat    
    
    xor ax, ax
    int 16h 
    mov ah, 4ch
    int 21h

.model small
.data
 
t dd 0.5 ; 1/2
a dd 16 ; число
n dd 10 ; число шагов
x dd ? ; результат
 
.code
.386
start:
finit
mov ax, @data
mov ds, ax
 
fild a
fst x
fld t
 
mov ecx, n
@1:
fld st(1)
fld x
fld st
fdivp st(2), st
faddp st(1), st
fmul st, st(1)
fstp x
loop @1
fstp st(1)
fstp
xor ax, ax
int 16h
 
@q:
.exit
 
end

a dq 7.5
dd ?
.code
.386
start:
finit
mov ax, @data
mov ds, ax
 
lea edi, a+8
fld a
fistp dword ptr [edi]
mov eax, [edi]

a dq 7.5
dd ?
.code
.386
start:
finit
mov ax, @data
mov ds, ax
 
lea edi, a+8
fld a
fld1
fld st(1)
fprem
fsubp st(2), st
fstp st
fistp dword ptr [edi]
mov eax, [edi]