cleanup() {

rm -f $T $T.s $T.o $T.oo $T.aa $T.dis

exit 1

}

die() {

echo "$@"

exit 1

}

trap cleanup EXIT

T=`mktemp` || die "cannot create temp file"

code=

cont=

while read i ; do

case "$i" in

*Code:*)

code=$i

cont=yes

;;

*)

[ -n "$cont" ] && {

xdump="$(echo $i | grep '^[[:xdigit:]<>[:space:]]\+$')"

if [ -n "$xdump" ]; then

code="$code $xdump"

else

cont=

fi

}

;;

if [ -z "$code" ]; then

rm $T

exit

echo $code

code=`echo $code | sed -e 's/.*Code: //'`

width=`expr index "$code" ' '`

width=$((($width-1)/2))

case $width in

1) type=byte ;;

2) type=2byte ;;

4) type=4byte ;;

disas() {

}

marker=`expr index "$code" "\<"`

if [ $marker -eq 0 ]; then

marker=`expr index "$code" "\("`

touch $T.oo

if [ $marker -ne 0 ]; then

echo All code >> $T.oo

echo ======== >> $T.oo

beforemark=`echo "$code"`

echo -n " .$type 0x" > $T.s

echo $beforemark | sed -e 's/ /,0x/g; s/[<>()]//g' >> $T.s

disas $T

cat $T.dis >> $T.oo

rm -f $T.o $T.s $T.dis

code=`echo "$code" | cut -c$((${marker} + 1))-`

echo Code starting with the faulting instruction > $T.aa

echo =========================================== >> $T.aa

code=`echo $code | sed -e 's/ [<(]/ /;s/[>)] / /;s/ /,0x/g; s/[>)]$//'`

echo -n " .$type 0x" > $T.s

echo $code >> $T.s

disas $T

cat $T.dis >> $T.aa

faultlinenum=$(( $(wc -l $T.oo | cut -d" " -f1) - \

faultline=`cat $T.dis | head -1 | cut -d":" -f2-`

faultline=`echo "$faultline" | sed -e 's/\[/\\\[/g; s/\]/\\\]/g'`

cat $T.oo | sed -e "${faultlinenum}s/^\(.*:\)\(.*\)/\1\*\2\t\t<-- trapping instruction/"

cat $T.aa

cleanup