6502/as65
1
0
Fork 0
mirror of https://github.com/softwarejanitor/as65.git synced 2025-02-16 08:30:30 +00:00
Code Issues Projects Releases Wiki Activity

Fix for ASC length noted by Greg Hedger

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
as65.pl
View File

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