diff --git a/build/misc.tcl b/build/misc.tcl index de56dd9c..777772d9 100644 --- a/build/misc.tcl +++ b/build/misc.tcl @@ -854,6 +854,11 @@ 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" # TJ6 respond "*" ":midas sysbin;_tj6;tj6\r" diff --git a/src/sysen2/msend.140 b/src/sysen2/msend.141 similarity index 99% rename from src/sysen2/msend.140 rename to src/sysen2/msend.141 index 2c0a7cc9..5c7d5b95 100644 --- a/src/sysen2/msend.140 +++ b/src/sysen2/msend.141 @@ -17,6 +17,8 @@ TITLE MSEND ; TTY input is handled by a (crockish) insrt file, which see. +IFNDEF NETP, NETP==0 + O=0 A=1 B=2 @@ -802,6 +804,7 @@ NETSNL: SOJGE T,NETSNB ; COME HERE TO SEE IF STY (STYSTS IN A) IS OWNED BY SOMEONE WITH NET SOCKETS NETQ: HRRZS A +IFN NETP,[ PUSH P,T PUSH P,B MOVE T,IMPSTL ; # SOCKETS @@ -815,6 +818,7 @@ NETQL: SKIPL B,@IMSOC1 NETQLE: SOJGE T,NETQL NETQO: POP P,B POP P,T +]; NETP POPJ P, ; SEND TO ALL USERS @@ -1218,8 +1222,10 @@ TTYSTS: 0 TTYTYP: 0 SQUOZE 0,STYSTS STYSTS: 0 +IFN NETP,[ SQUOZE 0,IMSOC1 IMSOC1: 0 +] TTYVAR: TTYBLK-.,,TTYBLK CONBLK: SQUOZE 0,L @@ -1230,8 +1236,10 @@ NCT: 0 NFSTTY: 0 SQUOZE 0,NSTTYS NSTTYS: 0 +IFN NETP,[ SQUOZE 0,IMPSTL IMPSTL: 0 +] SYSCON: CONBLK-.,,CONBLK LOCBLK: SQUOZE 0,USRHI