Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/mta0.ver
There are 16 other files named mta0.ver in the archive. Click here to see a list.
;<UETP.LIB>mta0.VER.1, 10-May-79 11:52:12, EDIT BY EIBEN
!FILES NEEDED:
!	MTASKR.EXE
!	MTASKF.EXE
!	MTABAK.EXE
!	MTABKR.EXE
!	TAPWRT.EXE
!	TAPRED.EXE
!
@DEF DSK: <UETP.MTA>,DSK:<UETP.LIB>
@DEF OUT: PS:<UETP.MTA>
@TAKE SYS.CMD

@RUN <UETP.LIB>SENDER
*TYPE START
*BLABEL BEGIN:
*TEST mta0
*SEND Start of mta0
*EXIT

@TAKE SYS.CMD
@if (noerror) @goto begin2:

@RUN  <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST mta0
*SEND ERROR on TAKE SYS.CMD
*EXIT
@goto ENDERR:

begin2::

MTA::
@DEFINE MAG: mta0:
@ASSIGN MAG:
@IF (NOERROR) @GOTO MTA1:

@MOUNT TAPE mta0:/WRITE-ENABLED/LABEL-TYPE:UNLABELED/NOUNLOAD/REMARK:"Please mount mta0:"
@IF (NOERROR) @GOTO MTA1:

	!***** message: ERROR assigning mta0
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA:
*TEST mta0
*SEND ERROR assigning mta0:
*EXIT
@GOTO ENDERR::

MTA1::
@rew mag:
@if (noerror) goto MTA2:

	!***** message: device mta0: is not online
@run <uetp.lib>sender
*type error
*blabel MTA1:
*test mta0
*Send Device mta0: is not online
*exit
@goto endERR:

MTA2::
copy mta0.VER mag:
@if (noerror) goto MTA3:

	!***** message: device mta0: is write-protected
@run <uetp.lib>sender
*type error
*blabel MTA2::
*test mta0
*send device mta0: is write-protected (or can't COPY)
*exit
@goto endERR:

MTA3::
@RUN <uetp.lib>MTABKR.EXE
@IF (NOERROR) @GOTO MTA4:

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

@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA3:
*TEST mta0
*SEND ERROR in mta0 ON 'RUN MTABKR'
*EXIT
@GOTO MTA5:

MTA4::
*00003
@IF (NOERROR) @GOTO MTA5:

	!***** message: ERROR in mta0 MTABKR.EXE
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA4:
*TEST mta0
*SEND ERROR in mta0 MTABKR.EXE
*EXIT

MTA5::
@RUN <uetp.lib>MTASKF.EXE
@IF (NOERROR) @GOTO MTA6:

	! ***** MESSAGE: ERROR in mta0 ON 'RUN MTASKF'
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA5:
*TEST mta0
*SEND ERROR mta0 ON 'RUN MTASKF'
*EXIT
@GOTO MTA7:

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

	!***** message: ERROR in mta0 MTASKF.EXE
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA6:
*TEST mta0
*SEND ERROR in mta0 MTASKF.EXE
*EXIT

MTA7::
@RUN <uetp.lib>MTASKR.EXE
@IF (NOERROR) @GOTO MTA8:

	! ***** MESSAGE: ERROR in mta0 ON 'RUN MTASKR'
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA7:
*TEST mta0
*SEND ERROR in mta0 ON 'RUN MTASKR'
*EXIT
@GOTO MTA9:

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

	!***** message: ERROR in mta0 MTASKR.EXE
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA8:
*TEST mta0
*SEND ERROR in mta0 MTASKR.EXE
*EXIT

MTA9::
@RUN <uetp.lib>mtabak.exe
@IF (NOERROR) @GOTO MTA10:

	! ***** MESSAGE: ERROR in mta0 ON 'RUN MTABAK'
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA9:
*TEST mta0
*SEND ERROR in mta0 ON 'RUN MTABAK'
*EXIT
@GOTO ENDERR:

MTA10::
*3
@if (NOERROR) goto MTA11:

	!***** message: ERROR in mta0 MTAbak.EXE
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA10:
*TEST mta0
*SEND ERROR in mta0 MTABAK.EXE
*EXIT
@GOTO MTA11:

MTA11::
	! ***** MESSAGE: RUNNING TAPWRT AT 1600 BPI
@RUN <UETP.LIB>SENDER
*TYPE MINOR
*BLABEL MTA11:
*TEST mta0
*SEND RUNNING TAPWRT at 1600 BPI
*EXIT

@RUN <UETP.LIB>TAPWRT
*MAG:
*1600
@IF (NOERROR) GOTO MTA12:

	! ***** MESSAGE ERROR RUNNING TAPWRT
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA11:
*TEST mta0
*SEND ERROR RUNNING TAPWRT AT 1600 BPI
*EXIT
@goto MTA13:

MTA12::
@RUN <UETP.LIB>TAPRED.EXE
*MAG:
*1600
@IF (NOERROR) GOTO mta13:

	! ***** MESSAGE ERROR RUNNING TAPRED
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA12:
*TEST mta0
*SEND ERROR RUNNING TAPRED AT 1600 BPI
*EXIT

MTA13::
	! ***** MESSAGE: RUNNING TAPWRT AT 800 BPI
@RUN <UETP.LIB>SENDER
*TYPE MINOR
*BLABEL MTA13:
*TEST mta0
*SEND RUNNING TAPWRT AT 800 BPI
*EXIT

@RUN <UETP.LIB>TAPWRT
*MAG:
*800
@IF (NOERROR) GOTO MTA14:

	! ***** MESSAGE ERROR RUNNING TAPWRT
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA13:
*TEST mta0
*SEND ERROR RUNNING TAPWRT AT 800 BPI
*EXIT
@GOTO ENDERR:

MTA14::
@RUN <UETP.LIB>TAPRED.EXE
*MAG:
*800
@IF (NOERROR) GOTO END:

	! ***** MESSAGE ERROR RUNNING TAPRED
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA14:
*TEST mta0
*SEND ERROR RUNNING TAPRED AT 800 BPI
*EXIT
@GOTO ENDERR:

%TERR::
	! ***** MESSAGE: TIME-OUT ERROR mta0
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST mta0
*SEND TIME-OUT ERROR mta0
*EXIT
@GOTO ENDERR:

%ERR::
	! ***** MESSAGE: UNKNOWN ERROR IN mta0
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST mta0
*SEND UNKNOWN ERROR IN mta0
*EXIT
@GOTO ENDERR:

ENDERR::
@VDIR *.*
@I LOG ALL
@INF FI
@INF MEM

END::
%FIN::
	!***** message: END OF mta0: TEST
@RUN  <uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST mta0
*SEND END OF mta0:  TEST
*EXIT