Trailing-Edge
-
PDP-10 Archives
-
BB-D867C-BM
-
uetp/lib/mta0.cmp
There are 14 other files named mta0.cmp in the archive. Click here to see a list.
!TIME 0:30:0
! Template for Comprehensive tape tests
!
! Test MTA0.CMP
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
!FILES NEEDED:
! MTASKR.EXE
! MTASKF.EXE
! MTABAK.EXE
! MTABKR.EXE
! TAPWRT.EXE
! TAPRED.EXE
!
!.R SETSRC
*CP [5,33,MTA]
*LIB:[5,33]
*
!.Set default prot <000>
@DEFINE UTP: <UETP.LIB> !.none
@DEF DSK: <UETP.MTA>,DSK:<UETP.LIB> !.none
@DEF OUT: PS:<UETP.MTA> !.ASSIGN DSK: OUT:
@TAKE SYS.CMD !.none
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE START
*BLABEL BEGIN:
*TEST MTA0
*SEND Start of MTA0
*EXIT
@TAKE SYS.CMD !.none
@IF (NOERROR) @GOTO BEGIN2: !.IF (NOERROR) .GOTO BEGIN2:
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE error
*BLABEL BEGIN1:
*TEST MTA0
*SEND ERROR on TAKE SYS.CMD
*EXIT
@GOTO ENDERR: !.GOTO ENDERR:
begin2::
MTA::
@DEFINE MAG: MTA0: !.none
@ASSIGN MAG: !.ASSIGN MTA0: MAG:
@IF (NOERROR) @GOTO MTA1: !.IF (NOERROR) .GOTO MTA1:
@MOUNT TAPE MTA0:/WRITE-ENABLED/LABEL-TYPE:UNLABELED/NOUNLOAD/REMARK:"Please mount MTA0:" !.MOUNT MTA:MAG/WRIT:Y/REEL:MTA0/VID:"Please mount MTA0"
@IF (NOERROR) @GOTO MTA1: !.IF (NOERROR) .GOTO MTA1:
! ***** message: ERROR assigning MTA0
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA:
*TEST MTA0
*SEND ERROR assigning MTA0:
*EXIT
@GOTO ENDERR:: !.GOTO ENDERR::
MTA1::
@REW MAG:
@IF (NOERROR) GOTO MTA2: !.IF (NOERROR) GOTO MTA2:
! ***** message: device MTA0: is not online
@RUN UTP:SENDER !.RUN UTP:SENDER
*type error
*blabel MTA1:
*test MTA0
*Send Device MTA0: is not online
*exit
@GOTO ENDERR: !.GOTO ENDERR:
MTA2::
@copy MTA0.CMP mag: !.COP MAG:=MTA0.CMP
@IF (NOERROR) GOTO MTA3: !.IF (NOERROR) GOTO MTA3:
! ***** message: device MTA0: is write-protected
@RUN UTP:SENDER !.RUN UTP:SENDER
*type error
*blabel MTA2::
*test MTA0
*send device MTA0: is write-protected
*exit
@GOTO ENDERR: !.GOTO ENDERR:
MTA3::
@RUN UTP:MTABKR.EXE !.RUN UTP:MTABKR.EXE
@IF (NOERROR) @GOTO MTA4: !.IF (NOERROR) .GOTO MTA4:
! ***** MESSAGE: ERROR in MTA0 ON 'RUN MTABKR'
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA3:
*TEST MTA0
*SEND ERROR in MTA0 ON 'RUN MTABKR'
*EXIT
@GOTO MTA5: !.GOTO MTA5:
MTA4::
*00003
@IF (NOERROR) @GOTO MTA5: !.IF (NOERROR) .GOTO MTA5:
! ***** message: ERROR in MTA0 MTABKR.EXE
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA4:
*TEST MTA0
*SEND ERROR in MTA0 MTABKR.EXE
*EXIT
MTA5::
@RUN UTP:MTASKF.EXE !.RUN UTP:MTASKF.EXE
@IF (NOERROR) @GOTO MTA6: !.IF (NOERROR) .GOTO MTA6:
! ***** MESSAGE: ERROR in MTA0 ON 'RUN MTASKF'
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA5:
*TEST MTA0
*SEND ERROR MTA0 ON 'RUN MTASKF'
*EXIT
@GOTO MTA7: !.GOTO MTA7:
MTA6::
*00003
@IF (NOERROR) @GOTO MTA7: !.IF (NOERROR) .GOTO MTA7:
! ***** message: ERROR in MTA0 MTASKF.EXE
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA6:
*TEST MTA0
*SEND ERROR in MTA0 MTASKF.EXE
*EXIT
MTA7::
@RUN UTP:MTASKR.EXE !.RUN UTP:MTASKR.EXE
@IF (NOERROR) @GOTO MTA8: !.IF (NOERROR) .GOTO MTA8:
! ***** MESSAGE: ERROR in MTA0 ON 'RUN MTASKR'
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA7:
*TEST MTA0
*SEND ERROR in MTA0 ON 'RUN MTASKR'
*EXIT
@GOTO MTA9: !.GOTO MTA9:
MTA8::
*00003
@IF (NOERROR) @GOTO MTA9: !.IF (NOERROR) .GOTO MTA9:
! ***** message: ERROR in MTA0 MTASKR.EXE
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA8:
*TEST MTA0
*SEND ERROR in MTA0 MTASKR.EXE
*EXIT
MTA9::
@RUN UTP:MTABAK.EXE !.RUN UTP:MTABAK.EXE
@IF (NOERROR) @GOTO MTA10: !.IF (NOERROR) .GOTO MTA10:
! ***** MESSAGE: ERROR in MTA0 ON 'RUN MTABAK'
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA9:
*TEST MTA0
*SEND ERROR in MTA0 ON 'RUN MTABAK'
*EXIT
@GOTO ENDERR: !.GOTO ENDERR:
MTA10::
*3
@IF (NOERROR) GOTO MTA11: !.IF (NOERROR) GOTO MTA11:
! ***** message: ERROR in MTA0 MTAbak.EXE
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA10:
*TEST MTA0
*SEND ERROR in MTA0 MTABAK.EXE
*EXIT
@GOTO MTA11: !.GOTO MTA11:
MTA11::
! ***** MESSAGE: RUNNING TAPWRT AT 1600 BPI
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE MINOR
*BLABEL MTA11:
*TEST MTA0
*SEND RUNNING TAPWRT AT 1600 BPI
*EXIT
@RUN UTP:TAPWRT !.RUN UTP:TAPWRT
*MTA0:
*1600
@IF (NOERROR) GOTO MTA12: !.IF (NOERROR) GOTO MTA12:
! ***** MESSAGE ERROR RUNNING TAPWRT
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA11:
*TEST MTA0
*SEND ERROR RUNNING TAPWRT
*EXIT
@GOTO ENDERR: !.GOTO ENDERR:
MTA12::
@RUN UTP:TAPRED.EXE !.RUN UTP:TAPRED.EXE
*MTA0:
*1600
@IF (NOERROR) GOTO END: !.IF (NOERROR) GOTO END:
! ***** MESSAGE ERROR RUNNING TAPRED
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA12:
*TEST MTA0
*SEND ERROR RUNNING TAPRED
*EXIT
@GOTO ENDERR: !.GOTO ENDERR:
%TERR::
! ***** MESSAGE: TIME-OUT ERROR MTA0
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST MTA0
*SEND TIME-OUT ERROR MTA0
*EXIT
@GOTO ENDERR: !.GOTO ENDERR:
%ERR::
! ***** MESSAGE: UNKNOWN ERROR IN MTA0
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST MTA0
*SEND UNKNOWN ERROR IN MTA0
*EXIT
@GOTO ENDERR: !.GOTO ENDERR:
ENDERR::
@INF DIS <UETP.MTA> !.none
@VDIR *.* !.none
@I LOG ALL !.none
@INF FI !.none
@INF MEM !.none
END::
%FIN::
! ***** message: END OF MTA0: TEST
@RUN UTP:SENDER !.RUN UTP:SENDER
*TYPE END
*BLABEL END:
*TEST MTA0
*SEND END OF MTA0: TEST
*EXIT