Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / webtbs / tw0892.pp
Size: Mime:
{ %CPU=i386 }
{ %OPT=-Cg- }


{$asmmode intel}

var
  i,j  : longint;

begin
  i:=56;
  { this should work as ss and ds have the same selector value }
  asm
    segss
    mov eax,dword ptr [i]
    mov dword ptr [j],eax
  end;
  if i<>j then
    Halt(1);
end.