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

;**********************************************
;********** KERNEL ACCEPTANCE SCRIPT **********
;**********************************************
;
;*** PARAMETERS:
;*** A = 'A: Number of Hours to run (no default)
;*** B = 'B: "CI" test scripts (default is no CI)
;*** C = 'C: "NI" test scripts (default is no NI)
;*** D = 'D: "LPT" to test LPT (default is not lpt)
;*** E = 'E: "CYC" for cyclic tests (default is 1 continuous pass)
;
INP::
;****** EDITING RUNLIM.CTL FOR RUN TIME...
.SILENCE
.NOERROR
.DEL RUNLIM.CTL[1,2]
.DEL RUNLIM.LOG[1,2]
.COPY KERNEL.ERL=NUL:
.ERROR
.R DTECO
=ER[35,1414]RUNLIM.MOD^[^[
=EA^[^[
*S[HRS]^[-5D^[I'A^[^[
*S[HRS]^[-5D^[I'A^[^[
*EW[35,1414]RUNLIM.CTL^[^[
*EX^[^[
.REVIVE
;***** CONTROL FILE TO MONITOR TIME
.SUB RUNLIM[35,1414]/TIME:9:59:/UNIQ:0/OUT:NOLOG/BAT:SUP/REST:NO
;
.IF ("'E" = "CYC") .GOTO INPCYC
;
;
INPASS::
;*****INPUT MEMORY AND CPU CONTROL FILES
;
ERROR
.SUB PRL1.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.SUB PRL2.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.SUB PRL3X.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.SUB PRL4X.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.SUB PRL5.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.SUB PRL6.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.SUB PRL7.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.SUB MEM1.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.SUB MEM2.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.SUB MEM3.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
.GOTO INPIO
;
INPCYC::
.SUB CPUBAS.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP/REST:NO
.SUB MEMBAS.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP/REST:NO
.SUB CPUADV.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP/REST:NO
.SUB CPUREL.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP/REST:NO
.SUB MEMREL.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP/REST:NO
;
INPIO::
;*****INPUT IO CONTROL FILES
;
.SUB DSK00[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR/REST:NO
.IF ("'B" = "CI") .GOTO INPCI
.GOTO NICHCK
INPCI::
.SUB CI20.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
NICHCK::
.IF ("'C" = "NI") .GOTO INPNI
.GOTO LPCHCK
INPNI::
.SUB NI20.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP/REST:NO
LPCHCK::
.IF ("'D" = "LPT") .GOTO DOLPTS
.SUB STAT[35,1414]/TIME/UNIQ:0,/DISP:DEL/REST:NO
.SUB LPCLR[35,1414]/TIME/UNIQ:0/AFTER:+01:00,/DISP:DEL/REST:NO
.GOTO KERMES
DOLPTS::
.SUB STATUS.CTL[35,1414]/UNIQ:0/TIME:00:06:,/DISP:DEL/REST:NO
KERMES::
;***********************************************
;*** KERNEL ACCEPTANCE STARTED FOR 'A HR RUN ***
;***********************************************
.GOTO END
%ERR::
!//////////////////////////////////////////////////////
!ERROR IN KERNEL.MIC
!//////////////////////////////////////////////////////
%CERR::
!//////////////////////////////////////////////////////
!ERROR IN KERNEL.MIC
!//////////////////////////////////////////////////////
END::