Google
 

Trailing-Edge - PDP-10 Archives - k20v7d - uetp/lib/usera.ver
There is 1 other file named usera.ver in the archive. Click here to see a list.
@SILENCE
!THIS FILE WAS CREATED BY THE CONFIGURATOR PROGRAM 
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
!FILES NEEDED:
!
!PAGES.EXE
!


BEGIN::
@ERROR
@revive
@DEFINE UTP: PS:<UETP.LIB>
@TAKE UTP:SYS.CMD
!@CONN PS:<UETP.RUN>
@DEFINE DSK: DSK:,PS:<UETP.LIB>
@revive
START::
@SILENCE!***** message: Start of USERA test for USERA
@RUN UTP:sender
*TYPE START
*BLABEL START::
*TEST USERA
*SEND Start test for USERA
*EXIT
@REVIVE
!
@MOUNT STR USERA:
@I STR USERA:
@def dsk: USERA:<SUBSYS>,PS:<UETP.LIB>
@DEF OUT: USERA:<SUBSYS>
@ENA
@IF (NOERROR) @GOTO TEST1::
ERROR::
@SILENCE!***** message: ERRORS IN USERA
@RUN UTP:sender
*TYPE ERROR
*BLABEL BEGIN::
*TEST USERA
*SEND ERRORS IN USERA
*EXIT
@REVIVE
@SYSTAT
@GOTO END::

TEST1::
!
!
@REVIVE
@EXPUNGE USERA:<SUBSYS>
@PAGES
*FILES USERA
*MODE RAN
*CONTENTS RAN
*SIZ 100
*NUMBER 15
*WRITE
*VERIFY
*DELETE
*EXIT
^C
@IF (NOERROR) @GOTO END::
!
@SILENCE!***** message: error running PAGES on USERA
@run UTP:sender
*type error
*blabel TEST1::
*test USERA
*send error running PAGES on USERA
*exit
@revive
@GOTO END::
!
%ERR::
!
@SILENCE!***** message: unknown ERROR in USERA test USERA
@RUN UTP:sender
*TYPE ERROR
*BLABEL END::
*TEST USERA
*SEND unknown ERROR in test USERA
*EXIT
@REVIVE
@GOTO END::
!
END::
@CHKPNT ADSF::
!
@SILENCE!***** message: End of USERA test USERA
@RUN UTP:sender
*TYPE END
*BLABEL END::
*TEST USERA
*SEND End of test USERA
*EXIT
@REVIVE
@reset
%FIN::