coolfactor/f2mc-16l
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First checkin of F2MC-16L disassembler and LC2412 EPROM bit twiddler.

Browse Source
This commit is contained in:
Gavan Fantom
2011-02-13 01:18:46 +00:00
commit 936619ba59
2 changed files with 1689 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1671
disassem.pl Executable file
View File

File diff suppressed because it is too large Load Diff

18
twiddle.pl Executable file
View File

@@ -0,0 +1,18 @@
#!/usr/pkg/bin/perl
binmode STDIN;
binmode STDOUT;
while (1)
{
my $byte = getc;
last unless defined($byte);
$byte = ord($byte);
$a = $byte & 0x08;
$b = $byte & 0x10;
$byte = $byte & 0xe7;
$byte = $byte | 0x08 if ($b);
$byte = $byte | 0x10 if ($a);
printf "%c", $byte;
}