#!/usr/bin/perl -p

BEGIN {
	$hex = '[0-9a-fA-F]+';
	$sym = '[a-zA-Z_$][a-zA-Z_$0-9]*';
}

if (/\t/ && !/\t.*?\t/) { s/$/\t/; }
s/^ *($hex):\t[^\t]*/$1/;
s/^Disassembly of s/\nS/;