*COMDECK, OPTIONS 
 OPTIONS  TITLE  O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS
 OPTIONS  SPACE  8
****
***       O P T I O N S - FORTRAN EXTENDED INSTALLATION PARAMETERS. 
* 
*         REVISED AUGUST 1975 FOR THE CYBER 170 SERIES MACHINES.
* 
*         THE PARAMETERS DEFINED IN THIS DECK DETERMINE THE SPECIFIC
*         CONFIGURATION OF THE FORTRAN EXTENDED COMPILER.  WHEN INSTAL- 
*         LING THE COMPILER, PARAMETERS SHOULD BE REVISED AS NECESSARY
*         TO DESCRIBE THE INSTALLATION'S EXACT HARDWARE CONFIGURATION 
*         AND SPECIFIC FUNCTIONAL REQUIREMENTS. 
* 
*         ADDITIONAL INSTALLATION OPTION PARAMETERS WILL BE FOUND IN
*         THE PROGRAM DECK  < FTN > . 
 OPTIONS  SPACE  4,19 
*         **************************************************************
*         *                                                            *
*         *                                                            *
*         *   I N S T A L L A T I O N   W A R N I N G   N O T I C E    *
*         *                                                            *
*         *                                                            *
*         *      AN ASTERISKED BOX SIMILAR TO THIS ENCLOSES EACH       *
*         *      PARAMETER THAT IS INTENDED TO BE CHANGED WHEN         *
*         *      INSTALLING THE FORTRAN EXTENDED COMPILER.             *
*         *                                                            *
*         *      NO OTHER PARAMETER IN THE *OPTIONS* DECK SHOULD       *
*         *      BE CHANGED.                                           *
*         *                                                            *
*         *      CONTROL DATA CORPORATION ACCEPTS NO RESPONSIBILITY    *
*         *      FOR SATISFACTORY PERFORMANCE OF THE FORTRAN           *
*         *      EXTENDED COMPILER IF THIS NOTICE IS DISREGARDED.      *
*         *                                                            *
*         *                                                            *
*         **************************************************************
 MDV=     SPACE  3
 OPTIONS  SPACE  3,37 
*** 
* 
*         CROSS-MODEL COMPILER - DEFINITION AND INSTALLATION PROCEDURE
* 
*                THE FORTRAN EXTENDED COMPILER MAY BE INSTALLED IN A
*                CONFIGURATION THAT PERMITS FORTRAN SOURCE PROGRAMS 
*                TO BE COMPILED ON  A CYBER 76 (OR 7600) USING THE
*                SCOPE 2 OPERATING SYSTEM FOR LATER LOADING AND 
*                EXECUTION ON A LOWER CYBER (OR 6000 SERIES) MACHINE. 
* 
*                TO BUILD AND INSTALL THE FORTRAN EXTENDED COMPILER 
*                IN THIS CROSS-MODEL CONFIGURATION, USE THE NORMAL
*                7600 INSTALLATION PROCEDURE NOTING THE FOLLOWING 
*                REQUIREMENTS.
*                   1.  INSURE THAT THE TEXT CONTAINING THE 
*                       INSTALLATION PARAMETERS CONTAINS CYBER 76 
*                       VALUES. 
*                   2.  SELECT THE DESIRED VALUE FOR THE DEFMOD MACRO 
*                       DEFINED IN THE BOX ENTITLED - 
*                       "TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES 
*                       MODEL." 
* 
*         CAUTIONS -
*                1.  THE CROSS-MODEL COMPILER MUST BE INSTALLED USING 
*                    THE "FTNTEXT"  BUILT WITH THE ABOVE PROCEDURE. 
*                2.  AN "OPTIONS" COMDECK CONFIGURED FOR CROSS-MODEL
*                    COMPILATION CAN NOT BE USED WHEN BUILDING "FTNMAC".
*                    THE STANDARD "OPTIONS" COMDECK MUST BE USED. 
* 
*** 
 OPTIONS  SPACE  3,9
***       PROCESSOR NAME, VERSION AND MODIFICATION LEVEL. 
* 
 LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME
VER       MICRO  1,3,/4.8/
PSR       MICRO  1,,$871$ 
          IF     MIC,PSR,2
 MODLVL   MICRO  1,9,$"PSR"         $ 
          SKIP   1
 MODLVL   MICRO  1,9,$"MODLEVEL"         $
 VALMDL   SPACE  2
**        VALMDL - VALIDATE MACRO FOR THE HP.F MICRO
  
          MACRO  VALMDL,MDL 
          QUAL   IPARAM 
 MDLNUM   MICRO  2,,-"HF.P"-
          IFC    NE,-"MDLNUM"-S-
          ELSE
 MDL      MICRO  1,,-73-
          ENDIF 
          IFC    NE,-"MDLNUM"-74- 
          IFC    NE,-"MDLNUM"-76- 
          ELSE
 MDL      MICRO  1,,-"MDLNUM"-
          ENDIF 
          IFC    NE,-"MDLNUM"-175-
          IFC    NE,-"MDLNUM"-176-
          ELSE
 MDL      MICRO  2,,-"MDLNUM"-
          ENDIF 
          IFC    NE,-"MDLNUM"-740-
          IFC    NE,-"MDLNUM"-750-
          IFC    NE,-"MDLNUM"-760-
          ELSE
 MDL      MICRO  1,,-75-
          ENDIF 
          IFC    NE,-"MDLNUM"-865-
          IFC    NE,-"MDLNUM"-875-
          IFC    NE,-"MDLNUM"-990-
          IFC    NE,-"MDLNUM"-994-
          IFC    NE,-"MDLNUM"-995-
          ELSE
 MDL      MICRO  1,,-76-
          ENDIF 
          IF     -MIC,MDL,2 
          LIST   A
          ERR    ILLEGAL VALUE OF HF.P MICRO = "MDLNUM" 
          QUAL   *
          ENDM
 OPTIONS  SPACE  3,40 
***       CALL OPERATING SYSTEM INSTALLATION PARAMETERS.
* 
*         CAUTION - THE TEXT CONTAINING THE INSTALLATION PARAMETERS 
*                SHOULD CONTAIN PARAMETER VALUES WHICH ARE CONSISTANT 
*                WITH THE CYBER MODEL THAT THIS COMPILER WILL BE
*                INSTALLED AND EXECUTED ON. 
* 
          QUAL   IPARAM 
          IPARAMS 
           DEFINHF
           IF    -MIC,HF.E      IF EXIT SEQUENTIAL NOT DEFINED. 
 CT7X      EQU   1              NORMAL EXIT SEQUENTAL NOT DEFINED 
           ELSE  1
 CT7X      EQU   0              NORMAL EXIT SEQUENTIAL DEFINED
          QUAL   *
* 
*         THE FOLLOWING SYMBOLS ARE SET USING VALUES OBTAINED FROM THE
*         PRECEDING CALL TO IPARAMS.
* 
*         CT.CPU IS THE COMPILE-TIME MACHINE.  IT HAS A VALUE EQUAL TO
*                THE LAST TWO CHARACTERS OF THE CYBER "HF.P" MICRO, I.E.
*                74, 75, 76. IT IS REFERENCED WHENEVER THE
*                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST 
*                BE KNOWN. FOR MACHINES WITH SERIAL CPU S "HF.P"
*                RETURNS AN *S*. 73D IS SUBSTITUTED FOR THE *S* VALUE.
*         .OS    IS THE COMPILE-TIME OPERATING SYSTEM.  IT IS SET TO 1
*                FOR NOS 1 OPERATING SYSTEMS, 2 FOR SCOPE 2 OPERATING 
*                SYSTEMS AND 3 FOR SCOPE 3  OPERATING SYSTEMS.
*                IT IS USED FOR CONDITIONAL ASSEMBLY OF CODE THAT IS
*                OPERATING SYSTEM DEPENDENT.  IT SHOULD NOT BE USED TO
*                DETERMINE MACHINE DIFFERENCES. 
  
 IP.MFL   =      /IPARAM/IP.MFL    MAXIMUM JOB FIELD LENGTH 
  
 MDL      VALMDL
 CT.CPU   EQU    "MDL"       COMPILE-TIME CPU 
  
 .OT      SET    1           SET FOR NOS
 #OS      IFC    EQ,/"OS.NAME"/SCOPE /
 .VER     MICRO  1,1,/"OS.VER"/ 
 .OT      SET    ".VER"      SET FOR SCOPE "OS.VER" 
 #OS      ENDIF 
 .OS      EQU    .OT         COMPILE-TIME OPERATING SYSTEM
 CT.7X    EQU    /IPARAM/CT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED
* 
*** 
 OPTIONS  SPACE  3,24 
***       CENTRAL PROCESSOR CONFIGURATION DECLARATIONS. 
  
  
*         **************************************************************
*         *                                                            *
*         *      TARGET ( OBJECT TIME ) CYBER 70/170 SERIES MODEL.     *
*         *                                                            *
*         *      ACCEPTABLE VALUES       OLDER MACHINE CROSS-REF       *
*         *            ----                       ----                 *
*         *                                                            *
*         *            71                         6400                 *
*         *            72                         6200                 *
*         *            73                         6400                 *
*         *            73-2                       6500                 *
*         *            74                         6600                 *
*         *            74-2                       6700                 *
*         *            76                         7600                 *
*         *            171                        6400                 *
*         *            172                        6400
*         *            173                        6400
*         *            174                        6400
*         *            175                        CYBER 175 CPU 
*         *            176                        7600
*         *                                                            *
*         *      IN A STANDARD INSTALLATION PROCEDURE THIS BOX MAY BE  *
*         *      IGNORED.  TO BUILD A CROSS-MODEL COMPILER, SELECT A   *
*         *      VALUE FROM THE LIST ABOVE, REMOVE THE ASTERISK, AND   *
*         *      INSERT THE PROPER VALUE ON THE FOLLOWING  LINE.       *
*         DEFMOD 74 
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,11 
*         **************************************************************
*         *                                                            *
*         *      INTER-WORD TIME PARAMETER (MODEL 6600 ONLY).          *
*         *                                                            *
*         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 6600     *
*         *      WITHOUT THE RNI ( READ NEXT INSTRUCTION ) AT P+2      *
*         *      EQUATE THE FOLLOWING PARAMETER TO FOUR (4).  FOR ALL  *
*         *      OTHER MACHINES, INCLUDING THE CYBER 74, EQUATE THE    *
*         *      PARAMETER TO ZERO.                                    *
 .IWT     EQU    0
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,17 
*         **************************************************************
*         *                                                            *
*         *      SELECT INPUT/OUTPUT SYSTEM USED DURING COMPILATION.   *
*         *      VALUE CHOSEN MUST AGREE WITH OPERATING SYSTEM         *
*         *      CAPABILITIES AND COMPILER INSTALLATION PROCEDURES.    *
*         *      VALUES ARE --                                         *
*         *                                                            *
*         *                  0 = USE CIO. (DEFAULT FOR LOWER CYBER)    *
*         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       *
*         *                                                            *
*         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *
*         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    *
*         *      THE FOLLOWING LINE.                                   *
*CP#RM    =      0                                                     *
*         *                                                            *
*         **************************************************************
          SPACE  4,8
*         **************************************************************
*         *                                                            *
*         *      SELECT USE OF *ECS* DURING COMPILATION FOR OPT=2 .    *
*         *      CHOSEN VALUE MUST AGREE WITH HARDWARE AVAILABILITY.   *
*         *      VALUES ARE -                                          *
*         *                                                            *
*         *                  1 = ECS AVAILABLE                         *
*         *                  0 = NO ECS AVAILABLE                      *
*         *                                                            *
*         *                  LOWER CYBER DEFAULT =                     *
*         *                        0  FOR KRONOS OPERATING SYSTEM      *
*         *                        /IPARAM/IP.MECS  FOR SCOPE          *
*         *                  CYBER 76 DEFAULT IS 1                     *
*         *                                                            *
*         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *
*         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    *
*         *      THE FOLLOWING LINE.                                   *
*CT.ECS   EQU    0                                                     *
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,12 
*         **************************************************************
*         *                                                            *
*         *      .CDCLIB - SPECIFY THAT THE FORTRAN OBJECT LIBRARY IS  *
*         *      THE CURRENT VERSION OF *CDC* *FCL*.  IF .CDCLIB IS    *
*         *      NOT ZERO, THEN WHEN OPT=2 AND *UO* ARE SELECTED, THE  *
*         *      COMPILER MAY ASSIGN B-REGISTERS IN LOOPS THAT CONTAIN *
*         *      REFERENCES TO THE BASIC FORTRAN LIBRARY FUNCTIONS     *
*         *      SUCH AS SIN, SQRT, EXP, ETC. 
*         *                                                            *
 .CDCLIB  EQU    1           MATH LIBRARY IS CURRENT *CDC* LIBRARY
*         *                                                            *
*         **************************************************************
          SPACE  4,8
*         **************************************************************
*         *                                                            *
*         *      SELECT OVERLAY STRUCTURE.  VALUES ARE -               *
*         *                                                            *
*         *                  0 = FAX AND REFMAP ARE LOADED AS PART     *
*         *                      OF THE (2,2) OVERLAY, PASS2.          *
*         *                  1 = FAX AND REFMAP ARE LOADED AS A        *
*         *                        SEPARATE OVERLAY. (DEFAULT)         *
*         *                                                            *
*         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *
*         *      EQUATE THE FOLLOWING PARAMETER TO 0.                  *
*         *                                                            *
 .OVL     =      1           FAX AND REFMAP ON SEPARATE OVERLAY 
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  4,10 
*         **************************************************************
*         *                                                            *
*         *      SELECT USES OF INTERACTIVE DEBUG.                     *
*         *      NOT SUPPORTED ON SCOPE 2.
*         *      PERMISSIBLE VALUES ARE --                             *
*         *                  1 = ASSEMBLE CODE FOR INTERACTIVE DEBUG   *
*         *                  (DEFAULT FOR LOWER CYBER)                 *
*         *                  0 = DO NOT ASSEMBLE INTER. DEBUG CODE     *
*         *                  (DEFAULT FOR CYBER 76)                    *
*         *                                                            *
*         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *
*         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE       *
*         *      ON THE FOLLOWING LINE.                                *
*.FID     =      1                                                     *
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,19 
*         **************************************************************
*         *                                                            *
*         *      SELECT INPUT/OUTPUT SYSTEM USED DURING EXECUTION.     *
*         *      VALUE CHOSEN MUST AGREE WITH THE CAPABILITIES OF THE  *
*         *      OPERATING SYSTEM THAT THE OBJECT PROGRAM WILL BE      *
*         *      LOADED ON. IT MAY ONLY BE 7 ON A CYBER 76 THAT IS RUN *
*         *      WITH A SCOPE 2.X OPERATING SYSTEM.                    *
*         *      VALUES ARE --                                         *
*         *                                                            *
*         *                  6 = USE 6RM. (DEFAULT FOR LOWER CYBER)    *
*         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       *
*         *                                                            *
*         *      THE DEFAULT FOR A CROSS-MODEL COMPILER IS "6".        *
*         *      TO SELECT A  VALUE DIFFERENT THAN THE ABOVE DEFAULT   *
*         *      VALUES, REMOVE THE ASTERISK AND INSERT THE DESIRED    *
*         *      VALUE ON THE FOLLOWING LINE.                          *
*OT#RM    =      6
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,8
*         **************************************************************
*         *                                                            *
*         *      SELECT WIDTH OF PAGE IN CHARACTERS WHEN COMPILER      *
*         *      LISTINGS ARE PRINTED AS A TERMINAL FILE.              *
*         *                                                            *
 PW.TTY   =      72 
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,15 
*         **************************************************************
*         *                                                            *
*         *      CALL FORMAT FOR LOADING COMPILER OVERLAYS.  VALUES -- *
*         *           2 = ISSUE TWO-WORD LOADER CALLS.                 *
*         *                  (UPPER CYBER, I.E. CYBER 76, DEFAULT)     *
*         *           3 = ISSUE THREE-WORD LOADER CALLS.               *
*         *                  (LOWER CYBER DEFAULT)                     *
*         *                                                            *
*         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    *
*         *      REMOVE THE ASTERISK AND INSERT THE DESIRED VALUE ON   *
*         *      THE FOLLOWING LINE.                                   *
*LDRCALL  =      3                                                     *
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  4,12 
*         **************************************************************
*         *                                                            *
*         *      SELECT TYPE OF LOADER TABLE FOR COMPILER OVERLAYS.    *
*         *      TABLE TYPE MUST AGREE WITH THAT OF THE OPERATING      *
*         *      SYSTEM OVERLAY LOADER, AND OF THE COMPASS ASSEMBLER.  *
*         *      PERMISSIBLE VALUES ARE --                             *
*         *            50 =  ASCM (5000) TABLE.                        *
*         *            54 = EACPM (5400) TABLE.   (DEFAULT)            *
*         *                                                            *
*LDRTABL  SET    54                                                    *
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,8
*         **************************************************************
*         *                                                            *
*         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      *
*         *                                                            *
 C        MICRO  1,,/#/ 
*         *                                                            *
*         **************************************************************
          SPACE  4,8
*         **************************************************************
*                                                                      *
*         *      SELECT USE OF C/-LIST OPTIONS TO CONDITIONALLY TURN   *
*         *      ON AND OFF SOURCE LISTING AT COMPILE TIME. TO DESELECT*
*         THIS OPTION, SET THE SYMBOL ON THE FOLLOWING LINE EQUAL TO 0. 
*         *                                                            *
 #NL      =      1
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,16 
*         **************************************************************
*         *                                                            *
*         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  *
*         *                                                            *
*         *                  CRM VALUES.                              * 
 L.FCLX   =      6           LENGTH OF FIT EXTENSION FOR FCL WSA
 L.FIT6   =      43B+L.FCLX  FIT LENGTH, +6 FOR FCL 
 L.IOBUF6 =      2003B       DEFAULT CIO BUFFER LENGTH
 L.TIN    =      101B        DEFAULT BUFFER FOR *INPUT* ON TERMINAL JOB 
 L.TOUT   =      401B        DEFAULT BUFFER FOR *OUTPUT* OF TERMINAL JOB
*         *                                                            *
*         *                  7RM VALUES                                *
 L.FIT7   =      16D         FIT LENGTH 
 L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  4,8
*         **************************************************************
*         *                                                            *
*         *      F I X E D   L E N G T H   T A B L E S.                *
*         *                                                            *
*         **************************************************************
*         *                                                            *
*         *      LENGTH OF INTERMEDIATE STORAGE AREA FOR ALL CON-      *
*         *      STANTS IN ANY ONE SOURCE STATEMENT.  EACH CONSTANT    *
*         *      BEGINS ON A NEW WORD BOUNDARY, AND IS PACKED AS TEN   *
*         *      DISPLAY-CODED CHARACTERS PER WORD.                    *
*         *                                                            *
 CONSTORS EQU    300D 
*         *                                                            *
*         **************************************************************
*         *                                                            *
*         *      LENGTH OF SAVED OPERATOR STACK.                       *
*         *                                                            *
 MXOSE    EQU    160D 
*         *                                                            *
*         **************************************************************
*         *                                                            *
*         *      LENGTH OF SAVED FUNCTION RESULT TABLE.                *
*         *                                                            *
 MXFRSTB  EQU    90D
*         *                                                            *
*         **************************************************************
*         *                                                            *
*         *      LENGTH OF *ARLIST* BUFFER.                            *
*         *                                                            *
 ARLSZ    EQU    3200B
*         *                                                            *
*         **************************************************************
*         *                                                            *
*         *      MAXIMUM LENGTH OF GLOBAL DEBUG CONSTANT TABLE.        *
*         *                                                            *
 S.GCON   =      200D 
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,13 
*         **************************************************************
*         *                                                            *
*         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         *
*         *                                                            *
*         *      WHEN THE FOLLOWING PARAMETER IS ZERO, <ARITH> WILL    *
*         *      ATTEMPT TO REPLACE X/C BY X*(1/C), WHERE [X] IS AN    *
*         *      EXPRESSION AND [C] IS A CONSTANT (REDUCTION IN        *
*         *      STRENGTH).  SET NON-ZERO TO DEFEAT THE FEATURE.       *
*         *                                                            *
 NOINVERT EQU    0
*         *                                                            *
*         **************************************************************
          SPACE  3
***       POST MORTEM DUMP INSTALLATION PARAMETERS
          SPACE  1
**        MAN.FL - POST PROCESSOR FIELD LENGTH
*                USED BY FORSYS=,PMDMP= 
MAN.FL    EQU    32000B      WAS 26000B, INCREASE FOR STATIC COMPILE    000130
                                         OF POST PROCESSOR.             000140
          SPACE  1
**        MAN.LINP - NUMBER OF LINES / PAGE 
*                USED BY FTN,PMDMP= 
MAN.LINP  EQU    84D
          SPACE  2
**        MAN.XJP - POST MORTEM DUMP COMMUNICATION WORD 
*                USED BY FORSYS=,PMDMP= 
MAN.XJP   EQU    51B
          SPACE  2
**        IDENTIFIERS FOR COMPILER TABLES ON ZZZZZSY
*                USED BY FTN,PMDMP= (DMPVAR)
          SPACE  1
ZZ.SYM    EQU    1           SYMBOL TABLE 
ZZ.COM    EQU    2           COMMON BLOCK TABLE 
ZZ.DIM    EQU    3           DIMENSION TABLE
          SPACE  3
L.PAGE    EQU    MAN.LINP 
 OPTIONS  SPACE  3,8
*         **************************************************************
*         *                                                            *
*         *      ERROR LISTING LINE LIMIT.                             *
*         *                                                            *
 ERRMAX   EQU    100D 
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,37 
*** 
*         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT COMPILE-TIME.  IF
*         THEY HAVE NOT BEEN DEFINED ABOVE BY THE INSTALLER, THEY ARE 
*         GIVEN DEFAULT VALUES WHICH ARE CONSISTENT WITH THE VALUE OF 
*         THE *HF.P* MICRO OBTAINED FROM A CALL TO *IPARAMS* AND
*         *DEFINHF* AT THE BEGINNING OF *OPTIONS*.
* 
*         CP#RM  IS THE COMPILE-TIME I/O FLAG.  IT IS DESCRIBED IN THE
*                *OPTIONS* COMDECK. 
* 
*         CT.ECS INDICATES WHETHER OR NOT ECS MIGHT BE AVAILABLE FOR
*                OPT=2 USE DURING COMPILATIONS. 
* 
*         LDRCALL DEFINES THE FORMAT OF LOADER CALLS.  IT IS DESCRIBED
*                IN THE *OPTIONS* COMDECK.
* 
*         LDRTABL  INDICATES THE TYPE OF LOADER TABLE THAT PREFIXES 
*                EACH COMPILER ABSOLUTE OVERLAY.
  
  
 #MD      IFEQ   CT.CPU,76   COMPILE-TIME CPU 
 #MD      IFEQ   .OS,2
  
*         CYBER 76 DEFAULT VALUES.
  
 #RM      IF     -DEF,CP#RM 
 CP#RM    EQU    7           USE 7RM AT COMPILE-TIME
 #RM      ENDIF 
  
 #LD      IF     -DEF,LDRCALL 
 LDRCALL  EQU    2           SELECT TWO-WORD LOADER CALLS 
 #LD      ENDIF 
  
 #ECS     IF     -DEF,CT.ECS
 CT.ECS   EQU    1           USE LCM AT COMPILE TIME
 #ECS     ENDIF 
  
 #FID     IF     -DEF,.FID
 .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE 
 #FID     ENDIF 
  
 #MD      ELSE
  
*         LOWER CYBER AND CYBER 170 SERIES DEFAULT VALUES.
  
 #RM      IF     -DEF,CP#RM 
 CP#RM    EQU    0           USE CIO AT COMPILE-TIME
 #RM      ENDIF 
  
 #LD      IF     -DEF,LDRCALL 
 LDRCALL  EQU    3           SELECT THREE-WORD LOADER CALLS 
 #LD      ENDIF 
  
 #ECS     IF     -DEF,CT.ECS,4
 #ECS     IF     DEF,/IPARAM/IP.MECS,2
 CT.ECS   EQU    /IPARAM/IP.MECS
 #ECS     SKIP   1
 CT.ECS   EQU    0
 #ECS     ENDIF 
  
 #FID     IF     -DEF,.FID
 .FID     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE
 #FID     ENDIF 
  
 #MD      ENDIF 
 OPTIONS  SPACE  4,14 
*         DEFINE COMPILER OVERLAY LOADER TABLE LENGTHS. 
  
          IF     -DEF,LDRTABL,1 
 LDRTABL  SET    54 
  
          IFEQ   LDRTABL,50,3 
 LDR.00   =      1
 LDR.NN   =      1
          SKIP   5
          IFEQ   LDRTABL,54,3 
 LDR.00   =      11B
 LDR.NN   =      5
          SKIP   1
          ERR    *LDRTABL* VALUE NOT 50 OR 54  "SEQUENCE" 
 OPTIONS  SPACE  4,3
*** 
 OPTIONS  SPACE  3,56 
*** 
*         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT OBJECT-TIME.  IF 
*         THEY HAVE NOT BEEN DEFINED BY THE  INSTALLER THEY ARE GIVEN 
*         DEFAULT VALUES CONSISTENT WITH THE OBJECT-TIME *MODEL* IF 
*         DEFINED ABOVE BY THE INSTALLER, OR IF THE OBJECT-TIME 
*         MODEL IS NOT DEFINED THEY ARE GIVEN VALUES CONSISTANT WITH
*         THE COMPILE-TIME MACHINE OBTAINED FROM *IPARAMS*. 
* 
*         .CPU   IS THE OBJECT-TIME CPU.  IT HAS A VALUE EQUAL TO THE 
*                LAST TWO CHARACTERS OF THE *HF.P* MICRO, I.E. 73, 74,
*                75, 76. IT IS TO BE USED FOR OBJECT-TIME HARDWARE
*                DIFFERENCES ONLY. IF THE *HF.P* MICRO RETURNS AN *S* 
*                THEN THE MACHINE HAS A SERIAL CPU AND *.CPU* IS
*                SET EQUAL TO 73D.
*         .DAL   IS A FLAG USED TO DETERMINE IF DIRECT ACCESS LCM IS
*                AVAILABLE.  IT IS SET TO 1 TO ALLOW DIRECT ACCESS OF 
*                LCM FOR FORTRAN *LEVEL 2* VARIABLES.  IF SET TO 0, 
*                FORTRAN *LEVEL 2* VARIABLES WILL BE CENTRAL MEMORY 
*                RESIDENT,  AND ACCESSED WITH SCM/CM OBJECT CODE. 
*         OT#RM  IS THE OBJECT-TIME I/O FLAG.  IT IS DESCRIBED IN THE 
*                *OPTIONS* COMDECK. 
  
 MDL      VALMDL
  
 .CPU     EQU    "MDL"       OBJECT TIME CPU
  
          QUAL   IPARAM 
          IPARAMS 
          DEFINHF 
  
          IF     -MIC,HF.S,2   IF SEQUENTIAL STACK NOT DEFINED
 LSTACK   EQU    -1 
          SKIP   5
 STACK    MICRO  2,,/"HF.S"/
          IFC    EQ,/"STACK"/0/,2 
 LSTACK   EQU    -1 
          SKIP   1
 LSTACK   EQU    "STACK"
  
          IF     -MIC,HF.L    IF LCM NOT DEFINED
 DAL      EQU    0           LCM ACCESS NOT ALLOWED 
 LCM      MICRO  1,,/ECS/ 
          ELSE
 LCM      MICRO  1,,/LCM/ 
 DAL      EQU    1           LCM ACCESS ALLOWED 
          ENDIF 
  
          IF     -MIC,HF.E     IF NORMAL EXIT SEQUENTIAL NOT DEFINED
 OT7X     EQU    1              NORMAL EXIT SEQUENTIAL NOT DEFINED
          ELSE   1
 OT7X     EQU    0              NORMAL EXIT SEQUENTIAL DEFINED
          QUAL   *
  
 L.STACK  EQU    /IPARAM/LSTACK+1    MAX INSTACK LOOP LENGTH + 1
 .DAL     EQU    /IPARAM/DAL        .NZ. IF LCM DIRECT ACCESS ALLOWED 
 OT.7X    EQU    /IPARAM/OT7X  .NZ. IFNORMAL EXIT SEQUENTIAL NOT DEFINED
 .NRFCO   EQU   1             HARDWARE NORMALIZE FCO INSTALLED
  
  
*         CYBER 76/176 DEFAULT VALUES.
  
 #MD      IFEQ   .CPU,76
  
 #RM      IF     -DEF,OT#RM 
 #OS      IFEQ   .OS,2
 OT#RM    EQU    7           USE 7RM FOR OBJECT TIME I/O
 #OS      ELSE
 OT#RM    =      6           USE *CRM* FOR OBJECT-TIME I/O
 #OS      ENDIF 
 #RM      ENDIF 
  
 SCM      MICRO  1,,/SCM/ 
  
 #MD      ELSE
  
*         LOWER CYBER DEFAULT VALUES. 
  
 #RM      IF     -DEF,OT#RM 
 OT#RM    EQU    6           USE 6RM FOR OBJECT TIME I/O
 #RM      ENDIF 
  
 SCM      MICRO  1,,/CM/
  
 #MD      ENDIF 
*** 
****
