Skip to content

Commit e737ff9

Browse files
larsbrinkhofflarsbrinkhoff
committed
Add TCL procedures for running MIDAS 73, 77, or 324.
1 parent 7852301 commit e737ff9

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 macro {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"
@@ -53,12 +47,9 @@ expect ":KILL"
5347

5448
# Old Spacewar
5549
cwd "spcwar"
56-
respond "*" ":midas;324 spcwar; war\r"
57-
expect ":KILL"
50+
omidas "spcwar;" "war"
5851
midas "spcwar;" "stars"
59-
expect ":KILL"
60-
respond "*" ":midas;324 spcwar; math\r"
61-
expect ":KILL"
52+
omidas "spcwar;" "math"
6253
respond "*" ":stink\r"
6354
respond "\n" "mspcwar; war\033l\033\033"
6455
respond "\n" "mstars\033l\033\033"
@@ -69,14 +60,14 @@ respond " " "dsk0:.;@ war\r"
6960
respond "*" ":kill\r"
7061

7162
# Spacewar, standalone
72-
respond "*" ":midas;324 dsk0:.;@ spcwar_spcwar; spcwar\r"
73-
respond "ITS version" "NO\r"
74-
respond "interrupt" "NO\r"
75-
respond "ships" "\r"
76-
respond "designs" "\r"
77-
respond "suns" "\r"
78-
respond "recording" "\r"
79-
expect ":KILL"
63+
omidas "dsk0:.;@ spcwar" "spcwar; spcwar" {
64+
respond "ITS version" "NO\r"
65+
respond "interrupt" "NO\r"
66+
respond "ships" "\r"
67+
respond "designs" "\r"
68+
respond "suns" "\r"
69+
respond "recording" "\r"
70+
}
8071

8172
# Spacewar, timesharing
8273
midas "games;ts spcwar" "spcwar; spcwar" {
@@ -90,9 +81,9 @@ midas "games;ts spcwar" "spcwar; spcwar" {
9081
midas "games;ts dazdrt" "klh; dazdrt" {
9182
respond "Run under ITS?" "YES\r"
9283
}
93-
respond "*" ":midas;324 dsk0:.;@ dazdrt_klh; dazdrt\r"
94-
respond "Run under ITS?" "NO\r"
95-
expect ":KILL"
84+
omidas "dsk0:.;@ dazdrt" "klh; dazdrt" {
85+
respond "Run under ITS?" "NO\r"
86+
}
9687

9788
# Knight TV Spacewar
9889
midas "gjd;" "swr data"
@@ -145,19 +136,16 @@ midas "sys2;ts munch" "sysen2;munch"
145136
midas "dsk0:.;@ titler" "mb; titler"
146137

147138
# MLIFE
148-
respond "*" ":midas;324 games;ts mlife_rwg;mlife\r"
149-
expect ":KILL"
150-
respond "*" ":midas;324 /t dsk0:.;@ mlife_rwg;mlife\r"
151-
respond "with ^C" "TS==0\r\003"
152-
expect ":KILL"
139+
omidas "games;ts mlife" "rwg;mlife"
140+
omidas "/t dsk0:.;@ mlife" "rwg;mlife" {
141+
respond "with ^C" "TS==0\r\003"
142+
}
153143

154144
# MLIFE
155-
respond "*" ":midas;324 dsk0:.;@ pornis_rwg; pornis\r"
156-
expect ":KILL"
145+
omidas "dsk0:.;@ pornis" "rwg; pornis"
157146

158147
# 3406
159-
respond "*" ":midas;324 dsk0:.;@ 3406_stan.k; 3406\r"
160-
expect ":KILL"
148+
midas "dsk0:.;@ 3406" "stan.k; 3406"
161149

162150
# 340D
163151
midas "stan.k;mod11 bin" "340d"
@@ -181,12 +169,8 @@ respond "*" ":link dsk0: .; @ lorenz, lars; ts lorenz\r"
181169
midas "lars; ts tvbrot" "tvbrot"
182170

183171
# MUSRUN
184-
respond "*" ":midas;77\r"
185-
respond "MIDAS.77" "SYSBIN;_SYSENG; MUSRUN\r"
186-
expect ":KILL"
187-
respond "*" ":midas;77\r"
188-
respond "MIDAS.77" "SYSBIN;_SYSENG; H10D\r"
189-
expect ":KILL"
172+
oomidas 77 "SYSBIN;" "SYSENG; MUSRUN"
173+
oomidas 77 "SYSBIN;" "SYSENG; H10D"
190174
respond "*" ":stink\r"
191175
respond "\n" "msysbin; musrun\033l\033\033"
192176
respond "\n" "mh10d\033l\033\033"
@@ -196,8 +180,7 @@ respond " " "sys1; ts musrun\r"
196180
respond "*" ":kill\r"
197181

198182
# KA10 maintenance
199-
respond "*" ":midas;324 sys;ts 10run_sysen2; 10run\r"
200-
expect ":KILL"
183+
midas "sys;ts 10run" "sysen2; 10run"
201184

202185
# Display all Type 342 characters.
203186
midas "dsk0:maint;" "tst342"
@@ -244,22 +227,10 @@ expect ":KILL"
244227

245228
# NTS TECO-6
246229
cwd ".teco."
247-
respond "*" ":midas;73\r"
248-
expect "MIDAS"
249-
respond "\n" "TECODM REL_TECO DUMMY\r"
250-
expect ":KILL"
251-
respond "*" ":midas;73\r"
252-
expect "MIDAS"
253-
respond "\n" "MACTAP REL_SYSENG;MACTAP F68\r"
254-
expect ":KILL"
255-
respond "*" ":midas;73\r"
256-
expect "MIDAS"
257-
respond "\n" "LPT REL_SYSENG;LPT 11\r"
258-
expect ":KILL"
259-
respond "*" ":midas;73\r"
260-
expect "MIDAS"
261-
respond "\n" "TECO6 REL_.TECO.;TECO6 256K\r"
262-
expect ":KILL"
230+
oomidas 73 "TECODM REL" "TECO DUMMY"
231+
oomidas 73 "MACTAP REL" "SYSENG;MACTAP F68"
232+
oomidas 73 "LPT REL" "SYSENG;LPT 11"
233+
oomidas 73 "TECO6 REL" ".TECO.;TECO6 256K"
263234
respond "*" ":mudsys;stink\r"
264235
respond "\n" "MTECODM\033L MLPT\033L MMACTAP\033L MTECO6\033L D\033\033"
265236
respond "\n" "\033YDSK0:.;@ TECO\r"

‎build/kl10/processor.tcl

+1-1
Original file line numberDiff line numberDiff line change
@@ -130,7 +130,7 @@ respond "MACHINE NAME =" "MC\r"
130130
expect ":KILL"
131131

132132
# 11BOOT
133-
midas;"324 sys3;ts 11boot" "syseng;11boot"
133+
omidas "sys3;ts 11boot" "syseng;11boot"
134134
# Note, must be run with symbols loaded.
135135
# Takes IOELEV BIN and KLRUG BIN from the current directory.
136136
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"
@@ -667,8 +662,7 @@ respond "*" "purify\033g"
667662
respond "TS @" "\r"
668663
respond "*" ":kill\r"
669664

670-
respond "*" ":midas;324 dsk0:.;@ pt_syseng;pt\r"
671-
expect ":KILL"
665+
omidas "dsk0:.;@ pt" "syseng;pt"
672666

673667
# PTY
674668
midas "sys1;ts pty" "sysen1;pty"
@@ -816,21 +810,11 @@ midas "sysbin;" "syseng; muscom"
816810
respond "*" ":link sys1;ts muscom, sysbin; muscom bin\r"
817811

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

10231007
# SSV 22, Imlac scroll saver
1024-
respond "*" ":midas;324 sysbin;_imsrc; ssv22\r"
1025-
expect ":KILL"
1008+
omidas "sysbin;" "imsrc; ssv22"
10261009
respond "*" ":imtran\r"
10271010
respond "@" "imlac; ssv22 iml_sysbin; ssv22 bin\r"
10281011
respond "@" "\021"
@@ -1448,8 +1431,7 @@ respond "*" ":palx its\r"
14481431
expect ":KILL"
14491432

14501433
# TORTIS
1451-
respond "*" ":midas;324 radia;_tortis\r"
1452-
expect ":KILL"
1434+
omidas "radia;" "tortis"
14531435

14541436
# BBN Logo
14551437
cwd "bbn"
@@ -1470,10 +1452,7 @@ midas "sys; ts clogo" "rjl; logo" {
14701452

14711453
# NVMIDS, Nova assembler
14721454
cwd "nova"
1473-
respond "*" ":midas;73\r"
1474-
expect "MIDAS"
1475-
respond "\n" "TS NVMIDS_NVMIDS >\r"
1476-
expect ":KILL"
1455+
oomidas 73 "TS NVMIDS" "NVMIDS >"
14771456

14781457
# Nova programs.
14791458
respond "*" ":nvmids\r"

0 commit comments

Comments
 (0)