Trailing-Edge
-
PDP-10 Archives
-
AP-D480B-SB_1978
-
b10ftn.ctl
There are 10 other files named b10ftn.ctl in the archive. Click here to see a list.
; JOB TO BUILD THE FORTRAN COMPILER ON THE DECSYSTEM-10
; SUBMIT B10FTN.CTL/TIME:020000/RESTART:1
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;COPYRIGHT (C) 1976,1977 BY DIGITAL EQUIPMENT CORPORATION
; VERSION 5A(621) B10FTN.CTL Oct-77
;This control file describes the procedures used to build the distributed
;software. It is unlikely that this control file can be submitted
;without modification on customer systems. Submit times may vary
;depending on system configuration and load. The availability of
;sufficient disk space and core is mandatory. This control file has not
;been extensively tested on alternate configurations. It has been used
;successfully for its intended purpose: to build the distributed
;software on our development systems.
; FUNCTION: THIS CONTROL FILE BUILDS THE STANDARD FORTRAN COMPILER
; AND ITS RELATED DOCUMENTATION FROM SOURCES. IT
; UTILIZES FIELD IMAGE SOFTWARE.
; INPUT: THE FOLLOWING FILES ARE REQUIRED BY THIS JOB IN THE
; DISK AREAS INDICATED:
; BLS: BLIS10 .EXE ; VERSION 7B(222)
; BLS: BLIS10 .ERR
; BLS: BLIS10 .HLP
; UNV: C .UNV ; AUTOMATICALLY SEARCHED BY MACRO
; SYS: COMPIL .EXE
; SYS: DIRECT .EXE
; SYS: HELPER .REL ; VERSION 5
; SYS: JOBDAT .REL ; AUTOMATICALLY LOADED BY LINK
; SYS: LINK .EXE AND ASSOCIATED HIGH SEGMENTS
; ASM: MACRO .EXE ; VERSION 52
; SYS: PIP .EXE
; SYS: RUNOFF .EXE
; REL: SCAN .REL ; VERSION 7B(572)
; UNV: SCNMAC .UNV ; AUTOMATICALLY SEARCHED BY LINK
; SYS: TECO .EXE
; SYS: WILD .REL ; VERSION 7
; DSK:[AREA UNDER WHICH B10FTN.CTL IS BEING RUN]
; INDIRECT COMMAND FILES USED BY B10FTN.CTL:
; A .CMD LOADS FORTRA
; ALL .CMD LOADS SINGLE
; B .CMD LOADS FORTB
; BLD .CMD LOADS BUILD
; C .CMD LOADS FORTC
; D .CMD LOADS FORTD
; DA .CMD LOADS FORTRA WITH DDT
; DB .CMD LOADS FORTB WITH DDT
; DC .CMD LOADS FORTC WITH DDT
; DD .CMD LOADS FORTD WITH DDT
; DE .CMD LOADS FORTE WITH DDT
; DF .CMD LOADS FORTF WITH DDT
; DG .CMD LOADS FORTG WITH DDT
; E .CMD LOADS FORTE
; F .CMD LOADS FORTF
; G .CMD LOADS FORTG
; LEFT72 .CMD LOADS LEFT72
; LEFTFM .CMD LOADS LEFTFM
; SOURCES FOR BUILDING SYNTAX TABLES:
; BLIO .BLI
; BUILD .BLI
; DEFLT .BLI
; ERROR0 .BLI
; ERRTB3 .MAC
; F72BNF .SYN
; FMTLEX .BLI
; FRMBNF .SYN
; LEFT72 .BLI
; LEFTFM .BLI
; NUMIO1 .BLI
; OUTZ .BLI
; QTAB1 .MAC
; SCAN0 .BLI
; SCNR .BLI
; TBL .BLI
; TRACE1 .BLI
; REMAINING COMPILER SOURCES:
; [SEE DIRECTORY COMMAND BELOW]
; COMPILER DOCUMENTATION SOURCES:
; FTN5A .RND
; FTN5A .RNF
; FTN5A .RNH
; MODULE .RND
; OUTPUT: THE FOLLOWING FILES ARE GENERATED BY THIS CONTROL FILE
; AND WILL BE AVAILABLE ON THIS DISK AREA AT JOB
; TERMINATION:
; DSK:[AREA UNDER WHICH B10FTN.CTL IS BEING RUN]
; FROM SYNTAX TABLE BUILDING SECTION:
; * INDICATES REQUIRED FORTRAN COMPILER SOURCE COMPONENT
; BLIO .REL
; BUILD .EXE
; BUILD .REL
; DEFLT .REL
; ERROR0 .REL
; ERRTB3 .REL
; *F72BNF .BLI
; LEFT72 .EXE
; LEFT72 .REL
; LEFTFM .EXE
; LEFTFM .REL
; *LOOK72 .BLI
; *LOOKFM .BLI
; *FRMBNF .BLI
; *META72 .BLI
; METAFM .BLI
; NUMIO1 .REL
; OUTZ .REL
; QTAB1 .REL
; SCAN0 .REL
; SCNR .REL
; TBL .REL
; TRACE1 .REL
START::
.CHKPNT START
.DEAS
.SET WATCH ALL
.NOERROR
.INITIA
.TYPE SWITCH.INI
MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; TAKE A CHECKSUMMED DIRECTORY OF ALL OF THE SYSTEM SOFTWARE
.DIRECT/CH -
*BLIS10 .EXE BLS: ,-
*BLIS10 .ERR BLS: ,-
*BLIS10 .HLP BLS: ,-
*C .UNV UNV: ,-
*COMPIL .EXE SYS: ,-
*DIRECT .EXE SYS: ,-
*HELPER .REL SYS: ,-
*JOBDAT .REL SYS: ,-
*LINK .EXE SYS: ,-
*LNK??? .EXE SYS: ,-
*MACRO .EXE ASM: ,-
*PIP .EXE SYS: ,-
*RUNOFF .EXE SYS: ,-
*SCAN .REL REL: ,-
*SCNMAC .UNV UNV: ,-
*TECO .EXE SYS: ,-
*WILD .REL SYS:
; CHECK VERSION OF HELPER
.R LINK
*SYS:HELPER
*/VAL:%HELPR
; CHECK VERSION OF SCAN
.R LINK
*REL:SCAN
*/VAL:%%SCAN
; CHECK VERSION OF WILD
.R LINK
*SYS:WILD
*/VAL:%%WILD
; TAKE A CHECKSUMMED DIRECTORY OF ALL OF THE INPUT FILES
.DIRECT/CH -
*A .CMD ,-
*ACT0 .BLI ,-
*ACT1 .BLI ,-
*ALCBLO .BLI ,-
*ALL .CMD ,-
*ARRXPN .BLI ,-
*ASHELP .BLI ,-
*B .CMD ,-
*B10FTN .CTL ,-
*BLD .CMD ,-
*BLIO .BLI ,-
*BUILD .BLI ,-
*C .CMD ,-
*CANNON .BLI ,-
*CGDO .BLI ,-
*CGEXPR .BLI ,-
*CGSTMN .BLI ,-
*CMPBLO .BLI ,-
*CMPLEX .BLI ,-
*CNSTCM .MAC ,-
*CODETA .BLI ,-
*COMMAN .MAC ,-
*COMSUB .BLI ,-
*D .CMD ,-
*DA .CMD ,-
*DB .CMD ,-
*DC .CMD ,-
*DD .CMD ,-
*DE .CMD ,-
*DF .CMD ,-
*DG .CMD ,-
*DATAST .BLI ,-
*DEBUG .BLI ,-
*DEFLT .BLI ,-
*DEFPT .BLI ,-
*DGCMN .MAC ,-
*DNPT .MAC ,-
*DOALC .BLI ,-
*DOPT .MAC ,-
*DOXPN .BLI ,-
*DPSIM .MAC ,-
*DRIVER .BLI ,-
*E .CMD ,-
*ERR3 .MAC ,-
*ERROR0 .BLI ,-
*ERROUT .BLI ,-
*ERROVA .BLI ,-
*ERROVB .BLI ,-
*ERROVC .BLI ,-
*ERROVD .BLI ,-
*ERROVG .BLI ,-
*ERROVR .BLI ,-
*ERRTB3 .MAC ,-
*EXPRES .BLI ,-
*F .CMD ,-
*F72BNF .SYN ,-
*FAZ1 .BLI ,-
*FIRST .BLI ,-
*FLTGEN .MAC ,-
*FMTLEX .BLI ,-
*FORMAT .BLI ,-
*FRMBNF .SYN ,-
*FTN5A .RND ,-
*FTN5A .RNF ,-
*FTN5A .RNH ,-
*G .CMD ,-
*GCMNSB .BLI ,-
*GLOBAL .BLI ,-
*GNRCFN .BLI ,-
*GOPT2 .BLI ,-
*GOPTIM .BLI ,-
*GRAPH .BLI ,-
*INOUT .BLI ,-
*INPT .BLI ,-
*IOFLG .BLI ,-
*IOPT .BLI ,-
*JOBD .MAC ,-
*LEFT72 .BLI ,-
*LEFT72 .CMD ,-
*LEFTFM .BLI ,-
*LEFTFM .CMD ,-
*LEXAID .BLI ,-
*LEXICA .BLI ,-
*LEXNAM .BLI ,-
*LEXSUP .BLI ,-
*LISTNG .BLI ,-
*LISTOU .BLI ,-
*MAIN .BLI ,-
*MEMCMP .BLI ,-
*MODULE .RND ,-
*MOVA .BLI ,-
*NUMIO1 .BLI ,-
*OPGNTA .MAC ,-
*OPTAB .BLI ,-
*OPTMAC .BLI ,-
*OUTMOD .BLI ,-
*OUTZ .BLI ,-
*OWNDM .MAC ,-
*P2S1 .BLI ,-
*P2S2 .BLI ,-
*P3R .BLI ,-
*PEEPOP .BLI ,-
*PH2S .BLI ,-
*PH3G .BLI ,-
*PHA2 .BLI ,-
*PHA3 .BLI ,-
*PNROPT .BLI ,-
*QTAB1 .MAC ,-
*REGAL2 .BLI ,-
*REGUTL .BLI ,-
*RELBUF .BLI ,-
*REQREL .BLI ,-
*SCAN0 .BLI ,-
*SCNR .BLI ,-
*SKSTMN .BLI ,-
*SRCA .BLI ,-
*STA0 .BLI ,-
*STA1 .BLI ,-
*STA2 .BLI ,-
*STA3 .BLI ,-
*STREGA .BLI ,-
*TABLES .BLI ,-
*TBL .BLI ,-
*TRACE1 .BLI ,-
*TSTR .BLI ,-
*UNEND .BLI ,-
*UTIL .BLI ,-
*VER5 .BLI ,-
*VLTPPR .BLI
; INCLUDE CHECKSUMMED DIRECTORY OF MISCELLANEOUS FILES
.DIRECT/CH -
*DALL .CMD ,-
*DIRF10 .CTL ,-
*DMPF10 .CTL ,-
*LISTA .CTL ,-
*LISTB .CTL ,-
*LISTC .CTL ,-
*LISTD .CTL ,-
*LISTE .CTL ,-
*LISTF .CTL ,-
*LISTG .CTL ,-
*LISTT .CTL ,-
*REQUIR .CTL
BUILC::
.CHKPNT BUILC
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; FIRST WE BUILD THE SYNTAX TABLE BUILDERS AND SYNTAX TABLES
; FIRST COMPILE AND LOAD THE TABLE BUILDING PROGRAM.
.RUN BLS:BLIS10
*BUILD=BUILD.BLI
; NOW COMPILE ALL I/O UTILITIES.
.RUN ASM:MACRO
*QTAB1=QTAB1.MAC
.RUN ASM:MACRO
*ERRTB3=ERRTB3.MAC
.RUN BLS:BLIS10
*SCAN0=SCAN0.BLI
.RUN BLS:BLIS10
*SCNR=SCNR.BLI
.RUN BLS:BLIS10
*TRACE1=TRACE1.BLI
.RUN BLS:BLIS10
*ERROR0=ERROR0.BLI
.RUN BLS:BLIS10
*BLIO=BLIO.BLI
.RUN BLS:BLIS10
*NUMIO1=NUMIO1.BLI
.RUN BLS:BLIS10
*DEFLT=DEFLT.BLI
.RUN BLS:BLIS10
*TBL=TBL.BLI
.RUN BLS:BLIS10
*OUTZ=OUTZ.BLI
BLDCK::
.CHKPNT BLDCK
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; NOW LOAD THE BUILDER WITH I/O UTILITIES AND EXECUTE
.TYPE BLD.CMD
.R LINK
*@BLD.CMD
.SAVE BUILD
; BUILD STATEMENT SYNTAX TABLES
; BUILD REQUIRES _ NOT =
.RUN DSK:BUILD
*META72.BLI,F72BNF.BLI_F72BNF.SYN
*0
*N
; NOW BUILD FORMAT SYNTAX TABLES
; BUILD REQUIRES _ NOT =
.RUN DSK:BUILD
*METAFM.BLI,FRMBNF.BLI_FRMBNF.SYN
*0
*N
; NOW DO THE COMPILATIONS FOR THE LOOK AHEAD TABLE BUILDERS.
.RUN BLS:BLIS10
*LEFT72=LEFT72.BLI
; THE UNDECLARED IDENTIFIER ERROR "ACTIONNAME" FROM LEFTFM CAN BE IGNORED
.RUN BLS:BLIS10
*LEFTFM=LEFTFM.BLI
PKLOD::
.CHKPNT PKLOD
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; NOW LOAD, SAVE, AND EXECUTE THE GENERAL SYNTAX LOOK AHEAD BUILDER
; THE 12 UNDEFINED GLOBALS IN LEFT72 LOADING CAN BE IGNORED
.TYPE LEFT72.CMD
.R LINK
*@LEFT72.CMD
.SAVE LEFT72
.RUN DSK:LEFT72
*3=LOOK72.BLI
*0
; NOW LOAD, SAVE, AND EXECUTE THE FORMAT LOOK AHEAD TABLE BUILDER
; THE 1 UNDEFINED GLOBAL IN LOADING LEFTFM CAN BE IGNORED
.TYPE LEFTFM.CMD
.R LINK
*@LEFTFM.CMD
.SAVE LEFTFM
.RUN DSK:LEFTFM
*3=LOOKFM.BLI
*0
; NOW REMOVE THE TABLES FROM FRMBNF.BLI AND F72BNF.BLI THAT ARE
; UNNECESSARY FOR PHASE 1
.TECO F72BNF.BLI
*NLEFTBUILDJSBIND0L.U0S;0L
*<I!0LQ0-."E0;'-L>
*NLEFTBUILDN-L.U0S;-L
=<I!0LQ0-."E0;'-L>EX
.DELETE F72BNF.BAK
.TECO FRMBNF.BLI
*NLEFTBUILDJSBIND0L.U0S;0L
=<I!0LQ0-."E0;'-L>EX
.DELETE FRMBNF.BAK
.DIRECT/CH -
*BLIO .REL ,-
*BUILD .EXE ,-
*BUILD .REL ,-
*DEFLT .REL ,-
*ERROR0 .REL ,-
*ERRTB3 .REL ,-
*F72BNF .BLI ,-
*LEFT72 .EXE ,-
*LEFT72 .REL ,-
*LEFTFM .EXE ,-
*LEFTFM .REL ,-
*LOOK72 .BLI ,-
*LOOKFM .BLI ,-
*FRMBNF .BLI ,-
*META72 .BLI ,-
*METAFM .BLI ,-
*NUMIO1 .REL ,-
*OUTZ .REL ,-
*QTAB1 .REL ,-
*SCAN0 .REL ,-
*SCNR .REL ,-
*TBL .REL ,-
*TRACE1 .REL
; NOTE THAT ANY UNDEFINED GLOBALS IN THE LOADS INVOLVED IN THIS BUILDING
; PROCESS UP TO THIS POINT CAN BE SAFELY IGNORED.
; IT IS RECOMMENDED THAT IF AN INSTALLATION IS NOT MODIFYING THE SYNTAX
; TABLES THAT THE BUILDING PROCESS BE STARTED HERE AT P0BEG.
; ********** PHASE 0 ********** FORTRA
P0BEG::
.CHKPNT P0BEG
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.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.OFF, FT1SEG.OFF, FTTENX.OFF, FTTENX.MAC
.MAKE DBUGIT.OFF
*IBIND DBUGIT=0; ! NO DEBUG CODE IN PHASE 1
HTEX
.MAKE FT1SEG.OFF
*IGLOBAL BIND FT1SEG=0; ! NOT SINGLE SEGMENT
HTEX
.MAKE FTTENX.OFF
*IGLOBAL BIND FTTENEX=0; ! TOPS-10
HTEX
; DELETE ANY RANDOM .REQ FILES THAT ARE LYING AROUND
.DELETE DBUGIT.REQ, FT1SEG.REQ, FTTENX.REQ
.COPY DBUGIT.REQ = DBUGIT.OFF
.COPY FT1SEG.REQ = FT1SEG.OFF
.COPY FTTENX.REQ = FTTENX.OFF
.MAKE FTTENX.MAC
*IUNIVERSAL FTTENX
FTTENX==0 ; TOPS-10
END
HTEX
.RUN ASM:MACRO
*FTTENX=FTTENX.MAC
MAINC::
.RUN BLS:BLIS10
*MAIN=MAIN.BLI
GLOBC::
.RUN BLS:BLIS10
*GLOBAL=GLOBAL.BLI
ERR3C::
.RUN ASM:MACRO
*ERR3=ERR3.MAC
INOUC::
.RUN BLS:BLIS10
*INOUT=INOUT.BLI
ERRAC::
.RUN BLS:BLIS10
*ERROVA=ERROVA.BLI
UNENC::
.RUN BLS:BLIS10
*UNEND=UNEND.BLI
; USE FIELD IMAGE C.UNV, SCAN.REL AND SCNMAC.UNV
JOBDC::
.RUN ASM:MACRO
*JOBD=JOBD.MAC
COMMC::
.RUN ASM:MACRO
*COMMAN=COMMAN.MAC
OWNDC::
.RUN ASM:MACRO
*OWNDM=OWNDM.MAC
.DIRECT/CH -
*COMMAN .REL ,-
*DBUGIT .OFF ,-
*DBUGIT .REQ ,-
*ERR3 .REL ,-
*ERROVA .REL ,-
*FT1SEG .OFF ,-
*FT1SEG .REQ ,-
*FTTENX .OFF ,-
*FTTENX .MAC ,-
*FTTENX .REL ,-
*FTTENX .REQ ,-
*FTTENX .UNV ,-
*GLOBAL .REL ,-
*INOUT .REL ,-
*JOBD .REL ,-
*MAIN .REL ,-
*OWNDM .REL ,-
*UNEND .REL
; ALL PHASE 0 SOURCES ARE NOW COMPILED. LET'S LOAD PHASE 0.
P0END::
.CHKPNT P0END
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; BUILD DDT VERSION OF FORTRA.EXE
.TYPE DA.CMD
.R LINK
*@DA.CMD
.GET DSK:FORTRA.LOW
.NSAVE DORTRA.EXE
.DELETE FORTRA.LOW, FORTRA.HGH
.TYPE A.CMD
.R LINK
*@A.CMD
; BUILD FORTRA.EXE
.GET DSK:FORTRA.LOW
.CORE
.NSSAVE
; ********** PHASE 1 ********** FORTB
P1BEG::
.CHKPNT P1BEG
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
SRCAC::
.RUN BLS:BLIS10
*SRCA=SRCA.BLI
ERRBC::
.RUN BLS:BLIS10
*ERROVB=ERROVB.BLI
ERROC::
.RUN BLS:BLIS10
*ERROUT=ERROUT.BLI
FLTGC::
.RUN ASM:MACRO
*FLTGEN=FLTGEN.MAC
VLTPC::
.RUN BLS:BLIS10
*VLTPPR=VLTPPR.BLI
ARRXC::
.RUN BLS:BLIS10
*ARRXPN=ARRXPN.BLI
DOXPC::
.RUN BLS:BLIS10
*DOXPN=DOXPN.BLI
CNSTC::
.RUN ASM:MACRO
*CNSTCM=CNSTCM.MAC
DPSIC::
.RUN ASM:MACRO
*DPSIM=DPSIM.MAC
FAZ1C::
.RUN BLS:BLIS10
*FAZ1=FAZ1.BLI
GNRCC::
.RUN BLS:BLIS10
*GNRCFN=GNRCFN.BLI
EXPRC::
.RUN BLS:BLIS10
*EXPRES=EXPRES.BLI
.DIRECT/CH -
*ARRXPN .REL ,-
*CNSTCM .REL ,-
*DOXPN .REL ,-
*DPSIM .REL ,-
*ERROUT .REL ,-
*ERROVB .REL ,-
*EXPRES .REL ,-
*FAZ1 .REL ,-
*FLTGEN .REL ,-
*GNRCFN .REL ,-
*SRCA .REL ,-
*VLTPPR .REL
FORMC::
.CHKPNT FORMC
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
.RUN BLS:BLIS10
*FORMAT=FORMAT.BLI
ACT0C::
.RUN BLS:BLIS10
*ACT0=ACT0.BLI
ACT1C::
.RUN BLS:BLIS10
*ACT1=ACT1.BLI
STA0C::
.RUN BLS:BLIS10
*STA0=STA0.BLI
STA1C::
.RUN BLS:BLIS10
*STA1=STA1.BLI
STA2C::
.RUN BLS:BLIS10
*STA2=STA2.BLI
STA3C::
.RUN BLS:BLIS10
*STA3=STA3.BLI
LISTC::
.RUN BLS:BLIS10
*LISTNG=LISTNG.BLI
LEXSC::
.RUN BLS:BLIS10
*LEXSUP=LEXSUP.BLI
CODEC::
.RUN BLS:BLIS10
*CODETA=CODETA.BLI
; LEXICA.BLI REQUIRES 75K OF CORE TO COMPILE
LEXIC::
.PLEASE SET CORMAX TO 75K FOR A LITTLE WHILE - THANK YOU
.PLEASE ANOTHER MESSAGE WILL BE SENT WHEN THE COMPILATION IS DONE
.RUN BLS:BLIS10
*LEXICA=LEXICA.BLI
.PLEASE CORMAX CAN BE RESET NOW - THANK YOU
DRIVC::
.RUN BLS:BLIS10
*DRIVER=DRIVER.BLI
.DIRECT/CH -
*ACT0 .REL ,-
*ACT1 .REL ,-
*CODETA .REL ,-
*DRIVER .REL ,-
*FORMAT .REL ,-
*LEXICA .REL ,-
*LEXSUP .REL ,-
*LISTNG .REL ,-
*STA0 .REL ,-
*STA1 .REL ,-
*STA2 .REL ,-
*STA3 .REL
; ALL PHASE 1 SOURCES ARE NOW COMPILED. LET'S LOAD PHASE 1.
P1END::
.CHKPNT P1END
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; BUILD DDT VERSION OF FORTB.EXE
.TYPE DB.CMD
.R LINK
*@DB.CMD
.GET DSK:FORTB.LOW
.NSAVE DORTB.EXE
.DELETE FORTB.LOW, FORTB.HGH
.TYPE B.CMD
; THE 4 UNDEFINED GLOBALS WHEN LINKING FORTB CAN BE IGNORED
.R LINK
*@B.CMD
.GET DSK:FORTB.LOW
.CORE
.NSSAVE
; ********** PHASE 2S ********** FORTC
P2SBE::
.CHKPNT P2SBE
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
MEMCC::
.RUN BLS:BLIS10
*MEMCMP=MEMCMP.BLI
ERRCC::
.RUN BLS:BLIS10
*ERROVC=ERROVC.BLI
SKSTC::
.RUN BLS:BLIS10
*SKSTMN=SKSTMN.BLI
GOP2C::
.RUN BLS:BLIS10
*GOPT2=GOPT2.BLI
INPTC::
.RUN BLS:BLIS10
*INPT=INPT.BLI
DOPTC::
.RUN ASM:MACRO
*DOPT=DOPT.MAC
P2S1C::
.RUN BLS:BLIS10
*P2S1=P2S1.BLI
.DIRECT/CH -
*DOPT .REL ,-
*ERROVC .REL ,-
*GOPT2 .REL ,-
*INPT .REL ,-
*MEMCMP .REL ,-
*P2S1 .REL ,-
*SKSTMN .REL
P2S2C::
.CHKPNT P2S2C
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
.RUN BLS:BLIS10
*P2S2=P2S2.BLI
CANNC::
.RUN BLS:BLIS10
*CANNON=CANNON.BLI
COMSC::
.RUN BLS:BLIS10
*COMSUB=COMSUB.BLI
DGCMC::
.RUN ASM:MACRO
*DGCMN=DGCMN.MAC
GOPTC::
.RUN BLS:BLIS10
*GOPTIM=GOPTIM.BLI
UTILC::
.RUN BLS:BLIS10
*UTIL=UTIL.BLI
PH2SC::
.RUN BLS:BLIS10
*PH2S=PH2S.BLI
.DIRECT/CH -
*CANNON .REL ,-
*COMSUB .REL ,-
*DGCMN .REL ,-
*GOPTIM .REL ,-
*P2S2 .REL ,-
*PH2S .REL ,-
*UTIL .REL
; ALL PHASE 2S SOURCES ARE NOW COMPILED. LET'S LOAD PHASE 2S.
P2SEN::
.CHKPNT P2SEN
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; BUILD DDT VERSION OF FORTC.EXE
.TYPE DC.CMD
.R LINK
*@DC.CMD
.GET DSK:FORTC.LOW
.NSAVE DORTC.EXE
.DELETE FORTC.LOW, FORTC.HGH
.TYPE C.CMD
; THE 4 UNDEFINED GLOBALS WHEN LINKING FORTC CAN BE IGNORED
.R LINK
*@C.CMD
.GET DSK:FORTC.LOW
.CORE
.NSSAVE
; ********** PHASE 2 ********** FORTD
P2BEG::
.CHKPNT P2BEG
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
GRAPC::
.RUN BLS:BLIS10
*GRAPH=GRAPH.BLI
ERRDC::
.RUN BLS:BLIS10
*ERROVD=ERROVD.BLI
MOVAC::
.RUN BLS:BLIS10
*MOVA=MOVA.BLI
DNPTC::
.RUN ASM:MACRO
*DNPT=DNPT.MAC
IOPTC::
.RUN BLS:BLIS10
*IOPT=IOPT.BLI
GCMNC::
.RUN BLS:BLIS10
*GCMNSB=GCMNSB.BLI
DEFPC::
.RUN BLS:BLIS10
*DEFPT=DEFPT.BLI
PNROC::
.RUN BLS:BLIS10
*PNROPT=PNROPT.BLI
TSTRC::
.RUN BLS:BLIS10
*TSTR=TSTR.BLI
VER5C::
.RUN BLS:BLIS10
*VER5=VER5.BLI
PHA2C::
.RUN BLS:BLIS10
*PHA2=PHA2.BLI
.DIRECT/CH -
*DEFPT .REL ,-
*DNPT .REL ,-
*ERROVD .REL ,-
*GCMNSB .REL ,-
*GRAPH .REL ,-
*IOPT .REL ,-
*MOVA .REL ,-
*PHA2 .REL ,-
*PNROPT .REL ,-
*TSTR .REL ,-
*VER5 .REL
; ALL PHASE 2 SOURCES ARE NOW COMPILED. LET'S LOAD PHASE 2.
P2END::
.CHKPNT P2END
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; BUILD DDT VERSION OF FORTD.EXE
.TYPE DD.CMD
.R LINK
*@DD.CMD
.GET DSK:FORTD.LOW
.NSAVE DORTD.EXE
.DELETE FORTD.LOW, FORTD.HGH
.TYPE D.CMD
; THE 4 UNDEFINED GLOBALS WHEN LINKING FORTD CAN BE IGNORED
.R LINK
*@D.CMD
.GET DSK:FORTD.LOW
.CORE
.NSSAVE
; ********** PHASE 3G ********** FORTE
P3GBE::
.CHKPNT P3GBE
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
STREC::
.RUN BLS:BLIS10
*STREGA=STREGA.BLI
ERRRC::
.RUN BLS:BLIS10
*ERROVR=ERROVR.BLI
REGUC::
.RUN BLS:BLIS10
*REGUTL=REGUTL.BLI
CMPLC::
.RUN BLS:BLIS10
*CMPLEX=CMPLEX.BLI
CMPBC::
.RUN BLS:BLIS10
*CMPBLO=CMPBLO.BLI
ALCBC::
.RUN BLS:BLIS10
*ALCBLO=ALCBLO.BLI
DOALC::
.RUN BLS:BLIS10
*DOALC=DOALC.BLI
REGAC::
.RUN BLS:BLIS10
*REGAL2=REGAL2.BLI
RELBC::
.RUN BLS:BLIS10
*RELBUF=RELBUF.BLI
DATAC::
.RUN BLS:BLIS10
*DATAST=DATAST.BLI
OUTMC::
.RUN BLS:BLIS10
*OUTMOD=OUTMOD.BLI
PH3GC::
.RUN BLS:BLIS10
*PH3G=PH3G.BLI
.DIRECT/CH -
*ALCBLO .REL ,-
*CMPBLO .REL ,-
*CMPLEX .REL ,-
*DATAST .REL ,-
*DOALC .REL ,-
*ERROVR .REL ,-
*OUTMOD .REL ,-
*PH3G .REL ,-
*REGAL2 .REL ,-
*REGUTL .REL ,-
*RELBUF .REL ,-
*STREGA .REL
; ALL PHASE 3G SOURCES ARE NOW COMPILED. LET'S LOAD PHASE 3G.
P3GEN::
.CHKPNT P3GEN
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; BUILD DDT VERSION OF FORTE.EXE
.TYPE DE.CMD
.R LINK
*@DE.CMD
.GET DSK:FORTE.LOW
.NSAVE DORTE.EXE
.DELETE FORTE.LOW, FORTE.HGH
.TYPE E.CMD
; THE 4 UNDEFINED GLOBALS WHEN LINKING FORTE CAN BE IGNORED
.R LINK
*@E.CMD
.GET DSK:FORTE.LOW
.CORE
.NSSAVE
; ********** PHASE 3R ********** FORTF
P3RBE::
.CHKPNT P3RBE
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
P3RCC::
.RUN BLS:BLIS10
*P3R=P3R.BLI
.DIRECT/CH -
*P3R .REL
; ALL PHASE 3R SOURCES ARE NOW COMPILED. LET'S LOAD PHASE 3R.
; BUILD DDT VERSION OF FORTF.EXE
.TYPE DF.CMD
.R LINK
*@DF.CMD
.GET DSK:FORTF.LOW
.NSAVE DORTF.EXE
.DELETE FORTF.LOW, FORTF.HGH
.TYPE F.CMD
; THE 4 UNDEFINED GLOBALS WHEN LINKING FORTF CAN BE IGNORED
.R LINK
*@F.CMD
.GET DSK:FORTF.LOW
.CORE
.NSSAVE
; ********** PHASE 3 ********** FORTG
P3BEG::
.CHKPNT P3BEG
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
OPTAC::
.RUN BLS:BLIS10
*OPTAB=OPTAB.BLI
ERRGC::
.RUN BLS:BLIS10
*ERROVG=ERROVG.BLI
CGDOC::
.RUN BLS:BLIS10
*CGDO=CGDO.BLI
CGSTC::
.RUN BLS:BLIS10
*CGSTMN=CGSTMN.BLI
CGEXC::
.RUN BLS:BLIS10
*CGEXPR=CGEXPR.BLI
OPGNC::
.RUN ASM:MACRO
*OPGNTA=OPGNTA.MAC
PEEPC::
.RUN BLS:BLIS10
*PEEPOP=PEEPOP.BLI
LISTC::
.RUN BLS:BLIS10
*LISTOU=LISTOU.BLI
DEBUC::
.RUN BLS:BLIS10
*DEBUG=DEBUG.BLI
PHA3C::
.RUN BLS:BLIS10
*PHA3=PHA3.BLI
.DIRECT/CH -
*CGDO .REL ,-
*CGEXPR .REL ,-
*CGSTMN .REL ,-
*DEBUG .REL ,-
*ERROVG .REL ,-
*LISTOU .REL ,-
*OPGNTA .REL ,-
*OPTAB .REL ,-
*PEEPOP .REL ,-
*PHA3 .REL
; ALL PHASE 3 SOURCES ARE NOW COMPILED. LET'S LOAD PHASE 3.
P3END::
.CHKPNT P3END
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; BUILD DDT VERSION OF FORTG.EXE
.TYPE DG.CMD
.R LINK
*@DG.CMD
.GET DSK:FORTG.LOW
.NSAVE DORTG.EXE
.DELETE FORTG.LOW, FORTG.HGH
.TYPE G.CMD
; THE 4 UNDEFINED GLOBALS WHEN LINKING FORTG CAN BE IGNORED
.R LINK
*@G.CMD
.GET DSK:FORTG.LOW
.CORE
.NSSAVE
; ********** ALL BUILDING PHASES COMPLETE **********
; CHECKSUM THE RESULTING FORTRAN SYSTEM
.DIRECT/CH -
*DORTB .EXE ,-
*DORTC .EXE ,-
*DORTD .EXE ,-
*DORTE .EXE ,-
*DORTF .EXE ,-
*DORTG .EXE ,-
*DORTRA .EXE ,-
*FORTB .EXE ,-
*FORTB .LOW ,-
*FORTB .MAP ,-
*FORTB .SHR ,-
*FORTC .EXE ,-
*FORTC .LOW ,-
*FORTC .MAP ,-
*FORTC .SHR ,-
*FORTD .EXE ,-
*FORTD .LOW ,-
*FORTD .MAP ,-
*FORTD .SHR ,-
*FORTE .EXE ,-
*FORTE .LOW ,-
*FORTE .MAP ,-
*FORTE .SHR ,-
*FORTF .EXE ,-
*FORTF .LOW ,-
*FORTF .MAP ,-
*FORTF .SHR ,-
*FORTG .EXE ,-
*FORTG .LOW ,-
*FORTG .MAP ,-
*FORTG .SHR ,-
*FORTRA .EXE ,-
*FORTRA .LOW ,-
*FORTRA .MAP ,-
*FORTRA .SHR
; MAKE THE SINGLE SEGMENT TOPS-10 COMPILER
PSNGL::
.CHKPNT PSNGL
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; DELETE ANY RANDOM SWITCH FILES THAT ARE LYING AROUND
.DELETE FT1SEG.ON
.MAKE FT1SEG.ON
*IGLOBAL BIND FT1SEG = 1; ! SINGLE SEGMENT
HTEX
.DELETE FT1SEG.BAK
.RENAME FT1SEG.BAK = FT1SEG.REQ
.COPY FT1SEG.REQ = FT1SEG.ON
; RECOMPILE MAIN.BLI AS ONESEG.REL
.R BLS:BLIS10
*ONESEG=MAIN.BLI
; CLEAN UP
.DELETE FT1SEG.REQ
.RENAME FT1SEG.REQ = FT1SEG.BAK
.DIRECT/CH -
*FT1SEG .ON ,-
*ONESEG .REL
.TYPE ALL.CMD
.R LINK
*@ALL
.GET DSK:SINGLE.LOW
.CORE
.NSSAVE
; CHECKSUM THE RESULTING FORTRAN SYSTEM
.DIRECT/CH -
*SINGLE .EXE ,-
*SINGLE .LOW ,-
*SINGLE .MAP ,-
*SINGLE .SHR
DOCC::
.CHKPNT DOCC
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
; CREATE THE DOCUMENTATION
.R RUNOFF
*FTN5A1.FIG=FTN5A.RNF
*FTN5A1.DOC=FTN5A.RND
*FORTRA.HLP=FTN5A.RNH
*MODULE.DOC=MODULE.RND
.DIRECT/CH -
*FORTRA .HLP ,-
*FTN5A1 .DOC ,-
*FTN5A1 .FIG ,-
*MODULE .DOC
NICEG::
.CHKPNT NICEG
.DEAS
.SET WATCH ALL
.NOERROR
.MOUNT FTN
.R SETSRC
*A FTN,*
*T
.AS DEC SYS
.AS DEC ASM ; USE MACRO 52
.AS NEW BLS ; USE BLIS10 7B(222)
.AS DEC REL ; USE SCAN 7B
.AS DEC UNV ; USE FIELD IMAGE C.UNV AND SCNMAC.UNV
.DIRECT/CH FTN:*.*
%FIN::
; [END OF B10FTN.CTL]