Fix for ASC length noted by Greg Hedger

This commit is contained in:
Leeland Heins 2019-01-07 12:31:22 -06:00 committed by GitHub
parent cf50fede5c
commit 6226af4eb1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 2 deletions

View File

@ -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;