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 'set') {
20 } elsif ($ins eq 'add') {
22 } elsif ($ins eq 'mul') {
24 } elsif ($ins eq 'mod') {
26 } elsif ($ins eq 'rcv') {
32 } elsif ($ins eq 'jgz') {
33 $pc += $v2-1 if $v1 > 0;
35 die "unknown insn $ins";