Trailing-Edge
-
PDP-10 Archives
-
dec-10-omona-u-mc9
-
systat.ctl
There are 2 other files named systat.ctl in the archive. Click here to see a list.
;THIS FILE WILL GENERATE A VERSION OF SYSTAT
;IT WILL USE CUSPS FROM THE 10,7 AREA
;IT IS ASSUMED THAT THE FILES:
; SYSTAT.MAC
; SYSTAT.HLP
; SYT473.DOC
; SYSTAT.CTL
;ARE IN THE CURRENT AREA
;THE FOLLOWING PROGRAMS ARE SUPPOSED TO BE IN THE 10,7 AREA
; PIP
; MACRO
; LINK
; CREF IF A LISTING IS WISHED
; DIRECT
;IN ADDITION THE FOLLOWING FILE IS REQUIRED
; HELPER.REL
;THE FILES C.UNV AND JOBDAT.UNV ARE EXPECTED IN AREA UNV:
.SET WATCH VERSION
.RUN DSK:PIP[10,7]
*DSK:/X=HELPER.REL[10,7]
.RUN DSK:MACRO[10,7]
*SYSTAT,SYSTAT/C=SYSTAT
;IF A LISTING IS DESIRED DELETE THE SEMICOLON ON THE NEXT 3 LINES
;.RUN DSK:CREF[10,7]
;*DSK:=SYSTAT
;.PRINT SYSTAT.LST
.DELETE SYSTAT.CRF
.IF (ERROR) ;IN CASE THAT A LISTING WAS MADE
.RUN DSK:LINK[10,7]
*SYSTAT/SAVE=HELPER/SEGMENT:LOW
*SYSTAT/GO
.RUN DSK:SYSTAT
.R RUNOFF
SYT473.DOC=SYT473.RND
.Q LPT0:=SYT473.DOC/COPIES:3,SYSTAT.HLP/COPIES:3
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=SYSTAT.SAV,SYSTAT.MAC,SYSTAT.HLP,HELPER.REL
*TTY:/CHECKSUM=SYT473.RND,SYT473.DOC
.DELETE HELPER.REL
.MOUNT DTA:D/VID:SYSTAT/WE
.ZERO D:
.LABEL D: SYSTAT
.COPY D:=DSK:SYSTAT.MAC,SYSTAT.HLP,SYT473.DOC,SYT473.RND,SYSTAT.SAV,SYSTAT.CTL
.DIR D:
.DISMOUNT D:/REMOVE