Google
 

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]