diff --git a/src/ca65html/ca65html b/src/ca65html/ca65html
index cab0d6f80..9bca799d9 100755
--- a/src/ca65html/ca65html
+++ b/src/ca65html/ca65html
@@ -180,22 +180,60 @@ sub StripPath {
sub DocHeader {
my $OUT = shift (@_);
my $Asm = shift (@_);
- if (not $Colorize) {
- # Colorization generates invalid HTML. Common browsers display it
- # correctly, but we don't claim it adheres to some standard ...
- print $OUT "\n";
- }
+ print $OUT "\n";
print $OUT <<"EOF";
$Asm
+
-
-
-
$Asm
-
+
+$Asm
EOF
}
@@ -208,15 +246,13 @@ sub DocFooter {
my $Today = localtime;
# Print
- print $OUT "
\n";
- print $OUT "
\n";
+ print $OUT "\n";
print $OUT "
\n";
- if (not $Colorize) {
- print $OUT "
\n";
- }
+ print $OUT "
";
print $OUT "$Name; generated on $Today by ca65html
\n";
print $OUT "uz@cc65.org\n";
print $OUT "\n";
+ print $OUT "
\n";
print $OUT "\n";
print $OUT "\n";
}
@@ -231,7 +267,7 @@ sub DocFooter {
sub ColorizeComment {
if ($Colorize && $_[0] ne "") {
- return "$_[0]";
+ return "";
} else {
return $_[0];
}
@@ -241,7 +277,7 @@ sub ColorizeComment {
sub ColorizeCtrl {
if ($Colorize) {
- return "$_[0]";
+ return "$_[0]";
} else {
return $_[0];
}
@@ -251,7 +287,7 @@ sub ColorizeCtrl {
sub ColorizeKeyword {
if ($Colorize) {
- return "$_[0]";
+ return "$_[0]";
} else {
return $_[0];
}
@@ -261,7 +297,7 @@ sub ColorizeKeyword {
sub ColorizeString {
if ($Colorize) {
- return "$_[0]";
+ return "$_[0]";
} else {
return $_[0];
}
@@ -385,7 +421,7 @@ sub Process1 {
while ($Line = ) {
# Remove the newline
- chop ($Line);
+ chomp ($Line);
# Check for a label
if ($Line =~ /^\s*(\@?)([_a-zA-Z]\w*)(:(?!=)|\s*:?=)/) {
@@ -520,7 +556,7 @@ sub Process2 {
$LineNo++;
# Remove the newline
- chop ($Line);
+ chomp ($Line);
# If requested, convert tabs to spaces
if ($CvtTabs) {