Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99l-bb - mount.ctl
There are 8 other files named mount.ctl in the archive. Click here to see a list.
;[MOUNT.CTL]
;
; This control file will build the GALAXY user mount interface for a
; DECsystem-10.
;
; Sources:	MNTMAC.MAC	MNTPAR.MAC	MOUNT.MAC
;
; Input:	GLXLIB.REL	GLXMAC.UNV	OPRPAR.REL	ORNMAC.UNV
;		QSRMAC.UNV	UUOSYM.UNV
;
; Output:	MNTMAC.UNV	MNTPAR.REL	MOUNT.EXE

BEGIN::

.R PEPB				;Initialize AUTOPATCH
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX

.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

.COMPILE/COMPILE ASL:MNTMAC.MAC

MMAC1::
.CHKPNT MMAC1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, is PEPB initialized
.IF (NOERROR) .GOTO MPAR0	;If NOERROR skip AUTOPATCH initialization
.ERROR
.R PEPB
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX
.
.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

MPAR0::
.ERROR

.COMPILE/COMPILE ASL:MNTPAR.MAC

MPAR1::
.CHKPNT MPAR1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, is PEPB initialized
.IF (NOERROR) .GOTO MNT0	;If NOERROR skip AUTOPATCH initialization
.ERROR
.R PEPB
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX
.
.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

MNT0::
.ERROR

.COMPILE/COMPILE ASL:MOUNT.MAC

MNT1::
.CHKPNT MNT1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, is PEPB initialized
.IF (NOERROR) .GOTO MLNK0	;If NOERROR skip AUTOPATCH initialization
.ERROR
.R PEPB
*DEFINE-LOGICAL-NAMES GALAXY-10-V703
*EX
.
.PATH REL:=ASL:
.PATH UNV:=ASL:
.PATH ASL:/SEARCH

MLNK0::
.ERROR

.RUN LINK
*PAT:MOUNT/SSAVE = /LOCALS /SYMSEG:HIGH -
*ASL:GLXLIB/EXCLUDE:GLXINI, ASL:MOUNT, ASL:MNTPAR, ASL:OPRPAR -
*/GO

.PLEASE	AUTOPATCH MOUNT Assembly Successful
.GOTO END

%CERR:: .GOTO ERROR
%ERR::  .GOTO ERROR
%TERR:: .GOTO ERROR

ERROR:: .PLEASE Error during AUTOPATCH MOUNT assembly
;
.COPY FAILUR.GAL=TTY:		;Set ERROR flag file on.
*MOUNT
=^Z
;
END::
;
.SUBMIT GAL703 = /MODIFY /DEPEND:-1
;
%FIN::
;[End of MOUNT.CTL]