mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-11-15 17:53:44 +02:00
9 lines
216 B
Perl
9 lines
216 B
Perl
|
#!/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
|
||
|
|
}
|