blob: 13547850e3849f77272dbd0ba78457504e06ea23 (
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
28
29
30
|
{ %cpu=i386 }
program test_assembler;
procedure test_att;
begin
{$asmmode att}
asm
ret
lret
iret
iretw
end;
end;
procedure test_intel;
begin
{$asmmode intel}
asm
ret
retf
retn
iret
iretd
iretw
end;
end;
begin
Writeln('This is just to test special assembler instructions');
end.
|
