From becb1f4996ebc95e5567a991253cace9e8ab9390 Mon Sep 17 00:00:00 2001
From: Warren Toomey <wkt@tuhs.org>
Date: Fri, 11 Mar 2016 07:04:53 +1000
Subject: [PATCH] So, SimH stores things big-endian. Fixed mkfs7.

---
 tools/mkfs7 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/mkfs7 b/tools/mkfs7
index 09a29f0..96b6ae1 100755
--- a/tools/mkfs7
+++ b/tools/mkfs7
@@ -536,10 +536,10 @@ sub dump_image {
             foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
                 my $word = $Block[$blocknum][$offset] || 0;
                 my $packedword = pack( "CCCC",
-                    ( $word >> 24 ) & 0xff,
-                    ( $word >> 16 ) & 0xff,
+                    $word & 0xff,
                     ( $word >> 8 ) & 0xff,
-                    $word & 0xff );
+                    ( $word >> 16 ) & 0xff,
+                    ( $word >> 24 ) & 0xff);
                 print( $OUT $packedword );
             }
         }