diff --git a/ProDOS.pm b/ProDOS.pm index 7777834..ff6f3a1 100644 --- a/ProDOS.pm +++ b/ProDOS.pm @@ -1091,9 +1091,9 @@ sub get_vol_bit_map { foreach my $blk (@blks) { #print sprintf("%02x ", $blk); push @blocks, $blk; - last if $trk++ > $num_tracks; + last if $trk++ >= $num_tracks; } - print "\n"; + #print "\n"; } }