{$apptype console}
program test; uses windows,sysutils;

type PS = array [0..3] of integer;

var
    a0:integer=0;a1:integer=0;a2:integer=0;a3:integer=0;a4:integer=0;

   _xmm0: PS = ($11111111,$22222222,$33333333,$44444444);
   _xmm1: PS = ($0,0,0,0);

procedure test_sse();
asm
    movaps xmm0, _xmm0
    shufps xmm0,xmm0,0
    movaps _xmm1, xmm0
end;


procedure wr(addr:integer; value: integer);
var
rw,wVar :dword;
begin
wVar := integer (value);

    WriteProcessMemory( GetCurrentProcess,
                      pointer(addr),
                      @wVar,
                      1,
                      rw);
end;

var i,addr : integer;

begin
  a1:=0;a2:=0;//a3:=0;a4:=0;
  addr := (10)+integer(@test_sse);

for i:= 0 to $ff do
begin
  wr(addr, i);
  test_sse();

  writeln (inttohex(_xmm1[0],8),' ',
           inttohex(_xmm1[1],8),' ',
           inttohex(_xmm1[2],8),' ',
           inttohex(_xmm1[3],8),' ',
           inttohex( i, 2),' '
          );
end;
end.