mirror of
https://github.com/softwarejanitor/as65.git
synced 2024-12-27 11:30:04 +00:00
Fix for ASC length noted by Greg Hedger
This commit is contained in:
parent
cf50fede5c
commit
6226af4eb1
6
as65.pl
6
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;
|
||||
|
Loading…
Reference in New Issue
Block a user