Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;++
;   FTN211.CTL -- Patch and rebuild FORTRAN-20-V11
;   Version 1(1)
;	April 10, 1987 / TGS / MRB 
;	May 4, 1988 / HAH Add branch for no update - requires
;			  PEP 1B(173) 
;
; COPYRIGHT (c) 1983, 1988 BY
;	    Digital Equipment Corporation, Maynard, MA.
;
;   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.
;

;
;   This .CTL  file  applies the  patches  to  the  modules  of
;   FORTRAN-20-V11 and rebuilds FORLIB.REL, the Fortran Compiler,
;   FORO11.EXE, and FORDDT.REL
;
;   For this .CTL file to run, the connected directory must  be
;   the patching directory (Logical name PAT:).
;
;   This .CTL file is expected to run without errors, with the exception
;   that building FORLIB with MAKLIB will get a
;
;	%MKLNIO OUTPUT file DSK:FORLIB.REL will not be INDEXed
;
;   diagnostic during /APPEND processing. This warning can be ignored,
;   and is incorrect since the resulting FORLIB is in fact INDEXed.
;--

;
;  Initalize Fortran
;

START::
@PEPB
*INITIALIZE FORTRAN-20-V11
*EXIT

;
;	Delete any sources that may be left in PAT:
;
@DELETE PAT:BLIO.BLI,PAT:BUILD.BLI,PAT:DEFLT.BLI,PAT:ERROR0.BLI,PAT:ERRTB3.MAC
@DELETE PAT:F72BNF.SYN,PAT:FMTLEX.BLI,PAT:FRMBNF.SYN,PAT:LEFT72.BLI,PAT:LEFTFM.BLI
@DELETE PAT:NUMIO1.BLI,PAT:OUTZ.BLI,PAT:QTAB1.MAC,PAT:SCAN0.BLI,PAT:SCNR.BLI
@DELETE PAT:TBL.BLI,PAT:TRACE1.BLI,PAT:ACT0.BLI,PAT:ACT1.BLI,PAT:ALCBLO.BLI
@DELETE PAT:ARRXPN.BLI,PAT:ASHELP.BLI,PAT:CANNON.BLI,PAT:CGDO.BLI,PAT:CGEXPR.BLI
@DELETE PAT:CGSTMN.BLI,PAT:CMPBLO.BLI,PAT:CMPLEX.BLI,PAT:CNSTCM.MAC,PAT:CODETA.BLI
@DELETE PAT:CMND20.MAC,PAT:COMSUB.BLI,PAT:DATAST.BLI,PAT:DEBUG.BLI,PAT:DEFPT.BLI
@DELETE PAT:DOALC.BLI,PAT:DOXPN.BLI,PAT:DRIVER.BLI,PAT:ERR3.MAC,PAT:ERROUT.BLI
@DELETE PAT:EXOSUP.MAC,PAT:EXPRES.BLI,PAT:FAZ1.BLI,PAT:FIRST.BLI,PAT:FLTGEN.MAC
@DELETE PAT:FORMAT.BLI,PAT:GCMNSB.BLI,PAT:GFOPDF.MAC,PAT:GLOBAL.BLI,PAT:GNRCFN.BLI
@DELETE PAT:GOPT2.BLI,PAT:GOPTIM.BLI,PAT:GRAPH.BLI,PAT:INOUT.BLI,PAT:INPT.BLI
@DELETE PAT:IOFLG.BLI,PAT:IOPT.BLI,PAT:JOBD.MAC,PAT:LEXAID.BLI,PAT:LEXICA.BLI
@DELETE PAT:LEXCLA.BLI,PAT:LEXNAM.BLI,PAT:LEXSUP.BLI,PAT:LISTNG.BLI,PAT:LISTOU.BLI
@DELETE PAT:MAIN.BLI,PAT:MEMCMP.BLI,PAT:MOVA.BLI,PAT:OPGNTA.MAC,PAT:OPTAB.BLI
@DELETE PAT:OPTMAC.BLI,PAT:OUTMOD.BLI,PAT:P2S1.BLI,PAT:P2S2.BLI,PAT:P3R.BLI
@DELETE PAT:PEEPOP.BLI,PAT:PH2S.BLI,PAT:PH3G.BLI,PAT:PHA2.BLI,PAT:PHA3.BLI
@DELETE PAT:PNROPT.BLI,PAT:REGAL2.BLI,PAT:REGUTL.BLI,PAT:RELBUF.BLI,PAT:REQREL.BLI
@DELETE PAT:REVHST.MAC,PAT:SKSTMN.BLI,PAT:SRCA.BLI,PAT:STA0.BLI,PAT:STA1.BLI
@DELETE PAT:STA2.BLI,PAT:STA3.BLI,PAT:STREGA.BLI,PAT:TABLES.BLI,PAT:TSTR.BLI
@DELETE PAT:UNEND.BLI,PAT:UTIL.BLI,PAT:VER5.BLI,PAT:VLTPPR.BLI
@DELETE PAT:FDDT.MAC,PAT:FORDDT.MAC,PAT:FDBML6.MAC,PAT:FORCHR.MAC,PAT:FORCNV.MAC
@DELETE PAT:FORDBM.MAC,PAT:FORDST.MAC,PAT:FORDUM.MAC,PAT:FOREND.MAC,PAT:FORERR.MAC
@DELETE PAT:FORFMT.MAC,PAT:FORHAK.MAC,PAT:FORHST.MAC,PAT:FORINI.MAC,PAT:FORIO.MAC
@DELETE PAT:FORMEM.MAC,PAT:FORMSC.MAC,PAT:FORMSG.MAC,PAT:FORNML.MAC,PAT:FOROP.MAC
@DELETE PAT:FOROPN.MAC,PAT:FOROTS.MAC,PAT:FORPL1.FOR,PAT:FORPL2.MAC,PAT:FORPRM.MAC
@DELETE PAT:FORPSE.MAC,PAT:FORSRT.MAC,PAT:FORXIT.MAC,PAT:FORBOT.MAC,PAT:FORCOM.MAC
@DELETE PAT:FORRMS.MAC,PAT:MTHTRP.MAC,PAT:MTHARG.MAC,PAT:MTHCDX.MAC,PAT:MTHCGX.MAC
@DELETE PAT:MTHCNV.MAC,PAT:MTHCPX.MAC,PAT:MTHDBL.MAC,PAT:MTHDUM.MAC,PAT:MTHGDB.MAC
@DELETE PAT:MTHMSG.MAC,PAT:MTHPRM.MAC,PAT:MTHSNG.MAC
@DELETE PAT:F20REL.MAC,PAT:M20REL.MAC,PAT:MTHEPR.MAC

;
;	Apply patches to the source modules
;

@ERROR %
@VDIR PAT:FTN211.SUP
@IF (ERROR) @GOTO NOUPD
@R ASL:UPDATE
*@PAT:FTN211.SUP
NOUPD::
@ERROR
@EXPUNGE PAT:

@DEFINE UNV: ASL:
@DEFINE DSK: ASL:

BUILC::

!	FIRST BUILD THE SYNTAX TABLE BUILDERS AND SYNTAX TABLES
!	COMPILE AND LOAD THE TABLE BUILDING PROGRAM.

@RU BLIS10
*BUILD=BUILD.BLI

!	COMPILE ALL I/O UTILITIES.

@RU MACRO
*ERRTB3=ERRTB3.MAC
*QTAB1=QTAB1.MAC
*^Z

@RU BLIS10
*BLIO=BLIO.BLI
*DEFLT=DEFLT.BLI
*ERROR0=ERROR0.BLI
*NUMIO1=NUMIO1.BLI
*OUTZ=OUTZ.BLI
*SCAN0=SCAN0.BLI
*SCNR=SCNR.BLI
*TBL=TBL.BLI
*TRACE1=TRACE1.BLI
*^C

BLDCK::

!	LOAD THE BUILDER WITH I/O UTILITIES AND EXECUTE

@TYPE BLD.CMD

@RU LINK
*@BLD.CMD

!	BUILD STATEMENT SYNTAX TABLES
!	  BUILD REQUIRES _ NOT =

@RUN BUILD
*META72.BLI,F72BNF.BLI_F72BNF.SYN
*0
*N

!	BUILD FORMAT SYNTAX TABLES
!	  BUILD REQUIRES _ NOT =

@RUN BUILD
*METAFM.BLI,FRMBNF.BLI_FRMBNF.SYN
*0
*N

!	DO THE COMPILATIONS FOR THE LOOK AHEAD TABLE BUILDERS.

@RU BLIS10
*LEFT72=LEFT72.BLI
*LEFTFM=LEFTFM.BLI


PKLOD::

!	NOW LOAD, SAVE, AND EXECUTE THE GENERAL SYNTAX LOOK AHEAD BUILDER

@TYPE LEFT72.CMD

@NOERROR
@RU LINK
*@LEFT72.CMD
@ERROR

@RU LEFT72
*3=LOOK72.BLI
*0

!	LOAD, SAVE, AND EXECUTE THE FORMAT LOOK AHEAD TABLE BUILDER

@TYPE LEFTFM.CMD

@NOERROR
@RU LINK
*@LEFTFM.CMD
@ERROR

@RU LEFTFM
*3=LOOKFM.BLI
*0

P0BEG::

;	**********	PHASE 0		**********


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

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

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

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

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

!	START THE COMPILES


@RU MACRO
*FTTENX=FTTENX.MAC
*GFOPDF=GFOPDF.MAC
*^Z

@RU MACRO
*CMND20.REL=CMND20.MAC
*ERR3=ERR3.MAC
*EXOSUP=EXOSUP.MAC
*JOBD=JOBD.MAC
*REVHST=REVHST.MAC
*^Z

@RU BLIS10
*GLOBAL=GLOBAL.BLI
*INOUT.REL=INOUT.BLI
*MAIN.REL=MAIN.BLI
*UNEND=UNEND.BLI
*^C

P1BEG::

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


@RU MACRO
*CNSTCM=CNSTCM.MAC
*FLTGEN=FLTGEN.MAC
*^Z

@RU BLIS10
*ARRXPN=ARRXPN.BLI
*DOXPN=DOXPN.BLI
*ERROUT=ERROUT.BLI
*EXPRES=EXPRES.BLI
*FAZ1=FAZ1.BLI
*GNRCFN=GNRCFN.BLI
*SRCA=SRCA.BLI
*VLTPPR=VLTPPR.BLI
*^C

FORMC::

@RU BLIS10
*ACT0=ACT0.BLI
*ACT1=ACT1.BLI
*CODETA=CODETA.BLI
*DRIVER=DRIVER.BLI
*FORMAT=FORMAT.BLI
*LEXCLA=LEXCLA.BLI/S
*LEXICA=LEXICA.BLI/S
*LEXSUP=LEXSUP.BLI
*LISTNG.REL=LISTNG.BLI
*STA0=STA0.BLI
*STA1=STA1.BLI
*STA2.REL=STA2.BLI
*STA3=STA3.BLI
*^C

P2SBE::

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

@RU BLIS10
*GOPT2=GOPT2.BLI
*INPT=INPT.BLI
*MEMCMP=MEMCMP.BLI
*P2S1=P2S1.BLI
*SKSTMN=SKSTMN.BLI
*^C

P2S2C::

@RU BLIS10
*CANNON=CANNON.BLI
*COMSUB=COMSUB.BLI
*GOPTIM=GOPTIM.BLI
*P2S2=P2S2.BLI
*PH2S=PH2S.BLI
*UTIL=UTIL.BLI
*^C

P2BEG::

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

@RU BLIS10
*DEFPT=DEFPT.BLI
*GCMNSB=GCMNSB.BLI
*GRAPH=GRAPH.BLI
*IOPT=IOPT.BLI
*MOVA=MOVA.BLI
*PHA2=PHA2.BLI
*PNROPT=PNROPT.BLI
*TSTR=TSTR.BLI
*VER5=VER5.BLI
*^C

P3GBE::

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

@RU BLIS10
*ALCBLO=ALCBLO.BLI
*CMPBLO=CMPBLO.BLI
*CMPLEX=CMPLEX.BLI
*DATAST=DATAST.BLI
*DOALC=DOALC.BLI
*OUTMOD=OUTMOD.BLI
*PH3G=PH3G.BLI
*REGAL2=REGAL2.BLI
*REGUTL=REGUTL.BLI
*RELBUF=RELBUF.BLI
*STREGA=STREGA.BLI
*^C

P3RBE::

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

@RU BLIS10
*P3R=P3R.BLI
*^C

P3BEG::

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

@RU MACRO
*OPGNTA=OPGNTA.MAC
*^Z

@RU BLIS10
*CGDO=CGDO.BLI
*CGEXPR=CGEXPR.BLI
*CGSTMN=CGSTMN.BLI
*DEBUG=DEBUG.BLI
*LISTOU=LISTOU.BLI
*OPTAB=OPTAB.BLI
*PEEPOP=PEEPOP.BLI
*PHA3=PHA3.BLI
*^C

!	**********	ALL BUILDING PHASES COMPLETE	**********

PSNGL::

!	MAKE THE SINGLE SEGMENT TOPS-20 COMPILER

@TYPE ALL20.CMD

@RU LINK
*@ALL20.CMD

@GET FORTRA
  
@INFORMATION VERSION
@INFORMATION MEMORY

COTS::
!
! GENERATE FOROTS AND FORLIB FOR THE 20
!

! Determine if we're running with extended addressing

@EXECUTE EXTCK1.FOR, EXTCK2.MAC

! Show selected features

@TYPE F20REL.MAC
@TYPE M20REL.MAC
@TYPE F20EXT.MAC

! Compile modules

@RU MACRO
*=F20REL.MAC,F20EXT.MAC,FORPRM.MAC
*=M20REL.MAC,F20EXT.MAC,MTHPRM.MAC
*FORHST.REL=FORHST.MAC
*FORBOT.REL=FORBOT.MAC
*FORCHR.REL=FORCHR.MAC
*FORINI.REL=FORINI.MAC
*FORMEM.REL=FORMEM.MAC
*FORFMT.REL=FORFMT.MAC
*FOROPN.REL=FOROPN.MAC
*FORIO.REL=FORIO.MAC
*FOROTS.REL=FOROTS.MAC
*FORMSG.REL=FORMSG.MAC
*FORERR.REL=FORERR.MAC
*FORCNV.REL=FORCNV.MAC
*FORCOM.REL=FORCOM.MAC
*FORNML.REL=FORNML.MAC
*FORRMS.REL=FORRMS.MAC
*FORXIT.REL=FORXIT.MAC
*FOROP.REL=FOROP.MAC
*FORDBM.REL=FORDBM.MAC
*FORDST.REL=FORDST.MAC
*FORMSC.REL=FORMSC.MAC
*FORPSE.REL=FORPSE.MAC
*FORPL2.REL=FORPL2.MAC
*FORDUM.REL=FORDUM.MAC
*FORSRT.REL=FORSRT.MAC
*MTHTRP.REL=MTHTRP.MAC
*MTHSNG.REL=MTHSNG.MAC
*MTHDBL.REL=MTHDBL.MAC
*MTHGDB.REL=MTHGDB.MAC
*MTHCPX.REL=MTHCPX.MAC
*MTHCDX.REL=MTHCDX.MAC
*MTHCGX.REL=MTHCGX.MAC
*MTHMSG.REL=MTHMSG.MAC
*MTHDUM.REL=MTHDUM.MAC
*MTHARG.REL=MTHARG.MAC
*MTHCNV.REL=MTHCNV.MAC
*^Z

@RU FORTRA
*FORPL1.FOR/BINARY:FORPL1.REL/OPT/NOWARN:CHO
*/EXIT


MFLIB::
!
! Create FORLIB and index - FORLIB will contain locals
!
@TYPE F20LIB.CCL
@NOERROR
@RU MAKLIB
*@F20LIB.CCL
*^Z
@ERROR


MFOTS::
!
! Create FOROTS Build and initialize
!
@TYPE F20OTS.CCL
@RU LINK
*@F20OTS.CCL

@GET FORO11
@INFORMATION VERSION
@INFORMATION MEMORY
@SAVE FORO11 500 600

BFDT::
!
! GENERATE FORDDT FOR THE 20
!

@TYPE FDDT.MAC
@RU MACRO
*FORDDT=FDDT.MAC,FORDDT.MAC
*^Z

CHECK::

;
;	Signal success
;

@EXPUNGE PAT:
@DEFINE DSK:
@COPY PAT:FORDBM.REL DSK:
@COPY PAT:FORLIB.REL DSK:
@PEPB
*SIGNAL-SUCCESS FORTRAN-20-V11
*EXIT

@GOTO EXIT
;
;	Signal failure on error
;

%ERR::
@EXPUNGE PAT:
@DEFINE DSK:
@PEPB
*SIGNAL-FAILURE FORTRAN-20-V11
*EXIT

EXIT::
%FIN::
     
;	[END OF FTN211.CTL]