1.3
I began looking at MIX
Feb 1
In Jim's office: we installed a perl MIX emulator,
Hardware-Simulator-MIX-0.5 from CPAN.
Feb 6
I got the perl emulator working on my computer. My setup is:
$ cd ~/dev/perl
$ ls -l mix*
-rw-r--r-- 1 olleicua staff 25465 Feb 6 10:25 mixasm.pl
-rwxr-xr-x 1 olleicua staff 598 Feb 6 10:39 mixrun.pl
-rw-r--r--@ 1 olleicua staff 14539 Feb 6 10:25 mixsim.pl
$ cat mixrun.pl
#!/usr/bin/env perl
# take a mixal file as input, and run!
use File::Basename;
#die "Invalid argument" if ($#ARGV != 1);
my $srcfile = shift @ARGV;
my ($base, $path, $type) = fileparse($srcfile, qr{\..*});
my @dev = qw(tape0 tape1 tape2 tape3 tape4 tape5 tape6 tape7
disk0 disk1 disk2 disk3 disk4 disk5 disk6 disk7);
my $devstr = "";
foreach (@dev)
{
$devstr .= "--$_=$_ " if -f;
}
$perldir = "/Users/olleicua/dev/perl" ;
if (system("perl $perldir/mixasm.pl $srcfile") == 0)
{
system("perl $perldir/mixsim.pl $devstr --batch $base.crd");
}
And in my .zshrc file:
...
alias mix="perl /Users/olleicua/dev/perl/mixrun.pl"
...
