|
@@ -12,6 +12,7 @@
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
|
|
|
|
**********************************************************************}
|
|
**********************************************************************}
|
|
|
|
|
+{$mode objfpc}
|
|
|
program mkx86ins;
|
|
program mkx86ins;
|
|
|
|
|
|
|
|
const
|
|
const
|
|
@@ -103,8 +104,6 @@ function readnumber : longint;
|
|
|
|
|
|
|
|
var
|
|
var
|
|
|
base : longint;
|
|
base : longint;
|
|
|
- result : longint;
|
|
|
|
|
-
|
|
|
|
|
begin
|
|
begin
|
|
|
result:=0;
|
|
result:=0;
|
|
|
if s[i]='\' then
|
|
if s[i]='\' then
|
|
@@ -131,7 +130,6 @@ function readnumber : longint;
|
|
|
end;
|
|
end;
|
|
|
inc(i);
|
|
inc(i);
|
|
|
end;
|
|
end;
|
|
|
- readnumber:=result;
|
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
function tostr(l : longint) : string;
|
|
function tostr(l : longint) : string;
|
|
@@ -146,9 +144,6 @@ function tostr(l : longint) : string;
|
|
|
|
|
|
|
|
function readstr : string;
|
|
function readstr : string;
|
|
|
|
|
|
|
|
- var
|
|
|
|
|
- result : string;
|
|
|
|
|
-
|
|
|
|
|
begin
|
|
begin
|
|
|
result:='';
|
|
result:='';
|
|
|
while (s[i] in ['0'..'9','A'..'Z','a'..'z','_']) and (i<=length(s)) do
|
|
while (s[i] in ['0'..'9','A'..'Z','a'..'z','_']) and (i<=length(s)) do
|
|
@@ -156,7 +151,6 @@ function readstr : string;
|
|
|
result:=result+s[i];
|
|
result:=result+s[i];
|
|
|
inc(i);
|
|
inc(i);
|
|
|
end;
|
|
end;
|
|
|
- readstr:=result;
|
|
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
procedure skipspace;
|
|
procedure skipspace;
|
pierre