$DEFM MODE NOPRINT NOSCR NOSYM
$JOB BLD.FORT SYSTEM S
$SET %VOL SYSTEM
$NOTE **************************************************************************
$NOTE *                         PROPRIETARY INFORMATION                        *
$NOTE *   THE INFORMATION CONTAINED HEREIN IS  PROPRIETARY TO ENCORE COMPUTER  *
$NOTE *   CORPORATION AND/OR ITS VENDORS, AND ITS USE, DISCLOSURE OR DUPLICA-  *
$NOTE *   TION IS SUBJECT TO THE  RESTRICTIONS  STATED IN THE STANDARD ENCORE  *
$NOTE *   COMPUTER CORPORATION LICENSE TERMS AND CONDITIONS OR  THE APPLICABLE *
$NOTE *   THIRD-PARTY SUBLICENSE AGREEMENT.                                    *
$NOTE *                                                                        *
$NOTE *                            RESTRICTED RIGHTS                           *
$NOTE *    USE, DUPLICATION, OR DISCLOSURE BY  THE GOVERNMENT IS SUBJECT TO    *
$NOTE *    RESTRICTIONS AS SET FORTH IN SUBDIVISION(C)(1)(II) OF THE RIGHTS    *
$NOTE *    IN TECHNICAL DATA AND COMPUTER  SOFTWARE CLAUSE  AT 252.227.7013.   *
$NOTE *    ----------------------------------------------------------------    *
$NOTE *                       ENCORE COMPUTER CORPORATION                      *
$NOTE *                       6901 WEST SUNRISE BOULEVARD                      *
$NOTE *                       FORT LAUDERDALE, FL   33313                      *
$NOTE *                                                                        *
$NOTE *                           COPYRIGHT (C) 1989                           *
$NOTE *                       ENCORE COMPUTER CORPORATION                      *
$NOTE *                           ALL RIGHTS RESERVED                          *
$NOTE **************************************************************************
$NOTE *                                                                        *
$NOTE *                      FORTRAN 77+  COMPILER                             *
$NOTE *                                                                        *
$NOTE *                   RELEASE  5.2.0.6  SOURCE PACKAGE                     *
$NOTE *                                                                        *
$NOTE *        MODEL NUMBER: 1413-23     REVISION DATE:  NOVEMBER 1992         *
$NOTE *                                                                        *
$NOTE **************************************************************************
$CHANGE DIRECTORY=@%VOL(F77INSTALL) 
$VOLMGR  
CREATE APDEV.O REPL=Y 
EXIT 
$IFT %NOPRINT EQ PRINT YPRINT
$OPTION 1 3 4 
$DEFN YPRINT 
$OPTION 14 15 18
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$ASSIGN BO TO APDEV.O
$AS SI TO APDEV.S
$ASSEMBLE
$IFT ABORT ABORT01 
$VOLMGR  
CREATE READREC.O REPL=Y 
EXIT 
$IFT %NOPRINT EQ PRINT YPRINT
$OPTI 1 3 4 
$DEFN YPRINT 
$OPTION 14 15 18
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$ASSIGN BO TO READREC.O
$AS SI TO READREC.S
$ASSEMBLE
$IFT ABORT ABORT01 
$VOLMGR 
CREATE ISCRET.O REPL=Y 
EXIT 
$IFT %NOPRINT EQ PRINT YPRINT
$OPTI 1 3 4 
$DEFN YPRINT
$OPTION 15 16 
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$AS SI TO ISCRET.FOR
$AS BO TO ISCRET.O
$@%VOL(F77INSTALL)FORT.EXE
$IFT ABORT ABORT00 
$VOLMGR 
CREATE ISCF77.O REPL=Y 
EXIT 
$IFT %NOPRINT EQ PRINT YPRINT
$OPTI 1 3 4 
$DEFN YPRINT
$OPTION 15 16 
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$AS SI TO ISCF77.FOR
$AS BO TO ISCF77.O
$@%VOL(F77INSTALL)FORT.EXE
$IFT ABORT ABORT00 
$VOLMGR 
CREATE ISCFIND.O REPL=Y 
EXIT 
$IFT %NOPRINT EQ PRINT YPRINT
$OPTI 1 3 4 
$DEFN YPRINT
$OPTION 15 16 
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$AS SI TO ISCFIND.FOR
$AS BO TO ISCFIND.O
$@%VOL(F77INSTALL)FORT.EXE
$IFT ABORT ABORT00 
$VOLMGR 
CREATE ISCSUB.O REPL=Y 
EXIT 
$IFT %NOPRINT EQ PRINT YPRINT
$OPTI 1 3 4 
$DEFN YPRINT
$OPTION 15 16 
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$AS SI TO ISCSUB.FOR
$AS BO TO ISCSUB.O
$@%VOL(F77INSTALL)FORT.EXE
$IFT ABORT ABORT00 
$VOLMGR 
CREATE ISCFT.O REPL=Y 
EXIT 
$AS IN TO SYC
$AS OT TO ISCFT.O
$COMPRESS
ISCRET.O
ISCF77.O
ISCFIND.O
ISCSUB.O
READREC.O
APDEV.O
$VOLMGR 
CREATE @%VOL(OBJECT)FT.LIB REPL=Y
CREATE @%VOL(OBJECT)FT.DIR REPL=Y 
EXIT 
$AS LGO TO ISCFT.O
$AS LIB TO @%VOL(OBJECT)FT.LIB
$AS DIR TO @%VOL(OBJECT)FT.DIR
$OPTI 1
$LIBED
$VOLMGR
DELETE ISCFT.O
DELETE ISCRET.O
DELETE ISCF77.O
DELETE ISCFIND.O
DELETE ISCSUB.O
DELETE READREC.O
DELETE APDEV.O
EXIT
$VOLMGR
CRE @%VOL(F77INSTALL)SJ.SRCE SIZE=2400 REPL=Y ZERO=Y
EXIT
$AS SI1 TO SJ.RTA
$AS SO TO SJ.SRCE
$OPTI 1 4
$UPDATE
/COM     CONCATENATE ALL SOURCE INTO ONE.
/COM     ASSEMBLE WITH PRE FILE FOR VARIATIONS.
/LIS FRST
/COP 1
/AS1 SI1,SJ.RTB
/COP 1
/AS1 SI1,SJ.TCM
/COP 1
/AS1 SI1,SJ.S1DAT
/COP 1
/AS1 SI1,SJ.S1ACC
/COP 1
/AS1 SI1,SJ.S1AVA
/COP 1
/AS1 SI1,SJ.S1CMN
/COP 1
/AS1 SI1,SJ.S1DBL
/COP 1
/AS1 SI1,SJ.S1EEP
/COP 1
/AS1 SI1,SJ.S1ELS
/COP 1
/AS1 SI1,SJ.S1EPP
/COP 1
/AS1 SI1,SJ.S1EQU
/COP 1
/AS1 SI1,SJ.S1EXT
/COP 1
/AS1 SI1,SJ.S1FUI
/COP 1
/AS1 SI1,SJ.S1GRE
/COP 1
/AS1 SI1,SJ.S1IDM
/COP 1
/AS1 SI1,SJ.S1ILT
/COP 1
/AS1 SI1,SJ.S1INI
/COP 1
/AS1 SI1,SJ.S1INQ
/COP 1
/AS1 SI1,SJ.S1IO1
/COP 1
/AS1 SI1,SJ.S1LDM
/COP 1
/AS1 SI1,SJ.S1MRA
/COP 1
/AS1 SI1,SJ.S1OPE
/COP 1
/AS1 SI1,SJ.S1OSC
/COP 1
/AS1 SI1,SJ.S1PHC
/COP 1
/AS1 SI1,SJ.S1SAV
/COP 1
/AS1 SI1,SJ.S1SCN
/COP 1
/AS1 SI1,SJ.S1SEL
/COP 1
/AS1 SI1,SJ.S1STF
/COP 1
/AS1 SI1,SJ.S1BGN
/COP 1
/AS1 SI1,SJ.S2DAT
/COP 1
/AS1 SI1,SJ.S2ASI
/COP 1
/AS1 SI1,SJ.S2DFS
/COP 1
/AS1 SI1,SJ.S2EOS
/COP 1
/AS1 SI1,SJ.S2ERR
/COP 1
/AS1 SI1,SJ.S2FSR
/COP 1
/AS1 SI1,SJ.S2GTS
/COP 1
/AS1 SI1,SJ.S2OFW
/COP 1
/AS1 SI1,SJ.S2OTS
/COP 1
/AS1 SI1,SJ.S2PAR
/COP 1
/AS1 SI1,SJ.S2PSR
/COP 1
/AS1 SI1,SJ.S2SAR
/COP 1
/AS1 SI1,SJ.S2TAT
/COP 1
/AS1 SI1,SJ.S2LEO
/COP 1
/AS1 SI1,SJ.S2BGN
/COP 1
/AS1 SI1,SJ.S3DAT
/COP 1
/AS1 SI1,SJ.S3ABO
/COP 1
/AS1 SI1,SJ.S3BPT
/COP 1
/AS1 SI1,SJ.S3CAD
/COP 1
/AS1 SI1,SJ.S3CBI
/COP 1
/AS1 SI1,SJ.S3COI
/COP 1
/AS1 SI1,SJ.S3DMP
/COP 1
/AS1 SI1,SJ.S3LSC
/COP 1
/AS1 SI1,SJ.S3OSD
/COP 1
/AS1 SI1,SJ.S3PHT
/COP 1
/AS1 SI1,SJ.S3SPZ
/COP 1
/AS1 SI1,SJ.S3TER
/COP 1
/AS1 SI1,SJ.SEG4
/COP 1
/WEOF 
/EXI
$IFT ABORT ABORT01 
$IFT %MODE EQ NH NOSEC
$NOTE ----------------------------------------------------------------
$NOTE FORTRAN 77+ COMPILER WITH SECTIONED HARDWARE ASSIST NOW BUILDING
$NOTE
$VOLMGR CREATE @%VOL(OBJECT)OJ.F52SH REPL=Y
$AS PRE TO @%VOL(F77INSTALL)SJ.PRESH
$AS BO TO @%VOL(OBJECT)OJ.F52SH
$AS SI TO @%VOL(F77INSTALL)SJ.SRCE
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC  BLOC=N
$IFT %NOPRINT EQ PRINT YPRINT
$OPTION 1 4
$DEFNAME YPRINT
$OPTION 14 15 
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$EXEC ASSEMBLE
$IFT ABORT ABORT01
$AS LIB TO @%VOL(OBJECT)FT.LIB BLOCKED=N
$AS DIR TO @%VOL(OBJECT)FT.DIR BLOCKED=N
$AS L00 TO @%VOL(SYSTEM)SRTL52SH BLOCKED=N
$AS D00 TO @%VOL(SYSTEM)SRTD52SH BLOCKED=N
$AS SGO TO @%VOL(OBJECT)OJ.F52SH
$ALLOCATE 32000
$OPTION 15
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$EXEC CATALOG
AS SI TO SYC
AS LO TO SLO
AS BO TO SBO
AS GO TO SGO
AS GO* TO TEMP SIZE=500
AS LO* TO TEMP SIZE=500
AS *U1 TO TEMP SIZE=350
AS *U2 TO TEMP SIZE=350
AS *U3 TO TEMP SIZE=200 BLOC=N
AS *U5 TO TEMP SIZE=100 
ENVIRONMENT SHARED,NOMAPOUT
EXTDMPX MAXADDR,NOTSA
FILES 16
BUFFERS 16
OPTION PROMPT 
CATALOG FORT52SH
$IFT ABORT ABORT02
$GOTO CLEANUP
$DEFNAME NOSEC
$NOTE --------------------------------------------------------------------
$NOTE FORTRAN 77+ COMPILER WITH NON-SECTIONED HARDWARE ASSIST NOW BUILDING
$NOTE
$VOLMGR CREATE @%VOL(OBJECT)OJ.F52NH REPL=Y
$AS PRE TO @%VOL(F77INSTALL)SJ.PRENH
$AS BO TO @%VOL(OBJECT)OJ.F52NH
$AS SI TO @%VOL(F77INSTALL)SJ.SRCE
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC  BLOC=N
$IFT %NOPRINT EQ PRINT YPRINT
$OPTION 1 4
$DEFNAME YPRINT
$OPTION 14 15 
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$EXEC ASSEMBLE
$IFT ABORT ABORT01
$AS LIB TO @%VOL(OBJECT)FT.LIB BLOCKED=N
$AS DIR TO @%VOL(OBJECT)FT.DIR BLOCKED=N
$AS L00 TO @%VOL(SYSTEM)SRTL52SH BLOCKED=N
$AS D00 TO @%VOL(SYSTEM)SRTD52SH BLOCKED=N
$AS SGO TO @%VOL(OBJECT)OJ.F52NH
$ALLOCATE 32000
$OPTION 15
$IFF %NOSYM EQ SYM NSYMS
$OPTION 19
$DEFN NSYMS
$EXEC CATALOG
AS SI TO SYC
AS LO TO SLO
AS BO TO SBO
AS GO TO SGO
AS GO* TO TEMP SIZE=500
AS LO* TO TEMP SIZE=500
AS *U1 TO TEMP SIZE=350
AS *U2 TO TEMP SIZE=350
AS *U3 TO TEMP SIZE=200 BLOC=N
AS *U5 TO TEMP SIZE=100 
ENVIRONMENT SHARED,NOMAPOUT
EXTDMPX MAXADDR,NOTSA
FILES 16
BUFFERS 16
OPTION PROMPT 
CATALOG FORT52NH
$IFT ABORT ABORT02
$GOTO CLEANUP
$DEFNAME CLEANUP
$NOTE
$NOTE ----------------------------------------------------------------
$NOTE    F O R T R A N  7 7 +   R E V I S I O N   5 . 2 . 0
$NOTE          S O U R C E   P R O C E S S I N G
$NOTE
$NOTE          S  U  C  C  E  S  S  F  U  L  !
$NOTE          ===============================
$NOTE
$NOTE ************************************************************
$NOTE *                                                          *
$NOTE *    A B O R T   C O D E   F I L E   ' F T . E R R '       *
$NOTE *                                                          *
$NOTE *              N O W   B U I L D I N G                     *
$NOTE *                                                          *
$NOTE ************************************************************
$VOLMGR
CREATE @%VOL(OBJECT)OJ.FT.ER SIZE=12 ZERO=Y REPL=Y
EXIT
$AS SI TO @SYSTEM(SYSTEM)SJ.FT.ER BLOC=Y
$AS BO TO @%VOL(OBJECT)OJ.FT.ER BLOC=Y
$OPTI 1 4
$OPTI 14 15 
$ASSEMBLE
$IFF ABORT OK
$NOTE
$NOTE *  SJ.FT.ER ASSEMBLY ABORTED
$NOTE
$GOTO OVERHEAD
$DEFN OK
$NOTE
$NOTE *  SJ.FT.ER ASSEMBLY SUCESSFUL
$NOTE
$OPTION 15
$AS SGO TO @%VOL(OBJECT)OJ.FT.ER BLOC=Y
$CATALOG
EXTDMPX MAXADDR,NOTSA
ENVIRONMENT NOMAPOUT
CATALOG FT.ERR
$IFF ABORT OVERHEAD
$NOTE
$NOTE * FT.ERR CATALOG ABORTED.
$NOTE
$NOTE
$DEFNAME OVERHEAD
$VOLMGR
DELETE @%VOL(F77INSTALL)SJ.SRCE
$IFF %NOSCR EQ SCR SKIP
$VOLMGR
DELETE @%VOL(F77INSTALL)APDEV.S
DELETE @%VOL(F77INSTALL)READREC.S
DELETE @%VOL(F77INSTALL)ISCRET.FOR
DELETE @%VOL(F77INSTALL)ISCF77.FOR
DELETE @%VOL(F77INSTALL)ISCFIND.FOR
DELETE @%VOL(F77INSTALL)ISCSUB.FOR
DELETE @%VOL(F77INSTALL)OBJ_COM.INC
DELETE @%VOL(F77INSTALL)TRCCOM.INC 
DELETE @SYSTEM(SYSTEM)SJ.FT.ER
DELETE @%VOL(F77INSTALL)SJ.PRENH
DELETE @%VOL(F77INSTALL)SJ.PRESH
DELETE @%VOL(F77INSTALL)SJ.RTA
DELETE @%VOL(F77INSTALL)SJ.RTB
DELETE @%VOL(F77INSTALL)SJ.TCM
DELETE @%VOL(F77INSTALL)SJ.S1ACC
DELETE @%VOL(F77INSTALL)SJ.S1AVA
DELETE @%VOL(F77INSTALL)SJ.S1BGN
DELETE @%VOL(F77INSTALL)SJ.S1CMN
DELETE @%VOL(F77INSTALL)SJ.S1DAT
DELETE @%VOL(F77INSTALL)SJ.S1DBL
DELETE @%VOL(F77INSTALL)SJ.S1EEP
DELETE @%VOL(F77INSTALL)SJ.S1ELS
DELETE @%VOL(F77INSTALL)SJ.S1EPP
DELETE @%VOL(F77INSTALL)SJ.S1EQU
DELETE @%VOL(F77INSTALL)SJ.S1EXT
DELETE @%VOL(F77INSTALL)SJ.S1FUI
DELETE @%VOL(F77INSTALL)SJ.S1GRE
DELETE @%VOL(F77INSTALL)SJ.S1IDM
DELETE @%VOL(F77INSTALL)SJ.S1ILT
DELETE @%VOL(F77INSTALL)SJ.S1INI
DELETE @%VOL(F77INSTALL)SJ.S1INQ
DELETE @%VOL(F77INSTALL)SJ.S1IO1
DELETE @%VOL(F77INSTALL)SJ.S1LDM
DELETE @%VOL(F77INSTALL)SJ.S1MRA
DELETE @%VOL(F77INSTALL)SJ.S1OPE
DELETE @%VOL(F77INSTALL)SJ.S1OSC
DELETE @%VOL(F77INSTALL)SJ.S1PHC
DELETE @%VOL(F77INSTALL)SJ.S1SAV
DELETE @%VOL(F77INSTALL)SJ.S1SCN
DELETE @%VOL(F77INSTALL)SJ.S1SEL
DELETE @%VOL(F77INSTALL)SJ.S1STF
DELETE @%VOL(F77INSTALL)SJ.S2ASI
DELETE @%VOL(F77INSTALL)SJ.S2BGN
DELETE @%VOL(F77INSTALL)SJ.S2DAT
DELETE @%VOL(F77INSTALL)SJ.S2DFS
DELETE @%VOL(F77INSTALL)SJ.S2EOS
DELETE @%VOL(F77INSTALL)SJ.S2ERR
DELETE @%VOL(F77INSTALL)SJ.S2FSR
DELETE @%VOL(F77INSTALL)SJ.S2GTS
DELETE @%VOL(F77INSTALL)SJ.S2LEO
DELETE @%VOL(F77INSTALL)SJ.S2OFW
DELETE @%VOL(F77INSTALL)SJ.S2OTS
DELETE @%VOL(F77INSTALL)SJ.S2PAR
DELETE @%VOL(F77INSTALL)SJ.S2PSR
DELETE @%VOL(F77INSTALL)SJ.S2SAR
DELETE @%VOL(F77INSTALL)SJ.S2TAT
DELETE @%VOL(F77INSTALL)SJ.S3ABO
DELETE @%VOL(F77INSTALL)SJ.S3BPT
DELETE @%VOL(F77INSTALL)SJ.S3CAD
DELETE @%VOL(F77INSTALL)SJ.S3CBI
DELETE @%VOL(F77INSTALL)SJ.S3COI
DELETE @%VOL(F77INSTALL)SJ.S3DAT
DELETE @%VOL(F77INSTALL)SJ.S3DMP
DELETE @%VOL(F77INSTALL)SJ.S3LSC
DELETE @%VOL(F77INSTALL)SJ.S3OSD
DELETE @%VOL(F77INSTALL)SJ.S3PHT
DELETE @%VOL(F77INSTALL)SJ.S3SPZ
DELETE @%VOL(F77INSTALL)SJ.S3TER
DELETE @%VOL(F77INSTALL)SJ.SEG4
DELETE @%VOL(F77INSTALL)FORT.EXE
DELETE @%VOL(OBJECT)FT.LIB        
DELETE @%VOL(OBJECT)FT.DIR
DELETE @%VOL(OBJECT)OJ.F52SH
DELETE @%VOL(OBJECT)OJ.F52NH
DELETE @%VOL(OBJECT)OJ.FT.ER
EXIT
$DEFNAME SKIP
$GOTO OVERHEAD
$DEFNAME ABORT00
$NOTE
$NOTE ----------------------------------------------------------------
$NOTE    F O R T R A N  7 7 +   R E V I S I O N  5 . 2 . 0
$NOTE          S O U R C E   P R O C E S S I N G
$NOTE
$NOTE                A  B  O  R  T  E  D
$NOTE                ===================
$NOTE
$NOTE    PROBLEM: COMPILING A SOURCE FILE FAILED.
$NOTE
$GOTO OVERHEAD
$DEFNAME ABORT01
$NOTE
$NOTE ----------------------------------------------------------------
$NOTE    F O R T R A N  7 7 +   R E V I S I O N  5 . 2 . 0
$NOTE          S O U R C E   P R O C E S S I N G
$NOTE
$NOTE                A  B  O  R  T  E  D
$NOTE                ===================
$NOTE
$NOTE    PROBLEM: ASSEMBLING A SOURCE FILE FAILED.
$NOTE
$GOTO OVERHEAD
$DEFNAME ABORT02
$NOTE
$NOTE ----------------------------------------------------------------
$NOTE    F O R T R A N  7 7 +   R E V I S I O N  5 . 2 . 0
$NOTE          S O U R C E   P R O C E S S I N G
$NOTE
$NOTE                A  B  O  R  T  E  D
$NOTE                ===================
$NOTE
$NOTE    PROBLEM: CATALOGING THE COMPILER OBJECT FAILED.
$NOTE
$DEFNAME OVERHEAD
$NOTE ---------------------------------------------------------------
$NOTE JOB BLD.FORT COMPLETED.
$EOJ
$$  
$ENDM
