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}); }