blob: 604781671806042af00875a5a9239f678fb4ca8c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl --
# sl2o -> converts Sectornumber and Length to Offset
# Given a sector number and block count (as mentioned in an allocation
# entry of a song), this little script tries to calculate which
# range of byte offsets on the drive correspond with the usage
# info of that allocation entry. This is useful in combination with
# hd24hexview.
# Blocks per cluster must be configured depending on the drive capacity.
# Look up the correct number in the superblock of the drive.
use POSIX floor;
my $sectorsperblock=0x480;
my $firstaudiosec=0x1397f6;
my $usagetablestart=0xa00;
my $blockspercluster=5;
my $bitsperbyte=8;
my $audiosec=hex($ARGV[0]);
my $seclen=floor(hex($ARGV[1])/($blockspercluster*$bitsperbyte));
my $offs=($audiosec-$firstaudiosec)/0x480/$blockspercluster/$bitsperbyte+$usagetablestart;
print sprintf("%x",$offs)."-";
print sprintf("%x",$offs+$seclen)."\n";
|
