mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
Add a TCL procedure for running MIDAS.
This commit is contained in:
Lars Brinkhoff
parent
c0926ae75b
commit
7f2fbf82d2
204
build/basics.tcl
204
build/basics.tcl
@ -13,9 +13,7 @@ respond "*" ":delete .;@ its\r"
|
||||
# The new ITS is now canonical.
|
||||
respond "*" ":rename .;@ nits, .;@ its\r"
|
||||
|
||||
respond "*" ":midas sysbin;_syseng;dump\r"
|
||||
dump_switches
|
||||
expect ":KILL"
|
||||
midas "sysbin;" "syseng;dump" dump_switches
|
||||
respond "*" ":delete sys;ts dump\r"
|
||||
respond "*" ":link sys;ts dump,sysbin;dump bin\r"
|
||||
respond "*" ":link sys;ts load,sys;ts dump\r"
|
||||
@ -34,47 +32,44 @@ mkdir "device"
|
||||
mkdir "cstacy"
|
||||
|
||||
# TCTYP
|
||||
respond "*" ":midas sys1; ts tctyp_syseng;tctyp\r"
|
||||
expect ":KILL"
|
||||
midas "sys1; ts tctyp" "syseng;tctyp"
|
||||
respond "*" ":link sys1;ts tctype, sys1; ts tctyp\r"
|
||||
|
||||
source $build/emacs.tcl
|
||||
|
||||
# TAGS
|
||||
respond "*" ":midas sys2;ts tags_sysen2;tags\r"
|
||||
expect ":KILL"
|
||||
midas "sys2;ts tags" "sysen2;tags"
|
||||
|
||||
# magdmp, paper tape
|
||||
respond "*" ":midas dsk0:.;_syseng;magdmp\r"
|
||||
respond "PTRHRI=" "y\r"
|
||||
magdmp_switches
|
||||
expect ":KILL"
|
||||
midas "dsk0:.;" "syseng;magdmp" {
|
||||
respond "PTRHRI=" "y\r"
|
||||
magdmp_switches
|
||||
}
|
||||
|
||||
# magdmp
|
||||
respond "*" ":midas sys1;ts magfrm_syseng;magfrm\r"
|
||||
expect ":KILL"
|
||||
midas "sys1;ts magfrm" "syseng;magfrm"
|
||||
|
||||
respond "*" ":midas sys1;ts stink_sysen2;stink\r"
|
||||
expect ":KILL"
|
||||
# STINK linker
|
||||
midas "sys1;ts stink" "sysen2;stink"
|
||||
|
||||
respond "*" ":midas sysbin;_sysen1;pdset\r"
|
||||
expect ":KILL"
|
||||
# PDSET
|
||||
midas "sysbin;" "sysen1;pdset"
|
||||
respond "*" ":delete sys;ts pdset\r"
|
||||
respond "*" ":link sys;ts pdset,sysbin;pdset bin\r"
|
||||
|
||||
respond "*" ":midas sysbin;_syseng;lock\r"
|
||||
expect ":KILL"
|
||||
# LOCK
|
||||
midas "sysbin;" "syseng;lock"
|
||||
respond "*" ":delete sys;ts lock\r"
|
||||
respond "*" ":link sys;ts lock,sysbin;lock bin\r"
|
||||
respond "*" ":link sys3; ts vtfix, sys; ts lock\r"
|
||||
|
||||
respond "*" ":midas sysbin;_syseng;@dev\r"
|
||||
expect ":KILL"
|
||||
# ATSIGN DEVICE
|
||||
midas "sysbin;" "syseng;@dev\r"
|
||||
respond "*" ":delete sys;atsign device\r"
|
||||
respond "*" ":link sys;atsign device,sysbin;@dev bin\r"
|
||||
|
||||
respond "*" ":midas sysbin;_syseng;crtsty\r"
|
||||
expect ":KILL"
|
||||
# CRTSTY
|
||||
midas "sysbin;" "syseng;crtsty"
|
||||
respond "*" ":job crtsty\r"
|
||||
respond "*" ":load sysbin;crtsty bin\r"
|
||||
respond "*" "purify\033g"
|
||||
@ -83,18 +78,16 @@ respond "*" ":kill\r"
|
||||
respond "*" ":link sys3;ts crtsty,sysbin;crtsty bin\r"
|
||||
|
||||
# CTN, networking "supdup" CRTSTY
|
||||
respond "*" ":midas /t sysbin;ctn bin_syseng; crtsty\r"
|
||||
respond "with ^C" "NET==1\r\003"
|
||||
expect ":KILL"
|
||||
midast "sysbin;ctn bin" "syseng; crtsty" {
|
||||
respond "with ^C" "NET==1\r\003"
|
||||
}
|
||||
respond "*" ":job ctn\r"
|
||||
respond "*" ":load sysbin; ctn bin\r"
|
||||
respond "*" "purify\033g"
|
||||
respond " BIN" "sys3; ts ctn\r"
|
||||
respond "*" ":kill\r"
|
||||
|
||||
respond "*" ":midas /t sysbin;_sysen2;peek\r"
|
||||
peek_switches
|
||||
expect ":KILL"
|
||||
midast "sysbin;" "sysen2;peek" peek_switches
|
||||
respond "*" ":job peek\r"
|
||||
respond "*" ":load sysbin;peek bin\r"
|
||||
respond "*" "purify\033g"
|
||||
@ -102,65 +95,51 @@ respond {$G} "q"
|
||||
expect ":KILL"
|
||||
respond "*" ":link sys; ts p,sys; ts peek\r"
|
||||
|
||||
respond "*" ":midas device;jobdev arc_syseng;arcdev\r"
|
||||
expect ":KILL"
|
||||
midas "device;jobdev arc" "syseng;arcdev"
|
||||
respond "*" ":link device;jobdev ar,device;jobdev arc\r"
|
||||
|
||||
respond "*" ":midas device;oarcdv bin_sysen2; dmarcd\r"
|
||||
expect ":KILL"
|
||||
midas "device;oarcdv bin" "sysen2; dmarcd"
|
||||
|
||||
# JOBDEV D (DSKDEV)
|
||||
respond "*" ":midas device;jobdev d_syseng;dskdev\r"
|
||||
expect ":KILL"
|
||||
midas "device;jobdev d" "syseng;dskdev"
|
||||
|
||||
respond "*" ":midas sysbin;_sysen2;find\r"
|
||||
expect ":KILL"
|
||||
midas "sysbin;" "sysen2;find"
|
||||
respond "*" ":link sys;ts find,sysbin;find bin\r"
|
||||
respond "*" ":link sys;ts fi,sys;ts find\r"
|
||||
respond "*" ":link sys;ts comb,sys;ts find\r"
|
||||
respond "*" ":link sys2;ts lf,sys;ts find\r"
|
||||
|
||||
respond "*" ":midas sys;ts dskuse_syseng;dskuse\r"
|
||||
expect ":KILL"
|
||||
midas "sys;ts dskuse" "syseng;dskuse"
|
||||
|
||||
respond "*" ":midas channa;atsign taraka_taraka\r"
|
||||
expect ":KILL"
|
||||
midas "channa;atsign taraka" "taraka"
|
||||
respond "*" ":link sys; atsign dragon,channa; atsign taraka\r"
|
||||
|
||||
respond "*" ":midas channa;rakash dmpcpy_syseng; dmpcpy\r"
|
||||
expect ":KILL"
|
||||
midas "channa;rakash dmpcpy" "syseng; dmpcpy"
|
||||
|
||||
respond "*" ":midas channa;rakash modems_syseng; modems\r"
|
||||
expect ":KILL"
|
||||
midas "channa;rakash modems" "syseng; modems"
|
||||
respond "*" ":link channa;ts modems,channa;rakash modems\r"
|
||||
|
||||
respond "*" ":midas channa;rakash netime_sysen1; netime\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":link channa;ts netime,channa;rakash netime\r"
|
||||
|
||||
respond "*" ":link dragon;hourly modems,channa;ts modems\r"
|
||||
|
||||
respond "*" ":midas channa;rakash papsav_sysen3;papsav\r"
|
||||
expect ":KILL"
|
||||
midas "channa;rakash netime" "sysen1; netime"
|
||||
respond "*" ":link channa;ts netime,channa;rakash netime\r"
|
||||
|
||||
respond "*" ":midas dragon;rakash pfthmg_syseng; pft\r"
|
||||
respond "mcp=" "0\r"
|
||||
expect ":KILL"
|
||||
midas "channa;rakash papsav" "sysen3;papsav"
|
||||
|
||||
midas "dragon;rakash pfthmg" "syseng; pft" {
|
||||
respond "mcp=" "0\r"
|
||||
}
|
||||
respond "*" ":link channa; rakash pfthmg,dragon; rakash pfthmg\r"
|
||||
|
||||
# LOSS device
|
||||
respond "*" ":midas device;jobdev loss_syseng;loss\r"
|
||||
expect ":KILL"
|
||||
midas "device;jobdev loss" "syseng;loss"
|
||||
respond "*" ":link device;jobdev los,device;jobdev loss\r"
|
||||
|
||||
respond "*" ":midas syshst;_syshst;hosts3\r"
|
||||
expect ":KILL"
|
||||
midas "syshst;" "syshst;hosts3"
|
||||
respond "*" ":link syshst;ts hosts3,syshst;hosts3 bin\r"
|
||||
|
||||
respond "*" ":link syseng;t20mac 999999,system;t20mac >\r"
|
||||
|
||||
respond "*" ":midas syshst;_syshst;h3make\r"
|
||||
expect ":KILL"
|
||||
midas "syshst;" "syshst;h3make"
|
||||
respond "*" ":link syshst;ts h3make,syshst;h3make bin\r"
|
||||
|
||||
# Run H3MAKE to make the SYSBIN; HOSTS3 > database. H3MAKE looks for
|
||||
@ -172,37 +151,32 @@ respond "*" ":syshst;h3make\r"
|
||||
expect {$$^K}
|
||||
|
||||
# basic TCP support
|
||||
respond "*" ":midas sys;atsign tcp_syseng;@tcp\r"
|
||||
expect ":KILL"
|
||||
midas "sys;atsign tcp" "syseng;@tcp"
|
||||
|
||||
# Chaosnet support
|
||||
respond "*" ":midas sysbin;_syseng;@chaos\r"
|
||||
expect ":KILL"
|
||||
midas "sysbin;" "syseng;@chaos"
|
||||
respond "*" ":link sys;atsign chaos,sysbin;@chaos bin\r"
|
||||
|
||||
# ARPANET support
|
||||
if { ! [string equal "$mchn" "DM"] } {
|
||||
respond "*" ":midas sys;atsign netrfc_syseng; netrfc\r"
|
||||
respond "DEMONP=" "0\r"
|
||||
expect ":KILL"
|
||||
midas "sys;atsign netrfc" "syseng; netrfc" {
|
||||
respond "DEMONP=" "0\r"
|
||||
}
|
||||
}
|
||||
|
||||
# CHA: and CHAOS: device
|
||||
respond "*" ":midas device;jobdev cha_dcp;chadev\r"
|
||||
expect ":KILL"
|
||||
midas "device;jobdev cha" "dcp;chadev"
|
||||
respond "*" ":link device;jobdev chaos,device;jobdev cha\r"
|
||||
|
||||
respond "*" ":link syseng;netwrk 999999,sysnet;netwrk >\r"
|
||||
|
||||
# CHAOS ARPA/NCP/TCP gateway
|
||||
respond "*" ":midas sysnet;_arpa\r"
|
||||
expect ":KILL"
|
||||
midas "sysnet;" "arpa"
|
||||
respond "*" ":link device;chaos arpa, sysnet;arpa bin\r"
|
||||
respond "*" ":link device;chaos ncp, sysnet;arpa bin\r"
|
||||
respond "*" ":link device;chaos tcp, sysnet;arpa bin\r"
|
||||
|
||||
respond "*" ":midas .;ts redrct_sysnet;redrct\r"
|
||||
expect ":KILL"
|
||||
midas ".;ts redrct" "sysnet;redrct"
|
||||
|
||||
# Old NIC Arpanet HOSTS TXT. Run a TECO macro to generate
|
||||
# SYSENG;HOSTS PRETTY and HOSTS INSERT.
|
||||
@ -212,9 +186,7 @@ respond "&" "\032"
|
||||
respond ") " ":kill\r"
|
||||
|
||||
# telnet server
|
||||
respond "*" ":midas sysbin;telser_sysnet;telser\r"
|
||||
expect ":KILL"
|
||||
|
||||
midas "sysbin;telser" "sysnet;telser"
|
||||
# TCP port 23 (telnet) uses TELSER
|
||||
respond "*" ":link device;tcp syn027,sysbin;telser bin\r"
|
||||
# NCP sockets 1 and 23 use TELSER
|
||||
@ -222,13 +194,10 @@ arpanet "rfc001" "sysbin;telser bin"
|
||||
arpanet "rfc027" "sysbin;telser bin"
|
||||
|
||||
# Old telnet server
|
||||
respond "*" ":midas sys;atsign stelnt_syseng;stelnt\r"
|
||||
expect ":KILL"
|
||||
midas "sys;atsign stelnt" "syseng;stelnt"
|
||||
|
||||
# telnet client
|
||||
respond "*" ":midas sysbin;telnet_sysnet;telnet\r"
|
||||
expect ":KILL"
|
||||
|
||||
midas "sysbin;telnet" "sysnet;telnet"
|
||||
respond "*" ":link sys;ts telnet,sysbin;telnet bin\r"
|
||||
respond "*" ":link sys;ts tcptn,sys;ts telnet\r"
|
||||
respond "*" ":link sys;ts ttn,sys;ts telnet\r"
|
||||
@ -236,8 +205,7 @@ respond "*" ":link sys;ts ncptn,sys;ts telnet\r"
|
||||
respond "*" ":link sys;ts oth,sys;ts telnet\r"
|
||||
|
||||
# old user telnet
|
||||
respond "*" ":midas sys1;ts ut_syseng;ut\r"
|
||||
expect ":KILL"
|
||||
midas "sys1;ts ut" "syseng;ut"
|
||||
|
||||
# supdup TCP port (95) uses telser
|
||||
respond "*" ":link device;tcp syn137,sysbin;telser bin\r"
|
||||
@ -247,9 +215,7 @@ arpanet "rfc137" "sysbin;telser bin"
|
||||
arpanet "rcf107" "sys1;ts supdup"
|
||||
|
||||
# supdup client
|
||||
respond "*" ":midas sysbin;supdup_sysnet;supdup\r"
|
||||
expect ":KILL"
|
||||
|
||||
midas "sysbin;supdup" "sysnet;supdup"
|
||||
respond "*" ":link sys1;ts supdup,sysbin;supdup bin\r"
|
||||
|
||||
# these two links are expected by sysnet; ftps > and are present
|
||||
@ -258,9 +224,7 @@ respond "*" ":link ksc;nuuos 999999,klh;nuuos >\r"
|
||||
respond "*" ":link ksc;macros 999999,klh;macros >\r"
|
||||
respond "*" ":link ksc;out 999999,klh; out >\r"
|
||||
|
||||
respond "*" ":midas sysbin;ftps_sysnet;ftps \r"
|
||||
expect ":KILL"
|
||||
|
||||
midas "sysbin;ftps" "sysnet;ftps"
|
||||
respond "*" ":link device;tcp syn025,sysbin;ftps bin\r"
|
||||
respond "*" ":link device;tcp syn031,sysbin;ftps bin\r"
|
||||
respond "*" ":link device;chaos smtp,sysbin;ftps bin\r"
|
||||
@ -269,24 +233,19 @@ arpanet "rfc025" "sysbin;ftps bin"
|
||||
arpanet "rfc031" "sysbin;ftps bin"
|
||||
arpanet "rfc103" "sysbin;ftps bin"
|
||||
|
||||
respond "*" ":midas sysbin;ftpu_sysnet;ftpu\r"
|
||||
expect ":KILL"
|
||||
|
||||
midas "sysbin;ftpu" "sysnet;ftpu"
|
||||
respond "*" ":link sys;ts ftp,sysbin;ftpu bin\r"
|
||||
|
||||
# NAME
|
||||
respond "*" ":midas sysbin;name_sysen2;name\r"
|
||||
expect ":KILL"
|
||||
midas "sysbin;name" "sysen2;name"
|
||||
|
||||
respond "*" ":link syseng;ttytyp 999999,system;ttytyp >\r"
|
||||
|
||||
# Build INQUIR;INQUPD BIN
|
||||
respond "*" ":midas inquir;inqupd bin_inquir;inqupd\r"
|
||||
expect ":KILL"
|
||||
midas "inquir;inqupd bin" "inquir;inqupd"
|
||||
|
||||
# Build INQUIR;DIRS BIN
|
||||
respond "*" ":midas inquir;dirs bin_inquir;dmunch\r"
|
||||
expect ":KILL"
|
||||
midas "inquir;dirs bin" "inquir;dmunch"
|
||||
|
||||
# create .temp.;lsr1 empty
|
||||
respond "*" "lsrini\033j"
|
||||
@ -305,14 +264,13 @@ respond "*" "\033g"
|
||||
expect ":KILL"
|
||||
|
||||
# pword/panda
|
||||
respond "*" ":midas sysbin;panda bin_sysen1;pword\r"
|
||||
respond "Is this to be a PANDA?" "yes\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":midas sysbin;pword bin_sysen1;pword\r"
|
||||
respond "Is this to be a PANDA?" "no\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":midas sysbin;pwinit bin_sysen1;pwinit\r"
|
||||
expect ":KILL"
|
||||
midas "sysbin;panda bin" "sysen1;pword" {
|
||||
respond "Is this to be a PANDA?" "yes\r"
|
||||
}
|
||||
midas "sysbin;pword bin" "sysen1;pword" {
|
||||
respond "Is this to be a PANDA?" "no\r"
|
||||
}
|
||||
midas "sysbin;pwinit bin" "sysen1;pwinit"
|
||||
respond "*" ":job pwinit\r"
|
||||
respond "*" ":load sysbin;pwinit\r"
|
||||
respond "*" "\033g"
|
||||
@ -348,26 +306,20 @@ respond "*" ":link device;tcp syn117,sys;ts name\r"
|
||||
respond "*" ":link device;chaos name,sys;ts name\r"
|
||||
arpanet "rfc117" "sys;ts name"
|
||||
|
||||
respond "*" ":midas device;atsign mldev_sysen2;mldev\r"
|
||||
expect ":KILL"
|
||||
|
||||
midas "device;atsign mldev" "sysen2;mldev"
|
||||
respond "*" ":link device;jobdev db,device;atsign mldev\r"
|
||||
respond "*" ":link device;jobdev es,device;atsign mldev\r"
|
||||
respond "*" ":link device;jobdev no,device;atsign mldev\r"
|
||||
respond "*" ":link device;jobdev sj,device;atsign mldev\r"
|
||||
respond "*" ":link device;jobdev up,device;atsign mldev\r"
|
||||
|
||||
respond "*" ":midas device;atsign mlslv_sysen2;mlslv\r"
|
||||
expect ":KILL"
|
||||
|
||||
midas "device;atsign mlslv" "sysen2;mlslv"
|
||||
respond "*" ":link device;tcp syn123,device;atsign mlslv\r"
|
||||
respond "*" ":link device;chaos mldev,device;atsign mlslv\r"
|
||||
|
||||
respond "*" ":midas device;jobdev fc_sysen2;fcdev\r"
|
||||
expect ":KILL"
|
||||
midas "device;jobdev fc" "sysen2;fcdev"
|
||||
|
||||
respond "*" ":midas device;atsign dirdev_syseng;dirdev\r"
|
||||
expect ":KILL"
|
||||
midas "device;atsign dirdev" "syseng;dirdev"
|
||||
respond "*" ":link device;jobdev dir,device;atsign dirdev\r"
|
||||
respond "*" ":link device;jobdev dirdb,device;atsign dirdev\r"
|
||||
respond "*" ":link device;jobdev dires,device;atsign dirdev\r"
|
||||
@ -375,16 +327,15 @@ respond "*" ":link device;jobdev dirno,device;atsign dirdev\r"
|
||||
respond "*" ":link device;jobdev dirsj,device;atsign dirdev\r"
|
||||
respond "*" ":link device;jobdev dirup,device;atsign dirdev\r"
|
||||
|
||||
respond "*" ":midas sys1;ts cftp_sysen2; cftp\r"
|
||||
respond "KLp==" "0\r"
|
||||
expect ":KILL"
|
||||
midas "sys1;ts cftp" "sysen2; cftp" {
|
||||
respond "KLp==" "0\r"
|
||||
}
|
||||
|
||||
respond "*" ":link device;chaos telnet,sysbin;telser bin\r"
|
||||
respond "*" ":link device;chaos supdup,sysbin;telser bin\r"
|
||||
|
||||
# decuuo
|
||||
respond "*" ":midas decsys;_decuuo\r"
|
||||
expect ":KILL"
|
||||
midas "decsys;" "decuuo"
|
||||
respond "*" ":job decuuo\r"
|
||||
respond "*" ":load decsys;decuuo bin\r"
|
||||
respond "*" "purify\033g"
|
||||
@ -392,19 +343,16 @@ respond "TS DEC" "\r"
|
||||
respond "*" ":kill\r"
|
||||
respond "*" ":link sys;ts dec\021 *,must; be here\r"
|
||||
|
||||
respond "*" ":midas decsys;_decbot\r"
|
||||
expect ":KILL"
|
||||
midas "decsys;" "decbot"
|
||||
|
||||
# palx
|
||||
respond "*" ":midas sys;ts palx_sysen1;palx\r"
|
||||
expect ":KILL"
|
||||
midas "sys;ts palx" "sysen1;palx"
|
||||
|
||||
# GT40 boot ROM.
|
||||
palx "gt40;" "gt40;bootvt"
|
||||
|
||||
# PLAN/CREATE
|
||||
respond "*" ":midas sys3;ts create_syseng;create\r"
|
||||
expect ":KILL"
|
||||
midas "sys3;ts create" "syseng;create"
|
||||
respond "*" ":link sys1;ts plan,sys3;ts create\r"
|
||||
|
||||
processor_basics
|
||||
|
||||
@ -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"
|
||||
|
||||
34
build/dm.tcl
34
build/dm.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/"
|
||||
|
||||
@ -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
|
||||
|
||||
@ -83,26 +83,24 @@ 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 {} {
|
||||
@ -110,17 +108,13 @@ proc make_dskdmp {} {
|
||||
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"
|
||||
|
||||
@ -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
|
||||
|
||||
@ -51,40 +51,39 @@ proc its_switches {} {
|
||||
|
||||
proc make_ntsddt {} {
|
||||
# KL10 NTSDDT.
|
||||
respond "*" ":midas dsk0:.;@ ddt_system;ddt\r"
|
||||
respond "cpusw=" "2\r"
|
||||
respond "ndsk=" "3\r"
|
||||
respond "dsksw=" "3\r"
|
||||
respond "dsktp=" "0\r"
|
||||
respond "1PRSW=" "0\r"
|
||||
expect ":KILL"
|
||||
midas "dsk0:.;@ ddt" "system;ddt" {
|
||||
respond "cpusw=" "2\r"
|
||||
respond "ndsk=" "3\r"
|
||||
respond "dsksw=" "3\r"
|
||||
respond "dsktp=" "0\r"
|
||||
respond "1PRSW=" "0\r"
|
||||
}
|
||||
}
|
||||
|
||||
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 {} {
|
||||
respond "*" ":midas dsk0:.;@ dskdmp_system;dskdmp\r"
|
||||
expect "Configuration"
|
||||
respond "?" "ASK\r"
|
||||
respond "HRIFLG=" "N\r"
|
||||
respond "BOOTSW=" "N\r"
|
||||
respond "R11R6P=" "N\r"
|
||||
respond "R11R7P=" "N\r"
|
||||
respond "RM03P=" "N\r"
|
||||
respond "RM80P=" "N\r"
|
||||
respond "RH10P=" "Y\r"
|
||||
respond "R10R6P=" "N\r"
|
||||
respond "NUDSL=" "500.\r"
|
||||
respond "KS10P=" "N\r"
|
||||
respond "KL10P=" "Y\r"
|
||||
expect ":KILL"
|
||||
midas "dsk0:.;@ dskdmp" "system;dskdmp" {
|
||||
expect "Configuration"
|
||||
respond "?" "ASK\r"
|
||||
respond "HRIFLG=" "N\r"
|
||||
respond "BOOTSW=" "N\r"
|
||||
respond "R11R6P=" "N\r"
|
||||
respond "R11R7P=" "N\r"
|
||||
respond "RM03P=" "N\r"
|
||||
respond "RM80P=" "N\r"
|
||||
respond "RH10P=" "Y\r"
|
||||
respond "R10R6P=" "N\r"
|
||||
respond "NUDSL=" "500.\r"
|
||||
respond "KS10P=" "N\r"
|
||||
respond "KL10P=" "Y\r"
|
||||
}
|
||||
}
|
||||
|
||||
proc dump_switches {} {
|
||||
@ -140,10 +139,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"
|
||||
|
||||
@ -3,10 +3,10 @@ log_progress "ENTERING BUILD SCRIPT: PROCESSOR"
|
||||
# Programs particular to the KL10 processor.
|
||||
|
||||
# KL10 front end directory tool
|
||||
respond "*" ":midas sys1;ts klfedr_syseng;klfedr\r"
|
||||
respond "RP06P=" "0\r"
|
||||
respond "RP04P=" "1\r"
|
||||
expect ":KILL"
|
||||
midas "sys1;ts klfedr" "syseng;klfedr" {
|
||||
respond "RP06P=" "0\r"
|
||||
respond "RP04P=" "1\r"
|
||||
}
|
||||
|
||||
mkdir ".klfe."
|
||||
respond "*" ":move .temp.; -read- -this-, .klfe.;\r"
|
||||
@ -14,8 +14,7 @@ copy_to_klfe "kldcp; kldcp hlp"
|
||||
#copy_to_klfe "kldcp; kldcp doc"
|
||||
|
||||
# KL10 microcode assembler
|
||||
respond "*" ":midas sysbin;_syseng;micro\r"
|
||||
expect ":KILL"
|
||||
midas "sysbin;" "syseng;micro"
|
||||
respond "*" ":job micro\r"
|
||||
respond "*" ":load sysbin; micro bin\r"
|
||||
respond "*" ":start purify\r"
|
||||
@ -23,8 +22,7 @@ respond "TS MICRO" "sys; ts micro\r"
|
||||
respond "*" ":kill\r"
|
||||
|
||||
# Microcode ASCIIzer and binarator converter.
|
||||
respond "*" ":midas sysbin;_syseng;cnvrt\r"
|
||||
expect ":KILL"
|
||||
midas "sysbin;" "syseng;cnvrt"
|
||||
respond "*" ":link sys1;ts mcnvrt,sysbin;cnvrt bin\r"
|
||||
respond "*" ":link sys1;ts pcnvrt,sysbin;cnvrt bin\r"
|
||||
respond "*" ":link sys1;ts ucnvrt,sysbin;cnvrt bin\r"
|
||||
@ -54,8 +52,7 @@ expect ":KILL"
|
||||
move_to_klfe "kldcp; klddt a10"
|
||||
|
||||
# KL10 front end dumper
|
||||
respond "*" ":midas dsk0:.;@ fedump_kldcp; fedump\r"
|
||||
expect ":KILL"
|
||||
midas "dsk0:.;@ fedump" "kldcp; fedump"
|
||||
|
||||
# KL10 front end debugger. Put it in the same directory as the
|
||||
# "MC" IOELEV.
|
||||
@ -64,8 +61,7 @@ palx "sysbin;" "syseng; klrug"
|
||||
respond "*" ":copy sysbin; klrug bin, .;\r"
|
||||
|
||||
# PDP-11 linker.
|
||||
respond "*" ":midas sys1;ts 11stnk_kldcp;11stnk\r"
|
||||
expect ":KILL"
|
||||
midas "sys1;ts 11stnk" "kldcp;11stnk"
|
||||
respond "*" ":link .; ts boot11, sys1; ts 11stnk\r"
|
||||
|
||||
# KL10 diagnostics console program.
|
||||
@ -127,8 +123,7 @@ move_to_klfe ".temp.; ioelev a11"
|
||||
palx "sysbin;" "system;ioelev" { respond "MACHINE NAME =" "MC\r" }
|
||||
|
||||
# 11BOOT
|
||||
respond "*" ":midas;324 sys3;ts 11boot_syseng;11boot\r"
|
||||
expect ":KILL"
|
||||
midas;"324 sys3;ts 11boot" "syseng;11boot"
|
||||
# Note, must be run with symbols loaded.
|
||||
# Takes IOELEV BIN and KLRUG BIN from the current directory.
|
||||
cwd "sysbin"
|
||||
@ -137,5 +132,4 @@ expect ":KILL"
|
||||
respond "*" ":move sysbin;@ boot11, .;\r"
|
||||
|
||||
# LSPEED
|
||||
respond "*" ":midas sys1;ts lspeed_syseng;lspeed\r"
|
||||
expect ":KILL"
|
||||
midas "sys1;ts lspeed" "syseng;lspeed"
|
||||
|
||||
@ -83,8 +83,7 @@ proc prepare_frontend {} {
|
||||
respond "*" ":login db\r"
|
||||
type ":vk\r"
|
||||
|
||||
respond "*" ":midas sysbin;_kshack;ksfedr\r"
|
||||
expect ":KILL"
|
||||
midas "sysbin;" "kshack;ksfedr"
|
||||
respond "*" ":delete sys;ts ksfedr\r"
|
||||
respond "*" ":link sys;ts ksfedr,sysbin;ksfedr bin\r"
|
||||
|
||||
@ -149,27 +148,22 @@ proc its_switches {} {
|
||||
}
|
||||
|
||||
proc make_ntsddt {} {
|
||||
respond "*" ":midas dsk0:.;@ ddt_system;ddt\r"
|
||||
respond "cpusw" "3\r"
|
||||
respond "dsktp=" "1\r"
|
||||
respond "New One Proceed" "1\r"
|
||||
expect ":KILL"
|
||||
midas "dsk0:.;@ ddt" "system;ddt" {
|
||||
respond "cpusw" "3\r"
|
||||
respond "dsktp=" "1\r"
|
||||
respond "New One Proceed" "1\r"
|
||||
}
|
||||
}
|
||||
|
||||
proc make_salv {} {
|
||||
respond "*" ":midas dsk0:.;_kshack;nsalv\r"
|
||||
respond "Which machine?" "KSRP06\r"
|
||||
expect ":KILL"
|
||||
midas "dsk0:.;" "kshack;nsalv" {
|
||||
respond "Which machine?" "KSRP06\r"
|
||||
}
|
||||
}
|
||||
|
||||
proc make_dskdmp {} {
|
||||
respond "*" ":midas dsk0:.;_system;dskdmp\r"
|
||||
dskdmp_switches "no"
|
||||
expect ":KILL"
|
||||
|
||||
respond "*" ":midas dsk0:.;bt_system;dskdmp\r"
|
||||
dskdmp_switches "yes"
|
||||
expect ":KILL"
|
||||
midas "dsk0:.;" "system;dskdmp" { dskdmp_switches "no" }
|
||||
midas "dsk0:.;bt" "system;dskdmp" { dskdmp_switches "yes" }
|
||||
}
|
||||
|
||||
proc dump_switches {} {
|
||||
@ -256,6 +250,5 @@ proc dqxdev_switches {} {
|
||||
|
||||
proc processor_basics {} {
|
||||
# Create KS10 bootable tape.
|
||||
respond "*" ":midas kshack;ts mtboot_kshack;mtboot\r"
|
||||
expect ":KILL"
|
||||
midas "kshack;ts mtboot" "kshack;mtboot"
|
||||
}
|
||||
|
||||
@ -11,8 +11,7 @@ respond "*" "\003"
|
||||
type ":kill\r"
|
||||
|
||||
# KS10 microcode assembler
|
||||
respond "*" ":midas kshack;ts micro_micro\r"
|
||||
expect ":KILL"
|
||||
midas "kshack;ts micro" "micro"
|
||||
|
||||
# KS10 microcode.
|
||||
# It doesn't seem to work very well when purified.
|
||||
@ -32,5 +31,4 @@ respond "!" "quit\r"
|
||||
expect ":KILL"
|
||||
|
||||
# TENTH, toy Forth for KS10.
|
||||
respond "*" ":midas .; @ tenth_aap; tenth\r"
|
||||
expect ":KILL"
|
||||
midas ".; @ tenth" "aap; tenth"
|
||||
|
||||
@ -8,9 +8,9 @@ respond "*" ":link lisp;grinde fasl,lisp;gfn fasl\r"
|
||||
respond "*" ":link l;loop fasl,liblsp;loop fasl\r"
|
||||
respond "*" ":link lisp;loop fasl,liblsp;loop fasl\r"
|
||||
|
||||
respond "*" ":midas .temp.;_l;*lisp\r"
|
||||
respond "end input with ^C" "\003"
|
||||
expect ":KILL"
|
||||
midas ".temp.;" "l;*lisp" {
|
||||
respond "end input with ^C" "\003"
|
||||
}
|
||||
respond "*" ":job lisp\r"
|
||||
respond "*" ":load .temp.;*lisp bin\r"
|
||||
respond "*" "\033g"
|
||||
@ -52,13 +52,12 @@ respond "*" ":link info;complr 1,info;lispc >\r"
|
||||
# lisp;* fasl that that have autoload properties in interpreter
|
||||
respond "*" ":link sys;.fasl defs,lisp;.fasl defs\r"
|
||||
respond "*" ":link sys;fasdfs 1,lisp;.fasl defs\r"
|
||||
respond "*" ":midas lisp;_l;allfil\r"
|
||||
respond "*" ":midas lisp;_l;bltarr\r"
|
||||
respond "*" ":midas lisp;_lspsrc;edit\r"
|
||||
respond "*" ":midas lisp;_l;getmid\r"
|
||||
respond "*" ":midas lisp;_l;humble\r"
|
||||
respond "*" ":midas lisp;_lspsrc;sort\r"
|
||||
expect ":KILL"
|
||||
midas "lisp;" "l;allfil"
|
||||
midas "lisp;" "l;bltarr"
|
||||
midas "lisp;" "lspsrc;edit"
|
||||
midas "lisp;" "l;getmid"
|
||||
midas "lisp;" "l;humble"
|
||||
midas "lisp;" "lspsrc;sort"
|
||||
|
||||
respond "*" ":link lisp;subloa lsp,nilcom;subloa >\r"
|
||||
|
||||
@ -182,10 +181,8 @@ respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
# inquir
|
||||
respond "*" ":midas inquir;_lsrrtn\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":midas inquir;_cstacy;netrtn\r"
|
||||
expect ":KILL"
|
||||
midas "inquir;" "lsrrtn"
|
||||
midas "inquir;" "cstacy;netrtn"
|
||||
|
||||
respond "*" ":link liblsp;debug fasl,liblsp;dbg fasl\r"
|
||||
respond "*" ":link lisp;debug fasl,liblsp;debug fasl\r"
|
||||
@ -199,10 +196,8 @@ respond "_" "inquir;inquir\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" ":midas inquir;ts inqexm_inqexm\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":midas inquir;ts inqrep_inqrep\r"
|
||||
expect ":KILL"
|
||||
midas "inquir;ts inqexm" "inqexm"
|
||||
midas "inquir;ts inqrep" "inqrep"
|
||||
respond "*" ":link inquir;ts inqchk,ts inquir\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
@ -235,16 +230,12 @@ type ":kill\r"
|
||||
|
||||
respond "*" ":link inquir;lsrtns 1,syseng;lsrtns >\r"
|
||||
|
||||
respond "*" ":midas inquir;ts lookup_inquir;lookup\r"
|
||||
expect ":KILL"
|
||||
|
||||
midas "inquir;ts lookup" "inquir;lookup"
|
||||
respond "*" ":link sys1;ts lookup,inquir;ts lookup\r"
|
||||
|
||||
respond "*" ":midas sys3;ts lsrprt_sysen1; lsrprt\r"
|
||||
expect ":KILL"
|
||||
midas "sys3;ts lsrprt" "sysen1; lsrprt"
|
||||
|
||||
respond "*" ":midas sys3;ts lsrdmp_bawden; lsrdmp\r"
|
||||
expect ":KILL"
|
||||
midas "sys3;ts lsrdmp" "bawden; lsrdmp"
|
||||
|
||||
# more lisp packages
|
||||
respond "*" ":link lisp;tty fasl,liblsp;tty fasl\r"
|
||||
@ -291,10 +282,8 @@ respond "_" "lisp;_nilcom;thread\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" ":midas lisp;_l;lchnsp\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":midas lisp;_l;purep\r"
|
||||
expect ":KILL"
|
||||
midas "lisp;" "l;lchnsp"
|
||||
midas "lisp;" "l;purep"
|
||||
|
||||
# struct
|
||||
|
||||
@ -315,8 +304,7 @@ type ":kill\r"
|
||||
respond "*" ":copy alan;nstruc fasl,liblsp;struct fasl\r"
|
||||
respond "*" ":link lisp;struct fasl,liblsp;struct fasl\r"
|
||||
|
||||
respond "*" ":midas liblsp;_alan;macits\r"
|
||||
expect ":KILL"
|
||||
midas "liblsp;" "alan;macits"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_alan;dprint\r"
|
||||
@ -514,15 +502,15 @@ respond "_" "lisp;_nilcom;subloa\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" ":midas liblsp;_libdoc;bssq\r"
|
||||
respond "*" ":midas liblsp;_libdoc;aryadr\r"
|
||||
respond "*" ":midas liblsp;_libdoc;link\r"
|
||||
respond "*" ":midas liblsp;_libdoc;lscall\r"
|
||||
respond "*" ":midas liblsp;_libdoc;cpyhnk\r"
|
||||
midas "liblsp;" "libdoc;bssq"
|
||||
midas "liblsp;" "libdoc;aryadr"
|
||||
midas "liblsp;" "libdoc;link"
|
||||
midas "liblsp;" "libdoc;lscall"
|
||||
midas "liblsp;" "libdoc;cpyhnk"
|
||||
|
||||
respond "*" ":link lisp;defns mid,l;defns >\r"
|
||||
respond "*" ":midas liblsp;_libdoc;fft\r"
|
||||
respond "*" ":midas liblsp;_libdoc;phase\r"
|
||||
midas "liblsp;" "libdoc;fft"
|
||||
midas "liblsp;" "libdoc;phase"
|
||||
|
||||
# More LIBLSP packages
|
||||
respond "*" "complr\013"
|
||||
@ -540,8 +528,8 @@ respond "_" "liblsp;_libdoc;stacks\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" ":midas liblsp;_libdoc;dirsiz\r"
|
||||
respond "*" ":midas liblsp;_z;timer\r"
|
||||
midas "liblsp;" "libdoc;dirsiz"
|
||||
midas "liblsp;" "z;timer"
|
||||
|
||||
respond "*" ":link lisp;vsaid lisp,nilcom;vsaid >\r"
|
||||
respond "*" "complr\013"
|
||||
@ -557,14 +545,12 @@ respond "Delete? (Y or N):" "y"
|
||||
respond "@" "q\r"
|
||||
expect ":KILL"
|
||||
|
||||
respond "*" ":midas liblsp;_gsb;ttyvar\r"
|
||||
respond "Use what filename instead?" "lisp;\r"
|
||||
expect ":KILL"
|
||||
midas "liblsp;" "gsb;ttyvar" {
|
||||
respond "Use what filename instead?" "lisp;\r"
|
||||
}
|
||||
|
||||
respond "*" ":midas liblsp;_libdoc;aryadr\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":midas liblsp;_libdoc;bssq\r"
|
||||
expect ":KILL"
|
||||
midas "liblsp;" "libdoc;aryadr"
|
||||
midas "liblsp;" "libdoc;bssq"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;lddt\r"
|
||||
@ -628,10 +614,8 @@ respond "_" "lisp;_lspsrc;vector\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" ":midas lisp;_lspsrc;sendi\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":midas lisp;_lspsrc;straux\r"
|
||||
expect ":KILL"
|
||||
midas "lisp;" "lspsrc;sendi"
|
||||
midas "lisp;" "lspsrc;straux"
|
||||
|
||||
# lispt source is in libdoc, therefore fasl should be in liblsp
|
||||
# version in lisp; should be a link to liblsp;lispf fasl
|
||||
@ -640,14 +624,13 @@ respond "*" ":link lisp;lispt fasl,liblsp;\r"
|
||||
respond "*" ":link sys2;ts lispt,sys2;ts edit\r"
|
||||
|
||||
# Lisp display library
|
||||
respond "*" ":midas lisp; slave fasl_l; slave\r"
|
||||
expect ":KILL"
|
||||
midas "lisp; slave fasl" "l; slave"
|
||||
|
||||
# Lisp display slave, PDP-10 and GT40 version.
|
||||
respond "*" ":midas sys; atsign 10slav_sysen2; ld10\r"
|
||||
respond " PDP6F = " "0\r"
|
||||
respond "GT40F=" "1\r"
|
||||
expect ":KILL"
|
||||
midas "sys; atsign 10slav" "sysen2; ld10" {
|
||||
respond " PDP6F = " "0\r"
|
||||
respond "GT40F=" "1\r"
|
||||
}
|
||||
|
||||
# animal
|
||||
respond "*" "complr\013"
|
||||
|
||||
@ -52,10 +52,8 @@ type ":kill\r"
|
||||
# the following are required to compile some of the libmax;
|
||||
# FASL files
|
||||
#
|
||||
respond "*" ":midas rwk;lfsdef fasl_rwk;lfsdef\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":midas rat;ratlap fasl_rat;ratlap\r"
|
||||
expect ":KILL"
|
||||
midas "rwk;lfsdef fasl" "rwk;lfsdef"
|
||||
midas "rat;ratlap fasl" "rat;ratlap"
|
||||
mkdir "maxdmp"
|
||||
respond "*" ":link maxdmp;ratlap fasl,rat;ratlap fasl\r"
|
||||
respond "*" ":link libmax;lusets fasl,liblsp;\r"
|
||||
@ -215,7 +213,7 @@ respond "*" "(dump-mcl 32. t)"
|
||||
respond "File name->" "\002"
|
||||
respond ";BKPT" "(quit)"
|
||||
|
||||
respond "*" ":midas maxtul;ts mcl_mcldmp midas\r"
|
||||
midas "maxtul;ts mcl" "mcldmp midas"
|
||||
respond "*" ":link maxtul;.good. complr,maxtul;mcldmp 32\r"
|
||||
|
||||
# build UTMCL -- the compiler invoked by compile_lisp_file in Macsyma
|
||||
|
||||
@ -31,8 +31,7 @@ expect ":KILL"
|
||||
respond "*" ":listf sys\r"
|
||||
|
||||
mkdir "sysbin"
|
||||
respond "*" ":midas sysbin;_midas;midas\r"
|
||||
expect ":KILL"
|
||||
midas "sysbin;" "midas;midas"
|
||||
respond "*" ":job midas\r"
|
||||
respond "*" ":load sysbin;midas bin\r"
|
||||
respond "*" "purify\033g"
|
||||
@ -40,17 +39,14 @@ respond "CR to dump" "\r"
|
||||
sleep 2
|
||||
respond "*" ":kill\r"
|
||||
|
||||
respond "*" ":midas sysbin;_sysen1;ddt\r"
|
||||
expect ":KILL"
|
||||
midas "sysbin;" "sysen1;ddt"
|
||||
respond "*" ":job ddt\r"
|
||||
respond "*" ":load sysbin;ddt bin\r"
|
||||
respond "*" "purify\033g"
|
||||
respond "*" ":pdump sys;atsign ddt\r"
|
||||
respond "*" ":kill\r"
|
||||
|
||||
respond "*" ":midas dsk0:.;_system;its\r"
|
||||
its_switches
|
||||
expect ":KILL"
|
||||
midas "dsk0:.;" "system;its" its_switches
|
||||
|
||||
make_ntsddt
|
||||
|
||||
|
||||
@ -2,9 +2,9 @@
|
||||
respond "*" ":link dragon; hourly gunner, cstacy; gunner bin\r"
|
||||
|
||||
#Run a weekly unattended incremental dump.
|
||||
respond "*" ":midas dragon; weekly backup_lars; backup\r"
|
||||
respond "HOST NAME =" "177001\r"
|
||||
expect ":KILL"
|
||||
midas "dragon; weekly backup" "lars; backup" {
|
||||
respond "HOST NAME =" "177001\r"
|
||||
}
|
||||
|
||||
# get rid of links to daemons that don't run correctly
|
||||
respond "*" ":delete dragon;hourly digest\r"
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
#Enable the remote shutdown service.
|
||||
respond "*" ":midas /t device;chaos shutdo_sysnet;shutsr\r"
|
||||
respond "end input with ^C" "ALLOW==177001\r\003"
|
||||
expect ":KILL"
|
||||
midas "/t device;chaos shutdo" "sysnet;shutsr" {
|
||||
respond "end input with ^C" "ALLOW==177001\r\003"
|
||||
}
|
||||
|
||||
#Disable the DM gunner.
|
||||
respond "*" ":delete sys;atsign gunner\r"
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
#Enable the remote shutdown service.
|
||||
respond "*" ":midas /t device;chaos shutdo_sysnet;shutsr\r"
|
||||
respond "end input with ^C" "ALLOW==3036\r\003"
|
||||
expect ":KILL"
|
||||
midas "/t device;chaos shutdo" "sysnet;shutsr" {
|
||||
respond "end input with ^C" "ALLOW==3036\r\003"
|
||||
}
|
||||
|
||||
#Disable the DM gunner.
|
||||
respond "*" ":delete sys;atsign gunner\r"
|
||||
@ -10,9 +10,9 @@ respond "*" ":delete sys;atsign gunner\r"
|
||||
respond "*" ":link dragon; hourly gunner, cstacy; gunner bin\r"
|
||||
|
||||
#Run a weekly unattended incremental dump.
|
||||
respond "*" ":midas dragon; weekly backup_lars; backup\r"
|
||||
respond "HOST NAME =" "3036\r"
|
||||
expect ":KILL"
|
||||
midas "dragon; weekly backup" "lars; backup" {
|
||||
respond "HOST NAME =" "3036\r"
|
||||
}
|
||||
|
||||
# get rid of links to daemons that don't run correctly
|
||||
respond "*" ":delete dragon;hourly digest\r"
|
||||
|
||||
825
build/misc.tcl
825
build/misc.tcl
File diff suppressed because it is too large
Load Diff
@ -20,15 +20,10 @@ build_muddle "muds54" "54"
|
||||
build_muddle "mudsys" "56"
|
||||
|
||||
# Generate SAV FILE and FIXUP FILE for Muddle pure code library
|
||||
respond "*" ":midas mudsys; ts mksvfl_mudsys;mksvfl\r"
|
||||
expect ":KILL"
|
||||
midas "mudsys; ts mksvfl" "mudsys;mksvfl"
|
||||
|
||||
# Run mksvfl to create pure library for MDL 54 for the purposes of the 500-point zork
|
||||
respond "*" ":mudsys;mksvfl\r"
|
||||
expect ":KILL"
|
||||
|
||||
respond "*" ":midas sys3; ts mudinq_sysen2; mudinq\r"
|
||||
expect ":KILL"
|
||||
midas "sys3; ts mudinq" "sysen2; mudinq"
|
||||
respond "*" ":link sys3; ts purge, sys3; ts mudinq\r"
|
||||
respond "*" ":link sys3; ts makscr, sys3; ts mudinq\r"
|
||||
respond "*" ":link sys3; ts status, sys3; ts mudinq\r"
|
||||
@ -37,51 +32,49 @@ respond "*" ":link sys3; ts whomud, sys3; ts mudinq\r"
|
||||
respond "*" ":link sys3; ts mdl,mudsav; ts mud56\r"
|
||||
respond "*" ":link sys3; ts muddle,mudsav; ts mud56\r"
|
||||
|
||||
respond "*" ":midas sys3; ts mudcom_sysen3; mudcom\r"
|
||||
respond "(Y OR N)" "Y\r"
|
||||
expect ":KILL"
|
||||
midas "sys3; ts mudcom" "sysen3; mudcom" {
|
||||
respond "(Y OR N)" "Y\r"
|
||||
}
|
||||
respond "*" ":link sys3; ts mudchk, sys3; ts mudcom\r"
|
||||
respond "*" ":link sys3; ts mudlst, sys3; ts mudcom\r"
|
||||
respond "*" ":link sys3; ts mudfnd, sys3; ts mudcom\r"
|
||||
|
||||
respond "*" ":midas sys3; ts combat_sysen3; combat\r"
|
||||
respond "(Y OR N)" "Y\r"
|
||||
expect ":KILL"
|
||||
midas "sys3; ts combat" "sysen3; combat" {
|
||||
respond "(Y OR N)" "Y\r"
|
||||
}
|
||||
|
||||
respond "*" ":midas sys3; ts pick_sysen2; pick\r"
|
||||
expect ":KILL"
|
||||
midas "sys3; ts pick" "sysen2; pick"
|
||||
|
||||
respond "*" ":link sys1;ts mud55,mudsav;ts mud55\r"
|
||||
|
||||
#Build Muddle PCOMP compiler.
|
||||
respond "*" ":midas sys1;ts pcomp_mudsys;subsys maker\r"
|
||||
respond "Type in Subsystem (Save File) name:" "pcomp\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" "mudsav\r"
|
||||
expect ":KILL"
|
||||
midas "sys1;ts pcomp" "mudsys;subsys maker" {
|
||||
respond "Type in Subsystem (Save File) name:" "pcomp\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" "mudsav\r"
|
||||
}
|
||||
|
||||
#Build Muddle ASSEM assembler.
|
||||
respond "*" ":midas sys1;ts assem_mudsys;subsys maker\r"
|
||||
respond "Type in Subsystem (Save File) name:" "assem\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" "mudsav\r"
|
||||
expect ":KILL"
|
||||
midas "sys1;ts assem" "mudsys;subsys maker" {
|
||||
respond "Type in Subsystem (Save File) name:" "assem\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" "mudsav\r"
|
||||
}
|
||||
|
||||
mkdir "mbprog"
|
||||
respond "*" ":assem \"mprog2;lsrtns >\" \"mbprog;lsrtns nbin\"\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":midas mudsys;ts dem_mudsys;itsdem\r"
|
||||
expect ":KILL"
|
||||
midas "mudsys;ts dem" "mudsys;itsdem"
|
||||
|
||||
# Build Muddle ECOMP compiler (PCOMP isn't good enough)
|
||||
respond "*" ":midas sys1;ts ecomp_mudsys;subsys maker\r"
|
||||
respond "Type in Subsystem (Save File) name:" "ecomp\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" "mudsav\r"
|
||||
expect ":KILL"
|
||||
midas "sys1;ts ecomp" "mudsys;subsys maker" {
|
||||
respond "Type in Subsystem (Save File) name:" "ecomp\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" "mudsav\r"
|
||||
}
|
||||
|
||||
# Build DM Daemons (COMBAT ZONE, BATCHN). GUNNER is already built in dm.tcl
|
||||
|
||||
@ -103,12 +96,12 @@ type "\i<BATCH-COMPIL>\r>\033"
|
||||
respond "#FALSE ()" "<QUIT>\033"
|
||||
expect ":KILL"
|
||||
|
||||
respond "*" ":midas sys;atsign zone_mudsys;subsys maker\r"
|
||||
respond "Type in Subsystem (Save File) name:" "zone\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" "mudsav\r"
|
||||
expect ":KILL"
|
||||
midas "sys;atsign zone" "mudsys;subsys maker" {
|
||||
respond "Type in Subsystem (Save File) name:" "zone\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" "mudsav\r"
|
||||
}
|
||||
|
||||
# Build BATCHN daemon
|
||||
|
||||
@ -136,12 +129,12 @@ respond "\"DONE\"" "<SAVER T>\033"
|
||||
respond "TO CREATE SAVE FILE\"" "<QUIT>\033"
|
||||
expect ":KILL"
|
||||
|
||||
respond "*" ":midas sys;atsign batchn_mudsys;subsys maker\r"
|
||||
respond "Type in Subsystem (Save File) name:" "batchn\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "save\r"
|
||||
respond "Type Sname of Save File:" ".batch\r"
|
||||
expect ":KILL"
|
||||
midas "sys;atsign batchn" "mudsys;subsys maker" {
|
||||
respond "Type in Subsystem (Save File) name:" "batchn\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "save\r"
|
||||
respond "Type Sname of Save File:" ".batch\r"
|
||||
}
|
||||
|
||||
# Now build BATCH user program (interfaces with BATCHN daemon)
|
||||
|
||||
@ -161,9 +154,9 @@ respond "\"DONE\"" "<DUMPCAL!-MUDCAL!-PACKAGE B11 \".batch;nbatch 55save\">\033"
|
||||
respond "\"SAVED\"" "<QUIT>\033"
|
||||
expect ":KILL"
|
||||
|
||||
respond "*" ":midas sys3;ts batch_mudsys;subsys maker\r"
|
||||
respond "Type in Subsystem (Save File) name:" "nbatch\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" ".batch\r"
|
||||
expect ":KILL"
|
||||
midas "sys3;ts batch" "mudsys;subsys maker" {
|
||||
respond "Type in Subsystem (Save File) name:" "nbatch\r"
|
||||
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
||||
respond "Type Second Name of Save File:" "55save\r"
|
||||
respond "Type Sname of Save File:" ".batch\r"
|
||||
}
|
||||
|
||||
@ -119,5 +119,4 @@ respond "GO ON." "Y\r"
|
||||
respond "WL BIN" "\r"
|
||||
respond "*" ":kill\r"
|
||||
|
||||
respond "*" ":midas datdrw;_draw; scnv\r"
|
||||
expect ":KILL"
|
||||
midas "datdrw;" "draw; scnv"
|
||||
|
||||
@ -1,12 +1,10 @@
|
||||
log_progress "ENTERING BUILD SCRIPT: ZORK"
|
||||
|
||||
# Old Zork startup
|
||||
respond "*" ":midas sys2; ts ozork_taa; zork\r"
|
||||
expect ":KILL"
|
||||
midas "sys2; ts ozork" "taa; zork"
|
||||
|
||||
# New Zork startup
|
||||
respond "*" ":midas sys; ts rbye_cfs; zork\r"
|
||||
expect ":KILL"
|
||||
midas "sys; ts rbye" "cfs; zork"
|
||||
respond "*" ":link sys1;ts zork, sys; ts rbye\r"
|
||||
|
||||
mkdir "cfs"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user