github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-07 17:01:19 +00:00
Code Issues Releases Wiki Activity

Add TCL procedures for running MIDAS 73, 77, or 324.

Browse Source
This commit is contained in:
Lars Brinkhoff
2025-02-09 10:33:37 +01:00
parent 7f2fbf82d2
commit 95b4e068a3
4 changed files with 57 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
build/build.tcl
View File

@@ -183,6 +183,19 @@ proc midast {target source {action ""}} {
midas "/t $target" $source $action
}
proc omidas {target source {action ""}} {
respond "*" ":midas;324 ${target}_$source\r"
eval $action
expect ":KILL"
}
proc oomidas {version target source {action ""}} {
respond "*" ":midas;$version\r"
respond "MIDAS.$version" "${target}_$source\r"
eval $action
expect ":KILL"
}
proc macro10 {target sources} {
respond "*" ":macro\r"
respond "*" "$target=$sources\r"

89
build/ka10/processor.tcl
View File

@@ -3,21 +3,15 @@ log_progress "ENTERING BUILD SCRIPT: PROCESSOR"
# Programs particular to the KA10 processor.
# macdmp, PDP-10 hardware read in, with 340 support.
respond "*" ":midas;77\r"
respond "MIDAS.77" ".;MACDMP RIM10_SYSENG; MACDMP MOBY1\r"
expect ":KILL"
oomidas 77 ".;MACDMP RIM10" "SYSENG; MACDMP MOBY1"
# macdmp, PDP-6 read in hack.
respond "*" ":midas;77\r"
respond "MIDAS.77" ".;MACDMP RIM2_SYSENG; MACDMP 6U32\r"
expect ":KILL"
oomidas 77 ".;MACDMP RIM2" "SYSENG; MACDMP 6U32"
# system gen
respond "*" ":midas;324 dsk0:.;@ sysgen_syseng; system gen\r"
expect ":KILL"
omidas "dsk0:.;@ sysgen" "syseng; system gen"
# mark
respond "*" ":midas;324 dsk0:.;@ mark_syseng; mark\r"
expect ":KILL"
omidas "dsk0:.;@ mark" "syseng; mark"
# utnam
midas "sys3; ts utnam" "lars; utnam"
@@ -48,12 +42,9 @@ palx "cons;" "lmcons;ccons"
# Old Spacewar
cwd "spcwar"
respond "*" ":midas;324 spcwar; war\r"
expect ":KILL"
omidas "spcwar;" "war"
midas "spcwar;" "stars"
expect ":KILL"
respond "*" ":midas;324 spcwar; math\r"
expect ":KILL"
omidas "spcwar;" "math"
respond "*" ":stink\r"
respond "\n" "mspcwar; war\033l\033\033"
respond "\n" "mstars\033l\033\033"
@@ -64,14 +55,14 @@ respond " " "dsk0:.;@ war\r"
respond "*" ":kill\r"
# Spacewar, standalone
respond "*" ":midas;324 dsk0:.;@ spcwar_spcwar; spcwar\r"
respond "ITS version" "NO\r"
respond "interrupt" "NO\r"
respond "ships" "\r"
respond "designs" "\r"
respond "suns" "\r"
respond "recording" "\r"
expect ":KILL"
omidas "dsk0:.;@ spcwar" "spcwar; spcwar" {
respond "ITS version" "NO\r"
respond "interrupt" "NO\r"
respond "ships" "\r"
respond "designs" "\r"
respond "suns" "\r"
respond "recording" "\r"
}
# Spacewar, timesharing
midas "games;ts spcwar" "spcwar; spcwar" {
@@ -85,9 +76,9 @@ midas "games;ts spcwar" "spcwar; spcwar" {
midas "games;ts dazdrt" "klh; dazdrt" {
respond "Run under ITS?" "YES\r"
}
respond "*" ":midas;324 dsk0:.;@ dazdrt_klh; dazdrt\r"
respond "Run under ITS?" "NO\r"
expect ":KILL"
omidas "dsk0:.;@ dazdrt" "klh; dazdrt" {
respond "Run under ITS?" "NO\r"
}
# Knight TV Spacewar
midas "gjd;" "swr data"
@@ -140,19 +131,16 @@ midas "sys2;ts munch" "sysen2;munch"
midas "dsk0:.;@ titler" "mb; titler"
# MLIFE
respond "*" ":midas;324 games;ts mlife_rwg;mlife\r"
expect ":KILL"
respond "*" ":midas;324 /t dsk0:.;@ mlife_rwg;mlife\r"
respond "with ^C" "TS==0\r\003"
expect ":KILL"
omidas "games;ts mlife" "rwg;mlife"
omidas "/t dsk0:.;@ mlife" "rwg;mlife" {
respond "with ^C" "TS==0\r\003"
}
# MLIFE
respond "*" ":midas;324 dsk0:.;@ pornis_rwg; pornis\r"
expect ":KILL"
omidas "dsk0:.;@ pornis" "rwg; pornis"
# 3406
respond "*" ":midas;324 dsk0:.;@ 3406_stan.k; 3406\r"
expect ":KILL"
midas "dsk0:.;@ 3406" "stan.k; 3406"
# 340D
midas "stan.k;mod11 bin" "340d"
@@ -176,12 +164,8 @@ respond "*" ":link dsk0: .; @ lorenz, lars; ts lorenz\r"
midas "lars; ts tvbrot" "tvbrot"
# MUSRUN
respond "*" ":midas;77\r"
respond "MIDAS.77" "SYSBIN;_SYSENG; MUSRUN\r"
expect ":KILL"
respond "*" ":midas;77\r"
respond "MIDAS.77" "SYSBIN;_SYSENG; H10D\r"
expect ":KILL"
oomidas 77 "SYSBIN;" "SYSENG; MUSRUN"
oomidas 77 "SYSBIN;" "SYSENG; H10D"
respond "*" ":stink\r"
respond "\n" "msysbin; musrun\033l\033\033"
respond "\n" "mh10d\033l\033\033"
@@ -191,8 +175,7 @@ respond " " "sys1; ts musrun\r"
respond "*" ":kill\r"
# KA10 maintenance
respond "*" ":midas;324 sys;ts 10run_sysen2; 10run\r"
expect ":KILL"
midas "sys;ts 10run" "sysen2; 10run"
# Display all Type 342 characters.
midas "dsk0:maint;" "tst342"
@@ -239,22 +222,10 @@ expect ":KILL"
# NTS TECO-6
cwd ".teco."
respond "*" ":midas;73\r"
expect "MIDAS"
respond "\n" "TECODM REL_TECO DUMMY\r"
expect ":KILL"
respond "*" ":midas;73\r"
expect "MIDAS"
respond "\n" "MACTAP REL_SYSENG;MACTAP F68\r"
expect ":KILL"
respond "*" ":midas;73\r"
expect "MIDAS"
respond "\n" "LPT REL_SYSENG;LPT 11\r"
expect ":KILL"
respond "*" ":midas;73\r"
expect "MIDAS"
respond "\n" "TECO6 REL_.TECO.;TECO6 256K\r"
expect ":KILL"
oomidas 73 "TECODM REL" "TECO DUMMY"
oomidas 73 "MACTAP REL" "SYSENG;MACTAP F68"
oomidas 73 "LPT REL" "SYSENG;LPT 11"
oomidas 73 "TECO6 REL" ".TECO.;TECO6 256K"
respond "*" ":mudsys;stink\r"
respond "\n" "MTECODM\033L MLPT\033L MMACTAP\033L MTECO6\033L D\033\033"
respond "\n" "\033YDSK0:.;@ TECO\r"

2
build/kl10/processor.tcl
View File

@@ -123,7 +123,7 @@ move_to_klfe ".temp.; ioelev a11"
palx "sysbin;" "system;ioelev" { respond "MACHINE NAME =" "MC\r" }
# 11BOOT
midas;"324 sys3;ts 11boot" "syseng;11boot"
omidas "sys3;ts 11boot" "syseng;11boot"
# Note, must be run with symbols loaded.
# Takes IOELEV BIN and KLRUG BIN from the current directory.
cwd "sysbin"

47
build/misc.tcl
View File

@@ -25,21 +25,16 @@ respond "*" ":pdump midas; ts 77\r"
respond "*" ":kill\r"
# MIDAS 73, bootstrapped from 77.
respond "*" ":midas;77\r"
respond "MIDAS.77" "MIDAS; TS 73_MIDAS; MIDAS 73\r"
respond "*" ":midas;73\r"
respond "MIDAS.73" "MIDAS; TS 73_MIDAS; MIDAS 73\r"
oomidas 77 "MIDAS; TS 73" "MIDAS; MIDAS 73"
oomidas 73 "MIDAS; TS 73" "MIDAS; MIDAS 73"
respond "*" ":xfile midas; patch 73\r"
expect ":kill"
# ITS 138
respond "*" ":midas;73\r"
respond "MIDAS.73" ".;ITS 138BIN_SYSENG;ITS 138\r"
expect ":KILL"
oomidas 73 ".;ITS 138BIN" "SYSENG;ITS 138"
# MACTAP
respond "*" ":midas;324 sysbin;_sysen2; mactap\r"
expect ":KILL"
omidas "sysbin;" "sysen2; mactap"
# TECO6
midas "sysbin;teco 335bin" ".teco.; teco 335"
@@ -666,8 +661,7 @@ respond "*" "purify\033g"
respond "TS @" "\r"
respond "*" ":kill\r"
respond "*" ":midas;324 dsk0:.;@ pt_syseng;pt\r"
expect ":KILL"
omidas "dsk0:.;@ pt" "syseng;pt"
# PTY
midas "sys1;ts pty" "sysen1;pty"
@@ -815,21 +809,11 @@ midas "sysbin;" "syseng; muscom"
respond "*" ":link sys1;ts muscom, sysbin; muscom bin\r"
# BIG
respond "*" ":midas;77\r"
respond "MIDAS.77" "SYSBIN;_SYSENG; BIG\r"
expect ":KILL"
respond "*" ":midas;77\r"
respond "MIDAS.77" "SYSBIN;_PRS; SUDSUD\r"
expect ":KILL"
respond "*" ":midas;77\r"
respond "MIDAS.77" "SYSBIN;_PRS; PLOT\r"
expect ":KILL"
respond "*" ":midas;77\r"
respond "MIDAS.77" "SYSBIN;_PRS; FIGS\r"
expect ":KILL"
respond "*" ":midas;77\r"
respond "MIDAS.77" "SYSBIN;_PRS; SMOLDM\r"
expect ":KILL"
oomidas 77 "SYSBIN;" "SYSENG; BIG"
oomidas 77 "SYSBIN;" "PRS; SUDSUD"
oomidas 77 "SYSBIN;" "PRS; PLOT"
oomidas 77 "SYSBIN;" "PRS; FIGS"
oomidas 77 "SYSBIN;" "PRS; SMOLDM"
respond "*" ":stink\r"
respond "\n" "msysbin;sudsud\033l\033\033"
respond "\n" "mbig\033l\033\033"
@@ -1020,8 +1004,7 @@ respond "@" "\021"
expect ":KILL"
# SSV 22, Imlac scroll saver
respond "*" ":midas;324 sysbin;_imsrc; ssv22\r"
expect ":KILL"
omidas "sysbin;" "imsrc; ssv22"
respond "*" ":imtran\r"
respond "@" "imlac; ssv22 iml_sysbin; ssv22 bin\r"
respond "@" "\021"
@@ -1434,8 +1417,7 @@ cwd "gld"
palx "gld;" "its"
# TORTIS
respond "*" ":midas;324 radia;_tortis\r"
expect ":KILL"
omidas "radia;" "tortis"
# BBN Logo
cwd "bbn"
@@ -1456,10 +1438,7 @@ midas "sys; ts clogo" "rjl; logo" {
# NVMIDS, Nova assembler
cwd "nova"
respond "*" ":midas;73\r"
expect "MIDAS"
respond "\n" "TS NVMIDS_NVMIDS >\r"
expect ":KILL"
oomidas 73 "TS NVMIDS" "NVMIDS >"
# Nova programs.
respond "*" ":nvmids\r"