Skip to content

Commit 4d7716d

Browse files
larsbrinkhofflarsbrinkhoff
committed
Add TCL procedures for running MIDAS 73, 77, or 324.
1 parent d96ce5b commit 4d7716d

File tree

4 files changed

+57
-94
lines changed

4 files changed

+57
-94
lines changed

‎build/build.tcl

+13
Original file line numberDiff line numberDiff line change
@@ -183,6 +183,19 @@ proc midast {target source {action ""}} {
183183
midas "/t $target" $source $action
184184
}
185185

186+
proc omidas {target source {action ""}} {
187+
respond "*" ":midas;324 ${target}_$source\r"
188+
eval $action
189+
expect ":KILL"
190+
}
191+
192+
proc oomidas {version target source {action ""}} {
193+
respond "*" ":midas;$version\r"
194+
respond "MIDAS.$version" "${target}_$source\r"
195+
eval $action
196+
expect ":KILL"
197+
}
198+
186199
proc macro10 {target sources} {
187200
respond "*" ":macro\r"
188201
respond "*" "$target=$sources\r"

‎build/ka10/processor.tcl

+30-59
Original file line numberDiff line numberDiff line change
@@ -3,21 +3,15 @@ log_progress "ENTERING BUILD SCRIPT: PROCESSOR"
33
# Programs particular to the KA10 processor.
44

55
# macdmp, PDP-10 hardware read in, with 340 support.
6-
respond "*" ":midas;77\r"
7-
respond "MIDAS.77" ".;MACDMP RIM10_SYSENG; MACDMP MOBY1\r"
8-
expect ":KILL"
6+
oomidas 77 ".;MACDMP RIM10" "SYSENG; MACDMP MOBY1"
97
# macdmp, PDP-6 read in hack.
10-
respond "*" ":midas;77\r"
11-
respond "MIDAS.77" ".;MACDMP RIM2_SYSENG; MACDMP 6U32\r"
12-
expect ":KILL"
8+
oomidas 77 ".;MACDMP RIM2" "SYSENG; MACDMP 6U32"
139

1410
# system gen
15-
respond "*" ":midas;324 dsk0:.;@ sysgen_syseng; system gen\r"
16-
expect ":KILL"
11+
omidas "dsk0:.;@ sysgen" "syseng; system gen"
1712

1813
# mark
19-
respond "*" ":midas;324 dsk0:.;@ mark_syseng; mark\r"
20-
expect ":KILL"
14+
omidas "dsk0:.;@ mark" "syseng; mark"
2115

2216
# utnam
2317
midas "sys3; ts utnam" "lars; utnam"
@@ -48,12 +42,9 @@ palx "cons;" "lmcons;ccons"
4842

4943
# Old Spacewar
5044
cwd "spcwar"
51-
respond "*" ":midas;324 spcwar; war\r"
52-
expect ":KILL"
45+
omidas "spcwar;" "war"
5346
midas "spcwar;" "stars"
54-
expect ":KILL"
55-
respond "*" ":midas;324 spcwar; math\r"
56-
expect ":KILL"
47+
omidas "spcwar;" "math"
5748
respond "*" ":stink\r"
5849
respond "\n" "mspcwar; war\033l\033\033"
5950
respond "\n" "mstars\033l\033\033"
@@ -64,14 +55,14 @@ respond " " "dsk0:.;@ war\r"
6455
respond "*" ":kill\r"
6556

6657
# Spacewar, standalone
67-
respond "*" ":midas;324 dsk0:.;@ spcwar_spcwar; spcwar\r"
68-
respond "ITS version" "NO\r"
69-
respond "interrupt" "NO\r"
70-
respond "ships" "\r"
71-
respond "designs" "\r"
72-
respond "suns" "\r"
73-
respond "recording" "\r"
74-
expect ":KILL"
58+
omidas "dsk0:.;@ spcwar" "spcwar; spcwar" {
59+
respond "ITS version" "NO\r"
60+
respond "interrupt" "NO\r"
61+
respond "ships" "\r"
62+
respond "designs" "\r"
63+
respond "suns" "\r"
64+
respond "recording" "\r"
65+
}
7566

7667
# Spacewar, timesharing
7768
midas "games;ts spcwar" "spcwar; spcwar" {
@@ -85,9 +76,9 @@ midas "games;ts spcwar" "spcwar; spcwar" {
8576
midas "games;ts dazdrt" "klh; dazdrt" {
8677
respond "Run under ITS?" "YES\r"
8778
}
88-
respond "*" ":midas;324 dsk0:.;@ dazdrt_klh; dazdrt\r"
89-
respond "Run under ITS?" "NO\r"
90-
expect ":KILL"
79+
omidas "dsk0:.;@ dazdrt" "klh; dazdrt" {
80+
respond "Run under ITS?" "NO\r"
81+
}
9182

9283
# Knight TV Spacewar
9384
midas "gjd;" "swr data"
@@ -140,19 +131,16 @@ midas "sys2;ts munch" "sysen2;munch"
140131
midas "dsk0:.;@ titler" "mb; titler"
141132

142133
# MLIFE
143-
respond "*" ":midas;324 games;ts mlife_rwg;mlife\r"
144-
expect ":KILL"
145-
respond "*" ":midas;324 /t dsk0:.;@ mlife_rwg;mlife\r"
146-
respond "with ^C" "TS==0\r\003"
147-
expect ":KILL"
134+
omidas "games;ts mlife" "rwg;mlife"
135+
omidas "/t dsk0:.;@ mlife" "rwg;mlife" {
136+
respond "with ^C" "TS==0\r\003"
137+
}
148138

149139
# MLIFE
150-
respond "*" ":midas;324 dsk0:.;@ pornis_rwg; pornis\r"
151-
expect ":KILL"
140+
omidas "dsk0:.;@ pornis" "rwg; pornis"
152141

153142
# 3406
154-
respond "*" ":midas;324 dsk0:.;@ 3406_stan.k; 3406\r"
155-
expect ":KILL"
143+
midas "dsk0:.;@ 3406" "stan.k; 3406"
156144

157145
# 340D
158146
midas "stan.k;mod11 bin" "340d"
@@ -176,12 +164,8 @@ respond "*" ":link dsk0: .; @ lorenz, lars; ts lorenz\r"
176164
midas "lars; ts tvbrot" "tvbrot"
177165

178166
# MUSRUN
179-
respond "*" ":midas;77\r"
180-
respond "MIDAS.77" "SYSBIN;_SYSENG; MUSRUN\r"
181-
expect ":KILL"
182-
respond "*" ":midas;77\r"
183-
respond "MIDAS.77" "SYSBIN;_SYSENG; H10D\r"
184-
expect ":KILL"
167+
oomidas 77 "SYSBIN;" "SYSENG; MUSRUN"
168+
oomidas 77 "SYSBIN;" "SYSENG; H10D"
185169
respond "*" ":stink\r"
186170
respond "\n" "msysbin; musrun\033l\033\033"
187171
respond "\n" "mh10d\033l\033\033"
@@ -191,8 +175,7 @@ respond " " "sys1; ts musrun\r"
191175
respond "*" ":kill\r"
192176

193177
# KA10 maintenance
194-
respond "*" ":midas;324 sys;ts 10run_sysen2; 10run\r"
195-
expect ":KILL"
178+
midas "sys;ts 10run" "sysen2; 10run"
196179

197180
# Display all Type 342 characters.
198181
midas "dsk0:maint;" "tst342"
@@ -239,22 +222,10 @@ expect ":KILL"
239222

240223
# NTS TECO-6
241224
cwd ".teco."
242-
respond "*" ":midas;73\r"
243-
expect "MIDAS"
244-
respond "\n" "TECODM REL_TECO DUMMY\r"
245-
expect ":KILL"
246-
respond "*" ":midas;73\r"
247-
expect "MIDAS"
248-
respond "\n" "MACTAP REL_SYSENG;MACTAP F68\r"
249-
expect ":KILL"
250-
respond "*" ":midas;73\r"
251-
expect "MIDAS"
252-
respond "\n" "LPT REL_SYSENG;LPT 11\r"
253-
expect ":KILL"
254-
respond "*" ":midas;73\r"
255-
expect "MIDAS"
256-
respond "\n" "TECO6 REL_.TECO.;TECO6 256K\r"
257-
expect ":KILL"
225+
oomidas 73 "TECODM REL" "TECO DUMMY"
226+
oomidas 73 "MACTAP REL" "SYSENG;MACTAP F68"
227+
oomidas 73 "LPT REL" "SYSENG;LPT 11"
228+
oomidas 73 "TECO6 REL" ".TECO.;TECO6 256K"
258229
respond "*" ":mudsys;stink\r"
259230
respond "\n" "MTECODM\033L MLPT\033L MMACTAP\033L MTECO6\033L D\033\033"
260231
respond "\n" "\033YDSK0:.;@ TECO\r"

‎build/kl10/processor.tcl

+1-1
Original file line numberDiff line numberDiff line change
@@ -123,7 +123,7 @@ move_to_klfe ".temp.; ioelev a11"
123123
palx "sysbin;" "system;ioelev" { respond "MACHINE NAME =" "MC\r" }
124124

125125
# 11BOOT
126-
midas;"324 sys3;ts 11boot" "syseng;11boot"
126+
omidas "sys3;ts 11boot" "syseng;11boot"
127127
# Note, must be run with symbols loaded.
128128
# Takes IOELEV BIN and KLRUG BIN from the current directory.
129129
cwd "sysbin"

‎build/misc.tcl

+13-34
Original file line numberDiff line numberDiff line change
@@ -25,21 +25,16 @@ respond "*" ":pdump midas; ts 77\r"
2525
respond "*" ":kill\r"
2626

2727
# MIDAS 73, bootstrapped from 77.
28-
respond "*" ":midas;77\r"
29-
respond "MIDAS.77" "MIDAS; TS 73_MIDAS; MIDAS 73\r"
30-
respond "*" ":midas;73\r"
31-
respond "MIDAS.73" "MIDAS; TS 73_MIDAS; MIDAS 73\r"
28+
oomidas 77 "MIDAS; TS 73" "MIDAS; MIDAS 73"
29+
oomidas 73 "MIDAS; TS 73" "MIDAS; MIDAS 73"
3230
respond "*" ":xfile midas; patch 73\r"
3331
expect ":kill"
3432

3533
# ITS 138
36-
respond "*" ":midas;73\r"
37-
respond "MIDAS.73" ".;ITS 138BIN_SYSENG;ITS 138\r"
38-
expect ":KILL"
34+
oomidas 73 ".;ITS 138BIN" "SYSENG;ITS 138"
3935

4036
# MACTAP
41-
respond "*" ":midas;324 sysbin;_sysen2; mactap\r"
42-
expect ":KILL"
37+
omidas "sysbin;" "sysen2; mactap"
4338

4439
# TECO6
4540
midas "sysbin;teco 335bin" ".teco.; teco 335"
@@ -666,8 +661,7 @@ respond "*" "purify\033g"
666661
respond "TS @" "\r"
667662
respond "*" ":kill\r"
668663

669-
respond "*" ":midas;324 dsk0:.;@ pt_syseng;pt\r"
670-
expect ":KILL"
664+
omidas "dsk0:.;@ pt" "syseng;pt"
671665

672666
# PTY
673667
midas "sys1;ts pty" "sysen1;pty"
@@ -815,21 +809,11 @@ midas "sysbin;" "syseng; muscom"
815809
respond "*" ":link sys1;ts muscom, sysbin; muscom bin\r"
816810

817811
# BIG
818-
respond "*" ":midas;77\r"
819-
respond "MIDAS.77" "SYSBIN;_SYSENG; BIG\r"
820-
expect ":KILL"
821-
respond "*" ":midas;77\r"
822-
respond "MIDAS.77" "SYSBIN;_PRS; SUDSUD\r"
823-
expect ":KILL"
824-
respond "*" ":midas;77\r"
825-
respond "MIDAS.77" "SYSBIN;_PRS; PLOT\r"
826-
expect ":KILL"
827-
respond "*" ":midas;77\r"
828-
respond "MIDAS.77" "SYSBIN;_PRS; FIGS\r"
829-
expect ":KILL"
830-
respond "*" ":midas;77\r"
831-
respond "MIDAS.77" "SYSBIN;_PRS; SMOLDM\r"
832-
expect ":KILL"
812+
oomidas 77 "SYSBIN;" "SYSENG; BIG"
813+
oomidas 77 "SYSBIN;" "PRS; SUDSUD"
814+
oomidas 77 "SYSBIN;" "PRS; PLOT"
815+
oomidas 77 "SYSBIN;" "PRS; FIGS"
816+
oomidas 77 "SYSBIN;" "PRS; SMOLDM"
833817
respond "*" ":stink\r"
834818
respond "\n" "msysbin;sudsud\033l\033\033"
835819
respond "\n" "mbig\033l\033\033"
@@ -1020,8 +1004,7 @@ respond "@" "\021"
10201004
expect ":KILL"
10211005

10221006
# SSV 22, Imlac scroll saver
1023-
respond "*" ":midas;324 sysbin;_imsrc; ssv22\r"
1024-
expect ":KILL"
1007+
omidas "sysbin;" "imsrc; ssv22"
10251008
respond "*" ":imtran\r"
10261009
respond "@" "imlac; ssv22 iml_sysbin; ssv22 bin\r"
10271010
respond "@" "\021"
@@ -1434,8 +1417,7 @@ cwd "gld"
14341417
palx "gld;" "its"
14351418

14361419
# TORTIS
1437-
respond "*" ":midas;324 radia;_tortis\r"
1438-
expect ":KILL"
1420+
omidas "radia;" "tortis"
14391421

14401422
# BBN Logo
14411423
cwd "bbn"
@@ -1456,10 +1438,7 @@ midas "sys; ts clogo" "rjl; logo" {
14561438

14571439
# NVMIDS, Nova assembler
14581440
cwd "nova"
1459-
respond "*" ":midas;73\r"
1460-
expect "MIDAS"
1461-
respond "\n" "TS NVMIDS_NVMIDS >\r"
1462-
expect ":KILL"
1441+
oomidas 73 "TS NVMIDS" "NVMIDS >"
14631442

14641443
# Nova programs.
14651444
respond "*" ":nvmids\r"

0 commit comments

Comments
 (0)