format PE GUI 4.0
entry main

include '%fasminc%/win32a.inc'

section '.data' data readable writeable

buffer db '%d', 0
text rb 50
time dd ?
newtime dd ?
value dd 1000

section '.code' code readable executable

main:
    invoke GetTickCount
    mov [time], eax
    finit
    fld [value]      ;st0 = time
    fld [time]       ;st1 = time, st0 = value
    fdiv st0, st1    ;st0 = st0 / st1
    fstp [time]
    invoke wsprintf, text, buffer, [time]
    invoke MessageBox, NULL, text, NULL, MB_OK
    invoke ExitProcess, 0

section '.idata' import data readable

library kernel32, 'KERNEL32.DLL',\
        user32, 'USER32.DLL'

include '%fasminc%/apia/kernel32.inc'
include '%fasminc%/apia/user32.inc    

    invoke GetTickCount
    xor edx,edx
    mov ebx,1000
    div ebx
    mov [time],eax