scheme79asm

   1 #!/usr/bin/perl
   2 use 5.014000;
   3
   4 use App::Scheme79asm;
   5 use Getopt::Long;
   6
   7 my $type_bits;
   8 my $addr_bits;
   9
  10 GetOptions ('addr-bits=i' => \$addr_bits, 'type-bits=i' => \$type_bits);
  11
  12 my $asm = App::Scheme79asm->new(addr_bits => $addr_bits, type_bits => $type_bits);
  13 my $str = join '', <>;
  14 $asm->parse_and_print($str);
  15
  16 __END__