From d1a783cae10700d4718ae2ee819c5669f705c780 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 9 Apr 2019 12:24:03 +0200
Subject: [PATCH] Fix tape reader corruption in WAR.

---
 src/spcwar/war.44 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/spcwar/war.44 b/src/spcwar/war.44
index 20d37fc2..6f26c990 100644
--- a/src/spcwar/war.44
+++ b/src/spcwar/war.44
@@ -149,7 +149,7 @@ A:	IRPC C,,[B]
 	IFSE [C]7,[INST ADD,X,XCOS45
 	INST ADD,Y,SXSIN45
 ]
-	IFSE [C]8.[ANST ADD,X,XSIN45
+	IFSE [C]8,[INST ADD,X,XSIN45
 	INST SUB,Y,SXCOS45
 ]
 	IFSE [C]S,[	PUSH P,D
@@ -568,7 +568,7 @@ MDN6:	MOVSI TT,3000
 	MOVEM TT,1(D)
 	SETOM SCOREF'
 
-MDN8:	SETOB(MP0,Q
+MDN8:	SETOB MP2,Q
 	MOVSI MP1,-NSHIPS
 
 MDN7:	PUSHJ P,@GETAB(MP1)