github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-13 15:27:39 +00:00
Code Issues Releases Wiki Activity

as7: "rim" now means "hardware read-in" (contiguous memory with no overhead)

Browse Source
This commit is contained in:
Phil Budne 2016-03-25 00:39:50 -04:00
parent bb683cd754
commit efb135bc10
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tools/as7
View File

@ -231,13 +231,12 @@ elsif ($format eq 'ptr') { # dump absolute memory in PTR binary
}
}
elsif ($format eq 'rim') { # PDP-7 (secondary) Read In Mode
for my $loc ( 0 .. $#Mem ) {
if (defined($Mem[$loc])) {
punch(0040000 | $loc ); # DAC addr
punch($Mem[$loc] || 0);
}
my $base = $Var{'..'};
for my $loc ( $base .. $#Mem ) {
punch($Mem[$loc] || 0);
}
punch(0740040 ); # HLT
# final word: command; has 0100 lit on last frame
punch(0600000 | $base, 0100 );
}
else {
die("unknown format $format");
@ -551,11 +550,12 @@ sub find_relative_label {
sub punch { # output a word in paper tape binary format
my $word = shift;
my $final = shift || 0;
printf $OUT "%c%c%c",
(($word >> 12) & 077) | 0200,
(($word >> 6) & 077) | 0200,
($word & 077) | 0200;
($word & 077) | 0200 | $final;
}
sub dump_labels { # for 'list' and --namelist