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
31
32
33
34
35
36
37
38
39
|
{ %cpu=arm }
{ %norun }
TYPE
ttest = record
a : shortstring;
b : dword;
end;
VAR
q : ttest;
begin
asm
ldr r0,[r1,r2,lsl #3]
ldr r0,[r1]
ldr r0,[r1, r2]
ldr r0,[r1, -r2]
ldr r0,[r1, r2, lsl #23]
ldr r0,[r1, -r2, lsl #23]
ldr r0,[r1, #4095]
ldr r0,[r1, #-4095]
ldr r0,[r1, r2]!
ldr r0,[r1, -r2]!
ldr r0,[r1, r2, lsl #23]!
ldr r0,[r1, -r2, lsl #23]!
ldr r0,[r1, #4095]!
ldr r0,[r1, #-4095]!
ldr r0,[r1], r2
ldr r0,[r1], -r2
ldr r0,[r1], r2, lsl #23
ldr r0,[r1], -r2, lsl #23
ldr r0,[r1], #4095
ldr r0,[r1], #-4095
ldr r0,[r1,q.b]
.Ltest:
ldr r0,[.Ltest]
end;
end.
|
