mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 07:19:57 +00:00
150 lines
3.5 KiB
Bash
Executable File
150 lines
3.5 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
#Defaults.
|
|
TVCON=${TVCON:--2BS}
|
|
VT52=${VT52:--B -b 9600}
|
|
DATAPOINT=${DATAPOINT:--a -B -b 4800}
|
|
TEK=${TEK:--b9600}
|
|
|
|
EXIT=:
|
|
trap "" QUIT INT TERM
|
|
|
|
started() {
|
|
EXIT="$EXIT;stop \"$1\" $2"
|
|
trap "$EXIT" EXIT
|
|
echo "$1 started, pid $2"
|
|
}
|
|
|
|
stop() {
|
|
echo -n "Stopping $1... "
|
|
kill "$2" 2> /dev/null
|
|
sleep 2
|
|
kill -9 "$2" 2> /dev/null
|
|
echo "OK"
|
|
}
|
|
|
|
gt40() {
|
|
(sleep 3; tools/simh/BIN/pdp11 build/pdp10-ka/gt40 >gt40.log 2>&1) &
|
|
started GT40 "$!"
|
|
}
|
|
|
|
imlac() {
|
|
(sleep 3; cd tools/simlac/imlac; mono bin/Debug/sImlac.exe ../../../build/pdp10-ka/imlac >../../../imlac.log 2>&1) &
|
|
started Imlac "$!"
|
|
}
|
|
|
|
tv11() {
|
|
(sleep 3; tools/tv11/tv11 -s 4 -p 10011 localhost >tv11.log 2>&1) &
|
|
started TV-11 "$!"
|
|
}
|
|
|
|
tvcon() {
|
|
(sleep 4; tools/tv11/tvcon/tvcon $TVCON localhost >tvcon.log 2>&1) &
|
|
started "TV-console" "$!"
|
|
}
|
|
|
|
xgp11() {
|
|
(sleep 3; tools/tv11/xgp11 -s1 -p 10021 localhost >xgp11.log 2>&1) &
|
|
started XGP-11 "$!"
|
|
}
|
|
|
|
type340() {
|
|
sed -i.old 's/set dpy disabled/set dpy enabled/' \
|
|
out/pdp10-ka/run
|
|
}
|
|
|
|
cscope() {
|
|
sed -i.old 's/set wcnsls enabled joystick/set wcnsls enabled joystick cscope/' \
|
|
out/pdp10-ka/run
|
|
}
|
|
|
|
datapoint() {
|
|
(sleep 2; tools/vt05/dp3300 $DATAPOINT telnet localhost 10020 >datapoint.log 2>&1) &
|
|
started "Datapoint" "$!"
|
|
}
|
|
|
|
vt52() {
|
|
(sleep 2; tools/vt05/vt52 $VT52 telnet localhost 10018 >vt52.log 2>&1) &
|
|
started "VT52" "$!"
|
|
}
|
|
|
|
tek() {
|
|
(sleep 2; tools/tek4010/tek4010 $TEK telnet localhost 10017 >tek.log 2>&1) &
|
|
started "Tektronix" "$!"
|
|
}
|
|
|
|
simh_imlac() {
|
|
(sleep 2; tools/simh/BIN/imlac build/pdp10-ka/imlac.simh >imlac.log 2>&1) &
|
|
started "Imlac" "$!"
|
|
}
|
|
|
|
chaosnet() {
|
|
(sleep 2; tools/cbridge/cbridge -c build/cbridge.conf >cbridge.log 2>&1) &
|
|
started "Chaosnet bridge" "$!"
|
|
}
|
|
|
|
arpanet() {
|
|
sed -i.old \
|
|
-e 's/^#set imp ncp/set imp ncp/' \
|
|
-e 's/^#at -u imp 33/at -u imp 33/' \
|
|
-e 's/^set imp mac/#set imp mac/' \
|
|
-e 's/^set imp ip/#set imp ip/' \
|
|
-e 's/^set imp gw/#set imp gw/' \
|
|
-e 's/^set imp host/#set imp host/' \
|
|
-e 's/^at imp tap/#at imp tap/' \
|
|
out/pdp10-ka/run
|
|
|
|
(sleep 2; cd build/arpanet; ../../tools/simh/BIN/h316 imp62.simh >imp62.log 2>&1) &
|
|
started "Arpanet IMP" "$!"
|
|
|
|
export NCP="$PWD/ncp076"
|
|
rm -f "$NCP"
|
|
(sleep 5; ./tools/ncp/src/ncpd localhost 33003 33004 2>ncp076.log) &
|
|
started "Local NCP daemon" "$!"
|
|
}
|
|
|
|
help() {
|
|
cat <<EOF
|
|
This start script takes several command line arguments:
|
|
|
|
help - Display this help text.
|
|
type340 - Enable the Type 340 display.
|
|
gt40 - Start a GT40 emulator.
|
|
imlac - Start an Imlac PDS-1 emulator.
|
|
simh_imlac - Start the SIMH Imlac PDS-1 emulator.
|
|
tv11 - Start a TV-11 emulator.
|
|
xgp11 - Start an XGP-11 emulator.
|
|
tvcon - Start a TV display.
|
|
datapoint - Start a Datapoint 3300 emulator.
|
|
vt52 - Start a VT52 emulator.
|
|
tek - Start a Tektronix 4010 emulator.
|
|
cscope - Enable the color scope.
|
|
chaosnet - Start a local Chaosnet.
|
|
arpanet - Start ARPANET.
|
|
|
|
EOF
|
|
|
|
touch out/pdp10-ka/nohelp
|
|
}
|
|
|
|
sed -i.old -e 's/set dpy enabled/set dpy disabled/' \
|
|
-e 's/set wcnsls enabled joystick cscope/set wcnsls enabled joystick/' \
|
|
-e 's/^set imp ncp/#set imp ncp/' \
|
|
-e 's/^at -u imp 33/#at -u imp 33/' \
|
|
-e 's/^#set imp mac/set imp mac/' \
|
|
-e 's/^#set imp ip/set imp ip/' \
|
|
-e 's/^#set imp gw/set imp gw/' \
|
|
-e 's/^#set imp host/set imp host/' \
|
|
-e 's/^#at imp tap/at imp tap/' \
|
|
out/pdp10-ka/run
|
|
|
|
test -f out/pdp10-ka/nohelp || help
|
|
|
|
while test -n "$1"; do
|
|
"$1"
|
|
shift
|
|
done
|
|
|
|
tools/sims/BIN/pdp10-ka out/pdp10-ka/run
|
|
exit 0
|