#!/bin/sh

objdump -d $1 | perl -e 'my $on = 2; while (<STDIN>) { $on = 1 if ($on==2 and $_ =~ /__BEGIN__/); $on = 0 if ($_ =~ /__END__/); print $_ if ($on == 1); }' | cut -f 2 | egrep -v "^$|:" | xargs | sed -e 's/ /\\x/g' | awk '{print "char b[] = \"\\x"$1"\";int main(){write(1,b,sizeof(b)-1);}"}'  > b.c ; gcc b.c -o b; ./b > raw | ndisasm -u raw
rm -f b b.c raw