I was trying to RUN the old CSL game 'TRIREME' and it appears to work
perfectly. Except that it won't let me 'QU.IT'. It will abort however
when attempting to use the 'SK.IP' command with the following error:
**** COMPATABILITY STACK OVERFLOW
ABORT: TRIREME.PUB.TRIREME
Special CM stack marker cap. CM was interrupted
Cap has been removed. ISM used to get CM state.
NM TRANS 31.011a0014
CM SYS % 162.23273 CXFILE+%13310 CISEG2
Program terminated in an error state. (CIERR 976)
Looking at what I think are the relevant lines of
FORTRAN/66 code I see the following:
10 CALL GETNT(NT,OLD)
50 IF (NT.LT.NU) GO TO 100
DISPLAY " * * * Ships advance * * *"
DISPLAY " "
CALL ROMANFIRE
CALL MOVEEVAL
CALL MOVE(M,ISCORE,NT,IDIF)
IF (M.GE.10000) GO TO 500
C DON'T COUNT TIME FOR UPDATE IN INTERVAL!
NKEEP=NT
CALL GETNT(NT,OLD)
NU=NT+NEXT
DISPLAY "Next update at:",NU
+ ," Time used for update:",NT-NKEEP
100 CALL USERCOMM(M,NT,NU,ISCORE)
GO TO 10
500 DISPLAY "SCORE:",ISCORE
CALL TRLEAGUE(ISCORE,IDIF,NAME,NT)
STOP
END
..... [INTERVENING 999~ LINES OF SUBROUTINES] .....
SUBROUTINE USERCOMM(M,NT,NU,ISCORE)
INTEGER*4 ISCORE
CHARACTER GRID*1(40,60)
INTEGER IMOVE(8),JMOVE(8),GREEK,ROMAN
INTEGER CUMHIT(5,2,2)
COMMON NFIRED(5),GREEK(5,12),ROMAN(5,12),GRID
COMMON /CALCS/ SEED,IMOVE,JMOVE
CHARACTER*2 CO
DISPLAY "Time:",NT," Command:"
I=0
J=0
K=0
ACCEPT CO,I,J,K
IF (CO.EQ."MA") CALL MAP(I,J)
IF (CO.EQ."CH") CALL CHANGE(I,J,1)
IF (CO.EQ."BA") CALL CHANGE(I,J,2)
IF (CO.EQ."KE") CALL CHANGE(I,J,3)
IF (CO.EQ."SP") CALL CHANGE(I,J,4)
IF (CO.EQ."SH") CALL OARS(1)
IF (CO.EQ."PU") CALL OARS(2)
IF (CO.EQ."ST") CALL STATUS(NT,ISCORE)
IF (CO.EQ."HE") CALL HELP(2)
IF (CO.EQ."FI") CALL CATAPAULT(I,GREEK,ROMAN,1,IROW,ICOL,CUMHIT)
IF (CO.EQ."QU") M=10000
IF (CO.EQ."SK") NT=NU
RETURN
END
BLOCK DATA
CHARACTER GRID*1(40,60)
INTEGER IMOVE(8),JMOVE(8),GREEK,ROMAN
COMMON /CALCS/ SEED,IMOVE,JMOVE
DATA IMOVE,JMOVE /0,-1,-1,-1,0,1,1,1, 1,1,0,-1,-1,-1,0,1/
END
Tracy Johnson
MSI Schaevitz Sensors
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|