Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
systat.c12
There are no other files named systat.c12 in the archive.
REP 1/1 ;12C1
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 ;12C2
;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 ;12C3
;EDIT 326 JMF 07-Jan-85 SPR 10-34951
REP 1/21 ;12C4
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