github.com/livingcomputermuseum.pdp7-unix
1
0
Fork 0
mirror of https://github.com/livingcomputermuseum/pdp7-unix.git synced 2026-04-26 12:17:26 +00:00
Code Issues Releases Wiki Activity

Added some code to print out ASCIi characters in each word.

Browse Source
This commit is contained in:
Warren Toomey
2016-03-24 17:50:47 +10:00
parent b234e2ad81
commit 9f30359c56
1 changed files with 34 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
tools/sdump
View File

@@ -12,40 +12,53 @@ use Fcntl qw(:flock SEEK_SET);
### return -1 on EOF
sub read_word {
my $F = shift;
# Convert four bytes into one 18-bit word
return -1 if ( read( $F, my $four, 4 ) != 4 ); # Not enough bytes read
return -1 if ( read( $F, my $four, 4 ) != 4 ); # Not enough bytes read
my ( $b1, $b2, $b3, $b4 ) = unpack( "CCCC", $four );
return (($b1 & 0xff) |
(($b2 & 0xff) << 8 ) |
(($b3 & 0xff) << 16) |
(($b4 & 0xff) << 24));
return (
( $b1 & 0xff ) | ( ( $b2 & 0xff ) << 8 ) | ( ( $b3 & 0xff ) << 16 ) |
( ( $b4 & 0xff ) << 24 ) );
}
### Main program
die("Usage: $0 imagefile\n") if (@ARGV!=1);
die("Usage: $0 imagefile\n") if ( @ARGV != 1 );
open(my $IN, "<", $ARGV[0]) || die("Couldn't open $ARGV[0]: $!\n");
open( my $IN, "<", $ARGV[0] ) || die("Couldn't open $ARGV[0]: $!\n");
use constant NUMBLOCKS => 8000; # Number of blocks on a surface
use constant WORDSPERBLK => 64; # 64 words per block
use constant BYTESPERWORD => 4; # We encode each word into 4 bytes
use constant NUMBLOCKS => 8000; # Number of blocks on a surface
use constant WORDSPERBLK => 64; # 64 words per block
use constant BYTESPERWORD => 4; # We encode each word into 4 bytes
# Skip the first surface
seek($IN, NUMBLOCKS*WORDSPERBLK*BYTESPERWORD, SEEK_SET) ||
die("Cannot seek: $!\n");
seek( $IN, NUMBLOCKS * WORDSPERBLK * BYTESPERWORD, SEEK_SET )
|| die("Cannot seek: $!\n");
foreach my $blocknum ( 0 .. NUMBLOCKS*2 - 1 ) {
printf("Block %d (%06o)\n", $blocknum, $blocknum );
foreach my $blocknum ( 0 .. NUMBLOCKS * 2 - 1 ) {
printf( "Block %d (%06o)\n", $blocknum, $blocknum );
foreach my $line ( 0 .. 7 ) {
# Print out the words in octal
# Print out the words in octal
my @buf;
foreach my $offset ( 0 .. 7 ) {
# Get a word
my $word= read_word($IN);
exit(0) if ($word==-1);
printf("%06o ", $word);
}
print("\n");
# Get a word
my $word = read_word($IN);
exit(0) if ( $word == -1 );
$buf[$offset] = $word;
}
foreach my $offset ( 0 .. 7 ) {
printf( "%06o ", $buf[$offset] );
}
print(" ");
foreach my $offset ( 0 .. 7 ) {
my $c1 = ( $buf[$offset] >> 9 ) & 0777;
$c1 = ( ( $c1 >= 32 ) && ( $c1 <= 126 ) ) ? chr($c1) : ' ';
my $c2 = $buf[$offset] & 0777;
$c2 = ( ( $c2 >= 32 ) && ( $c2 <= 126 ) ) ? chr($c2) : ' ';
print("$c1$c2");
}
print("\n");
}
print("\n");
}