arch/m68k/platform/68328/bootlogo.pl


1
2
3
4
5
6
7
8
9
10

$_ = join("", <>);

s/(0x[0-9a-f]{2})/sprintf("0x%.2x",ord(pack("b8",unpack("B8",chr(hex($1))))))/gei;

s/^ /	.byte /gm;
s/[,};]+$//gm;
s/^static.*//gm;

print $_;