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.
;
;[QUEUE.CTL]
;
; Modified for GALAXY-10 AUTOPATCH by Carl T. Kunkel/20-May-83
;
; This control file will build the GALAXY user queue-class command
; interface and the MPB/GALAXY interface for a DECsystem-10. The 
; following are required for a TOPS-10 QMANGR/QUEUE.
;
; Sources:	QMANGR.MAC	QUENCH.MAC
;
; Input:	GLXMAC.UNV	HELPER.REL	ORNMAC.UNV	QSRMAC.UNV
;		SCAN.REL	SCNMAC.UNV	WILD.REL	UUOSYM.UNV
;
; Output:	QMANGR.EXE	QUEUE.EXE

BEGIN::

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

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

.COMPILE/COMPILE ASL:QMANGR.MAC

QMGR1::
.CHKPNT QMGR1

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

QNCH0::

.COMPILE/COMPILE ASL:QUENCH.MAC

QNCH1::
.CHKPNT QNCH1

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

QLNK0::

.RUN LINK
*PAT:QMANGR/SSAVE = /LOCALS /SYMSEG:HIGH ASL:QMANGR /GO

.RUN LINK
*PAT:QUEUE/SSAVE = /LOCALS /SYMSEG:HIGH ASL:QMANGR, ASL:QUENCH /GO

.PLEASE	AUTOPATCH QUEUE Assembly Successful
.GOTO END

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

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