Apple-2-Tools
/
DOS33-perl
mirror of https://github.com/softwarejanitor/DOS33.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Bug fixes

This commit is contained in:
Leeland Heins 2019-01-18 15:36:36 -06:00 committed by GitHub
parent 0fe1cb996a
commit fdb86a9e87
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
DOS33.pm
View File

@ -902,6 +902,7 @@ sub write_file {
$done = 1;
}
}
print sprintf("sectors_used=%04x\n", $sectors_used);
# Number of tslists is number of sectors used / 121.
my $num_tslists = ceil($sectors_used / 121);
@ -995,8 +996,11 @@ sub write_file {
$bytes[$fname_start + $i] = 0xa0;
}
my $file_secs_lo = $sectors_used & 0xff00;
print sprintf("sectors_used=%04x\n", $sectors_used);
my $file_secs_lo = $sectors_used & 0x00ff;
print sprintf("file_secs_lo=%02x\n", $file_secs_lo);
my $file_secs_hi = ($sectors_used & 0xff00) >> 8;
print sprintf("file_secs_hi=%02x\n", $file_secs_hi);
# Set file length in sectors.
my $file_length_secs = ceil($file_length / $sec_size);