Trailing-Edge
-
PDP-10 Archives
-
KS10_APT_INSTALL_TAPE
-
uetp/lib/mta1.ver
There are 16 other files named mta1.ver in the archive. Click here to see a list.
;<UETP.LIB>mta1.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 mta1
*SEND Start of mta1
*EXIT
@TAKE SYS.CMD
@goto begin2:
%ERR::
@RUN <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST mta1
*SEND ERROR on TAKE SYS.CMD
*EXIT
@goto ENDERR:
begin2::
MTA::
@DEFINE MAG: mta1:
@ASSIGN MAG:
@GOTO MTA1:
%ERR::
@MOUNT TAPE mta1:/WRITE-ENABLED/LABEL-TYPE:UNLABELED/NOUNLOAD/REMARK:"Please mount mta1:"
@GOTO MTA1:
%ERR::
!***** message: ERROR assigning mta1
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA:
*TEST mta1
*SEND ERROR assigning mta1:
*EXIT
@GOTO ENDERR::
MTA1::
@rew mag:
goto MTA2:
%ERR::
!***** message: device mta1: is not online
@run <uetp.lib>sender
*type error
*blabel MTA1:
*test mta1
*Send Device mta1: is not online
*exit
@goto endERR:
MTA2::
copy mta1.VER mag:
goto MTA3:
%ERR::
!***** message: device mta1: is write-protected
@run <uetp.lib>sender
*type error
*blabel MTA2::
*test mta1
*send device mta1: is write-protected (or can't COPY)
*exit
@goto endERR:
MTA3::
@RUN <uetp.lib>MTABKR.EXE
@GOTO MTA4:
%ERR::
! ***** MESSAGE: ERROR in mta1 ON 'RUN MTABKR'
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA3:
*TEST mta1
*SEND ERROR in mta1 ON 'RUN MTABKR'
*EXIT
@GOTO MTA5:
MTA4::
*00003
@GOTO MTA5:
%ERR::
!***** message: ERROR in mta1 MTABKR.EXE
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA4:
*TEST mta1
*SEND ERROR in mta1 MTABKR.EXE
*EXIT
MTA5::
@RUN <uetp.lib>MTASKF.EXE
@GOTO MTA6:
%ERR::
! ***** MESSAGE: ERROR in mta1 ON 'RUN MTASKF'
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA5:
*TEST mta1
*SEND ERROR mta1 ON 'RUN MTASKF'
*EXIT
@GOTO MTA7:
MTA6::
*00003
@GOTO MTA7:
%ERR::
!***** message: ERROR in mta1 MTASKF.EXE
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA6:
*TEST mta1
*SEND ERROR in mta1 MTASKF.EXE
*EXIT
MTA7::
@RUN <uetp.lib>MTASKR.EXE
@GOTO MTA8:
%ERR::
! ***** MESSAGE: ERROR in mta1 ON 'RUN MTASKR'
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA7:
*TEST mta1
*SEND ERROR in mta1 ON 'RUN MTASKR'
*EXIT
@GOTO MTA9:
MTA8::
*00003
@GOTO MTA9:
%ERR::
!***** message: ERROR in mta1 MTASKR.EXE
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA8:
*TEST mta1
*SEND ERROR in mta1 MTASKR.EXE
*EXIT
MTA9::
@RUN <uetp.lib>mtabak.exe
@GOTO MTA10:
%ERR::
! ***** MESSAGE: ERROR in mta1 ON 'RUN MTABAK'
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL MTA9:
*TEST mta1
*SEND ERROR in mta1 ON 'RUN MTABAK'
*EXIT
@GOTO ENDERR:
MTA10::
*3
goto MTA11:
%ERR::
!***** message: ERROR in mta1 MTAbak.EXE
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL MTA10:
*TEST mta1
*SEND ERROR in mta1 MTABAK.EXE
*EXIT
@GOTO MTA11:
MTA11::
! ***** MESSAGE: RUNNING TAPWRT AT 1600 BPI
@RUN <UETP.LIB>SENDER
*TYPE MINOR
*BLABEL MTA11:
*TEST mta1
*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 mta1
*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 mta1
*SEND ERROR RUNNING TAPRED AT 1600 BPI
*EXIT
MTA13::
! ***** MESSAGE: RUNNING TAPWRT AT 800 BPI
@RUN <UETP.LIB>SENDER
*TYPE MINOR
*BLABEL MTA13:
*TEST mta1
*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 mta1
*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 mta1
*SEND ERROR RUNNING TAPRED AT 800 BPI
*EXIT
@GOTO ENDERR:
%TERR::
! ***** MESSAGE: TIME-OUT ERROR mta1
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST mta1
*SEND TIME-OUT ERROR mta1
*EXIT
@GOTO ENDERR:
%ERR::
! ***** MESSAGE: UNKNOWN ERROR IN mta1
@RUN <UETP.LIB>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST mta1
*SEND UNKNOWN ERROR IN mta1
*EXIT
@GOTO ENDERR:
ENDERR::
@VDIR *.*
@I LOG ALL
@INF FI
@INF MEM
END::
%FIN::
!***** message: END OF mta1: TEST
@RUN <uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST mta1
*SEND END OF mta1: TEST
*EXIT