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

;
;   T20AS4.CTL -- Patch and rebuild TOPS-20-KS-ARPA-V4
;   Version 1(1)
;	July 14, 1980  / DRB
;
 
;
; COPYRIGHT (c) 1980, 1981, 1982 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 .CTL file applies the  patches  to  the  libraries  of
;   TOPS-20-KS-ARPA-V4 and rebuilds MONITR.EXE and EXEC.EXE.
;
;   For this .CTL file to run, the connected directory must  be
;   the patching directory (Logical name PAT:).
;
;   This control file is expected to run without errors.
;

@DEFINE UNV: ASL:
;
@PEPB
*INITIALIZE TOPS-20-KS-ARPA-V4
*EXIT
;
;
@DELETE PAT:TMON.*,PAT:TMONITR.*,PAT:MONITR.*,PAT:EXEC.*
@DELETE PAT:VERSIO.REL,PAT:STG*.REL
@EXP PAT:

;
;	Apply patches to the library files
;

@TYPE PAT:T20AS4.MKL
;
@R ASL:MAKLIB
*@PAT:T20AS4.MKL
@EXP PAT:

;
;	Build the monitor
;

@R ASL:MACRO
*PAT:VERSIO=ASL:NAMAM0.MAC,ASL:VERSIO.MAC
*PAT:STGASM=ASL:KSPRE.MAC,ASL:PARAM0.MAC,ASL:PARAMS.MAC,ASL:STG.MAC
;
@COPY ASL:LDINIT.REL PAT:LDINIT.REL
@COPY ASL:MONSYM.REL PAT:MONSYM.REL
;
@TYPE ASL:T20SM4.LNK
;
@R ASL:LINK
*@ASL:T20SM4.LNK
@EXP PAT:
@GET TMON
@START 140
=BUGHLT<HLTADR12B
=BUGCHK<CHKADR11B
=G
;
@RENAME PAT:TMONITR.EXE PAT:MONITR.EXE
@DELETE PAT:TMON.*
@EXP PAT:

;
;	Build the EXEC
;

@COPY ASL:MACREL.REL PAT:MACREL.REL
;
@TYPE ASL:T20EX4.LNK
;
@R ASL:LINK
*@ASL:T20EX4.LNK
@START
*Y

;
;	Signal success
;

@EXP PAT:
@PEPB
*SIGNAL-SUCCESS TOPS-20-KS-ARPA-V4
*EXIT
@GOTO EXIT

;
;	Signal failure on error
;

%ERR::
@EXP PAT:
@PEPB
*SIGNAL-FAILURE TOPS-20-KS-ARPA-V4
*EXIT

EXIT::
%FIN::