Google
 

Trailing-Edge - PDP-10 Archives - de-10-omona-v-mc9 - login.ctl
There are 2 other files named login.ctl in the archive. Click here to see a list.
;
;V60A(654) TO MAKE LOGIN.EXE FROM LOGIN.MAC  21 SEP 78
;SUBMIT WITH COMMAND .SUBMIT LOGIN/RESTART:1
;
START::	;
.CHKPNT START
;
;REMOVE UNNECESSARY FILES LEFT FROM PREVIOUS RUNS OF THIS .CTL FILE.
.DELETE LOGIN.UNV,LOGIN.REL,FACTOR.REL,LOGIN.EXE
;
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;DEC:	PIP.EXE
;	DIRECT.EXE
;	COMPILE.EXE
;	MACRO.EXE
;	LNK???.EXE
;	LINK.EXE
;	UUOSYM.UNV
;	MACTEN.UNV
;	SCNMAC.UNV
;	SCAN.REL
;	WILD.REL
;	HELPER.REL
;	CREF.EXE
;
;SELF:	LOGIN.MAC
;	FACTOR.MAC
;
;OUTPUT FILE:
;	LOGIN.EXE
;
;OUTPUT LISTINGS:
;	LOGIN.MAP
;	LOGIN.LST
;	LOGIN.LOG
;	FACTOR.LST
;
;FILES TO BE SHIPPED:
;	LOGIN.CTL
;	LOGIN.EXE
;	LOGIN.HLP
;	LOGIN.MAC
;	LGN???.DOC
;	FACTOR.MAC
;
;
;MAKE A DIRECTORY OF REQUIRED FILES (LATEST RELEASED VERSIONS).
.R DIRECT
*TTY:/CHECKSUM=DEC:PIP.EXE,DIRECT.EXE,COMPIL.EXE,MACRO.EXE,LNK???.EXE
*TTY:/CHECKSUM=DEC:SCNMAC.UNV,MACTEN.UNV,UUOSYM.UNV
*TTY:/CHECKSUM=DEC:LINK.EXE,HELPER.REL,WILD.REL,SCAN.REL,CREF.EXE
;
;
COMPL::	;
.CHKPNT COMPL
;
;
;GET FIELD IMAGE SOFTWARE.
.ASSIGN DEC SYS
.ASSIGN DEC REL
.ASSIGN DEC UNV
;
;MAKE A RECORD OF WHAT IS BEING USED.
.SET WATCH VERSION
.IF (ERROR)  ;OKAY, WE MUST BE ON A KA10.
;
;
.ERROR %	;FLAG "% ERRORS"
;COMPILE, LOAD, AND SAVE; PRODUCING CREF FILE.
.R MACRO
*FACTOR,FACTOR/C=FACTOR
*LOGIN,LOGIN/C=LOGIN
.IF (ERROR)  .GOTO ERROR:
;
.R LINK
*LOGIN/MAP=LOGIN,FACTOR.REL/GO
.IF (ERROR)  .GOTO ERROR:
.SSAVE DSK:LOGIN
.VERSION
.IF (ERROR)  .E 137
.ERROR
;
;TRY IT JUST TO MAKE SURE IT WORKS.
.RUN DSK:LOGIN
.IF (ERROR)
.R DIRECT
*TTY:/CHECKSUM=DSK:LOGIN.EXE
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR.
.ASSIGN DSK:LPT		;PUT ".LST" FILE ON DISK.
.R CREF
*FACTOR
*LOGIN
.PLEASE  LOGIN SUCCESSFUL.	;NOTIFY THE OPERATOR.
.DEASSIGN	;DEASSIGN ALL LOGICAL NAMES.
;
;REMOVE TEMPORARY FILES.
.DELETE FACTOR.REL,LOGIN.REL
.KJOB/F/Z:0
;
;
;IF THIS JOB FAILED, MAKE A ".ERR" FILE ON THE DISK TO LET YOU
;  KNOW THAT IT FAILED.
ERROR::
%ERR::
%FIN::
;
.R TECO
*EWLOGIN.ERREX
.PLEASE  LOGIN FAILED.	;NOTIFY THE OPERATOR.
;END FILE [LOGIN.CTL]