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