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::