xmath a1,*,b1,+,[c1],*,e1
    

a1 equ xmm0
b1 equ xmm1
e1 equ xmm2
mulss xmm0,xmm1
addss xmm0,[c1]
mulss xmm0,xmm2
    

macro xstt [arg] {
      forward
      xstt_eq equ arg
      common
__c equ 0
irpv v,xstt_eq \{ rept 1 num:__c+1 \\{ v equ xmm\\#num
     movss v,[eax+\\#num*4-4]
                                __c equ num \\} \}
      }
macro xmov reg,[args]  {
                    forward
                    match =*X, args \{ mulss xmm#reg, X \}
                    match =+X, args \{ addss xmm#reg, X \}
                    match =-X, args \{ subss xmm#reg, X \}
                    match =/X, args \{ divss xmm#reg, X \}
                    match =~X, args \{ comiss xmm#reg, X \}
                    match =|X, args \{ movss X,xmm#reg \}
                 }
macro rstxs {
      irpv v,xstt_eq \{ restore xstt_eq
      \}
      } 
;data zkk dd 4.0,2.0,3.0,5.0
                mov eax,zkk
                xstt x1,y1,z1
                ttt equ +x1
                tt2 equ *y1
                ttz equ /xmm5
                ttr equ ~xmm5
                xmov 1,ttt,tt2,ttz,ttr,wtr
                xmov 0,+x1,*y1,/xmm5,*y1

                rstxs
                xstt r1,t1,w1
                movss t1,xmm0