From 8d487fee5c28bb42c6e3c601446cc57edaed6e90 Mon Sep 17 00:00:00 2001
From: Warren Toomey <wkt@tuhs.org>
Date: Fri, 11 Mar 2016 06:57:46 +1000
Subject: [PATCH] Off by 1 errors in mkfs7, now fixed.

---
 tools/mkfs7 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tools/mkfs7 b/tools/mkfs7
index c120dca..09a29f0 100755
--- a/tools/mkfs7
+++ b/tools/mkfs7
@@ -509,14 +509,14 @@ sub dump_image {
     if ( $format eq "ptr" ) {
         # Dump 8000 empty blocks first
         foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
-            foreach my $offset ( 0 .. WORDSPERBLK ) {
+            foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
                 print( $OUT word2three( 0 ) );
             }
         }
 
 	# Now the real blocks
         foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
-            foreach my $offset ( 0 .. WORDSPERBLK ) {
+            foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
                 print( $OUT word2three( $Block[$blocknum][$offset] || 0 ) );
             }
         }
@@ -526,14 +526,14 @@ sub dump_image {
     if ( $format eq "simh" ) {
         # Dump 8000 empty blocks first
         foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
-            foreach my $offset ( 0 .. WORDSPERBLK ) {
+            foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
                 print( $OUT pack( "CCCC", 0,0,0,0));
             }
         }
 
 	# Now the real blocks
         foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
-            foreach my $offset ( 0 .. WORDSPERBLK ) {
+            foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
                 my $word = $Block[$blocknum][$offset] || 0;
                 my $packedword = pack( "CCCC",
                     ( $word >> 24 ) & 0xff,