*DECK     IPTEXT  - INSTALLATION PARAMETER SYSTEM MACROS. 
          IDENT  IPTEXT 
          STEXT 
          LIST   F,X
          TITLE  IPTEXT - INSTALLATION PARAMETER SYSTEM MACROS. 
          COMMENT   INSTALLATION PARAMETER SYSTEM MACROS. 
 IPTEXT   SPACE  4
***       IPTEXT  - INSTALLATION PARAMETER SYSTEM MACROS. 
* 
* 
*         CONTROL DATA  PROPRIETARY PRODUCT.
*         COPYRIGHT CONTROL DATA SYSTEMS, INC. 1994.
 IPTEXT   SPACE  4
***              IPTEXT CONTAINS THE SYSTEM MACROS USED BY PROGRAMS 
*         THAT ARE USED WITH, BUT NOT PART OF, THE CDC CYBER
*         OPERATING SYSTEM, TO OBTAIN ASSEMBLY-TIME ACCESS TO THE 
*         VALUES OF THE OPERATING SYSTEM INSTALLATION PARAMETERS. 
 CEQU     SPACE  4
***       CEQU - CONDITIONAL EQUATE.
* 
* 
* SYMBOL  CEQU   VALUE
* 
*         DEFINE *SYMBOL* EQUAL TO *VALUE* IF *SYMBOL* IS NOT 
*         PREVIOUSLY DEFINED. 
  
  
          PURGMAC CEQU
  
  MACRO CEQU,IPSYMBOL,DEFAULT 
  IF -DEF,IPSYMBOL,1
IPSYMBOL EQU DEFAULT
CEQU ENDM 
 CMICRO   SPACE  4
***       CMICRO - CONDITIONAL MICRO. 
* 
* 
* MNAME   CMICRO COUNT,STRING 
* 
*         DEFINE *MNAME* AS A MICRO CONSISTING OF THE FIRST 
*         *COUNT* CHARACTERS IN *STRING* IF THE MICRO *MNAME* 
*         IS NOT PREVIOUSLY DEFINED.  *STRING* MAY CONTAIN ANY
*         CHARACTERS EXCEPT DOLLAR SIGN ($).
  
  
          PURGMAC CMICRO
  
  MACRO CMICRO,LOC,COUNT,STRING 
  IF -MIC,LOC,1 
LOC MICRO 1,COUNT,$_STRING_$
CMICRO ENDM 
 IPARAMS  SPACE  4
***       IPARAMS - DEFINE INSTALLATION PARAMETERS. 
* 
* 
*         IPARAMS 
* 
*         DEFINE ALL SYMBOLS AND MICROS IN THE *IPARAMS* COMMON DECK. 
  
  
          PURGMAC IPARAMS 
  
 IPARAMS  MACRO 
***       *CALL  IPARAMS     AT THIS IDENT+1
*CALL     IPARAMS            SCOPE 3 INSTALLATION PARAMETERS. 
 IPARAMS  ENDM
 END      SPACE  4
          END    IPTEXT 
