1 files changed, 23 insertions, 0 deletions

diff --git a/scripts/sl2o.pl b/scripts/sl2o.pl
new file mode 100755
index 0000000..6047816
--- /dev/null
+++ b/scripts/sl2o.pl
@@ -0,0 +1,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";