program	resp
c
c program to display system response
c after 'r' command, get response since system was booted
c after a restart, 'start' command, get incremental response
c
	implicit integer (a-t)
	common/w/d(0:23)
	dimension e(0:23)
	dimension tout(5)
	double precision tout
	data (e(i),i=0,23)/24*0/
	data xjfsec/60./
	data tout(1)/'TTY output'/
	data tout(2)/'TTY input'/
	data tout(3)/'Requeued'/
	data tout(4)/'1st above'/
	data tout(5)/'Execution'/
c
c ******************************************
	xconv=2.0**35
	call rsub
	type 1
1	format(' System Response:'/
	1	' Type'11x'Number'7x'Mean'2x'Deviation'/)
	do 100 i=0,4
10	j=4*i
	n=d(j+1)-e(j+1)
	xm=0
	xv=0
	if(n.eq.0) go to 30
	t=d(j)-e(j)
	sh=d(j+2)-e(j+2)
	sl=d(j+3)-e(j+3)
20	xn=float(n)
	xt=float(t)
	xs=float(sl)+float(sh)*xconv
	xc=xn*xjfsec
25	xm=xt/xc
	xv=sqrt(xs*xn-xt**2)/xc
30	type 2,tout(i+1),n,xm,xv
2	format(1xa10,1xi10,1xf10.2,1xf10.2)
100	continue
	do 120 i=0,23
120	e(i)=d(i)
	type 3
3	format(/' Type "start" for incremental values'/)
	call quit
	end