Google
 

Trailing-Edge - PDP-10 Archives - BB-4171H-BM - uetp/lib/mta1.ver
There are 16 other files named mta1.ver in the archive. Click here to see a list.
!
!
! Test MTA1.VER
!
!
!.R SETSRC
*CP [5,33,MTA]
*LIB:[5,33]
*

!.Set default prot <000>

@DEFINE UTP: <UETP.LIB>		!.none


!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
!		MAGTAPE FORTRAN SKIP RECORD TEST. WRITES SOME RUNTIME
!		PARAMETERS WORTH OF FILES ON MAGTAPE, REWINDS THE TAPE
!		AND SKIPS THROUGH THE FILE READING IT SEQUENTIALLY BY
!		REWINDING THE TAPE FOLLOWING EACH RECORD READ.  THE SIZE OF
!		THE FILES ARE DETERMINED BY THE PARAMETER
!		FILE SPECIFYING A TWO DIMENSIONAL ARRAY
!
!	MTASKF.EXE
!		FORTRAN MAGTAPE SKIP FILE TEST.  ALSO WRITES A
!		SERIES OF FILES ON TAPE EACH SOME TWO DIMENSIONAL ARRAY
!		THE TAPE IS WRITTEN AND REWOUND, THE TAPE IS READ
!		BACKWARDS SKIPPING FILES AS APPROPRIATE.  THE INPUT DATA CHECKED
!		AGAINST EXPECTED DATA AND ERRORS LOGGED IN THE FILE
!		MTA.ERR
!
!	MtaBAK.exe
!		USES THE SAME SORT OF TECHNIQUE AS M0SSKF. THE MAGTAPE
!		IS THEN POSITIONED AT THE BEGINNING OF THE LAST FILE WRITTEN
!		THE FORTRAN PROGRAM WILL READ THROUGH THE TAPE BACKWARDS
!		A FILE AT A TIME, THE FILES THEMSELVES READ FORWARD.

!
!	MtaBKR.exe
!		FORTRAN PROGRAM THAT TESTS MAGTAPE BACKSPACE RECORD
!		FEATURES. TWO TESTS ARE DONE ONE BACKSPACING THROUGH
!		THE FILE AND THE OTHERDOING SOME MULTIPLE BACKSPACES.
!		ERRORS ARE LOGGED IN FILE MTA.ERR,  CHECKING INVOLVES
!		READING IN THE DATA AND CHECKING EACH ITEM AGAINST E
!		EXPECTED DATA.
!
@DEF DSK: <UETP.MTA>,DSK:<UETP.LIB>	!.none
@TAKE SYS.CMD	!.none

START::
		! ***** message: Start of magtape test for MTA1
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE START
*BLABEL START:
*TEST MTA1
*SEND Start of magtape test for MTA1
*EXIT


@DEFINE MAG: MTA1:	!.none

! THE FORTRAN PROGRAMS USE MAG: AS THE I/O DEVICE

@ASSIGN MAG:	!.ASSIGN MTA1: MAG:

@IF (NOERROR) @GOTO FX1::	!.IF (NOERROR) .GOTO FX1::

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

		! ***** message: ERRORS assigning MTA1
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL BEGIN:
*TEST MTA1
*SEND ERRORS assigning MTA1
*EXIT

@GOTO END::	!.GOTO END::

FX1::

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

		! ***** message: device MTA1 is not online
@RUN UTP:SENDER	!.RUN UTP:SENDER
*type error
*blabel fx1::
*test MTA1
*send device MTA1 is not online
*exit

@GOTO END::	!.GOTO END::

fix2::

@copy MTA1.VER mag:	!.COPY MAG:=MTA1.VER
@IF (NOERROR) GOTO FIX3:	!.IF (NOERROR) GOTO FIX3:

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

@GOTO END::	!.GOTO END::

fix3::
@RUN UTP:MTABKR.EXE	!.RUN UTP:MTABKR.EXE
*00003
@IF (NOERROR) @GOTO ENDBKR::	!.IF (NOERROR) .GOTO ENDBKR::

		! ***** message: ERRORS in magtape test MTABKR.EXE
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL ENDBKR::
*TEST MTA1
*SEND ERRORS in magtape test MTABKR.EXE
*EXIT



ENDBKR::

!!END OF MAGTAPE BACKSPACE RECORD TEST.
@RUN UTP:MTASKF.EXE	!.RUN UTP:MTASKF.EXE
*00003
@IF (NOERROR) @GOTO ENDSKF::	!.IF (NOERROR) .GOTO ENDSKF::

		! ***** message: ERRORS in magtape test MTASKF.EXE
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL ENDSKF::
*TEST MTA1
*SEND ERRORS in magtape test MTASKF.EXE
*EXIT



ENDSKF::
!!END OF MAGTAPE SKIP FILE TEST.
@RUN UTP:MTASKR.EXE	!.RUN UTP:MTASKR.EXE
*00003
@IF (NOERROR) @GOTO ENDSKR::	!.IF (NOERROR) .GOTO ENDSKR::

		! ***** message: ERRORS in magtape test MTASKR.EXE
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL ENDSKR::
*TEST MTA1
*SEND ERRORS in magtape test MTASKR.EXE
*EXIT

!!END OF MAGTAPE SKIP RECORD TEST.

ENDSKR::
@GOTO END::	!.GOTO END::
!
!
!
%ERR::

		! ***** message: unknown ERROR in magtape test MTA1
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE ERROR
*BLABEL END::
*TEST MTA1
*SEND unknown ERROR in magtape test MTA1
*EXIT

@GOTO END::	!.GOTO END::

END::
%FIN:
@CHKPNT ADSF::	!.CHKPNT ADSF::

		! ***** message: End of magtape test MTA1
@RUN UTP:SENDER	!.RUN UTP:SENDER
*TYPE END
*BLABEL END::
*TEST MTA1
*SEND End of magtape test MTA1
*EXIT