]>
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__ |