mirror of
https://github.com/PDP-10/its.git
synced 2026-05-01 14:06:28 +00:00
Add :VK where needed, remove where not needed.
Replace a few instances of sleep with :VK to get a * prompt. Running :VK after making a link is no longer needed.
This commit is contained in:
@@ -52,12 +52,10 @@ 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 sys2;ts teachemacs,emacs;tstch >\r"
|
||||
type ":vk\r"
|
||||
|
||||
# nsalv, timesharing version
|
||||
respond "*" ":midas sys1;ts nsalv_kshack;nsalv\r"
|
||||
@@ -86,19 +84,12 @@ 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"
|
||||
@@ -1240,7 +1231,6 @@ 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"
|
||||
@@ -1622,9 +1612,7 @@ expect ":KILL"
|
||||
respond "*" ":midas rug;_loder\r"
|
||||
expect ":KILL"
|
||||
respond "*" ":link sys; ts nloder, rug; loder bin\r"
|
||||
type ":vk\r"
|
||||
respond "*" ":link sys1; ts mloder, rug; loder bin\r"
|
||||
type ":vk\r"
|
||||
|
||||
# SITS.
|
||||
cwd "sits"
|
||||
|
||||
Reference in New Issue
Block a user