blob: d49ac092f5d69a39f86356ff363e55230360de2f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %CPU=i386 }
{ %OPT=-Cg- }
{$asmmode intel}
const
Number = $7FFFFFF;
Shift = 7;
var
l : longint;
begin
ASM
MOV EAX,(Number shr (Shift+3))
mov l,eax
End;
if l<>131071 then
begin
writeln('error in constant eval in intel reader');
halt(1);
end;
end.
|
