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]