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

! LINK.CTL
!
!		     COPYRIGHT (c) 1984 BY
!	       DIGITAL EQUIPMENT CORPORATION, MAYNARD
!		MASSACHUSETTS.  ALL RIGHTS RESERVED.
!
!	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 THAT IS
!	NOT SUPPLIED BY DIGITAL.
!
! Build DTR20.EXE, DDMF.EXE, ADT.EXE, DTRSRV.EXE, NETJOB.EXE,
!   REGIS.EXE, REMDTR.EXE, and DTRLIB.REL from .REL library files.
! Start at tag MASTER to look only in connected build directory.
! Start at tag WORK (default) to look first in connected directory, then
!   in DTRRES:.
!
! To submit for manual work rebuild,
!   @SUBMIT LINK.CTL/TAG:WORK/TIME:0:5:0/RESTARTABLE:YES/UNIQUE:YES
!
WORK::
@TAKE TINKER:<DATATRIEVE>DTR-LOGICAL-NAMES.CMD
@DEFINE DSK: DSK:, DTRRES:
@GOTO DOIT

MASTER::
@DEFINE DSK:
@GOTO DOIT

DOIT::
@DEFINE SYS: FIELDI:,SYS:
@GET SYS:MAKLIB
@INFO VERSION
@GET SYS:LINK
@INFO VERSION
@GET SYS:PA1050
@INFO VERSION
@VDIR SYS:MAKLIB.EXE,SYS:LINK.EXE,SYS:PA1050.EXE,
@CHECK SEQ
@
@INFORM LOGICAL-NAMES
@NOERROR
!
! Build DTRLIB.REL (callable Datatrieve)
!
@COPY DTRCL1.REL DTRLIB.REL
@APPEND DYNBOO.REL DTRLIB.REL
@APPEND ZERBOO.REL DTRLIB.REL
@APPEND RTLZER.REL DTRLIB.REL
@MAKLIB
*DTRLIB.REL=DTRLIB.REL/DELETE:(VERSIO)
@VDIR DTRLIB.REL,
@CHECK SEQ
@
! 
! Build ADT.EXE
!
@LINK
*ADT.EXE/SAVE,ADT.MAP/MAP=
*DTRAD1.REL
*DTRCL1.REL/INCLUDE:(COPYR,DTR20,VERSIO)/GO
@GET ADT.EXE
@INFO VERSION
@VDIR ADT.EXE,
@CHECK SEQ
@
!
! Build DTRSRV.EXE
!
@LINK
*DTRSRV.EXE/SAVE,DTRSRV.MAP/MAP=
*DTRSR1.REL
*DTRCL1.REL/INCLUDE:(COPYR,DDMZER,DTR20,VERSIO)
*RTLZER.REL,DYNBOO.REL,ZERBOO.REL/GO
@GET DTRSRV.EXE
@INFO VERSION
@VDIR DTRSRV.EXE,
@CHECK SEQ
@
!
! Build NETJOB.EXE
!
@LINK
*NETJOB.EXE/SAVE,NETJOB.MAP/MAP=
*DTRNT1.REL
*DTRCL1.REL/INCLUDE:(COPYR,DTR20,VERSIO)/GO
@GET NETJOB.EXE
@INFO VERSION
@VDIR NETJOB.EXE,
@CHECK SEQ
@
!
! Build REMDTR.EXE
!
@LINK
*REMDTR.EXE/SAVE,REMDTR.MAP/MAP=
*DTRRM1.REL
*DTRCL1.REL/INCLUDE:(COPYR,DTR20,VERSIO)/GO
@GET REMDTR.EXE
@INFO VERSION
@VDIR REMDTR.EXE,
@CHECK SEQ
@
!
! Build REGIS.EXE
!
@LINK
*REGIS.EXE/SAVE,REGIS.MAP/MAP=
*DTRRG1.REL
*DTRCL1.REL/INCLUDE:(COPYR,DTR20,VERSIO)/GO
@GET REGIS.EXE
@INFO VERSION
@VDIR REGIS.EXE,
@CHECK SEQ
@
!
! Build DTR20.EXE
!
@LINK
*DTR20.EXE/SAVE,DTR20.MAP/MAP=
*DTR201.REL
*DTRCL1.REL/INCLUDE:(COPYR,DDMZER,DTR20,VERSIO)
*RTLZER.REL,DYNBOO.REL,ZERBOO.REL/GO
@GET DTR20.EXE
@INFO VERSION
@VDIR DTR20.EXE,
@CHECK SEQ
@
!
! Build DDMF.EXE
!
@LINK
*DDMF.EXE/SAVE,DDMF.MAP/MAP=
! DDMF starts at 300000 to keep it out of the way of DDT (DDT starts at 674000)
*/SET:.HIGH.:300000
*/NOLOCAL DTRCL1.REL/INCLUDE:(COPYR,DTR20)
*/NOLOCAL DTRDD1.REL
*/NOLOCAL RTLJCK.REL,DYNBOO.REL,SYS:RMSINI.REL
*/NOLOCAL B362LB.REL/SEARCH /GO
!
! Make the PDV needed for a dynamic library and init memory mgmt.
!
@RUN DDMF.EXE
!
! Make DDMF non-writeable
!
@SET PAGE-ACCESS 300:777 NO WRITE NO COPY-ON-WRITE
@IF(ERROR) @! Ignore error message for non-existant pages
@SAVE DDMF.EXE
@GET DDMF.EXE
@INFO VERSION
@VDIR DDMF.EXE,
@CHECK SEQ
@
@VDIR SYS:RMSINI.REL,
@CHECK SEQ
@
%ERR::
%FIN::
!
! [End of LINK.CTL]