Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 1/1	;13C1
	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
 WIT
	SUBTTL R CLEMENTS /CHW/TNH/PFC/RCC/CMF/SML/JMF/TCK/JNG/JMT/PMW/MTH/KPY/ISM/BBE/WCL/BCM/GAT 28-Oct-85
	VSYSTAT==476
	VEDIT==333
 REP 8/1	;13C2
	;COPYRIGHT (C) 1968,1979,1980,1981,1982,1983,1984,1985 BY
 WIT
	;COPYRIGHT (C) 1968,1979,1980,1981,1982,1983,1984 BY
 REP 535/2	;13C3
	;EDIT 324	GAT		24-OCT-83	SPR 10-33843
	;	"SYS P" REPORTS INCORRECT NUMBER OF RETRIES (UNIECT).
	;EDIT 325	JMF		12-JUN-84	NO SPR
	;	FIX ILL MEM REFS FROM "ONE WORD GLOBAL BYTE POINTERS" IN 
	;	NEW MICROCODE (V352).
	;EDIT 326	JMF		07-Jan-85	SPR 10-34951
 WIT
	;EDIT 333	JMF		7-JUL-85	SPR 10-35259
	;	SYSTAT hiseg display occasionally doesn't show the device name.
 REP 1/21	;13C4
	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
 WIT
	GENSTS:	PUSHJ	P,CRLF		;ISOLATE CPU TIMES FROM HEADER,KSYS, ETC.
		MOVN	D,NCPCNF	;FORM AOBJN
 REP 27/59	;13C5
		ANDI N,77777			;[324] RETRIES FIELD BITS 15-35
 WIT
		HRRZ	N,N
 REP 4/79	;13C6
	MSG:	TLZ	M,-1		;[325]
 WIT
	MSG:	TLZ	M,-1
 REP 36/89	;13C7
	INACTC:	SKIPL	D,@.STS		;SKIP IF RUN BIT ON
		JRST	CPOPJ1		;OFF, INACTIVE
		LDB	D,[POINT 5,D,14]	;GET WAIT STATE CODE
		CAMN	D,SLQ		;SKIP IF DOESNT MATCH
		JRST	CPOPJ1		;YES, ONE MATCHES, INACTIVE
		CAME	D,TIQ		;IN "TI" STATE?
		CAMN	D,EWQ		;IN "EW" STATE?
 WIT
	INACTC:	SKIPL	R,@.STS		;SKIP IF RUN BIT ON
		JRST	CPOPJ1		;OFF, INACTIVE
		LDB	R,[POINT 5,R,14]	;GET WAIT STATE CODE
		CAMN	R,SLQ		;SKIP IF DOESNT MATCH
		JRST	CPOPJ1		;YES, ONE MATCHES, INACTIVE
		CAME	R,TIQ		;IN "TI" STATE?
		CAMN	R,EWQ		;IN "EW" STATE?
 SUM 109216