blob: 5ff485b97962fe0c97e5352cfd4f221e685eafb0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ %CPU=i386 }
{$asmmode intel}
var
a : array[0..5] of byte;
function f : byte;assembler;
asm
mov ebx,offset a
mov ecx,0
mov al,[ebx+4*ecx]
end;
begin
fillchar(a,5,255);
a[0]:=0;
if f<>0 then
begin
writeln('Scale factor problem in asmmode intel!');
halt(1);
end;
end.
|
