Subversion Repositories k68

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