Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - ietv04.ctl
There are 10 other files named ietv04.ctl in the archive. Click here to see a list.
;Modified to change MACROS.P11 to MACRO.P11 30-OCT-84

;
;		       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.
;
;
;	This control file uses AUTOPATCH to apply supported 
;	patches to the sources for the Tops-10 2780/3780 IBMCOM front end, 
;	Ibmspl, and D60spd.    The following files, updated to the most 
;	recent Autopatch level, must be accesible for the build.
;
;	
;		GLXMAC.UNV
;		QSRMAC.UNV
;		ORNMAC.UNV
;		GLXINI.REL
;		D60JSY.REL
;		D60UNV.UNV
;
;	The following IBMCOM components are generated in the PAT: area.
;
;
;		D6TK3.BIN
;		D6TK3D.BIN
;		D6TK3.EXE
;		D6TK3D.EXE
;		D6TQ3.BIN
;		D6TQ3D.BIN
;		D6TQ3.EXE
;		D6TQ3D.EXE
;		D6LQ3.BIN
;		D6LQ3D.BIN
;		D6LQ3.EXE
;		D6LQ3D.EXE
;		IBMSPL.EXE
;		IBMMAC.UNV
;		D60SPD.EXE
;
;
;

.R PEPB
*INITIALIZE IBMCOM-10-ET-V4
*EXIT
; INTERNAL ONLY - PIP BUG
.PI PAT:

;	DELETE ANY SOURCES IN PAT:

.DELETE PAT:IBMMAC.P11,PAT:IBMPAT.MAC,PAT:IBMUSR.MAC,PAT:IBMSPL.MAC
.DELETE PAT:PROD.P11,PAT:10TK3.P11,PAT:S60.P11,PAT:DEBUG.P11
.DELETE PAT:MACRO.P11,PAT:XDEFIN.P11,PAT:MININT.P11,PAT:INIT2.P11
.DELETE PAT:STGMAN.P11,PAT:QUEING.P11,PAT:LINDRV.P11,PAT:MSGHDL.P11
.DELETE PAT:XDISPA.P11,PAT:HBSC.P11,PAT:XTENCM.P11,PAT:XDTE10.P11
.DELETE PAT:XL3780.P11,PAT:TRNTAB.P11,PAT:INIT.P11,PAT:INIT1.P11
.DELETE PAT:CHK60.P11,PAT:MDCODE.P11,PAT:D6LQ3.P11
.DELETE PAT:D6TQ3.P11,PAT:XDL10.P11
.DELETE PAT:D60SPD.MAC

;
;	APPLY PATCHES TO THE LIBRARY FILES
;
UPDATE::
.RUN ASL:UPDATE
*@PAT:IETV04.SUP

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


!	BUILD THE DN60 SOFTWARE


.CHKPNT D6TK3


D6TK3::			!Build the DTE-10/KMC 2780/3780 front end 

!See if we are still set to build after checkpointed restart

.error %
.path asl:			;Are previous logicals still recognized?
.if (noerror) .goto okTK3	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-ET-V4
*exit

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

okTK3::

.error ?

.RUN MACDLX
*D6TK3.BIN,D6TK3.CRL/CRF=PROD.P11,10TK3.P11,S60.P11,MACRO.P11,XDEFIN.P11,MININT.P11,INIT2.P11,STGMAN.P11,QUEING.P11,LINDRV.P11,MSGHDL.P11,XDISPA.P11,HBSC.P11,XDTE10.P11,XTENCM.P11,XL3780.P11,TRNTAB.P11,INIT.P11,INIT1.P11,MDCODE.P11,CHK60.P11
*


.RUN DDT11		!And the DDT11 runnable image
*D6TK3.CRL/SYM
*
.SAVE D6TK3

.DELETE D6TK3.CRL


.CHKPNT D6TK3D

D6TK3D::		!Build the DTE-10/KMC 2780/3780 front end in debug mode

!See if we are still set to build after checkpointed restart

.error %
.path asl:			;Are previous logicals still recognized?
.if (noerror) .goto okTK3D	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-ET-V4
*exit

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

okTK3D::

.error ?

.RUN MACDLX
*D6TK3D.BIN,D6TK3D.CRL/CRF=DEBUG.P11,10TK3.P11,S60.P11,MACRO.P11,XDEFIN.P11,MININT.P11,INIT2.P11,STGMAN.P11,QUEING.P11,LINDRV.P11,MSGHDL.P11,XDISPA.P11,HBSC.P11,XDTE10.P11,XTENCM.P11,XL3780.P11,TRNTAB.P11,INIT.P11,INIT1.P11,MDCODE.P11,CHK60.P11
*

.RUN DDT11		!And the DDT11 runnable image
*D6TK3D.CRL/SYM
*
.SAVE D6TK3D


.DELETE D6TK3D.CRL


.CHKPNT D6TQ3


D6TQ3::			!Build the DTE-10/DQ 3780 front end

!See if we are still set to build after checkpointed restart

.error %
.path asl:			;Are previous logicals still recognized?
.if (noerror) .goto okTQ3	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-ET-V4
*exit

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

okTQ3::

.error ?

.RUN MACDLX
*D6TQ3.BIN,D6TQ3.CRL/CRF=PROD.P11,D6TQ3.P11,S60.P11,MACRO.P11,XDEFIN.P11,MININT.P11,INIT2.P11,STGMAN.P11,QUEING.P11,LINDRV.P11,MSGHDL.P11,XDISPAT.P11,HBSC.P11,XDTE10.P11,XTENCM.P11,XL3780.P11,TRNTAB.P11,INIT.P11,INIT1.P11,CHK60.P11
*

.RUN DDT11		!And the DDT11 runnable image
*D6TQ3.CRL/SYM
*
.SAVE D6TQ3

.DELETE D6TQ3.CRL



.CHKPNT D6TQ3D

D6TQ3D::		!Build the DTE-10/DQ11/3780 debugging front end

!See if we are still set to build after checkpointed restart

.error %
.path asl:			;Are previous logicals still recognized?
.if (noerror) .goto okTQ3D	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-ET-V4
*exit

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

okTQ3D::

.error ?

.RUN MACDLX
*D6TQ3D.BIN,D6TQ3D.CRL/CRF=DEBUG.P11,D6TQ3.P11,S60.P11,MACRO.P11,XDEFIN.P11,MININT.P11,INIT2.P11,STGMAN.P11,QUEING.P11,LINDRV.P11,MSGHDL.P11,XDISPAT.P11,HBSC.P11,XDTE10.P11,XTENCM.P11,XL3780.P11,TRNTAB.P11,INIT.P11,INIT1.P11,CHK60.P11
*

.RUN DDT11		!And the DDT11 runnable image
*D6TQ3D.CRL/SYM
*
.SAVE D6TQ3D

.DELETE D6TQ3D.CRL



.CHKPNT D6LQ3

D6LQ3::			! Build the DL10/DQ11/3780 front end

!See if we are still set to build after checkpointed restart

.error %
.path asl:			;Are previous logicals still recognized?
.if (noerror) .goto okLQ3	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-ET-V4
*exit

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

okLQ3::

.error ?

.RUN MACDLX
*D6LQ3.BIN,D6LQ3.CRL/CRF=PROD.P11,D6LQ3.P11,S60.P11,MACRO.P11,XDEFIN.P11,MININT.P11,INIT2.P11,STGMAN.P11,QUEING.P11,LINDRV.P11,MSGHDL.P11,XDISPAT.P11,HBSC.P11,XDL10.P11,XTENCM.P11,XL3780.P11,TRNTAB.P11,INIT.P11,INIT1.P11,CHK60.P11
*

.RUN DDT11		!And the DDT11 runnable image
*D6LQ3.CRL/SYM
*
.SAVE D6LQ3

.DELETE D6LQ3.CRL




.CHKPNT D6LQ3D

D6LQ3D::		! Build DL10/DQ11/3780 debugging front end

!See if we are still set to build after checkpointed restart

.error %
.path asl:			;Are previous logicals still recognized?
.if (noerror) .goto okLQ3D	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-ET-V4
*exit

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

okLQ3D::

.error ?

.RUN MACDLX
*D6LQ3D.BIN,D6LQ3D.CRL/CRF=DEBUG.P11,D6LQ3.P11,S60.P11,MACRO.P11,XDEFIN.P11,MININT.P11,INIT2.P11,STGMAN.P11,QUEING.P11,LINDRV.P11,MSGHDL.P11,XDISPAT.P11,HBSC.P11,XDL10.P11,XTENCM.P11,XL3780.P11,TRNTAB.P11,INIT.P11,INIT1.P11,CHK60.P11
*

.RUN DDT11		!And the DDT11 runnable image
*D6LQ3D.CRL/SYM
*
.SAVE D6LQ3D

.DELETE D6LQ3D.CRL


!	BUILD IBMSPL


.CHKPNT IBMSPL


IBMSPL::

!See if we are still set to build after checkpointed restart

.error %
.path asl:			;Are previous logicals still recognized?
.if (noerror) .goto okSPL	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-ET-V4
*exit

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

okSPL::

.error ?


.COMP/COMP  IBMMAC
.COMP/COMP  IBMUSR
.COMP/COMP  IBMPAT
.COMP/COMP  IBMSPL

.load %"LOCALS/SYMSEG:LOW" IBMSPL,IBMPAT,IBMUSR,D60JSY
.SAVE IBMSPL

.DELETE IBMSPL.REL,IBMMAC.REL,IBMUSR.REL,IBMPAT.REL


!	FINISH OFF WITH D60SPD


.CHKPNT D60SPD

D60SPD::

!See if we are still set to build after checkpointed restart

.error %
.path asl:			;Are previous logicals still recognized?
.if (noerror) .goto okSPD	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-ET-V4
*exit

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

okSPD::

.error ?

.COMP/COMP D60SPD

.LOAD D60SPD
.SAVE D60SPD

.DELETE D60SPD.REL


!	TELL AUTOPATCH HOW WE DID


OK::


.R PEPB
*SIGNAL-SUCCESS IBMCOM-10-ET-V4
*EXIT
.GOTO DONE

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

.R PEPB
*SIGNAL-FAILURE IBMCOM-10-ET-V4
*EXIT

DONE::
%FIN::