Installation d'UNIX System III sur PDP-11 via l'émulateur SimH

Prérequis pour installer UNIX System III

Processus d'installation d'UNIX System III

Depuis un terminal de votre système hôte

Installation des logiciels requis sous Debian :

sudo apt install perl wget vim simh

J'ai constaté que le paquet simh a été retiré de Debian 13. Si souhaitez récupérer et installer le paquet .deb faîtes ceci :

wget http://ftp.fr.debian.org/debian/pool/main/s/simh/simh_3.8.1-6.1_amd64.deb

puis :

sudo dpkg -i simh_3.8.1-6.1_amd64.deb

SimH n'a pas besoin de dépendances logicielles donc inutile de taper la commande sudo apt-get -f install.

Installation des logiciels requis sous FreeBSD :

sudo pkg install perl wget vim open-simh

Création des répertoires pour UNIX System III :

mkdir -p emulateur/simh/SysIII_PDP11

Se rendre dans le répertoire SysIII_PDP11 :

cd emulateur/simh/SysIII_PDP11

Télécharger les fichiers d'installation de UNIX System III pour PDP-11 :

wget -r -np http://squoze.net/UNIX/sysIII_pdp11/files/

Déplacer les fichiers d'installation dans le répertoire courant :

mv squoze.net/UNIX/sysIII_pdp11/files/boot squoze.net/UNIX/sysIII_pdp11/files/cpio.tape squoze.net/UNIX/sysIII_pdp11/files/mini-root squoze.net/UNIX/sysIII_pdp11/files/*.cpio .

Contenu du script perl mkdisttap.pl pour créer la bande d'installation :

mkdisttap.pl

#!/usr/local/bin/perl -w
use strict;
 
# 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", 512);
end_file();
add_file("mini-root", 5120);
end_file();
add_file("cpio.tape", 512);
end_file();
add_file("root.cpio", 5120);
end_file();
add_file("usr.cpio", 5120);
end_file();
add_file("src1.cpio", 5120);
end_file();
add_file("src2.cpio", 5120);
end_file();
add_file("man.cpio", 5120);
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);
}

Sous GNU/Linux il faut modifier le shebang (première ligne du fichier) #!/usr/local/bin/perl -w par #!/usr/bin/perl -w du fichier mkdisttap.pl.

Créer le script perl mkdisttap.pl :

vim mkdisttap.pl