aboutsummaryrefslogtreecommitdiff
path: root/src/col80_modified/lsr.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/col80_modified/lsr.pl')
-rw-r--r--src/col80_modified/lsr.pl29
1 files changed, 29 insertions, 0 deletions
diff --git a/src/col80_modified/lsr.pl b/src/col80_modified/lsr.pl
new file mode 100644
index 0000000..915f769
--- /dev/null
+++ b/src/col80_modified/lsr.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl -w
+
+use bytes;
+
+$c = 0;
+
+while(<>) {
+ next unless @bytes = (/0x([0-9a-fA-F]{2})/g);
+ for(@bytes) {
+ if(!($c % 8)) {
+ print " .byte ";
+ }
+
+ printf "\$%02X", (reverse_bits(hex $_) >> 1);
+
+ if(($c % 8 == 7) || ($c == $#bytes)) {
+ print "\n";
+ $c = 0;
+ } else {
+ print ",";
+ $c++;
+ }
+ }
+}
+
+sub reverse_bits {
+ my $bitstr = reverse sprintf("%08b", $_[0]);
+ return eval "0b$bitstr";
+}