git @ Cat's Eye Technologies The-Dipple / 0.1 perl / gen_zowie_print
0.1

Tree @0.1 (Download .tar.gz)

gen_zowie_print @0.1 — raw · history · blame 

1
2
3
4
5
6
#!/usr/bin/perl
$f = <STDIN>;
for ($i = 0; $i < length($f); $i++)
{
    printf "MOV R0, %d\n", ord(substr($f, $i, 1));
}