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

; UPD ID= 3366 on 1/30/81 at 9:01 AM by WRIGHT                          
!CPYLIB.CTL	VERSION 12C
!
!Used to make CPYLIB.EXE from sources
!This file runs on either TOPS-20 or TOPS-10
!SUBMIT with command	SUBMIT CPYLIB
!
!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1979, 1985 
!ALL RIGHTS RESERVED.
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!INSTALLATION SPECIFIC ASSIGNMENTS SHOULD BE PUT IN THE FOLLOWING FILE:
! ON TOPS-20 IN A TAKE FILE COBOL.CMD
! ON TOPS-10 IN A MIC  FILE COBOL.MIC
!	  OR IN A TECO FILE COBOL.TEC
!NOTE, IN GENERAL THIS CONTROL FILE WILL NOT RUN WITHOUT ONE OF THE ABOVE
!DEFINITION FILES BEING PRESENT.
!
!IF LISTINGS ARE DESIRED, THE EMPTY FILE
!LISTEM.MAC SHOULD BE IN DSK:
!
!TEST FOR WHICH SYSTEM
@GOTO TOPS20	!TOPS20 VERSION
.GOTO TOPS10	!TOPS10 VERSION

TOPS20::
!REQUIRED FILES:
!<FIELD-IMAGE>	CREF.EXE
!		LINK.EXE
!		MACRO.EXE
!
!<NEW>		PA1050.EXE
!
!<SELF>	CPYLIB.CTL
!	CPYLIB.MAC
!	CPYLIB.HLP
!	IOTMPU.MAC
!	IOTMP.MAC
!	MMANGU.MAC
!	MMANGR.MAC
!
!<SELF>	!FROM COBOL & LIBOL BUILD
!	COPYRT.UNV
!
!OUTPUT: CPYLIB.EXE
!
!OUTPUT LISTINGS: CPYLIB.LOG
!
@ERROR
@TAKE COBOL.CMD
@IF (ERROR) !IGNORE IT
!
!MAKE A RECORD OF WHAT IS BEING USED.
@GET SYS:PA1050
@INFO VERSION
@GET SYS:MACRO
@INFO VERSION
@GET SYS:LINK
@INFO VERSION
@GET SYS:CREF
@INFO VERSION
!
@VD SYS:PA1050.EXE,SYS:MACRO.EXE,SYS:LINK.EXE,SYS:CREF.EXE,
@CHECK SEQ
@
!
@VD CPYLIB.*,DSK:COPYRT.UNV,
@CHECK SEQ
@
!
!ASSEMBLE SOURCES
!
@ERROR %
@TYPE LISTEM.MAC
@IF (ERROR) @GOTO NOLIS1
@ERROR
!
!HERE FOR CREF LISTINGS
!
@MACRO
*MMANGU,MMANGU/C=TTY:,DSK:MMANGU
TOPS20==1


*IOTMPU,IOTMPU/C=TTY:,DSK:IOTMPU
TOPS20==1


*MMANGR,MMANGR/C=MMANGR
*IOTMP,IOTMP/C=IOTMP
*CPYLIB,CPYLIB/C=CPYLIB
@IF (ERROR) @GOTO TRUBLE
@CREF
*DSK:MMANGU.LZT=MMANGU
*DSK:MMANGR.LZT=MMANGR
*DSK:IOTMPU.LZT=IOTMPU
*DSK:IOTMP.LZT=IOTMP
*DSK:CPYLIB.LZT=CPYLIB
@IF (ERROR) @PLEASE TROUBLE CREATING CPYLIB.LZT
@GOTO DONCRF
!
!
!HERE FOR NO CREF LISTINGS
!
NOLIS1::
@ERROR
!
@MACRO
*MMANGU=TTY:,DSK:MMANGU
TOPS20==1


*IOTMPU=TTY:,DSK:IOTMPU
TOPS20==1


*MMANGR=MMANGR
*IOTMP=IOTMP
*CPYLIB=CPYLIB
@IF (ERROR) @GOTO TRUBLE
!
DONCRF::
!CREATE LIBARY.EXE
@LINK
*CPYLIB.MAP/MAP=CPYLIB,IOTMP,MMANGR/GO
@IF (ERROR) @GOTO TRUBLE
@SAVE CPYLIB
@IF (ERROR) @GOTO TRUBLE
!
!SEE WHAT WE GOT:
@VD CPYLIB.EXE,
@CHECK SEQ
@
@IF (ERROR) @ !IGNORE ANY ERRORS.
!
!TELL OPERATOR HOW WE DID
@PLEASE -- CPYLIB CREATION SUCCESSFUL
@DELETE CPYLIB.REL,IOTMP.REL,MMANGR.REL
@EXP
@MODIFY BATCH */DEPEND:-1
@GOTO OK
TRUBLE::@PLEASE -- CPYLIB CREATION NOT SUCCESSFUL!!!
@GOTO OK

TOPS10::
!
!REQUIRED FILES:
!SYS:		COMPIL.EXE
!		CREF.EXE
!		DIRECT.EXE
!		LINK.EXE + LNK???.EXE
!		MACRO.EXE
!		PIP.EXE
!
![SELF]	CPYLIB.CTL
!	CPYLIB.HLP
!	CPYLIB.MAC
!	IOTMPU.MAC
!	IOTMP.MAC
!	MMANGU.MAC
!	MMANGR.MAC
!
![SELF]	!FROM COBOL & LIBOL BUILD
!	COPYRT.UNV
!
!OUTPUT:
!	CPYLIB.EXE
!	CPYLIB.LOG
!	CPYLIB.MAP
!
.ERROR
.SET WATCH VERSION
!SET UP THE DEFAULT LOGICAL NAMES
.ASSIGN DSK: SRC:
.ASSIGN DSK: C68:
.ASSIGN DSK: C74:
!
!CHANGE THEM IF USER SO DESIRES
.DO COBOL.MIC
.IF (ERROR) !IGNORE IT
!
!SEE WHAT WE ARE USING
.R DIRECT
*TTY:=/CHECKSUM/WIDTH:90 SYS:PIP.EXE,MACRO.EXE,LINK.EXE,LNK???.EXE,DIRECT.EXE,COMPIL.EXE,CREF.EXE
.IF (ERROR) . !IGNORE ANY ERRORS.
.R DIRECT
*TTY:=/CHECKSUM/WIDTH:90 SRC:CPYLIB.*,SRC:IOTMP.*,SRC:IOTMPU.*,SRC:MMANGU.*,SRC:MMANGR.*,DSK:COPYRT.UNV
.IF (ERROR) . !IGNORE ANY ERRORS.
!ASSEMBLE THE SOURCES:
.TYPE LISTEM.MAC
.IF (ERROR) .GOTO NOLIS1
!
!HERE FOR CREF LISTINGS
.R MACRO
*MMANGU,MMANGU/C=TTY:,DSK:MMANGU
TOPS20==0


*IOTMPU,IOTMPU/C=TTY:,DSK:IOTMPU
TOPS20==0


*MMANGR,MMANGR/C=MMANGR
*IOTMP,IOTMP/C=IOTMP
*CPYLIB,CPYLIB/C=CPYLIB
!
.R CREF
*DSK:MMANGU.LZT=MMANGU
*DSK:MMANGR.LZT=MMANGR
*DSK:IOTMPU.LZT=IOTMPU
*DSK:IOTMP.LZT=IOTMP
*DSK:CPYLIB.LZT=CPYLIB
!
.GOTO DONCRF
!
NOLIS1::
.ERROR
.R MACRO
*MMANGU=TTY:,DSK:MMANGU
TOPS20==0


*IOTMPU=TTY:,DSK:IOTMPU
TOPS20==0


*MMANGR=MMANGR
*IOTMP=IOTMP
*CPYLIB=CPYLIB
.IF (ERROR) .GOTO TRUBLE
!
DONCRF::
!
!CREATE CPYLIB.EXE
!
.R LINK
*CPYLIB.MAP/MAP=CPYLIB,IOTMP,MMANGR/GO
.IF (ERROR) .GOTO TRUBLE
.SSAVE DSK:CPYLIB
.IF (ERROR) .GOTO TRUBLE
!
!SEE WHAT WE GOT:
.R DIRECT
*TTY:=/CHECKSUM/WIDTH:90 CPYLIB.*,IOTMP.*,MMANGR.*
.IF (ERROR) . !IGNORE ANY ERRORS.
.DELETE CPYLIB.REL,IOTMP.REL,MMANGR.REL
!
!TELL OPERATOR HOW WE DID:
.PLEASE - CPYLIB CREATION SUCCESSFUL
!
!WE CANNOT MIX GALAXY 2 AND GALAXY 4.1
!SO
.DEAS SYS
.IF (ERROR) !
!
.SUB INP:*=/MODIFY/DEPEND:-1
.GOTO OK
TRUBLE:.PLEASE - CPYLIB CREATION NOT SUCCESSFUL
OK::!END OF CPYLIB.CTL