[app-scheme79asm.git] / scheme79asm

#!/usr/bin/perl
use 5.014000;

use App::Scheme79asm;
use Getopt::Long;

my $type_bits;
my $addr_bits;

GetOptions ('addr-bits=i' => \$addr_bits, 'type-bits=i' => \$type_bits);

my $asm = App::Scheme79asm->new(addr_bits => $addr_bits, type_bits => $type_bits);
my $str = join '', <>;
$asm->parse_and_print($str);

__END__
Commit	Line	Data
509643aa MG	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__