mirror of
https://github.com/PDP-10/its.git
synced 2026-03-03 10:22:59 +00:00
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.
This commit is contained in:
committed by
Lars Brinkhoff
parent
de1bd31589
commit
e56de6edc1
@@ -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"
|
||||
|
||||
@@ -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/
|
||||
|
||||
]
|
||||
|
||||
@@ -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.
|
||||
Reference in New Issue
Block a user