Google
 

Trailing-Edge - PDP-10 Archives - BB-5254D-BM - uetp/lib/mta5.cmp
There are 14 other files named mta5.cmp in the archive. Click here to see a list.
!TIME 0:30:0
! Template for Comprehensive tape tests
!
! Test MTA5.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 MTA5
*SEND Start of MTA5
*EXIT

@TAKE SYS.CMD	!.none
@IF (NOERROR) @GOTO BEGIN2:	!.IF (NOERROR) .GOTO BEGIN2:

@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE error
*BLABEL BEGIN1:
*TEST MTA5
*SEND ERROR on TAKE SYS.CMD
*EXIT
@GOTO ENDERR:	!.GOTO ENDERR:

begin2::

MTA::
@DEFINE MAG: MTA5:	!.none
@ASSIGN MAG:	!.ASSIGN MTA5: MAG:
@IF (NOERROR) @GOTO MTA5:	!.IF (NOERROR) .GOTO MTA5:

@MOUNT TAPE MTA5:/WRITE-ENABLED/LABEL-TYPE:UNLABELED/NOUNLOAD/REMARK:"Please mount MTA5:"	!.MOUNT MTA:MAG/WRIT:Y/REEL:MTA5/VID:"Please mount MTA5"
@IF (NOERROR) @GOTO MTA5:	!.IF (NOERROR) .GOTO MTA5:

	! ***** message: ERROR assigning MTA5
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA:
*TEST MTA5
*SEND ERROR assigning MTA5:
*EXIT
@GOTO ENDERR::	!.GOTO ENDERR::

MTA5::
@REW MAG:
@IF (NOERROR) GOTO MTA5:	!.IF (NOERROR) GOTO MTA5:

	! ***** message: device MTA5: is not online
@RUN UTP:SENDER	!.RUN UTP:SENDER
*type error
*blabel MTA5:
*test MTA5
*Send Device MTA5: is not online
*exit
@GOTO ENDERR:	!.GOTO ENDERR:

MTA5::
@copy MTA5.CMP mag:	!.COP MAG:=MTA5.CMP
@IF (NOERROR) GOTO MTA5:	!.IF (NOERROR) GOTO MTA5:

	! ***** message: device MTA5: is write-protected
@RUN UTP:SENDER	!.RUN UTP:SENDER
*type error
*blabel MTA5::
*test MTA5
*send device MTA5: is write-protected
*exit
@GOTO ENDERR:	!.GOTO ENDERR:

MTA5::
@RUN UTP:MTABKR.EXE	!.RUN UTP:MTABKR.EXE
@IF (NOERROR) @GOTO MTA5:	!.IF (NOERROR) .GOTO MTA5:

	! ***** MESSAGE: ERROR in MTA5 ON 'RUN MTABKR'

@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA5:
*TEST MTA5
*SEND ERROR in MTA5 ON 'RUN MTABKR'
*EXIT
@GOTO MTA5:	!.GOTO MTA5:

MTA5::
*00003
@IF (NOERROR) @GOTO MTA5:	!.IF (NOERROR) .GOTO MTA5:

	! ***** message: ERROR in MTA5 MTABKR.EXE
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA5:
*TEST MTA5
*SEND ERROR in MTA5 MTABKR.EXE
*EXIT

MTA5::
@RUN UTP:MTASKF.EXE	!.RUN UTP:MTASKF.EXE
@IF (NOERROR) @GOTO MTA6:	!.IF (NOERROR) .GOTO MTA6:

	! ***** MESSAGE: ERROR in MTA5 ON 'RUN MTASKF'
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA5:
*TEST MTA5
*SEND ERROR MTA5 ON 'RUN MTASKF'
*EXIT
@GOTO MTA7:	!.GOTO MTA7:

MTA6::
*00003
@IF (NOERROR) @GOTO MTA7:	!.IF (NOERROR) .GOTO MTA7:

	! ***** message: ERROR in MTA5 MTASKF.EXE
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA6:
*TEST MTA5
*SEND ERROR in MTA5 MTASKF.EXE
*EXIT

MTA7::
@RUN UTP:MTASKR.EXE	!.RUN UTP:MTASKR.EXE
@IF (NOERROR) @GOTO MTA8:	!.IF (NOERROR) .GOTO MTA8:

	! ***** MESSAGE: ERROR in MTA5 ON 'RUN MTASKR'
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA7:
*TEST MTA5
*SEND ERROR in MTA5 ON 'RUN MTASKR'
*EXIT
@GOTO MTA9:	!.GOTO MTA9:

MTA8::
*00003
@IF (NOERROR) @GOTO MTA9:	!.IF (NOERROR) .GOTO MTA9:

	! ***** message: ERROR in MTA5 MTASKR.EXE
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA8:
*TEST MTA5
*SEND ERROR in MTA5 MTASKR.EXE
*EXIT

MTA9::
@RUN UTP:MTABAK.EXE	!.RUN UTP:MTABAK.EXE
@IF (NOERROR) @GOTO MTA50:	!.IF (NOERROR) .GOTO MTA50:

	! ***** MESSAGE: ERROR in MTA5 ON 'RUN MTABAK'
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA9:
*TEST MTA5
*SEND ERROR in MTA5 ON 'RUN MTABAK'
*EXIT
@GOTO ENDERR:	!.GOTO ENDERR:

MTA50::
*3
@IF (NOERROR) GOTO MTA51:	!.IF (NOERROR) GOTO MTA51:

	! ***** message: ERROR in MTA5 MTAbak.EXE
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA50:
*TEST MTA5
*SEND ERROR in MTA5 MTABAK.EXE
*EXIT
@GOTO MTA51:	!.GOTO MTA51:

MTA51::
	! ***** MESSAGE: RUNNING TAPWRT AT 1600 BPI
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE MINOR
*BLABEL MTA51:
*TEST MTA5
*SEND RUNNING TAPWRT AT 1600 BPI
*EXIT

@RUN UTP:TAPWRT	!.RUN UTP:TAPWRT
*MTA5:
*1600
@IF (NOERROR) GOTO MTA52:	!.IF (NOERROR) GOTO MTA52:

	! ***** MESSAGE ERROR RUNNING TAPWRT
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA51:
*TEST MTA5
*SEND ERROR RUNNING TAPWRT
*EXIT
@GOTO ENDERR:	!.GOTO ENDERR:

MTA52::
@RUN UTP:TAPRED.EXE	!.RUN UTP:TAPRED.EXE
*MTA5:
*1600
@IF (NOERROR) GOTO END:	!.IF (NOERROR) GOTO END:

	! ***** MESSAGE ERROR RUNNING TAPRED
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL MTA52:
*TEST MTA5
*SEND ERROR RUNNING TAPRED
*EXIT
@GOTO ENDERR:	!.GOTO ENDERR:

%TERR::
	! ***** MESSAGE: TIME-OUT ERROR MTA5
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST MTA5
*SEND TIME-OUT ERROR MTA5
*EXIT
@GOTO ENDERR:	!.GOTO ENDERR:

%ERR::
	! ***** MESSAGE: UNKNOWN ERROR IN MTA5
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST MTA5
*SEND UNKNOWN ERROR IN MTA5
*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 MTA5: TEST
@RUN  UTP:SENDER	!.RUN  UTP:SENDER
*TYPE END
*BLABEL END:
*TEST MTA5
*SEND END OF MTA5:  TEST
*EXIT