Add "palx" and "macn11" TCL procedures.

Author: larsbrinkhoff

build/basics.tcl

@@ -400,8 +400,7 @@ respond "*" ":midas sys;ts palx_sysen1;palx\r"
 expect ":KILL"
 
 # GT40 boot ROM.
-respond "*" ":palx gt40;_gt40;bootvt\r"
-expect ":KILL"
+palx "gt40;" "gt40;bootvt"
 
 # PLAN/CREATE
 respond "*" ":midas sys3;ts create_syseng;create\r"

build/build.tcl

@@ -181,6 +181,21 @@ proc macro10 {target sources} {
     respond "*" ":kill\r"
 }
 
+proc palx {target sources {actions ""}} {
+    respond "*" ":palx $target_$sources\r"
+    eval $actions
+    expect ":KILL"
+}
+
+proc macn11 {target sources {actions ""}} {
+    respond "*" ":macn11\r"
+    respond "*" "$target_$sources\r"
+    eval $actions
+    expect "CORE USED"
+    respond "*" "\003"
+    respond "*" ":kill\r"
+}
+
 proc loader {files} {
     respond "*" ":dec sys:loader\r"
     respond "*" "$files/g\r"

build/ka10/processor.tcl

@@ -37,22 +37,17 @@ respond "*" ":link channa;rakash tvfix, sys1; ts stuff\r"
 # IOELEV, PDP-11 doing I/O for the PDP-10 host.
 # The "AI" IOELEV, also known as CHAOS-11.
 # STUFF prefers to have it in the "." directory.
-respond "*" ":palx dsk0:.;_system;ioelev\r"
-respond "MACHINE NAME =" "AI\r"
-expect ":KILL"
+palx "dsk0:.;" "system;ioelev" { respond "MACHINE NAME =" "AI\r" }
 
 # TV-11.  STUFF prefers it to be in the "." directory.
-respond "*" ":palx dsk0:.;_system;tv\r"
-expect ":KILL"
+palx "dsk0:.;" "system;tv"
 
 # XGP-11.  STUFF prefers it to be SYSBIN; VXGP BIN.
-respond "*" ":palx sysbin;vxgp bin_sysen2;xgp\r"
-expect ":KILL"
+palx "sysbin;vxgp bin" "sysen2;xgp"
 
 # CCONS.  STUFF prefers it to be in the CONS directory.
 mkdir "cons"
-respond "*" ":palx cons;_lmcons;ccons\r"
-expect ":KILL"
+palx "cons;" "lmcons;ccons"
 
 # Old Spacewar
 cwd "spcwar"

build/kl10/processor.tcl

@@ -59,8 +59,7 @@ expect ":KILL"
 
 # KL10 front end debugger.  Put it in the same directory as the
 # "MC" IOELEV.
-respond "*" ":palx sysbin;_syseng; klrug\r"
-expect ":KILL"
+palx "sysbin;" "syseng; klrug"
 # 11STNK expects a copy in the . directory.
 respond "*" ":copy sysbin; klrug bin, .;\r"
 
@@ -70,8 +69,7 @@ expect ":KILL"
 respond "*" ":link .; ts boot11, sys1; ts 11stnk\r"
 
 # KL10 diagnostics console program.
-respond "*" ":palx kldcp;_kldcp\r"
-expect ":KILL"
+palx "kldcp;" "kldcp"
 respond "*" ":11stnk\r"
 respond "*" "R"
 respond "FILENAME" "\r"
@@ -83,37 +81,34 @@ expect ":KILL"
 move_to_klfe ".temp.; kldcp bin"
 
 # KL10 diagnostic console utility
-respond "*" ":palx kldcp;_kldcpu\r"
-expect ":KILL"
+palx "kldcp;" "kldcpu\r"
 respond "*" ":pcnvrt kldcp; kldcpu bin\r"
 move_to_klfe "kldcp; kldcpu a11"
 
 # PDP-11 debugger.
 # 16K is used with the DL10 IOELEV.
-respond "*" ":palx .; 11ddt 16k_kldcp; 11ddt\r"
-respond "PDP11=" "40\r"
-respond "EISSW=" "0\r"
-respond "MAPSW=" "0\r"
-respond "HCOR=" "100000\r"
-respond "TT10SW=" "0\r"
-respond "VT05SW=" "0\r"
-respond "DEBSW=" "0\r"
-expect ":KILL"
+palx ".; 11ddt 16k" "kldcp; 11ddt" {
+    respond "PDP11=" "40\r"
+    respond "EISSW=" "0\r"
+    respond "MAPSW=" "0\r"
+    respond "HCOR=" "100000\r"
+    respond "TT10SW=" "0\r"
+    respond "VT05SW=" "0\r"
+    respond "DEBSW=" "0\r"
+}
 # 14K is used with the console IOELEV.
-respond "*" ":palx dsk0:.;11ddt 14k_kldcp; 11ddt\r"
-respond "PDP11=" "40\r"
-respond "EISSW=" "0\r"
-respond "MAPSW=" "0\r"
-respond "HCOR=" "70000\r"
-respond "TT10SW=" "0\r"
-respond "VT05SW=" "0\r"
-respond "DEBSW=" "0\r"
-expect ":KILL"
+palx "dsk0:.;11ddt 14k" "kldcp; 11ddt" {
+    respond "PDP11=" "40\r"
+    respond "EISSW=" "0\r"
+    respond "MAPSW=" "0\r"
+    respond "HCOR=" "70000\r"
+    respond "TT10SW=" "0\r"
+    respond "VT05SW=" "0\r"
+    respond "DEBSW=" "0\r"
+}
 
 # The KL10 console "MC" IOELEV.
-respond "*" ":palx .; cons11_system;ioelev\r"
-respond "MACHINE NAME =" "MC\r"
-expect ":KILL"
+palx ".; cons11" "system;ioelev" { respond "MACHINE NAME =" "MC\r" }
 respond "*" ":11stnk\r"
 respond "*" "D"
 respond "FILENAME" ".; 11ddt 14k\r"
@@ -129,9 +124,7 @@ move_to_klfe ".temp.; ioelev a11"
 # The KL10 "MC-DL" IOELEV.  Put in same directory as KLRUG BIN.
 # TS BOOT11 stuffs it over DL10 in timesharing.  TS 11BOOT makes a
 # @ BOOT11 to stuff out of timesharing.
-respond "*" ":palx sysbin;_system;ioelev\r"
-respond "MACHINE NAME =" "MC\r"
-expect ":KILL"
+palx "sysbin;" "system;ioelev" { respond "MACHINE NAME =" "MC\r" }
 
 # 11BOOT
 respond "*" ":midas;324 sys3;ts 11boot_syseng;11boot\r"

build/misc.tcl

@@ -531,8 +531,7 @@ respond "*" ":midas games;ts ckr_agb;ckr\r"
 expect ":KILL"
 
 # Dazzle Dart, video game for the Logo group PDP-11/45
-respond "*" ":palx bs;_dazzle\r"
-expect ":KILL"
+palx "bs;" "dazzle"
 
 # TOSBLK, convert from PALX binary to SBLK.
 respond "*" ":midas pdp11;ts tosblk_tosblk\r"
@@ -621,7 +620,7 @@ expect ":KILL"
 
 # Phil Budne's PALX Game of Life.
 cwd "budd"
-respond "*" ":palx live palx\r"
+palx "budd;" "live palx"
 
 # MACN11, pdp-11 cross assembler
 cwd "sysen3"
@@ -1547,41 +1546,40 @@ expect ":KILL"
 
 # RUG, PDP-11 debugger.
 cwd "pdp11"
-respond "*" ":palx rug\r"
-respond "?" "2\r"
-respond "?" "100000\r"
-respond "?" "1\r"
-respond "?" "1\r"
-expect ":KILL"
+palx "pdp11;" "rug" {
+    respond "?" "2\r"
+    respond "?" "100000\r"
+    respond "?" "1\r"
+    respond "?" "1\r"
+}
 
 # URUG, GT40 debugger.
-respond "*" ":palx sysbin;_sysen2;urug\r"
-respond "=YES" "1\r"
-respond "37000" "37000\r"
-expect ":KILL"
+palx "sysbin;" "sysen2;urug" {
+    respond "=YES" "1\r"
+    respond "37000" "37000\r"
+}
 
 # GT40 Lunar Lander.
-respond "*" ":palx gt40;_gt40;gtlem\r"
-expect ":KILL"
+palx "gt40;" "gt40;gtlem"
 
 # MINITS
 cwd "mits.s"
-respond "*" ":palx test_config\r"
-respond ":::" "777\r"
-expect ":KILL"
+palx "test" "config" {
+    respond ":::" "777\r"
+}
 
 # MINITS boot ROM for an Interlan network interface.
 cwd "mits.b"
-respond "*" ":palx bootil\r"
-respond "Interlan CSR?" "0\r"
-respond "Chaos address of Interlan board?" "0\r"
-expect "Which set of downloading hosts?"
-respond ")" "0\r"
-respond "Start address?" "0\r"
-respond "Do you want a power up/boot support" "0\r"
-respond "Boot PROM mapping kludge?" "0\r"
-respond "Start of temporary data storage?" "150000\r"
-expect ":KILL"
+palx "mits.b;" "bootil" {
+    respond "Interlan CSR?" "0\r"
+    respond "Chaos address of Interlan board?" "0\r"
+    expect "Which set of downloading hosts?"
+    respond ")" "0\r"
+    respond "Start address?" "0\r"
+    respond "Do you want a power up/boot support" "0\r"
+    respond "Boot PROM mapping kludge?" "0\r"
+    respond "Start of temporary data storage?" "150000\r"
+}
 
 # ITS universal file.
 cwd "decsys"
@@ -1594,15 +1592,15 @@ linker "dftp"
 decuuo "sys1; ts dftp"
 
 # PDP-11 Lisp.
-respond "*" ":palx rms;_lisp11\r"
-respond "System (RANDOM, SIMULATOR, LOGO, MATH, or STANFORD)?" "SIMULATOR\r"
-expect ":KILL"
+palx "rms;" "lisp11" {
+    respond "System (RANDOM, SIMULATOR, LOGO, MATH, or STANFORD)?" "SIMULATOR\r"
+}
 
 # Logo RUG.  STUFF prefers it to be RUG; AR BIN.
-respond "*" ":palx rug;_ar\r"
-# We'll just do the Logo PDP-11/45.
-respond "COMPUTER=" "1\r"
-expect ":KILL"
+palx "rug;" "ar" {
+    # We'll just do the Logo PDP-11/45.
+    respond "COMPUTER=" "1\r"
+}
 
 # PUNCH, punch out paper tapes in the Logo RUG format.
 respond "*" ":midas rug; ts punch_punch\r"
@@ -1616,56 +1614,44 @@ respond "*" ":link sys1; ts mloder, rug; loder bin\r"
 
 # SITS.
 cwd "sits"
-respond "*" ":palx sits\r"
-expect ":KILL"
+palx "sits;" "sits"
 
 # Salvager for the SITS file system.
-respond "*" ":palx salv\r"
-expect ":KILL"
+palx "sits;" "salv"
 
 # System Sphere for SITS.
-respond "*" ":palx sysspr\r"
-expect ":KILL"
+palx "sits;" "sysspr"
 
 # DDT for SITS.
-respond "*" ":palx ddt\r"
-expect ":KILL"
+palx "sits;" "ddt"
 
 # Font loader daemon for SITS.
-respond "*" ":palx fnt\r"
-expect ":KILL"
+palx "sits;" "fnt"
 
 # INQUIR for SITS.
-respond "*" ":palx inquir\r"
-expect ":KILL"
+palx "sits;" "inquir"
 
 # DIRED for SITS.
-respond "*" ":palx dired\r"
-expect ":KILL"
+palx "sits;" "dired"
 
 # TECO for SITS.
 cwd "rjl"
-respond "*" ":palx teco\r"
-expect ":KILL"
+palx "rjl;" "teco"
 
 # SLOGO, 11LOGO for SITS.
 cwd "nlogo"
-respond "*" ":palx slogo_@slogo\r"
-expect ":KILL"
+palx "slogo" "@slogo"
 
 # HLOGO, "Hal hack" 11LOGO.
-respond "*" ":palx hlogo_@hlogo\r"
-expect ":KILL"
+palx "hlogo" "@hlogo"
 
 # ITSCOM, ITS-SITS communication.
 cwd "bee"
-respond "*" ":palx itscom\r"
-expect ":KILL"
+palx "bee;" "itscom"
 
 # ITS, SITS file transfer.
 cwd "gld"
-respond "*" ":palx its\r"
-expect ":KILL"
+palx "gld;" "its"
 
 # TORTIS
 respond "*" ":midas;324 radia;_tortis\r"
@@ -1727,9 +1713,9 @@ expect ":KILL"
 
 # 11LOGO
 cwd "11logo"
-respond "*" ":palx /H/M/CL BIN,N CREF_SYSTEM,TYI,READ,EVAL,TURTLE,ZEND\r"
-respond "ASSSW=" "0\r"
-expect ":KILL"
+palx "/H/M/CL BIN,N CREF" "SYSTEM,TYI,READ,EVAL,TURTLE,ZEND" {
+    respond "ASSSW=" "0\r"
+}
 
 # Apple II Logo
 cwd "aplogo"