Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/cpubas.ver
There is 1 other file named cpubas.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
@def dsk: DSK:,PS:<1-DIAGNOSTICS>,PS:<2-DIAGNOSTICS>,PS:<3-DIAGNOSTICS>,PS:<uetp.lib>
@run <uetp.lib>sender
*type start
*blabel BEGIN:
*test CPUBAS
*send Start of CPUBAS
*exit
;@revive
!
!	here we start D20MON 
@ERROR
D20MON::
@RUN D20MON
@IF (NOERROR) @GOTO CPUBAS::
!
@SILENCE	! ***** MESSAGE: ERROR ON 'RUN' COMMAND CPUBAS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL CPUBAS:
*TEST CPUBAS
*SEND ERROR ON 'RUN' COMMAND CPUBAS
*EXIT
@REVIVE
@GOTO ENDERR::
!
CPUBAS::
*t
dfkaa   2	0	17777
dfkab   2	0	17777
dfkac   2	0	17777
dfkad   2	0	17777
dfkCA   2	0	77
dfkCB   2	0	17777
dfkCC   2	0	1
=2400
*
@IF (NOERROR) @GOTO ED::
!
@SILENCE	! ***** MESSAGE: ERROR RUNNING CPUBAS DIAGS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL CPUBAS:
*TEST CPUBAS
*SEND ERROR RUNNING CPUBAS DIAGS
*EXIT
@REVIVE
ED::
*
*T
dfkad   2	0	17777
=2400
*
@IF (NOERROR) @GOTO END::
!
@SILENCE	! ***** MESSAGE: ERROR RUNNING CPUBAS DFKAD
@RUN <UETP.LIB>SENDER
*TYPE MAJOR
*BLABEL DFKAD:
*TEST CPUBAS
*SEND PROBLEM RUNNING  DFKAD
*EXIT
@REVIVE
@GOTO ENDERR::
!
%TERR::
@SILENCE	! ***** MESSAGE: TIME-OUT ERROR CPUBAS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST CPUBAS
*SEND TIME-OUT ERROR CPUBAS
*EXIT
@REVIVE
@GOTO ENDERR:
!
%ERR::
@SILENCE	! ***** MESSAGE: UNKNOWN ERROR IN CPUBAS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST CPUBAS
*SEND UNKNOWN ERROR IN CPUBAS
*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 CPUBAS TEST
@RUN  <uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST CPUBAS
*SEND END OF CPUBAS  TEST
*EXIT