From 0cfdf0c3829008200a204ab4046a2b8ab6e3c52c Mon Sep 17 00:00:00 2001 From: Leeland Heins Date: Wed, 19 Dec 2018 13:55:11 -0600 Subject: [PATCH] Fixed bug in listing --- as65.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/as65.pl b/as65.pl index 0318930..47db741 100644 --- a/as65.pl +++ b/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; }