Trailing-Edge
-
PDP-10 Archives
-
bb-bt99q-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
; 16-JUN-88 HAH ADD BRANCH FOR NO UPDATE
;
; 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
; 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::
.ERROR %
.DIR PAT:IETV04.SUP
.IF (ERROR) .GOTO NOUPD
.RUN ASL:UPDATE
*@PAT:IETV04.SUP
NOUPD::
.ERROR
.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
*DEFINE-LOGICAL-NAMES 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
*DEFINE-LOGICAL-NAMES 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
*DEFINE-LOGICAL-NAMES 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
*DEFINE-LOGICAL-NAMES 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
*DEFINE-LOGICAL-NAMES 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
*DEFINE-LOGICAL-NAMES 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
*DEFINE-LOGICAL-NAMES 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
*DEFINE-LOGICAL-NAMES 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::