blob: 1cbf9e7f3dbdbabd42851192ff6cc29b04786a84 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ %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.
|
