Trailing-Edge
-
PDP-10 Archives
-
FORTRAN-10_Alpha_31-jul-86
-
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, 1986
;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]