1 files changed, 17 insertions, 0 deletions
diff --git a/src/col64/cruft/coltbl.pl b/src/col64/cruft/coltbl.pl
new file mode 100644
index 0000000..e933437
--- /dev/null
+++ b/src/col64/cruft/coltbl.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+for(0..63) {
+	$pix = $_*5;
+	$byte = int($pix/8);
+	$mask = 0xf800;
+	$offs = $pix % 8;
+	$mask >>= $offs;
+	$mask = (~$mask) & 0xffff;
+	$mleft = sprintf "%02X", $mask >> 8;
+	$mright = sprintf "%02X", $mask & 0xff;
+	$m = sprintf("%016b", $mask);
+	printf "\$%02X, ", $offs;
+#	print <<EOF;
+#$_  $pix  $byte  $offs $mleft $mright $m
+#EOF
+}