Werner's Miscellanea

Werner's Miscellanea Git Source Tree

1	#!/usr/bin/perl
2	$BASE = 0xe0009000;
3	print sprintf("medit 0x%x 0\n", $BASE);
4	$v = 1;
5	for ($i = 1; $i != 24; $i++) {
6	print sprintf("medit 0x%x %d\n", $BASE+$i*4, $v < $i ? $i : $v);
7	$v *= 1.2866; # int(B^22) = 255
8	}
9

Branches:
master