Trailing-Edge
-
PDP-10 Archives
-
BB-FI82B-DD_1989
-
35,1414/runlim.ctl
There is 1 other file named runlim.ctl in the archive. Click here to see a list.
;CONTROL FILE TO SLEEP FOR X HRS THEN END ACCEPTANCE
;MAY 1984 T.D.
.DAY
.RUN RUNHRS[35,1414]
*24
.IF (ERROR) .GOTO HIBERR
.DAY
.PLEASE *************************(RUNLIM) 24 HOURS HAVE ELAPSED ***^[
!
! Here to stop KERNEL tests:
!
STOP::
!
.DAY
.PLEASE ************************************ STOPPING KERNEL TESTS ***^[
!
.SUB PRL1=/KI
.SUB PRL2=/KI
.SUB PRL3=/KI
.SUB PRL4=/KI
.SUB PRL5=/KI
.SUB PRL6=/KI
.SUB PRL7=/KI
.SUB PRL*=/KI
.SUB CPU*=/KI
!
.SUB MEM1=/KI
.SUB MEM2=/KI
.SUB MEM3=/KI
.SUB MEM*=/KI
.DAY
.SUB DSK00=/KI
.SUB STAT*=/KI
.SUB LPCLR=/KI
.SUB CI20=/KI
.SUB NI20=/KI
.DAY
.RUN SLEEPR[35,1414]
*1
.DAY
!
! Here to collect data.
!
DATA::
.SUB FINISH[35,1414]/TIME/UNIQ:0
.NOERROR
.COPY KERNEL.LOG=PRL?.LOG,MEM?.LOG
.GOTO END
!
HIBERR::
.PLEASE ???????????????????????????????????????????????????????????? ^[
.PLEASE ??? ERROR IN RUNLIM... ACCEPTANCE WILL NOT AUTO END! ??????? ^[
.SUB FINISH[35,1414]/TIME/UNIQ:1/OUT:ERROR
.GOTO END
!
%ERR::
.PLEASE ???????????????????????????????????????????????????????????? ^[
.PLEASE ??? UNKNOWN ERROR IN RUNLIM... ACCEPTANCE WILL NOT AUTO END! ^[
!
END::
%FIN::