Google
 

Trailing-Edge - PDP-10 Archives - k20v7c - mfg/src/dsk00.ver
There are no other files named dsk00.ver in the archive.
!	File to run DDRPI Ronly on drive 0 on RH 0.

BEGIN::
@ERROR
@revive
@DEFINE UTP: PS:<UETP.LIB>
@TAKE UTP:SYS.CMD
!
START::
@SILENCE	!***** message: Start of DSK00 Test.
@RUN UTP:sender
*TYPE START
*BLABEL START::
*TEST DSK00
*SEND Start of DDRPI RONLY on DSK00
*EXIT
@REVIVE
!
@ENA
@CONN <UETP.RUN>
@DEF DSK: DSK:,<1-DIAGNOSTICS>,<2-DIAGNOSTICS>
@RUN D20MON
*DDRPI
*Y
*10
*0
*N
*N
*Y
!monitor retries..
*Y
*540,0
*ronly
@if noerror @goto end

!can't run on mounted structure!!!!
!
@SILENCE	!***** message: ERRORS IN DSK00
@RUN UTP:sender
*TYPE ERROR
*BLABEL BEGIN::
*TEST DSK00
*SEND ERRORS IN DSK00
*EXIT
@REVIVE
@SYSTAT
@GOTO END::

END::
@CHKPNT ADSF::
!
@SILENCE	!***** message: End of DSK00
@RUN UTP:sender
*TYPE END
*BLABEL END::
*TEST DSK00
*SEND End of test DSK00
*EXIT
@REVIVE
@reset
%FIN::