From 45d1ebcfbad612440f3fae196ac4165be68a050b Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 15 Jun 2018 09:44:08 +0200
Subject: [PATCH] Fix MSEND so it can initialize and dump out itself.

Make use of IMSOC1 and IMPSTL assembly-time conditional.  They are
only used to send to "NET".
---
 build/misc.tcl                      | 5 +++++
 src/sysen2/{msend.140 => msend.141} | 8 ++++++++
 2 files changed, 13 insertions(+)
 rename src/sysen2/{msend.140 => msend.141} (99%)

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