1 files changed, 17 insertions, 0 deletions

diff --git a/scripts/sec2off.pl b/scripts/sec2off.pl
new file mode 100755
index 0000000..6028cb0
--- /dev/null
+++ b/scripts/sec2off.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl --
+# Given an audio sector number (based on alloc info of a song),
+# this script converts that sector number to the byte offset on
+# the drive where that sector number should be allocated.
+# This is useful in combination with hd24hexview.
+# Blocks per cluster must be looked up in the superblock of the drive;
+# it varies depending on drive capacity.
+my $blockspercluster=5;
+my $sectorsperblock=0x480;
+my $firstaudiosec=0x1397f6;
+my $usagetablestart=0xa00;
+my $audiosec=hex($ARGV[0]);
+my $bitsperbyte=8;
+
+my $offs=($audiosec-$firstaudiosec)/0x480/$blockspercluster/$bitsperbyte+$usagetablestart;
+
+print sprintf("%x",$offs)."\n";