a2d/res/fontdump.pl

#!/usr/bin/env perl
use strict;
use warnings;

# Dumps the font glyphs from DESKTOP2.$F1
# (Located at $8883 in memory)

my $num = 0x80;

my @chars;
for (my $i = 0; $i < $num; ++$i) {
    $chars[$i] = '';
}

seek(STDIN, 0x4E03, 0);
my $c = 0;

for (my $row = 0; $row < 9; ++$row) {
    for (my $c = 0; $c < $num; ++$c) {
        for (my $shift = 0; $shift < 1; ++$shift) {
            my $b;
            read(STDIN, $b, 1);
            $b = ord($b);
            my $bits = sprintf("%07b", $b);
            $bits =~ tr/01/ #/;
            $bits = reverse $bits;

            $chars[$c] .= $bits;
        }
        $chars[$c] .= "\n";
    }
}


for (my $i = 0; $i < $num; ++$i) {
    print "==".sprintf("%02x",$i)."==\n$chars[$i]";
}