/////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////
|
//// ////
|
//// ////
|
//// Copyright (C) 2003 to Shawn Tan Ser Ngiap. ////
|
//// Copyright (C) 2003 to Shawn Tan Ser Ngiap. ////
|
//// shawn.tan@aeste.net ////
|
//// shawn.tan@aeste.net ////
|
//// ////
|
//// ////
|
//// This source file may be used and distributed without ////
|
//// This source file may be used and distributed without ////
|
//// restriction provided that this copyright statement is not ////
|
//// restriction provided that this copyright statement is not ////
|
//// removed from the file and that any derivative work contains ////
|
//// removed from the file and that any derivative work contains ////
|
//// the original copyright notice and the associated disclaimer.////
|
//// the original copyright notice and the associated disclaimer.////
|
//// ////
|
//// ////
|
//// THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY ////
|
//// THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY ////
|
//// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED ////
|
//// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED ////
|
//// TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS ////
|
//// TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS ////
|
//// FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR ////
|
//// FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR ////
|
//// OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, ////
|
//// OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, ////
|
//// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ////
|
//// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ////
|
//// (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ////
|
//// (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ////
|
//// GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR ////
|
//// GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR ////
|
//// BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF ////
|
//// BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF ////
|
//// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ////
|
//// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ////
|
//// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT ////
|
//// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT ////
|
//// OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ////
|
//// OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ////
|
//// POSSIBILITY OF SUCH DAMAGE. ////
|
//// POSSIBILITY OF SUCH DAMAGE. ////
|
//// ////
|
//// ////
|
/////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////
|
|
|
program splitrom;
|
program splitrom;
|
|
|
{$APPTYPE CONSOLE}
|
{$APPTYPE CONSOLE}
|
|
|
uses
|
uses
|
SysUtils, Classes;
|
SysUtils, Classes;
|
|
|
var
|
var
|
fin,f0,f1,f2,f3:tfilestream;
|
fin,f0,f1,f2,f3:tfilestream;
|
dat: cardinal;
|
dat: cardinal;
|
i,l:integer;
|
i,l:integer;
|
begin
|
begin
|
{ TODO -oUser -cConsole Main : Insert code here }
|
{ TODO -oUser -cConsole Main : Insert code here }
|
if paramcount <> 1 then begin
|
if paramcount <> 1 then begin
|
writeln('Syntax: splitrom <binary ROM filename>');
|
writeln('Syntax: splitrom <binary ROM filename>');
|
halt;
|
halt;
|
end;
|
end;
|
|
|
if not fileexists(paramstr(1)) then begin
|
if not fileexists(paramstr(1)) then begin
|
writeln('File ',paramstr(1),' not found!');
|
writeln('File ',paramstr(1),' not found!');
|
halt;
|
halt;
|
end;
|
end;
|
|
|
fin := tfilestream.create(paramstr(1),fmopenread);
|
fin := tfilestream.create(paramstr(1),fmopenread);
|
|
|
f0 := tfilestream.create(changefileext(paramstr(1),'.0.bin'),fmcreate);
|
f0 := tfilestream.create(changefileext(paramstr(1),'.0.bin'),fmcreate);
|
f1 := tfilestream.create(changefileext(paramstr(1),'.1.bin'),fmcreate);
|
f1 := tfilestream.create(changefileext(paramstr(1),'.1.bin'),fmcreate);
|
f2 := tfilestream.create(changefileext(paramstr(1),'.2.bin'),fmcreate);
|
f2 := tfilestream.create(changefileext(paramstr(1),'.2.bin'),fmcreate);
|
f3 := tfilestream.create(changefileext(paramstr(1),'.3.bin'),fmcreate);
|
f3 := tfilestream.create(changefileext(paramstr(1),'.3.bin'),fmcreate);
|
|
|
try
|
try
|
l := sizeof(dat);
|
l := sizeof(dat);
|
repeat
|
repeat
|
dat := 0;
|
dat := 0;
|
i := fin.Read(dat,l);
|
i := fin.Read(dat,l);
|
|
|
f0.Write(byte(dat),1);
|
f0.Write(byte(dat),1);
|
dat := dat shr 8;
|
dat := dat shr 8;
|
f1.Write(byte(dat),1);
|
f1.Write(byte(dat),1);
|
dat := dat shr 8;
|
dat := dat shr 8;
|
f2.Write(byte(dat),1);
|
f2.Write(byte(dat),1);
|
dat := dat shr 8;
|
dat := dat shr 8;
|
f3.Write(byte(dat),1);
|
f3.Write(byte(dat),1);
|
|
|
until i<l;
|
until i<l;
|
|
|
finally
|
finally
|
fin.free;
|
fin.free;
|
f0.free;
|
f0.free;
|
f1.free;
|
f1.free;
|
f2.free;
|
f2.free;
|
f3.free;
|
f3.free;
|
end;
|
end;
|
end.
|
end.
|
|
|
|
|
