From e56de6edc1cc5c22b1dff689fdf8db3134910892 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Fri, 24 Feb 2023 18:06:05 -0800
Subject: [PATCH] Change location of MDL 54 pure library to allow old Zork to
 run.

- Update MDL 54 interpreter to look in MUDSAV;SAV 54FILE and MUDSAV;FIXUP 54FILE
  for pure library.
- Update MKSVFL utility to create pure library in new location.
- Update muddle.tcl to run MKSVFL to create dummy pure library.
---
 build/muddle.tcl                      | 6 ++++--
 src/muds54/{mappur.203 => mappur.204} | 4 ++--
 src/mudsys/{mksvfl.1 => mksvfl.2}     | 8 ++++----
 3 files changed, 10 insertions(+), 8 deletions(-)
 rename src/muds54/{mappur.203 => mappur.204} (99%)
 rename src/mudsys/{mksvfl.1 => mksvfl.2} (91%)

diff --git a/build/muddle.tcl b/build/muddle.tcl
index 794973ef..b681be97 100644
--- a/build/muddle.tcl
+++ b/build/muddle.tcl
@@ -26,8 +26,10 @@ build_muddle "mudsys" "56"
 # Generate SAV FILE and FIXUP FILE for Muddle pure code library
 respond "*" ":midas mudsys; ts mksvfl_mudsys;mksvfl\r"
 expect ":KILL"
-# For now, we don't run this since the resulting files are empty,
-# and we are using known good files from backup tapes instead.
+
+# Run mksvfl to create pure library for MDL 54 for the purposes of the 500-point zork
+respond "*" ":mudsys;mksvfl\r"
+expect ":KILL"
 
 respond "*" ":midas sys3; ts mudinq_sysen2; mudinq\r"
 expect ":KILL"
diff --git a/src/muds54/mappur.203 b/src/muds54/mappur.204
similarity index 99%
rename from src/muds54/mappur.203
rename to src/muds54/mappur.204
index 0f2e258f..3714295f 100644
--- a/src/muds54/mappur.203
+++ b/src/muds54/mappur.204
@@ -1282,10 +1282,10 @@ MNDIR:	SIXBIT /MUDSAV/				; DIR OF MAIN DATA BASE FILES
 WRKDIR:	SIXBIT /MUDTMP/				; DIRECTORY OF UPDATE FILES
 MNBLK:	SIXBIT /  &DSK/
 	SIXBIT /SAV/
-	SIXBIT /FILE/
+	SIXBIT /54FILE/
 FIXBLK:	SIXBIT /  &DSK/
 	SIXBIT /FIXUP/
-	SIXBIT /FILE/
+	SIXBIT /54FILE/
 
 ]
 
diff --git a/src/mudsys/mksvfl.1 b/src/mudsys/mksvfl.2
similarity index 91%
rename from src/mudsys/mksvfl.1
rename to src/mudsys/mksvfl.2
index f6efd6ae..34a00d90 100644
--- a/src/mudsys/mksvfl.1
+++ b/src/mudsys/mksvfl.2
@@ -1,5 +1,5 @@
 ; -*-MIDAS-*-
-TITLE MKSVFL -- Make a new Muddle SAV FILE and FIXUP FILE
+TITLE MKSVFL -- Make a new Muddle SAV 54FILE and FIXUP 54FILE
 
 O=0
 A=1
@@ -29,14 +29,14 @@ LOC 100
 
 START:	MOVE	P,[-PDLSIZE,PDL]
 
-	MOVEI	A,[SIXBIT /SAV/]	;write SAV FILE
+	MOVEI	A,[SIXBIT /SAV/]	;write SAV 54FILE
 	MOVEM	A,OPNNM1
 	.CALL	OPNBLK
 	 .LOSE
 	.IOT	OUTCH,[-<SFEND-SFBEG>,,SFBEG]
 	.CLOSE	OUTCH,
 
-	MOVEI	A,[SIXBIT /FIXUP/]	;write FIXUP FILE
+	MOVEI	A,[SIXBIT /FIXUP/]	;write FIXUP 54FILE
 	MOVEM	A,OPNNM1
 	.CALL	OPNBLK
 	 .LOSE
@@ -52,7 +52,7 @@ OPNBLK:	SETZ
 	[.BIO,,OUTCH]
 	[SIXBIT /DSK/]
 OPNNM1:	0
-	[SIXBIT /FILE/]
+	[SIXBIT /54FILE/]
 	SETZ [SIXBIT /MUDSAV/]
 
 ; PAGE...ENDPAGE pad the data between them to PGSIZE words.