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

;	27-JUL-88 HAH Add branch for no update
;
;            COPYRIGHT (c) 1982,1988 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 the AUTOPATCH tool to apply supported 
;	patches to the sources for the Tops-20 Hasp IBMCOM DN20 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.MAC
;		D60UNV.MAC
;
;	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
;		IBMSPL.EXE
;		IBMMAC.UNV
;		D60JSY.UNV
;		D60SPD.EXE
;
;
;
@PEPB
*INITIALIZE IBMCOM-20-HASP-V1-1
*EXIT


@DELETE PAT:IBMMAC.MAC,PAT:IBMPAT.MAC,PAT:IBMUSR.MAC,PAT:IBMSPL.MAC
@DELETE PAT:DEBUG.P11,PAT:PROD.P11,PAT:20TKH.P11,PAT:20TK3.P11
@DELETE PAT:S60.P11,PAT:MACROS.P11,PAT:XDEFIN.P11,PAT:MINIT.P11
@DELETE PAT:INIT2.P11,PAT:STGMAN.P11,PAT:QUEING.P11,PAT:LINDRV.P11
@DELETE PAT:MSGHDL.P11,PAT:XDISPA.P11,PAT:HBSC.P11,PAT:XTENCM.P11
@DELETE PAT:XDTE10.P11,PAT:XL3780.P11,PAT:TRNTAB.P11,PAT:INIT1.P11
@DELETE PAT:INIT.P11,PAT:CHK60.P11,PAT:XLHASP.P11,PAT:MDCODE.P11
@DELETE PAT:D60SPD.MAC,PAT:C11SIM.MAC

;
;	APPLY PATCHES TO THE LIBRARY FILES
;
UPDATE::
@ERROR %
@VDIR PAT:IHSV11.SUP
@IF (ERROR) @GOTO NOUPD
@ASL:UPDATE
*@PAT:IHSV11.SUP
NOUPD::
@ERROR
@EXPUNGE PAT: 

@DEFINE SYS: ASL:

@DEFINE UNV: ASL:
@DEFINE REL: ASL:
@DEFINE DSK: ASL:


;	BUILD THE DN60 SOFTWARE


@CHKPNT D6TK3

D6TK3::			!Build 2780/3780 front end and DDT11 exe file


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

@RUN DDT11
*D6TK3.CRL/SYM
*
@SAVE D6TK3

@DELETE D6TK3.CRL


@CHKPNT D6TK3D

D6TK3D::		!Build 2780/3780 front end and DDT11 exe in debug mode


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

@RUN DDT11
*D6TK3D.CRL/SYM
*
@SAVE D6TK3D


@DELETE D6TK3D.CRL


@CHKPNT D6TKH

D6TKH::			!Build the Hasp front end and DDT11 exe file


@RUN MACDLX
*D6TKH,D6TKH.CRL/CRF=PROD,20TKH,S60,MACROS,XDEFIN,MININT,INIT2,STGMAN,QUEING,LINDRV,MSGHDL,XDISPA,HBSC,XDTE10,XTENCM,XL3780,XLHASP,TRNTAB,INIT,INIT1,MDCODE,CHK60
*

@RUN DDT11
*D6TKH.CRL/SYM
*
@SAVE D6TKH


@DELETE D6TKH.CRL


@CHKPNT D6TKHD


D6TKHD::		!Build the Hasp front end and DDT11 exe in debug mode

@RUN MACDLX
*D6TKHD,D6TKHD.CRL/CRF=DEBUG,20TKH,S60,MACROS,XDEFIN,MININT,INIT2,STGMAN,QUEING,LINDRV,MSGHDL,XDISPA,HBSC,XDTE10,XTENCM,XL3780,XLHASP,TRNTAB,INIT,INIT1,MDCODE,CHK60
*

@RUN DDT11
*D6TKHD.CRL/SYM
*
@SAVE D6TKHD


@DELETE D6TKHD.CRL



!	BUILD IBMSPL


@CHKPNT IBMSPL

IBMSPL::

@COMP/COMP  D60UNV
@COMP/COMP  IBMMAC
@COMP/COMP  D60JSY
@COMP/COMP  IBMUSR
@COMP/COMP  IBMPAT
@COMP/COMP  IBMSPL

@load  IBMSPL,IBMPAT,IBMUSR,D60JSY
@SAVE IBMSPL
@I VER

@DELETE IBMSPL.REL,IBMMAC.REL,IBMUSR.REL,IBMPAT.REL
@DELETE D60JSY.REL,D60UNV.REL



!	FINISH OFF WITH D60SPD


@CHKPNT D60SPD


D60SPD::		

@COMP/COMP D60SPD
@COMP/COMP C11SIM

@LOAD D60SPD,C11SIM
@SAVE D60SPD

@DELETE D60SPD.REL,C11SIM.REL


!	TELL AUTOPATCH HOW WE DID


OK::
@DEFINE DSK:
@DEFINE SYS:

@PEPB
*SIGNAL-SUCCESS IBMCOM-20-HASP-V1-1
*EXIT
@GOTO DONE

%ERR::
@GOTO ERROR
%TERR::
@GOTO ERROR
ERROR::

@EXPUNGE PAT:
@DEFINE DSK:
@DEFINE SYS:

@PEPB
*SIGNAL-FAILURE IBMCOM-20-HASP-V1-1
*EXIT

DONE::
%FIN::