#!/usr/local/bin/perl -w
# analyse_map.perl
# Generate a snapshot of audio registers using register log file,
# Open map files (map_merc and rom.dld)
open(MAP, "<map_merc") || die "Unable to open map_merc";
# Read map_merc :
while(<MAP>)
{
  if( ($titi, $toto) = /^|\n\.(\w+).+\n\t+\.\w+\W+(\w+)/m)
  {
	print($titi, $toto, " ", $., "\n");
  }
}
#close(MAP);