-
Notifications
You must be signed in to change notification settings - Fork 5
/
FormD64BAMView.pas
247 lines (199 loc) · 6.2 KB
/
FormD64BAMView.pas
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
//------------------------------------------------------------------------------
//FormD64BAMView
//==============
//Displays the BAM (block allocation map) for the currently opened disk image.
//
//Copyright (C) 2016, Daniel England.
//All Rights Reserved. Released under the GPL.
//
//This program is free software: you can redistribute it and/or modify it under
//the terms of the GNU General Public License as published by the Free Software
//Foundation, either version 3 of the License, or (at your option) any later
//version.
//
//This program is distributed in the hope that it will be useful, but WITHOUT
//ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
//FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
//details.
//
//You should have received a copy of the GNU General Public License along with
//this program. If not, see <http://www.gnu.org/licenses/>.
//
//------------------------------------------------------------------------------
unit FormD64BAMView;
{$mode Delphi}
{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, C64D64Image, D64ExplorerTypes, Types;
type
{ TD64BAMViewForm }
TD64BAMViewForm = class(TForm)
CmbDirectory: TComboBox;
Label32: TLabel;
Label9: TLabel;
LstBxBAM: TListBox;
PnlDirectories: TPanel;
procedure CmbDirectoryChange(Sender: TObject);
procedure CmbDirectoryDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormShow(Sender: TObject);
private
FChanging: Boolean;
FDirectories: TD64DirPartitions;
FD64File: TD64File;
procedure ClearDisplay;
procedure DoInitialiseDisplay;
procedure InitialiseDisplay;
public
property D64File: TD64File read FD64File write FD64File;
end;
var
D64BAMViewForm: TD64BAMViewForm;
implementation
{$R *.lfm}
uses
D64ExplorerUtils, DModD64ExplorerMain;
{ TD64BAMViewForm }
procedure TD64BAMViewForm.FormShow(Sender: TObject);
begin
ClearDisplay;
InitialiseDisplay;
D64ExplorerMainDMod.ActViewBAMView.Checked:= True;
end;
procedure TD64BAMViewForm.ClearDisplay;
begin
LstBxBAM.Clear;
end;
procedure TD64BAMViewForm.DoInitialiseDisplay;
var
b: TD64DiskBAM;
m: Integer;
info: TD64DirPartitionInfo;
procedure DoOutputTracksBAM(const AStart, AEnd: Integer);
var
t: Byte;
s: Byte;
d: Byte;
o: string;
i: Integer;
begin
LstBxBAM.Items.Add(' Tracks');
o:= ' ';
for t:= AStart to AEnd do
o:= o + Format('%2.2d ', [t + 1]);
LstBxBAM.Items.Add(o);
LstBxBAM.Items.Add(EmptyStr);
o:= 'Sec. Free ';
for t:= AStart to AEnd do
o:= o + Format('%2.2d ', [b[t].FreeSectors]);
LstBxBAM.Items.Add(o);
LstBxBAM.Items.Add(EmptyStr);
d:= 1;
i:= 0;
for s:= 0 to FD64File.D64Image.MaxSectors - 1 do
begin
if s = 0 then
o:= 'Sector 00 '
else
o:= Format(' %2.2d ', [Ord(s)]);
for t:= AStart to AEnd do
if s < FD64File.D64Image.GetSectorsForTrack(t + 1) then
if (b[t].Bitmap[i] and d) = 0 then
o:= o + ' X '
else
o:= o + ' . '
else
o:= o + ' ';
LstBxBAM.Items.Add(o);
if d = 128 then
begin
d:= 1;
Inc(i);
end
else
d:= d shl 1;
end;
end;
begin
// Tracks
// 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 .. 30 31 32 33 34 35
//
//Sec. Free
//
//Sector 00 X .
// nn X .
if FD64File.D64Image.DiskType = ddt1581 then
begin
FD64File.D64Image.SetCurrentPartition(
FDirectories[CmbDirectory.ItemIndex].Info, info);
try
FD64File.D64Image.GetPartitionBAM(b);
finally
FD64File.D64Image.SetCurrentPartition(info);
end;
end
else
FD64File.D64Image.GetDiskBAM(b);
LstBxBAM.Items.BeginUpdate;
try
LstBxBAM.Clear;
if (not FD64File.D64Image.SingleSide)
and (Length(b) > 40) then
m:= Length(b) div 2
else
m:= Length(b);
DoOutputTracksBAM(0, m - 1);
if (not FD64File.D64Image.SingleSide)
and (Length(b) > 40) then
begin
LstBxBAM.Items.Add(EmptyStr);
LstBxBAM.Items.Add(EmptyStr);
DoOutputTracksBAM(m, High(b));
end;
finally
LstBxBAM.Items.EndUpdate;
end;
end;
procedure TD64BAMViewForm.InitialiseDisplay;
var
i: Integer;
begin
if FD64File.D64Image.DiskType = ddt1581 then
begin
FD64File.D64Image.GetDirPartitions(FDirectories);
FChanging:= True;
CmbDirectory.Items.BeginUpdate;
try
CmbDirectory.Clear;
for i:= 0 to High(FDirectories) do
CmbDirectory.Items.Add('/' + FDirectories[i].PartFileName);
finally
CmbDirectory.Items.EndUpdate;
FChanging:= False;
end;
CmbDirectory.ItemIndex:= 0;
PnlDirectories.Visible:= True;
end
else
PnlDirectories.Visible:= False;
DoInitialiseDisplay;
end;
procedure TD64BAMViewForm.FormClose(Sender: TObject;
var CloseAction: TCloseAction);
begin
D64ExplorerMainDMod.ActViewBAMView.Checked:= False;
end;
procedure TD64BAMViewForm.CmbDirectoryChange(Sender: TObject);
begin
if not FChanging then
DoInitialiseDisplay;
end;
procedure TD64BAMViewForm.CmbDirectoryDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState);
begin
DirectoryDrawComboItem(CmbDirectory, Index, ARect, State, FDirectories);
end;
end.