Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - ftn10r.ctl
There are 2 other files named ftn10r.ctl in the archive. Click here to see a list.
;
;   FTN10R.CTL -- .EXE replacement for FORTRAN-10 V10
;   Version 1(0)
;
;	April 1985 /TGS
 
 
;
; COPYRIGHT (c)  1985 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 decrypts FORTRA.EXE, FORLIB.REL, FORO10.EXE, and
;   FORDDT.REL, as patched to the latest level and delivered on the
;   Autopatch tape. Note that submitting this control file will result
;   in new .EXE's and .REL's being written to PAT:, possibly overwriting
;   files produced by a previous source-level rebuild.
;
;   For this .CTL file to run, the connected directory must  be
;   the patching directory (PAT:).
;
;   NOTE: If the dummy file FTNDBM.FLG is present on PAT:, this
;   .CTL file will build FORTRAN-10 with DBMS.
;
;   This control file is expected to run without errors.
;

START::

.R PEPB
*INITIALIZE FORTRAN-REP-V10
*EXIT
;
.PATH ASL:/SEARCH

;	If flag file FTNDBM.FLG is present on PAT:, build DBMSF.EXE and
;	DBMSF.REL for Fortran-10 with DBMS.

.PRO<777>FTNDBM.FLG
.IF (ERROR) .GOTO CHECK

;	Here for DBMS/Fortran

.ERROR %

; These files must exist to be built into DBMSF.EXE

.DIR DBSFOR.REL, DBSANY.REL, DBS10.REL, SCHIO1.REL, FORDBM.REL

.ERROR ?

.TYPE FDBM5.CCL
.R ASL:MAKLIB
*@FDBM5.CCL

.EX FDBM5.FOR

.TYPE DBCS1F.CMD
.R ASL:LINK
*@DBCS1F

;
;See what we got
;

.ERROR %

.DIR /CHECKSUM DBMSF.EXE

.ERROR ?

CHECK::

.R PEPB
*SIGNAL-SUCCESS FORTRAN-REP-V10
*EXIT

.GOTO EXIT

%TERR::
.GOTO ERROR
%CERR::
.GOTO ERROR
%ERR::
ERROR::


.R PEPB
*SIGNAL-FAILURE FORTRAN-REP-V10
*EXIT

EXIT::
%FIN::
     
;	[END OF FTN10R.CTL]