From fdb86a9e873213097a52171822be109ffa124b13 Mon Sep 17 00:00:00 2001
From: Leeland Heins <softwarejanitor@yahoo.com>
Date: Fri, 18 Jan 2019 15:36:36 -0600
Subject: [PATCH] Bug fixes

---
 DOS33.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/DOS33.pm b/DOS33.pm
index fdbabf1..eb8289c 100644
--- a/DOS33.pm
+++ b/DOS33.pm
@@ -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);