From: ian <ian>
Date: Fri, 23 Dec 2005 01:55:24 +0000 (+0000)
Subject: rename polarities_commanded_buffer -> polarity_cmds
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=482e7dd9b0e72e2879ae4f92d14051c4a8b53596;p=trains.git

rename polarities_commanded_buffer -> polarity_cmds
---

diff --git a/detpic/reverse.asm b/detpic/reverse.asm
index 7f2eb0f..abe7eb0 100644
--- a/detpic/reverse.asm
+++ b/detpic/reverse.asm
@@ -13,8 +13,9 @@ maske				res	1
 ;----------------------------------------
 ; MASTER - Access bank variables and other sections
 
-polarities_commanded_buffer_section udata 0x5f
-polarities_commanded_buffer	res	maxpics+1
+polarity_cmds equ 0x5f
+polarity_cmds_section udata polarity_cmds
+ res maxpics+1
 	; Each byte is:
 	;	11RRRRRR	reverse command for slave, waiting to write
 	;	00000001	this is not a reversers pic
@@ -115,7 +116,7 @@ command_polarity
 ;		and so on until f for bit 5.  (See polarity_do_here, below.)
 ;
 ; we accumulate (`gather') the `g' bits in t.
-	mov_lfsr polarities_commanded_buffer, 1
+	mov_lfsr polarity_cmds, 1
 	mov_fw	POSTINC0	; W =		10010RRR
 	mov_wf	t		; t =		10010ggg
 	xor_lw	b'10001000'	; t =		00011ggg
@@ -163,7 +164,7 @@ board_next_none
 
 	call	power_polarising
 
-	mov_fw	polarities_commanded_buffer ; there's always a board 0, us
+	mov_fw	polarity_cmds ; there's always a board 0, us
 	call	polarity_local_do
 	rcall	needwrite_polarity ; does `return' because it will find one
 	return			   ; ... or maybe not if only 1 rev board
@@ -179,7 +180,7 @@ needwrite_polarity
 ;    if we _do_, it will store the slave no. in needwrite_slave
 ;    and then pop and return
 ;  nb register usage may need to be adjusted for wiring into mascan i2cm_...
-	mov_lfsr polarities_commanded_buffer, 0
+	mov_lfsr polarity_cmds, 0
 polarity_needwrite_loop
 	rlc_fw	PREINC1		; W = 1RRRRRR? C=1  reverse command
 				; W = 0000001? C=0  not a reversers pic
@@ -191,15 +192,15 @@ polarity_needwrite_loop
 	; we found a pic to tell to polarise:
 
 	mov_fw	FSR1L
-	add_lw	-polarities_commanded_buffer
+	add_lw	-polarity_cmds
 	mov_wf	needwrite_slave
 	pop
 	return
 
 ;----------------------------------------------------------------------
 polarity_master_init
-	panic	morse_RIM
-	; need to set up polarities_commanded_buffer
+	panic	morse_URM
+	; need to set up polarity_cmds
 
 ;======================================================================
  include final.inc