From 576472c084f3e6e7baf1903057160bd40a6f3f3a Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 9 Apr 2019 12:28:08 +0200
Subject: [PATCH] Add closing brackets to WAR.

To make it assemble with current version of MIDAS.
---
 src/spcwar/war.44 | 76 +++++++++++++++++++++++------------------------
 1 file changed, 38 insertions(+), 38 deletions(-)

diff --git a/src/spcwar/war.44 b/src/spcwar/war.44
index 6f26c990..a152aa4a 100644
--- a/src/spcwar/war.44
+++ b/src/spcwar/war.44
@@ -207,7 +207,7 @@ GAME:	CLEARM GEFLG'
 	MOVE A,TORBRI
 	MOVEM A,TORB1
 	CLEARM SCOREF'
-	MOVE T,[20000,,20000
+	MOVE T,[20000,,20000]
 	MOVSI A,SDISTB-SDISE
 	MOVEM T,SDISTB(A)
 	AOBJN A,.-1
@@ -297,33 +297,33 @@ ML2:	SKIPG MTB(MP2)
 	FADR A,B
 	CAMLE A,ME12
 	JRST MQ2
-ML9:	LDB A,[(270600)MTB(MP1)
+ML9:	LDB A,[(270600)MTB(MP1)]
 	JUMPE A,ML9A
-	LDB B,[(270600)MTB(MP2)
+	LDB B,[(270600)MTB(MP2)]
 	CAMN A,B
 	JRST MQ2
 	JRST ML10
 
-ML9A:	LDB A,[(350600)MTB(MP1)
+ML9A:	LDB A,[(350600)MTB(MP1)]
 	JUMPE A,ML9C
 	MOVEI B,1(MP2)
 	CAMN A,B
 	JRST ML10
 	JRST MQ2
 
-ML9C:	LDB A,[(350600)MTB(MP2)
+ML9C:	LDB A,[(350600)MTB(MP2)]
 	JUMPE A,ML10
 	MOVEI B,1(MP1)
 	CAME A,B
 	JRST MQ2
-ML10:	MOVE A,[SETZ MEX	;EXPLODE
+ML10:	MOVE A,[SETZ MEX]	;EXPLODE
 	MOVEM A,MTB(MP1)
 	MOVEM A,MTB(MP2)
 	MOVE A,MB1(MP1)
 	MOVEM A,MA1(MP1)
 	MOVE A,MB1(MP2)
 	MOVEM A,MA1(MP2)	;STORE LENGTH OF EXPLOSION
-	MOVE T,[20000,,20000
+	MOVE T,[20000,,20000]
 	MOVSI TT,+(.5)
 	CAIL MP1,NSHIPS
 	JRST EXPTP
@@ -359,7 +359,7 @@ EXPTP:	MOVEM T,TORDIS-NSHIPS(MP1)
 EXPTP1:	MOVEM T,TORDIS-NSHIPS(MP2)
 	JRST MQ2
 
-MDN1:	MOVE T,[SETZ CPOPJ
+MDN1:	MOVE T,[SETZ CPOPJ]
 	MOVEM T,MTB(A)
 	SOSG SSING
 	SETOM GEFLG
@@ -378,7 +378,7 @@ MDN1:	MOVE T,[SETZ CPOPJ
 
 SSS:	PUSHJ P,@GETAB(MP1)	;UPDATE SPACE SHIP
 	MOVEM B,GSSSAC(MP1)
-	AND T,[(4000)
+	AND T,[(4000)]
 	MOVEM T,GSSSTS(MP1)
 	SOS MHYP(MP1)
 	TLNE C,200000
@@ -529,20 +529,20 @@ MDN2:	HRRZ C,MTB(A)
 	MOVEI B,2
 	CAMN B,RE1'
 	JRST .-1
-	MOVE B,[1150.0
+	MOVE B,[1150.0]
 	MOVEM B,MDN3Y'
 	MOVSI MP1,-NSHIPS
 
-MDN3:	MOVE A,[.OP FDVR PIE 2.0
+MDN3:	MOVE A,[.OP FDVR PIE 2.0]
 	PUSHJ P,SSANGL
 	MOVEI A,4
 	IRP V,,[XSIN,SXSIN,XCOS,SXCOS,XSIN45,SXSIN45,XCOS45,SXCOS45]
 	IMULM A,V
 	TERMIN
 
-MDN4:	MOVE B,[-200.0
+MDN4:	MOVE B,[-200.0]
 	FADRB B,MDN3Y
-	MOVE C,[100.0
+	MOVE C,[100.0]
 	PUSHJ P,SSDIS
 	AOBJN MP1,MDN4
 	MOVEI B,900.	;Y
@@ -551,8 +551,8 @@ MDN4:	MOVE B,[-200.0
 	MOVEI C,20140
 	MOVEM C,TORB1
 
-MDN5:	MOVE C,[(220000)60300	;PT MODE TO CHARAC.
-	DPB B,[(221200)C
+MDN5:	MOVE C,[(220000)60300]	;PT MODE TO CHARAC.
+	DPB B,[(221200)C]
 	PUSH D,C
 	HRLI D,600
 	PUSHJ P,MDNN
@@ -598,11 +598,11 @@ FALL:	CLEARB B,C
 
 HYPGO:	SKIPLE MHYP(MP1)	;ENTER HYPERSPACE
 	JRST SSNHYP
-	MOVE T,[20000,,20000
+	MOVE T,[20000,,20000]
 	MOVE A,CLRTB(MP1)
 	MOVEM T,(A)
 	AOBJN A,.-1
-	MOVE A,[SETZ HYPI
+	MOVE A,[SETZ HYPI]
 	MOVEM A,MTB(MP1)
 	MOVE A,HYPT1
 	MOVEM A,MHYP(MP1)
@@ -627,15 +627,15 @@ HYPI:	SOSLE MHYP(MP1)	;INVISIBLY IN HYPERSPACE
 HYPO:	SOSG MHYP(MP1)	;VISIBLY IN HYPERSPACE
 	JRST HYPO1
 	MOVE C,MY1(MP1)
-	FADR C,[1.0
+	FADR C,[1.0]
 	SFIX C,-1.
 	MOVE B,MX1(MP1)
 	SFIX B,-1.
 	PUSHJ P,DPY
-	SUB D,[(2)
-	SUB C,[(1)
+	SUB D,[(2)]
+	SUB C,[(1)]
 	PUSHJ P,DPY
-	ADD C,[(2)
+	ADD C,[(2)]
 	JRST DPY
 
 HYPO1:	MOVN B,HYPBO	;BREAK OUT
@@ -651,25 +651,25 @@ HYPO1:	MOVN B,HYPBO	;BREAK OUT
 	PUSHJ P,RANDOM
 	HRLI A,232000
 	FAD A,A
-	FMPR A,[.OP FDVR PIE 131072.0
+	FMPR A,[.OP FDVR PIE 131072.0]
 	MOVEM A,MTH(MP1)
 	IRP XORY,,[X,Y]
 	PUSHJ P,RANDOM
 	HRLI A,232000
 	FAD A,A
-	FSBR A,[131072.0
-	FMPR A,[.OP FDVR 0.14142 262144.0
+	FSBR A,[131072.0]
+	FMPR A,[.OP FDVR 0.14142 262144.0]
 	FMPR A,NFU
 	MOVEM A,MD!XORY(MP1)
 	TERMIN
 	JRST SSS
 
 
-SEXP:	MOVE T,[SETZ MEX
+SEXP:	MOVE T,[SETZ MEX]
 	MOVEM T,MTB(MP1)
 	MOVE T,MB1(MP1)
 	MOVEM T,MA1(MP1)
-	MOVE T,[20000,,20000
+	MOVE T,[20000,,20000]
 	MOVE A,CLRTB(MP1)
 	MOVEM T,(A)
 	AOBJN A,.-1
@@ -677,11 +677,11 @@ SEXP:	MOVE T,[SETZ MEX
 
 CGRAV:	MOVEI XFLAG,0
 	MOVE T,MX1(MP1)
-	FSBR T,[512.0
+	FSBR T,[512.0]
 	MOVEM T,T1'
 	FMPR T,T
 	MOVE TT,MY1(MP1)
-	FSBR TT,[512.0
+	FSBR TT,[512.0]
 	MOVEM TT,T2'
 	FMPR TT,TT
 	FADR T,TT
@@ -698,10 +698,10 @@ CGRAV:	MOVEI XFLAG,0
 	POPJ P,
 
 
-SSANGL:	CAML A,[.OP FMPR PIE 2.0
-	FSBR A,[.OP FMPR PIE 2.0
+SSANGL:	CAML A,[.OP FMPR PIE 2.0]
+	FSBR A,[.OP FMPR PIE 2.0]
 	SKIPGE A
-	FADR A,[.OP FMPR PIE 2.0
+	FADR A,[.OP FMPR PIE 2.0]
 	MOVEM A,MTH(MP1)
 	PUSHJ P,SIN"
 	MOVEM A,FSIN'
@@ -717,14 +717,14 @@ SSANGL:	CAML A,[.OP FMPR PIE 2.0
 	MOVEM B,XCOS'
 	MOVEM B,SXCOS'
 	MOVE A,MTH(MP1)
-	FADR A,[.OP FDVR PIE 4.0
+	FADR A,[.OP FDVR PIE 4.0]
 	PUSHJ P,SIN"
 	MOVEM A,FSIN45'
 	SSFIX A,-1
 	MOVEM B,XSIN45'
 	MOVEM B,SXSIN45'
 	MOVE A,MTH(MP1)
-	FADR A,[.OP FDVR PIE 4.0
+	FADR A,[.OP FDVR PIE 4.0]
 	PUSHJ P,COS
 	MOVEM A,FCOS45'
 	SSFIX A,-1
@@ -775,9 +775,9 @@ MDNN:	MOVE T,SCORE(MP1)
 	HLRM D,TORDIS-NSHIPS(MP1)
 	POPJ P,
 
-TEXP:	MOVE T,[SETZ MEX
+TEXP:	MOVE T,[SETZ MEX]
 	MOVEM T,MTB(MP1)
-	MOVE T,[20000,,20000
+	MOVE T,[20000,,20000]
 	MOVEM T,TORDIS-NSHIPS(MP1)
 	XCT TXTM	;LENGTH OF EXPLOSION
 	MOVEM T,MA1(MP1)
@@ -785,8 +785,8 @@ CPOPJ:	POPJ P,
 
 DPY:	HLL MP2,D	;X IN C Y IN D
 	HLR MP2,C
-	ANDCM MP2,[776000,,776000
-	IOR MP2,[220000,,22000
+	ANDCM MP2,[776000,,776000]
+	IOR MP2,[220000,,22000]
 DPY1:	AOS Q,DPYP
 	MOVEM MP2,-1(Q)
 	CAIE Q,VDIS2
@@ -1003,7 +1003,7 @@ BK1:	CONO DIS,100
 
 BKWRAP:	0
 	PUSH P,A
-	MOVE A,[(,BKBEG"-BKEND"+1)BKBEG"-1
+	MOVE A,[(,BKBEG"-BKEND"+1)BKBEG"-1]
 	MOVEM A,DISPNR
 	POP P,A
 	JRST 12,@BKWRAP