blob: 1f34befb0d647192770a6056bd51fcefdc2d4359 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{ %cpu=i386 }
{ %OPT=-Cg- }
{$ifdef fpc}
{$MODE DELPHI}
{$ASMMODE INTEL}
{$endif}
const myoffset=10;
var
r : array[0..19] of char;
c : char;
begin
r:='01234567890123456789';
asm
lea eax,r
mov al,[eax].myoffset
mov c,al
end;
writeln(c);
if c<>'0' then
begin
writeln('ERROR!');
halt(1);
end;
end.
|
