mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 17:59:26 +02:00
21 lines
285 B
ObjectPascal
21 lines
285 B
ObjectPascal
{ %CPU=i386 }
|
|
{ %OPT=-Cg- }
|
|
{$asmmode intel}
|
|
|
|
var
|
|
a : array[0..1] of byte;
|
|
myresult : boolean;
|
|
begin
|
|
a[0]:=$ff;
|
|
a[1]:=$1;
|
|
asm
|
|
mov esi,offset a
|
|
mov dl,1
|
|
test byte ptr [esi+1], dl
|
|
setnz myresult
|
|
end;
|
|
if not(myresult) then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|