Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/cpurel.ver
There is 1 other file named cpurel.ver in the archive. Click here to see a list.
;@silence
;Assumptions:
;		Area <1-DIAGNOSTICS> <2-diagnostics> filled with necessary files
;		...and access allowed
BEGIN::
@take PS:<UETP.LIB>sys.cmd
@defINE dsk: DSK:,PS:<1-DIAGNOSTICS>,PS:<2-DIAGNOSTICS>,PS:<3-DIAGNOSTICS>,PS:<uetp.lib>
@run <uetp.lib>sender
*type start
*blabel BEGIN:
*test CPUREL
*send Start of CPUREL
*exit
;@revive
!
!	here we start D20MON 
@ERROR
D20MON::
@RUN D20MON
@IF (NOERROR) @GOTO CPUREL::
!
@SILENCE	! ***** MESSAGE: ERROR ON 'RUN' COMMAND CPUREL
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL CPUREL:
*TEST CPUREL
*SEND ERROR ON 'RUN' COMMAND CPUREL
*EXIT
@REVIVE
@GOTO ENDERR::
!
CPUREL::
*t
DFKBA	2	0	1
=2400
*
@IF (NOERROR) @GOTO ED::
@SILENCE	! ***** MESSAGE: ERROR RUNNING CPUREL DIAGS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL CPUREL:
*TEST CPUREL TEST
*SEND ERROR RUNNING CPUREL DIAGS
*EXIT
@REVIVE
ED::
*t
DFKDA	1	0	1
=2400
*
@IF (NOERROR) @GOTO END::
@SILENCE	! ***** MESSAGE: ERROR RUNNING CPUREL DIAGS
@RUN <UETP.LIB>SENDER
*TYPE MAJOR
*BLABEL DFKAD:
*TEST CPUREL TEST
*SEND PROBLEM RUNNING  DFKDA
*EXIT
@REVIVE
@GOTO ENDERR::
%TERR::
@SILENCE	! ***** MESSAGE: TIME-OUT ERROR CPUREL
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST CPUREL
*SEND TIME-OUT ERROR CPUREL
*EXIT
@REVIVE
@GOTO ENDERR::
!
%ERR::
@SILENCE	! ***** MESSAGE: UNKNOWN ERROR IN CPUREL.SUP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST CPUREL
*SEND UNKNOWN ERROR IN CPUREL.SUP
*EXIT
@GOTO ENDERR:
!
ENDERR::
@INF DIS <1-DIAGNOSTICS>
@VDIR <1-DIAGNOSTICS>
@INF DIS <2-DIAGNOSTICS>
@VDIR <2-DIAGNOSTICS>
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM
!
END::
%FIN::
@silence		!***** message: END OF CPUREL TEST
@RUN  <uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST CPUREL
*SEND END OF CPUREL  TEST
*EXIT