mirror of
https://github.com/softwarejanitor/as65.git
synced 2024-11-24 05:32:02 +00:00
Fixed bug in listing
This commit is contained in:
parent
26ab25a410
commit
0cfdf0c382
4
as65.pl
4
as65.pl
@ -2145,7 +2145,7 @@ if (open($ifh, "<$input_file")) {
|
||||
|
||||
# Skip blank lines, comment lines, .org .alias.
|
||||
if ($line =~ /^\s*$|^\s*;|^\s*\*|^\.org\s+.+|^\.alias\s+\S+\s+.+/) {
|
||||
print sprintf(" %-4d $line\n", $lineno, $line) if $code_listing;
|
||||
print sprintf(" %-4d %s\n", $lineno, $line) if $code_listing;
|
||||
next;
|
||||
}
|
||||
|
||||
@ -2159,7 +2159,7 @@ if (open($ifh, "<$input_file")) {
|
||||
|
||||
# Skip ORG, EQU and OBJ on pass 2.
|
||||
if ($ucmnemonic =~ /ORG|EQU|\.EQ|OBJ|LST/) {
|
||||
print sprintf(" %-4d $line\n", $lineno, $line) if $code_listing;
|
||||
print sprintf(" %-4d %s\n", $lineno, $line) if $code_listing;
|
||||
next;
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user