PDP-10 Archive: uetp/lib/mta-template.txt from KS10_APT_INSTALL

Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - uetp/lib/mta-template.txt
There is 1 other file named mta-template.txt in the archive. Click here to see a list.
;<UETP.LIB>xxx.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 xxx
*SEND Start of xxx
*EXIT

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

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

begin2::

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

MTA11::
	! ***** MESSAGE: RUNNING TAPWRT AT 1600 BPI
@RUN <UETP.LIB>SENDER
*TYPE MINOR
*BLABEL MTA11:
*TEST xxx
*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 xxx
*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 xxx
*SEND ERROR RUNNING TAPRED AT 1600 BPI
*EXIT

MTA13::
	! ***** MESSAGE: RUNNING TAPWRT AT 800 BPI
@RUN <UETP.LIB>SENDER
*TYPE MINOR
*BLABEL MTA13:
*TEST xxx
*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 xxx
*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 xxx
*SEND ERROR RUNNING TAPRED AT 800 BPI
*EXIT
@GOTO ENDERR:

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

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

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

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