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

Bug fixes to symbol parsing

Browse Source
This commit is contained in:
Leeland Heins 2018-12-18 07:24:29 -06:00 committed by GitHub
parent da8af1f3ea
commit 74ea8cfaa4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 37 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
as65.pl
View File

@ -761,7 +761,7 @@ sub generate_24 {
sub sym_add { sub sym_add {
my ($symval, $offset) = @_; my ($symval, $offset) = @_;
if ($symval =~ /\$([0-9a-fA-F][0-9a-fA-F])/) { if ($symval =~ /\$([0-9a-fA-F]+)/) {
return hex(lc($1 + $offset)); return hex(lc($1 + $offset));
} }
return $symval + $offset; return $symval + $offset;
@ -770,7 +770,7 @@ sub sym_add {
sub sym_sub { sub sym_sub {
my ($symval, $offset) = @_; my ($symval, $offset) = @_;
if ($symval =~ /\$([0-9a-fA-F][0-9a-fA-F])/) { if ($symval =~ /\$([0-9a-fA-F]+])/) {
return hex(lc($1 + $offset)); return hex(lc($1 + $offset));
} }
return $symval - $offset; return $symval - $offset;
@ -907,7 +907,7 @@ sub is_Immediate {
} }
return 2; return 2;
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /#([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+-]\s*(\d+)/) { } elsif ($operand =~ /^#([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+-]\s*(\d+)$/) {
my $symval = $symbols{$1}; my $symval = $symbols{$1};
if (defined $symval) { if (defined $symval) {
if ($symval =~ /^\d+$/) { if ($symval =~ /^\d+$/) {
@ -938,10 +938,10 @@ sub generate_Immediate {
} elsif ($operand =~ /^#([A-Za-z\.][A-Za-z0-9_\.]+)/) { } elsif ($operand =~ /^#([A-Za-z\.][A-Za-z0-9_\.]+)/) {
handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /#([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)/) { } elsif ($operand =~ /^#([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)$/) {
# Add # Add
handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /#([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)/) { } elsif ($operand =~ /^#([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)$/) {
# Subtract # Subtract
handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1027,10 +1027,10 @@ sub generate_Zero_Page {
} elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)/) {
handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)$/) {
# Add # Add
handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)$/) {
# Subtract # Subtract
handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1110,10 +1110,10 @@ sub generate_Zero_Page_X {
} elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+),[Xx]$/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+),[Xx]$/) {
handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Handle symbol arithmatic # Handle symbol arithmatic
} elsif ($operand =~ /([^[A-Za-z\.][0-9a-zA-Z_\.]+)\s*[+]\s*(\d+),[Xx]$/) { } elsif ($operand =~ /^([A-Za-z\.][0-9a-zA-Z_\.]+)\s*[+]\s*(\d+),[Xx]$/) {
# Add # Add
handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /([^[A-Za-z\.][0-9a-zA-Z_\.]+)\s*[-]\s*(\d+),[Xx]$/) { } elsif ($operand =~ /^([A-Za-z\.][0-9a-zA-Z_\.]+)\s*[-]\s*(\d+),[Xx]$/) {
# Subtract # Subtract
handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1168,20 +1168,20 @@ sub is_Zero_Page_Y {
sub generate_Zero_Page_Y { 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 = 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+),[Yy]/) { } elsif ($operand =~ /^(\d+),[Yy]$/) {
generate_16($ofh, $addr, $opcode, $1); generate_16($ofh, $addr, $opcode, $1);
# Return symbol value # Return symbol value
} elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+),[Yy]/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+),[Yy]$/) {
handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+),[Yy]/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+),[Yy]$/) {
# Add # Add
handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+),[Yy]/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+),[Yy]$/) {
# Subtract # Subtract
handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1256,13 +1256,13 @@ sub generate_Absolute {
my $opval2 = hex(lc(substr($opval, 2, 2))); my $opval2 = hex(lc(substr($opval, 2, 2)));
generate_24($ofh, $addr, $opcode, $opval2, $opval1); generate_24($ofh, $addr, $opcode, $opval2, $opval1);
# Return symbol value # Return symbol value
} elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)$/) {
handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $operand); handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $operand);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)$/) {
# Add # Add
handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)$/) {
# Subtract # Subtract
handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1308,10 +1308,10 @@ sub generate_Indirect_Absolute {
} elsif ($operand =~ /^\(([A-Za-z\.][0-9a-zA-Z]+)\)/) { } elsif ($operand =~ /^\(([A-Za-z\.][0-9a-zA-Z]+)\)/) {
handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /\(([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)\)/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)\)/) {
# Add # Add
handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /\(([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)\)/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)\)/) {
# Subtract # Subtract
handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1357,10 +1357,10 @@ sub generate_Indirect_Absolute_X {
} elsif ($operand =~ /^\(([A-Za-z\.][0-9a-zA-Z_]+)\),[Xx]$/) { } elsif ($operand =~ /^\(([A-Za-z\.][0-9a-zA-Z_]+)\),[Xx]$/) {
handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /\(([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)\),[Xx]$/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)\),[Xx]$/) {
# Add # Add
handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /\(([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)\),[Xx]$/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)\),[Xx]$/) {
# Subtract # Subtract
handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1425,13 +1425,13 @@ sub generate_Absolute_X {
my $opval2 = hex(lc(substr($opval, 2, 2))); my $opval2 = hex(lc(substr($opval, 2, 2)));
generate_24($ofh, $addr, $opcode, $opval2, $opval1); generate_24($ofh, $addr, $opcode, $opval2, $opval1);
# Return symbol value # Return symbol value
} elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+),[Xx]/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+),[Xx]$/) {
handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+),[Xx]/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+),[Xx]$/) {
# Add # Add
handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+),[Xx]/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+),[Xx]$/) {
# Subtract # Subtract
handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1489,13 +1489,13 @@ sub generate_Absolute_Y {
my $opval2 = hex(lc(substr($opval, 2, 2))); my $opval2 = hex(lc(substr($opval, 2, 2)));
generate_24($ofh, $addr, $opcode, $opval2, $opval1); generate_24($ofh, $addr, $opcode, $opval2, $opval1);
# Return symbol value # Return symbol value
} elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+),[Yy]/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+),[Yy]$/) {
handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_16_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+),[Yy]/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+),[Yy]$/) {
# Add # Add
handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+),[Yy]/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+),[Yy]$/) {
# Subtract # Subtract
handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_16_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1562,13 +1562,13 @@ sub generate_Indirect_Zero_Page_X {
} elsif ($operand =~ /^\((\d+)\),[Xx]/) { } elsif ($operand =~ /^\((\d+)\),[Xx]/) {
generate_16($ofh, $addr, $opcode, $1); generate_16($ofh, $addr, $opcode, $1);
# Return symbol value # Return symbol value
} elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+),[Xx]\)/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+),[Xx]\)$/) {
handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $operand); handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $operand);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /\(([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+),[Xx]\)/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+),[Xx]\)$/) {
# Add # Add
handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /\(([^[A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+),[Xx]\)/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+),[Xx]\)$/) {
# Subtract # Subtract
handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1638,10 +1638,10 @@ sub generate_Indirect_Zero_Page_Y {
} elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\),[Yy]$/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\),[Yy]$/) {
handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)\),[Yy]$/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)\),[Yy]$/) {
# Add # Add
handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_add($ofh, $lineno, $addr, $opcode, $1, $2);
} elsif ($operand =~ /\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)\),[Yy]$/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)\),[Yy]$/) {
# Subtract # Subtract
handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2); handle_8_bit_symbol_sub($ofh, $lineno, $addr, $opcode, $1, $2);
} else { } else {
@ -1707,7 +1707,7 @@ sub generate_Indirect_Zero_Page {
} elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\)/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\)/) {
handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1); handle_8_bit_symbol($ofh, $lineno, $addr, $opcode, $1);
# Allow arithmatic on symbol # Allow arithmatic on symbol
} elsif ($operand =~ /\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)\)/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[+]\s*(\d+)\)/) {
# Add # Add
my $symval = $symbols{$1}; my $symval = $symbols{$1};
if (defined $symval) { if (defined $symval) {
@ -1716,7 +1716,7 @@ sub generate_Indirect_Zero_Page {
} else { } else {
print "**** $lineno - Unknown symbol '$1'\n"; print "**** $lineno - Unknown symbol '$1'\n";
} }
} elsif ($operand =~ /\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)\)/) { } elsif ($operand =~ /^\(([A-Za-z\.][A-Za-z0-9_\.]+)\s*[-]\s*(\d+)\)/) {
# Subtract # Subtract
my $symval = $symbols{$1}; my $symval = $symbols{$1};
if (defined $symval) { if (defined $symval) {
@ -1770,7 +1770,7 @@ sub generate_Relative {
my ($addr, $operand, $opcode, $ofh, $lineno) = @_; my ($addr, $operand, $opcode, $ofh, $lineno) = @_;
# Decode hex # Decode hex
if ($operand =~ /\$([0-9a-fA-F]{1,4})/) { if ($operand =~ /^\$([0-9a-fA-F]{1,4}$)/) {
my $opval = hex(lc($1)); my $opval = hex(lc($1));
my $rel = (0 - ($addr - $opval)) + 254; my $rel = (0 - ($addr - $opval)) + 254;
if ($rel < 0) { if ($rel < 0) {
@ -1791,7 +1791,7 @@ sub generate_Relative {
} }
generate_16($ofh, $addr, $opcode, $rel); generate_16($ofh, $addr, $opcode, $rel);
# Handle symbols # Handle symbols
} elsif ($operand =~ /([A-Za-z\.][A-Za-z0-9_\.]+)/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)$/) {
my $symval = $symbols{$1}; my $symval = $symbols{$1};
if (defined $symval) { if (defined $symval) {
my $opval = lc($symval); my $opval = lc($symval);
@ -1813,7 +1813,7 @@ sub generate_Relative {
print "**** $lineno - Unknown symbol '$1'\n"; print "**** $lineno - Unknown symbol '$1'\n";
} }
# Handle symbol arithmatic # Handle symbol arithmatic
} elsif ($operand =~ /([A-Za-z\.][A-Za-z0-9_\.]+)\s*([+-])\s*(\d+)/) { } elsif ($operand =~ /^([A-Za-z\.][A-Za-z0-9_\.]+)\s*([+-])\s*(\d+)$/) {
my $symval = $symbols{$1}; my $symval = $symbols{$1};
if (defined $symval) { if (defined $symval) {
my $opval = lc($symval); my $opval = lc($symval);