Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
uetp/lib/diags.ver
There is 1 other file named diags.ver in the archive. Click here to see a list.
;<UETP.LIB>DIAGS.VER.2, 10-May-79 11:51:14, EDIT BY EIBEN
;Assumptions:
; Area <DIAGNOSTICS> filled with necessary files
; ...and access allowed
@def dsk: DSK:<DIAGNOSTICS>,DSK:<uetp.lib>
@def out: ps:<diagnostics>
@run <uetp.lib>sender
*type start
*blabel BEGIN:
*test diags
*SEND
*exit
@take sys.cmd
@goto begin2:
%ERR::
@RUN <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST diags
*SEND ERROR on TAKE SYS.CMD
*EXIT
@goto ENDERR:
begin2::
@revive
! here we start smmon and all ts-diagnostics
DIAGS::
@RUN smmon
@GOTO DIAGS1:
%ERR::
@SILENCE ! ***** MESSAGE: ERROR ON 'RUN' COMMAND DIAGS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL DIAGS:
*TEST DIAGS
*SEND ERROR ON 'RUN' COMMAND DIAGS
*EXIT
@REVIVE
@GOTO ENDERR:
DIAGS1::
*d
*smusr.cmd
*0
@GOTO END:
%ERR::
%TERR::
@SILENCE ! ***** MESSAGE: TIME-OUT ERROR DIAGS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST DIAGS
*SEND TIME-OUT ERROR DIAGS
*EXIT
@REVIVE
@GOTO ENDERR:
%ERR::
@SILENCE ! ***** MESSAGE: UNKNOWN ERROR IN DIAGS.SUP
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST DIAGS
*SEND UNKNOWN ERROR IN DIAGS.SUP
*EXIT
@REVIVE
@GOTO ENDERR:
ENDERR::
@INF DIS <DIAGNOSTICS>
@VDIR <DIAGNOSTICS>
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM
END::
%FIN::
@silence !***** message: END OF DIAGS TEST
@RUN <uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST DIAGS
*SEND
*EXIT
@revive