reg2VREG
566 Bytes
#!/usr/local/bin/perl
#
$cnt = 0;
$reg_val = ();
while (<>) {
chop;
split;
if ($_[1] ne "") { $reg_val[$cnt++] = $_[1]; }
if ($_[2] ne "") { $reg_val[$cnt++] = $_[2]; }
if ($_[3] ne "") { $reg_val[$cnt++] = $_[3]; }
if ($_[4] ne "") { $reg_val[$cnt++] = $_[4]; }
}
if ($cnt != 128) {
die "Inssufficient VU reg initial values";
}
for ($i=0; $i<32; $i++) {
printf "@%2.2X %8.8lX_%8.8lX_%8.8lX_%8.8lX //VR%d\n",$i,hex($reg_val[($i*4) ]),
hex($reg_val[($i*4)+1]),
hex($reg_val[($i*4)+2]),
hex($reg_val[($i*4)+3]),$i;
}