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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
//
// generate ``General Purpose Ascii'' file for HP logic analyser
//
// usage: gpa()
// note: output has to be postprocessed with "sed 's/0x//g' "...
//
defn functions(start, end)
{
print("[FUNCTIONS]\n");
pc = start;
while pc < end do {
bnd = fnbound(pc);
print(pc\a, "\t", bnd[0], "..", bnd[1]-1, "\n");
pc = bnd[1];
}
print("\n");
}
defn variables(start, end)
{
print("[VARIABLES]\n");
// TODO: how do we get this one?
print("\n");
}
defn sourcelines(start, end)
{
local pc, curfile, curline, newfile, newline;
print("[SOURCE LINES]\n");
pc = txtstart;
curfile = "<no-file>";
curline = -1;
while pc < txtend do {
newfile = pcfile(pc);
newline = pcline(pc);
if newfile != curfile then {
if curline != -1 then
print("\n");
print("File: ", newfile, "\n");
curfile = newfile;
}
if newline != curline then {
print(newline, "\t", pc, "\n");
curline = newline;
}
pc++;
}
print("\n");
}
defn gpa()
{
local l, ent, txtstart, txtend, datastart, dataend, pc, bnd;
print("[SECTIONS]\n");
l = map();
while l do {
ent = head l;
if ent[0] == "text" || ent[0] == "data" then {
if ent[0] == "text" then {
txtstart = ent[1];
txtend = ent[2];
}
else {
datastart = ent[1];
dataend = ent[2];
}
print(ent[0], "\t", ent[1], "..", ent[2]-1, "\n");
}
l = tail l;
}
print("\n");
functions(txtstart, txtend);
// variables(datastart, dataend);
sourcelines(datastart, dataend);
print("[START ADDRESS]\n");
print(txtstart, "\n");
print("\n");
}
defn acidinit()
{
gpa();
}
|
