Compiling Dungeon on RT-11
From Computer History Wiki
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: <p>
Then create an ini file like this: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
Then go ahead and run it:
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 .
Hit Control+E and “insert” the first Fortran disk
Simulation stopped, PC: 156070 (MOV (SP)+,R2) sim> att rx0 fortran-iv-v021-compiler-files.img RX: buffering file in memory sim> c
Then we are going to do the following:
.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 .
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.
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
Now with that out of the way, we build a test program to make sure our compiler & library are working.
.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 *****
Ok everything looks fine! Now onward to Dungeon! First we copy everything to the RK0 disk…
.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
Then we need to make some space…
.DELETE *.DAT Files deleted: DK:DINDX.DAT ? Y DK:DTEXT.DAT ? Y
Now we can compile the fortran
.@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
So far so good. Now we can delete the source from our primary disk, take note that we don’t delete the demo program:
.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
Next we need to remove the ftn files:
.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
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.
.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?
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.
.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
Now with enough disk space free’d we can copy back the database files needed
.COPY RK1:*.DAT *.* Files copied: RK1:DINDX.DAT to DK:DINDX.DAT RK1:DTEXT.DAT to DK:DTEXT.DAT
And now we can run dungeon!
.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 .
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.
