Old Apanet NIC host table.

And a TECO macro to generate HOSTS PRETTY and HOSTS INSERT.  The
latter is needed for UT (user telet).

build/basics.tcl

@@ -206,6 +206,13 @@ respond "*" ":link device;chaos tcp, sysnet;arpa bin\r"
 respond "*" ":midas .;ts redrct_sysnet;redrct\r"
 expect ":KILL"
 
+# Old NIC Arpanet HOSTS TXT.  Run a TECO macro to generate
+# SYSENG;HOSTS PRETTY and HOSTS INSERT.
+respond "*" ":teco\r"
+respond "&" "ER SYSENG;HOSTER >\033 Y HXM MM\033\033"
+respond "&" "\032"
+respond ")   " ":kill\r"
+
 # telnet server
 respond "*" ":midas sysbin;telser_sysnet;telser\r"
 expect ":KILL"

build/timestamps.txt

@@ -2850,6 +2850,8 @@ syseng/dskuse.76 198504130149.42
 syseng/file.591 198806021820.10
 syseng/format.305 198912231157.26
 syseng/george.4 197610311555.26
+syeng/hoster.5 197411261144.22
+syeng/hosts.txt 197411261146.07
 syseng/ifile.3 198509021740.02
 syseng/imload.80 197709300744.33
 syseng/imprnt.6 198102262240.40

src/syseng/hoster.5

@@ -0,0 +1,44 @@
+!PUT THIS MACRO IN Q-REGISTER M, IT READS "HOSTS TXT" AND WRITES "HOSTS PRETTY"!
+ERHOSTS TXT EI Y
+
+!MAKE HEADER FOR ALL PAGES!
+FXA
+I;THIS FILE IS EITHER "SYSENG;HOSTS PRETTY" OR "SYSENG;HOSTS INSERT".
+;IT WAS PRODUCED USING A TECO MACRO FOUND ON "SYSENG;HOSTER >".  THE
+;FILE PROCESSED BY THE TECO MACRO TO PRODUCE THIS FILE IS MAINTAINED
+;AT THE NETWORK INFORMATION CENTER (OFFICE-1), "<NETINFO>HOSTS.TXT".
+
+;NAME		DEC	OCT	STATUS
+ ^0,.FXA
+
+ZJ -S= L .,ZK J HXZ
+
+!PUT ALL HOST INFO ON ONE LINE!
+
+<.-Z; :L I	 2D .U1 S= Q1,.K L K> !PUT IT ALL ON ONE LINE!
+0J <S,;-DI	>                      !REPLACE COMMA'S WITH TABS!
+[..E 10U..E W J               !PUSH CURRENT OUTPUT RADIX!
+<
+S	; .U1 \U2 Q1,.K 3,Q2\          !PAD HOST NUMBERS WITH LEADING SPACES!
+8U..E W I	 3,Q2\ 10U..E W :L   !INSERT OCTAL HOST #!
+>
+]..E                            !POP OUTPUT RADIX!
+
+HXB
+
+!LINE UP THE COLUMNS ALL PRETTY!
+J<.-Z;.U1S	.-Q1-9"LI	'L>
+J GA PW HK GB
+
+!SORT BY HOST NUMBER!
+JS	$S	$RL
+
+HXC
+
+!LINE UP THE COLUMNS ALL PRETTY!
+J<.-Z;.U1S	.-Q1-9"LI	'L>
+
+J GA 15.I12.I PWEFHOSTS PRETTY HK GB J
+<S	;-DI,>
+J<.-Z;IHOST	L>
+J GA EI PWEFHOSTS INSERT HK 0UA 0UB 0UC 

src/syseng/hosts.txt

@@ -0,0 +1,285 @@
+<NETINFO>HOSTS.NLS;3, 5-AUG-74 07:28 JAKE ;
+AFWL-TIP,176
+STATUS=TIP
+
+ALOHA-TIP,164
+STATUS=TIP
+
+AMES-11,208
+STATUS=USER
+
+AMES-67,16
+STATUS=SERVER
+NICKNAMES=AMES
+
+AMES-TIP,144
+STATUS=TIP
+
+ARPA-DMS,28
+STATUS=USER
+
+ARPA-TIP,156
+STATUS=TIP
+
+BBN-11X,5
+STATUS=USER
+
+BBN-1D,232
+STATUS=USER
+
+BBN-NCC,40
+STATUS=USER
+
+BBN-TENEX,69
+STATUS=SERVER
+NICKNAMES=BBN
+
+BBN-TENEXA,197
+STATUS=SERVER
+NICKNAMES=BBNA
+
+BBN-TENEXB,133
+STATUS=SERVER
+NICKNAMES=BBNB
+
+BBN-TESTIP,158
+STATUS=TIP
+
+BELVOIR,27
+STATUS=USER
+
+BRL,29
+STATUS=USER
+
+CASE-10,13
+STATUS=SERVER
+
+CCA-TENEX,31
+STATUS=SERVER
+
+CCA-TIP,159
+STATUS=TIP
+
+CHII,131
+STATUS=SERVER
+
+CMU-10A,78
+STATUS=SERVER
+
+CMU-10B,14
+STATUS=SERVER
+
+CMU-11,142
+STATUS=USER
+
+CMU-CC,206
+STATUS=USER
+
+DOCB-TIP,153
+STATUS=TIP
+
+ETAC,20
+STATUS=USER
+
+ETAC-TIP,148
+STATUS=TIP
+
+FNWC,33
+STATUS=USER
+
+FNWC-TIP,161
+STATUS=TIP
+
+GWC-TIP,152
+STATUS=TIP
+
+HARV-1,73
+STATUS=USER
+
+HARV-10,9
+STATUS=SERVER
+
+HASKINS,201
+STATUS=USER
+
+HAWAII-500,228
+STATUS=SERVER
+
+HAWAII-ALOHA,36
+STATUS=USER
+
+I4-ELF,79
+STATUS=USER
+
+I4-TENEXA,15
+STATUS=SERVER
+
+I4-TENEXB,143
+STATUS=USER
+
+ILL-CAC,12
+STATUS=USER
+
+ILL-NTS,76
+STATUS=USER
+
+ISI-DEVTENEX,150
+STATUS=USER
+
+ISI-SPEECH11,22
+STATUS=USER
+
+ISI-TSP,214
+STATUS=USER
+
+LBL,34
+STATUS=USER
+
+LL-67,10
+STATUS=SERVER
+
+LL-TSP,138
+STATUS=USER
+
+LL-TX-2,74
+STATUS=SERVER
+
+LL-ANTS,95
+STATUS=USER
+
+LLL-RISOS,21
+STATUS=USER
+
+LONDON,42
+STATUS=SERVER
+
+LONDON-TIP,170
+STATUS=TIP
+
+LONDON-VDH,106
+STATUS=USER
+
+MIT-AI,134
+STATUS=SERVER
+
+MIT-DMS,70
+STATUS=SERVER
+
+MIT-ML,198
+STATUS=SERVER
+
+MIT-MULTICS,44
+STATUS=SERVER
+
+MITRE-TIP,145
+STATUS=TIP
+
+NBS-ICST,19
+STATUS=USER
+
+NBS-TIP,147
+STATUS=TIP
+
+NCC-TIP,168
+STATUS=TIP
+
+NORSAR-TIP,169
+STATUS=TIP
+
+OFFICE-1,43
+STATUS=SERVER
+
+PARC-11,160
+STATUS=USER
+
+PARC-MAXC,32
+STATUS=SERVER
+
+PARC-VTS,96
+STATUS=USER
+
+RADC-TIP,146
+STATUS=TIP
+
+RAND-RCC,7
+STATUS=SERVER
+
+RML-TIP,165
+STATUS=TIP
+
+RUTGERS-TIP,174
+STATUS=TIP
+
+SCI,45
+STATUS=USER
+
+SCRL-ELF,67
+STATUS=USER
+
+SDAC-44,26
+STATUS=USER
+
+SDAC-TIP,154
+STATUS=TIP
+
+SDC-CC,72
+STATUS=SERVER
+
+SDC-LAB,8
+STATUS=SERVER
+
+SRI-AI,66
+STATUS=SERVER
+
+SRI-ARC,2
+STATUS=SERVER
+
+SU-AI,11
+STATUS=SERVER
+
+SU-DSL,194
+STATUS=USER
+
+TYMSHARE-TIP,171
+STATUS=TIP
+
+UCB,98
+STATUS=USER
+
+UCLA-CCBS,129
+STATUS=SERVER
+
+UCLA-CCN,65
+STATUS=SERVER
+
+UCLA-NMC,1
+STATUS=USER
+
+UCSB-MOD75,3
+STATUS=SERVER
+
+UCSD-CC,35
+STATUS=SERVER
+
+UNIVAC,140
+STATUS=USER
+
+USC-44,23
+STATUS=SERVER
+
+USC-ISI,86
+STATUS=SERVER
+NICKNAMES=ISI
+
+USC-TIP,151
+STATUS=TIP
+
+UTAH-10,4
+STATUS=SERVER
+
+UTAH-TIP,132
+STATUS=TIP
+
+WPAFB-TIP,175
+STATUS=TIP
+