Browse Source

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

master
Gavan Fantom 14 years ago
commit
936619ba59
  1. 1671
      disassem.pl
  2. 18
      twiddle.pl

1671
disassem.pl

File diff suppressed because it is too large Load Diff

18
twiddle.pl

@ -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;
}
Loading…
Cancel
Save