mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
18 lines
230 B
ObjectPascal
18 lines
230 B
ObjectPascal
|
|
|
|
{$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. |