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
  i := 0;
        l := sizeof(dat);
        repeat
                dat := 0;
                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.