7 my @code = map { chomp; $_ } <>;
11 say "$ip $code[$ip] ", join(', ', map { "$_=$regs{$_}" } sort keys %regs);
13 if (/cpy (-?\w+) (\w+)/) {
16 $val = $regs{$val} if $val =~ /[a-z]/;
18 } elsif (/inc (\w+)/) {
20 } elsif (/dec (\w+)/) {
22 } elsif (/jnz (-?\w+) (-?\d+)/) {
23 my ($reg, $val) = ($1, $2);
24 $reg = $regs{$reg} if $reg =~ /[a-z]/;
29 say "Unknown instrution: $_";