diff options
| author | B. Watson <yalhcru@gmail.com> | 2019-03-13 02:50:42 -0400 |
|---|---|---|
| committer | B. Watson <yalhcru@gmail.com> | 2019-03-13 02:50:42 -0400 |
| commit | 2973d0c78e9b8eed3c5af239927c6bd36af64604 (patch) | |
| tree | a0fdfe7201303edd11c6d86015ef4f79796fcf0f /src/col64/cruft/coltbl.pl | |
| download | fujichat-2973d0c78e9b8eed3c5af239927c6bd36af64604.tar.gz | |
initial commit
Diffstat (limited to 'src/col64/cruft/coltbl.pl')
| -rw-r--r-- | src/col64/cruft/coltbl.pl | 17 |
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 +} |