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

13 years ago · 936619ba59
2 changed files with 1689 additions and 0 deletions
--- a/disassem.pl
+++ b/disassem.pl
--- a/twiddle.pl
+++ b/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;
+}
+