From fcd945b381d96cf9c222b7adf8d2503b33483293 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 29 Jul 2018 12:59:24 +0200
Subject: [PATCH] Fix hazardous instructions in URUG.

Replace CMP Rn,(Rn)+ with TST (Rn)+ to appease PALX.
---
 src/sysen2/{urug.27 => urug.28} | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)
 rename src/sysen2/{urug.27 => urug.28} (98%)

diff --git a/src/sysen2/urug.27 b/src/sysen2/urug.28
similarity index 98%
rename from src/sysen2/urug.27
rename to src/sysen2/urug.28
index a1c15720..c3b2a4c4 100755
--- a/src/sysen2/urug.27
+++ b/src/sysen2/urug.28
@@ -101,7 +101,7 @@ SCRL2:	MOV #20040,(R0)+	;ERASE BOTTOM LINE
 	CMP #DISL+140,R0
 	BNE SCRL2
 	MOV #5015,-(R0)
-RETURN:	CMP R3,(R3)+
+RETURN:	TST (R3)+
 	MOV R3,R7
 DPOSIT:	MOV R2,@R4	;DEPOSIT THE ARGUMENT
 	MOV R7,R3
@@ -112,7 +112,7 @@ CHEKLF:	CMP #12,R5
 .IFZ USEBPT
 AUTOPN:
 .ENDC
-	CMP R4,(R4)+
+	TST (R4)+
 .IFNZ USEBPT
 AUTOPN:
 .ENDC
@@ -208,4 +208,3 @@ DISBEG:	170000	;LSR A
 	DISL
 
 .END
-
\ No newline at end of file