handle slave writes

diff --git a/detpic/panic.asm b/detpic/panic.asm
index 7af4d90dbdea65b8b542c5160ecdc4acf78e5b54..8e52885a38b136a154569723f8c6d54fec7e9ef5 100644 (file)
--- a/detpic/panic.asm
+++ b/detpic/panic.asm
@@ -391,6 +391,11 @@ panic_crashread_setpointer
        mov_wf  FSR1L
        return
 
+;----------
+panic_crashread_commanded
+       bs_f    panicst, panicst_acked ; since we were asked to
+       panic   morse_E
+
 ;----------
 i2csu_read_begin_panicd
        mov_lw  0x80 ; M0000000

diff --git a/detpic/panic.fin b/detpic/panic.fin
index c732a0c82528a7d6542372266372b05e051af606..42d7ca11ac69325acbe783337b6c94e133d7d2a1 100644 (file)
--- a/detpic/panic.fin
+++ b/detpic/panic.fin
@@ -1,6 +1,7 @@
  extern panic_routine
  extern panic_kill_hook
  extern panic_crashread_setpointer
+ extern panic_crashread_commanded
  extern i2csu_write_panicd
  extern i2csu_read_begin_panicd
  extern i2csu_read_another_panicd

diff --git a/detpic/reverse.fin b/detpic/reverse.fin
index 0ad7380a73c78a493339d09e01e4b00224094568..f6ea2d1fb4ee90c17e11a7ffeb18041e0cf94f38 100644 (file)
--- a/detpic/reverse.fin
+++ b/detpic/reverse.fin
@@ -1 +1,2 @@
+ extern polarity_local_do
  extern polarity_local_init

diff --git a/detpic/slave.asm b/detpic/slave.asm
index aa4b1065ee39e0903cf1f6bf8c67d524e836850d..09270076df69185efb02cce64587329a9f8b3a27 100644 (file)
--- a/detpic/slave.asm
+++ b/detpic/slave.asm
@@ -22,7 +22,6 @@ slave
        call    detect_local_init
        call    detect_slave_init
 
- panic morse_TI2
        bs_f    INTCON, GIEH
        bs_f    INTCON, GIEL
 
@@ -36,8 +35,20 @@ i2csu_write_another
        bt_f_if1 picno,picno_panicd
        goto    i2csu_write_panicd
 
- panic morse_TI1
-       goto    led_black
+       bt_w_if0 7
+       bra     i2csu_write_if_special
+       bt_w_if1 6
+       bra     polarity_local_do
+       bt_w_if0 5
+       bra     point_local_do
+i2csu_write_if_bad
+       mov_wf  t
+       panic   morse_DX
+
+i2csu_write_if_special
+       tst_w_ifnz
+       bra     i2csu_write_if_bad
+       goto    panic_crashread_commanded
 
 ;----------
 i2csu_read_done