The unified diff between revisions [4929ddab..] and [d7f56ff4..] is displayed below. It can also be downloaded as a raw diff.

This diff has been restricted to the following files: 'disassem.pl'

#
# old_revision [4929ddab8788ddb16c617817cb8f6ec7d517c8a2]
# new_revision [d7f56ff4d45c3b7b9afeafe4288a9b4d65c37101]
#
# patch "disassem.pl"
#  from [2d4ff72a2c6af43905fac023009482ba5130b49a]
#    to [5d879747c483bd6cff52dadb8415f8d01f60017a]
#
============================================================
--- disassem.pl	2d4ff72a2c6af43905fac023009482ba5130b49a
+++ disassem.pl	5d879747c483bd6cff52dadb8415f8d01f60017a
@@ -1,4 +1,4 @@
-#!/usr/pkg/bin/perl
+#!/usr/bin/env perl
 
 open FILE, "input.bin" or die $!;
 
@@ -158,9 +158,9 @@ $output = 0;
 	0xB9 => "ICR09",
 	0xBA => "ICR10",
 	0xBB => "ICR11",
-	0xBC => "ICR22",
-	0xBD => "ICR33",
-	0xBE => "ICR44",
+	0xBC => "ICR12",
+	0xBD => "ICR13",
+	0xBE => "ICR14",
 	0xBF => "ICR15",
 # Specific to LC2412
 	0xC0 => "KEY0",
@@ -210,7 +210,7 @@ foreach my $addr (sort keys %labels) {
 open LABELS, ">input.labels" or die $!;
 
 foreach my $addr (sort keys %labels) {
-    printf LABELS "%s: %.6x\n", $labels{$addr}, $addr
+    printf LABELS "%s: %06x\n", $labels{$addr}, $addr
 	if defined($labels{$addr});
 }