1 files changed, 98 insertions, 0 deletions

diff --git a/scripts/genbackupscript.pl b/scripts/genbackupscript.pl
new file mode 100755
index 0000000..9546c56
--- /dev/null
+++ b/scripts/genbackupscript.pl
@@ -0,0 +1,98 @@
+#!/usr/bin/perl --
+
+sub dec2hex {
+    # parameter passed to
+    # the subfunction
+    my $decnum = $_[0];
+        if ($decnum==0) {
+        return "0";
+        }
+    # the final hex number
+    my $hexnum;
+    my $tempval;
+    while ($decnum != 0) {
+    # get the remainder (modulus function)
+    # by dividing by 16
+    $tempval = $decnum % 16;
+    # convert to the appropriate letter
+    # if the value is greater than 9
+    if ($tempval > 9) {
+    $tempval = chr($tempval + 55);
+    }
+    # 'concatenate' the number to 
+    # what we have so far in what will
+    # be the final variable
+    $hexnum = $tempval . $hexnum ;
+    # new actually divide by 16, and 
+    # keep the integer value of the 
+    # answer
+    $decnum = int($decnum / 16); 
+    # if we cant divide by 16, this is the
+    # last step
+    if ($decnum < 16) {
+    # convert to letters again..
+    if ($decnum > 9) {
+    $decnum = chr($decnum + 55);
+    }
+    
+    # add this onto the final answer.. 
+    # reset decnum variable to zero so loop
+    # will exit
+    $hexnum = $decnum . $hexnum; 
+    $decnum = 0 
+    }
+    }
+    return $hexnum;
+} # end sub
+
+sub writebackupblock ($$$$) {
+my $i;
+        my $sector=shift;
+        my $blocksize=shift;
+        my $currentcount=shift;
+        my $remark=shift;
+        print "-0 ".$remark." ".$currentcount."\n";
+        for ($i=1;$i<=$blocksize;$i++) {
+                print "d".dec2hex($sector+$i-1)."\n";
+                print "bb\nbe\n";
+                print "d-".dec2hex($sector+1+$blocksize-$i)."\n";
+                print "p\nws\n";
+        }
+}
+$sector=0;
+$blocksize=1;
+$count=1;
+writebackupblock($sector,$blocksize,$count,"Backup superblock");
+
+$sector+=$blocksize*$count;
+$blocksize=1;
+$count=1;
+writebackupblock ($sector,$blocksize,$count,"Backup Drive info");
+
+$sector+=$blocksize*$count;
+$blocksize=3;
+$count=1;
+writebackupblock ($sector,$blocksize,$count,"Backup undo (?) usage");
+
+$sector+=$blocksize*$count;
+$blocksize=15;
+$count=1;
+writebackupblock ($sector,$blocksize,$count,"Backup drive usage table");
+
+$sector+=$blocksize*$count;
+$blocksize=1;
+$count=99;
+for ($i=1;$i<=$count;$i++) {
+        writebackupblock ($sector+$i-1,$blocksize,$i,"Backup project ");
+}
+
+$sector+=$blocksize*$count;
+$count=99;
+for ($i=1;$i<=$count;$i++) {
+        $blocksize=2;
+        writebackupblock ($sector+(7*($i-1)),$blocksize,$i,"Backup song ");
+        $blocksize=5;
+        writebackupblock ($sector+(7*($i-1))+2,$blocksize,$i,"Backup song alloc info ");
+}
+print "q\n";
+