mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 21:42:35 +02:00
27 lines
347 B
ObjectPascal
27 lines
347 B
ObjectPascal
{ %skiptarget=darwin}
|
|
{ %cpu=i386 }
|
|
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.
|