Вычислить заданное число Фибоначчи - Assembler - Ответ 13090123

N equ 26
.data
buffer db 50 dup(?)
format db "%u",0
caption db "Fibonacci",0
const0_5 dd 0.5 
k dd ?
inverse_square_root_from_five dd 0.44721359549995793928183473374626;=1/sqrt(5)
x dd 1.6180339887498948482045868343656;=(1+sqrt(5))/2
.code
start:  fninit
    fld inverse_square_root_from_five ;st=0.44721359549995793928183473374626
    fld x                               ;st=1.6180339887498948482045868343656
    mov ecx,N+1                ;st=1.618 st(1)=0.44721  
@@: test ecx,1
    jz a1
    fmul st(1),st              
a1: fmul st,st
    shr ecx,1
    jnz @b             
    fstp st           
    fistp k                         ;k=int(((1.62)^N)/sqrt(5))
    invoke wsprintf,addr buffer,addr format,k
    add esp,4*3
    invoke MessageBox,0,addr buffer,addr caption,MB_OK
    invoke ExitProcess,NULL 
end start