mirror of https://github.com/trudnai/Steve2.git
94 lines
1.9 KiB
Perl
Executable File
94 lines
1.9 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
my $addr = "";
|
|
my $status = 0;
|
|
my @buf = ();
|
|
|
|
my $max = 5000;
|
|
|
|
|
|
|
|
while(<>) {
|
|
if ($status == 0) {
|
|
if (/([0-9A-F]{4}):( [0-9A-F]{2}){3}\s*LDA \$C08C,X/) {
|
|
# print("DEBUG: 0 LDA\n");
|
|
$status = 1;
|
|
push(@buf, $_);
|
|
$addr = $1;
|
|
}
|
|
else {
|
|
# print("DEBUG: 0 no LDA\n");
|
|
print;
|
|
}
|
|
}
|
|
elsif ($status == 1) {
|
|
if (/BPL \$$addr/) {
|
|
# print("DEBUG: 1 BPL\n");
|
|
$status = 2;
|
|
push(@buf, $_);
|
|
}
|
|
else {
|
|
# print("DEBUG: 1 no BPL\n");
|
|
$status = 0;
|
|
print @buf;
|
|
@buf = ();
|
|
print;
|
|
}
|
|
}
|
|
elsif ($status == 2) {
|
|
if (/EOR #\$D5/) {
|
|
# print("DEBUG: 2 EOR\n");
|
|
$status = 3;
|
|
push(@buf, $_);
|
|
}
|
|
else {
|
|
# print("DEBUG: 2 no EOR\n");
|
|
$status = 0;
|
|
print @buf;
|
|
@buf = ();
|
|
print;
|
|
}
|
|
}
|
|
elsif ($status == 3) {
|
|
if (/BNE \$$addr/) {
|
|
# print("DEBUG: 3 BNE\n");
|
|
$status = 4;
|
|
push(@buf, $_);
|
|
}
|
|
else {
|
|
# print("DEBUG: 3 no BNE\n");
|
|
$status = 0;
|
|
print @buf;
|
|
@buf = ();
|
|
print;
|
|
}
|
|
}
|
|
elsif ($status == 4) {
|
|
if (/$addr:( [0-9A-F]{2}){3}\s*LDA \$C08C,X/) {
|
|
# print("DEBUG: 4 LDA\n");
|
|
$status = 1;
|
|
@buf = ();
|
|
push(@buf, $_);
|
|
}
|
|
else {
|
|
# print("DEBUG: 4 no LDA\n");
|
|
$status = 0;
|
|
print @buf, "\n";
|
|
@buf = ();
|
|
print;
|
|
}
|
|
}
|
|
else {
|
|
# print("DEBUG: else\n");
|
|
$status = 0;
|
|
print @buf;
|
|
@buf = ();
|
|
print;
|
|
}
|
|
|
|
# if( -- $max <= 0 ) {
|
|
# last;
|
|
# }
|
|
}
|
|
|