Google
 

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