*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 "MODEL" MICRO
*                       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. 
* 
 PSR      MICRO  1,,$871$ 
 LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME
 VER      MICRO  1,3,/5.1/
          IF     MIC,PSR,2
 MODLVL   MICRO  1,9,$"PSR"         $ 
          SKIP   1
 MODLVL   MICRO  1,9,$"MODLEVEL"         $
 VALMDL   SPACE  2
**        VALMDL - VALIDATE MODEL MICRO 
  
          MACRO  VALMDL,MDL,HFP 
 .1       MICCNT HFP
 .2       MICRO  .1,1,/"HFP"/ 
          IFC    EQ,/".2"/S/
 MDL      MICRO  1,,/73/
          ELSE
 MDL      MICRO  1,,/7".2"/ 
          ENDIF 
          IFC    NE,/"HFP"/P740/
          IFC    NE,/"HFP"/P750/
          IFC    NE,/"HFP"/P760/
          ELSE
 MDL      MICRO  1,,/74/
          ENDIF 
          IFC    NE,/"HFP"/P990/
          IFC    NE,/"HFP"/P994/
          IFC    NE,/"HFP"/P995/
          ELSE
 MDL      MICRO  1,,/76/
 CPU990   MICRO  1,,/990/ 
          ENDIF 
          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 
          IF     -DEF,IP.PD,1 
 IP.PD    EQU    6           TEMPORARY UNTIL OPERATING SYSTEM CONFORMS
          IF     -DEF,IP.PS,1 
 IP.PS    EQU    60          TEMPORARY UNTIL OPERATING SYSTEM CONFORMS
          DEFINHF 
          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 FIRST TWO CHARACTERS OF THE CYBER "MODEL", I.E.
*                72, 73, 74, OR 76.  IT IS REFERENCED WHENEVER THE
*                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST 
*                BE KNOWN.
*         .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 
 IP.CSET  =      /IPARAM/IP.CSET
 IP.C63   =      /IPARAM/IP.C63 
  
 TPD      SET    0
          ECHO   2,A=(3,4,6,8),B=(6,8,6,8)
          IFEQ   A,/IPARAM/IP.PD,1
 TPD      SET    B
          ERRZR  TPD         IP.PD MUST BE 3, 4, 6, OR 8
 IP.PD    =      TPD         DEFAULT PRINT DENSITY
 IP.PS    =      /IPARAM/IP.PS     DEFAULT PAGE SIZE
  
 MDL      VALMDL HF.P 
 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
* 
*** 
 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, DO ONE     * 
*         *      OF THE FOLLOWING :                                   * 
*         *                                                           * 
*         *      A) SELECT A VALUE FROM THE LIST ABOVE, REMOVE BOTH   * 
*         *         ASTERISKS, AND INSERT THE PROPER VALUE ON THE     * 
*         *         FOLLOWING LINE. 
*         DEFMOD 74 
*         DEFINHF 
*         *                                                           * 
*         *      B) EQUATE THE FOLLOWING PARAMETER TO 1. THIS WILL    * 
*         *         CAUSE A MODEL-INDEPENDENT COMPILER TO BE BUILT.   * 
*         *         (NOTE - THIS BUILD PROCEDURE IS INCOMPATIBLE      * 
*         *         WITH THE SCOPE 2 OPERATING SYSTEM)                * 
 .MI      EQU    0
*         *                                                           * 
*         **************************************************************
 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 = 3 IS 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 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  4,8
*         **************************************************************
*         *                                                            *
*         *      SELECT MINIMUM FIELD LENGTH INSTALLATION.             *
*         *      THIS OPTION FORCES ALL BUFFERS INTO MINIMAL           *
*         *      ALLOCATIONS IN ORDER TO COMPILE IN AN                 *
*         *      ABSOLUTE MINIMUM FIELD LENGTH.  THIS IS               *
*         *      ACCOMPLISHED AT THE EXPENSE OF COMPILE SPEED, AND     *
*         *      IS RECOMMENDED ONLY FOR 32K SCM 7600-STYLE SYSTEMS.   *
*         *                                                            *
*         *      TO SELECT THIS OPTION, SET .MINFL TO 1 ON THE         *
*         *      FOLLOWING LINE.                                       *
 .MINFL   =      0
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,8
*         **************************************************************
*         *                                                            *
*         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      *
*         *                                                            *
 FC       MICRO  1,,/#/ 
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,16 
*         **************************************************************
*         *                                                            *
*         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  *
*         *                                                            *
*         *                  6RM VALUES                                *
 L.FIT6   =      19D+9D      FIT LENGTH 
 L.FET6   =      13D         FET LENGTH 
 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   =      22D         FIT LENGTH 
 L.FET7   =      0           FET LENGTH 
 L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3,13 
*         **************************************************************
*         *                                                            *
*         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         *
*         *                                                            *
*         *      WHEN THE FOLLOWING PARAMETER IS ZERO, *CONRED* 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
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  3
*         **************************************************************
*         *                                                            *
*         *      SELECT RUN TIME CHECK FOR INTEGER DIVIDE BY ZERO      *
*         *                                                            *
*         *      WHEN THE FOLLOWING PARAMETER IS SET TO 1, INTEGER     *
*         *      DIVIDE BY ZERO WILL BE TRAPPED AT RUN TIME AND        *
*         *      THE RUNNING JOB WILL BE STOPPED. THE COST FOR         *
*         *      THIS WILL BE TWO ADDITIONAL INSTRUCTIONS FOR          *
*         *      EVERY INTEGER DIVIDE. THIS FEATURE SHOULD NOT BE      *
*         *      USED FOR AN APPLICATION JOB THAT IS INTEGER DIVIDE    *
*         *      INTENSIVE OR IF IT IS FELT THAT PERFORMANCE           *
*         *      OF THE APPLICATION JOB WILL BE ADVERSELY AFFECTED.    *
*         *                                                            *
 .IDC     EQU    0
*         *                                                            *
*         **************************************************************
 OPTIONS  SPACE  2
***   ***   THERE ARE NO INSTALLATION OPTIONS BELOW THIS LINE ***   *** 
 DEFAULTS TITLE  INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED. 
*** 
*         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 *MODEL* MICRO OBTAINED FROM A CALL TO *IPARAMS* 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. 
  
 #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 
  
 #ECS     IF     -DEF,CT.ECS
 CT.ECS   EQU    1           USE LCM AT COMPILE TIME
 #ECS     ENDIF 
  
 .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE 
  
 #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 
  
 #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     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE
  
 #MD      ENDIF 
 DEFAULTS SPACE  4,10 
**        IF .MI HAS BEEN EQUATED TO 1, FORCE A 176 STYLE BUILD, AND
*         CAUSE AN ASSEMBLY ERROR IF .OS = 2 (SCOPE 2). 
  
          IFEQ   .MI,1,3
          ERRZR  .OS-2
          DEFMOD 176
          DEFINHF 
  
 DEFAULTS SPACE  4,8
*         SELECT SYSTEM- OR TEST-MODE COMPILER CONFIGURATION. 
  
*IF DEF,TEST,1
 TEST     =      1           ASSEMBLE COMPILER IN TEST MODE 
*IF -DEF,TEST,1 
 TEST     =      0           ASSEMBLE COMPILER IN SYSTEM MODE 
  
 SC2ZERO  SET    .OS-2
 .SPY     =      SC2ZERO/SC2ZERO*TEST 
* 
*** 
 DEFAULTS EJECT 
*** 
*         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 
*                FIRST TWO CHARACTERS OF THE *MODEL* MICRO, I.E. 72,
*                73, 74, OR 76.  IT IS TO BE USED FOR OBJECT-TIME 
*                HARDWARE DIFFERENCES ONLY. 
*         .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 HF.P 
  
 .CPU     EQU    "MDL"       OBJECT TIME CPU
          IF     -MIC,HF.S
 L.STACK  EQU    0
          ELSE
 .1       MICRO  2,,/"HF.S"/
 L.STACK  EQU    ".1"+1 
          ENDIF 
          IF     MIC,HF.L 
 .DAL     EQU    1
          ELSE
 .DAL     EQU    0
          ENDIF 
  
 #MD      IFEQ   .CPU,76
  
*         CYBER 76 DEFAULT VALUES.
  
 #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
 #OS      ENDIF 
 #RM      ENDIF 
  
 SCM      MICRO  1,,/SCM/ 
 LCM      MICRO  1,,/LCM/ 
  
 #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/
 LCM      MICRO  1,,/ECS/ 
  
 #MD      ENDIF 
****
