Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;
;		       COPYRIGHT (C) 1984, 1985 BY
;	    DIGITAL EQUIPMENT CORPORATION, MAYNARD, MA.
;
;   THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE  USED
;   AND  COPIED  ONLY  IN  ACCORDANCE  WITH  THE  TERMS OF SUCH
;   LICENSE AND WITH  THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT
;   NOTICE.   THIS SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT
;   BE PROVIDED  OR  OTHERWISE	MADE  AVAILABLE  TO  ANY  OTHER
;   PERSON.   NO  TITLE  TO  AND  OWNERSHIP  OF THE SOFTWARE IS
;   HEREBY TRANSFERRED.
;
;   THE INFORMATION IN	THIS  SOFTWARE	IS  SUBJECT  TO  CHANGE
;   WITHOUT  NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
;   BY DIGITAL EQUIPMENT CORPORATION.
;
;   DIGITAL  ASSUMES  NO  RESPONSIBILITY   FOR	 THE   USE   OR
;   RELIABILITY  OF  ITS  SOFTWARE  ON	EQUIPMENT  WHICH IS NOT
;   SUPPLIED BY DIGITAL.
;
;[OPERAT.CTL]
;
; Modified for GALAXY-10 AUTOPATCH by Carl T. Kunkel/20-May-83
;
; This control file will build the GALAXY operator controller for a
; DECsystem-10. THE following files are required for a TOPS-10 OPR/ORION.
;
; Sources:	OPR.MAC   	OPRCMD.MAC	OPRERR.MAC	OPRLOG.MAC
;		OPRNET.MAC	OPRPAR.MAC	OPRQSR.MAC	ORNMAC.MAC
;		ORION.MAC
;
; Input:	ACTSYM.UNV	GLXLIB.REL	GLXMAC.UN	QSRMAC.UNV
;		UUOSYM.UNV
;
; Output:	OPR.EXE   	OPRPAR.REL	ORION.EXE	ORNMAC.UNV

BEGIN::

.R PEPB				;Initialize AUTOPATCH
*INITIALIZE GALAXY-10-V702
*EX

.PATH ASL:/SEARCH

.COMPILE/COMPILE ASL:ORNMAC.MAC

OMAC1::
.CHKPNT OMAC1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO OPR0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

OPR0::

.COMPILE/COMPILE ASL:OPR.MAC

OPR1::
.CHKPNT OPR1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO OCMD0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

OCMD0::

.COMPILE/COMPILE ASL:OPRCMD.MAC

OCMD1::
.CHKPNT OCMD1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO OERR0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

OERR0::

.COMPILE/COMPILE ASL:OPRERR.MAC

OERR1::
.CHKPNT OERR1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO OLOG0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

OLOG0::

.COMPILE/COMPILE ASL:OPRLOG.MAC

OLOG1::
.CHKPNT OLOG1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO ONET0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

ONET0::

.COMPILE/COMPILE ASL:OPRNET.MAC

ONET1::
.CHKPNT ONET1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO OPAR0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

OPAR0::

.COMPILE/COMPILE ASL:OPRPAR.MAC

OPAR1::
.CHKPNT OPAR1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO OQSR0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

OQSR0::

.COMPILE/COMPILE ASL:OPRQSR.MAC

OQSR1::
.CHKPNT OQSR1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO ORN0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

ORN0::

.COMPILE/COMPILE ASL:ORION.MAC

ORN1::
.CHKPNT ORN1

.ERROR %			;Trap USER errors
.PATH ASL:			;Path defined, PEPB initialized ?
.IF (NOERROR) .GOTO OLNK0	;If NOERROR skip AUTOPATCH initialization
.R PEPB
*INITIALIZE GALAXY-10-V702
*EX
.
.PATH ASL:/SEARCH

OLNK0::

.RUN LINK
*PAT:OPR/SAVE = /LOCALS /SYMSEG:LOW /SEGMENT:LOW -
*ASL:OPR, ASL:OPRPAR, ASL:OPRCMD /GO

.RUN LINK
*PAT:ORION/SAVE = /LOCALS /SYMSEG:LOW /SEGMENT:LOW -
*ASL:ORION, ASL:OPRQSR, ASL:OPRPAR, ASL:OPRLOG, ASL:OPRNET, ASL:OPRERR /GO

.PLEASE	AUTOPATCH OPERAT Assembly Successful
.GOTO END

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