From: ian <ian>
Date: Mon, 2 May 2005 17:17:15 +0000 (+0000)
Subject: T, confirm_address works
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=5e3c989ec2023232702e687252a58d7d5ae3ea38;p=trains.git

T, confirm_address works
---

diff --git a/iwjpictest/harness.asm b/iwjpictest/harness.asm
index da865b1..93d9560 100644
--- a/iwjpictest/harness.asm
+++ b/iwjpictest/harness.asm
@@ -28,9 +28,9 @@
 ;   ~         confirm flags and high nybble    print "`", F, "'", T
 ;
 ;  predefined addresses and operations
-;   A B C D E set setting address to PORTx     S := 0xf80-0xf84
-;   H L Z     set TRIS and LAT rel.to PORT     modify *(S+0x09), *(S+0x92)
-;		according to B			according to B, and print op
+;   A B C D E set setting address to PORTx     S := 0xf80-0xf84, print op
+;   H L Z T   set TRIS and LAT rel.to PORT     modify *(S+0x09), *(S+0x92)
+;		according to B (T: toggle LAT)  according to B, and print op
 ;						NB address addition no carry
 ;
 ;  byte operations
@@ -164,6 +164,7 @@ check_last set minvalue
 	checkequal	'H',	command_trislat_h
 	checkequal	'L',	command_trislat_l
 	checkequal	'Z',	command_trislat_z
+	checkequal	'T',	command_trislat_t
 
 	checkatleast	'E'+1, command_ifnot_portaddr
 	checkatleast	'A', command_portaddr
@@ -241,7 +242,7 @@ command_portaddr
 	set_f		sh
 	mov_fw		original_op
 	rcall		serial_write_char
-	bra		command_address_confirm
+	bra		command_endswitch
 
 ;--------------------
 ; trislat commands
@@ -269,6 +270,11 @@ command_trislat_l
 	and_wff		INDF2
 	bra		command_trislat_nz
 
+command_trislat_t
+	rcall		trislat_setup_indf2_lat
+	xor_wff		INDF2
+	bra		command_trislat_nz
+
 ;----------
 trislat_setup_indf2_lat
 ; W		undefined	B
@@ -308,7 +314,7 @@ confirm_address
 	rcall		serial_write_hex_digit
 	mov_fw		s
 	rcall		serial_write_hex
-	bra		command_endswitch
+	return
 
 command_confirm_flags_highnyb
 	rcall		confirm_flags