6502/as65
1
0
Fork 0
mirror of https://github.com/softwarejanitor/as65.git synced 2024-06-30 13:29:36 +00:00
Code Issues Projects Releases Wiki Activity

Bug fixes

Browse Source
This commit is contained in:
Leeland Heins 2018-12-17 22:19:22 -06:00 committed by GitHub
parent 89ea245915
commit 9900d41517
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
as65.pl
View File

@ -1101,10 +1101,7 @@ sub generate_Zero_Page_X {
my ($addr, $operand, $opcode, $ofh, $lineno) = @_; my ($addr, $operand, $opcode, $ofh, $lineno) = @_;
# Parse hex # Parse hex
if ($operand =~ /^\$([0-9a-fA-F][0-9a-fA-F]),[Xx]$/) { if ($operand =~ /^\$([0-9a-fA-F][0-9a-fA-F]),[Xx]$/) {
my $opval = $1; my $opval = hex(lc($1));
if ($operand =~ /^\$/) {
$opval = hex(lc($1));
}
generate_16($ofh, $addr, $opcode, $opval); generate_16($ofh, $addr, $opcode, $opval);
# Parse decimal # Parse decimal
} elsif ($operand =~ /^(\d+),[Xx]$/) { } elsif ($operand =~ /^(\d+),[Xx]$/) {
@ -1172,10 +1169,7 @@ sub generate_Zero_Page_Y {
my ($addr, $operand, $opcode, $ofh, $lineno) = @_; my ($addr, $operand, $opcode, $ofh, $lineno) = @_;
# Parse hex # Parse hex
if ($operand =~ /^\$(\[0-9a-fA-F][0-9a-fA-F]),[Yy]/) { if ($operand =~ /^\$(\[0-9a-fA-F][0-9a-fA-F]),[Yy]/) {
my $opval = $1; my $opval = hex(lc($1));
if ($operand =~ /^\$/) {
$opval = hex(lc($1));
}
generate_16($ofh, $addr, $opcode, $opval); generate_16($ofh, $addr, $opcode, $opval);
# Parse decimal # Parse decimal
} elsif ($operand =~ /^(\d+),[Yy]/) { } elsif ($operand =~ /^(\d+),[Yy]/) {
@ -1560,10 +1554,9 @@ sub is_Indirect_Zero_Page_X {
sub generate_Indirect_Zero_Page_X { sub generate_Indirect_Zero_Page_X {
my ($addr, $operand, $opcode, $ofh, $lineno) = @_; my ($addr, $operand, $opcode, $ofh, $lineno) = @_;
my $opval = '';
# Parse hex # Parse hex
if ($operand =~ /^\(\$([0-9a-fA-f][0-9a-fA-f])\),[Xx]/) { if ($operand =~ /^\(\$([0-9a-fA-f][0-9a-fA-f])\),[Xx]/) {
$opval = hex(lc($1)); my $opval = hex(lc($1));
generate_16($ofh, $addr, $opcode, $opval); generate_16($ofh, $addr, $opcode, $opval);
# Parse decimal # Parse decimal
} elsif ($operand =~ /^\((\d+)\),[Xx]/) { } elsif ($operand =~ /^\((\d+)\),[Xx]/) {
@ -1594,7 +1587,7 @@ sub generate_Indirect_Zero_Page_X {
# STA (Zpg),Y 91 # STA (Zpg),Y 91
sub is_Indirect_Zero_Page_Y { sub is_Indirect_Zero_Page_Y {
my ($operand, $lineno) = @_; my ($operand, $lineno) = @_;
if ($operand =~ /^\([0-9a-fA-F][0-9a-fA-F]\),[Yy]/) { if ($operand =~ /^\(\$([0-9a-fA-F][0-9a-fA-F])\),[Yy]/) {
return 2; return 2;
} elsif ($operand =~ /^\((\d+)\),[Yy]/) { } elsif ($operand =~ /^\((\d+)\),[Yy]/) {
return 0 if $1 > 255; return 0 if $1 > 255;
@ -1636,10 +1629,7 @@ sub generate_Indirect_Zero_Page_Y {
my ($addr, $operand, $opcode, $ofh, $lineno) = @_; my ($addr, $operand, $opcode, $ofh, $lineno) = @_;
# Parse hex # Parse hex
if ($operand =~ /^\(\$([0-9a-fA-F][0-9a-fA-F])\),[Yy]$/) { if ($operand =~ /^\(\$([0-9a-fA-F][0-9a-fA-F])\),[Yy]$/) {
my $opval = $1; my $opval = hex(lc($1));
if ($operand =~ /^\$/) {
$opval = hex(lc($1));
}
generate_16($ofh, $addr, $opcode, $opval); generate_16($ofh, $addr, $opcode, $opval);
# Parse decimal # Parse decimal
} elsif ($operand =~ /^\((\d+)\),[Yy]$/) { } elsif ($operand =~ /^\((\d+)\),[Yy]$/) {