Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 35,1414/kernel.mic
There is 1 other file named kernel.mic in the archive. Click here to see a list.
;**********************************************
;********** KERNEL ACCEPTANCE SCRIPT **********
;**********************************************
;*NOTE: THIS FILE DOES NOT RUN DFKAD AND DFKDA - (KERNEY.MIC DOES)
;
;*** PARAMETERS:
;*** A = Number of Hours to run (no default)
;*** B =  "CI" test scripts (default is no CI)
;*** C =  "NI" test scripts (default is no NI)
;*** D = "LPT" to test LPT (default is not lpt)
;*** E = "CYC" for cyclic tests (default is 1 continuous pass)
;
INP::
;******CALCULATING 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
;
.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
;.SUB PRL1X.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.SUB PRL2.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.SUB PRL3.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
;.SUB PRL3X.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.SUB PRL4.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
;.SUB PRL4X.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.SUB PRL5.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.SUB PRL6.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.SUB PRL7.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.SUB MEM1.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.SUB MEM2.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.SUB MEM3.CTL[35,1414]/TIME:9:59:/UNIQ:0/AFTER:+00:02:/OUT:NOL/BAT:SUP
.GOTO INPIO
;
INPCYC::
.SUB CPUBAS.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP
;.SUB CPUBAX.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP
.SUB MEMBAS.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP
.SUB CPUADV.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP
.SUB CPUREL.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP
;.SUB CPUREX.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP
.SUB MEMREL.CTL[35,1414]/TIME:1:0:0/UNIQ:0/AFTER:+0:2:/OUT:NOL/BAT:SUP
;
INPIO::
;*****INPUT IO CONTROL FILES
;
.SUB DSK00[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.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
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
LPCHCK::
.IF ("'D" = "LPT") .GOTO DOLPTS
.SUB STAT[35,1414]/TIME/UNIQ:0,/DISP:DEL
.SUB LPCLR[35,1414]/TIME/UNIQ:0/AFTER:+01:00,/DISP:DEL
.GOTO KERMES
DOLPTS::
.SUB STATUS.CTL[35,1414]/UNIQ:0/TIME:00:06:,/DISP:DEL
KERMES::
;***********************************************
;*** KERNEL ACCEPTANCE STARTED FOR 'A HR RUN ***
;***********************************************
.GOTO END
%ERR::
!//////////////////////////////////////////////////////
!ERROR IN KERNEL.MIC
!//////////////////////////////////////////////////////
%CERR::
!//////////////////////////////////////////////////////
!ERROR IN KERNEL.MIC
!//////////////////////////////////////////////////////
END::