| line |
true |
false |
branch |
|
121
|
6 |
1 |
unless exists $$self{'max_byte'} |
|
123
|
7 |
0 |
unless exists $$self{'timeunit'} |
|
188
|
0 |
83 |
if ($$self{'status'} == 3) { } |
|
|
0 |
83 |
elsif ($$self{'status'} != 0) { } |
|
199
|
0 |
83 |
if ($loc < 0 or $loc > 3999) |
|
217
|
83 |
0 |
$word[0] eq '+' ? : |
|
219
|
0 |
83 |
if ($i >= 1 and $i <= 6) |
|
223
|
0 |
0 |
if @{$ireg;}[0] eq '-' |
|
231
|
83 |
0 |
if ($c >= 0 or $c <= 63) { } |
|
234
|
0 |
83 |
if &{$opfunc;}($self, $c, $f, $r, $l, $i, $a, $m) == 0 |
|
276
|
0 |
0 |
if ($f == 0) { } |
|
|
0 |
0 |
elsif ($f == 1) { } |
|
|
0 |
0 |
elsif ($f == 2) { } |
|
|
0 |
0 |
elsif ($f == 3) { } |
|
278
|
0 |
0 |
if (int_to_word($v + $m, $reg, $$self{'max_byte'})) { } |
|
285
|
0 |
0 |
if (int_to_word($v - $m, $reg, $$self{'max_byte'})) { } |
|
314
|
0 |
2 |
if $f == 6 |
|
334
|
0 |
0 |
if $devnum < 0 or $devnum > 19 |
|
340
|
0 |
0 |
if ($$self{'time'} - $laststarted < $$devstat{'delay'}) |
|
352
|
0 |
0 |
if ($f == 16) { } |
|
|
0 |
0 |
elsif ($f >= 0 and $f < 8) { } |
|
|
0 |
0 |
elsif ($f >= 8 and $f < 16) { } |
|
|
0 |
0 |
elsif ($f == 19) { } |
|
371
|
0 |
0 |
if ($f == 18) { } |
|
|
0 |
0 |
elsif (0 <= $f and $f <= 7) { } |
|
|
0 |
0 |
elsif (8 <= $f and $f <= 15) { } |
|
|
0 |
0 |
elsif ($f == 19) { } |
|
395
|
0 |
0 |
if $f > 9 |
|
401
|
0 |
0 |
if ($f == 0) { } |
|
|
0 |
0 |
elsif ($f == 1) { } |
|
|
0 |
0 |
elsif ($f == 2) { } |
|
|
0 |
0 |
elsif ($f == 3) { } |
|
413
|
0 |
0 |
if ($ok) |
|
414
|
0 |
0 |
unless ($savj) |
|
425
|
0 |
0 |
if $f > 5 |
|
428
|
0 |
0 |
if ($cond[$f]) |
|
493
|
1 |
0 |
if ($f == 2) { } |
|
|
0 |
0 |
elsif ($f == 0) { } |
|
|
0 |
0 |
elsif ($f == 1) { } |
|
512
|
0 |
0 |
if ($val >= $M) { } |
|
555
|
0 |
3 |
if $f == 6 |
|
574
|
0 |
0 |
if ($f == 17) { } |
|
|
0 |
0 |
elsif ($f == 18) { } |
|
|
0 |
0 |
elsif (0 <= $f and $f <= 7) { } |
|
|
0 |
0 |
elsif (8 <= $f and $f <= 15) { } |
|
|
0 |
0 |
elsif ($f == 19) { } |
|
595
|
0 |
1 |
if $m < 0 |
|
601
|
0 |
1 |
if ($f == 0) { } |
|
|
0 |
1 |
elsif ($f == 1) { } |
|
|
0 |
1 |
elsif ($f == 2) { } |
|
|
0 |
1 |
elsif ($f == 3) { } |
|
|
0 |
1 |
elsif ($f == 4) { } |
|
|
1 |
0 |
elsif ($f == 5) { } |
|
700
|
0 |
1 |
unless (exists $$self{$reg}) |
|
707
|
1 |
0 |
if (defined $l) |
|
709
|
0 |
1 |
unless defined $r |
|
711
|
1 |
0 |
if ($l == 0) { } |
|
723
|
5 |
0 |
if ($r >= $l) { } |
|
734
|
0 |
1 |
if (wantarray) { } |
|
749
|
0 |
58 |
unless (exists $$self{$reg}) |
|
757
|
58 |
0 |
if (@{$wref;}[0] eq '+' or @{$wref;}[0] eq '-') |
|
762
|
22 |
36 |
$reg =~ /r(I|J)/ ? : |
|
790
|
0 |
81 |
if ($loc < 0 or $loc > 3999) |
|
798
|
54 |
27 |
if (defined $l) |
|
800
|
0 |
54 |
unless defined $r |
|
802
|
31 |
23 |
if ($l == 0) { } |
|
814
|
165 |
105 |
if ($r >= $l) { } |
|
825
|
80 |
1 |
if (wantarray) { } |
|
843
|
0 |
143 |
if ($loc < 0 or $loc > 3999) |
|
851
|
116 |
27 |
if (not defined $l) { } |
|
|
0 |
27 |
elsif (not defined $r) { } |
|
860
|
651 |
126 |
if $i > 0 |
|
861
|
126 |
651 |
if ($i == 0) |
|
862
|
126 |
0 |
if (@word > 0 and $word[0] eq '+' || $word[0] eq '-') { } |
|
882
|
1 |
4 |
if (not int_to_word(word_to_int($w, $m) + word_to_int($a, $m), $a, $m)) { } |
|
893
|
1 |
0 |
if ($t[0] eq '+') { } |
|
911
|
2 |
1 |
$v >= 0 ? : |
|
912
|
1 |
2 |
if $v < 0 |
|
931
|
0 |
2 |
if ($v == 0) |
|
942
|
2 |
0 |
if ($sa eq @{$w;}[0]) { } |
|
950
|
2 |
0 |
if (int_to_word(int $V / $v, $a, $m)) { } |
|
976
|
0 |
0 |
if $status == 0 |
|
977
|
0 |
0 |
if $status == 1 |
|
978
|
0 |
0 |
if $status == 2 |
|
979
|
0 |
0 |
if $status == 3 |
|
992
|
0 |
0 |
if $u > 19 or $u < 0 |
|
994
|
0 |
0 |
if (defined $buf) { } |
|
1045
|
0 |
0 |
if (exists $$self{'dev'}{$u}) { } |
|
1062
|
0 |
0 |
if ($$tape{'pos'} < $n) { } |
|
1115
|
0 |
0 |
unless (exists $$self{'dev'}{16}) |
|
1126
|
0 |
0 |
if ($pos >= @{$buf;}) |
|
1136
|
0 |
0 |
if (length $crd != 80) |
|
1142
|
0 |
0 |
if ($c == -1) { } |
|
1148
|
0 |
0 |
if (@w == 6) |
|
1168
|
0 |
0 |
unless (exists $$self{'dev'}{17}) |
|
1180
|
0 |
0 |
if (defined $ch) { } |
|
1200
|
0 |
0 |
unless (defined $printer) |
|
1207
|
0 |
0 |
unless defined $page |
|
1215
|
0 |
0 |
if (defined $ch) { } |
|
1236
|
0 |
0 |
unless (defined $printer) |
|
1242
|
0 |
0 |
if ($m == 0) { } |
|
1261
|
0 |
0 |
unless (defined $typewriter) |
|
1267
|
0 |
0 |
unless (exists $$typewriter{'line'}) |
|
1276
|
0 |
0 |
if (length $line != 70) |
|
1282
|
0 |
0 |
if ($c == -1) { } |
|
1288
|
0 |
0 |
if (@w == 6) |
|
1305
|
0 |
0 |
if $$self{'status'} == 0 |
|
1321
|
0 |
0 |
if ($sign eq '+' or $sign eq '-') { } |
|
1337
|
8 |
13 |
if ($tmp[0] eq '-') { } |
|
|
13 |
0 |
elsif ($tmp[0] eq '+') { } |
|
1352
|
0 |
18 |
unless defined $m |
|
1357
|
15 |
3 |
if (@{$wref;}[0] eq '+') { } |
|
1369
|
0 |
6 |
unless defined $m |
|
1384
|
0 |
15 |
unless defined $m |
|
1386
|
0 |
15 |
if ($val < 0) { } |
|
1404
|
0 |
0 |
unless $debug_mode |
|
1417
|
2 |
8 |
if $_[0] < 0 or $_[0] >= length $mix_charset |
|
1426
|
1 |
4 |
if $_[0] eq '^' |