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 procreation

This commit is contained in:
Leeland Heins 2019-03-08 08:13:52 -06:00 committed by GitHub
parent 845e0ca8ee
commit 5a7db6cf61
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 42 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
ProDOS.pm
View File

@ -2353,7 +2353,7 @@ sub create_subdir {
# Fill in the subdirectory block.
##FIXME
# Fill in STORAGE_TYPE/NAME_LENGTH
$subdirbytes[0x04] = $file_storage_type;
$subdirbytes[0x04] = 0x0e | length($subdirname);
# Fill in SUBDIR_NAME
$j = 0;
for (my $i = 0x05; $i <= 0x13; $i++) {
@ -2363,6 +2363,47 @@ sub create_subdir {
$subdirbytes[$i] = 0x00;
}
}
$subdirbytes[0x14] = 0x75; # Must contain this
$subdirbytes[0x15] = 0x00; # Reserved
$subdirbytes[0x15] = 0x00; # Reserved
$subdirbytes[0x17] = 0x00; # Reserved
$subdirbytes[0x18] = 0x00; # Reserved
$subdirbytes[0x19] = 0x00; # Reserved
$subdirbytes[0x1a] = 0x00; # Reserved
$subdirbytes[0x1b] = 0x00; # Reserved
# FILL IN CREATION
$subdirbytes[0x1c] = 0x00;
$subdirbytes[0x1d] = 0x00;
$subdirbytes[0x1e] = 0x00;
$subdirbytes[0x1f] = 0x00;
##FIXME
# FILL IN VERSION
$subdirbytes[0x20] = 0x00; # Default to ProDOS 1.0
# FILL IN MIN_VERSION
$subdirbytes[0x21] = 0x00; # Default to ProDOS 1.0
# FILL IN ACCCESS
$subdirbytes[0x22] = 0xc4; # Default to unlocked
# FILL IN ENTRY_LENGTH
$subdirbytes[0x23] = 0x27; # Default
# FILL IN ENTRIES_PER_BLOCK
$subdirbytes[0x24] = 0x0d; # Default
# FILL IN FILE_COUNT
$subdirbytes[0x25] = 0x00; # Default to empty
$subdirbytes[0x26] = 0x00; # Default to empty
# FILL IN PARENT_POINTER
$subdirbytes[0x27] = 0x00;
$subdirbytes[0x28] = 0x00;
##FIXME
# FILL IN PARENT_ENTRY
$subdirbytes[0x29] = 0x00;
##FIXME
# FILL IN PARENT_ENTRY_LENGTH
$subdirbytes[0x2a] = 0x27;
# Pad out the rest of the block
for (my $i = 0x2b; $i < 512; $i++) {
$subdirbytes[$i] = 0x00;
}
my $subdirbuf = pack "C*", @subdirbytes;