#!/usr/bin/perl

&do_obj_file();

sub do_obj_file {
  local($/);

  open(OBJF,"../lib/big.obj") || die "$!\n";
  $chunk = <OBJF>;
  print length($chunk) , "\n";
  @a=split('#',$chunk);
  shift(@a);
  foreach $x (@a){
    $x =~ s/\n/ /g;
    @b=split('~',$x);
    @c=split(' ',$b[0]);
    $n = $c[0];
    @d=split(' ',$b[3]);
    if($d[0] == 9){
      printf "%5d %8x %s\n",$n, $d[2], $b[1];
    }
  }
}