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

;[OPERAT.CTL]
;
; 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	CNFORN.MAC	CNFTAB.MAC	CNFHDW.MAC
;		LCPTAB.MAC	LCPORN.MAC	QUOPRM.MAC	QUOTAB.MAC
;
; Input:	ACTSYM.UNV	GLXLIB.REL	GLXMAC.UN	QSRMAC.UNV
;		UUOSYM.UNV	NCPTAB.REL
;
; Output:	OPR.EXE   	OPRPAR.REL	ORION.EXE	ORNMAC.UNV

BEGIN::

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

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

.COMPILE/COMPILE /DLIST ASL:ORNMAC.MAC

OMAC1::
.CHKPNT OMAC1

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

OPR0::
.ERROR

.COMPILE/COMPILE ASL:OPR.MAC

OPR1::
.CHKPNT OPR1

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

OCMD0::
.ERROR

.COMPILE/COMPILE ASL:OPRCMD.MAC

OCMD1::
.CHKPNT OCMD1

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

OERR0::
.ERROR

.COMPILE/COMPILE ASL:OPRERR.MAC

OERR1::
.CHKPNT OERR1

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

OLOG0::
.ERROR

.COMPILE/COMPILE ASL:OPRLOG.MAC

OLOG1::
.CHKPNT OLOG1

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

ONET0::
.ERROR

.COMPILE/COMPILE ASL:OPRNET.MAC

ONET1::
.CHKPNT ONET1

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

OPAR0::
.ERROR

.COMPILE/COMPILE ASL:OPRPAR.MAC

OPAR1::
.CHKPNT OPAR1

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

OQSR0::
.ERROR

.COMPILE/COMPILE ASL:OPRQSR.MAC

OQSR1::
.CHKPNT OQSR1

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

ORN0::
.ERROR

.COMPILE/COMPILE ASL:ORION.MAC

ORN1::
.CHKPNT ORN1

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

CNF0::
.ERROR

.COMPILE/COMPILE ASL:CNFORN.MAC

CNF1::
.CHKPNT CNF1

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

CTB0::
.ERROR

.COMPILE/COMPILE ASL:CNFTAB.MAC
.COMPILE/COMPILE ASL:CNFHDW.MAC
.COMPILE/COMPILE ASL:LCPORN.MAC
.COMPILE/COMPILE ASL:LCPTAB.MAC
.COMPILE/COMPILE ASL:QUOPRM.MAC
.COMPILE/COMPILE ASL:QUOTAB.MAC

CTB1::
.CHKPNT CTB1

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

OLNK0::
.ERROR

.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

.ERROR %
;CHECK TO SEE IF WE CAN MAKE A BLISSABLE ORNMAC
.DIR ASL:MONINT.EXE
.IF (ERROR)  .GOTO NEXT
.DIR ASL:BLISS.EXE
.IF (ERROR)  .GOTO NEXT

.R MONINT
*ORNMAC

.R BLISS
*ORNMAC=ORNMAC/LIBRARY

NEXT::
.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 GAL704 = /MODIFY /DEPEND:-1
;
%FIN::
;[End of OPERAT.CTL]