mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
85 lines
1.6 KiB
Bash
Executable File
85 lines
1.6 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
TVCON=${TVCON:--2}
|
|
|
|
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 "$!"
|
|
}
|
|
|
|
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" "$!"
|
|
}
|
|
|
|
type340() {
|
|
cp build/pdp10-ka/run out/pdp10-ka/run
|
|
}
|
|
|
|
datapoint() {
|
|
(sleep 2; tools/vt05/dp3300 -B telnet localhost 10020 >datapoint.log 2>&1) &
|
|
started "Datapoint" "$!"
|
|
}
|
|
|
|
vt52() {
|
|
(sleep 2; tools/vt05/vt52 -B telnet localhost 10018 >vt52.log 2>&1) &
|
|
started "VT52" "$!"
|
|
}
|
|
|
|
tek() {
|
|
(sleep 2; tools/tek4010/tek4010 telnet localhost 10017 >tek.log 2>&1) &
|
|
started "Tektronix" "$!"
|
|
}
|
|
|
|
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.
|
|
tv11 - Start a TV-11 emulator.
|
|
tvcon - Start a TV display.
|
|
datapoint - Start a Datapoint 3300 emulator.
|
|
vt52 - Start a VT52 emulator.
|
|
tek - Start a Tektronix 4010 emulator.
|
|
|
|
EOF
|
|
|
|
touch out/pdp10-ka/nohelp
|
|
}
|
|
|
|
sed 's/set dpy enabled/set dpy disabled/' < build/pdp10-ka/run > 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
|