From d6e1e8be0d1c9fa178dc457f23b1f00c171acd12 Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@almesberger.net>
Date: Wed, 12 Oct 2011 14:42:36 -0300
Subject: [PATCH] m1rc3/norruption/2/upset: take address and value from
 command-line; report outcome

---
 m1rc3/norruption/2/upset | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/m1rc3/norruption/2/upset b/m1rc3/norruption/2/upset
index 49f1746..a3adb89 100755
--- a/m1rc3/norruption/2/upset
+++ b/m1rc3/norruption/2/upset
@@ -1,4 +1,9 @@
 #!/bin/sh
+
+a=${1:-0x10}
+d=${2:-0}
+
+
 jtag -q <<EOF
 cable milkymist
 detect
@@ -8,5 +13,16 @@ pld load fjmem.bit
 initbus fjmem opcode=000010
 frequency 6000000
 detectflash 0
-poke 0x10 0x40 0x10 0 0 0xff
+peek $a
+poke $a 0x40 $a $d
+peek $a
+poke 0 0xff
+peek $a
+EOF
+
+cat 1>&2 <<EOF
+values read:
+- previous value
+- status (0x80 = okay, 0x92 = locked)
+- resulting value
 EOF