;COMPARISON OF DSK:SYSEN1;NETIME 127 AND DSK:SYSEN1;NETIME 128
;OPTIONS ARE    /3

**** FILE DSK:SYSEN1;NETIME 127, 1-17 (221)
**** FILE DSK:SYSEN1;NETIME 128, 1-18 (223)
count=:10
***************

**** FILE DSK:SYSEN1;NETIME 127, 3-2 (1503)
; Hosts are arranged first into three groups by approximate speed and
; reliability.  Each group is in alphabetical order.  Presumably there is
; little correlation between a machine's speed and reliability, and the
; alphabetical position of its name.
hosts:
; Ask the reliable ITS machines first.  They are all on subnet 6 and tend
; to answer quickly.
	<(sixbit /AI/)>,,[asciz "AI"]
	<(sixbit /MC/)>,,[asciz "MC"]
	<(sixbit /ML/)>,,[asciz "ML"]
; File servers tend to be up.  Approximately in the order that they seem
; likely to come up after a mass shutdown.
	[asciz "REAGAN"]
	[asciz "ZERMATT"]
	[asciz "GOLDILOCKS"]
	[asciz "LIVE-OAK"]
	[asciz "PYGMALION"]
	[asciz "HEPHAESTUS"]
; Ordinary hosts.  Alphabetical order.
	[asciz "BIGBOOTE"]
	[asciz "CROSBY"]
	[asciz "DIALUP-CHAOS"]
	[asciz "GAAK"]
	[asciz "MINTAKA"]
	[asciz "OTIS"]
	[asciz "PIGPEN"]
	[asciz "SAFFRON"]
	[asciz "SINATRA"]
; Unreliable hosts start here.  Putting hosts that tend to not answer at
; the end keeps them from acting as a bottleneck.  (It also gives them less
; time to respond...)
	<(sixbit /MD/)>,,[asciz "MD"]
	[asciz "GOLEM"]
	[asciz "LSD"]
	[asciz "EMACK-AND-BOLIOS"]
**** FILE DSK:SYSEN1;NETIME 128, 3-2 (1518)
; Hosts are arranged first into groups by approximate speed and
; reliability.  Each group is in random order.  Until I can get
; dqdev working right, I'm putting the IP#'s here. /Paul
hosts:
; Ask local machines first.
	[asciz "HOME"]
	[asciz "FAMILJEN"]
; Lysator machines servers tend to be up.
	[asciz "130.236.254.203"]	; sandra.lysator.liu.se
	[asciz "130.236.254.204"]	; sara.lysator.liu.se
	[asciz "130.236.254.205"]	; sally.lysator.liu.se
; Some random hosts.
	[asciz "158.121.106.20"]	; delysid.gnu.org
	[asciz "207.202.214.131"]	; otaku.freeshell.org
	[asciz "12.17.138.171"]		; kappa.unlambda.com
	[asciz "209.251.101.202"]	; sakura.lunar-tokyo.net
	[asciz "207.202.214.132"]	; sdf.lonestar.org
	[asciz "192.207.126.3"]		; dinky.musenki.com
	[asciz "199.232.76.164"]	; fencepost.gnu.org
	[asciz "18.24.10.26"]		; mc.lcs.mit.edu
	[asciz "63.222.128.227"]	; alembic.crystel.com
	[asciz "194.236.34.19"]		; realpanic.nocrew.org
; the end keeps them from acting as a bottleneck.  (It also gives them less
; time to respond...)
	<(sixbit /SV/)>,,[asciz "MD"]
	<(sixbit /PI/)>,,[asciz "MD"]
	<(sixbit /DX/)>,,[asciz "MD"]
***************

**** FILE DSK:SYSEN1;NETIME 127, 4-6 (2824)
wait:	20.*60.			; Wait 20 seconds polling other hosts.
**** FILE DSK:SYSEN1;NETIME 128, 4-6 (2803)
wait:	10.*60.			; Wait 10 seconds polling other hosts.
***************

**** FILE DSK:SYSEN1;NETIME 127, 4-15 (3101)
spread:	400.			; Times agree if they differ by less than
				; 400 seconds (6 mins 40 secs)
days:	3			; If machine looks like it was down for
**** FILE DSK:SYSEN1;NETIME 128, 4-15 (3080)
spread:	10.			; Times agree if they differ by less than
				; 10 seconds
days:	7			; If machine looks like it was down for
***************

**** FILE DSK:SYSEN1;NETIME 127, 4-41 (3967)
.scalar count			; The number of outstanding time requests.
**** FILE DSK:SYSEN1;NETIME 128, 4-41 (3927)
***************

**** FILE DSK:SYSEN1;NETIME 127, 6-15 (5461)
	setzm count
**** FILE DSK:SYSEN1;NETIME 128, 6-15 (5359)
	setz count,
***************

**** FILE DSK:SYSEN1;NETIME 127, 7-27 (6194)
	aos -1(p)
	hrrz t,-1(p)
	caie t,iocok+1
	 .lose
	rest t
**** FILE DSK:SYSEN1;NETIME 128, 7-27 (6092)
	hrrz t,-1(p)
	caie t,ioc1
	 cain t,ioc2
	  caia
	   jrst badint
	rest t
	aos (p)
***************

**** FILE DSK:SYSEN1;NETIME 127, 8-9 (6443)
	dpb a,[$cpkda opkt]
	syscall chaoso,[movei netich(b) ? movei netoch(b)]
	 jrst netgo		; Chaosnet full?  Broken?
	tdz netbit(b)
	syscall pktiot,[movei netoch(b) ? movei opkt]
	 slose
	.rdtime tt,
	movem tt,atimes(c)	; Begin our wait
	hrrzi a,netin
	hrli a,(c)
	movem a,state(b)
	aos count
	jrst loop
netin:	sos count
iocok::	syscall pktiot,[movei netich(b) ? movei ipkt]
**** FILE DSK:SYSEN1;NETIME 128, 8-9 (6368)
	tlnn a,<-1>_14.
	 tlnn a,<-1>_6.
	  jrst [dpb a,[$cpkda opkt]
		syscall chaoso,[movei netich(b) ? movei netoch(b)]
		 jrst netgo	; Chaosnet full?  Broken?
		tdz netbit(b)
		syscall pktiot,[movei netoch(b) ? movei opkt]
		 slose
		hrrzi a,netin
		jrst opnok]
	tdz netbit(b)
	syscall tcpopn,[movei netich(b) ? movei netoch(b) ?
			move [-1] ? movei 37. ? move a]
	 jrst netgo		; Net full?  Broken?
	hrrzi a,tcpin
opnok::	hrli a,(c)
	movem a,state(b)
	.rdtime tt,
	movem tt,atimes(c)	; Begin our wait
	aoja count,loop
tcpin:	tdz netbit(b)
	syscal whyint,[movei netich(b) ? movem a ? movem a ? movem e]
	 slose
	caie a,%ntcls
	 cain a,%ntclu
	  soja count,netgo
	caie a,%ntinp
	 cain a,%ntcli
	  caia
	   jrst loop
	caige e,4
	 jrst loop		; Ick... busy waiting here
	caie e,4
	 soja count,netgo
	setz a,
ioc1::	syscal iot,[movei netich(b) ? t]
	 soja count,netgo	; IOC ints return to here.
	lsh a,8.
	ior a,t
	sojg e,ioc1
	.rdtime tt,
	addm tt,atimes(d)	; End our wait (computes average in 60ths)
	movem a,times(d)
	aos d
	soja count,netgo
netin:	sos count
ioc2::	syscall pktiot,[movei netich(b) ? movei ipkt]
***************

**** FILE DSK:SYSEN1;NETIME 127, 8-39 (7230)
	jrst netgo
**** FILE DSK:SYSEN1;NETIME 128, 8-72 (7925)
	aoja d,netgo
***************

**** FILE DSK:SYSEN1;NETIME 127, 9-9 (7448)
	skipe count
	 jrst loop
	jrst setime
**** FILE DSK:SYSEN1;NETIME 128, 9-9 (8145)
	jumpe count,setime
	 jrst loop
***************

**** FILE DSK:SYSEN1;NETIME 127, 14-7 (13010)
	skipe count
**** FILE DSK:SYSEN1;NETIME 128, 14-7 (13700)
	caie count,
***************

**** FILE DSK:SYSEN1;NETIME 127, 16-6 (13916)
**** FILE DSK:SYSEN1;NETIME 128, 16-6 (14606)
netwrk"$$arpa==:1
***************