From: ian <ian>
Date: Sun, 18 Dec 2005 19:43:24 +0000 (+0000)
Subject: provide entrypoint for updating FSR1 panic readout pointer
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=b0635eedbc095a0a11e68b39b3e68b120b6b598a;p=trains.git

provide entrypoint for updating FSR1 panic readout pointer
---

diff --git a/detpic/panic.asm b/detpic/panic.asm
index ed3c8e4..7af4d90 100644
--- a/detpic/panic.asm
+++ b/detpic/panic.asm
@@ -366,7 +366,7 @@ write_ifnot_00
 	bt_w_if1 7 ; huh?
 	return
 	bt_w_if1 6
-	bra	write_if_setpointer
+	bra	panic_crashread_setpointer
 	bt_f_if0 idloc1,idloc1_master
 	return ; all the remaining options are for master only
 ;nyi	bt_w_if1 5
@@ -376,7 +376,11 @@ write_ifnot_00
 	return ; huh ?
 
 ;----------
-write_if_setpointer
+panic_crashread_setpointer
+;  W			byte from master or host	undefined
+;  FSR1*		crashread pointer		updated
+;  t, STATUS, PROD*	any				undefined
+;  all others		any				preserved
 	mov_wf	t
 	mov_lw	1<<6
 	mul_wf	FSR1L
diff --git a/detpic/panic.fin b/detpic/panic.fin
index b32473b..c732a0c 100644
--- a/detpic/panic.fin
+++ b/detpic/panic.fin
@@ -1,5 +1,6 @@
  extern panic_routine
  extern panic_kill_hook
+ extern panic_crashread_setpointer
  extern i2csu_write_panicd
  extern i2csu_read_begin_panicd
  extern i2csu_read_another_panicd