mirror of
https://github.com/rvtr/TwlToolsRED.git
synced 2025-10-31 06:41:18 -04:00
srlヘッダからA9 オーバレイの未検証サイズを表示するWinツール
Delphi6 用プロジェクト git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlToolsRED@584 7061adef-622a-194b-ae81-725974e89856
This commit is contained in:
mizu
parent
2c40d3da3b
commit
0a8fc3efdc
35
build/tools/A9Ovl_Chk/a9ovlchk.cfg
Normal file
35
build/tools/A9Ovl_Chk/a9ovlchk.cfg
Normal file
@ -0,0 +1,35 @@
|
|||||||
|
-$A8
|
||||||
|
-$B-
|
||||||
|
-$C+
|
||||||
|
-$D+
|
||||||
|
-$E-
|
||||||
|
-$F-
|
||||||
|
-$G+
|
||||||
|
-$H+
|
||||||
|
-$I+
|
||||||
|
-$J-
|
||||||
|
-$K-
|
||||||
|
-$L+
|
||||||
|
-$M-
|
||||||
|
-$N+
|
||||||
|
-$O+
|
||||||
|
-$P+
|
||||||
|
-$Q-
|
||||||
|
-$R-
|
||||||
|
-$S-
|
||||||
|
-$T-
|
||||||
|
-$U-
|
||||||
|
-$V+
|
||||||
|
-$W-
|
||||||
|
-$X+
|
||||||
|
-$YD
|
||||||
|
-$Z1
|
||||||
|
-cg
|
||||||
|
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||||
|
-H+
|
||||||
|
-W+
|
||||||
|
-M
|
||||||
|
-$M16384,1048576
|
||||||
|
-K$00400000
|
||||||
|
-LE"c:\program files\borland\delphi6\Projects\Bpl"
|
||||||
|
-LN"c:\program files\borland\delphi6\Projects\Bpl"
|
||||||
87
build/tools/A9Ovl_Chk/a9ovlchk.dof
Normal file
87
build/tools/A9Ovl_Chk/a9ovlchk.dof
Normal file
@ -0,0 +1,87 @@
|
|||||||
|
[FileVersion]
|
||||||
|
Version=6.0
|
||||||
|
[Compiler]
|
||||||
|
A=8
|
||||||
|
B=0
|
||||||
|
C=1
|
||||||
|
D=1
|
||||||
|
E=0
|
||||||
|
F=0
|
||||||
|
G=1
|
||||||
|
H=1
|
||||||
|
I=1
|
||||||
|
J=0
|
||||||
|
K=0
|
||||||
|
L=1
|
||||||
|
M=0
|
||||||
|
N=1
|
||||||
|
O=1
|
||||||
|
P=1
|
||||||
|
Q=0
|
||||||
|
R=0
|
||||||
|
S=0
|
||||||
|
T=0
|
||||||
|
U=0
|
||||||
|
V=1
|
||||||
|
W=0
|
||||||
|
X=1
|
||||||
|
Y=1
|
||||||
|
Z=1
|
||||||
|
ShowHints=1
|
||||||
|
ShowWarnings=1
|
||||||
|
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||||
|
[Linker]
|
||||||
|
MapFile=0
|
||||||
|
OutputObjs=0
|
||||||
|
ConsoleApp=1
|
||||||
|
DebugInfo=0
|
||||||
|
RemoteSymbols=0
|
||||||
|
MinStackSize=16384
|
||||||
|
MaxStackSize=1048576
|
||||||
|
ImageBase=4194304
|
||||||
|
ExeDescription=
|
||||||
|
[Directories]
|
||||||
|
OutputDir=
|
||||||
|
UnitOutputDir=
|
||||||
|
PackageDLLOutputDir=
|
||||||
|
PackageDCPOutputDir=
|
||||||
|
SearchPath=
|
||||||
|
Packages=
|
||||||
|
Conditionals=
|
||||||
|
DebugSourceDirs=
|
||||||
|
UsePackages=0
|
||||||
|
[Parameters]
|
||||||
|
RunParams=
|
||||||
|
HostApplication=
|
||||||
|
Launcher=
|
||||||
|
UseLauncher=0
|
||||||
|
DebugCWD=
|
||||||
|
[Language]
|
||||||
|
ActiveLang=
|
||||||
|
ProjectLang=
|
||||||
|
RootDir=
|
||||||
|
[Version Info]
|
||||||
|
IncludeVerInfo=0
|
||||||
|
AutoIncBuild=0
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
Release=0
|
||||||
|
Build=0
|
||||||
|
Debug=0
|
||||||
|
PreRelease=0
|
||||||
|
Special=0
|
||||||
|
Private=0
|
||||||
|
DLL=0
|
||||||
|
Locale=1041
|
||||||
|
CodePage=932
|
||||||
|
[Version Info Keys]
|
||||||
|
CompanyName=
|
||||||
|
FileDescription=
|
||||||
|
FileVersion=1.0.0.0
|
||||||
|
InternalName=
|
||||||
|
LegalCopyright=
|
||||||
|
LegalTrademarks=
|
||||||
|
OriginalFilename=
|
||||||
|
ProductName=
|
||||||
|
ProductVersion=1.0.0.0
|
||||||
|
Comments=
|
||||||
13
build/tools/A9Ovl_Chk/a9ovlchk.dpr
Normal file
13
build/tools/A9Ovl_Chk/a9ovlchk.dpr
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
program a9ovlchk;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
main in 'main.pas' {Form1};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
BIN
build/tools/A9Ovl_Chk/a9ovlchk.exe
Executable file
BIN
build/tools/A9Ovl_Chk/a9ovlchk.exe
Executable file
Binary file not shown.
BIN
build/tools/A9Ovl_Chk/a9ovlchk.res
Normal file
BIN
build/tools/A9Ovl_Chk/a9ovlchk.res
Normal file
Binary file not shown.
13
build/tools/A9Ovl_Chk/a9ovlchk.~dpr
Normal file
13
build/tools/A9Ovl_Chk/a9ovlchk.~dpr
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
program a9ovlchk;
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms,
|
||||||
|
main in 'main.pas' {Form1};
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
BIN
build/tools/A9Ovl_Chk/main.dcu
Normal file
BIN
build/tools/A9Ovl_Chk/main.dcu
Normal file
Binary file not shown.
BIN
build/tools/A9Ovl_Chk/main.ddp
Normal file
BIN
build/tools/A9Ovl_Chk/main.ddp
Normal file
Binary file not shown.
86
build/tools/A9Ovl_Chk/main.dfm
Normal file
86
build/tools/A9Ovl_Chk/main.dfm
Normal file
@ -0,0 +1,86 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 310
|
||||||
|
Top = 126
|
||||||
|
Width = 574
|
||||||
|
Height = 259
|
||||||
|
Caption = 'Form1'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = SHIFTJIS_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
OnCreate = FormCreate
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ListBox_log: TListBox
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 353
|
||||||
|
Height = 129
|
||||||
|
ItemHeight = 12
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 48
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = #38283#22987
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = Button1Click
|
||||||
|
end
|
||||||
|
object DriveBox: TDriveComboBox
|
||||||
|
Left = 392
|
||||||
|
Top = 40
|
||||||
|
Width = 145
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = DriveBoxChange
|
||||||
|
end
|
||||||
|
object DirListBox: TDirectoryListBox
|
||||||
|
Left = 392
|
||||||
|
Top = 64
|
||||||
|
Width = 145
|
||||||
|
Height = 97
|
||||||
|
ItemHeight = 16
|
||||||
|
TabOrder = 3
|
||||||
|
OnChange = DirListBoxChange
|
||||||
|
end
|
||||||
|
object StatusBar: TStatusBar
|
||||||
|
Left = 0
|
||||||
|
Top = 210
|
||||||
|
Width = 566
|
||||||
|
Height = 19
|
||||||
|
Panels = <>
|
||||||
|
SimplePanel = True
|
||||||
|
end
|
||||||
|
object StaticText1: TStaticText
|
||||||
|
Left = 184
|
||||||
|
Top = 176
|
||||||
|
Width = 283
|
||||||
|
Height = 16
|
||||||
|
Caption = #65288#27880#24847#65289#12525#12464#12399#23455#34892#12501#12449#12452#12523#12398#12354#12427#12487#12451#12524#12463#12488#12522#12395#20986#12375#12414#12377
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object StaticText2: TStaticText
|
||||||
|
Left = 416
|
||||||
|
Top = 16
|
||||||
|
Width = 95
|
||||||
|
Height = 16
|
||||||
|
BevelInner = bvLowered
|
||||||
|
BevelOuter = bvRaised
|
||||||
|
BorderStyle = sbsSingle
|
||||||
|
Caption = 'srl'#12288#12398#22580#25152#12434#25351#23450
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object StaticText3: TStaticText
|
||||||
|
Left = 184
|
||||||
|
Top = 192
|
||||||
|
Width = 254
|
||||||
|
Height = 16
|
||||||
|
Caption = #65288#27880#24847#65298#65289#25351#23450#12487#12451#12524#12463#12488#12522#12395'srl'#20197#22806#12399#32622#12363#12394#12356#12371#12392
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
end
|
||||||
213
build/tools/A9Ovl_Chk/main.pas
Normal file
213
build/tools/A9Ovl_Chk/main.pas
Normal file
@ -0,0 +1,213 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, FileCtrl, ComCtrls, ShellCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
ListBox_log: TListBox;
|
||||||
|
Button1: TButton;
|
||||||
|
DriveBox: TDriveComboBox;
|
||||||
|
DirListBox: TDirectoryListBox;
|
||||||
|
StatusBar: TStatusBar;
|
||||||
|
StaticText1: TStaticText;
|
||||||
|
StaticText2: TStaticText;
|
||||||
|
StaticText3: TStaticText;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure DriveBoxChange(Sender: TObject);
|
||||||
|
procedure DirListBoxChange(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private 宣言 }
|
||||||
|
function CheckSrlHeader:integer;
|
||||||
|
public
|
||||||
|
{ Public 宣言 }
|
||||||
|
end;
|
||||||
|
|
||||||
|
TRom_Fat = record
|
||||||
|
top:Longword; // file region start
|
||||||
|
bottom:Longword; // end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TRomh = record
|
||||||
|
title: array[1..12] of Char;
|
||||||
|
game_code: array[1..4] of Byte;
|
||||||
|
//0x10
|
||||||
|
dumy:array[1..16]of Byte;//ツールで使用しない部分
|
||||||
|
|
||||||
|
//
|
||||||
|
// 0x020 for Static modules (Section:B)
|
||||||
|
//ARM9
|
||||||
|
A9_main_rom_offset: Longword; // ROM offset
|
||||||
|
A9_main_entry_address: Longword; // Entry point
|
||||||
|
A9_main_ram_address: Longword; // RAM address
|
||||||
|
A9_main_size: Longword; // Module size
|
||||||
|
|
||||||
|
//ARM7
|
||||||
|
A7_main_rom_offset: Longword; // ROM offset
|
||||||
|
A7_main_entry_address: Longword; // Entry point
|
||||||
|
A7_main_ram_address: Longword; // RAM address
|
||||||
|
A7_main_size: Longword; // Module size
|
||||||
|
|
||||||
|
//0x40
|
||||||
|
dumy2:array[1..8] of Byte;//ツールで使用しない部分
|
||||||
|
|
||||||
|
//
|
||||||
|
// 0x048 for File Allocation Table[FAT] (Section:E)
|
||||||
|
//
|
||||||
|
fat_offset: Longword; // ROM offset
|
||||||
|
fat_size:Longword; // Table size
|
||||||
|
|
||||||
|
//
|
||||||
|
// 0x050 for Overlay Tables[OVT] (Section:D)
|
||||||
|
//
|
||||||
|
// ARM9
|
||||||
|
main_ovt_offset: Longword; // ROM offset
|
||||||
|
main_ovt_size:Longword; // Table size
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
SrlDir: String;//srlファイルの存在するディレクトリ名
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function TForm1.CheckSrlHeader: integer;
|
||||||
|
var
|
||||||
|
Rec: TSearchRec;
|
||||||
|
s: String;
|
||||||
|
i,n,Count: integer;
|
||||||
|
fsrl: file;
|
||||||
|
romh: TRomh;
|
||||||
|
noc_size,noc_sectors,size,sectors,nums,max_sectors,total_sectors: integer;
|
||||||
|
fat: TRom_Fat;
|
||||||
|
|
||||||
|
begin
|
||||||
|
{$I-}
|
||||||
|
Count :=0;
|
||||||
|
//指定ディレクトリからファイルを取り出す
|
||||||
|
// ** 内容で判別しないので違うファイル置かないよう注意 **
|
||||||
|
if FindFirst(SrlDir + '*.*', faAnyFile, Rec) = 0 then
|
||||||
|
try
|
||||||
|
repeat
|
||||||
|
//フォルダやカレントディレクトリや親ディレクトリは対象外で
|
||||||
|
if not((Rec.Attr and faDirectory > 0)) and
|
||||||
|
(Rec.Name <> '.') and (Rec.Name <> '..') then
|
||||||
|
begin
|
||||||
|
Inc(Count);
|
||||||
|
ListBox_log.Items.Add('file: '+Rec.Name);
|
||||||
|
AssignFile (fsrl,SrlDir+Rec.Name);
|
||||||
|
FileMode := fmOpenRead;//リード専用指定
|
||||||
|
Reset(fsrl,1);//ファイル開く
|
||||||
|
if IOResult = 0 then begin
|
||||||
|
BlockRead(fsrl,romh,SizeOf(TRomh),n);
|
||||||
|
if SizeOf(TRomh) <> n then
|
||||||
|
s := ' size too small'
|
||||||
|
else begin
|
||||||
|
SetLength(s,12);
|
||||||
|
for i:=1 to 12 do begin
|
||||||
|
if romh.title[i] = char(0) then break;
|
||||||
|
s[i] := romh.title[i];
|
||||||
|
end;
|
||||||
|
if i<12 then Setlength(s,i);
|
||||||
|
ListBox_log.Items.Add('title = '+s);
|
||||||
|
|
||||||
|
//オーバレイチェック
|
||||||
|
if romh.main_ovt_size >0 then begin
|
||||||
|
//DHT_OVERLAY_MAX (512*1024)
|
||||||
|
total_sectors := 0;
|
||||||
|
nums := romh.main_ovt_size div 32;// 32 = Nitro用(Twlは33)
|
||||||
|
noc_size :=0;
|
||||||
|
noc_sectors := 0;
|
||||||
|
for i := 0 to nums-1 do begin
|
||||||
|
seek( fsrl,romh.fat_offset+sizeof(TRom_Fat)*i);
|
||||||
|
BlockRead( fsrl,fat,sizeof(fat),n);
|
||||||
|
size := fat.bottom - fat.top;
|
||||||
|
if total_sectors >= 1024 then begin//MAX超えたファイルは検証外に加算
|
||||||
|
s := 'OL['+inttostr(i)+'] $'+ inttohex(fat.top,8)+' - $'+
|
||||||
|
inttohex(fat.bottom,8)+' :size '+ inttostr(size);
|
||||||
|
noc_size := noc_size + size;
|
||||||
|
noc_sectors := noc_sectors + ((size+511) and $fffffe00) div 512;
|
||||||
|
next;
|
||||||
|
end;
|
||||||
|
//max_sectors = (DHT_OVERLAY_MAX/512 - total_sectors) / (nums-i);
|
||||||
|
max_sectors := (1024 - total_sectors) div (nums-i);
|
||||||
|
if n <> sizeof(fat) then begin
|
||||||
|
s := s+'Cannot read fat id='+ inttostr(i);
|
||||||
|
break;
|
||||||
|
end;
|
||||||
|
sectors := ( ((fat.bottom+511) and $fffffe00)- fat.top) div 512;
|
||||||
|
if sectors > max_sectors then begin
|
||||||
|
size := size - max_sectors*512;//検証されない残りサイズ
|
||||||
|
s := 'OL['+inttostr(i)+'] $'+ inttohex(fat.top+max_sectors*512,8)+' - $'+
|
||||||
|
inttohex(fat.bottom,8)+' :size '+ inttostr(size);
|
||||||
|
ListBox_log.Items.Add(s);
|
||||||
|
noc_size := noc_size+size;
|
||||||
|
noc_sectors := noc_sectors + (max_sectors-sectors);
|
||||||
|
end;
|
||||||
|
total_sectors := total_sectors + sectors;
|
||||||
|
end;
|
||||||
|
if i = nums then begin
|
||||||
|
ListBox_log.Items.Add('total sectors = '+inttostr(total_sectors));
|
||||||
|
ListBox_log.Items.Add('no check sectors = '+inttostr(noc_sectors));
|
||||||
|
ListBox_log.Items.Add('no check size = '+inttostr(noc_size));
|
||||||
|
if noc_size > 0 then s:= 'NG'
|
||||||
|
else s:= 'OK';
|
||||||
|
end;
|
||||||
|
end else s := 'no OVL';
|
||||||
|
end;
|
||||||
|
end else s := ' Open Error';
|
||||||
|
CloseFile(fsrl);
|
||||||
|
ListBox_log.Items.Add(s);
|
||||||
|
|
||||||
|
end;
|
||||||
|
until (FindNext(Rec) <> 0);
|
||||||
|
finally
|
||||||
|
FindClose(Rec);
|
||||||
|
end;
|
||||||
|
{$I+}
|
||||||
|
Result :=Count;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm1.Button1Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
FileCount :integer;
|
||||||
|
begin
|
||||||
|
ListBox_log.Clear;
|
||||||
|
//指定ディレクトリのsrlファイルをチェック
|
||||||
|
FileCount := CheckSrlHeader;
|
||||||
|
if FileCount>0 then begin
|
||||||
|
ListBox_log.Items.Add(' ------------------------ ');
|
||||||
|
ListBox_log.Items.Add('total '+inttostr(FileCount)+' files');
|
||||||
|
end else
|
||||||
|
ListBox_log.Items.Add(' file not ditect');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TForm1.DriveBoxChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
DirListBox.Drive := DriveBox.Drive;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.DirListBoxChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SrlDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||||
|
StatusBar.SimpleText := '[Target Dir] ' + DirListBox.Directory;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//イベント利用してSrlDirNameとステータスバーの設定
|
||||||
|
DirListBox.Drive := DriveBox.Drive;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
build/tools/A9Ovl_Chk/main.~ddp
Normal file
BIN
build/tools/A9Ovl_Chk/main.~ddp
Normal file
Binary file not shown.
86
build/tools/A9Ovl_Chk/main.~dfm
Normal file
86
build/tools/A9Ovl_Chk/main.~dfm
Normal file
@ -0,0 +1,86 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 310
|
||||||
|
Top = 126
|
||||||
|
Width = 574
|
||||||
|
Height = 259
|
||||||
|
Caption = 'Form1'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = SHIFTJIS_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
OnCreate = FormCreate
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ListBox_log: TListBox
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 353
|
||||||
|
Height = 129
|
||||||
|
ItemHeight = 12
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 48
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = #38283#22987
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = Button1Click
|
||||||
|
end
|
||||||
|
object DriveBox: TDriveComboBox
|
||||||
|
Left = 392
|
||||||
|
Top = 40
|
||||||
|
Width = 145
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = DriveBoxChange
|
||||||
|
end
|
||||||
|
object DirListBox: TDirectoryListBox
|
||||||
|
Left = 392
|
||||||
|
Top = 64
|
||||||
|
Width = 145
|
||||||
|
Height = 97
|
||||||
|
ItemHeight = 16
|
||||||
|
TabOrder = 3
|
||||||
|
OnChange = DirListBoxChange
|
||||||
|
end
|
||||||
|
object StatusBar: TStatusBar
|
||||||
|
Left = 0
|
||||||
|
Top = 210
|
||||||
|
Width = 566
|
||||||
|
Height = 19
|
||||||
|
Panels = <>
|
||||||
|
SimplePanel = True
|
||||||
|
end
|
||||||
|
object StaticText1: TStaticText
|
||||||
|
Left = 184
|
||||||
|
Top = 176
|
||||||
|
Width = 283
|
||||||
|
Height = 16
|
||||||
|
Caption = #65288#27880#24847#65289#12525#12464#12399#23455#34892#12501#12449#12452#12523#12398#12354#12427#12487#12451#12524#12463#12488#12522#12395#20986#12375#12414#12377
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object StaticText2: TStaticText
|
||||||
|
Left = 416
|
||||||
|
Top = 16
|
||||||
|
Width = 95
|
||||||
|
Height = 16
|
||||||
|
BevelInner = bvLowered
|
||||||
|
BevelOuter = bvRaised
|
||||||
|
BorderStyle = sbsSingle
|
||||||
|
Caption = 'srl'#12288#12398#22580#25152#12434#25351#23450
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object StaticText3: TStaticText
|
||||||
|
Left = 184
|
||||||
|
Top = 192
|
||||||
|
Width = 254
|
||||||
|
Height = 16
|
||||||
|
Caption = #65288#27880#24847#65298#65289#25351#23450#12487#12451#12524#12463#12488#12522#12395'srl'#20197#22806#12399#32622#12363#12394#12356#12371#12392
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
end
|
||||||
213
build/tools/A9Ovl_Chk/main.~pas
Normal file
213
build/tools/A9Ovl_Chk/main.~pas
Normal file
@ -0,0 +1,213 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, FileCtrl, ComCtrls, ShellCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
ListBox_log: TListBox;
|
||||||
|
Button1: TButton;
|
||||||
|
DriveBox: TDriveComboBox;
|
||||||
|
DirListBox: TDirectoryListBox;
|
||||||
|
StatusBar: TStatusBar;
|
||||||
|
StaticText1: TStaticText;
|
||||||
|
StaticText2: TStaticText;
|
||||||
|
StaticText3: TStaticText;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure DriveBoxChange(Sender: TObject);
|
||||||
|
procedure DirListBoxChange(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ Private 宣言 }
|
||||||
|
function CheckSrlHeader:integer;
|
||||||
|
public
|
||||||
|
{ Public 宣言 }
|
||||||
|
end;
|
||||||
|
|
||||||
|
TRom_Fat = record
|
||||||
|
top:Longword; // file region start
|
||||||
|
bottom:Longword; // end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TRomh = record
|
||||||
|
title: array[1..12] of Char;
|
||||||
|
game_code: array[1..4] of Byte;
|
||||||
|
//0x10
|
||||||
|
dumy:array[1..16]of Byte;//ツールで使用しない部分
|
||||||
|
|
||||||
|
//
|
||||||
|
// 0x020 for Static modules (Section:B)
|
||||||
|
//ARM9
|
||||||
|
A9_main_rom_offset: Longword; // ROM offset
|
||||||
|
A9_main_entry_address: Longword; // Entry point
|
||||||
|
A9_main_ram_address: Longword; // RAM address
|
||||||
|
A9_main_size: Longword; // Module size
|
||||||
|
|
||||||
|
//ARM7
|
||||||
|
A7_main_rom_offset: Longword; // ROM offset
|
||||||
|
A7_main_entry_address: Longword; // Entry point
|
||||||
|
A7_main_ram_address: Longword; // RAM address
|
||||||
|
A7_main_size: Longword; // Module size
|
||||||
|
|
||||||
|
//0x40
|
||||||
|
dumy2:array[1..8] of Byte;//ツールで使用しない部分
|
||||||
|
|
||||||
|
//
|
||||||
|
// 0x048 for File Allocation Table[FAT] (Section:E)
|
||||||
|
//
|
||||||
|
fat_offset: Longword; // ROM offset
|
||||||
|
fat_size:Longword; // Table size
|
||||||
|
|
||||||
|
//
|
||||||
|
// 0x050 for Overlay Tables[OVT] (Section:D)
|
||||||
|
//
|
||||||
|
// ARM9
|
||||||
|
main_ovt_offset: Longword; // ROM offset
|
||||||
|
main_ovt_size:Longword; // Table size
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
SrlDir: String;//srlファイルの存在するディレクトリ名
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function TForm1.CheckSrlHeader: integer;
|
||||||
|
var
|
||||||
|
Rec: TSearchRec;
|
||||||
|
s: String;
|
||||||
|
i,n,Count: integer;
|
||||||
|
fsrl: file;
|
||||||
|
romh: TRomh;
|
||||||
|
noc_size,noc_sectors,size,sectors,nums,max_sectors,total_sectors: integer;
|
||||||
|
fat: TRom_Fat;
|
||||||
|
|
||||||
|
begin
|
||||||
|
{$I-}
|
||||||
|
Count :=0;
|
||||||
|
//指定ディレクトリからファイルを取り出す
|
||||||
|
// ** 内容で判別しないので違うファイル置かないよう注意 **
|
||||||
|
if FindFirst(SrlDir + '*.*', faAnyFile, Rec) = 0 then
|
||||||
|
try
|
||||||
|
repeat
|
||||||
|
//フォルダやカレントディレクトリや親ディレクトリは対象外で
|
||||||
|
if not((Rec.Attr and faDirectory > 0)) and
|
||||||
|
(Rec.Name <> '.') and (Rec.Name <> '..') then
|
||||||
|
begin
|
||||||
|
Inc(Count);
|
||||||
|
ListBox_log.Items.Add('file: '+Rec.Name);
|
||||||
|
AssignFile (fsrl,SrlDir+Rec.Name);
|
||||||
|
FileMode := fmOpenRead;//リード専用指定
|
||||||
|
Reset(fsrl,1);//ファイル開く
|
||||||
|
if IOResult = 0 then begin
|
||||||
|
BlockRead(fsrl,romh,SizeOf(TRomh),n);
|
||||||
|
if SizeOf(TRomh) <> n then
|
||||||
|
s := ' size too small'
|
||||||
|
else begin
|
||||||
|
SetLength(s,12);
|
||||||
|
for i:=1 to 12 do begin
|
||||||
|
if romh.title[i] = char(0) then break;
|
||||||
|
s[i] := romh.title[i];
|
||||||
|
end;
|
||||||
|
if i<12 then Setlength(s,i);
|
||||||
|
ListBox_log.Items.Add('title = '+s);
|
||||||
|
|
||||||
|
//オーバレイチェック
|
||||||
|
if romh.main_ovt_size >0 then begin
|
||||||
|
//DHT_OVERLAY_MAX (512*1024)
|
||||||
|
total_sectors := 0;
|
||||||
|
nums := romh.main_ovt_size div 32;// 32 = Nitro用(Twlは33)
|
||||||
|
noc_size :=0;
|
||||||
|
noc_sectors := 0;
|
||||||
|
for i := 0 to nums-1 do begin
|
||||||
|
seek( fsrl,romh.fat_offset+sizeof(TRom_Fat)*i);
|
||||||
|
BlockRead( fsrl,fat,sizeof(fat),n);
|
||||||
|
size := fat.bottom - fat.top;
|
||||||
|
if total_sectors >= 1024 then begin//MAX超えたファイルは検証外に加算
|
||||||
|
s := 'OL['+inttostr(i)+'] $'+ inttohex(fat.top,8)+' - $'+
|
||||||
|
inttohex(fat.bottom,8)+' :size '+ inttostr(size);
|
||||||
|
noc_size := noc_size + size;
|
||||||
|
noc_sectors := noc_sectors + ((size+511) and $fffffe00) div 512;
|
||||||
|
next;
|
||||||
|
end;
|
||||||
|
//max_sectors = (DHT_OVERLAY_MAX/512 - total_sectors) / (nums-i);
|
||||||
|
max_sectors := (1024 - total_sectors) div (nums-i);
|
||||||
|
if n <> sizeof(fat) then begin
|
||||||
|
s := s+'Cannot read fat id='+ inttostr(i);
|
||||||
|
break;
|
||||||
|
end;
|
||||||
|
sectors := ( ((fat.bottom+511) and $fffffe00)- fat.top) div 512;
|
||||||
|
if sectors > max_sectors then begin
|
||||||
|
size := size - max_sectors*512;//検証されない残りサイズ
|
||||||
|
s := 'OL['+inttostr(i)+'] $'+ inttohex(fat.top+max_sectors*512,8)+' - $'+
|
||||||
|
inttohex(fat.bottom,8)+' :size '+ inttostr(size);
|
||||||
|
ListBox_log.Items.Add(s);
|
||||||
|
noc_size := noc_size+size;
|
||||||
|
noc_sectors := noc_sectors + (max_sectors-sectors);
|
||||||
|
end;
|
||||||
|
total_sectors := total_sectors + sectors;
|
||||||
|
end;
|
||||||
|
if i = nums then begin
|
||||||
|
ListBox_log.Items.Add('total sectors = '+inttostr(total_sectors));
|
||||||
|
ListBox_log.Items.Add('no check sectors = '+inttostr(noc_sectors));
|
||||||
|
ListBox_log.Items.Add('no check size = '+inttostr(noc_size));
|
||||||
|
if noc_size > 0 then s:= 'NG'
|
||||||
|
else s:= 'OK';
|
||||||
|
end;
|
||||||
|
end else s := 'no OVL';
|
||||||
|
end;
|
||||||
|
end else s := ' Open Error';
|
||||||
|
CloseFile(fsrl);
|
||||||
|
ListBox_log.Items.Add(s);
|
||||||
|
|
||||||
|
end;
|
||||||
|
until (FindNext(Rec) <> 0);
|
||||||
|
finally
|
||||||
|
FindClose(Rec);
|
||||||
|
end;
|
||||||
|
{$I+}
|
||||||
|
Result :=Count;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TForm1.Button1Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
FileCount :integer;
|
||||||
|
begin
|
||||||
|
ListBox_log.Clear;
|
||||||
|
//指定ディレクトリのsrlファイルをチェック
|
||||||
|
FileCount := CheckSrlHeader;
|
||||||
|
if FileCount>0 then begin
|
||||||
|
ListBox_log.Items.Add(' ------------------------ ');
|
||||||
|
ListBox_log.Items.Add('total '+inttostr(FileCount)+' files');
|
||||||
|
end else
|
||||||
|
ListBox_log.Items.Add(' file not ditect');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TForm1.DriveBoxChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
DirListBox.Drive := DriveBox.Drive;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.DirListBoxChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SrlDir := IncludeTrailingPathDelimiter(DirListBox.Directory);
|
||||||
|
StatusBar.SimpleText := '[Target Dir] ' + DirListBox.Directory;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//イベント利用してSrlDirNameとステータスバーの設定
|
||||||
|
DirListBox.Drive := DriveBox.Drive;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Loading…
Reference in New Issue
Block a user