mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
514 lines
15 KiB
Tcl
514 lines
15 KiB
Tcl
log_progress "ENTERING BUILD SCRIPT: LISP"
|
|
|
|
|
|
# lisp
|
|
make_link "l;fasdfs 1" "lisp;.fasl defs"
|
|
make_link "lisp;grind fasl" "lisp;gfile fasl"
|
|
make_link "lisp;grinde fasl" "lisp;gfn fasl"
|
|
make_link "l;loop fasl" "liblsp;loop fasl"
|
|
make_link "lisp;loop fasl" "liblsp;loop fasl"
|
|
|
|
midas ".temp.;" "l;*lisp" {
|
|
respond "end input with ^C" "\003"
|
|
}
|
|
purify lisp ".temp.;*lisp bin" {
|
|
respond "*" "\033g"
|
|
respond "*" "purify\033g"
|
|
respond "*" ":pdump sys;purqio 2156\r"
|
|
}
|
|
|
|
make_link "sys;ts lisp" "sys:purqio >"
|
|
make_link "sys;ts q" "sys;purqio >"
|
|
make_link "sys;atsign lisp" "sys;purqio >"
|
|
make_link "sys;ts l" "sys;ts lisp"
|
|
|
|
make_link ".info.;lisp step" ".info.;step info"
|
|
make_link "libdoc;struct 280" "alan;struct >"
|
|
make_link "libdoc;struct doc" "alan;struct doc"
|
|
make_link ".info.;lisp struct" "libdoc;struct doc"
|
|
make_link "l;-read- -this-" "lisp;-read- -this-"
|
|
|
|
# lisp compiler
|
|
make_link "comlap;cdmacs fasl" "cd.fas >"
|
|
make_link "comlap;complr fasl" "comlap;cl.fas >"
|
|
make_link "comlap;phas1 fasl" "comlap;ph.fas >"
|
|
make_link "comlap;comaux fasl" "comlap;cx.fas >"
|
|
make_link "comlap;faslap fasl" "comlap;fl.fas >"
|
|
make_link "comlap;maklap fasl" "comlap;mk.fas >"
|
|
make_link "comlap;initia fasl" "comlap;in.fas >"
|
|
make_link "comlap;srctrn fasl" "comlap;st.fas >"
|
|
mkdir "lspdmp"
|
|
respond "*" "lisp\013"
|
|
respond "Alloc?" "n\r"
|
|
respond "*" "(load \"comlap;ccload\")"
|
|
respond ";BKPT CCLOAD:DUMPVERNO" "(setq ccload:dumpverno 1998)"
|
|
respond "1998" "(return)"
|
|
respond "*" ":kill\r"
|
|
make_link "sys;ts complr" "lspdmp;cl.dmp >"
|
|
make_link "sys;ts cl" "sys;ts complr"
|
|
make_link "info;complr 1" "info;lispc >"
|
|
|
|
# lisp;* fasl that that have autoload properties in interpreter
|
|
make_link "sys;.fasl defs" "lisp;.fasl defs"
|
|
make_link "sys;fasdfs 1" "lisp;.fasl defs"
|
|
midas "lisp;" "l;allfil"
|
|
midas "lisp;" "l;bltarr"
|
|
midas "lisp;" "lspsrc;edit"
|
|
midas "lisp;" "l;getmid"
|
|
midas "lisp;" "l;humble"
|
|
midas "lisp;" "lspsrc;sort"
|
|
|
|
make_link "lisp;subloa lsp" "nilcom;subloa >"
|
|
|
|
complr {"liblsp;_libdoc;loop"}
|
|
|
|
complr {"lisp;_lspsrc;umlmac" "lisp;_nilcom;sharpa"
|
|
"lisp;_nilcom;sharpc" "lisp;_nilcom;defvst"}
|
|
|
|
complr {"lisp;_nilcom;errck"}
|
|
complr {"lisp;_nilcom;backq"}
|
|
complr {"lisp;_lspsrc;bits" "lisp;_lspsrc;cerror" "lisp;_nilcom;defmac"}
|
|
complr {"lisp;_nilcom;defmax"}
|
|
complr {"lisp;_nilcom;defvsx"}
|
|
complr {"lisp;_nilcom;defvsy" "lisp;_lspsrc;descri" "lisp;_lspsrc;dumpar"}
|
|
|
|
complr {"lisp;_lspsrc;extmac" "lisp;_lspsrc;extbas" "lisp;_lspsrc;extsfa"
|
|
"lisp;_nilcom;evonce" "lisp;_lspsrc;extend" "lisp;_lspsrc;grind"
|
|
"lisp;_lspsrc;grinde" "lisp;_lspsrc;lap" "lisp;_comlap;ledit"
|
|
"lisp;_nilcom;let"}
|
|
|
|
make_link "l;humble fasl" "lisp;"
|
|
make_link "l;ledit* fasl" "lisp;"
|
|
make_link "l;let fasl" "lisp;"
|
|
|
|
complr {"lisp;_nilcom;macaid"}
|
|
complr {"lisp;_lspsrc;mlmac" "lisp;_lspsrc;mlsub"}
|
|
|
|
complr_action {respond "*" "(remprop 'eval-ordered* '*lexpr)"
|
|
expect "(T AUTOLOAD ((LISP) EVONCE FASL))"} \
|
|
{"lisp;_nilcom;setf"}
|
|
|
|
complr {"lisp;_nilcom;sharpm"}
|
|
complr {"lisp;_nilcom;string"}
|
|
complr {"lisp;_nilcom;subseq" "lisp;_lspsrc;trace"}
|
|
complr {"lisp;_nilcom;yesnop"}
|
|
complr {"liblsp;_libdoc;lspmac" "liblsp;_libdoc;lusets"}
|
|
|
|
complr_load {"((lisp) extend)"} {"lisp;_lspsrc;extstr"}
|
|
|
|
# inquir
|
|
midas "inquir;" "lsrrtn"
|
|
midas "inquir;" "cstacy;netrtn"
|
|
|
|
make_link "liblsp;debug fasl" "liblsp;dbg fasl"
|
|
make_link "lisp;debug fasl" "liblsp;debug fasl"
|
|
|
|
complr {"liblsp;_libdoc;tty" "inquir;reader" "inquir;fake-s"
|
|
"rwk;debmac" "liblsp;_libdoc;lispm" "inquir;inquir"}
|
|
|
|
midas "inquir;ts inqexm" "inqexm"
|
|
midas "inquir;ts inqrep" "inqrep"
|
|
make_link "inquir;ts inqchk" "ts inquir"
|
|
|
|
complr {"liblsp;_libdoc;dbg ejs2" "liblsp;_libdoc;comrd kmp1"}
|
|
|
|
respond "*" ":lisp inquir;inquir (dump)\r"
|
|
make_link "inquir;ts inquir" "inquir;inqbin >"
|
|
make_link "sys;ts inquir" "inquir;ts inquir"
|
|
|
|
make_link "inquir;ts inqcpy" "inqupd bin"
|
|
make_link "inquir;ts inqpat" "inqupd bin"
|
|
make_link "inquir;ts lsrini" "inqupd bin"
|
|
|
|
# od
|
|
complr {"liblsp;_libdoc; od"}
|
|
respond "*" ":lisp libdoc;od (dump)\r"
|
|
expect ":KILL"
|
|
|
|
# comred
|
|
complr {"liblsp;_libdoc; comred"}
|
|
|
|
make_link "inquir;lsrtns 1" "syseng;lsrtns >"
|
|
|
|
midas "inquir;ts lookup" "inquir;lookup"
|
|
make_link "sys1;ts lookup" "inquir;ts lookup"
|
|
|
|
midas "sys3;ts lsrprt" "sysen1; lsrprt"
|
|
|
|
midas "sys3;ts lsrdmp" "bawden; lsrdmp"
|
|
|
|
# more lisp packages
|
|
make_link "lisp;tty fasl" "liblsp;tty fasl"
|
|
complr_load {"((lisp) subloa lsp)"} \
|
|
{"lisp;_lspsrc;funcel" "lisp;_lspsrc;reap"
|
|
"lisp;_lspsrc;lexprf" "lisp;_lspsrc;ldbhlp"}
|
|
|
|
respond "*" "complr\013"
|
|
respond "_" "lisp;_nilcom;lsets\r"
|
|
respond "_" "lisp;_nilcom;drammp\r"
|
|
respond "(Y or N)" "Y"
|
|
respond "_" "\032"
|
|
type ":kill\r"
|
|
|
|
complr_load {"((lisp) subloa lsp)"} {"lisp;_lspsrc;nilaid"}
|
|
|
|
complr {"liblsp;_libdoc;sharab" "liblsp;_libdoc;bs"}
|
|
|
|
make_link "lisp;sharab fasl" "liblsp;"
|
|
make_link "lisp;bs fasl" "liblsp;"
|
|
|
|
complr_load {"((lisp) subloa lsp)"} {"lisp;_nilcom;thread"}
|
|
|
|
midas "lisp;" "l;lchnsp"
|
|
midas "lisp;" "l;purep"
|
|
|
|
# struct
|
|
|
|
make_link "alan;dprint fasl" "liblsp;dprint fasl"
|
|
make_link "alan;struct 9" "alan;nstruc 280"
|
|
respond "*" ":copy liblsp;struct fasl,alan;struct boot\r"
|
|
make_link "alan;struct fasl" "liblsp;struct fasl"
|
|
|
|
complr {"alan;lspcom" "alan;lspenv" "alan;lspint" "alan;setf"
|
|
"alan;binda" "alan;crawl" "alan;nstruc 280"}
|
|
respond "*" ":copy alan;nstruc fasl,liblsp;struct fasl\r"
|
|
make_link "lisp;struct fasl" "liblsp;struct fasl"
|
|
|
|
midas "liblsp;" "alan;macits"
|
|
|
|
complr {"liblsp;_alan;dprint"}
|
|
|
|
#complr {"alan;ljob" "liblsp;_libdoc;gprint rcw3" "alan;lspgub"}
|
|
|
|
# compile lisp compiler
|
|
complr {"comlap;cd.fas 40_cdmacs" "comlap;cx.fas 25_comaux"
|
|
"comlap;cl.fas 936_complr" "comlap;fl.fas 392_faslap"
|
|
"comlap;in.fas 120_initia" "comlap;mk.fas 80_maklap"
|
|
"comlap;ph.fas 86_phas1" "comlap;st.fas 20_srctrn"}
|
|
|
|
# and redump compiler
|
|
respond "*" "comlap\033\033\023"
|
|
respond "*" ":lisp ccload\r"
|
|
expect "Dumping LSPDMP"
|
|
sleep 1
|
|
type ":vk\r"
|
|
respond "*" ":kill\r"
|
|
|
|
# Additional LSPLIB packages
|
|
complr {"liblsp;_libdoc;iota" "liblsp;_libdoc;time" "liblsp;_libdoc;letfex"
|
|
"liblsp;_libdoc;break" "liblsp;_libdoc;smurf" "liblsp;_rlb%;fasdmp"
|
|
"liblsp;_libdoc;lispt"}
|
|
|
|
make_link "liblsp;gcdemn fasl" "lisp;"
|
|
|
|
### more lisplib stuff
|
|
complr {"liblsp;_libdoc;%print" "liblsp;_libdoc;6bit" "liblsp;_libdoc;apropo"
|
|
"liblsp;_libdoc;arith" "liblsp;_libdoc;aryfil" "liblsp;_libdoc;atan"
|
|
"liblsp;_libdoc;autodf" "liblsp;_libdoc;bboole"}
|
|
|
|
complr {"liblsp;_libdoc;bench" "liblsp;_libdoc;binprt" "liblsp;_lmlib;gprint"
|
|
"liblsp;_libdoc;carcdr" "liblsp;_libdoc;char" "liblsp;_libdoc;debug*"
|
|
"liblsp;_libdoc;defsta" "liblsp;_libdoc;doctor"}
|
|
|
|
complr {"liblsp;_libdoc;dow" "liblsp;_libdoc;dribbl" "liblsp;_libdoc;dumpgc"
|
|
"liblsp;_libdoc;fake-s" "liblsp;_libdoc;fforma" "liblsp;_libdoc;filbit"
|
|
"liblsp;_libdoc;fload" "liblsp;_libdoc;fontrd"}
|
|
|
|
complr {"liblsp;_libdoc;for" "lisp;_lspsrc;gcdemn" "liblsp;_libdoc;genfns"
|
|
"liblsp;_libdoc;graphs" "liblsp;_libdoc;graphm" "liblsp;_libdoc;graph$"
|
|
"liblsp;_libdoc;grapha" "liblsp;_libdoc;grapht" "liblsp;_libdoc;impdef"
|
|
"liblsp;_libdoc;laugh" "liblsp;_libdoc;lets" "liblsp;_libdoc;linere"}
|
|
|
|
respond "*" ":delete libdoc;gcdemn 999999\r"
|
|
make_link "libdoc;gcdemn 999999" "lspsrc;gcdemn >"
|
|
|
|
complr {"liblsp;_libdoc;loop" "liblsp;_libdoc;more" "liblsp;_libdoc;nshare"
|
|
"liblsp;_libdoc;octal" "liblsp;_libdoc;optdef" "liblsp;_libdoc;phsprt"
|
|
"liblsp;_libdoc;privob" "liblsp;_libdoc;prompt" "liblsp;_libdoc;qtrace"}
|
|
|
|
complr {"liblsp;_libdoc;reads" "liblsp;_libdoc;redo"
|
|
"liblsp;_libdoc;save" "liblsp;_libdoc;sets"}
|
|
|
|
complr {"liblsp;_libdoc;share" "liblsp;_libdoc;sixbit" "liblsp;_libdoc;split"
|
|
"liblsp;_libdoc;stack" "liblsp;_libdoc;statty" "liblsp;_libdoc;stepmm"
|
|
"liblsp;_libdoc;stepr" "liblsp;_libdoc;string" "liblsp;_libdoc;sun"
|
|
"liblsp;_libdoc;trap" "liblsp;_libdoc;ttyhak" "liblsp;_libdoc;wifs"
|
|
"liblsp;_libdoc;window"}
|
|
|
|
make_link "liblsp;defvst fasl" "lisp;"
|
|
make_link "liblsp;format fasl" "liblsp;fforma fasl"
|
|
make_link "libdoc;lispt info" "info;lispt >"
|
|
make_link "liblsp;sharpm fasl" "lisp;"
|
|
respond "*" ":copy nilcom;sharpm >,libdoc;sharpm nil\r"
|
|
make_link "libdoc;step info" ".info.;"
|
|
make_link "libdoc;stepmm info" ".info.;lisp stepmm"
|
|
respond "*" ":copy nilcom;string >,libdoc;string nil\r"
|
|
|
|
# can't build any more LIBLSP FASLs because directory is full
|
|
# cleanup unfasl files in lisp;
|
|
respond "*" ":dired liblsp;\r"
|
|
respond "@" "delete * unfasl\r"
|
|
respond "Delete? (Y or N):" "y"
|
|
respond "@" "q\r"
|
|
expect ":KILL"
|
|
|
|
complr_load {"((libdoc) set ira10)"} \
|
|
{"liblsp;_libdoc;askusr" "liblsp;_pratt;cgrub"}
|
|
|
|
# compile cgol
|
|
complr {"lisp;_pratt;cgol"}
|
|
|
|
complr_load {"((lisp) cgol fasl)"} {"liblsp;_pratt;cgprin"}
|
|
|
|
# clean up remaining unfasl files in liblsp
|
|
respond "*" ":dired liblsp;\r"
|
|
respond "@" "delete * unfasl\r"
|
|
respond "Delete? (Y or N):" "y"
|
|
respond "@" "q\r"
|
|
expect ":KILL"
|
|
|
|
complr_action {respond "*" "(sstatus features Compile-Subload)"
|
|
expect "COMPILE-SUBLOAD"} \
|
|
{"lisp;_nilcom;subloa"}
|
|
|
|
midas "liblsp;" "libdoc;bssq"
|
|
midas "liblsp;" "libdoc;aryadr"
|
|
midas "liblsp;" "libdoc;link"
|
|
midas "liblsp;" "libdoc;lscall"
|
|
midas "liblsp;" "libdoc;cpyhnk"
|
|
|
|
make_link "lisp;defns mid" "l;defns >"
|
|
midas "liblsp;" "libdoc;fft"
|
|
midas "liblsp;" "libdoc;phase"
|
|
|
|
# More LIBLSP packages
|
|
complr {"liblsp;_libdoc;didl" "liblsp;_libdoc;getsyn" "liblsp;_libdoc;iter"
|
|
"liblsp;_libdoc;hash" "liblsp;_libdoc;graph3" "liblsp;_libdoc;ledit*"}
|
|
|
|
complr {"liblsp;_libdoc;stacks"}
|
|
|
|
midas "liblsp;" "libdoc;dirsiz"
|
|
midas "liblsp;" "z;timer"
|
|
|
|
make_link "lisp;vsaid lisp" "nilcom;vsaid >"
|
|
complr {"lisp;_nilcom;vsaid"}
|
|
make_link "liblsp;vsaid fasl" "lisp;"
|
|
|
|
# cleanup unfasl files in lisp;
|
|
respond "*" ":dired lisp;\r"
|
|
respond "@" "delete * unfasl\r"
|
|
respond "Delete? (Y or N):" "y"
|
|
respond "@" "q\r"
|
|
expect ":KILL"
|
|
|
|
midas "liblsp;" "gsb;ttyvar" {
|
|
respond "Use what filename instead?" "lisp;\r"
|
|
}
|
|
|
|
midas "liblsp;" "libdoc;aryadr"
|
|
midas "liblsp;" "libdoc;bssq"
|
|
|
|
complr {"liblsp;_libdoc;lddt"}
|
|
complr {"liblsp;_libdoc;ndone"}
|
|
|
|
make_link "graphs;graph3 fasl" "liblsp"
|
|
make_link "graphs;plot3 fasl" "liblsp"
|
|
make_link "graphs;plot fasl" "liblsp"
|
|
complr {"liblsp;_libdoc;plot" "liblsp;_libdoc;plot3"}
|
|
|
|
complr {"liblsp;_libdoc;prime"}
|
|
complr {"liblsp;_libdoc;step"}
|
|
complr {"liblsp;_libdoc;utils"}
|
|
|
|
# cleanup unfasl files in liblsp;
|
|
respond "*" ":dired liblsp;\r"
|
|
respond "@" "delete * unfasl\r"
|
|
respond "Delete? (Y or N):" "y"
|
|
respond "@" "q\r"
|
|
expect ":KILL"
|
|
|
|
# DEFSET
|
|
complr {"lisp;_nilcom;defset"}
|
|
|
|
# compile some lisp; libraries
|
|
complr {"lisp;_nilcom;cnvd" "lisp;_lspsrc;exthuk"
|
|
"lisp;_lspsrc;gfile" "lisp;_lspsrc;gfn"}
|
|
|
|
complr {"lisp;_lspsrc;querio" "lisp;_lspsrc;vector"}
|
|
|
|
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
|
|
respond "*" ":delete lisp;lispt fasl\r"
|
|
make_link "lisp;lispt fasl" "liblsp;"
|
|
make_link "sys2;ts lispt" "sys2;ts edit"
|
|
|
|
# Lisp display library
|
|
midas "lisp; slave fasl" "l; slave"
|
|
|
|
# Lisp display slave, PDP-10 and GT40 version.
|
|
midas "sys; atsign 10slav" "sysen2; ld10" {
|
|
respond " PDP6F = " "0\r"
|
|
respond "GT40F=" "1\r"
|
|
}
|
|
|
|
# animal
|
|
complr {"games;_games;parse" "games;_games;pattrn"
|
|
"games;_games;words" "games;_games;word"}
|
|
|
|
complr {"games;_games;animal 133"}
|
|
|
|
respond "*" "l\013"
|
|
respond "Alloc?" "n"
|
|
respond "*" "(load '((games) animal fasl))"
|
|
respond_load "(dump '((games) ts animal))"
|
|
expect "KILL"
|
|
|
|
# think
|
|
complr {"games;_games;think"}
|
|
|
|
# wa
|
|
complr {"games;_games;wa 10"}
|
|
|
|
# chase
|
|
complr {"games;_chase"}
|
|
|
|
# yahtze
|
|
complr {"sca;macros" "sca;modeb"}
|
|
|
|
# note sca;mode > will not compile. Yahtze will load it interpreted
|
|
|
|
complr {"games;yahtze"}
|
|
|
|
# ITSter
|
|
complr {"games;_hibou;itster"}
|
|
|
|
# Knight TV Spacewar
|
|
respond "*" ":lisp gjd; sine lisp\r"
|
|
expect ":KILL"
|
|
|
|
# Kermit
|
|
make_link "math;defset fasl" "lisp;"
|
|
complr {"math;common" "math;kermit"}
|
|
respond "*" ":lisp math; kermit dumper\r"
|
|
respond "to dump.|" "(kermit-dump)"
|
|
expect ":KILL"
|
|
make_link "sys3;ts kermit" "math;"
|
|
|
|
# SUPDUP ARDS
|
|
complr {"dcp;sgincl" "dcp;supard"}
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" {(load "dcp;supard")}
|
|
respond "system program" "(bootstrap)"
|
|
|
|
# ARDS to SVG converter
|
|
complr {"victor; ards"}
|
|
|
|
# Forth
|
|
complr {"kle;forth"}
|
|
|
|
# ULisp
|
|
complr {"teach; ulisp"}
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n\r"
|
|
respond "*" "(load '((teach) ulisp))"
|
|
expect -re {\n[1-7]}
|
|
respond "\n" {(dump "teach; ts ulisp")}
|
|
respond ":" "t\r"
|
|
respond ":" "emacs\r"
|
|
respond ":" "edit\r"
|
|
respond ":" "script\r"
|
|
respond ":" "nil\r"
|
|
respond ":" "nil\r"
|
|
respond ":" "t\r"
|
|
respond ":" "t\r"
|
|
respond "\n" ":vk\r"
|
|
respond "*" ":kill\r"
|
|
|
|
# AS8748
|
|
complr {"lmio1;as8748"}
|
|
complr {"moon;8478sa"}
|
|
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" "(load '((lmio1) as8748))"
|
|
respond_load "(load '((lmio1) ukbd))"
|
|
respond "T" "(as 'ukbd)"
|
|
respond "UKBD" "(quit)"
|
|
expect ":KILL"
|
|
|
|
# Lisp Logo
|
|
cwd "llogo"
|
|
complr {"germ" "ioc"}
|
|
complr_load {"ioc" "define"} {"define"}
|
|
complr_load {"ioc" "define"} \
|
|
{"error" "parser" "primit" "print" "reader" "setup" "unedit" "music"
|
|
"turtle" "tvrtle"}
|
|
respond "*" ":lisp loader\r"
|
|
respond "?" "Y\r"
|
|
respond "?" "LLOGO\r"
|
|
respond "?" "1700\r"
|
|
expect ":KILL"
|
|
make_link "sys1; ts llogo" " llogo; ts llogo"
|
|
|
|
# 2500 assembler
|
|
complr_load {"ioc"} {"2500;zap"}
|
|
|
|
# 2500 microcode
|
|
cwd "minsky"
|
|
respond "*" "lisp\013"
|
|
respond "Alloc?" "n\r"
|
|
respond "*" "(setq gc-overflow '(lambda (x) t))"
|
|
respond "T)" "(setsyntax '/, 'a '/,)"
|
|
respond "T" "(load \"minsky;tvdis\")"
|
|
respond "T" "(load \"2500;zap\")"
|
|
respond_load "(array im fixnum 4096)"
|
|
respond "IM" "(zap tvdis)"
|
|
respond "FINISH)" "(quit)"
|
|
expect ":KILL"
|
|
|
|
# TEACH;TS XLISP
|
|
|
|
complr {"teach;macro"}
|
|
|
|
complr {"teach;apropos" "teach;compla" "teach;databa" "teach;errhan"
|
|
"teach;errhel" "teach;exlist" "teach;io" "teach;lessn"
|
|
"teach;more" "teach;record" "teach;teach" "teach;treepr"}
|
|
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" "(load '((teach) start))"
|
|
respond "T" "(load '((teach) teach dump))"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":rename teach;ts xlisp,ts lisp\r"
|
|
|
|
# Munching squares for display terminals.
|
|
complr {"lars; munch lisp"}
|
|
|
|
# CUBE, Rubik's cube by Bernard Greenberg.
|
|
complr {"bsg;cube" "bsg;cutils" "bsg;csolve" "bsg;cinput" "bsg;cxfrm"}
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" {(load "bsg;cdriv")}
|
|
respond "T" "(make-cube)"
|
|
respond "*" ":pdump sys3;ts cube\r"
|
|
respond "*" ":kill\r"
|
|
|
|
# LMODEM
|
|
complr {"eb;sfadcl" "eb;errmac" "eb;signal" "eb;dsk8" "eb;lmodem"}
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" {(load "eb;lmodem")}
|
|
expect -re {[\r\n][\r\n][1-7][0-7][0-7]}
|
|
type "(dump-lmodem-program)"
|
|
respond "Filename in which to dump:" "eb; ts lmodem\r"
|
|
expect -re {[\r\n][\r\n]T ?[\r\n][\r\n]}
|
|
type "(quit)"
|
|
expect ":KILL"
|
|
# Make a link for the CP/M archive users.
|
|
make_link "cpm; ts lmodem" " eb;"
|