glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

So, SimH stores things big-endian. Fixed mkfs7.

Browse Source
This commit is contained in:
Warren Toomey
2016-03-11 07:04:53 +10:00
parent 8d487fee5c
commit becb1f4996
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/mkfs7
+3 -3
View File
@@ -536,10 +536,10 @@ sub dump_image {
foreach my $offset ( 0 .. WORDSPERBLK-1 ) { foreach my $offset ( 0 .. WORDSPERBLK-1 ) {
my $word = $Block[$blocknum][$offset] || 0; my $word = $Block[$blocknum][$offset] || 0;
my $packedword = pack( "CCCC", my $packedword = pack( "CCCC",
( $word >> 24 ) & 0xff, $word & 0xff,
( $word >> 16 ) & 0xff,
( $word >> 8 ) & 0xff, ( $word >> 8 ) & 0xff,
$word & 0xff ); ( $word >> 16 ) & 0xff,
( $word >> 24 ) & 0xff);
print( $OUT $packedword ); print( $OUT $packedword );
} }
} }