Google
 

Trailing-Edge - PDP-10 Archives - BB-4157E-BM - fortran-compiler/l20ftn.ctl
There are 4 other files named l20ftn.ctl in the archive. Click here to see a list.
!	JOB TO GENERATE LISTINGS OF THE FORTRAN COMPILER ON THE DECSYSTEM-20
!	SUBMIT L20FTN.CTL/TIME:02:00:00/RESTART:YES



!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

!COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION
 
!	VERSION 6	L20FTN.CTL	January 81



START::
@CHKPNT START
@NOERROR

@TYPE B20FTN.CMD
@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

@RUN SYS:BLIS10
*,BUILD/M=BUILD.BLI
*,SCAN0/M=SCAN0.BLI
*,SCNR/M=SCNR.BLI
*,TRACE1/M=TRACE1.BLI
*,ERROR0/C=ERROR0.BLI
*,BLIO/M=BLIO.BLI
*,NUMIO1/M=NUMIO1.BLI
*,DEFLT/M=DEFLT.BLI
*,TBL/M=TBL.BLI
*,OUTZ/M=OUTZ.BLI

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

@RUN SYS:CREF
*QTAB1=QTAB1
*ERRTB3=ERRTB3
*^Z


BLDCK::
@CHKPNT BLDCK
@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

@RUN SYS:BLIS10
*,LEFT72/M=LEFT72.BLI

!	THE UNDECLARED IDENTIFIER ERROR "ACTIONNAME" FROM LEFTFM CAN BE IGNORED

@RUN SYS:BLIS10
*,LEFTFM/M=LEFTFM.BLI


P0BEG::
@CHKPNT P0BEG

!	**********	PHASE 0		**********

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

!	MAKE THE COMPILATION AND ASSEMBLY SWITCH DEFINITION FILES
!	  TO GENERATE THE COMPILER FOR TOPS-20, SINGLE SEGMENT

!	DELETE ANY RANDOM SWITCH AND REQUIRE FILES THAT ARE LYING AROUND

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

@COPY TTY: (TO) DBUGIT.REQ
@BIND DBUGIT=0;			!  DEBUGGING CODE NOT IN PHASE 1
@^Z

@COPY TTY: (TO) FT1SEG.REQ
@GLOBAL BIND FT1SEG=1;		! SINGLE SEGMENT
@^Z

@COPY TTY: (TO) FTTENX.REQ
@GLOBAL BIND FTTENEX=1;		! TOPS-20
@^Z

@COPY TTY: (TO) FTTENX.MAC
@UNIVERSAL FTTENX
@	.DIRECTIVE .NOBIN
@	FTTENX==1		; TOPS-20
@	END
@^Z

@RUN SYS:BLIS10
*,ONESEG/M=MAIN.BLI
*,GLOBAL/M=GLOBAL.BLI
*,INOUT/M=INOUT.BLI
*,UNEND/M=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

@RUN SYS:CREF
*DSK:FTTENX=FTTENX
*DSK:REVHST=REVHST
*DSK:EXOSUP=EXOSUP
*DSK:ERR3=ERR3
*DSK:JOBD=JOBD
*DSK:GFOPDF=GFOPDF
*DSK:COMMAN=COMMAN
*^Z


P1BEG::
@CHKPNT P1BEG

!	**********	PHASE 1		**********

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

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

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

@RUN SYS:CREF
*DSK:FLTGEN=FLTGEN
*DSK:CNSTCM=CNSTCM
*^Z


FORMC::
@CHKPNT FORMC

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

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


P2SBE::
@CHKPNT P2SBE

!	**********	PHASE 2S	**********

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

@RUN SYS:BLIS10
*,MEMCMP/M=MEMCMP.BLI
*,SKSTMN/M=SKSTMN.BLI
*,GOPT2/M=GOPT2.BLI
*,INPT/M=INPT.BLI
*,P2S1/M=P2S1.BLI



P2S2C::
@CHKPNT P2S2C

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

@RUN SYS:BLIS10
*,P2S2/M=P2S2.BLI
*,CANNON/M=CANNON.BLI
*,COMSUB/M=COMSUB.BLI
*,GOPTIM/M=GOPTIM.BLI
*,UTIL/M=UTIL.BLI
*,PH2S/M=PH2S.BLI



P2BEG::
@CHKPNT P2BEG

!	**********	PHASE 2		**********

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

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



P3GBE::
@CHKPNT P3GBE

!	**********	PHASE 3G	**********

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

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


P3RBE::
@CHKPNT P3RBE

!	**********	PHASE 3R	**********

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

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


P3BEG::
@CHKPNT P3BEG

!	**********	PHASE 3		**********

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

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

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

@RUN SYS:CREF
*DSK:OPGNTA=OPGNTA
*^Z


STUFF::
@CHKPNT STUFF

!	**********	MISC. REQUIRE FILES	**********

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

@DELETE STUFF.LST,FITAOP.BLI

@TV
*;WSTUFF.LST^[^[
*I! ^[ 50<I*^[> I ASHELP.BLI

^[ ;Y^[^[ASHELP.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I F72BNF.BLI

^[ ;Y^[^[F72BNF.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I F72BNF.SYN

^[ ;Y^[^[F72BNF.SYN
 ZJ I
^[^[
*I! ^[ 50<I*^[> I FMTLEX.BLI

^[ ;Y^[^[FMTLEX.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I FRMBNF.BLI

^[ ;Y^[^[FRMBNF.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I FRMBNF.SYN

^[ ;Y^[^[FRMBNF.SYN
 ZJ I
^[^[
*I! ^[ 50<I*^[> I LEXAID.BLI

^[ ;Y^[^[LEXAID.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I LEXNAM.BLI

^[ ;Y^[^[LEXNAM.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I LOOK72.BLI

^[ ;Y^[^[LOOK72.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I LOOKFM.BLI

^[ ;Y^[^[LOOKFM.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I META72.BLI

^[ ;Y^[^[META72.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I METAFM.BLI

^[ ;Y^[^[METAFM.BLI
 ZJ I
^[^[
*I! ^[ 50<I*^[> I REQREL.BLI

^[ ;Y^[^[REQREL.BLI
 ZJ I
^[^[
*;X^[^[

@COPY TTY: (TO) FITAOP.BLI
@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

!	**********	ALL LISTING PHASES COMPLETE	**********

@NOERROR

@TAKE B20FTN.CMD
@INFORMATION LOGICAL DSK:
@INFORMATION LOGICAL SYS:

!@PRINT /LOWER *.LST

%ERR::
%FIN::
     
!	[END OF L20FTN.CTL]