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::