mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
1cfbed3743
Both of these are from MIT's zork-1978-01 release. MADMAN; MADADV SAVE is from 1978-01-28 (it's madadv.save_3 there), and TAA; ZORK 3 is from an archive dated 1978-01-27. Unfortunately this isn't the final version of Zork -- in particular, it doesn't have the endgame. The launcher will also work with the other 1977/78 Zork images MIT have released, provided you copy them to MADMAN; MADADV SAVE. Note that we already have the non-DM fake Zork in SYS3; TS ZORK, but the real Zork was in SYS2; on DM, so the recommended ZORK^K will find it first.
2068 lines
51 KiB
Tcl
2068 lines
51 KiB
Tcl
log_progress "ENTERING BUILD SCRIPT: MISC"
|
||
|
||
respond "*" ":midas /t sysbin; midas 324bin_midas; midas 324\r"
|
||
respond "\n" "itssw==1\r"
|
||
respond "\n" "ptr==100\r"
|
||
respond "\n" "ldbi=ildb\r"
|
||
respond "\n" "dpbi=idpb\003"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":job midas\r"
|
||
respond "*" ":load sysbin; midas 324bin\r"
|
||
respond "*" "purify\033g"
|
||
respond "TS MIDAS" "midas;ts 324\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# MIDAS 77, needed for MUSRUN.
|
||
respond "*" ":job midas\r"
|
||
respond "*" ":load sysbin; midas 77bin\r"
|
||
# Patch to accomodate more symbols returned from .GETSYS.
|
||
respond "*" "tsymgt+5/"
|
||
respond "P" "10\r"
|
||
respond "\n" "purify\033g"
|
||
expect "PURIFIED"
|
||
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"
|
||
respond "*" ":xfile midas; patch 73\r"
|
||
expect ":kill"
|
||
|
||
# MACTAP
|
||
respond "*" ":midas;324 sysbin;_sysen2; mactap\r"
|
||
expect ":KILL"
|
||
|
||
# TECO6
|
||
respond "*" ":midas sysbin;teco 335bin_.teco.; teco 335\r"
|
||
expect ":KILL"
|
||
respond "*" ":job teco\r"
|
||
respond "*" ":load sysbin; teco 335bin\r"
|
||
respond "*" "purify\033g"
|
||
respond "PURIFIED" "\r"
|
||
respond "*" ":pdump .teco.; ts 335\r"
|
||
respond "*" ":kill\r"
|
||
|
||
respond "*" ":link teach;teach emacs,emacs;teach emacs\r"
|
||
type ":vk\r"
|
||
respond "*" "teach\033\023"
|
||
respond "*" ":emacs\r"
|
||
expect ":KILL"
|
||
respond "*" ":link teach;ts emacs,emacs;tstch >\r"
|
||
type ":vk\r"
|
||
|
||
# nsalv, timesharing version
|
||
respond "*" ":midas sys1;ts nsalv_kshack;nsalv\r"
|
||
respond "machine?" "TS\r"
|
||
expect "*"
|
||
|
||
# salv, timesharing versions
|
||
respond "*" ":midas sys1;ts salv_system;salv\r"
|
||
respond "time-sharing?" "y\r"
|
||
expect ":KILL"
|
||
|
||
# macdmp, PDP-10 hardware read in, with 340 support.
|
||
respond "*" ":midas;77\r"
|
||
respond "MIDAS.77" ".;MACDMP RIM10_SYSENG; MACDMP MOBY1\r"
|
||
expect ":KILL"
|
||
# macdmp, PDP-6 read in hack.
|
||
respond "*" ":midas;77\r"
|
||
respond "MIDAS.77" ".;MACDMP RIM2_SYSENG; MACDMP 6U32\r"
|
||
expect ":KILL"
|
||
|
||
# system gen
|
||
respond "*" ":midas;324 dsk0:.;@ sysgen_syseng; system gen\r"
|
||
expect ":KILL"
|
||
|
||
# mark
|
||
respond "*" ":midas;324 dsk0:.;@ mark_syseng; mark\r"
|
||
expect ":KILL"
|
||
|
||
# utnam
|
||
respond "*" ":midas sys3; ts utnam_lars; utnam\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys3;ts syslod_sysen1;syslod\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys3;ts vv_sysen2;vv\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys3;ts vj,sys3;ts vv\r"
|
||
respond "*" ":link sys3;ts detree,sys3;ts vv\r"
|
||
|
||
respond "*" ":midas sys3;ts trees_sysen1; trees\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys2;ts syschk_sysen2;syschk\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sysbin;_sysen3;whoj\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts talk,sysbin;whoj bin\r"
|
||
type ":vk\r"
|
||
respond "*" ":link sys1;ts who,sysbin;whoj bin\r"
|
||
type ":vk\r"
|
||
respond "*" ":link sys1;ts whoj,sysbin;whoj bin\r"
|
||
type ":vk\r"
|
||
respond "*" ":link sys1;ts whom,sysbin;whoj bin\r"
|
||
type ":vk\r"
|
||
respond "*" ":link sys2;ts users,sysbin;whoj bin\r"
|
||
type ":vk\r"
|
||
respond "*" ":link sys1;ts w,sys1;ts who\r"
|
||
type ":vk\r"
|
||
respond "*" ":link sys2;ts u,sys2;ts users\r"
|
||
type ":vk\r"
|
||
|
||
#Inter-Entity Communication
|
||
respond "*" ":midas sysbin;_sysen2; iec\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys; atsign iec, sysbin; iec bin\r"
|
||
|
||
respond "*" ":midas sys2;ts untalk_gren;untalk\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys3;ts ufind_syseng;ufind\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys3;ts ddtdoc_syseng;ddtdoc\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys1;ts nwatch_sysen1;nwatch\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys1;ts crock_sysen1;crock\r"
|
||
respond "System?" "ITS\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys2;ts c,sys1;ts crock\r"
|
||
|
||
respond "*" ":midas sys1;ts dcrock_sysen1;dcrock\r"
|
||
respond "System?" "ITS\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys2;ts dc,sys1;ts dcrock\r"
|
||
|
||
# Not Zork
|
||
respond "*" ":midas sys3;ts zork_sysen3;zork\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys1;ts instal_sysen2;instal\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys1;ts dir_bawden;dir^k\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas bawden;_uptime\r"
|
||
expect ":KILL"
|
||
|
||
# Chaosnet EVACUATE service.
|
||
respond "*" ":midas sysbin; evacua_bawden; evacua\r"
|
||
expect ":KILL"
|
||
respond "*" ":job evacua\r"
|
||
respond "*" ":load sysbin; evacua bin\r"
|
||
respond "*" "purify\033g"
|
||
respond "CHAOS EVACUA" "\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# Mini Chaosnet file server. Version 24 is MINI.
|
||
respond "*" ":midas sysbin; mini_lmio; minisr 24\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; chaos mini, sysbin; mini bin\r"
|
||
|
||
# Mini Chaosnet file server. This is the 36-bit version.
|
||
respond "*" ":midas kshack;_mini36\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; chaos mini36, kshack; mini36 bin\r"
|
||
|
||
respond "*" ":midas sysbin;_sysnet;echo\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; chaos echo, sysbin; echo bin\r"
|
||
|
||
respond "*" ":midas alan;ts gensym_alan;gensym\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; chaos gensym, alan; ts gensym\r"
|
||
|
||
# Mini Chaosnet file server. Version 5 is MINIC.
|
||
respond "*" ":midas sysbin; minic bin_syseng; minisr 5\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; chaos minic, sysbin; minic bin\r"
|
||
|
||
respond "*" ":midas sysbin;_lmio1; door\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; chaos door, sysbin; door bin\r"
|
||
|
||
respond "*" ":midas sys3; ts esce_sysen1; esce\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sysbin;chtn_sysnet;chtn\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":link sys2;ts chtn,sysbin;chtn bin\r"
|
||
|
||
respond "*" ":midas sys;ts ttloc_sysen1;ttloc\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys2;ts styloc,sys;ts ttloc\r"
|
||
|
||
respond "*" ":midas device;jobdev dp_sysen3;dpdev\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys1;ts quote_sysen1;limeri\r"
|
||
respond "Use what filename instead?" "ecc;quotes >\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas sys2;ts limeri_sysen1;limeri\r"
|
||
respond "Use what filename instead?" "eak; lims >\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":link sys2;ts limmer,sys2;ts limeri\r"
|
||
|
||
respond "*" ":midas sysbin;_eak;limser\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;chaos limeri,sysbin;limser bin\r"
|
||
|
||
respond "*" ":midas sys;ts srccom_sysen2;srccom\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys2;ts =,sys;ts srccom\r"
|
||
|
||
respond "*" ":midas .mail.;comsat_sysnet;comsat\r"
|
||
comsat_switches
|
||
expect ":KILL"
|
||
|
||
respond "*" ":midas device;jobdev dq_sysnet;dqxdev\r"
|
||
dqxdev_switches
|
||
expect ":KILL"
|
||
|
||
respond "*" "comsat\033j"
|
||
respond "*" "\033l.mail.;comsat bin\r"
|
||
respond "*" "bughst/$ip\r"
|
||
type "domgat/$gw\r"
|
||
type "tcpgat/$gw\r"
|
||
type "debug/0\r"
|
||
type "xvers/0\r"
|
||
type "purify\033g"
|
||
respond ":PDUMP DSK:.MAIL.;COMSAT LAUNCH" "\r"
|
||
|
||
respond "*" ":kill\r"
|
||
|
||
initialize_comsat
|
||
|
||
respond "*" ":link emacs;rmail \021:ej,emacs;\[rmai\] >\r"
|
||
|
||
respond "*" ":midas sys1;ts rmail_emacs1;rmaill\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":link channa;rakash cnavrl,.mail.;comsat launch\r"
|
||
respond "*" ":link channa;ts cnavrl,channa;rakash cnavrl\r"
|
||
respond "*" ":link dragon;hourly cnavrl,.mail.;comsat launch\r"
|
||
|
||
respond "*" ":midas sysbin;_sra; gcmail\r"
|
||
expect ":KILL"
|
||
respond "*" ":link dragon; hourly gcmail,sysbin; gcmail bin\r"
|
||
respond "*" ":link dragon; hourly gcbulk,sysbin; gcmail bin\r"
|
||
|
||
respond "*" ":midas sysbin;qmail_ksc;qmail\r"
|
||
respond "PWORD version (Y or N)? " "N\r"
|
||
expect ":KILL"
|
||
respond "*" ":job qmail\r"
|
||
respond "*" ":load sysbin;\r"
|
||
respond "*" "purify\033g"
|
||
respond "QMAIL BIN" "\r"
|
||
respond "*" ":kill\r"
|
||
|
||
respond "*" ":link sys;ts mail,sysbin;qmail bin\r"
|
||
respond "*" ":link sys;ts qmail,sysbin;qmail bin\r"
|
||
respond "*" ":link sys;ts qsend,sysbin;qmail bin\r"
|
||
respond "*" ":link sys1;ts bug,sysbin;qmail bin\r"
|
||
respond "*" ":link sys;ts m,sys;ts mail\r"
|
||
respond "*" ":link sys2;ts featur,sys;ts qmail\r"
|
||
respond "*" ":link .info.;mail info,.info.;qmail info\r"
|
||
|
||
# Chaosnet MAILServer
|
||
respond "*" ":midas sysbin;_sysnet;mails\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; chaos mail, sysbin; mails bin\r"
|
||
|
||
# DIGEST
|
||
respond "*" ":midas digest; ts digest_digest\r"
|
||
expect ":KILL"
|
||
respond "*" ":link dragon; hourly digest, digest; ts digest\r"
|
||
|
||
# MBXLOC
|
||
respond "*" ":midas digest; ts mbxloc_mbxloc\r"
|
||
expect ":KILL"
|
||
|
||
# TIME
|
||
respond "*" ":midas sys1;ts time_sysen2;time\r"
|
||
expect ":KILL"
|
||
|
||
# DATE
|
||
respond "*" ":midas sys1;ts date_sysen3;date\r"
|
||
expect ":KILL"
|
||
|
||
# SRDATE
|
||
respond "*" ":midas sys3;ts srdate_sysen3;srdate\r"
|
||
expect ":KILL"
|
||
|
||
# PWMAIL
|
||
respond "*" ":midas sys;ts pwmail_ksc;qmail\r"
|
||
respond "PWORD version (Y or N)? " "Y\r"
|
||
expect ":KILL"
|
||
|
||
# FIDO
|
||
respond "*" ":midas sys3;ts fido_ksc;fidox\r"
|
||
expect ":KILL"
|
||
|
||
# STTY
|
||
respond "*" ":midas sys2;ts stty_archy;stty\r"
|
||
expect ":KILL"
|
||
|
||
# DOWNLD
|
||
respond "*" ":midas sys3;ts downld_sysen1;downld\r"
|
||
expect ":KILL"
|
||
|
||
# OCTPUS
|
||
respond "*" ":midas sys2;ts octpus_gren;octpus\r"
|
||
expect ":KILL"
|
||
|
||
# TTYTST
|
||
respond "*" ":midas sys3;ts ttytst_sysen2;ttytst\r"
|
||
expect ":KILL"
|
||
|
||
# GOTO
|
||
respond "*" ":midas sys3;ts goto_kmp; goto\r"
|
||
expect ":KILL"
|
||
|
||
# binprt
|
||
respond "*" ":midas sys3;ts binprt_sysen1;binprt\r"
|
||
expect ":KILL"
|
||
|
||
# bitprt
|
||
respond "*" ":midas sys3;ts bitprt_sysen2;bitprt\r"
|
||
expect ":KILL"
|
||
|
||
# bday
|
||
respond "*" ":midas sysbin;_sysen1;bday\r"
|
||
expect ":KILL"
|
||
respond "*" ":link dragon;daily bday,sysbin;bday bin\r"
|
||
|
||
# sender
|
||
respond "*" ":midas sysbin;sender_sysen1;sender\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys;ts freply,sysbin;sender bin\r"
|
||
respond "*" ":link sys;ts send,sysbin;sender bin\r"
|
||
respond "*" ":link sys2;ts fr,sysbin;sender bin\r"
|
||
respond "*" ":link sys2;ts reply,sysbin;sender bin\r"
|
||
respond "*" ":link sys3;ts fs,sysbin;sender bin\r"
|
||
respond "*" ":link sys1;ts s,sys;ts send\r"
|
||
respond "*" ":link sys3;ts snd,sys;ts send\r"
|
||
respond "*" ":link sys3;ts sned,sys;ts send\r"
|
||
|
||
# psend
|
||
respond "*" ":midas sys3;ts psend_sysen2;b\r"
|
||
expect ":KILL"
|
||
|
||
# whosen
|
||
respond "*" ":midas sys2;ts whosen_syseng;wsent\r"
|
||
expect ":KILL"
|
||
|
||
# sensor
|
||
respond "*" ":midas sys3;ts sensor_gren;sensor\r"
|
||
expect ":KILL"
|
||
|
||
# NICNAM
|
||
respond "*" ":midas sys2;ts nicnam_sysen3;nicnam\r"
|
||
expect ":KILL"
|
||
|
||
# NICWHO
|
||
respond "*" ":midas sys2;ts nicwho_sysen3;nicwho\r"
|
||
expect ":KILL"
|
||
|
||
# reatta
|
||
respond "*" ":midas sys1;ts reatta_sysen2;reatta\r"
|
||
expect ":KILL"
|
||
|
||
# print
|
||
respond "*" ":midas sys;ts print_sysen2;print\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys;ts copy,sys;ts print\r"
|
||
respond "*" ":link sys;ts listf,sys;ts print\r"
|
||
|
||
# fdir
|
||
respond "*" ":midas sys2;ts fdir_syseng;fdir\r"
|
||
expect ":KILL"
|
||
|
||
# timoon
|
||
respond "*" ":midas sys1;ts timoon_syseng;timoon\r"
|
||
expect ":KILL"
|
||
|
||
# jedgar
|
||
respond "*" ":midas sys2; ts jedgar_sysen3; jedgar\r"
|
||
expect ":KILL"
|
||
respond "*" ":midas moon; ts jedgar_moon; jedgar\r"
|
||
expect ":KILL"
|
||
|
||
# failsa
|
||
respond "*" ":midas moon;_failsa\r"
|
||
expect ":KILL"
|
||
|
||
# ports
|
||
respond "*" ":midas sys2;ts ports_sysen2;ports\r"
|
||
expect ":KILL"
|
||
|
||
# sysmsg
|
||
respond "*" ":midas sys1;ts sysmsg_sysen1;sysmsg\r"
|
||
expect ":KILL"
|
||
|
||
# meter
|
||
respond "*" ":midas sys1;ts meter_syseng;meter\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1; ts smeter, sys1; ts meter\r"
|
||
respond "*" ":link sys1; ts meterd, sys1; ts meter\r"
|
||
|
||
# cross
|
||
# This is not the microcomputer cross assembler.
|
||
#respond "*" ":midas sys1;ts cross_syseng;cross\r"
|
||
#expect ":KILL"
|
||
|
||
# MACN80
|
||
respond "*" ":midas sys3;ts macn80_gz;macn80\r"
|
||
expect ":KILL"
|
||
|
||
# dired
|
||
respond "*" ":midas sys;ts dired_sysen2;dired\r"
|
||
expect ":KILL"
|
||
|
||
# dircpy
|
||
respond "*" ":midas sys3;ts dircpy_sysen3;dircop\r"
|
||
expect ":KILL"
|
||
|
||
# hsname
|
||
respond "*" ":midas sys2;ts hsname_sysen1;hsname\r"
|
||
expect ":KILL"
|
||
|
||
# arcsal
|
||
respond "*" ":midas sys1;ts arcsal_sysen1;arcsal\r"
|
||
expect ":KILL"
|
||
|
||
# acount
|
||
respond "*" ":midas sys;ts acount_sysen3;acount\r"
|
||
expect ":KILL"
|
||
|
||
# idents
|
||
respond "*" ":midas sysbin;_sysnet;idents\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;tcp syn161,sysbin;idents bin\r"
|
||
|
||
# timsrv
|
||
respond "*" ":midas sysbin;timsrv bin_sysnet;timsrv\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;tcp syn045,sysbin;timsrv bin\r"
|
||
|
||
# datsrv
|
||
respond "*" ":midas sysbin;_sysnet;datsrv\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;tcp syn015,sysbin;datsrv bin\r"
|
||
|
||
# WEBSER
|
||
respond "*" ":xfile sysnet;make webser\r"
|
||
expect -timeout 300 "*:kill"
|
||
|
||
# mailt
|
||
respond "*" ":link sys;ts mailt,sys2;ts emacs\r"
|
||
|
||
# rmtdev
|
||
respond "*" ":midas device;atsign rmtdev_gz;rmtdev\r"
|
||
|
||
# Compile ADVENT and dump it out with DECUUO.
|
||
respond "*" ":cwd games\r"
|
||
respond "*" ":dec sys:f40\r"
|
||
respond "*" "advent=advent\r"
|
||
respond "CORE USED" "\032"
|
||
type ":kill\r"
|
||
respond "*" ":dec sys:loader\r"
|
||
respond "*" "advent/g\r"
|
||
respond "EXIT" ":start\r"
|
||
respond "*" "\032"
|
||
type ":start 45\r"
|
||
respond "Command:" "d"
|
||
respond "*" ":pdump sys3; ts advent\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# 350-point ADVENT
|
||
respond "*" ":cwd games\r"
|
||
respond "*" ":dec sys:f40\r"
|
||
respond "*" "adv3sr=adv3sr\r"
|
||
respond "*" "adv3sb=adv3sb\r"
|
||
respond "CORE USED" "\032"
|
||
type ":kill\r"
|
||
respond "*" ":dec sys:loader\r"
|
||
respond "*" "adv3sb\r"
|
||
respond "*" "adv3sr\r"
|
||
respond "*" "/g\r"
|
||
respond "EXIT" ":start\r"
|
||
respond "*" "adv3db.1"
|
||
respond "*" "\032"
|
||
type ":start 45\r"
|
||
respond "Command:" "d"
|
||
respond "*" ":pdump games; ts adv350\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# 448-point ADVENT
|
||
respond "*" ":cwd games\r"
|
||
respond "*" ":dec sys:f40\r"
|
||
respond "*" "adv4ma=adv4ma\r"
|
||
respond "*" "adv4su=adv4su\r"
|
||
respond "CORE USED" "\032"
|
||
type ":kill\r"
|
||
respond "*" ":dec sys:loader\r"
|
||
respond "*" "adv4ma\r"
|
||
respond "*" "adv4su\r"
|
||
respond "*" "/g\r"
|
||
respond "EXIT" ":start\r"
|
||
respond "*" "adv4db.2"
|
||
respond "Are you a wizard?" "\032"
|
||
type ":start 45\r"
|
||
respond "Command:" "d"
|
||
respond "*" ":pdump games; ts adv448\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# TREK
|
||
respond "*" ":cwd games\r"
|
||
respond "*" ":dec sys:f40\r"
|
||
respond "*" "trek=trek\r"
|
||
respond "CORE USED" "\032"
|
||
type ":kill\r"
|
||
respond "*" ":dec sys:loader\r"
|
||
respond "*" "trek\r"
|
||
respond "*" "/g\r"
|
||
respond "EXIT" ":start 45\r"
|
||
respond "Command:" "d"
|
||
respond "*" ":pdump games; ts trek\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# Tech II chess: timesharing, using TV display
|
||
respond "*" ":midas games;ts chess2_rg;chess2\r"
|
||
expect ":KILL"
|
||
|
||
# Unknown chess
|
||
respond "*" ":midas games;ts chess_as;chess\r"
|
||
expect ":KILL"
|
||
|
||
# MacHack VI chess: timesharing, using TV display, no CHEOPS processor.
|
||
respond "*" ":midas /t games;ts ocm_chprog;ocm\r"
|
||
respond "with ^C" "CHEOPS==0\r\003"
|
||
expect ":KILL"
|
||
|
||
# MacHack VI: timesharing, using 340 display.
|
||
respond "*" ":midas games;ts c_rg;c\r"
|
||
expect ":KILL"
|
||
|
||
# CKR
|
||
respond "*" ":midas games;ts ckr_agb;ckr\r"
|
||
expect ":KILL"
|
||
|
||
# Old Spacewar
|
||
respond "*" ":cwd spcwar\r"
|
||
respond "*" ":midas;324 spcwar; war\r"
|
||
expect ":KILL"
|
||
respond "*" ":midas spcwar; stars\r"
|
||
expect ":KILL"
|
||
respond "*" ":midas;324 spcwar; math\r"
|
||
expect ":KILL"
|
||
respond "*" ":stink\r"
|
||
respond "\n" "mspcwar; war\033l\033\033"
|
||
respond "\n" "mstars\033l\033\033"
|
||
respond "\n" "mmath\033l\033\033"
|
||
respond "\n" "jwar\033d\033\033"
|
||
respond "\n" "\033y"
|
||
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"
|
||
|
||
# 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"
|
||
|
||
# PDP-6/10 Dazzle Dart
|
||
respond "*" ":midas games;ts dazdrt_klh; dazdrt\r"
|
||
respond "Run under ITS?" "YES\r"
|
||
expect ":KILL"
|
||
respond "*" ":midas;324 dsk0:.;@ dazdrt_klh; dazdrt\r"
|
||
respond "Run under ITS?" "NO\r"
|
||
expect ":KILL"
|
||
|
||
# Dazzle Dart, video game for the Logo group PDP-11/45
|
||
respond "*" ":palx bs;_dazzle\r"
|
||
expect ":KILL"
|
||
|
||
# TOSBLK, convert from PALX binary to SBLK.
|
||
respond "*" ":midas pdp11;ts tosblk_tosblk\r"
|
||
expect ":KILL"
|
||
|
||
# TITLER
|
||
respond "*" ":midas dsk0:.;@ titler_mb; titler\r"
|
||
expect ":KILL"
|
||
|
||
# Knight TV Spacewar
|
||
respond "*" ":midas gjd;_swr data\r"
|
||
expect ":KILL"
|
||
respond "*" ":job swr\r"
|
||
respond "*" ":load gjd; swr bin\r"
|
||
respond "*" "first\033,last\033\060ygjd; swr ships\r"
|
||
respond "*" ":kill\r"
|
||
respond "*" ":midas games;ts tvwar_spcwar; tvwar\r"
|
||
expect ":KILL"
|
||
|
||
# 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"
|
||
|
||
# MLIFE
|
||
respond "*" ":midas;324 dsk0:.;@ pornis_rwg; pornis\r"
|
||
expect ":KILL"
|
||
|
||
# 3406
|
||
respond "*" ":midas;324 dsk0:.;@ 3406_stan.k; 3406\r"
|
||
expect ":KILL"
|
||
|
||
# 340D
|
||
respond "*" ":midas stan.k;mod11 bin_340d\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts 340d, stan.k; mod11 bin\r"
|
||
|
||
# TV-munching square.
|
||
respond "*" ":midas sys2;ts munch_sysen2;munch\r"
|
||
expect ":KILL"
|
||
|
||
# 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"
|
||
|
||
# Minskytron, translated from PDP-1.
|
||
respond "*" ":midas dsk0: lars; ts minsky_minsky tron\r"
|
||
expect ":KILL"
|
||
respond "*" ":link dsk0: .; @ minsky, lars; ts minsky\r"
|
||
|
||
# Edward Lorenz' strange attactor.
|
||
respond "*" ":midas dsk0: lars; ts lorenz_lorenz\r"
|
||
expect ":KILL"
|
||
respond "*" ":link dsk0: .; @ lorenz, lars; ts lorenz\r"
|
||
|
||
# Mandelbrot.
|
||
respond "*" ":midas lars; ts tvbrot_tvbrot\r"
|
||
expect ":KILL"
|
||
|
||
# PI
|
||
respond "*" ":midas sys3;ts pi_rwg; ran\r"
|
||
expect ":KILL"
|
||
|
||
# Hunt the Wumpus
|
||
respond "*" ":midas sys1;ts wumpus_games; wumpus\r"
|
||
expect ":KILL"
|
||
|
||
# Jotto
|
||
respond "*" ":cwd games\r"
|
||
respond "*" ":midas jotto\r"
|
||
expect ":KILL"
|
||
respond "*" ":job jotto\r"
|
||
respond "*" ":load jotto bin\r"
|
||
# Run initialisation code to open the TTY channels.
|
||
respond "*" "erase0\033bbeg\033g"
|
||
# Patch in the filename DSK;JOTTO DICT.
|
||
type "utopen/\0331' dsk\033\r"
|
||
type "b/\0331'jotto\033\r"
|
||
type "c/\0331'dict\033\r"
|
||
# Run the dictionary loader, skipping its filename setup code.
|
||
type "beg7\033g"
|
||
# Dump out TS JOTTO including the dictionary.
|
||
respond "words" ":pdump sys1;ts jotto\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# ngame
|
||
respond "*" ":midas games;ts game_ejs;ngame\r"
|
||
respond "Star Trek: " "ts,trek,games\r"
|
||
respond "Adventure (2): " "ts,adv448,games\r"
|
||
respond "Adventure (1.5): " "ts,adv350,games\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys3;ts game,games;ts game\r"
|
||
respond "*" ":link info;o.info,_info_;\r"
|
||
|
||
# guess
|
||
respond "*" ":midas games;ts guess_games;guess\r"
|
||
expect ":KILL"
|
||
|
||
# ten50
|
||
respond "*" ":midas sys3;ts ten50_mrc; ten50\r"
|
||
expect ":KILL"
|
||
|
||
# who%
|
||
respond "*" ":midas sys1;ts who%_sysen3;who%\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts %,sys1;ts who%\r"
|
||
|
||
# MACRO-10
|
||
respond "*" ":cwd decsys\r"
|
||
respond "*" ":dec sys:macro\r"
|
||
respond "*" "macro=macro\r"
|
||
expect "CORE USED"
|
||
respond "*" "\003"
|
||
type ":kill\r"
|
||
respond "*" ":dec sys:link\r"
|
||
respond "*" "macro/go\r"
|
||
# Strange error here. Workaround is to retry.
|
||
expect "%LNKNED"
|
||
respond "*" "macro/go\r"
|
||
respond "*" ":start 45\r"
|
||
respond "Command" "d"
|
||
respond "*" ":pdump sys2; ts macro\r"
|
||
respond "*" ":kill\r"
|
||
respond "*" ":delete decsys; macro shr\r"
|
||
# Assemble with itself, now no errors
|
||
respond "*" ":macro\r"
|
||
respond "*" "macro=macro\r"
|
||
expect "CORE USED"
|
||
respond "*" "\003"
|
||
type ":kill\r"
|
||
respond "*" ":dec sys:link\r"
|
||
respond "*" "macro/go\r"
|
||
expect "%LNKNED"
|
||
respond "*" "macro/go\r"
|
||
respond "*" ":start 45\r"
|
||
respond "Command" "d"
|
||
respond "*" ":pdump sys2; ts macro\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# MACSYM and MONSYM universal files.
|
||
respond "*" ":cwd decsys\r"
|
||
respond "*" ":macro\r"
|
||
respond "*" "macsym.unv=macsym.mac\r"
|
||
expect "CORE USED"
|
||
respond "*" "\003"
|
||
respond "*" ":kill\r"
|
||
respond "*" ":macro\r"
|
||
respond "*" "monsym.unv=monsym.mac\r"
|
||
expect "CORE USED"
|
||
respond "*" "\003"
|
||
respond "*" ":kill\r"
|
||
|
||
# CROSS, assembler
|
||
respond "*" ":macro\r"
|
||
respond "*" "cross=cross\r"
|
||
expect "CORE USED"
|
||
respond "*" "\003"
|
||
respond "*" ":kill\r"
|
||
respond "*" ":dec sys:loader\r"
|
||
respond "*" "cross/g\r"
|
||
respond "*" ":start 45\r"
|
||
respond "Command:" "d"
|
||
respond "*" ":pdump sys1; ts cross\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# Old PALX
|
||
respond "*" ":midas sys3;ts plx143_rms;palx 143\r"
|
||
expect ":KILL"
|
||
|
||
# Phil Budne's PALX Game of Life.
|
||
respond "*" ":cwd budd\r"
|
||
respond "*" ":palx live palx\r"
|
||
|
||
# Cookie Bear
|
||
respond "*" ":midas gls; ts check_gls; check\r"
|
||
respond "DEBUGP==" "0\r"
|
||
respond "ITEM:" "COOKIE\r"
|
||
respond "SUBJECT:" "COOKIE\r"
|
||
respond "NAME:" "BEAR\r"
|
||
expect ":KILL"
|
||
|
||
# LOGOUT TIMES cleanup program.
|
||
respond "*" ":midas sys3;ts lotcln_sysen1; lotcln\r"
|
||
expect ":KILL"
|
||
|
||
# itsdev
|
||
respond "*" ":midas device;chaos itsdev_bawden;itsdev\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; tcp syn723, device; chaos itsdev\r"
|
||
|
||
# charfc/charfs
|
||
respond "*" ":midas sys1;ts charfc_sysen3;charfc\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts charfs,sys1;ts charfc\r"
|
||
|
||
# file
|
||
respond "*" ":midas sysbin;_syseng;file\r"
|
||
expect ":KILL"
|
||
respond "*" ":job file\r"
|
||
respond "*" ":load sysbin;\r"
|
||
respond "*" "purify\033g"
|
||
respond "CHAOS FILE" "\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# filei, fileo
|
||
respond "*" ":midas device;chaos filei_eak;file\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;chaos fileo,device;chaos filei\r"
|
||
|
||
# ifile
|
||
respond "*" ":midas device;chaos ifile_syseng;ifile\r"
|
||
expect ":KILL"
|
||
|
||
# 11sim
|
||
respond "*" ":midas /t sys1;ts pdp11_syseng;11sim\r"
|
||
respond "end input with ^C" "45p==0\r"
|
||
respond "\n" "\003"
|
||
expect ":KILL"
|
||
respond "*" ":midas sys;ts pdp45_syseng;11sim\r"
|
||
expect ":KILL"
|
||
|
||
# times
|
||
respond "*" ":midas sysbin;times bin_sysnet;times\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts ctimes,sysbin;times bin\r"
|
||
respond "*" ":link sys1;ts times,sysbin;times bin\r"
|
||
|
||
# idle
|
||
respond "*" ":midas sys1;ts idle_gren;idle\r"
|
||
expect ":KILL"
|
||
|
||
# spell
|
||
respond "*" ":midas sys1;ts spell_syseng;spell\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts espell,sys1;ts spell\r"
|
||
|
||
# jobs
|
||
respond "*" ":midas sys2;ts jobs_sysen1;jobs\r"
|
||
expect ":KILL"
|
||
|
||
# hsndev
|
||
respond "*" ":midas device;jobdev hsname_sysen1;hsndev\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;jobdev hs,device;jobdev hsname\r"
|
||
respond "*" ":link device;jobdev hf,device;jobdev hsname\r"
|
||
|
||
# gunner
|
||
respond "*" ":midas device; jobdev shoe_rwk; gunner\r"
|
||
expect ":KILL"
|
||
|
||
# pr
|
||
respond "*" ":midas sys1;ts pr_sysen1;pr\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts call,sys1;ts pr\r"
|
||
respond "*" ":link sys1;ts .call,sys1;ts pr\r"
|
||
respond "*" ":link sys1;ts uuo,sys1;ts pr\r"
|
||
respond "*" ":link sys1;ts uset,sys1;ts pr\r"
|
||
respond "*" ":link sys1;ts suset,sys1;ts pr\r"
|
||
respond "*" ":link sys1;ts doc,sys1;ts pr\r"
|
||
respond "*" ":link sys1;ts intrup,sys1;ts pr\r"
|
||
respond "*" ":link sys1;ts ttyvar,sys1;ts pr\r"
|
||
respond "*" ":link sys1;ts prim,sys1;ts pr\r"
|
||
|
||
respond "*" ":link .info.;its .calls,sysdoc;.calls >\r"
|
||
respond "*" ":link .info.;its uuos,sysdoc;uuos >\r"
|
||
respond "*" ":link .info.;its usets,sysdoc;usets >\r"
|
||
respond "*" ":link .info.;its %pi,sysdoc;%pi >\r"
|
||
respond "*" ":link .info.;its ttyvar,sysdoc;ttyvar >\r"
|
||
|
||
# inline
|
||
respond "*" ":midas sys2;ts inline_sysen1;inline\r"
|
||
expect ":KILL"
|
||
|
||
# init
|
||
respond "*" ":midas sys3;ts init_sysen2;init\r"
|
||
expect ":KILL"
|
||
|
||
# scandl
|
||
respond "*" ":midas sys3;ts scandl_sysen1;scandl\r"
|
||
expect ":KILL"
|
||
|
||
# os
|
||
respond "*" ":midas sys1;ts os_sysen2;os\r"
|
||
expect ":KILL"
|
||
|
||
# sn
|
||
respond "*" ":midas sys2;ts sn_sysen3;sn\r"
|
||
expect ":KILL"
|
||
|
||
# ttyswp
|
||
respond "*" ":midas sys;ts ttyswp_sysen3;ttyswp\r"
|
||
expect ":KILL"
|
||
|
||
# argus
|
||
respond "*" ":midas sys2;ts argus_sysen2;argus\r"
|
||
expect ":KILL"
|
||
|
||
# fretty
|
||
respond "*" ":midas sys3;ts fretty_sysen2;fretty\r"
|
||
expect ":KILL"
|
||
|
||
# bye
|
||
respond "*" ":midas sys1;ts bye_sysen1;bye\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;chaos bye,sys1;ts bye\r"
|
||
|
||
# yow server
|
||
respond "*" ":midas sys3;ts yow_maeda; yow\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;chaos yow, sys3; ts yow\r"
|
||
|
||
# yow client
|
||
respond "*" ":midas sysnet;ts yow_sysen2; yow\r"
|
||
expect ":KILL"
|
||
|
||
# @
|
||
respond "*" ":midas sysbin;_sysen1;@\r"
|
||
expect ":KILL"
|
||
respond "*" ":job @\r"
|
||
respond "*" ":load sysbin;\r"
|
||
respond "*" "purify\033g"
|
||
respond "TS @" "\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# PLAN/CREATE
|
||
respond "*" ":midas sys3;ts create_syseng;create\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts plan,sys3;ts create\r"
|
||
|
||
respond "*" ":midas;324 dsk0:.;@ pt_syseng;pt\r"
|
||
expect ":KILL"
|
||
|
||
# PTY
|
||
respond "*" ":midas sys1;ts pty_sysen1;pty\r"
|
||
expect ":KILL"
|
||
|
||
# PRUFD
|
||
respond "*" ":midas sysbin;prufd bin_sysen2;prufd\r"
|
||
expect ":KILL"
|
||
|
||
# patch PRUFD to use the TTY: device rather than the LPT: device
|
||
respond "*" ":job prufd\r"
|
||
respond "*" ":load sysbin;prufd bin\r"
|
||
respond "*" "nlinks+14/ A,,646471\r"
|
||
type ":pdump sys1;ts prufd\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# udir
|
||
respond "*" ":midas sys3;ts nudir_sysen3; nudir\r"
|
||
expect ":KILL"
|
||
|
||
# STY
|
||
respond "*" ":midas sys1;ts sty_sysen2;sty\r"
|
||
expect ":KILL"
|
||
|
||
# luser
|
||
respond "*" ":midas sysbin;luser bin_syseng;luser\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts luser,sysbin;luser bin\r"
|
||
|
||
# ARCCPY
|
||
respond "*" ":midas sys2;ts arccpy_sysen2;arccpy\r"
|
||
expect ":KILL"
|
||
|
||
# CALPRT
|
||
respond "*" ":midas sys2;ts calprt_sysen2;calprt\r"
|
||
expect ":KILL"
|
||
|
||
# HOSTAB
|
||
respond "*" ":midas sys2;ts hostab_sysen1;hostab\r"
|
||
expect ":KILL"
|
||
|
||
# LSPEED
|
||
respond "*" ":midas sys1;ts lspeed_syseng;lspeed\r"
|
||
expect ":KILL"
|
||
|
||
# PROBE
|
||
respond "*" ":link syseng;its defs,sys;itsdfs >\r"
|
||
respond "*" ":midas sysbin;probe bin_bawden;probe\r"
|
||
expect ":KILL"
|
||
# note: setting debug to 0 and running causes it to pdump itself to
|
||
# sys;ts probe
|
||
respond "*" ":job probe\r"
|
||
respond "*" ":load sysbin;probe bin\r"
|
||
respond "*" "debug/0\r"
|
||
type "\033g"
|
||
respond "*" ":link sys;ts pb,sys;ts probe\r"
|
||
|
||
# TTY
|
||
respond "*" ":midas sys1;ts tty_sysen1;tty\r"
|
||
expect ":KILL"
|
||
|
||
# TTYLINK, just a stub.
|
||
respond "*" ":midas sysbin;ttylin bin_bawden; u\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; chaos ttylin, sysbin; ttylin bin\r"
|
||
|
||
# IPLJOB
|
||
respond "*" ":midas sys;atsign ipl_sysen2; ipljob\r"
|
||
expect ":KILL"
|
||
|
||
# RIPDEV
|
||
respond "*" ":midas device;atsign r.i.p._sysen2;ripdev\r"
|
||
expect ":KILL"
|
||
|
||
# GMSGS
|
||
respond "*" ":midas sys2;ts gmsgs_sysen1;gmsgs\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys2;ts expire, sys2;ts gmsgs\r"
|
||
respond "*" ":link dragon;daily expire,sys2;ts gmsgs\r"
|
||
respond "*" ":link device;chaos gmsgs,sys2;ts gmsgs\r"
|
||
|
||
# X, Y, Z
|
||
respond "*" ":midas sys1;ts x_sysen2;x\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts y,sys1;ts x\r"
|
||
respond "*" ":link sys1;ts z,sys1;ts x\r"
|
||
|
||
# LOADP
|
||
respond "*" ":midas sys2;ts loadp_sysen1;loadp\r"
|
||
expect ":KILL"
|
||
|
||
# ACCLNK
|
||
respond "*" ":midas sys2;ts acclnk_sysen2;acclnk\r"
|
||
expect ":KILL"
|
||
|
||
# MSPLIT
|
||
respond "*" ":midas sys2;ts msplit_sysen2;msplit\r"
|
||
expect ":KILL"
|
||
|
||
# CHATST
|
||
respond "*" ":midas sys2;ts chatst_sysen3;chatst\r"
|
||
expect ":KILL"
|
||
|
||
# CHASTA
|
||
respond "*" ":midas sys3;ts chasta_chsgtv;chasta\r"
|
||
expect ":KILL"
|
||
|
||
# CHATAB
|
||
respond "*" ":midas sys3;ts chatab_sysen1;chatab\r"
|
||
expect ":KILL"
|
||
|
||
# STYLOG
|
||
respond "*" ":midas sys2;ts stylog_sysen1;stylog\r"
|
||
expect ":KILL"
|
||
|
||
# COMIFY
|
||
respond "*" ":midas sys2;ts comify_sysen3;comify\r"
|
||
expect ":KILL"
|
||
|
||
# CRC
|
||
respond "*" ":midas sys3;ts crc_gren; crc\r"
|
||
expect ":KILL"
|
||
|
||
# TMPKIL
|
||
respond "*" ":midas sys2;ts tmpkil_syseng;tmpkil\r"
|
||
expect ":KILL"
|
||
respond "*" ":link dragon;hourly tmpkil,sys2;ts tmpkil\r"
|
||
|
||
# WHAT
|
||
respond "*" ":midas sys2;ts what_syseng;what\r"
|
||
expect ":KILL"
|
||
|
||
# Build KCC support programs: EXECVT, GETSYM, and 20XCSV.
|
||
respond "*" ":midas sys2;ts execvt_sysen3;execvt\r"
|
||
expect ":KILL"
|
||
respond "*" ":midas kcc;ts getsym_getsym\r"
|
||
expect ":KILL"
|
||
respond "*" ":midas kcc;ts 20xcsv_20xcsv\r"
|
||
expect ":KILL"
|
||
|
||
# Run GETSYM to get all monitor symbols.
|
||
respond "*" ":cwd kcc\r"
|
||
respond "*" ":getsym\r"
|
||
expect ":KILL"
|
||
|
||
# UP
|
||
respond "*" ":midas sys1;ts up_sysen1;up\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts down, sys1;ts up\r"
|
||
|
||
# UPTIME
|
||
respond "*" ":midas sysbin;uptime bin_sysen1;uptime\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;chaos uptime,sysbin;uptime bin\r"
|
||
|
||
# SHUTDN
|
||
respond "*" ":midas sys3;ts shutdn_bawden;shutdn\r"
|
||
expect ":KILL"
|
||
|
||
# HEXIFY
|
||
respond "*" ":midas sys2;ts hexify_sysen3;hexify\r"
|
||
expect ":KILL"
|
||
|
||
# PHOTO
|
||
respond "*" ":midas sys2;ts photo_sysen2;photo\r"
|
||
expect ":KILL"
|
||
|
||
# TYPE8
|
||
respond "*" ":midas sys;ts type8_sysen3;type8\r"
|
||
expect ":KILL"
|
||
|
||
# USQ
|
||
respond "*" ":midas sys2;ts usq_sysen3;usq\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys2;ts typesq,sys2;ts usq\r"
|
||
|
||
# SCRAM
|
||
respond "*" ":midas sys2;ts scram_rwk;scram\r"
|
||
expect ":KILL"
|
||
|
||
# HOST
|
||
respond "*" ":midas sys3;ts host_sysnet;host\r"
|
||
expect ":KILL"
|
||
|
||
# EXPN/VRFY
|
||
respond "*" ":midas sys3;ts expn_sysnet;expn\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys3;ts vrfy,sys3;ts expn\r"
|
||
|
||
# MUSCOM
|
||
respond "*" ":midas sysbin;_syseng; muscom\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1;ts muscom, sysbin; muscom bin\r"
|
||
|
||
# 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"
|
||
respond "*" ":stink\r"
|
||
respond "\n" "msysbin; musrun\033l\033\033"
|
||
respond "\n" "mh10d\033l\033\033"
|
||
respond "\n" "jmusrun\033?d\033\033"
|
||
respond "\n" "\033y"
|
||
respond " " "sys1; ts musrun\r"
|
||
respond "*" ":kill\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"
|
||
respond "*" ":stink\r"
|
||
respond "\n" "msysbin;sudsud\033l\033\033"
|
||
respond "\n" "mbig\033l\033\033"
|
||
respond "\n" "mfigs\033l\033\033"
|
||
respond "\n" "mplot\033l\033\033"
|
||
respond "\n" "msmoldm\033l\033\033"
|
||
respond "\n" "jbig\033?d\033\033"
|
||
respond "\n" "\033y"
|
||
respond " " "sys1; ts big\r"
|
||
respond "*" ":kill\r"
|
||
|
||
respond "*" ":muscom\r"
|
||
respond "MUSCOM" "PDP10;MUSIC GRYMG_DECUS;GRYMG MUS\r"
|
||
expect "$^X."
|
||
respond "*" ":muscom\r"
|
||
respond "MUSCOM" "PDP10;MUSIC HDN_DECUS;HDN MUS\r"
|
||
expect "$^X."
|
||
respond "*" ":muscom\r"
|
||
respond "MUSCOM" "PDP10;MUSIC JSBI13_DECUS;JSBI13 MUS\r"
|
||
expect "$^X."
|
||
respond "*" ":muscom\r"
|
||
respond "MUSCOM" "PDP10;MUSIC JSBI1_DECUS;JSBI1 MUS\r"
|
||
expect "$^X."
|
||
respond "*" ":muscom\r"
|
||
respond "MUSCOM" "PDP10;MUSIC MIDNIT_DECUS;MIDNIT MUS\r"
|
||
expect "$^X."
|
||
respond "*" ":muscom\r"
|
||
respond "MUSCOM" "PDP10;MUSIC OLITTL_DECUS;OLITTL MUS\r"
|
||
expect "$^X."
|
||
respond "*" ":muscom\r"
|
||
respond "MUSCOM" "PDP10;MUSIC PAPER_DECUS;PAPER MUS\r"
|
||
expect "$^X."
|
||
respond "*" ":muscom\r"
|
||
respond "MUSCOM" "PDP10;MUSIC SILVER_DECUS;SILVER MUS\r"
|
||
expect "$^X."
|
||
respond "*" ":muscom\r"
|
||
respond "MUSCOM" "PDP10;MUSIC WINCH_DECUS;WINCH MUS\r"
|
||
expect "$^X."
|
||
|
||
# WHOLIN
|
||
respond "*" ":midas sys2;ts wholin_sysen2;wholin\r"
|
||
expect ":KILL"
|
||
|
||
# LINE
|
||
respond "*" ":midas sys2;ts line_rab;line\r"
|
||
expect ":KILL"
|
||
|
||
# WHOIML
|
||
respond "*" ":midas sysbin;_sysen1; whoiml\r"
|
||
respond "FILE:" "whoiml\r"
|
||
respond "FILE:" "sys2\r"
|
||
expect ":KILL"
|
||
respond "*" ":job whoiml\r"
|
||
respond "*" ":load sysbin; whoiml bin\r"
|
||
respond "*" "start1\033b\033g"
|
||
expect ">>"
|
||
respond " " ":kill\r"
|
||
|
||
# VTTIME
|
||
respond "*" ":midas sys1;ts vttime_rvb;vttime\r"
|
||
expect ":KILL"
|
||
|
||
# APLCLK
|
||
respond "*" ":midas sys3;ts aplclk_music1; vtclk\r"
|
||
expect ":KILL"
|
||
|
||
# DEVICE; CHAOS TIME
|
||
respond "*" ":midas device;chaos time_syseng;ctimsr\r"
|
||
expect ":KILL"
|
||
|
||
# DEVICE; CHAOS SEND
|
||
respond "*" ":midas sysbin;_sysnet;senver\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;chaos send,sysbin;senver bin\r"
|
||
|
||
# Alternate DEVICE; CHAOS SEND
|
||
respond "*" ":midas sysbin;_sysnet;sends\r"
|
||
expect ":KILL"
|
||
#respond "*" ":link device;chaos send,sysbin;senver bin\r"
|
||
|
||
# Chaosnet BABEL service.
|
||
respond "*" ":midas sysbin; babel_dcp2; babel\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device;chaos babel,sysbin; babel bin\r"
|
||
|
||
# Chaosnet HOSTAB service.
|
||
respond "*" ":midas sysbin;_eak; chahtb\r"
|
||
expect ":KILL"
|
||
respond "*" ":link device; chaos hostab, sysbin; chahtb bin\r"
|
||
|
||
# OBS
|
||
respond "*" ":midas sys;ts obs_bawden;obs\r"
|
||
expect ":KILL"
|
||
|
||
# FED
|
||
respond "*" ":midas sys;ts fed_sysen2;fed\r"
|
||
expect ":KILL"
|
||
|
||
# XHOST
|
||
respond "*" ":midas sys2;ts xhost_sysen3;xhost\r"
|
||
expect ":KILL"
|
||
|
||
# FACTOR
|
||
respond "*" ":midas sys1;ts factor_rz;factor\r"
|
||
expect ":KILL"
|
||
|
||
# balanc
|
||
respond "*" ":midas sys3;ts balanc_alan;balanc\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys3;ts movdir,sys3;ts balanc\r"
|
||
|
||
# scrmbl and unscr
|
||
respond "*" ":midas sys3;ts scrmbl_ejs;scrmbl\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys3;ts unscr,sys3;ts scrmbl\r"
|
||
|
||
# ZOTZ
|
||
respond "*" ":midas ksc; ts zotz_zotz\r"
|
||
expect ":KILL"
|
||
|
||
# KA10 maintenance
|
||
respond "*" ":midas;324 sys;ts 10run_sysen2; 10run\r"
|
||
expect ":KILL"
|
||
|
||
respond "*" ":job maint\r"
|
||
# KA10 needs the .OLD files. KL10 and KS10 the newer.
|
||
translate_diagnostics
|
||
respond "*" ":load maint; part a\r"
|
||
respond "*" ":start\r"
|
||
respond "PARt a" "\032"
|
||
expect -re {>>|\)}
|
||
type ":kill\r"
|
||
|
||
# Display all Type 342 characters.
|
||
respond "*" ":midas dsk0:maint;_tst342\r"
|
||
expect ":KILL"
|
||
|
||
# Test one-proceed.
|
||
respond "*" ":midas maint;ts 1proc_1proc test\r"
|
||
expect ":KILL"
|
||
respond "*" ":maint;1proc\r"
|
||
expect "SUCCESSFUL"
|
||
expect ":KILL"
|
||
|
||
# KNS10, KS10 console
|
||
respond "*" ":cwd kshack\r"
|
||
respond "*" ":cross\r"
|
||
respond "*" "FOR21.DAT/PTP,KNS10.PNT/M80/OCT/CRF/EQ:PASS2:SCECOD=CONDEF.M80,HCORE.M80,CMDS.M80,SUBRTN.M80,DR.M80,MSG.M80,STORE.M80\r"
|
||
expect "Core used"
|
||
respond "*" "\003"
|
||
type ":kill\r"
|
||
|
||
# XXFILE
|
||
respond "*" ":midas sysbin;xxfile bin_sysen1;xxfile\r"
|
||
expect ":KILL"
|
||
respond "*" ":job xxfile\r"
|
||
respond "*" ":load sysbin;xxfile bin\r"
|
||
respond "*" "ttyop1\033b\033g"
|
||
expect ":PDUMP SYS2;TS XXFILE"
|
||
expect ">>"
|
||
respond " " ":kill\r"
|
||
|
||
# MSEND
|
||
respond "*" ":midas sysbin;_sysen2;msend\r"
|
||
expect ":KILL"
|
||
respond "*" ":job msend\r"
|
||
respond "*" ":load sysbin;msend bin\r"
|
||
respond "*" "ttyopn\033b\033g"
|
||
expect ">>"
|
||
respond " " ":kill\r"
|
||
|
||
# IMLOAD and IMTRAN
|
||
respond "*" ":midas sys1; ts imload_syseng; imload\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1; ts imtran, sys1; ts imload\r"
|
||
|
||
# UNTRAN
|
||
respond "*" ":midas imlac; ts untran_untran\r"
|
||
expect ":KILL"
|
||
|
||
# IMPRNT
|
||
respond "*" ":midas sys1; ts imprnt_syseng; imprnt\r"
|
||
expect ":KILL"
|
||
respond "*" ":link sys1; ts imprin, sys1; ts imprnt\r"
|
||
respond "*" ":link sys1; ts ardprn, sys1; ts imprnt\r"
|
||
respond "*" ":link sys1; ts tekprn, sys1; ts imprnt\r"
|
||
|
||
# IMGOUT
|
||
respond "*" ":midas sys3; ts imgout_cbf; imgout\r"
|
||
expect ":KILL"
|
||
|
||
# Dump TV bitmap as XGP scan file.
|
||
# TVREAD expects the binary in BKPH.
|
||
respond "*" ":midas bkph; ts zap_zap\r"
|
||
expect ":KILL"
|
||
|
||
# LINES
|
||
respond "*" ":midas bkph; ts lines_lines\r"
|
||
expect ":KILL"
|
||
|
||
# View bitmap file on TV.
|
||
respond "*" ":midas sys2; ts tvread_vis; tvread\r"
|
||
expect ":KILL"
|
||
|
||
# Save TV display as bitmap file.
|
||
respond "*" ":midas sys2; ts tvwrit_sysen2; tvwrit\r"
|
||
expect ":KILL"
|
||
|
||
# Save TV display as text file.
|
||
respond "*" ":midas sys2; ts record_sysen2; record\r"
|
||
expect ":KILL"
|
||
|
||
# TV paint program.
|
||
respond "*" ":midas sys2; ts tvedit_sysen2; tvedit\r"
|
||
expect ":KILL"
|
||
|
||
# BLKLDR, Imlac secondary block loader.
|
||
respond "*" ":midas sysbin;_imsrc; blkldr\r"
|
||
expect ":KILL"
|
||
# IMTRAN will put the file IMLAC; IMLAC BLKLDR first in its output.
|
||
# The BLKLDR file should say !blk ldr! on the first line.
|
||
respond "*" ":create imlac; imlac blkldr\r"
|
||
respond "help." "!blk ldr!\r\003"
|
||
respond "*" "imtran\033\013"
|
||
# The IMTRAN output is in block loader format, but the block loader
|
||
# itself is in the special TTY bootstrap format. Patch IMTRAN to not
|
||
# write flat data without blocks.
|
||
respond "@" "\032"
|
||
type "smalup+5/"
|
||
respond "EMIT2" "jfcl\r"
|
||
type "smalup+11/"
|
||
respond "EMIT4" "jfcl\r"
|
||
type "datlup+4/"
|
||
respond "EMIT4" "jfcl\r"
|
||
type "prgend/"
|
||
type "jrst prgen1+4\r"
|
||
type "\033p"
|
||
type "imlac; imlac blkldr_sysbin; blkldr bin\r"
|
||
respond "@" "\021"
|
||
expect ":KILL"
|
||
|
||
# SSV 22, Imlac scroll saver
|
||
respond "*" ":midas;324 sysbin;_imsrc; ssv22\r"
|
||
expect ":KILL"
|
||
respond "*" ":imtran\r"
|
||
respond "@" "imlac; ssv22 iml_sysbin; ssv22 bin\r"
|
||
respond "@" "\021"
|
||
expect ":KILL"
|
||
respond "*" ":link imlac; .prgm. normal, imlac; ssv22 iml\r"
|
||
type ":vk\r"
|
||
|
||
# Assemble SSV4.
|
||
respond "*" ":midas imlac; ts assv4_assv4\r"
|
||
expect ":KILL"
|
||
|
||
# SSV4, SSV for PDS-4.
|
||
respond "*" ":imlac;assv4\r"
|
||
respond "NUMBER" ">"
|
||
expect ":KILL"
|
||
respond "*" ":imtran\r"
|
||
respond "@" "imlac; ssv4 iml_imlac; ssv4b >\r"
|
||
respond "@" "\021"
|
||
|
||
# Maze War
|
||
respond "*" ":midas /t sysbin;_imsrc; maze\r"
|
||
respond "with ^C" "MOUSE==1\r\003"
|
||
respond "with ^C" "MOUSE==1\r\003"
|
||
expect ":KILL"
|
||
respond "*" ":imtran\r"
|
||
respond "@" "imlac; m iml_sysbin; maze bin\r"
|
||
respond "@" "\021"
|
||
|
||
respond "*" ":midas sysbin;_klh; mazser\r"
|
||
respond "NPTCL=" "1\r"
|
||
respond "DEBUG=" "1\r"
|
||
respond "STATS=" "1\r"
|
||
expect ":KILL"
|
||
respond "*" ":job maze\r"
|
||
respond "*" ":load sysbin; mazser bin\r"
|
||
respond "*" ":start init\r"
|
||
respond "M IML" "\r"
|
||
respond ":PDUMP" "games; ts maze\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# SWAR
|
||
respond "*" ":midas imlac;_imsrc; swar\r"
|
||
respond "INFINITE FUEL AND BULLETS VERSION?" "N\r"
|
||
expect ":KILL"
|
||
respond "*" ":imtran\r"
|
||
respond "@" "imlac; swar iml_imlac; swar bin\r"
|
||
respond "@" "\021"
|
||
|
||
# PONG
|
||
respond "*" ":midas imlac;_imsrc; pong\r"
|
||
expect ":KILL"
|
||
respond "*" ":imtran\r"
|
||
respond "@" "imlac; pong iml_imlac; pong bin\r"
|
||
respond "@" "\021"
|
||
|
||
# CRASH, PDS-4 version
|
||
respond "*" ":midas imlac;_imsrc; crash\r"
|
||
expect ":KILL"
|
||
respond "*" ":imtran\r"
|
||
respond "@" "imlac; crash4 iml_imlac; crash bin\r"
|
||
respond "@" "\021"
|
||
# PDS-1 version
|
||
respond "*" ":midas /t imlac;_imsrc; crash\r"
|
||
respond "with ^C" "PDS4==0\r\003"
|
||
respond "with ^C" "PDS4==0\r\003"
|
||
expect ":KILL"
|
||
respond "*" ":imtran\r"
|
||
respond "@" "imlac; crash iml_imlac; crash bin\r"
|
||
respond "@" "\021"
|
||
|
||
# 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"
|
||
|
||
# The old CLIB has a UFA instruction which doesn't work on a KS10.
|
||
# Patch out the call to FIXIFY.
|
||
respond "*" ":job cc\r"
|
||
respond "*" ":load c; ts cc\r"
|
||
respond "*" "55107/"
|
||
respond "FIXIFY" "jfcl\r"
|
||
respond "UNPURE" ":corblk pure,55107\r"
|
||
respond "*" ":pdump c; ts cc\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# CLIB
|
||
respond "*" ":cwd clib\r"
|
||
respond "*" ":midas c10cor cmid\r"
|
||
respond "*" ":midas c10fo cmid\r"
|
||
respond "*" ":midas c10int cmid\r"
|
||
respond "*" ":midas c10mio cmid\r"
|
||
respond "*" ":midas c10sys cmid\r"
|
||
respond "*" ":midas alloc cmid\r"
|
||
respond "*" ":midas blt cmid\r"
|
||
respond "*" ":midas /t cfloat cmid\r"
|
||
clib_switches
|
||
respond "*" ":midas random cmid\r"
|
||
respond "*" ":midas string cmid\r"
|
||
respond "*" ":midas uuoh cmid\r"
|
||
respond "*" ":midas /t c10run cmid\r"
|
||
clib_switches
|
||
respond "*" ":cc c10exp.c\r"
|
||
respond "*" ":cc c10fd.c\r"
|
||
respond "*" ":cc c10fil.c\r"
|
||
respond "*" ":cc c10fnm.c\r"
|
||
respond "*" ":cc c10io.c\r"
|
||
respond "*" ":cc c10map.c\r"
|
||
respond "*" ":cc c10pag.c\r"
|
||
respond "*" ":cc c10tty.c\r"
|
||
respond "*" ":cc ac.c\r"
|
||
respond "*" ":cc apfnam.c\r"
|
||
respond "*" ":cc atoi.c\r"
|
||
respond "*" ":cc cprint.c\r"
|
||
respond "*" ":cc date.c\r"
|
||
respond "*" ":cc fprint.c\r"
|
||
respond "*" ":cc match.c\r"
|
||
respond "*" ":cc pr60th.c\r"
|
||
respond "*" ":cc stkdmp.c\r"
|
||
# Expect ZMAIN to be undefined, and three symbols in DATE.
|
||
respond "*" ":stinkr mkclib\r"
|
||
respond "*" ":cc maklib.c\r"
|
||
respond "*" ":cc c10job.c\r"
|
||
respond "*" ":stinkr maklib\r"
|
||
respond "*" ":maklib\r"
|
||
expect ":MIDAS"
|
||
expect ":KILL"
|
||
respond "*" ":delete c; \[crel\] 16\r"
|
||
|
||
# CC
|
||
respond "*" ":cwd c\r"
|
||
respond "*" ":copy ts cc, ts occ\r"
|
||
respond "*" ":cc cc.>\r"
|
||
expect ":KILL"
|
||
respond "*" ":cc c5.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":cc c93.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":cc clib/c10exc.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":stinkr cc\r"
|
||
expect ":KILL"
|
||
|
||
# GT
|
||
respond "*" ":c;occ g0.c g1.c g2.c g3.c g4.c g5.c c25.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":stinkr gt\r"
|
||
|
||
# Update compiler files with information from machine description.
|
||
respond "*" ":gt pdp10.gt\r"
|
||
respond "*" ":teco\r"
|
||
# Load macro file and store it in q-register x.
|
||
respond "&" "ERinstll teco\033 @Y HXx\033\033"
|
||
# Load output file, and call the macro in x.
|
||
respond "&" "ERpdp10 gtout\033 @Y Mx\033\033"
|
||
respond "&" "\003"
|
||
respond "*" ":kill\r"
|
||
|
||
# Run Yacc to generate parser.
|
||
respond "*" ":c;yacc c/c.grammr\r"
|
||
expect ":KILL"
|
||
respond "*" ":teco\r"
|
||
respond "&" "ERyinstl teco\033 @Y HXx Mx\033\033"
|
||
respond "&" "\003"
|
||
respond "*" ":kill\r"
|
||
|
||
# C compiler, parser.
|
||
respond "*" ":c;occ c1.c c21.c c22.c c23.c c24.c c25.c c26.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":c;occ c91.c c95.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":stinkr lp\r"
|
||
expect ":KILL"
|
||
respond "*" ":delete c; ts occ\r"
|
||
|
||
# C compiler, code generator.
|
||
respond "*" ":cc c31.c c32.c c33.c c34.c c35.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":cc c95.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":stinkr c\r"
|
||
expect ":KILL"
|
||
|
||
# C compiler, macro expander.
|
||
respond "*" ":cc c41.c c42.c c43.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":stinkr m\r"
|
||
expect ":KILL"
|
||
|
||
# Test C compiler.
|
||
respond "*" ":cc testc.c\r"
|
||
expect ":KILL"
|
||
respond "*" ":stinkr testc\r"
|
||
expect ":KILL"
|
||
respond "*" ":testc\r"
|
||
expect "Done."
|
||
|
||
# R, text formatter.
|
||
respond "*" ":link sys3; ts r, r; ts r42\r"
|
||
# sys2; ts rr -> r; ts rr
|
||
# .info.; r info -> r; r info
|
||
# .info.; r recent -> r; r recent
|
||
# r; r macros -> r; r30 rmac
|
||
# r; rmacro 1 -> r; r macros
|
||
# sys3; ts itype -> r; ts itype
|
||
|
||
# Revert patch to [CLIB] 16 to avoid use of the FIX instruction on a KA10.
|
||
patch_clib_16
|
||
|
||
# C library for drawing on a TV display.
|
||
respond "*" ":cwd clib\r"
|
||
respond "*" ":cc tv.>\r"
|
||
expect ":KILL"
|
||
|
||
# TJ6
|
||
respond "*" ":midas sysbin;_tj6;tj6\r"
|
||
expect ":KILL"
|
||
respond "*" ":job tj6\r"
|
||
respond "*" ":load sysbin; tj6 bin\r"
|
||
respond "*" "purify\033g"
|
||
respond "DSK: SYS; TS NTJ6" "\r"
|
||
respond "*" ":kill\r"
|
||
respond "*" ":link sys; ts tj6, sys; ts ntj6\r"
|
||
|
||
# Old TJ6.
|
||
respond "*" ":midas sys2; ts otj6_tj6; otj6\r"
|
||
expect ":KILL"
|
||
|
||
# Binary patch Lisp image to work on ITS not named AI, ML, MC, or DM.
|
||
# This is for Bolio.
|
||
respond "*" ":job purqio\r"
|
||
respond "*" ":load sys; purqio 2138\r"
|
||
respond "*" "udirset+20/"
|
||
# Cross fingers, nop out valret, hope for best!
|
||
respond ".VALUE" "JFCL\r"
|
||
respond "UNPURE" ":corblk pure .\r"
|
||
respond "*" ":pdump sys; purqio 2138\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# OINIT
|
||
respond "*" ":cwd c\r"
|
||
respond "*" ":cc sysen2/oinit\r"
|
||
expect ":KILL"
|
||
respond "*" ":stinkr\r"
|
||
respond "=" "x c/clib\r"
|
||
respond "=" "l sysen2/oinit.stk\r"
|
||
respond "=" "o sys3/ts.oinit\r"
|
||
# Use the ^_ octal-input feature of ITS to send \0. The space ends the
|
||
# octal digits without ITS passing it through to the program. Using octal
|
||
# input works around Mac OS X and BSD which require literal \0s to be doubled.
|
||
respond "=" "\0370 "
|
||
expect ":KILL"
|
||
|
||
# Versatec spooler
|
||
# This has some harmless unresolved symbols (FOO, XE4).
|
||
respond "*" ":midas sys3;ts versa_dcp; versa\r"
|
||
expect ":KILL"
|
||
# respond "*" ":link channa; rakash v80spl,sys3; ts versa\r"
|
||
|
||
# SCAN
|
||
respond "*" ":midas sysbin;_sysen1; scan\r"
|
||
expect ":KILL"
|
||
respond "*" ":job scan\r"
|
||
respond "*" ":load sysbin; scan bin\r"
|
||
respond "*" "purify\033g"
|
||
respond "*" ":pdump sys3; ts scan\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# DDT subroutines
|
||
respond "*" ":midas sys3;ts cmd_dcp; cmd\r"
|
||
expect ":KILL"
|
||
|
||
# XGP spooler
|
||
respond "*" ":midas sys2;ts xgpspl_sysen2;xgpspl\r"
|
||
expect ":KILL"
|
||
|
||
# XGP unspooler
|
||
respond "*" ":midas sysbin;_syseng;scrimp\r"
|
||
expect ":KILL"
|
||
|
||
# XGP and GLP
|
||
respond "*" ":midas sysbin;xgp bin_sysen2;xqueue\r"
|
||
expect ":KILL"
|
||
respond "*" ":job xgp\r"
|
||
respond "*" ":load sysbin;xgp bin\r"
|
||
respond "*" "debug/0\r"
|
||
type ":pdump sys;ts xgp\r"
|
||
respond "*" ":kill\r"
|
||
respond "*" ":midas /t sysbin;glp bin_sysen2;xqueue\r"
|
||
respond "with ^C" "GLP==1\r\003"
|
||
expect ":KILL"
|
||
respond "*" ":job glp\r"
|
||
respond "*" ":load sysbin;glp bin\r"
|
||
respond "*" "debug/0\r"
|
||
type ":pdump sys2;ts glp\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# XGPDEV and GLPDEV
|
||
respond "*" ":midas device;jobdev xgp_sysen2;xgpdev\r"
|
||
expect ":KILL"
|
||
respond "*" ":midas /t device;jobdev glp_sysen2;xgpdev\r"
|
||
respond "with ^C" "GLP==1\r\003"
|
||
expect ":KILL"
|
||
|
||
# XD, view XGP files on TV.
|
||
respond "*" ":midas sys3;ts xd_sysen2;xd\r"
|
||
expect ":KILL"
|
||
|
||
# KL10 front end directory tool
|
||
respond "*" ":midas sys1;ts klfedr_syseng;klfedr\r"
|
||
respond "RP06P=" "0\r"
|
||
respond "RP04P=" "1\r"
|
||
expect ":KILL"
|
||
|
||
mkdir ".klfe."
|
||
respond "*" ":move .temp.; -read- -this-, .klfe.;\r"
|
||
copy_to_klfe "kldcp; kldcp hlp"
|
||
#copy_to_klfe "kldcp; kldcp doc"
|
||
|
||
# KL10 microcode assembler
|
||
respond "*" ":midas sysbin;_syseng;micro\r"
|
||
expect ":KILL"
|
||
respond "*" ":job micro\r"
|
||
respond "*" ":load sysbin; micro bin\r"
|
||
respond "*" ":start purify\r"
|
||
respond "TS MICRO" "sys; ts micro\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# Microcode ASCIIzer and binarator converter.
|
||
respond "*" ":midas sysbin;_syseng;cnvrt\r"
|
||
expect ":KILL"
|
||
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"
|
||
respond "*" ":link sys1;ts acnvrt,sysbin;cnvrt bin\r"
|
||
|
||
respond "*" ":mcnvrt .; @ ddt\r"
|
||
expect ":KILL"
|
||
respond "*" ":rename .; @ a10, ddt a10\r"
|
||
move_to_klfe ".; ddt a10"
|
||
|
||
# KS10 microcode assembler
|
||
respond "*" ":midas kshack;ts micro_micro\r"
|
||
expect ":KILL"
|
||
|
||
# KL10 microcode.
|
||
respond "*" ":micro ucode;u1=ucode;its,define,macro,basic,skpjmp,shift,arith,fp,byte,io,eis,blt\r"
|
||
expect ":KILL"
|
||
respond "*" ":ucnvrt ucode; u1\r"
|
||
expect ":KILL"
|
||
|
||
# KLDDT
|
||
respond "*" ":cwd kldcp\r"
|
||
respond "*" ":macro\r"
|
||
respond "*" "klddt=klddt\r"
|
||
expect "CORE USED"
|
||
respond "*" "\003"
|
||
respond "*" ":kill\r"
|
||
respond "*" ":dec sys:link\r"
|
||
respond "*" "klddt/go\r"
|
||
respond "EXIT" ":start 45\r"
|
||
respond "Command:" "d"
|
||
respond "*" "\033y"
|
||
respond " " "kldcp; klddt bin\r"
|
||
respond "*" ":kill\r"
|
||
respond "*" ":mcnvrt kldcp; klddt bin\r"
|
||
expect ":KILL"
|
||
move_to_klfe "kldcp; klddt a10"
|
||
|
||
# KS10 microcode.
|
||
# It doesn't seem to work very well when purified.
|
||
respond "*" ":kshack;micro kshack;mcr 262=kshack;its,ks10,simple,flt,extend,inout,itspag,pagef\r"
|
||
expect ":KILL"
|
||
respond "*" ":copy kshack; mcr ram, .; ram ram\r"
|
||
|
||
update_microcode
|
||
|
||
# KL10 front end dumper
|
||
respond "*" ":midas dsk0:.;@ fedump_kldcp; fedump\r"
|
||
expect ":KILL"
|
||
|
||
# PDP-11 linker.
|
||
respond "*" ":midas sys1;ts 11stnk_kldcp;11stnk\r"
|
||
expect ":KILL"
|
||
respond "*" ":link .; ts boot11, sys1; ts 11stnk\r"
|
||
|
||
# CARPET, remote PDP-11 debugger through Rubin 10-11 interface.
|
||
respond "*" ":midas sys3;ts carpet_syseng;carpet\r"
|
||
expect ":KILL"
|
||
|
||
# GTLOAD, load programs into GT40.
|
||
respond "*" ":midas sys1; ts gtload_syseng; gtload\r"
|
||
expect ":KILL"
|
||
|
||
# RUG, PDP-11 debugger.
|
||
respond "*" ":cwd pdp11\r"
|
||
respond "*" ":palx rug\r"
|
||
respond "?" "2\r"
|
||
respond "?" "100000\r"
|
||
respond "?" "1\r"
|
||
respond "?" "1\r"
|
||
expect ":KILL"
|
||
|
||
# URUG, GT40 debugger.
|
||
respond "*" ":palx sysbin;_sysen2;urug\r"
|
||
respond "=YES" "1\r"
|
||
respond "37000" "37000\r"
|
||
expect ":KILL"
|
||
|
||
# GT40 Lunar Lander.
|
||
respond "*" ":palx gt40;_gt40;gtlem\r"
|
||
expect ":KILL"
|
||
|
||
# KL10 front end debugger. Put it in the same directory as the
|
||
# "MC" IOELEV.
|
||
respond "*" ":palx sysbin;_syseng; klrug\r"
|
||
expect ":KILL"
|
||
# 11STNK expects a copy in the . directory.
|
||
respond "*" ":copy sysbin; klrug bin, .;\r"
|
||
|
||
# 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"
|
||
# 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"
|
||
|
||
# KL10 diagnostics console program.
|
||
respond "*" ":palx kldcp;_kldcp\r"
|
||
expect ":KILL"
|
||
respond "*" ":11stnk\r"
|
||
respond "*" "R"
|
||
respond "FILENAME" "\r"
|
||
respond "*" "L"
|
||
respond "FILENAME" "kldcp; kldcp bin\r"
|
||
respond "*" "B"
|
||
respond "FILENAME" ".temp.; kldcp bin\r"
|
||
expect ":KILL"
|
||
move_to_klfe ".temp.; kldcp bin"
|
||
|
||
# KL10 diagnostic console utility
|
||
respond "*" ":palx kldcp;_kldcpu\r"
|
||
expect ":KILL"
|
||
respond "*" ":pcnvrt kldcp; kldcpu bin\r"
|
||
move_to_klfe "kldcp; kldcpu a11"
|
||
|
||
# IOELEV, PDP-11 doing I/O for the PDP-10 host.
|
||
# First, 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"
|
||
|
||
# The KL10 console "MC" IOELEV.
|
||
respond "*" ":palx .; cons11_system;ioelev\r"
|
||
respond "MACHINE NAME =" "MC\r"
|
||
expect ":KILL"
|
||
respond "*" ":11stnk\r"
|
||
respond "*" "D"
|
||
respond "FILENAME" ".; 11ddt 14k\r"
|
||
respond "*" "L"
|
||
respond "FILENAME" ".; cons11 bin\r"
|
||
respond "*" "A"
|
||
respond "FILENAME" ".temp.; ioelev bin\r"
|
||
expect ":KILL"
|
||
respond "*" ":pcnvrt .temp.; ioelev bin\r"
|
||
expect ":KILL"
|
||
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"
|
||
|
||
# MINITS
|
||
respond "*" ":cwd mits.s\r"
|
||
respond "*" ":palx test_config\r"
|
||
respond ":::" "777\r"
|
||
expect ":KILL"
|
||
|
||
# TV-11. STUFF prefers it to be in the "." directory.
|
||
respond "*" ":palx dsk0:.;_system;tv\r"
|
||
expect ":KILL"
|
||
|
||
# XGP-11. STUFF prefers it to be SYSBIN; VXGP BIN.
|
||
respond "*" ":palx sysbin;vxgp bin_sysen2;xgp\r"
|
||
expect ":KILL"
|
||
|
||
# CCONS. STUFF prefers it to be in the CONS directory.
|
||
mkdir "cons"
|
||
respond "*" ":palx cons;_lmcons;ccons\r"
|
||
expect ":KILL"
|
||
|
||
# ITS universal file.
|
||
respond "*" ":cwd decsys\r"
|
||
respond "*" ":macro\r"
|
||
respond "*" "sits.unv=sits.mac\r"
|
||
expect "CORE USED"
|
||
respond "*" "\003"
|
||
respond "*" ":kill\r"
|
||
|
||
# Datacomputer file transfer.
|
||
respond "*" ":cwd mrc\r"
|
||
respond "*" ":macro\r"
|
||
respond "*" "dftp=dftp\r"
|
||
expect "CORE USED"
|
||
respond "*" "\003"
|
||
respond "*" ":kill\r"
|
||
respond "*" ":dec sys:link\r"
|
||
respond "*" "dftp/go\r"
|
||
expect "EXIT"
|
||
respond "*" ":start 45\r"
|
||
respond "Command" "d"
|
||
respond "*" ":pdump sys1; ts dftp\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# PDP-11 Lisp.
|
||
respond "*" ":palx rms;_lisp11\r"
|
||
respond "System (RANDOM, SIMULATOR, LOGO, MATH, or STANFORD)?" "SIMULATOR\r"
|
||
expect ":KILL"
|
||
|
||
# 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"
|
||
|
||
# TORTIS
|
||
respond "*" ":midas;324 radia;_tortis\r"
|
||
expect ":KILL"
|
||
|
||
# BBN Logo
|
||
respond "*" ":cwd bbn\r"
|
||
respond "*" ":macro\r"
|
||
respond "*" "logo=logo\r"
|
||
respond "CORE USED" "\032"
|
||
type ":kill\r"
|
||
respond "*" ":dec sys:loader\r"
|
||
respond "*" "logo/g\r"
|
||
respond "EXIT" ":start 45\r"
|
||
respond "Command:" "d"
|
||
respond "*" ":pdump bbn; ts logo\r"
|
||
respond "*" ":kill\r"
|
||
|
||
# CLOGO
|
||
respond "*" ":midas sys; ts clogo_rjl; logo\r"
|
||
respond "STANDARD=" "0\r"
|
||
respond "TBOX=" "0\r"
|
||
respond "TURTLE=" "1\r"
|
||
respond "PHYSICS=" "0\r"
|
||
respond "LFLAG=" "0\r"
|
||
respond "OLDMUSIC=" "0\r"
|
||
respond "DFLAG=" "1\r"
|
||
expect ":KILL"
|
||
|
||
# 11LOGO
|
||
respond "*" ":cwd 11logo\r"
|
||
respond "*" ":plx143 /H/M/CL BIN,N CREF_SYSTEM,TYI,READ,EVAL,TURTLE,ZEND\r"
|
||
respond "ASSSW=" "0\r"
|
||
expect ":KILL"
|
||
|
||
# Apple II Logo
|
||
respond "*" ":cwd aplogo\r"
|
||
respond "*" ":cross\r"
|
||
respond "*" "logo/ptp,logo=logo\r"
|
||
expect "Core used"
|
||
respond "*" "\003"
|
||
respond "*" ":kill\r"
|
||
|
||
# TENTH, toy Forth for KS10.
|
||
respond "*" ":midas .; @ tenth_aap; tenth\r"
|
||
expect ":KILL"
|
||
respond "*" ":midas /t aap; ts tenth_tenth\r"
|
||
respond "end input with ^C" "TS==1\r"
|
||
respond "\n" "KS==0\r"
|
||
respond "\n" "\003"
|
||
expect ":KILL"
|
||
|
||
# 11BOOT
|
||
respond "*" ":midas;324 sys3;ts 11boot_syseng;11boot\r"
|
||
expect ":KILL"
|
||
# Note, must be run with symbols loaded.
|
||
# Takes IOELEV BIN and KLRUG BIN from the current directory.
|
||
respond "*" ":cwd sysbin\r"
|
||
respond "*" "11boot\033\013"
|
||
expect ":KILL"
|
||
respond "*" ":move sysbin;@ boot11, .;\r"
|
||
|
||
# STUFF
|
||
respond "*" ":midas sys1;ts stuff_sysen2;stuff\r"
|
||
expect ":KILL"
|
||
|
||
# GEORGE
|
||
respond "*" ":midas sys3;ts george_syseng;george\r"
|
||
expect ":KILL"
|
||
|
||
# MONIT
|
||
# The ERROR lines printed during assembly are locations of unlikely
|
||
# runtime errors (e.g. not being able to open TTY:).
|
||
respond "*" ":midas sys;ts monit_dmcg;monit\r"
|
||
expect ":KILL"
|
||
|
||
# BANNER
|
||
respond "*" ":midas sys3;ts banner_sysen2; banner\r"
|
||
expect ":KILL"
|
||
|
||
# IBMASC
|
||
respond "*" ":midas sys3;ts ibmasc_sysen1;ibmasc\r"
|
||
expect ":KILL"
|
||
|
||
# NEWDEC
|
||
respond "*" ":midas sys3;ts newdec_sysen1;newdec\r"
|
||
expect ":KILL"
|
||
|
||
# TBMOFF
|
||
respond "*" ":midas sys; ts tbmoff_cstacy; tbmoff\r"
|
||
expect ":KILL"
|
||
|
||
# UPTINI
|
||
respond "*" ":midas ejs;ts uptini_uptini\r"
|
||
expect ":KILL"
|
||
|
||
# CHATER
|
||
respond "*" ":midas sys1;ts chater_gren;coms\r"
|
||
expect ":KILL"
|