Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - systat.c11
There are no other files named systat.c11 in the archive.
 REP 1/1	;11C1
	SUBTTL R CLEMENTS /CHW/TNH/PFC/RCC/CMF/SML/JMF/TCK/JNG/JMT/PMW/MTH/KPY/ISM/BBE/WCL/BCM/GAT 14-Jun-84
	VSYSTAT==476
	VEDIT==325
 WIT
	SUBTTL R CLEMENTS /CHW/TNH/PFC/RCC/CMF/SML/JMF/TCK/JNG/JMT/PMW/MTH/KPY/ISM/BBE/WCL/BCM/GAT 07-Jan-85
	VSYSTAT==476
	VEDIT==326
 REP 8/1	;11C2
	;COPYRIGHT (C) 1968,1979,1980,1981,1982,1983,1984 BY
 WIT
	;COPYRIGHT (C) 1968,1979,1980,1981,1982,1983,1984,1985 BY
 INS 540/2	;11C3
	;EDIT 326	JMF		07-Jan-85	SPR 10-34951
 REP 1/21	;11C4
	GENSTS:	PUSHJ	P,CRLF		;ISOLATE CPU TIMES FROM HEADER,KSYS, ETC.
		MOVN	D,NCPCNF	;FORM AOBJN
 WIT
	GENSTS:PUSHJ	P,CRLF		;ISOLATE CPU TIMES FROM HEADER,KSYS, ETC.
		MOVE	A,[%CNCPU]	;[326] NUMBER OF CPUS
		PUSHJ	P,FGETTB	;[326] GET THAT
		  SETZ	A,		;[326]
		SOJLE	A,GENST0	;[326] DON'T OUTPUT IF ONLY 1 CPU
		MOVEI	M,[ASCIZ /System Uptime /] ;[326]
		PUSHJ	P,MSG		;[326] OUTPUT
		MOVE	A,[%CNSUP]	;[326] GET SYSTEM UPTIME
		PUSHJ	P,FGETTB	;[326] ..
		  JFCL			;[326]
		PUSHJ	P,TCKTIS	;[326] OUTPUT THAT
		PUSHJ	P,CRLF		;[326] AND END THE LINE
	GENST0:	MOVN	D,NCPCNF	;[326] FORM AOBJN
 SUM 20606