Алгоритм численного поиска корня уравнения f (x) = 0 методом хорд

[DarkBoy9]

Из картинки: -1.5052 - это ожидаемый результат
У меня вывод должен действовать в StartIters, но моя программа прерывается внизу в function. Не могу понять почему она не возвращается наверх в StartIters

%include "io.inc" 
section .data
    x0 dq -2.0 
    a dq 3.0 
    x1 dq 2.0
    fmt db '%lf' , 10,13,0
section .bss
    log resq 1
    fx0 resq 1
    fxi resq 1
    xi resq 1
section .text
global CMAIN
CMAIN:
    mov ebp, esp; for correct debugging
    mov ecx, 11
    fld qword [x1]
    fstp qword [xi]
    finit
    fld qword [x0]
    fld qword [a]
    fsub st0, st1
    fabs
    fstp qword [log]
    push dword [log+4]
    push dword [log]
    call flog
    fadd st0, st1
    fstp qword [fx0]
StartIters:
    call function
    loop StartIters
    push dword [xi + 4]
    push dword [xi]
    push fmt
    call printf
    add esp, 12
    ret
flog: ; ln x
    fld qword [esp + 4]
    fldln2
    fxch
    fyl2x
    ret
iter:
    finit
    fld qword [xi]
    fld qword [fxi]
    fld qword [fx0]
    fsubr st1
    fld qword [x0]
    fxch st3
    fst st4
    fsub st0, st3
    fmul st0, st2
    fdiv st0, st1
    fsubr st0, st4
    fstp qword [xi]
    ret
function:
    finit
    fld qword [xi]
    fld qword [a]
    fsub st0, st1
    fabs
    fstp qword [log]
    push dword [log+4]
    push dword [log]
    call flog
    fadd st0, st1 
    fstp qword [fxi]
    call iter
    ret