Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
uetp/lib/membas.ver
There is 1 other file named membas.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 MEMBAS
*send Start of MEMBAS test
*exit
;@revive
!
@ERROR
D20MON::
! here we start D20MON
@RUN D20MON
@IF (NOERROR) @GOTO MEMBAS::
!
@SILENCE ! ***** MESSAGE: ERROR ON 'RUN'-COMMAND IN MEMBAS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL D20MON:
*test MEMBAS
*SEND ERROR ON 'RUN'-COMMAND IN MEMBAS
*EXIT
@REVIVE
@GOTO ENDERR:
!
MEMBAS::
*
*T
*ddmmC 1 0 1777
*ddmmE 1 0 3777
*ddmmF 1 0 10
=2400
*
!
@IF (NOERROR) @GOTO END:
!
@SILENCE ! ***** MESSAGE: ERROR RUNNING MEMBAS DIAGS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MEMBAS:
*test MEMBAS
*SEND ERROR RUNNING MEMBAS DIAGS
*EXIT
@REVIVE
@GOTO ENDERR::
!
%TERR::
@SILENCE ! ***** MESSAGE: TIME-OUT ERROR MEMBAS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR:
*test MEMBAS
*SEND TIME-OUT ERROR MEMBAS
*EXIT
@REVIVE
@GOTO ENDERR::
!
%ERR::
@SILENCE ! ***** MESSAGE: UNKNOWN ERROR IN MEMBAS
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR:
*test MEMBAS
*SEND UNKNOWN ERROR IN MEMBAS
*EXIT
@REVIVE
!
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 MEMBAS TEST
@RUN <uetp.lib>sender
*TYPE END
*BLABEL END:
*test MEMBAS
*SEND END OF MEMBAS TEST
*EXIT
@REVIVE