#!/usr/bin/perl -p
s/^\; (\w+)\s+(\S*)\s+\S*u\s.*$/ sprintf "%-15s %-7s \t%s\t%s", $1,$2,$1,$2 /e;
s/^\s*\;.*\n//;
s/^(\w+)\s+macro\s+(.*)\n/ sprintf "%-15s %-7s ", $1, $2 /e;
s/^\s+endm\n$//;