freepascal.compiler/tests/webtbs/tw0919.pp

 var i:integer;
{$i386_intel}
{ "mov i,1"
   is like
  "mov word ptr [i],1"
  or
  movw i,$1  in ATT syntax }

begin
 asm
  mov i, 1
 end;
  if i <> 1 then
    halt(1);
end.