Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
uetp/lib/dfrpm.ver
There is 1 other file named dfrpm.ver in the archive. Click here to see a list.
;Assumptions:
; D20MON ,DISK exits in <1-DIAGNOSTICS> OR <2-DIAGNOSTICS>
!
begin1::
@ENA
@DEF DSK: <UETP.RUN>, PS:<UETP.LIB>, PS:<1-DIAGNOSTICS>, PS:<2-DIAGNOSTICS>
!
begin2::
@RUN <uetp.lib>sender
*TYPE START
*BLABEL BEGIN
*TEST DFRPM
*SEND Start of DISK test for RP07 DRIVES
*EXIT
!
!
START::
@REVIVE
@RUN D20MON
*DFRPM
*Y
*000
*0
*N
*A
*N
*A
*A
*A
*N
*
*N
*
*N
*
*MAN
*WONLY
*RONLY
*MAPOUT
*TOTALS
*EXIT
=^C
START1::
@RUN D20MON
*DFRPM
*Y
*2000
*0
*N
*A
*N
*A
*A
*A
*N
*N
*N
*MODE
*MAN
*EX7
*EX6
*EX3
*EX12
*TOTALS
*MODE
*DEF
*M
*EXIT
=^C
@SILENCE !***** message: ERROR in RP07 DISK DRIVE TEST
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL PERR::
*TEST DFRPM
*SEND PROBLEM in DISK test on RP07 DRIVES...CHECK DISK.LOG
*EXIT
@REVIVE
@I MEM
@CHKPNT PERR::
@GOTO END::
!
!
%TERR::
@GOTO END::
@SILENCE !***** message: RUN TILL TIME EXAUSTED
!
%ERR::
!
@SILENCE !***** message: unknown ERROR in RP07 DISK DRIVE test
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL ERR::
*TEST DFRPM
*SEND unknown ERROR in RP07 DISK DRIVE test
*EXIT
@REVIVE
@GOTO ENDERR::
!
ENDERR::
@NOERROR
@VDIR <UETP.LIB>DISK.VER
@VDIR <1-DIAGNOSTICS>
@VDIR <2-DIAGNOSTICS>DISK.*
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM
@goto end::
!
@CHKPNT ADSF::
!
END::
%FIN:
@SILENCE !***** message: End of RP07 DISK DRIVE test
@RUN <uetp.lib>sender
*TYPE END
*BLABEL END::
*TEST DFRPM
*SEND End of DISK test for RP07 DRIVES
*EXIT
@REVIVE
@reset
!