; Ukázka: x = a + 4b + 2c
%include "rw32.inc"
section .data
    a   dd  1.0
    b   dd  2.0
    c   dd  3.0

section .text
main:
    FINIT
    fld dword [a]   ; a
    fld dword [b]   ; b      a
    fld dword [c]   ; c      b    a
    fxch st0, st1   ; b      c    a
    fadd st0, st0   ; b+b    c    a
    fxch st0, st1   ; c      2b   a
    faddp           ; c+2b   a   (nan)
    fadd st0        ; 2c+4b  a   (nan)
    faddp st1       ; 2c+4b+a (nan) (nan)

    call WriteDouble
    faddp st2,st0   ; (nan) (nan) (nan)
    ret