section .text use32

global  _wyrazenie

_wyrazenie:

    %idefine    a   [ebp+8]
    %idefine    b   [ebp+12]

    ;gcc a.o a.c -o a.exe
    push    ebp
    mov ebp, esp

    finit
    fld dword [jeden]
    fld dword [jeden]
    fld dword a

    call procedura_petla
    fstp dword [pierwsza]

    ffree st0
    ffree st0

    fld dword b
    fld dword a
    fsub st1
    fstp dword [druga_temp]
    ffree st0

    fld dword [jeden]
    fld dword [jeden]
    fld dword [druga_temp]

    call procedura_petla
    fstp dword [druga]

    fld dword [druga]
    fld dword [pierwsza]
    fdiv st0, st1

    koniec:
    leave
    ret

    procedura_petla:
    petla:
    fxch st1
    fmul st0, st1
    fxch st1
    fsub st2
    fcom st2
    fstsw   ax
    sahf
    jne petla
    fxch st1
    ret

section .data
    jeden dd 1.0
    pierwsza dd 21.36
    druga dd 21.37
    druga_temp db 21.38