| line |
true |
false |
branch |
|
35
|
0 |
0 |
if $@ |
|
38
|
0 |
0 |
unless -d $path |
|
39
|
0 |
0 |
unless open FOO_OBJ, "> $obj" |
|
47
|
0 |
1 |
unless open FOO_OBJ, "< $obj" |
|
51
|
0 |
1 |
if $@ |
|
83
|
0 |
0 |
if (ref $data eq 'HASH') { } |
|
84
|
0 |
0 |
if ${$data;}{'input'} |
|
108
|
0 |
0 |
if $line =~ /^\s*/ |
|
109
|
0 |
0 |
if $line =~ /\s*$/ |
|
112
|
0 |
0 |
if ($line =~ /^\S+/) |
|
115
|
0 |
0 |
if ($line =~ /^REP\s*(\d+)\s*/) |
|
134
|
0 |
0 |
if ($$mem[$pc] =~ /^MOV\s*R(\d+)\s*,\s*\#?(\d+)$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MOV\s*R(\d+)\s*,\s*R(\d+)$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MOV\s*R\[R(\d+)\]\s*,\s*R(\d+)$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MOV\s*R(\d+)\s*,\s*R\[R(\d+)\]$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MOV\s*R\[R(\d+)\]\s*,\s*\"(.*?)\"$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MOV\s*R(\d+)\s*,\s*PC$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MOV\s*TTY\s*,\s*R(\d+)$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MOV\s*TTY\s*,\s*R\[R(\d+)\]$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MOV\s*R(\d+)\s*,\s*TTY$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MOV\s*R\[R(\d+)\]\s*,\s*TTY$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^SUB\s*R(\d+)\s*,\s*\#?(\d+)$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^SUB\s*R(\d+)\s*,\s*R(\d+)$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MUL\s*R(\d+)\s*,\s*\#?(\d+)$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^MUL\s*R(\d+)\s*,\s*R(\d+)$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^NOT\s*R(\d+)$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^COR\s*([-+]\d+)\s*,\s*([-+]\d+)\s*,\s*R(\d+)\s*$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^COR\s*([-+]\d+)\s*,\s*R(\d+)\s*,\s*R(\d+)\s*$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^BLA\s*([-+]\d+)\s*,\s*(\w+)\s*,\s*R(\d+)\s*$/) { } |
|
|
0 |
0 |
elsif ($$mem[$pc] =~ /^NOP$/) { } |
|
152
|
0 |
0 |
if $echo |
|
154
|
0 |
0 |
if $output_callback |
|
156
|
0 |
0 |
if $echo |
|
158
|
0 |
0 |
if $output_callback |
|
160
|
0 |
0 |
$input_callback ? : |
|
161
|
0 |
0 |
if ($$reg[$1]) { } |
|
167
|
0 |
0 |
$input_callback ? : |
|
168
|
0 |
0 |
if ($$reg[$$reg[$1]]) { } |
|
182
|
0 |
0 |
if ($$reg[$1] != 0) { } |
|
226
|
0 |
0 |
unless $cont |
|
229
|
0 |
0 |
if $pc > $#{$mem;} |