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

;
;   GALV42.CTL -- Patch and rebuild GALAXY-20-V4-2
;   Version 1(2)
;	June 9, 1983  / JW
;	December 29, 1983	/ JR
;	May 4, 1988 / HAH Add branch for no update - requires
;			  PEP 1B(173)
;
;
; COPYRIGHT (c) 1983, 1988 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.
;
;   This .CTL file applies the  patches  to  the  libraries  of
;   GALAXY-20-V4-2 and rebuilds all of the components.
;
;   For this .CTL file to run, the connected directory must  be
;   the patching directory (Logical name ).
;
;   This control file is expected to run without errors.
;
@PEPB
*INITIALIZE GALAXY-20-V4-2
*EXIT


;	Delete any GALAXY source files left in PAT:
;

@DELETE PAT:GLX*.MAC,PAT:QUASAR.MAC,PAT:QSR*.MAC,PAT:MOUNTR.MAC
@DELETE PAT:ORION.MAC,PAT:ORNMAC.MAC,PAT:OPR*.MAC,PAT:BATMAC.MAC
@DELETE PAT:BATCON.MAC,PAT:BATLOG.MAC,PAT:LPTSPL.MAC,PAT:CDRIVE.MAC
@DELETE PAT:SPROUT.MAC,PAT:SPRINT.MAC,PAT:PLEASE.MAC,PAT:QMANGR.MAC

;
;	Apply patches to the library files
;
UPDATE::
@ERROR %
@VDIR PAT:GALV42.SUP
@IF (ERROR) @GOTO NOUPD
@R ASL:UPDATE
*@PAT:GALV42.SUP
NOUPD::
@ERROR
@EXPUNGE PAT: 

@DEFINE SYS: ASL:
@DEFINE REL: ASL:
@DEFINE UNV: ASL:
@DEFINE DSK: ASL:

;
;	Create GALAXY configuration universal
;

@RUN MACRO
*GALCNF=GALCNF.MAC

;
;	Build the linkable GALAXY library
;

@COPY TTY: GLXPUR.MAC
@GLXPURE==0
@

@RUN MACRO
*GLXMAC=GLXPUR.MAC,GLXVER.MAC,GLXMAC.MAC
*ORNMAC=ORNMAC.MAC
*GLXINI=GLXINI.MAC
*GLXOTS=GLXOTS.MAC
*GLXCOM=GLXCOM.MAC
*GLXIPC=GLXIPC.MAC
*GLXFIL=GLXFIL.MAC
*GLXTXT=GLXTXT.MAC
*GLXLNK=GLXLNK.MAC
*GLXSCN=GLXSCN.MAC
*GLXKBD=GLXKBD.MAC
*GLXMEM=GLXMEM.MAC
*GLXINT=GLXINT.MAC
@
;
;      Order of GLXINI and GLXINT has been changed, with
;      GLXINI now coming before GLXINT
;
@COPY  GLXINI.REL GLXLIB.REL
@APPEND GLXMAC.REL,GLXOTS.REL GLXLIB.REL
@APPEND GLXCOM.REL,GLXIPC.REL,GLXFIL.REL GLXLIB.REL
@APPEND GLXTXT.REL,GLXLNK.REL,GLXSCN.REL GLXLIB.REL
@APPEND GLXKBD.REL,GLXMEM.REL,GLXINT.REL GLXLIB.REL
;
;	Build the object time system GLXLIB
;
@COPY TTY: GLXPUR.MAC
@GLXPURE==-1
@

@RUN MACRO
*GLXMAC=GLXPUR.MAC,GLXVER.MAC,GLXMAC.MAC
*GLXINI=GLXINI.MAC
*GLXOTS=GLXOTS.MAC
*GLXCOM=GLXCOM.MAC
*GLXIPC=GLXIPC.MAC
*GLXFIL=GLXFIL.MAC
*GLXTXT=GLXTXT.MAC
*GLXLNK=GLXLNK.MAC
*GLXSCN=GLXSCN.MAC
*GLXKBD=GLXKBD.MAC
*GLXMEM=GLXMEM.MAC
*GLXINT=GLXINT.MAC
@

@RUN LINK
*/SYMSEG:PSECT:.HIGH./SET:.HIGH.:400000/SET:DATA:600000/LOCALS
*GLXMAC,GLXOTS,GLXCOM,GLXIPC,GLXFIL,GLXTXT
*GLXLNK,GLXSCN,GLXKBD,GLXMEM,GLXINT
*GLXLIB.EXE/SAVE/GO
@

;
;	Assemble Universals
;

@RUN MACRO
*D60UNV=D60UNV.MAC
*QSRMAC=QSRMAC.MAC
*OPRPAR=OPRPAR.MAC
*NURD=NURD.MAC
*D60JSY=D60JSY.MAC
@

;
;	Build QUASAR
;

@RUN MACRO
*QUASAR=QUASAR
*QSRIPC=QSRIPC.MAC
*QSRFSS=QSRFSS.MAC
*QSRADM=QSRADM.MAC
*QSRDSP=QSRDSP.MAC
*QSRMDA=QSRMDA.MAC
*QSRSCH=QSRSCH.MAC
*QSRQUE=QSRQUE.MAC
*QSRT20=QSRT20.MAC
*QSRMEM=QSRMEM.MAC
*QSRNET=QSRNET.MAC

@RUN LINK
*QUASAR,QSRIPC,QSRFSS,QSRADM,QSRDSP,QSRMDA
*QSRSCH,QSRQUE,QSRT20,QSRMEM,QSRNET/GO
@SAVE QUASAR

;
;	Build MOUNTR
;
@RUN MACRO
*MOUNTR=MOUNTR.MAC

@RUN LINK
*MOUNTR/GO
@SAVE MOUNTR

;
;	Build OPR
;

@COPY NCPTAB.REL
@RUN MACRO
*OPRPAR=OPRPAR.MAC
*OPR=OPR.MAC
*OPRCMD=OPRCMD.MAC

@RUN LINK
*/SYMSEG:LOW/SEGMENT:LOW =OPR,OPRPAR,OPRCMD/GO
@SAVE OPR

;
;	Build ORION
;

@RUN MACRO
*ORION=ORION.MAC
*OPRQSR=OPRQSR.MAC
*OPRLOG=OPRLOG.MAC
*OPRNET=OPRNET.MAC
*OPRERR=OPRERR.MAC

@RUN LINK
*/SYMSEG:LOW/SEGMENT:LOW =ORION,OPRQSR,OPRPAR,OPRLOG,OPRNET,OPRERR,ARMAIL/GO
@SAVE ORION

;
;	Build BATCON
;

@RUN MACRO
*BATMAC=BATMAC.MAC
*BATCON=BATCON.MAC
*BATLOG=BATLOG.MAC

@RUN LINK
*BATCON,BATLOG/GO
@SAVE BATCON

;
;	Build LPTSPL
;

@RUN MACRO
*LPTSPL=LPTSPL

@RUN LINK
*/LOCAL/SYMSEG:LOW =LPTSPL,D60JSY/GO
@SAVE LPTSPL

;
;	Build CDRIVE
;

@RUN MACRO
*CDRIVE=CDRIVE

@RUN LINK
*/LOCAL/SYMSEG:LOW =CDRIVE,D60JSY/GO
@SAVE CDRIVE

;
;	Build SPROUT
;

@RUN MACRO
*SPROUT=SPROUT

@RUN LINK
*SPROUT/GO
@SAVE SPROUT

;
;	Build SPRINT
;

@RUN MACRO
*SPRINT=SPRINT

@RUN LINK
*SPRINT/GO
@SAVE SPRINT

;
;	Build PLEASE
;

@RUN MACRO
*PLEASE=PLEASE

@RUN LINK
*PLEASE/SAVE = GLXLIB/EXCLUDE:GLXINI, PLEASE, OPRPAR /GO

;
;	Build QMANGR
;

@RUN MACRO
*QMANGR=QMANGR

@RUN LINK
*QMANGR/GO
@SAVE QMANGR

;
;	Signal success
;

@EXPUNGE PAT:
@DEFINE DSK:

@PEPB
*SIGNAL-SUCCESS GALAXY-20-V4-2
*EXIT

@GOTO EXIT

;
;	Signal failure on error
;

%ERR::
@GOTO ERROR
%TERR::
@GOTO ERROR
ERROR::

@EXPUNGE PAT:
@DEFINE DSK:

@PEPB
*SIGNAL-FAILURE GALAXY-20-V4-2
*EXIT

EXIT::
%FIN::