diff --git a/m1/ledravaganza/ramp.pl b/m1/ledravaganza/ramp.pl
new file mode 100755
index 0000000..cb68798
--- /dev/null
+++ b/m1/ledravaganza/ramp.pl
@@ -0,0 +1,8 @@
+#!/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
+}