From: ian <ian>
Date: Sun, 20 Jan 2008 19:00:27 +0000 (+0000)
Subject: can reprogram santafe
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?p=trains.git;a=commitdiff_plain;h=94ef19eab00605c024a6833b9406d639c5874b94

can reprogram santafe
---

diff --git a/hostside/factory-reset-svc b/hostside/factory-reset-svc
index 3034a79..ccb34f3 100755
--- a/hostside/factory-reset-svc
+++ b/hostside/factory-reset-svc
@@ -28,4 +28,10 @@ rc svc_pagepreset
 rc reset
 rc reset
 rc svc_factoryreset
+for x in `seq 1 20`; do
+ sleep 0.1
+ ho command 10
+ sleep 0.05
+ ho command 11
+done
 rc reset
diff --git a/hostside/fun-randmore b/hostside/fun-randmore
index 4f318f1..49971d8 100755
--- a/hostside/fun-randmore
+++ b/hostside/fun-randmore
@@ -1,5 +1,6 @@
 #!/bin/sh
 set -e
+s=$1
 while true; do
 	echo
 	which=$(hexdump </dev/urandom -n1 -e '"%d"')
@@ -10,12 +11,12 @@ while true; do
 		b2=$(hexdump </dev/urandom -n1 -e '"%d"')
 		dirn=$(($b2 / 128))
 		echo which=$which b1=$b1 speed=$speed b2=$b2 dirn=$dirn
-		./hostside-old -s/dev/ttya0 speed126 2 $speed $dirn
+		./hostside-old -s$s speed126 2 $speed $dirn
 	fi
 	if [ $which -lt 128 ]; then
 		value=$(( $which * 16 ))
 		printf "which=%s value=%s value=0x%x\n" $which $value $value
-		./hostside-old -s/dev/ttya0 funcs5to8 2 $value
+		./hostside-old -s$s funcs5to8 2 $value
 	fi
 	delay=$(hexdump </dev/urandom -n1 -e '"%d"')
 	delayv=$(( $delay / 2 + 10 ))
diff --git a/hostside/fun-random b/hostside/fun-random
index 06e8d33..f05082e 100755
--- a/hostside/fun-random
+++ b/hostside/fun-random
@@ -1,5 +1,6 @@
 #!/bin/sh
 set -e
+s=$1
 while true; do
 	b1=$(hexdump </dev/urandom -n1 -e '"%d"')
 	squ=$(($b1 * $b1))
@@ -7,6 +8,6 @@ while true; do
 	b2=$(hexdump </dev/urandom -n1 -e '"%d"')
 	dirn=$(($b2 / 128))
 	echo b1=$b1 speed=$speed b2=$b2 dirn=$dirn
-	./hostside-old -s/dev/ttya0 speed126 2 $speed $dirn
+	./hostside-old -s$s speed126 2 $speed $dirn
 	sleep 30
 done
diff --git a/hostside/fun-updown b/hostside/fun-updown
index 7175879..f33085e 100755
--- a/hostside/fun-updown
+++ b/hostside/fun-updown
@@ -1,13 +1,13 @@
 #!/bin/sh
 set -e
-
+s=$1
 while true; do
-	for x in '0 11' '-- 11 0 -1'; do
+	for x in '0 11' '-- 11 -1 0'; do
 		echo $x;
-		for f in `numbers $x`; do
+		for f in `seq $x`; do
 			sleep 20; g=$(($f*$f));
 			echo $f $g;
-			./hostside-old -s/dev/ttya0 speed126 2 $g 0
+			./hostside-old -s$s speed126 2 $g 0
 		done
 	done
 done
diff --git a/hostside/nmra-packets.h b/hostside/nmra-packets.h
index 3d6b607..ea8f33d 100644
--- a/hostside/nmra-packets.h
+++ b/hostside/nmra-packets.h
@@ -94,7 +94,7 @@ NMRA(svc_factoryreset, Anone, {
    * (See also Packet Sequence for Physical Register Addressing
    * RP 9.2.3 E l.166-)
    */
-  CONST(0x7f, 0x40);
+  CONST(0x7f, 0x08);
 })
 NMRA(svc_pagepreset, Anone, {
   /* Service Mode Page Preset Instruction