micro-80-basic/bin2rk.dpr at master · prokushev/micro-80-basic · GitHub

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
program bin2rk;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
f,f1:file of byte;
  i,size,start:word;
  tb,u,te:byte;
  cs:word;
  err:integer;
  res:integer;
begin
  writeln('Bin2rk 2.0 by Kakos_nonos');
  if Paramstr(1)<>'' then
  begin
   val(paramstr(2),start,err);
  end
  else start:=0;
  if paramstr(1)='' then
  begin
   writeln('Use bin2rk file [addr]');
   halt;
  end;
  assignfile(f,paramstr(1));
  {$I-}
  reset(f);
  {$I+}
  res := IOResult;
  if res<>0 then
  begin
   writeln('Error open file '+paramstr(1));
   halt;
  end;
  size:=0;
  while not eof(f) do
  begin
   read(f,tb);
   inc(size);
   cs:=cs+tb+(tb shl 8);
  end;
  closefile(f);
  assignfile(f,ChangeFileExt(paramstr(1),'.rk'));
  {$I-}
  rewrite(f);
  {$I+}
    res := IOResult;
  if res<>0 then
  begin
   writeln('Error create file '+ChangeFileExt(paramstr(1),'.rk'));
   halt;
  end;
  u:=start div 256; write(f,u);
  u:=start mod 256; write(f,u);
  u:=(start+size) div 256; write(f,u);
  u:=(start+size) mod 256; write(f,u);

  assignfile(f1,paramstr(1));
  reset(f1);
  while not eof(f1) do
  begin
   read(f1,tb);
   write(f,tb);
  end;
  closefile(f1);
  u:=0; write(f,u);
  write(f,u);
  u:=$e6; write(f,u);
  u:=cs div 256; write(f,u);
  u:=cs mod 256; write(f,u);
  closefile(f);
  write('Done. ');
  write(size);
    writeln(' bytes.');
end.