From: ian <ian>
Date: Fri, 30 Dec 2005 14:41:10 +0000 (+0000)
Subject: better manipulation of the per-pic led
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=c810fa30d0fb92c1f6eba5126874df477d8489d0;p=trains.git

better manipulation of the per-pic led
---

diff --git a/detpic/serout.asm b/detpic/serout.asm
index f017701..642a0c5 100644
--- 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