github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-26 18:14:05 +00:00
Code Issues Releases Wiki Activity

Add closing brackets to WAR.

Browse Source 
To make it assemble with current version of MIDAS.
This commit is contained in:
Lars Brinkhoff
2019-04-09 12:28:08 +02:00
parent d1a783cae1
commit 576472c084
1 changed files with 38 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
src/spcwar/war.44
View File

@@ -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