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