Trailing-Edge
-
PDP-10 Archives
-
tops10_703a_sys_atpch16_bb-fr67f-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
*INIT GALAXY-10-V703
*EX
.PATH REL:=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
*INIT GALAXY-10-V703
*EX
.
.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
*INIT GALAXY-10-V703
*EX
.
.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
*INIT GALAXY-10-V703
*EX
.
.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]