Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - ihsv01.ctl
There are 10 other files named ihsv01.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 Hasp 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
;		D6TKH.BIN
;		D6TKHD.BIN
;		D6TKH.EXE
;		D6TKHD.EXE
;		D6TQ3.BIN
;		D6TQ3D.BIN
;		D6TQ3.EXE
;		D6TQ3D.EXE
;		D6TQH.BIN
;		D6TQHD.BIN
;		D6TQH.EXE
;		D6LQ3.BIN
;		D6LQ3D.BIN
;		D6LQ3.EXE
;		D6LQ3D.EXE
;		D6LQH.BIN
;		D6LQHD.BIN
;		D6LQH.EXE
;		D6LQHD.EXE
;		IBMSPL.EXE
;		IBMMAC.UNV
;		D60SPD.EXE
;
;
;
.R PEPB
*INITIALIZE IBMCOM-10-HASP-V1
*EXIT

;	DELETE ANY SOURCES IN PAT:


.DELETE PAT:IBMMAC.P11,PAT:IBMPAT.MAC,PAT:IBMUSR.MAC,PAT:IBMSPL.MAC
.DELETE PAT:PROD.P11,PAT:10TKH.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:XLHASP.P11,PAT:MDCODE.P11,PAT:D6LQ3.P11
.DELETE PAT:D6LQH.P11,PAT:D6TQ3.P11,PAT:D6TQH.P11,PAT:XDL10.P11
.DELETE PAT:D60SPD.MAC


;
;	APPLY PATCHES TO THE LIBRARY FILES
;
UPDATE::
. R ASL:UPDATE
*@PAT:IHSV01.SUP

.PATH REL:=ASL:
.PATH UNV:=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-HASP-V1
*exit

.PATH REL:=ASL:
.PATH UNV:=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-HASP-V1
*exit

.PATH REL:=ASL:
.PATH UNV:=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 D6TKH

D6TKH::			!Build the DTE-10/KMC Hasp front end

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

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

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

okTKH::

.error ?

.RUN MACDLX
*D6TKH.BIN,D6TKH.CRL/CRF=PROD.P11,10TKH.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,XLHASP.P11,TRNTAB.P11,INIT.P11,INIT1.P11,MDCODE.P11,CHK60.P11
*

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


.DELETE D6TKH.CRL


.CHKPNT D6TKHD


D6TKHD::		!Build the DTE-10/KMC Hasp 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 okTKHD	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-HASP-V1
*exit

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

okTKHD::

.error ?

.RUN MACDLX
*D6TKHD.BIN,D6TKHD.CRL/CRF=DEBUG.P11,10TKH.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,XLHASP.P11,TRNTAB.P11,INIT.P11,INIT1.P11,MDCODE.P11,CHK60.P11
*

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


.DELETE D6TKHD.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-HASP-V1
*exit

.PATH REL:=ASL:
.PATH UNV:=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-HASP-V1
*exit

.PATH REL:=ASL:
.PATH UNV:=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 D6TQH

D6TQH::			! Build the DTE-10/DQ11/HASP front end

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

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

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

okTQH::

.error ?

.RUN MACDLX
*D6TQH.BIN,D6TQH.CRL/CRF=PROD.P11,D6TQH.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,XLHASP.P11,TRNTAB.P11,INIT.P11,INIT1.P11,CHK60.P11
*

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

.DELETE D6TQH.CRL


.CHKPNT D6TQHD


D6TQHD::		 !Build the DTE-10/DQ11/HASP 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 okTQHD	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-HASP-V1
*exit

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

okTQHD::

.error ?

R  MACDLX
*D6TQHD.BIN,D6TQHD.CRL/CRF=DEBUG.P11,D6TQH.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,XLHASP.P11,TRNTAB.P11,INIT.P11,INIT1.P11,CHK60.P11
*

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

.DELETE D6TQHD.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-HASP-V1
*exit

.PATH REL:=ASL:
.PATH UNV:=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-HASP-V1
*exit

.PATH REL:=ASL:
.PATH UNV:=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



.CHKPNT D6LQH

D6LQH::

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

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

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

okLQH::

.error ?

			!Build the DL10/DQ11/HASP front end

.RUN MACDLX
*D6LQH.BIN,D6LQH.CRL/CRF=PROD.P11,D6LQH.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,XLHASP.P11,TRNTAB.P11,INIT.P11,INIT1.P11,CHK60.P11
*

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

.DELETE D6LQH.CRL



.CHKPNT D6LQHD

D6LQHD::		!Build the DL10/DQ11/HASP 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 okLQHD	;Yes proceed
.error ?
.r pepb
*initialize IBMCOM-10-HASP-V1
*exit

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

okLQHD::

.error ?

.RUN MACDLX
*D6LQHD.BIN,D6LQHD.CRL/CRF=DEBUG.P11,D6LQH.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,XLHASP.P11,TRNTAB.P11,INIT.P11,INIT1.P11,CHK60.P11
*

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

.DELETE D6LQHD.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-HASP-V1
*exit

.PATH REL:=ASL:
.PATH UNV:=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-HASP-V1
*exit

.PATH REL:=ASL:
.PATH UNV:=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-HASP-V1
*EXIT
.GOTO DONE

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

.R PEPB
*SIGNAL-FAILURE IBMCOM-10-HASP-V1
*EXIT

DONE::
%FIN::