View source for Compiling Dungeon on RT-11

Thanks to the countless comments on the SIMH list, and the final missing step from Peter Schorn, one of the source copies of Dungeon now builds.

Naturally you'll need [[SIMH]]'s pdp11 emulator.

If you want to follow along, you’ll need the pdp11 emulator from SIMH, and the following disk images:
*[http://simh.trailing-edge.com/kits/rt11swre.tar.Z rt11swre.tar.Z]
*[http://www.headcrashers.org/comp/rx01/fortran-iv/fortran-iv-v021-compiler-files.img fortran-iv-v021-compiler-files.img]
*[http://www.headcrashers.org/comp/rx01/fortran-iv/fortran-iv-v021-objecttime-system.img fortran-iv-v021-objecttime-system.img]
*[http://www.ibiblio.org/pub/academic/computer-science/history/pdp-11/rt/dsk/misc/dunsrc.dsk dunsrc.dsk]

Then create an ini file like this:

<pre>
set cpu 256k 
set rq0 rx50 
set rq1 rx50 
set rq2 rx50 
set rq3 rx50

att rk0 rtv4_rk.dsk 
att rk1 dunsrc.dsk

boot rk0
</pre>

Then go ahead and run it:
<pre>
PDP-11 simulator V3.8-1 
Disabling CR

RT-11SJ V04.00C

.D 56=5015

.TYPE V4USER.TXT 
Welcome to RT-11 Version 4. RT-11 V04 provides new hardware support 
and some major enhancements over Version 3B.

Please use the HELP command; it describes the new options in many 
of the utilities.

If you are using a terminal that requires fill characters, 
modify location 56 with a Deposit command before proceeding with 
system installation. LA36 DECwriter II and VT52 DECscope terminals 
do NOT require such modification.

.D 56=0

.
</pre>
Hit Control+E and “insert” the first Fortran disk

<pre>
Simulation stopped, PC: 156070 (MOV (SP)+,R2) 
sim> att rx0 fortran-iv-v021-compiler-files.img 
RX: buffering file in memory 
sim> c
</pre>
Then we are going to do the following:

<pre>
.ASSIGN RK0: OUP

.ASSIGN DX0 INP

.R PIP 
*SY:*.*=INP:FORTRA.HLP,DEMO.FOR 
*^C

.RUN INP:FORGEN 
Answer questions with: 
"?" or carriage return (<CR>) for information, 
YES(Y) for affirmation, anything else for NO.

A maximum of 56 lines are allowed per listing page. 
Is this acceptable? Y 
A maximum of 136 characters are allowed in a formatted 
(ASCII) record. Is this acceptable? Y 
A maximum of 6 channels may be open at a given time. 
Is this acceptable? Y 
The FORTRAN compiler can compile system-specific OPEN and CLOSE 
statement keywords for RT-11, RSX-11, and RSTS/E systems. These 
statements are currently compiled for the following system: RT-11 
Is this acceptable? Y 
FORTRAN can produce inline code for EAE, EIS or FIS hardware, 
or it can produce threaded (THR) code which is hardware independent. 
Should the compiler produce EAE code? N 
Should the compiler produce EIS code? N 
Should the compiler produce FIS code? N 
Should the compiler produce THR code? Y 
The inline compiler can optimize for SPEED or for SIZE. These 
optimizations are mutually exclusive. Do you want 
the optimization to be for SPEED? N 
Do you wish a threaded only compiler? Y 
Compiler options selection complete.

.@INP:F4LTHR

.R LINK 
*OUP:FORTRA=INP:FROOT///S 
*INP:F0,INLINE,OUP:DEFLTS/O:1 
*INP:F1/O:1 
*INP:F2/O:1 
*INP:F3/O:1 
*INP:F4/O:1 
*INP:F5/O:1 
*INP:F6/O:1 
*INP:F7/O:1 
*INP:F8/O:1 
*INP:F9/O:1 
*INP:F10/O:1 
*INP:LOOP/O:1 
*INP:F11/O:1 
*INP:F12/O:1 
*INP:F13/O:1 
*INP:F14/O:1 
*INP:F15/O:1 
*INP:F16/O:1 
*INP:F17/O:1 
*INP:CDUMP/O:1// 
*^C

.
</pre>
Ok, now the compiler should be created. We next need to interrupt the emulator again (control+e) and insert the objecttime diskette. We will now build our Fortran library.

<pre>
Simulation stopped, PC: 151412 (ASL R3) 
sim> att rx0 fortran-iv-v021-objecttime-system.img 
RX: writing buffer to file 
RX: buffering file in memory 
sim> c


.R LIBR 
*OUP:FORLIB=INP:NHD,OTSCOM,NOVIR,V2NS/G 
Global? $ERRS 
Global? $ERRTB 
Global? $VRINT 
Global? 
*^C
</pre>
Now with that out of the way, we build a test program to make sure our compiler & library are working.
<pre>
.COMPILE DEMO.FOR 
.MAIN.

.LINK DEMO,FORLIB

.RUN DEMO 
***** RT11 FORTRAN IV V2 DEMONSTRATION TEST *****

INSTALLATION SUCCESSFUL IF NO ERROR MESSAGES 
WERE PRINTED ABOVE.

**** FORTRAN DEMONSTRATION TEST COMPLETE *****
</pre>
Ok everything looks fine! Now onward to Dungeon! First we copy everything to the RK0 disk…
<pre>
.COPY RK1:*.* *.* 
Files copied: 
RK1:ACTORS.FTN to DK:ACTORS.FTN 
RK1:CLOCKR.FTN to DK:CLOCKR.FTN 
RK1:DEMONS.FTN to DK:DEMONS.FTN 
RK1:DGAME.FTN to DK:DGAME.FTN 
RK1:DINIT.FTN to DK:DINIT.FTN 
RK1:DMAIN.FTN to DK:DMAIN.FTN 
RK1:DSUB.FTN to DK:DSUB.FTN 
RK1:DUNGEO.DOC to DK:DUNGEO.DOC 
RK1:DVERB1.FTN to DK:DVERB1.FTN 
RK1:DVERB2.FTN to DK:DVERB2.FTN 
RK1:GDT.FTN to DK:GDT.FTN 
RK1:OBJCTS.FTN to DK:OBJCTS.FTN 
RK1:RRND.MAC to DK:RRND.MAC 
RK1:RSXTIM.MAC to DK:RSXTIM.MAC 
RK1:SVERBS.FTN to DK:SVERBS.FTN 
RK1:VERBS.FTN to DK:VERBS.FTN 
RK1:VMSRND.MAC to DK:VMSRND.MAC 
RK1:BALLOP.FOR to DK:BALLOP.FOR 
RK1:DINDX.DAT to DK:DINDX.DAT 
RK1:DSO1.FOR to DK:DSO1.FOR 
RK1:DSO2.FOR to DK:DSO2.FOR 
RK1:DSO3.FOR to DK:DSO3.FOR 
RK1:DSO4.FOR to DK:DSO4.FOR 
RK1:DSO5.FOR to DK:DSO5.FOR 
RK1:DSO6.FOR to DK:DSO6.FOR 
RK1:DSO7.FOR to DK:DSO7.FOR 
RK1:LIGHTP.FOR to DK:LIGHTP.FOR 
RK1:NOBJS.FOR to DK:NOBJS.FOR 
RK1:NP.FOR to DK:NP.FOR 
RK1:NP1.FOR to DK:NP1.FOR 
RK1:NP2.FOR to DK:NP2.FOR 
RK1:NP3.FOR to DK:NP3.FOR 
RK1:NROOMS.FOR to DK:NROOMS.FOR 
RK1:ROOMS.FOR to DK:ROOMS.FOR 
RK1:RTTIM.FOR to DK:RTTIM.FOR 
RK1:SOBJS.FOR to DK:SOBJS.FOR 
RK1:VILLNS.FOR to DK:VILLNS.FOR 
RK1:VMSTIM.FOR to DK:VMSTIM.FOR 
RK1:D.ODL to DK:D.ODL 
RK1:DTEXT.DAT to DK:DTEXT.DAT 
RK1:RSTSCB.CTL to DK:RSTSCB.CTL 
RK1:RSXBLD.CMD to DK:RSXBLD.CMD 
RK1:RSXCMP.CMD to DK:RSXCMP.CMD 
RK1:RTBLD.COM to DK:RTBLD.COM 
RK1:RTCMP.COM to DK:RTCMP.COM 
RK1:VMSBLD.COM to DK:VMSBLD.COM 
RK1:VMSCMP.COM to DK:VMSCMP.COM
</pre>
Then we need to make some space…
<pre>
.DELETE *.DAT 
Files deleted: 
DK:DINDX.DAT ? Y 
DK:DTEXT.DAT ? Y
</pre>
Now we can compile the fortran
<pre>
.@RTCMP

.COM/NOLINE DMAIN.FTN,DGAME.FTN,DSUB.FTN 
DUNGEO 
GAME 
XENDMV 
XVEHIC 
RSPEAK 
RSPSUB 
RSPSB2 
OBJACT 
BUG 
NEWSTA 
QHERE 
QEMPTY 
JIGSUP 
?FORTRAN-I-[JIGSUP] Errors: 0, Warnings: 4 
OACTOR 
PROB 
RMDESC 
RAPPLI

.COM/NOLINE DINIT.FTN 
INIT 
PROTCT

.COM/NOLINE NP,NP1,NP2,NP3 
RDLINE 
PARSE 
ORPHAN 
LEX 
SPARSE 
?FORTRAN-I-[SPARSE] Errors: 0, Warnings: 1 
GETOBJ 
?FORTRAN-I-[GETOBJ] Errors: 0, Warnings: 1 
SCHLST 
?FORTRAN-I-[SCHLST] Errors: 0, Warnings: 2 
THISIT 
SYNMCH 
UNPACK 
SYNEQL 
TAKEIT 
GWIM

.COM/NOLINE/NOVEC GDT.FTN 
GDT

.COM/NOLINE VERBS.FTN,OBJCTS.FTN 
VAPPLI 
?FORTRAN-I-[VAPPLI] Errors: 0, Warnings: 1 
CLOCKD 
OAPPLI

.COM/NOLINE SVERBS.FTN,DVERB1.FTN,DVERB2.FTN,ACTORS.FTN,DEMONS.FTN,CLOCKR.FTN 
SVERBS 
TAKE 
DROP 
PUT 
VALUAC 
SAVEGM 
RSTRGM 
WALK 
CXAPPL 
AAPPLI 
THIEFD 
?FORTRAN-I-[THIEFD] Errors: 0, Warnings: 3 
FIGHTD 
BLOW 
SWORDD 
?FORTRAN-I-[SWORDD] Errors: 0, Warnings: 1 
INFEST 
CEVAPP 
?FORTRAN-I-[CEVAPP] Errors: 0, Warnings: 4 
LITINT

.COM/NOLINE ROOMS.FOR,NROOMS.FOR 
RAPPL1 
?FORTRAN-I-[RAPPL1] Errors: 0, Warnings: 2 
RAPPL2 
?FORTRAN-I-[RAPPL2] Errors: 0, Warnings: 1 
LOOKTO 
EWTELL

.COM/NOLINE SOBJS.FOR,NOBJS.FOR,BALLOP.FOR,LIGHTP.FOR,VILLNS.FOR 
SOBJS 
?FORTRAN-I-[SOBJS ] Errors: 0, Warnings: 1 
NOBJS 
?FORTRAN-I-[NOBJS ] Errors: 0, Warnings: 2 
MIRPAN 
BALLOP 
LIGHTP 
TROLLP 
CYCLOP 
THIEFP 
?FORTRAN-I-[THIEFP] Errors: 0, Warnings: 2

.COM/NOLINE DSO1.FOR,DSO2.FOR,DSO3.FOR,DSO4.FOR,DSO5.FOR,DSO6.FOR,DSO7.FOR 
PRINCR 
?FORTRAN-I-[PRINCR] Errors: 0, Warnings: 2 
INVENT 
?FORTRAN-I-[INVENT] Errors: 0, Warnings: 1 
PRINCO 
MOVETO 
SCORE 
SCRUPD 
FINDXT 
FWIM 
YESNO 
ROBADV 
?FORTRAN-I-[ROBADV] Errors: 0, Warnings: 1 
ROBRM 
?FORTRAN-I-[ROBRM ] Errors: 0, Warnings: 1 
WINNIN 
FIGHTS 
VILSTR 
GTTIME 
OPNCLS 
LIT 
?FORTRAN-I-[LIT ] Errors: 0, Warnings: 1 
WEIGHT 
?FORTRAN-I-[WEIGHT] Errors: 0, Warnings: 1 
GHERE 
MRHERE 
ENCRYP 
CPGOTO 
?FORTRAN-I-[CPGOTO] Errors: 0, Warnings: 1 
CPINFO

.COM/NOLINE RTTIM.FOR 
ITIME

.COM RRND.MAC 
ERRORS DETECTED: 0
</pre>
So far so good. Now we can delete the source from our primary disk, take note that we don’t delete the demo program:
<pre>
.DELETE *.FOR 
Files deleted: 
DK:DEMO.FOR ? N 
DK:BALLOP.FOR ? Y 
DK:RTTIM.FOR ? Y 
DK:VMSTIM.FOR ? Y 
DK:DEMOF1.FOR ? Y 
DK:DSO3.FOR ? Y 
DK:TEST55.FOR ? Y 
DK:GETSTR.FOR ? Y 
DK:PUTSTR.FOR ? Y 
DK:DSO1.FOR ? Y 
DK:DSO2.FOR ? Y 
DK:DSO4.FOR ? Y 
DK:DSO5.FOR ? Y 
DK:DSO6.FOR ? Y 
DK:DSO7.FOR ? Y 
DK:LIGHTP.FOR ? Y 
DK:NOBJS.FOR ? Y 
DK:NP.FOR ? Y 
DK:NP1.FOR ? Y 
DK:NP2.FOR ? Y 
DK:NP3.FOR ? Y 
DK:NROOMS.FOR ? Y 
DK:ROOMS.FOR ? Y 
DK:SOBJS.FOR ? Y 
DK:VILLNS.FOR ? Y
</pre>
Next we need to remove the ftn files:
<pre>
.DEL *.FTN 
Files deleted: 
DK:ACTORS.FTN ? Y 
DK:CLOCKR.FTN ? Y 
DK:DEMONS.FTN ? Y 
DK:DGAME.FTN ? Y 
DK:DINIT.FTN ? Y 
DK:DMAIN.FTN ? Y 
DK:DSUB.FTN ? Y 
DK:DVERB1.FTN ? Y 
DK:DVERB2.FTN ? Y 
DK:GDT.FTN ? Y 
DK:OBJCTS.FTN ? Y 
DK:SVERBS.FTN ? Y 
DK:VERBS.FTN ? Y
</pre>
Now we are going to link our executable dungeo.sav . However the default link procedures will not work for us, it’s just easier to paste this entire thing into the console.
<pre>
.LINK/INCLU/PRO/MAP:NL:/BOT:1200/EXE:DUNGEO DMAIN,DGAME,DSUB,RRND,RTTIM 
*DINIT,GDT/O:1 
*NP,NP1,NP2,NP3/O:1 
*VERBS,OBJCTS/O:1 
*SVERBS/O:2 
*DVERB1/O:2 
*DVERB2/O:2 
*ACTORS/O:2 
*DEMONS/O:2 
*CLOCKR/O:2 
*ROOMS/O:3 
*NROOMS/O:3 
*SOBJS/O:3 
*NOBJS/O:3 
*BALLOP,LIGHTP,VILLNS/O:3 
*DSO1/O:4 
*DSO2/O:4 
*DSO3/O:4 
*DSO4/O:4 
*DSO5/O:4 
*DSO6/O:4 
*DSO7/O:4 
*SY:FORLIB// 
Library search? $SHORT 
Library search?
</pre>
Now we don’t need the object files anymore they can be deleted. However we are NOT going to delete the system objects so this isn’t a wholesale deletion.
<pre>
.DEL *.OBJ 
Files deleted: 
DK:SYSLIB.OBJ ? N 
DK:ODT.OBJ ? N 
DK:VDT.OBJ ? N 
DK:VTHDLR.OBJ ? N 
DK:PLOT55.OBJ ? N 
DK:DEFLTS.OBJ ? N 
DK:FORLIB.OBJ ? N 
DK:DEMO.OBJ ? Y 
DK:DMAIN.OBJ ? Y 
DK:DGAME.OBJ ? Y 
DK:DSUB.OBJ ? Y 
DK:DINIT.OBJ ? Y 
DK:NP.OBJ ? Y 
DK:NP1.OBJ ? Y 
DK:NP2.OBJ ? Y 
DK:NP3.OBJ ? Y 
DK:GDT.OBJ ? Y 
DK:VERBS.OBJ ? Y 
DK:OBJCTS.OBJ ? Y 
DK:SVERBS.OBJ ? Y 
DK:DVERB1.OBJ ? Y 
DK:DVERB2.OBJ ? Y 
DK:ACTORS.OBJ ? Y 
DK:DEMONS.OBJ ? Y 
DK:CLOCKR.OBJ ? Y 
DK:ROOMS.OBJ ? Y 
DK:NROOMS.OBJ ? Y 
DK:SOBJS.OBJ ? Y 
DK:NOBJS.OBJ ? Y 
DK:BALLOP.OBJ ? Y 
DK:LIGHTP.OBJ ? Y 
DK:VILLNS.OBJ ? Y 
DK:DSO1.OBJ ? Y 
DK:DSO2.OBJ ? Y 
DK:DSO3.OBJ ? Y 
DK:DSO4.OBJ ? Y 
DK:DSO5.OBJ ? Y 
DK:DSO6.OBJ ? Y 
DK:DSO7.OBJ ? Y 
DK:RTTIM.OBJ ? Y 
DK:RRND.OBJ ? Y
</pre>
Now with enough disk space free’d we can copy back the database files needed
<pre>
.COPY RK1:*.DAT *.* 
Files copied: 
RK1:DINDX.DAT to DK:DINDX.DAT 
RK1:DTEXT.DAT to DK:DTEXT.DAT
</pre>
And now we can run dungeon!
<pre>
.R DUNGEO 
Welcome to Dungeon. This version created 18-JUL-80. 
You are in an open field west of a big white house with a boarded 
front door. 
There is a small mailbox here. 
>HISTORY 
Revision history:

18-JUL-80 Transportable data base file (V2.5A). 
28-FEB-80 Compressed text file (V2.4A). 
15-NOV-79 Bug fixes (V2.3A). 
18-JAN-79 Revised DECUS version (V2.2A). 
10-OCT-78 Puzzle Room (V2.1A). 
10-SEP-78 Endgame (V2.0A). 
10-AUG-78 DECUS version (V1.1B). 
14-JUN-78 Public version with parser (V1.1A). 
4-MAR-78 Debugging version (V1.0A). 
>QUIT 
Your score would be 0 [total of 585 points], in 2 moves. 
This gives you the rank of Beginner. 
Do you wish to leave the game? 
Y

.
</pre>
You can always hit control+e to exit SIMH.

Well there you have it, the Fortran installation, compilation, linking & execution of the oldest source version I can find at the moment of Dungeon/Zork. Who knows, maybe someday this may help someone revive other old programs.

[[Category:Tutorials]]