.686
    .model flat
    public _kula
    .code
    _kula PROC
     
    ;prolog
    push ebp
    mov ebp,esp
    add ebp,4
    ;ladowanie na stos rejestrow
    push ebx
     
    ;inicjalizacja koprocesora i ladowanie 25 na jego stos
    finit
    push 25
    fild dword PTR [esp]
    add esp,4
     
    mov ecx,3; licznik obiegow petli
    petla: ;petla ladujaca na stos koprocesora kwadrat wspolrzednej
     
    add ebp,4
    fld dword PTR [ebp]
    fld dword PTR [ebp]
    fmulp
     
    loop petla
     
    ;dodajemy kwadraty do siebie
    faddp
    faddp
    ;porownujemy sume z liczba 25, jesli 25 jest mniejsze punkt nie nalezy i zwracamy zero
    fcomi st(0),st(1)
     
    jbe zwroc_jeden
    mov eax,0
    jmp koniec
     
    zwroc_jeden:
    mov eax,1
     
    ; jej koniec
    koniec:
     
    pop ebx
     
    pop ebp
    ret
     
    _kula ENDP
     
    END