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
|
{
Copyright (c) 1998-2002 by Peter Vreman
Convert insns.dat from Nasm to an i386ins.dat for usage with
the Free pascal compiler
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
program fixnasm;
const
spaces=' ';
var
t,f : text;
para,bytes,flags,
opcode,lastop,
s : string;
i,j : longint;
begin
writeln('Fixing insns.dat -> i386ins.dat');
assign(t,'insns.dat');
reset(t);
assign(f,'insns.new');
rewrite(f);
lastop:='';
while not eof(t) do
begin
readln(t,s);
if (s<>'') and (s[1]<>';') then
begin
i:=pos(' ',s);
j:=pos(',',s);
if (j>0) and (j<i) then
opcode:=Copy(s,1,j-1)
else
opcode:=Copy(s,1,i-1);
if opcode<>lastop then
begin
writeln(f,'');
writeln(f,'[',Copy(s,1,i-1),']');
writeln(f,'(Ch_All, Ch_None, Ch_None)');
lastop:=opcode;
end;
while (i<length(s)) and (s[i+1]=' ') do
inc(i);
Delete(s,1,i);
i:=pos(' ',s);
para:=Copy(s,1,i-1);
para:=para+Copy(spaces,1,22-length(para));
while (i<length(s)) and (s[i+1]=' ') do
inc(i);
Delete(s,1,i);
i:=pos(' ',s);
bytes:=Copy(s,1,i-1);
bytes:=bytes+Copy(spaces,1,32-length(bytes));
while (i<length(s)) and (s[i+1]=' ') do
inc(i);
Delete(s,1,i);
i:=pos(' ',s);
if i=0 then
i:=255;
flags:=Copy(s,1,i-1);
writeln(f,para,bytes,flags);
end
else
writeln(f,s);
end;
close(f);
close(t);
end.
|
