Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
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(0)
; August 4, 1981 / HAH
;
;
;COPYRIGHT (c) 1981, 1982, 1983 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
;
@TYPE PAT:B20V2A.MKL
;
@R ASL:MAKLIB
*@PAT:B20V2A.MKL
@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::
@EXP PAT:
@PEPB
*SIGNAL-FAILURE BASIC-PLUS-2-V2A
*EXIT
EXIT::
%FIN::