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

;
;		       COPYRIGHT (C) 1984,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 AUTOPATCH to apply supported 
;	patches to the sources for the Tops-20 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.MAC
;		D60UNV.MAC
;
;	The following IBMCOM components are generated in the PAT: area.
;
;		D6TK3.BIN
;		D6TK3D.BIN
;		D6TK3.EXE
;		D6TK3D.EXE
;		IBMSPL.EXE
;		IBMMAC.UNV
;		D60JSY.UNV
;		D60SPD.EXE
;
;
;
@PEPB
*INITIALIZE IBMCOM-20-ET-V2-1
*EXIT



@DELETE PAT:IBMMAC.MAC,PAT:IBMPAT.MAC,PAT:IBMUSR.MAC,PAT:IBMSPL.MAC
@DELETE PAT:DEBUG.P11,PAT:PROD.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:CHK60.P11,PAT:INIT.P11,PAT:MDCODE.P11,PAT:D60SPD.MAC
@DELETE PAT:C11SIM.MAC

;
;	APPLY PATCHES TO THE LIBRARY FILES
;
UPDATE::
@ASL:UPDATE
*@PAT:IETV21.SUP
@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.BIN,D6TK3.CRL/CRF=PROD.P11,20TK3.P11,S60.P11,MACROS.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 2780/3780 front end 


@RUN MACDLX
*D6TK3D.BIN,D6TK3D.CRL/CRF=DEBUG.P11,20TK3.P11,S60.P11,MACROS.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


!	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-ET-V2-1
*EXIT
@GOTO DONE

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

@EXPUNGE PAT:
@DEFINE DSK:
@DEFINE SYS:
@PEPB
*SIGNAL-FAILURE IBMCOM-20-ET-V2-1
*EXIT

DONE::
%FIN::