mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2025-04-21 12:27:27 +03:00
9 lines
216 B
Perl
Executable File
9 lines
216 B
Perl
Executable File
#!/usr/bin/perl
|
|
$BASE = 0xe0009000;
|
|
print sprintf("medit 0x%x 0\n", $BASE);
|
|
$v = 1;
|
|
for ($i = 1; $i != 24; $i++) {
|
|
print sprintf("medit 0x%x %d\n", $BASE+$i*4, $v < $i ? $i : $v);
|
|
$v *= 1.2866; # int(B^22) = 255
|
|
}
|