mirror of
https://github.com/mi57730/a2d.git
synced 2024-11-26 02:49:18 +00:00
50 lines
1006 B
Perl
50 lines
1006 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my @symbols = ();
|
||
|
|
my @equates = ();
|
||
|
|
|
||
|
|
# TODO: Handle nested procs
|
||
|
|
my $proc = '';
|
||
|
|
|
||
|
|
while (<STDIN>) {
|
||
|
|
chomp;
|
||
|
|
next unless m/^00([0-9A-F]{4}) 2 .. .. .. .. (.*)/;
|
||
|
|
my ($addr, $line) = ($1, $2);
|
||
|
|
$line =~ s/;.*//;
|
||
|
|
$line =~ s/^\s*|\s*$//;
|
||
|
|
next unless $line;
|
||
|
|
if ($line =~ m/^\.proc\s+(\S+)/) {
|
||
|
|
$proc = $1;
|
||
|
|
push @symbols, [$proc, $addr];
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
if ($line =~ m/^\.endproc/) {
|
||
|
|
$proc = '';
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
|
||
|
|
next if $proc;
|
||
|
|
|
||
|
|
if ($line =~ m/^(\S+)\s*:=\s*(.*)/) {
|
||
|
|
my ($symbol, $value) = ($1, $2);
|
||
|
|
next if $value =~ m/::/;
|
||
|
|
$value =~ s/\*/\$$addr/; # foo := * + 2
|
||
|
|
push @equates, [$symbol, $value];
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($line =~ m/^(\S+):/) {
|
||
|
|
push @symbols, [$1, $addr];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach my $pair (@symbols) {
|
||
|
|
printf "%-24s := \$%s\n", @$pair[0], @$pair[1];
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach my $pair (@equates) {
|
||
|
|
printf "%-24s := %s\n", @$pair[0], @$pair[1];
|
||
|
|
}
|