From d1023d1a07439e8eaf28b34ba8af1dffb0533d44 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 25 Feb 2024 20:40:17 +0100
Subject: [PATCH] Fix .TRANS in TJ6.

Must read a new character after the comma, before looping around.
---
 src/tj6/{tj6.30 => tj6.31} | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)
 rename src/tj6/{tj6.30 => tj6.31} (99%)

diff --git a/src/tj6/tj6.30 b/src/tj6/tj6.31
similarity index 99%
rename from src/tj6/tj6.30
rename to src/tj6/tj6.31
index 2f26c0b2..c014420b 100644
--- a/src/tj6/tj6.30
+++ b/src/tj6/tj6.31
@@ -3414,9 +3414,10 @@ ATRANS:	MOVE	K,A		;.TRANS
 	PUSHJ	P,RCSV
 	MOVEM	A,TRNTBL(K)
 	PUSHJ	P,RCSV
-	CAIN	A,",
-	JRST	ATRANS
+	CAIE	A,",
 	POPJ	P,
+	PUSHJ	P,RCSV
+	JRST	ATRANS
 
 ASTERM:	MOVEM	A,STERMC	;.STERM
 	POPJ	P,