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

More work on writing files

This commit is contained in:
Leeland Heins 2019-03-07 10:05:16 -06:00 committed by GitHub
parent 6a93a08da3
commit be5de48f8f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ProDOS.pm
View File

@ -1829,10 +1829,9 @@ sub write_file {
$bytes[0x2b + ($i * 0x27) + 0x14] = (($blocks_used & 0xff00) >> 8);
# Fill in EOF
$bytes[0x2b + ($i * 0x27) + 0x15] = 0x00;
$bytes[0x2b + ($i * 0x27) + 0x16] = 0x00;
$bytes[0x2b + ($i * 0x27) + 0x17] = 0x00;
##FIXME
$bytes[0x2b + ($i * 0x27) + 0x15] = $fsize & 0x0000ff;
$bytes[0x2b + ($i * 0x27) + 0x16] = ($fsize & 0x00ff00) >> 8;
$bytes[0x2b + ($i * 0x27) + 0x17] = ($fsize & 0xff0000) >> 16;
# Fill in CREATION
$bytes[0x2b + ($i * 0x27) + 0x18] = 0x00;
@ -1841,13 +1840,13 @@ sub write_file {
$bytes[0x2b + ($i * 0x27) + 0x1b] = 0x00;
##FIXME
# Fill in VERSION
# Fill in VERSION -- default to ProDOS 1.0
$bytes[0x2b + ($i * 0x27) + 0x1c] = 0x00;
# Fill in MIN_VERSION
# Fill in MIN_VERSION -- default to ProDOS 1.0
$bytes[0x2b + ($i * 0x27) + 0x1d] = 0x00;
# Fill in ACCESS
# Fill in ACCESS -- default to unlocked.
$bytes[0x2b + ($i * 0x27) + 0x1e] = 0xc3;
# Fill in LO byte of AUX_TYPE