mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 00:59:30 +02:00
28 lines
370 B
ObjectPascal
28 lines
370 B
ObjectPascal
{ %skiptarget=darwin,android }
|
|
{ %cpu=i386 }
|
|
{ %OPT=-Cg- }
|
|
var
|
|
w : word;
|
|
b1,b2,b3 : byte;
|
|
begin
|
|
b1:=$aa;
|
|
b2:=$55;
|
|
b3:=$aa;
|
|
{$asmmode intel}
|
|
asm
|
|
mov eax,$deadbeef
|
|
mov ax,w
|
|
shr eax,16
|
|
mov w,ax
|
|
mov bl,$55
|
|
lea edx,b2
|
|
test [edx],bl
|
|
setnz b1
|
|
end;
|
|
if w<>$dead then
|
|
halt(1);
|
|
if b1<>1 then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|