Add a TCL procedure for running MIDAS.

Author: larsbrinkhoff

build/basics.tcl

@@ -173,6 +173,16 @@ proc arpanet {rfc file} {
     }
 }
 
+proc midas {target source {action ""}} {
+    respond "*" ":midas ${target}_$source\r"
+    eval $action
+    expect ":KILL"
+}
+
+proc midast {target source {action ""}} {
+    midas "/t $target" $source $action
+}
+
 proc macro10 {target sources} {
     respond "*" ":macro\r"
     respond "*" "$target=$sources\r"

build/build.tcl

@@ -4,48 +4,42 @@ log_progress "ENTERING BUILD SCRIPT: DM"
 # Dynamic Modeling PDP-10.
 
 # Demon starter.
-respond "*" ":midas sys; atsign demstr_sysen2; demstr\r"
-expect ":KILL"
+midas "sys; atsign demstr" "sysen2; demstr"
 
 # Demon status.  Self purifying.
-respond "*" ":midas sysen2; ts demst_sysen2; demst\r"
-expect ":KILL"
+midas "sysen2; ts demst" "sysen2; demst"
 
 # Gun down dead demons.
 respond "*" ":link taa; pwfile 999999, sysen1; pwfile >\r"
-respond "*" ":midas sysbin;_sysen2; gunner\r"
-expect ":KILL"
+midas "sysbin;" "sysen2; gunner"
 respond "*" ":link sys; atsign gunner, sysbin; gunner bin\r"
 
 # Line printer unspooler demon.
-respond "*" ":midas sys; atsign unspoo_sysen1; unspoo\r"
-# Just accept the defaults for now.
-respond "(CR) FOR DEVICE LPT, nn FOR Tnn" "\r"
-respond "(CR) FOR .LPTR. DIRECTORY, OR TYPE NEW NAME" "\r"
-expect ":KILL"
+midas "sys; atsign unspoo" "sysen1; unspoo" {
+    # Just accept the defaults for now.
+    respond "(CR) FOR DEVICE LPT, nn FOR Tnn" "\r"
+    respond "(CR) FOR .LPTR. DIRECTORY, OR TYPE NEW NAME" "\r"
+}
 
 # ARPANET support, Dynamic Modeling demon style
 if [string equal "$mchn" "DM"] {
-    respond "*" ":midas sys;atsign netrfc_syseng; netrfc\r"
-    respond "DEMONP=" "1\r"
-    expect ":KILL"
+    midas "sys;atsign netrfc" "syseng; netrfc" {
+        respond "DEMONP=" "1\r"
+    }
 }
 
 # Arpanet survey demon.
-respond "*" ":midas sys; atsign survey_survey; survey\r"
-expect ":KILL"
+midas "sys; atsign survey" "survey; survey"
 
 # Survey giver demon.
-respond "*" ":midas survey; atsign surgiv_surgiv\r"
-expect ":KILL"
+midas "survey; atsign surgiv" "surgiv"
 respond "*" ":link sys; atsign surgiv, survey;\r"
 
 # Survey sender demon.
 respond "*" ":link sys; atsign sursnd, survey;\r"
 
 # Login program.
-respond "*" ":midas sysbin;_syseng; booter\r"
-expect ":KILL"
+midas "sysbin;" "syseng; booter"
 # Enter an empty password for AS.
 respond "*" ":job pw\r"
 respond "*" "2/"

build/dm.tcl

@@ -1,5 +1,4 @@
-respond "*" ":midas sysbin;_.teco.;teco\r"
-expect ":KILL"
+midas "sysbin;" ".teco.;teco"
 respond "*" ":job teco\r"
 respond "*" ":load sysbin;teco bin\r"
 sleep 2
@@ -105,8 +104,7 @@ respond "*" ":rename emacs;\[rmai\] \021:ej, emacs;\[rmai\] 147\r"
 respond "*" ":link emacs;emacs init,emacs;* emacs\r"
 
 # make TS BABYL
-respond "*" ":midas sys3;ts babyl_kmp;babyl\r"
-expect ":KILL"
+midas "sys3;ts babyl" "kmp;babyl"
 
 # INFO
 # For some unknown reason, we can't use a printing terminal when

build/emacs.tcl

@@ -83,44 +83,38 @@ proc its_switches {} {
 }
 
 proc make_ntsddt {} {
-    respond "*" ":midas dsk0:.;@ ddt_system;ddt\r"
-    respond "cpusw=" "0\r"
-    respond "ndsk=" "0\r"
-    respond "dsksw=" "0\r"
-    respond "dsktp=" "0\r"
-    respond "1PRSW=" "1\r"
-    expect ":KILL"
+    midas "dsk0:.;@ ddt" "system;ddt" {
+        respond "cpusw=" "0\r"
+        respond "ndsk=" "0\r"
+        respond "dsksw=" "0\r"
+        respond "dsktp=" "0\r"
+        respond "1PRSW=" "1\r"
+    }
 
     # Old NTS DDT with 340 support.
-    respond "*" ":midas dsk0:.;@ ntsddt_syseng; ntsddt\r"
-    expect ":KILL"
+    midas "dsk0:.;@ ntsddt" "syseng; ntsddt"
 }
 
 proc make_salv {} {
-    global mchn
-
-    respond "*" ":midas dsk0:.;_system;salv\r"
-    respond "time-sharing?" "n\r"
-    respond "machine?" "$mchn\r"
-    expect ":KILL"
+    midas "dsk0:.;" "system;salv" {
+        global mchn
+        respond "time-sharing?" "n\r"
+        respond "machine?" "$mchn\r"
+    }
 }
 
 proc make_dskdmp {} {
     global emulator_escape
     global out
 
     # On-disk @ DSKDMP.
-    respond "*" ":midas dsk0:.;@ dskdmp_system;dskdmp\r"
-    dskdmp_switches "N"
-    expect ":KILL"
+    midas "dsk0:.;@ dskdmp" "system;dskdmp" { dskdmp_switches "N" }
 
     # Paper tape DSKDMP.  This is used for booting ITS.
     respond "*" $emulator_escape
     punch_tape "$out/dskdmp.rim"
     type ":vk\r"
-    respond "*" ":midas ptp:_system;dskdmp\r"
-    dskdmp_switches "Y"
-    expect ":KILL"
+    midas "ptp:" "system;dskdmp" { dskdmp_switches "Y" }
 }
 
 proc dump_switches {} {
@@ -162,10 +156,10 @@ proc bootable_tapes {} {
     global out
     global mchn
 
-    respond "*" ":midas .;magdmp bin.${mchn}_syseng;magdmp\r"
-    respond "PTRHRI=" "n\r"
-    magdmp_switches
-    expect ":KILL"
+    midas ".;magdmp bin.${mchn}" "syseng;magdmp" {
+        respond "PTRHRI=" "n\r"
+        magdmp_switches
+    }
 
     respond "*" $emulator_escape
     create_tape "$out/magdmp.tape"

build/ka10/include.tcl

@@ -20,18 +20,15 @@ respond "*" ":midas;324 dsk0:.;@ mark_syseng; mark\r"
 expect ":KILL"
 
 # utnam
-respond "*" ":midas sys3; ts utnam_lars; utnam\r"
-expect ":KILL"
+midas "sys3; ts utnam" "lars; utnam"
 
 # Name Dragon
 respond "*" ":link syseng;tvkbd rooms, sysen2;\r"
-respond "*" ":midas sysbin;_sysen2;namdrg\r"
-expect ":KILL"
+midas "sysbin;" "sysen2;namdrg"
 respond "*" ":link channa;rakash namdrg, sysbin; namdrg bin\r"
 
 # STUFF
-respond "*" ":midas sys1;ts stuff_sysen2;stuff\r"
-expect ":KILL"
+midas "sys1;ts stuff" "sysen2;stuff"
 respond "*" ":link channa;rakash tvfix, sys1; ts stuff\r"
 
 # IOELEV, PDP-11 doing I/O for the PDP-10 host.
@@ -53,7 +50,7 @@ palx "cons;" "lmcons;ccons"
 cwd "spcwar"
 respond "*" ":midas;324 spcwar; war\r"
 expect ":KILL"
-respond "*" ":midas spcwar; stars\r"
+midas "spcwar;" "stars"
 expect ":KILL"
 respond "*" ":midas;324 spcwar; math\r"
 expect ":KILL"
@@ -77,24 +74,23 @@ respond "recording" "\r"
 expect ":KILL"
 
 # Spacewar, timesharing
-respond "*" ":midas games;ts spcwar_spcwar; spcwar\r"
-respond "ITS version" "YES\r"
-respond "ships" "\r"
-respond "designs" "\r"
-respond "suns" "\r"
-expect ":KILL"
+midas "games;ts spcwar" "spcwar; spcwar" {
+    respond "ITS version" "YES\r"
+    respond "ships" "\r"
+    respond "designs" "\r"
+    respond "suns" "\r"
+}
 
 # PDP-6/10 Dazzle Dart
-respond "*" ":midas games;ts dazdrt_klh; dazdrt\r"
-respond "Run under ITS?" "YES\r"
-expect ":KILL"
+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"
 
 # Knight TV Spacewar
-respond "*" ":midas gjd;_swr data\r"
-expect ":KILL"
+midas "gjd;" "swr data"
 respond "*" ":job swr\r"
 respond "*" ":load gjd; swr bin\r"
 respond "*" "first\033,last\033\060ygjd; swr ships\r"
@@ -104,52 +100,44 @@ expect ":KILL"
 
 # Dump TV bitmap as XGP scan file.
 # TVREAD expects the binary in BKPH.
-respond "*" ":midas bkph; ts zap_zap\r"
-expect ":KILL"
+midas "bkph; ts zap" "zap"
 
 # View bitmap file on TV.
-respond "*" ":midas sys2; ts tvread_vis; tvread\r"
-expect ":KILL"
+midas "sys2; ts tvread" "vis; tvread"
 
 # Save TV display as bitmap file.
-respond "*" ":midas sys2; ts tvwrit_sysen2; tvwrit\r"
-expect ":KILL"
+midas "sys2; ts tvwrit" "sysen2; tvwrit"
 
 # Save TV display as text file.
-respond "*" ":midas sys2; ts record_sysen2; record\r"
-expect ":KILL"
+midas "sys2; ts record" "sysen2; record"
 
 # TV paint program.
-respond "*" ":midas sys2; ts tvedit_sysen2; tvedit\r"
-expect ":KILL"
+midas "sys2; ts tvedit" "sysen2; tvedit"
 
 # KLH's Knight TV clock.
-respond "*" ":midas klh; ts tinyw_klh; clock\r"
-respond "=" "1\r"
-respond "=" "1\r"
-expect ":KILL"
-respond "*" ":midas klh; ts bigw_klh; clock\r"
-respond "=" "1\r"
-respond "=" "0\r"
-respond "=" "0\r"
-expect ":KILL"
-respond "*" ":midas klh; ts digiw_klh; clock\r"
-respond "=" "1\r"
-respond "=" "0\r"
-respond "=" "1\r"
-expect ":KILL"
+midas "klh; ts tinyw" "klh; clock" {
+    respond "=" "1\r"
+    respond "=" "1\r"
+}
+midas "klh; ts bigw" "klh; clock" {
+    respond "=" "1\r"
+    respond "=" "0\r"
+    respond "=" "0\r"
+}
+midas "klh; ts digiw" "klh; clock" {
+    respond "=" "1\r"
+    respond "=" "0\r"
+    respond "=" "1\r"
+}
 
 # XD, view XGP files on TV.
-respond "*" ":midas sys3;ts xd_sysen2;xd\r"
-expect ":KILL"
+midas "sys3;ts xd" "sysen2;xd"
 
 # TV-munching square.
-respond "*" ":midas sys2;ts munch_sysen2;munch\r"
-expect ":KILL"
+midas "sys2;ts munch" "sysen2;munch"
 
 # TITLER
-respond "*" ":midas dsk0:.;@ titler_mb; titler\r"
-expect ":KILL"
+midas "dsk0:.;@ titler" "mb; titler"
 
 # MLIFE
 respond "*" ":midas;324 games;ts mlife_rwg;mlife\r"
@@ -167,30 +155,25 @@ respond "*" ":midas;324 dsk0:.;@ 3406_stan.k; 3406\r"
 expect ":KILL"
 
 # 340D
-respond "*" ":midas stan.k;mod11 bin_340d\r"
-expect ":KILL"
+midas "stan.k;mod11 bin" "340d"
 respond "*" ":link sys1;ts 340d, stan.k; mod11 bin\r"
 
 # Munching squares for 340 display.
-respond "*" ":midas lars; ts munch_munch\r"
-expect ":KILL"
-respond "*" ":midas /t dsk0: .; @ munch_lars; munch\r"
-respond "with ^C" ".iotlsr==jfcl\r\003"
-expect ":KILL"
+midas "lars; ts munch" "munch"
+midast "dsk0: .; @ munch" "lars; munch" {
+    respond "with ^C" ".iotlsr==jfcl\r\003"
+}
 
 # Minskytron, translated from PDP-1.
-respond "*" ":midas dsk0: lars; ts minsky_minsky tron\r"
-expect ":KILL"
+midas "dsk0: lars; ts minsky" "minsky tron"
 respond "*" ":link dsk0: .; @ minsky, lars; ts minsky\r"
 
 # Edward Lorenz' strange attactor.
-respond "*" ":midas dsk0: lars; ts lorenz_lorenz\r"
-expect ":KILL"
+midas "dsk0: lars; ts lorenz" "lorenz"
 respond "*" ":link dsk0: .; @ lorenz, lars; ts lorenz\r"
 
 # Mandelbrot.
-respond "*" ":midas lars; ts tvbrot_tvbrot\r"
-expect ":KILL"
+midas "lars; ts tvbrot" "tvbrot"
 
 # MUSRUN
 respond "*" ":midas;77\r"
@@ -212,20 +195,16 @@ respond "*" ":midas;324 sys;ts 10run_sysen2; 10run\r"
 expect ":KILL"
 
 # Display all Type 342 characters.
-respond "*" ":midas dsk0:maint;_tst342\r"
-expect ":KILL"
+midas "dsk0:maint;" "tst342"
 
 # XGP spooler
-respond "*" ":midas sys2;ts xgpspl_sysen2;xgpspl\r"
-expect ":KILL"
+midas "sys2;ts xgpspl" "sysen2;xgpspl"
 
 # XGP unspooler
-respond "*" ":midas sysbin;_syseng;scrimp\r"
-expect ":KILL"
+midas "sysbin;" "syseng;scrimp"
 
 # CARPET, remote PDP-11 debugger through Rubin 10-11 interface.
-respond "*" ":midas sys3;ts carpet_syseng;carpet\r"
-expect ":KILL"
+midas "sys3;ts carpet" "syseng;carpet"
 
 # Patch PDP-6 LISP to run on PDP-10.
 respond "*" ":job lisp\r"
@@ -247,9 +226,9 @@ respond " " "dsk0:.;@ lisp\r"
 respond "*" ":kill\r"
 
 # Lisp display slave, PDP-6 version.
-respond "*" ":midas sys; atsign 6slave_sysen2; ld10\r"
-respond "   PDP6F = " "1\r"
-expect ":KILL"
+midas "sys; atsign 6slave" "sysen2; ld10" {
+    respond "   PDP6F = " "1\r"
+}
 
 # Test for the 340 "hack hack".
 respond "*" $emulator_escape