From 682b0d286ed87f9b27557eaf4f74c122dcd30229 Mon Sep 17 00:00:00 2001
From: Leeland Heins <softwarejanitor@yahoo.com>
Date: Fri, 8 Mar 2019 11:03:25 -0600
Subject: [PATCH] More work on procreation

---
 ProDOS.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ProDOS.pm b/ProDOS.pm
index ae6143e..86150b0 100644
--- a/ProDOS.pm
+++ b/ProDOS.pm
@@ -670,7 +670,7 @@ sub parse_key_vol_dir_blk {
       push @files, { 'prv' => $prv_vol_dir_blk, 'nxt' => $nxt_vol_dir_blk, 'filename' => $fname, 'ftype' => $f_type, 'used' => $blocks_used, 'mdate' => $mdate, 'cdate' => $cdate, 'atype' => $aux_type, 'atype' => $atype, 'access' => $access, 'eof' => $endfile, 'keyptr' => $key_pointer, 'storage_type' => $storage_type, 'header_pointer' => $header_pointer, 'i' => $i };
     } else {
       if ($mode == 2) {
-        push @files, { 'storage_type' => 0, 'header_pointer' => 2, 'i' => $i };
+        push @files, { 'storage_type' => 0, 'header_pointer' => $key_vol_dir_blk, 'i' => $i };
       }
     }
   }
@@ -2393,6 +2393,9 @@ sub create_subdir {
     #}
     #print "'\n";
 
+    # FILL IN FILE_TYPE
+    $bytes[0x2b + ($i * 0x27) + 0x10] = 0x0f;
+
     # FILL IN KEY_POINTER
     $bytes[0x2b + ($i * 0x27) + 0x11] = $subdir_key_pointer & 0x00ff;  # LO byte
     $bytes[0x2b + ($i * 0x27) + 0x12] = ($subdir_key_pointer >> 8) & 0x00ff;  # HI byte