blob: 0751be5e8e4cc14284ee52e7bab0b0d985a250e5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/perl --
# Given an offset of a byte number on disk,
# this little script converts the given offset to the sector number
# where the audio starts that is allocated by the given byte in the
# usage table.
# It is assumed that the drive usage table starts on offset 0xa00
# (sector 5).
# The blocks per cluster must be looked up in the boot record of the
# drive before using this script; it varies based on drive capacity.
my $blockspercluster=5;
my $sectorsperblock=0x480;
my $firstaudiosec=0x1397f6;
my $usagetablestart=0xa00;
my $recordingoffset=hex($ARGV[0]);
my $bitsperbyte=8;
my $startcluster=$recordingoffset-$usagetablestart;
my $audiosec=$firstaudiosec+($sectorsperblock*$blockspercluster*$bitsperbyte*$startcluster);
print sprintf("%x",$audiosec)."\n";
|
