Add names for ITS machines on the internet.

Makefile

@@ -7,6 +7,9 @@ IP=192.168.1.100
 GW=192.168.0.45
 NETMASK=255,255,255,248
 CHAOS=no #Or octal Chaosnet address
+CHAFRIENDS=chip=3150/no.nocrew.org \
+           chip=3143/up.update.uu.se \
+           chip=7100/sj.gewt.net
 
 # The directores listed in SRC, DOC, and BIN are put on the sources tape.
 SRC = system syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
@@ -75,11 +78,11 @@ build/simh/stamp: $(SIMH) start
 
 build/klh10/dskdmp.ini: build/klh10/dskdmp.txt Makefile
 	cp=';'; ca=''; \
-	test $(CHAOS) != no && cp='' && ca='myaddr=$(CHAOS)'; \
+	test $(CHAOS) != no && cp='' && ca='myaddr=$(CHAOS) $(CHAFRIENDS)'; \
 	sed -e 's/%IP%/$(IP)/' \
 	    -e 's/%GW%/$(GW)/' \
 	    -e "s/%CHAOSP%/$$cp/" \
-	    -e "s/%CHAOSA%/$$ca/" < $< > $@
+	    -e "s|%CHAOSA%|$$ca|" < $< > $@
 
 src/syshst/$(H3TEXT): build/$(H3TEXT)
 	test $(CHAOS) != no && c="CHAOS $(CHAOS), "; \

build/build.tcl

@@ -614,6 +614,10 @@ respond "*" ":midas device;atsign mldev_sysen2;mldev\r"
 expect ":KILL"
 
 respond "*" ":link device;jobdev db,device;atsign mldev\r"
+respond "*" ":link device;jobdev es,device;atsign mldev\r"
+respond "*" ":link device;jobdev no,device;atsign mldev\r"
+respond "*" ":link device;jobdev sj,device;atsign mldev\r"
+respond "*" ":link device;jobdev up,device;atsign mldev\r"
 
 respond "*" ":midas device;atsign mlslv_sysen2;mlslv\r"
 expect ":KILL"
@@ -628,6 +632,10 @@ respond "*" ":midas device;atsign dirdev_syseng;dirdev\r"
 expect ":KILL"
 respond "*" ":link device;jobdev dir,device;atsign dirdev\r"
 respond "*" ":link device;jobdev dirdb,device;atsign dirdev\r"
+respond "*" ":link device;jobdev dires,device;atsign dirdev\r"
+respond "*" ":link device;jobdev dirno,device;atsign dirdev\r"
+respond "*" ":link device;jobdev dirsj,device;atsign dirdev\r"
+respond "*" ":link device;jobdev dirup,device;atsign dirdev\r"
 
 respond "*" ":midas sys1;ts cftp_sysen2; cftp\r"
 respond "KLp==" "0\r"

build/h3text.2013

@@ -180,4 +180,10 @@ HOST : 36.21.0.103 : Hamlet.Stanford.EDU,LOTSC : DEC-2060 : TOPS20 :  :
 ;;; of H3TEXT for the cruft.
 HOST : %CHAOS%%IP% : %HOSTNAME%, DB : PDP-10 : ITS : :
 
+;;; Global ITS network 2017
+HOST :             54.174.143.211 : ES-ITS.SWENSON.ORG, ES : PDP-10 : ITS : :
+HOST : CHAOS 3150, 188.114.255.79 : NO.NOCREW.ORG, NO : PDP-10 : ITS : :
+HOST : CHAOS 7100, 50.131.218.138 : SJ.GEWT.NET, SJ : PDP-10 : ITS : :
+HOST : CHAOS 3143, 130.238.19.215 : UP.UPDATE.UU.SE, UP : PDP-10 : ITS : :
+
 

build/klh10/config.203

@@ -995,7 +995,7 @@ DEFOPT NINDX==50.       ;Number of indices
 DEFOPT CH11P==%CHAOSP%  ;CHAOS net goes through Unibus
 
 DEFINE ITSIRP BODY
-IRPS ITS,,[DB]
+IRPS ITS,,[DB ES NO SJ UP]
 BODY
 TERMIN
 TERMIN

src/sysen2/mldev.105

@@ -84,7 +84,7 @@ GO:	MOVE P,[-LPDLL-1,,PDL-1]
 	 .VALUE
 	MOVE A,JBCDEV	;GET "DEVICE"
 	MOVEM A,RDEVN	;REMEMBER IT TO RETURN FOR .RCHST'S.
-IRPS Y,,AI ML DM MC MX MD KL KS DB
+IRPS Y,,AI ML DM MC MX MD KL KS DB ES NO SJ UP
 	CAMN A,[SIXBIT /X!Y/]
 	 MOVE A,[SIXBIT /Y/]	;ALLOW "XAI", ETC., FOR EXPERIMENTAL VERSIONS OF "AI", ETC.
 	CAMN A,[SIXBIT /DIR!Y/]
@@ -94,7 +94,7 @@ TERMIN			;DEVICES SUCH AS "DIRML" ARE REALLY HANDLED AS "MLDIR".
 			;IMAGE AND ASCII DIRECTORIES.
 	MOVEM A,JBCDEV
 	LDB A,[301400,,JBCDEV]	;MIGHT BE DMAR1, ETC.
-IRP X,,[DM,AI,ML,MC,MX,MD,KL,KS,DB]
+IRP X,,[DM,AI,ML,MC,MX,MD,KL,KS,DB,ES,NO,SJ,UP]
 	CAIN A,(SIXBIT / X/)	;**** IF ANY NON 2-CHAR HOST NAME EVER EXISTS,
 	 JRST GOTHST		;THIS BARFUCIOUS KLUDGE WILL HAVE TO BE FIXED UP.
 TERMIN

src/syseng/@dev.56

@@ -65,6 +65,11 @@ devtab:
 	defdev AI,devml		; Note that these are all two characters
 	defdev MD,devml		; long!
 	defdev ML,devml
+	defdev DB,devml
+	defdev ES,devml
+	defdev NO,devml
+	defdev SJ,devml
+	defdev UP,devml
 	defdev DM,devrip	; Never again...
 	defdev KL,devrip
 	defdev MX,devrip
@@ -81,6 +86,11 @@ nffs==:.cnt.			; # foreign filesystems
 	defdev DIRAI,devml
 	defdev DIRMD,devml
 	defdev DIRML,devml
+	defdev DIRDB,devml
+	defdev DIRES,devml
+	defdev DIRNO,devml
+	defdev DIRSJ,devml
+	defdev DIRUP,devml
 	defdev DIRDM,devrip	; Never more
 	defdev DIRKL,devrip
 	defdev DIRMX,devrip