github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-20 16:38:16 +00:00
Code Issues Releases Wiki Activity

MIDAS version 108.

Browse Source 
From SYSENG; MIDAS 108 backed up 1973-03-09; timestamp March 6th.

There apparently is a bug; it's fixed with a binary patch rather than
a source change since ...
This commit is contained in:
Lars Brinkhoff
2018-08-03 12:26:37 +02:00
parent cbbd97956f
commit d731f6ae88
2 changed files with 10059 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
build/misc.tcl
View File

@@ -493,6 +493,34 @@ respond "*" ":midas sys1;ts who%_sysen3;who%\r"
expect ":KILL"
respond "*" ":link sys1;ts %,sys1;ts who%\r"
# midas 108
respond "*" ":midas sysbin;midas 108bin_midas; midas 108\r"
respond "end input with ^C" "EXPUNGE FIX\r"
respond "\n" "PTR==100\r"
respond "\n" "LDBI==ILDB\r"
respond "\n" "DPBI==IPDB\r"
respond "\n" "\003"
expect ":KILL"
respond "*" ":job midas\r"
respond "*" ":load sysbin; midas 108bin\r"
respond "*" "cmdl+7/"
respond "40" "cain a,40\r"
respond "\n" "purify\033g"
respond "PURIFIED" ":pdump midas; ts 108\r"
respond "*" ":kill\r"
# Now, assemble itself!
respond "*" ":midas;108\r"
respond "MIDAS.108" "sysbin;midas 108bin_midas;midas 108\r"
respond "SWITCHES?" ".INEOF\r"
expect ":KILL"
respond "*" ":job midas\r"
#respond "*" ":load sysbin; midas 108bin\r"
#respond "*" "cmdl+7/"
#respond "40" "cain a,40\r"
#respond "\n" "purify\033g"
#respond "PURIFIED" ":pdump midas; ts 108\r"
respond "*" ":kill\r"
# palx
respond "*" ":midas sys;ts palx_sysen1;palx\r"
expect ":KILL"

10031
src/midas/midas.108 Normal file
View File

File diff suppressed because it is too large Load Diff