From 6226af4eb1c967537197799e896676971d365e7c Mon Sep 17 00:00:00 2001
From: Leeland Heins <softwarejanitor@yahoo.com>
Date: Mon, 7 Jan 2019 12:31:22 -0600
Subject: [PATCH] Fix for ASC length noted by Greg Hedger

---
 as65.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/as65.pl b/as65.pl
index ddd5f6a..87f5c43 100644
--- a/as65.pl
+++ b/as65.pl
@@ -2746,8 +2746,9 @@ print ">>>> IN CONDITIONAL\n";
         $str = $1;
         $trl = $2;
       }
-      $addr += length($str);
+      $addr += (length($str) - 1);
       $addr++ if defined $trl;
+##FIXME -- need to test this
     } elsif ($ucmnemonic =~ /HBY/) {
       if ($label ne '') {
         my $symbol = $label;
@@ -3124,8 +3125,9 @@ print ">>>>  DO  $operand\n";
         $str = $1;
         $trl = $2;
       }
-      $addr += length($str);
+      $addr += (length($str) - 1);
       $addr++ if defined $trl;
+##FIXME -- need to test this
     } elsif ($ucmnemonic =~ /HBY/) {
       if ($label ne '') {
         my $symbol = $label;