From 9f555fcb65003c5aedc0a7514f7b247206099d37 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Fri, 17 Feb 2017 21:07:05 +0100 Subject: [PATCH] Add names for ITS machines on the internet. --- Makefile | 7 +++++-- build/build.tcl | 8 ++++++++ build/{h3text.2012 => h3text.2013} | 6 ++++++ build/klh10/config.203 | 2 +- src/sysen2/{mldev.104 => mldev.105} | 4 ++-- src/syseng/{@dev.55 => @dev.56} | 10 ++++++++++ 6 files changed, 32 insertions(+), 5 deletions(-) rename build/{h3text.2012 => h3text.2013} (95%) rename src/sysen2/{mldev.104 => mldev.105} (99%) rename src/syseng/{@dev.55 => @dev.56} (98%) diff --git a/Makefile b/Makefile index 11c89b44..839feebd 100644 --- a/Makefile +++ b/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), "; \ diff --git a/build/build.tcl b/build/build.tcl index 5d8a45b6..7bfc5ab0 100644 --- a/build/build.tcl +++ b/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" diff --git a/build/h3text.2012 b/build/h3text.2013 similarity index 95% rename from build/h3text.2012 rename to build/h3text.2013 index e387b340..a03acfbf 100644 --- a/build/h3text.2012 +++ b/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 : : + \ No newline at end of file diff --git a/build/klh10/config.203 b/build/klh10/config.203 index f901f088..e28ef8a0 100644 --- a/build/klh10/config.203 +++ b/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 diff --git a/src/sysen2/mldev.104 b/src/sysen2/mldev.105 similarity index 99% rename from src/sysen2/mldev.104 rename to src/sysen2/mldev.105 index 20164425..97d67dc4 100644 --- a/src/sysen2/mldev.104 +++ b/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 diff --git a/src/syseng/@dev.55 b/src/syseng/@dev.56 similarity index 98% rename from src/syseng/@dev.55 rename to src/syseng/@dev.56 index c9d137ab..3fb468ad 100755 --- a/src/syseng/@dev.55 +++ b/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