Google
 

Trailing-Edge - PDP-10 Archives - BB-D480F-BB_1985_short - l10ftn.ctl
There are 5 other files named l10ftn.ctl in the archive. Click here to see a list.
;	JOB TO GENERATE LISTINGS OF THE FORTRAN COMPILER ON THE DECsystem-10
;	SUBMIT L10FTN.CTL/TIME:02:00:00/RESTART:1



;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1981, 1985
;ALL RIGHTS RESERVED.
;
;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.

;	VERSION 7	L10FTN.CTL	January 82



BUILC::
.CHKPNT BUILC
.NOERROR

; ********** LISTINGS FOR FORTRAN TABLE BUILDING

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


; FIRST WE BUILD THE SYNTAX TABLE BUILDERS AND SYNTAX TABLES

.RUN SYS:BLIS10
*,BUILD/M/S=BUILD.BLI

; NOW COMPILE ALL I/O UTILITIES.
.RUN SYS:BLIS10
*,SCAN0/M/S=SCAN0.BLI
*,SCNR/M/S=SCNR.BLI
*,TRACE1/M/S=TRACE1.BLI
*,ERROR0/M/S=ERROR0.BLI
*,BLIO/M/S=BLIO.BLI
*,NUMIO1/M/S=NUMIO1.BLI
*,DEFLT/M/S=DEFLT.BLI
*,TBL/M/S=TBL.BLI
*,OUTZ/M/S=OUTZ.BLI
*,LEFT72/M/S=LEFT72.BLI
*,LEFTFM/M/S=LEFTFM.BLI

.RUN SYS:MACRO
*,QTAB1/C=QTAB1.MAC
*,ERRTB3/C=ERRTB3.MAC

.RUN SYS:CREF
*DSK:QTAB1=QTAB1
*DSK:ERRTB3=ERRTB3
*^C


P0STR::
.CHKPNT P0STR
.NOERROR

; ********** LISTINGS FOR FORTRA

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


;	MAKE THE COMPILATION AND ASSEMBLY SWITCH DEFINITION FILES
;	  TO GENERATE THE COMPILER FOR TOPS-10, MULTIPLE SEGMENT

;	DELETE ANY RANDOM SWITCH FILES THAT ARE LYING AROUND

.DELETE DBUGIT.REQ, FT1SEG.REQ, FTTENX.REQ, FTTENX.MAC, FTTENX.UNV

.COPY DBUGIT.REQ = TTY:
*BIND DBUGIT=0;			! NO DEBUG CODE IN PHASE 1
*^Z

.COPY FT1SEG.REQ = TTY:
*GLOBAL BIND FT1SEG=0;		! NOT SINGLE SEGMENT
*^Z

.COPY FTTENX.REQ = TTY:
*GLOBAL BIND FTTENEX=0;		! TOPS-10
*^Z

.COPY FTTENX.MAC = TTY:
*UNIVERSAL FTTENX
*	.DIRECTIVE .NOBIN
*	FTTENX==0		; TOPS-10
*	END
*^Z

.RUN SYS:BLIS10
*,MAIN/M/S=MAIN.BLI
*,GLOBAL/M/S=GLOBAL.BLI
*,INOUT/M/S=INOUT.BLI
*,ERROVA/M/S=ERROVA.BLI
*,UNEND/M/S=UNEND.BLI

.RUN SYS:MACRO
*FTTENX,FTTENX/C=FTTENX.MAC
*,REVHST/C=REVHST.MAC
*,EXOSUP/C=EXOSUP.MAC
*GFOPDF,GFOPDF/C=GFOPDF.MAC
*,ERR3/C=ERR3.MAC
*,JOBD/C=JOBD.MAC
*,COMMAN/C=COMMAN.MAC
*,OWNDM/C=OWNDM.MAC


.RUN SYS:CREF
*DSK:FTTENX=FTTENX
*DSK:REVHST=REVHST
*DSK:EXOSUP=EXOSUP
*DSK:GFOPDF=GFOPDF
*DSK:ERR3=ERR3
*DSK:JOBD=JOBD
*DSK:COMMAN=COMMAN
*DSK:OWNDM=OWNDM
*^C


P1BEG::
.CHKPNT P1BEG
.NOERROR

; ********** LISTINGS FOR FORTB

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


.RUN SYS:BLIS10
*,SRCA/M/S=SRCA.BLI
*,ERROVB/M/S=ERROVB.BLI
*,ERROUT/M/S=ERROUT.BLI
*,VLTPPR/M/S=VLTPPR.BLI
*,ARRXPN/M/S=ARRXPN.BLI
*,DOXPN/M/S=DOXPN.BLI
*,FAZ1/M/S=FAZ1.BLI
*,GNRCFN/M/S=GNRCFN.BLI
*,EXPRES/M/S=EXPRES.BLI

.RUN SYS:MACRO
*,FLTGEN/C=FLTGEN.MAC
*,CNSTCM/C=CNSTCM.MAC

.RUN SYS:CREF
*DSK:FLTGEN=FLTGEN
*DSK:CNSTCM=CNSTCM
*^C


FORMC::
.CHKPNT FORMC
.NOERROR

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


.RUN SYS:BLIS10
*,FORMAT/M/S=FORMAT.BLI
*,ACT0/M/S=ACT0.BLI
*,ACT1/M/S=ACT1.BLI
*,STA0/M/S=STA0.BLI
*,STA1/M/S=STA1.BLI
*,STA2/M/S=STA2.BLI
*,STA3/M/S=STA3.BLI
*,LISTNG/M/S=LISTNG.BLI
*,LEXSUP/M/S=LEXSUP.BLI
*,CODETA/M/S=CODETA.BLI

; LEXICA.BLI REQUIRES 75K OF CORE TO COMPILE

.RUN SYS:BLIS10
*,LEXCLA/M/S=LEXCLA.BLI
*,LEXICA/M/S=LEXICA.BLI
*,DRIVER/M/S=DRIVER.BLI


P2SBE::
.CHKPNT P2SBE
.NOERROR

; ********** LISTINGS FOR FORTC

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


.RUN SYS:BLIS10
*,MEMCMP/M/S=MEMCMP.BLI
*,ERROVC/M/S=ERROVC.BLI
*,SKSTMN/M/S=SKSTMN.BLI
*,GOPT2/M/S=GOPT2.BLI
*,INPT/M/S=INPT.BLI
*,P2S1/M/S=P2S1.BLI
*,P2S2/M/S=P2S2.BLI
*,CANNON/M/S=CANNON.BLI
*,COMSUB/M/S=COMSUB.BLI
*,GOPTIM/M/S=GOPTIM.BLI
*,UTIL/M/S=UTIL.BLI
*,PH2S/M/S=PH2S.BLI

.RUN SYS:MACRO
*,DOPT/C=DOPT.MAC
*,DGCMN/C=DGCMN.MAC

.RUN SYS:CREF
*DSK:DOPT=DOPT
*DSK:DGCMN=DGCMN
*^C


P2BEG::
.CHKPNT P2BEG
.NOERROR

; ********** LISTINGS FOR FORTD

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


.RUN SYS:BLIS10
*,GRAPH/M/S=GRAPH.BLI
*,ERROVD/M/S=ERROVD.BLI
*,MOVA/M/S=MOVA.BLI
*,IOPT/M/S=IOPT.BLI
*,GCMNSB/M/S=GCMNSB.BLI
*,DEFPT/M/S=DEFPT.BLI
*,PNROPT/M/S=PNROPT.BLI
*,TSTR/M/S=TSTR.BLI
*,VER5/M/S=VER5.BLI
*,PHA2/M/S=PHA2.BLI

.RUN SYS:MACRO
*,DNPT/C=DNPT.MAC

.RUN SYS:CREF
*DSK:DNPT=DNPT
*^C


P3GBE::
.CHKPNT P3GBE
.NOERROR

; ********** LISTINGS FOR FORTE

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


.RUN SYS:BLIS10
*,STREGA/M/S=STREGA
*,ERROVR/M/S=ERROVR.BLI
*,REGUTL/M/S=REGUTL.BLI
*,CMPLEX/M/S=CMPLEX.BLI
*,CMPBLO/M/S=CMPBLO.BLI
*,ALCBLO/M/S=ALCBLO.BLI
*,DOALC/M/S=DOALC.BLI
*,REGAL2/M/S=REGAL2.BLI
*,RELBUF/M/S=RELBUF.BLI
*,DATAST/M/S=DATAST.BLI
*,OUTMOD/M/S=OUTMOD.BLI
*,PH3G/M/S=PH3G.BLI


; ********** LISTINGS FOR FORTF


P3RBE::
.CHKPNT P3RBE
.NOERROR

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


.RUN SYS:BLIS10
*,P3R/M/S=P3R.BLI


; ********** LISTINGS FOR FORTG


P3BEG::
.CHKPNT P3BEG
.NOERROR

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


.RUN SYS:BLIS10
*,OPTAB/M/S=OPTAB.BLI
*,ERROVG/M/S=ERROVG.BLI
*,CGDO/M/S=CGDO.BLI
*,CGSTMN/M/S=CGSTMN.BLI
*,CGEXPR/M/S=CGEXPR.BLI
*,PEEPOP/M/S=PEEPOP.BLI
*,LISTOU/M/S=LISTOU.BLI
*,DEBUG/M/S=DEBUG.BLI
*,PHA3/M/S=PHA3.BLI

.RUN SYS:MACRO
*,OPGNTA/C=OPGNTA.MAC

.RUN SYS:CREF
*DSK:OPGNTA=OPGNTA
*^C


STUFF::
.CHKPNT STUFF
.NOERROR

; ********** LISTINGS OF VARIOUS REQUIRE FILES

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:


.MAKE STUFF.LST
*I! ^[ 50<I*^[> I ASHELP.BLI

^[ ERASHELP.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I F72BNF.BLI

^[ ERF72BNF.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I F72BNF.SYN

^[ ERF72BNF.SYN^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I FMTLEX.BLI

^[ ERFMTLEX.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I FRMBNF.BLI

^[ ERFRMBNF.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I FRMBNF.SYN

^[ ERFRMBNF.SYN^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I LEXAID.BLI

^[ ERLEXAID.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I LEXNAM.BLI

^[ ERLEXNAM.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I LOOK72.BLI

^[ ERLOOK72.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I LOOKFM.BLI

^[ ERLOOKFM.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I META72.BLI

^[ ERMETA72.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I METAFM.BLI

^[ ERMETAFM.BLI^[ 30<A> ZJ I
^[ 12I^[^[
*I! ^[ 50<I*^[> I REQREL.BLI

^[ ERREQREL.BLI^[ 30<A> ZJ I
^[^[
*EX^[^[

.COPY FITAOP.BLI = TTY:
*
*MODULE  FITAOP  (RESERVE (0,1,2,3), DREGS=4, MLIST, XREF) =
*BEGIN
*
*SWITCHES LIST;
*
*! ************************************************** FIRST.BLI
*
*REQUIRE FIRST.BLI;
*
*! ************************************************** TABLES.BLI
*
*REQUIRE TABLES.BLI;
*
*! ************************************************** OPTMAC.BLI
*
*REQUIRE OPTMAC.BLI;
*
*
*END
*ELUDOM
*^Z

.RUN SYS:BLIS10
*,FITAOP/C=FITAOP.BLI

LIST::
.CHKPNT LIST
.NOERROR

;	********** ALL LISTING PHASES COMPLETE	**********

.DEASSIGN
.MOUNT FTN:
.R SETSRC
*A FTN:,*
.ASSIGN DEC: SYS:
.ASSIGN DEC: UNV:

;.PRINT *.LST/LOWER/DISPOSE:PRESERVE

%ERR::
%FIN::

;	[END OF L10FTN.CTL]