Trailing-Edge
-
PDP-10 Archives
-
tops10_703a_sys_atpch16_bb-fr67f-bb
-
ftn111.dif
There are no other files named ftn111.dif in the archive.
File 1) AP10:FTN10.CTL[7,6,AUTINS] created: 1444 24-Feb-86
File 2) AP10:FTN111.CTL[7,6,AUTINS] created: 1608 03-Feb-87
1)1 ; FTN10.CTL -- Patch and rebuild FORTRAN-10-V10
1) ; Version 1(1)
1) ;
1) ; April 1985 /TGS
1) ;1 February 24, 1986 /HAH add FORPRM and MTHHST to source deletion
1)
1) ;
1) ; COPYRIGHT (c) 1985 BY
1) ; Digital Equipment Corporation, Maynard, MA.
****
2)1 ; FTN111.CTL -- Patch and rebuild FORTRAN-10-V11
2) ; Version 2(0)
2) ;
2) ; April 1985 /TGS / MRB
2)
2) ;
2) ; COPYRIGHT (c) 1982,1983, 1985 BY
2) ; Digital Equipment Corporation, Maynard, MA.
**************
1)1 ; FORTRAN-10-V10 and rebuilds the Fortran Compiler, FORLIB.REL,
1) ; FORO10.EXE and FORDDT.REL.
1) ;
****
2)1 ; FORTRAN-10-V11 and rebuilds the Fortran Compiler, FORLIB.REL,
2) ; FORO11.EXE and FORDDT.REL.
2) ;
**************
1)1 *INITIALIZE FORTRAN-10-V10
1) *EXIT
****
2)1 *INITIALIZE FORTRAN-10-V11
2) *EXIT
**************
1)1 .DELETE PAT:FORDDT.MAC
1) .DELETE FORBOT.MAC,FORCNV.MAC,FORCOM.MAC,FORCHR.MAC,FORDBM.MAC
****
2)1 .DELETE FORBOT.MAC,FORCNV.MAC,FORCOM.MAC,FORCHR.MAC,FORDBM.MAC
**************
1)1 .DELETE FORPL1.FOR,MTHTRP.MAC,MTHSNG.MAC,MTHDBL.MAC
1) .DELETE MTHGDB.MAC,MTHCPX.MAC,MTHCDX.MAC,MTHCGX.MAC,MTHMSG.MAC
1) .DELETE MTHDUM.MAC,MTHARG.MAC,MTHCNV.MAC,FDBML5.MAC,FDBMH5.MAC
1) .DELETE PAT:FORPRM.MAC,PAT:MTHHST.MAC
1) .PATH UNV:=ASL:
1) .PATH ASL:/SEARCH
1) ;
****
2)1 .DELETE FORPL1.FOR,,MTHTRP.MAC,MTHSNG.MAC,MTHDBL.MAC
2) .DELETE MTHGDB.MAC,MTHCPX.MAC,MTHCDX.MAC,MTHCGX.MAC,MTHMSG.MAC
2) .DELETE MTHDUM.MAC,MTHARG.MAC,MTHCNV.MAC,FDBML5.MAC,FDBMH5.MAC
2) .PATH UNV:=ASL:
2) ;
**************
1)1 .TYPE PAT:FTN10.SUP
1) .R ASL:UPDATE
1) *@PAT:FTN10.SUP
1) BUILC::
File 1) AP10:FTN10.CTL[7,6,AUTINS] created: 1444 24-Feb-86
File 2) AP10:FTN111.CTL[7,6,AUTINS] created: 1608 03-Feb-87
****
2)1 .TYPE PAT:FTN111.SUP
2) .R ASL:UPDATE
2) *@PAT:FTN111.SUP
2) BUILC::
**************
1)1 ; BUILD REQUIRES _ NOT =
1) .RUN ASL:BUILD
****
2)1 ; BUILD REQUIRES _ NOT =ASL:
2) .RUN ASL:BUILD
**************
1)1 ; BUILD REQUIRES _ NOT =
1) .RUN ASL:BUILD
****
2)1 ; BUILD REQUIRES _ NOT =ASL:
2) .RUN ASL:BUILD
**************
1)1 =<I!^[0LQ0-."E0;'-L>EX^[^[
1) .DELETE F72BNF.BAK
****
2)1 =ASL:<I!^[0LQ0-."E0;'-L>EX^[^[
2) .DELETE F72BNF.BAK
**************
1)1 =<I!^[0LQ0-."E0;'-L>EX^[^[
1) .DELETE FRMBNF.BAK
****
2)1 =ASL:<I!^[0LQ0-."E0;'-L>EX^[^[
2) .DELETE FRMBNF.BAK
**************
1)1 .COPY DBUGIT.REQ = TTY:
1) *BIND DBUGIT=0; ! NO DEBUG CODE IN PHASE 1
1) *^Z
1) .COPY FT1SEG.REQ = TTY:
1) *GLOBAL BIND FT1SEG=0; ! NOT SINGLE SEGMENT
1) *^Z
1) .COPY FTTENX.REQ = TTY:
1) *GLOBAL BIND FTTENEX=0; ! TOPS-10
1) *^Z
1) .COPY FTTENX.MAC = TTY:
1) *UNIVERSAL FTTENX
1) * .DIRECTIVE .NOBIN
1) * FTTENX==0 ; TOPS-10
1) * END
****
2)1 .COPY DBUGIT.REQ =ASL: TTY:
2) *BIND DBUGIT=ASL:0; ! NO DEBUG CODE IN PHASE 1
2) *^Z
2) .COPY FT1SEG.REQ =ASL: TTY:
2) *GLOBAL BIND FT1SEG=ASL:0; ! NOT SINGLE SEGMENT
2) *^Z
2) .COPY FTTENX.REQ =ASL: TTY:
2) *GLOBAL BIND FTTENEX=ASL:0; ! TOPS-10
2) *^Z
2) .COPY FTTENX.MAC =ASL: TTY:
2) *UNIVERSAL FTTENX
File 1) AP10:FTN10.CTL[7,6,AUTINS] created: 1444 24-Feb-86
File 2) AP10:FTN111.CTL[7,6,AUTINS] created: 1608 03-Feb-87
2) * .DIRECTIVE .NOBIN
2) * FTTENX=ASL:=ASL:0 ; TOPS-10
2) * END
**************
1)1 .COPY FT1SEG.BAK = FT1SEG.REQ
1) .COPY FT1SEG.REQ = TTY:
1) *GLOBAL BIND FT1SEG = 1; ! SINGLE SEGMENT
1) *^Z
****
2)1 .COPY FT1SEG.BAK =ASL: FT1SEG.REQ
2) .COPY FT1SEG.REQ =ASL: TTY:
2) *GLOBAL BIND FT1SEG =ASL: 1; ! SINGLE SEGMENT
2) *^Z
**************
1)1 .COPY FT1SEG.REQ = FT1SEG.BAK
1) .DELETE FT1SEG.BAK
****
2)1 .COPY FT1SEG.REQ =ASL: FT1SEG.BAK
2) .DELETE FT1SEG.BAK
**************
1)1 MTHLIB::
1) .RUN ASL:MACRO
1) *=M10REL.MAC,MTHPRM.MAC
1) *MTHTRP.REL=MTHTRP.MAC
1) *MTHSNG.REL=MTHSNG.MAC
1) *MTHDBL.REL=MTHDBL.MAC
1) *MTHGDB.REL=MTHGDB.MAC
1) *MTHCPX.REL=MTHCPX.MAC
1) *MTHCDX.REL=MTHCDX.MAC
1) *MTHCGX.REL=MTHCGX.MAC
1) *MTHMSG.REL=MTHMSG.MAC
1) *MTHDUM.REL=MTHDUM.MAC
1) *MTHARG.REL=MTHARG.MAC
1) *MTHCNV.REL=MTHCNV.MAC
1) MMLIB::
1) ! Create TWOSEG MTHLIB and index
1) ! MTHLIB will contain locals
1) .TYPE MTHLIB.CCL
1) .RUN SYS:MAKLIB
1) *@MTHLIB
1) BOTS::
1) CREL::
****
2)1 DIR1::
2) ; SHOW CHECKSUMS OF ALL OUTPUT FILES
2) BOTS::
2) ; System software
2) CREL::
**************
1)1 MFLIB::
****
2)1 MTHLIB::
2) .RUN ASL:MACRO
2) *=M10REL.MAC,MTHPRM.MAC
2) *MTHTRP.REL=MTHTRP.MAC
2) *MTHSNG.REL=MTHSNG.MAC
File 1) AP10:FTN10.CTL[7,6,AUTINS] created: 1444 24-Feb-86
File 2) AP10:FTN111.CTL[7,6,AUTINS] created: 1608 03-Feb-87
2) *MTHDBL.REL=MTHDBL.MAC
2) *MTHGDB.REL=MTHGDB.MAC
2) *MTHCPX.REL=MTHCPX.MAC
2) *MTHCDX.REL=MTHCDX.MAC
2) *MTHCGX.REL=MTHCGX.MAC
2) *MTHMSG.REL=MTHMSG.MAC
2) *MTHDUM.REL=MTHDUM.MAC
2) *MTHARG.REL=MTHARG.MAC
2) *MTHCNV.REL=MTHCNV.MAC
2) MMLIB::
2) ! Create TWOSEG MTHLIB and index
2) ! MTHLIB will contain locals
2) .TYPE MTHLIB.CCL
2) .RUN SYS:MAKLIB
2) *@MTHLIB
2) ! Compile MTHLIB.REL !
2) MFLIB::
**************
1)1 .GET FORO10
1) .CORE
****
2)1 .GET FORO11
2) .CORE
**************
1)1 .COPY FDDT.MAC=TTY:
1) * TOPS20==0 ;TOPS-10
1) *^Z
****
2)1 .COPY FDDT.MAC=ASL:TTY:
2) * TOPS20=ASL:=ASL:0 ;TOPS-10
2) *^Z
**************
1)1 *FORDDT=ASL:FDDT.MAC,ASL:FORDDT.MAC
1) ; If flag file FTNDBM.FLG is present on PAT:, make DBMSF.EXE and
****
2)1 *FORDDT=ASL:FDDT.MAC,FORDDT.MAC
2) ; If flag file FTNDBM.FLG is present on PAT:, make DBMSF.EXE and
**************
1)1 .COPY =ASL:DBSFOR.REL
1) .COPY =ASL:DBSANY.REL
1) .COPY =ASL:DBS10.REL
1) .COPY =ASL:SCHIO1.REL
1) .DIR DBSFOR.REL, DBSANY.REL, DBS10.REL, SCHIO1.REL, FORDBM.REL
****
2)1 .DIR DBSFOR.REL, DBSANY.REL, DBS10.REL, SCHIO1.REL, FORDBM.REL
**************
1)1 .DELETE FORPL1.REL,MTHTRP.REL,MTHSNG.REL,MTHDBL.REL
1) .DELETE MTHGDB.REL,MTHCPX.REL,MTHCDX.REL,MTHCGX.REL,MTHMSG.REL
****
2)1 .DELETE FORPL1.REL,,MTHTRP.REL,MTHSNG.REL,MTHDBL.REL
2) .DELETE MTHGDB.REL,MTHCPX.REL,MTHCDX.REL,MTHCGX.REL,MTHMSG.REL
**************
1)1 *SIGNAL-SUCCESS FORTRAN-10-V10
1) *EXIT
****
2)1 *SIGNAL-SUCCESS FORTRAN-10-V11
File 1) AP10:FTN10.CTL[7,6,AUTINS] created: 1444 24-Feb-86
File 2) AP10:FTN111.CTL[7,6,AUTINS] created: 1608 03-Feb-87
2) *EXIT
**************
1)1 .GOTO ERROR
1) %CERR::
1) .GOTO ERROR
1) %TERR::
1) ERROR::
1) .R PEPB
1) *SIGNAL-FAILURE FORTRAN-10-V10
1) *EXIT
****
2)1 .R PEPB
2) *SIGNAL-FAILURE FORTRAN-10-V11
2) *EXIT
**************
1)1 ; [END OF FTN10.CTL]
****
2)1 ; [END OF FTN111.CTL]
**************