Installing NetBSD 5.0.2 on the SIMH MicroVAX II

From Computer History Wiki
Revision as of 00:10, 18 November 2010 by Neozeed (talk | contribs) (New page: Tape file: <pre> #!/usr/local/bin/perl -w use strict; # Based on mkdisttap.pl # ftp://ftp.mrynet.com/pub/os/PUPS/PDP-11/Boot_Images/2.11_on_Simh/211bsd/mkdisttap.pl # # $Id: mkdisttap.pl...)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Tape file:

#!/usr/local/bin/perl -w
use strict;

# Based on mkdisttap.pl
# ftp://ftp.mrynet.com/pub/os/PUPS/PDP-11/Boot_Images/2.11_on_Simh/211bsd/mkdisttap.pl

#
# $Id: mkdisttap.pl,v 1.1 2006/09/16 23:33:46 kirk Exp kirk $
#

# Based on the example in the HOWTO using dd.  Does not work!
# add_file("cat mtboot mtboot boot |", 512);

# Based on the maketape.c program and the maketape.data data file.
add_file("boot.fs", 512);
end_file();
add_file("kern-GENERIC.tar", 10240);
end_file();
add_file("base.tar", 10240);
end_file();
add_file("etc.tar", 10240);
end_file();
add_file("games.tar", 10240);
end_file();
add_file("man.tar", 10240);
end_file();
add_file("misc.tar", 10240);
end_file();
add_file("tests.tar", 10240);
end_file();
add_file("text.tar", 10240);
end_file();
end_file();

sub end_file {
  print "\x00\x00\x00\x00";
}

sub add_file {
  my($filename, $blocksize) = @_;
  my($block, $bytes_read, $length);

  open(FILE, $filename) || die("Can't open $filename: $!");
  while($bytes_read = read(FILE, $block, $blocksize)) {
    if($bytes_read < $blocksize) {
      $block .= "\x00" x ($blocksize - $bytes_read);
      $bytes_read = $blocksize;
    }
    $length = pack("V", $bytes_read);
    print $length, $block, $length;
  }
  close(FILE);
}


ini file

set rq0 ra81
set rq1 ra81
set rq2 dis 
set rq3 dis
set rl dis
att rq0 ra81.disk0
att rq1 scratch.disk1
att tq0 502.tap
att xq 42323 23
boot cpu