/usr/lib/radare/bin/tab2asm is in radare-common 1:1.5.2-6.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | #!/usr/bin/env perl
#
# example:
# $ rsc bin2tab /bin/ls | rsc tab2asm
my @lines=();
while(<STDIN>) {
$line=$_;
chomp($line);
my ($addr, $label, $code) = split(/\t/, $line);
my %foo = (
"address" => $addr,
"label" => $label,
"opcode" => $code
);
push(@lines, \%foo);
}
for my $i (0 .. @lines) {
unless ($lines[$i]{"label"}=~/\+/) {
print $lines[$i]{"label"}.":\n"
unless ($lines[$i]{"label"} eq "");
} else {
print " ".$lines[$i]{"opcode"}."\n";
}
}
|