satip-axe/kernel/arch/m68knommu/platform/68328/bootlogo.pl

11 lines
165 B
Raku

$_ = 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 $_;