Google
 

Trailing-Edge - PDP-10 Archives - k20v7c - mfg/upd/userb.ver
There is 1 other file named userb.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 USERB test for USERB
@RUN UTP:sender
*TYPE START
*BLABEL START::
*TEST USERB
*SEND Start test for USERB
*EXIT
@REVIVE
!
@MOUNT STR USERB:
@I STR USERB:
@def dsk: USERB:<SUBSYS>,PS:<UETP.LIB>
@DEF OUT: USERB:<SUBSYS>
@ENA
@IF (NOERROR) @GOTO TEST1::
ERROR::
@SILENCE!***** message: ERRORS IN USERB
@RUN UTP:sender
*TYPE ERROR
*BLABEL BEGIN::
*TEST USERB
*SEND ERRORS IN USERB
*EXIT
@REVIVE
@SYSTAT
@GOTO END::

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