6 my @code = map { chomp; [ split /\s+/ ] } <>;
11 my ($ins, $a1, $a2) = @{ $code[$pc] };
12 my $v1 = $a1 =~ /[a-z]/ ? $regs{$a1} : $a1
14 my $v2 = $a2 =~ /[a-z]/ ? $regs{$a2} : $a2
18 } elsif ($ins eq 'sub') {
20 } elsif ($ins eq 'mul') {
23 } elsif ($ins eq 'jnz') {
26 die "unknown insn $ins";