mirror of
https://github.com/softwarejanitor/ProDOS.git
synced 2024-06-03 05:29:29 +00:00
Bug fixes
This commit is contained in:
parent
5a7db6cf61
commit
bf0a2d28d8
|
@ -1871,6 +1871,9 @@ sub write_file {
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# Fix FILE_COUNT in directory.
|
||||||
|
##FIXME
|
||||||
|
|
||||||
$dirbuf = pack "C*", @bytes;
|
$dirbuf = pack "C*", @bytes;
|
||||||
|
|
||||||
dump_blk($dirbuf) if $debug;
|
dump_blk($dirbuf) if $debug;
|
||||||
|
@ -2060,6 +2063,9 @@ sub delete_file {
|
||||||
$bytes[0x2b + ($i * 0x27)] = 0x00;
|
$bytes[0x2b + ($i * 0x27)] = 0x00;
|
||||||
printf("file_storage_type=\$%02x\n", $file_storage_type);
|
printf("file_storage_type=\$%02x\n", $file_storage_type);
|
||||||
|
|
||||||
|
# Fix file directory count.
|
||||||
|
##FIXME
|
||||||
|
|
||||||
# Now free all the blocks
|
# Now free all the blocks
|
||||||
if ($file_storage_type == 0x10) {
|
if ($file_storage_type == 0x10) {
|
||||||
# Seedling file.
|
# Seedling file.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user