better manipulation of the per-pic led

diff --git a/detpic/serout.asm b/detpic/serout.asm
index f017701bca2603e9cbb3d1b17853d26a22c0d03e..642a0c5f787489326028d0557b640a661c5ef14d 100644 (file)
--- a/detpic/serout.asm
+++ b/detpic/serout.asm
@@ -64,12 +64,15 @@ portb_read @
        bra     txfc_disable
        ; tx enable:
 
+ ;pin_h pall_perpicled
+       call    led_green ; we're transmitting
        bs_f    PIE1, TXIE
        return
 
 ;----------
 txfc_disable
        bc_f    PIE1, TXIE
+ ;pin_l pall_perpicled
        goto    led_red ; flow control forces us not to transmit
 
 ;----------------------------------------------------------------------
@@ -92,9 +95,6 @@ serialtxfc_init @
 ;======================================================================
 ; ACTUAL TRANSMISSION
 
-boo
- panic morse_TI1
-
 ;----------------------------------------------------------------------
 serialtx_intrl @
        ; are we ready to transmit ?
@@ -110,9 +110,6 @@ serialtx_intrl @
        xor_wfw outmsg_end
        bra_z   tx_bufempty
 
- mov_fw        INDF0
- xor_lw 0xbb
- bra_z boo
        mov_fw  INDF0
        mov_wf  TXREG
        bra_n   tx_justsent_noacknmra
@@ -125,7 +122,6 @@ tx_justsent_noacknmra
        bc_f    outmsg_begin, outbuf_szln2
        call    i2c_consider_restartread
 tx_alliswell
-       call    led_green ; we're transmitting
        intrl_handled_nostack
 
 ;----------
@@ -147,6 +143,7 @@ tx_bufempty
        bra_nz  tx_acknmra_send
        ; nothing at all to do:
        bc_f    PIE1, TXIE
+ ;pin_z pall_perpicled
        call    led_black ; we're not transmitting
        intrl_handled_nostack