Google
 

Trailing-Edge - PDP-10 Archives - bb-y390n-bm_tops20_v41_atpch_19 - autopatch/b20v2a.ctl
There are 6 other files named b20v2a.ctl in the archive. Click here to see a list.
;
;   B20V2A.CTL -- Patch and rebuild BASIC-PLUS-2-V2A
;   Version 1(1)
;	August 4, 1981  / HAH
;	May 4, 1988 / HAH Add branch for no update - requires
;			  PEP 1B(173)
;
;
;COPYRIGHT (c) 1981, 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 .CTL file applies the  patches  to  the  libraries  of
;   BASIC-PLUS-2-V2A and rebuilds BASIC.EXE, and BASOTS.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.
;

@PEPB
*INITIALIZE BASIC-PLUS-2-V2A
*EXIT
;

;
;	Apply patches to the library files
;

@ERROR %
@TYPE PAT:B20V2A.MKL
@IF (ERROR) @GOTO NOUPD
;
@R ASL:MAKLIB
*@PAT:B20V2A.MKL
NOUPD::
@ERROR
@EXP PAT:

;
;	Build BASIC.EXE
;

@TYPE ASL:B20CMA.LNK
;
@R ASL:LINK
*@ASL:B20CMA.LNK
@GET PAT:BASIC
@DDT
=1;^[D^[D^[D^[D
=2;^[D^[D^[D^[D
=3;^[D^[D^[D^[D
=4;^[D^[D^[D^[D
=5;^[D^[D^[D^[D
=6;^[D^[D^[D^[D
=7;^[D^[D^[D^[D
=8;^[D^[D^[D^[D
=9;^[D^[D^[D^[D
=12;^[D^[D^[D^[D
=13;^[D^[D^[D^[D
=14;^[D^[D^[D^[D
=15;^[D^[D^[D^[D
=16;^[D^[D^[D^[D
=17;^[D^[D^[D^[D
=5<J:
=14<GF:
=15<CF:
=16<AP:
=17<P:
=1<V:
=2<V1:
=3<R1:
=4<R2:
MOVE @770001X
MOVEM .JBSYMX
=
@SAVE PAT:BASIC 0 437

;
;	Build BASOTS
;


@TYPE ASL:B20OTA.LNK
;
@R ASL:LINK
*@ASL:B20OTA.LNK
@GET PAT:BASOTS
@DDT
=1;^[D^[D^[D^[D
=2;^[D^[D^[D^[D
=3;^[D^[D^[D^[D
=4;^[D^[D^[D^[D
=5;^[D^[D^[D^[D
=6;^[D^[D^[D^[D
=7;^[D^[D^[D^[D
=8;^[D^[D^[D^[D
=9;^[D^[D^[D^[D
=12;^[D^[D^[D^[D
=13;^[D^[D^[D^[D
=14;^[D^[D^[D^[D
=15;^[D^[D^[D^[D
=16;^[D^[D^[D^[D
=17;^[D^[D^[D^[D
=5<J:
=14<GF:
=15<CF:
=16<AP:
=17<P:
=1<V:
=2<V1:
=3<R1:
=4<R2:
=
@SAVE PAT:BASOTS 440 574

;
;	Signal success
;

@EXP PAT:
@PEPB
*SIGNAL-SUCCESS BASIC-PLUS-2-V2A
*EXIT
@GOTO EXIT

;
;	Signal failure on error
;

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

@EXP PAT:
@PEPB
*SIGNAL-FAILURE BASIC-PLUS-2-V2A
*EXIT

EXIT::
%FIN::