PDP-10 Archive: uetp/lib/mta7.ver from red405a2

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/mta7.ver
There are 16 other files named mta7.ver in the archive. Click here to see a list.
;<UETP.LIB>mta7.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 mta7
*SEND Start of mta7
*EXIT

@TAKE SYS.CMD
@goto begin2:

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

begin2::

MTA::
@DEFINE MAG: mta7:
@ASSIGN MAG:
@GOTO MTA1:

%ERR::
@MOUNT TAPE mta7:/WRITE-ENABLED/LABEL-TYPE:UNLABELED/NOUNLOAD/REMARK:"Please mount mta7:"
@GOTO MTA1:

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

MTA1::
@rew mag:
goto MTA2:

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

MTA2::
copy mta7.VER mag:
goto MTA3:

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

MTA3::
@RUN <uetp.lib>MTABKR.EXE
@GOTO MTA4:

%ERR::
	! ***** MESSAGE: ERROR in mta7 ON 'RUN MTABKR'

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

MTA4::
*00003
@GOTO MTA5:

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

MTA5::
@RUN <uetp.lib>MTASKF.EXE
@GOTO MTA6:

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

MTA6::
*00003
@GOTO MTA7:

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

MTA7::
@RUN <uetp.lib>MTASKR.EXE
@GOTO MTA8:

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

MTA8::
*00003
@GOTO MTA9:

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

MTA9::
@RUN <uetp.lib>mtabak.exe
@GOTO MTA10:

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

MTA10::
*3
goto MTA11:

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

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

@RUN <UETP.LIB>TAPWRT
*MAG:
*1600
GOTO MTA12:

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

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

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

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

@RUN <UETP.LIB>TAPWRT
*MAG:
*800
GOTO MTA14:

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

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

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

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

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

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

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