*COMDECK  IPARAMS            INSTALLATION PARAMETERS. 
 IPARAMS  CTEXT  INSTALLATION PARAMETERS. 
* 
          BASE   D
* 
IP.C64.1  CEQU   0                                                      001030
*                                  CDC 64 CHARACTER SET (PRINT1)        001040
IP.C64.2  CEQU   1                                                      001050
*                                  CDC 64 CHARACTER SET (ANSI)          001060
IP.HT     EQU    0           HALF TRACK RECORDING MODE. 
IP.FT     EQU    1           FULL TRACK RECORDING MODE. 
* 
* 
* 
*         INSERT IPARAMS MODIFICATIONS HERE.............................
* 
* 
*         DEFAULT VALUES
* 
* 
IP.ACNT   CEQU   0
*                            0 = NO REQUIRED ACCOUNTING 
*                            1 = ACCOUNTING INFORMATION ON THE JOB CARD 
*                            2 = ACCOUNTING INFO ON CARD AFTER JOB CARD 
IP.ARCH   CEQU   1
*                            0 = NO ARCHIVE RETRIEVAL 
*                            1 = AUTOMATIC ARCHIVE RETRIEVAL
 IP.BCFAP CEQU   2
*                            NUMBER OF CEFAP BUFFERS
IP.CMU    CEQU   0
*                            CMU HARDWARE NOT PRESENT 
IP.CP     CEQU   6
*                            6 FOR 026 PUNCHING, 9 FOR 029
IP.CPLM   CEQU   5
*                            CP TIME (SEC) INCR FOR EXIT/ERROR PROCCESS.
IP.CR     CEQU   69 
*                            6 FOR 026 CARDS READ,9=029,69=EITHER,026 
*                            DEFAULT,96=EITHER,029 DEFAULT
IP.C63    CEQU   2
*                            CDC 63 CHARACTER SET 
IP.CSET   CEQU   IP.C64.1                                               AT15  18
*                            SELECT CDC 64 CHARACTER SET                AT15  19
IP.C176   CEQU   0                                                      256180
*                            IF NZ CYBER 176 CODE WILL BE ASSEMBLED     256190
IP.DBAL   CEQU   3777B                                                   F4600IP
*                            DEFAULT BATCH (JOB) ACCESS LEVEL            F4600IP
IP.ECSB   CEQU   0
*                            ECS BUFFERING (0=OFF)
IP.IACES  CEQU   11D                                                     F4600IP
*                            ACCESS LEVEL                                F4600IP
IP.ILCMD  CEQU   1
*                            LAST INTERCOM COMMAND TO BE STORED 
*                            USER TABLE 
IP.IOLM   CEQU   100B 
*                            IO TIME (SEC) INCR FOR EXIT/ERROR PROCCESS.
IP.IQD    CEQU   6
*                            PRIORITY RE-EVALUATION DELAY (INPUT QUEUE) 
IP.IQPW   CEQU   3
*                            INPUT QUEUE PRIORITY WEIGHT
IP.IUSID  CEQU   2RBA 
*                            FIRST AVAILABLE LOW SPEED INTERCOM USER-ID 
IP.LINK   CEQU   1
*                            MAXIMUM NUMBER OF LINKS TO THIS MAINFRAME
IP.LVF    CEQU   70B
*                            LOWEST FIXED PRIORITY
IP.MCPU   CEQU   1
*                            NUMBER OF CPUS AVAILABLE 
IP.MECS   CEQU   0
*                            MAXIMUM ECS/1000B ON JOB CARD
IP.MFL    CEQU   140000B
*                            MAXIMUM CM FL ON JOB CARD
IP.MMS    CEQU   100B 
*                            MAX. M.S. LIMIT - PRUS/100B ON LIMIT CARD
IP.MPPU   CEQU   10D
*                            MAXIMUM PERIPHERAL PROCESSORS
IP.MPR    CEQU   20B
*                            MAXIMUM PRIORITY ON JOB CARD 
IP.MSCT   CEQU   0
*                            MAX NO. OF DAYFILE MESSAGES (VIA MSG ONLY) 
IP.MSLM   CEQU   200B 
*                            MASS STOR(PRU) INCR FOR EXIT/ERROR PROCESS.
IP.MTL    CEQU   77777B 
*                            MAXIMUM TIME LIMIT ON JOB CARD 
IP.NDFS   CEQU   1
*                            NUMBER OF DAYFILE COPIES ON OUTPUT 
IP.NJFL   CEQU   20B
*                            JOB ASSIGNED FL WHEN BROUGHT FROM INPUT Q. 
IP.OPRI   CEQU   0                                                      T10S  31
*                            OUTPUT PRIORITY SUBLEVEL CALCULATION       T10S  32
IP.OQD    CEQU   10B
*                            PRIORITY RE-EVALUATION DELAY (OUTPUT QUEUE)
IP.PD     CEQU   6
*                            PRINT DENSITY(LINES/INCH)
IP.PFRP   CEQU   5
*                            DEFAULT RETENTION PERIOD FOR P.F.S 
IP.POSFL  CEQU   5
*                            FL/100B RESERVED FOR SWAP OUT
IP.PS     CEQU   60D
*                            PAGE SIZE(LINES/PAGE)
IP.PPS2X  CEQU   2
*                            ALL PPS MAJOR CYCLE TIME (CYBER 170 ONLY)
*                            1= 1000 NANOSECONDS
*                            2= 500 NANOSECONDS 
* 
IP.RM     CEQU   IP.HT
*                            DEFAULT RECORDING MODE 
IP.SCHDE  CEQU   0
*                            TAPE SCHEDULING BY DENSITY DISABLED. 
IP.SECS   CEQU   0
*                            DEFAULT ECS FL/1000B (IF NOT ON JOB CARD)
 IP.SFL   CEQU   50000B 
*                            DEFAULT CM FL (IF NOT ON JOB CARD) 
IP.SIDLE  CEQU   1
*                            ENABLE SYSTEM IDLE CODE IF NON-ZERO
IP.SIOL   CEQU   0                                                      T10I  88
*                            DEFAULT IO TIME LIMIT                      T10I  89
IP.SMS    CEQU   0
*                            DEFAULT PRU LIMIT/100B 
IP.SPR    CEQU   10B
*                            DEFAULT PRIORITY 
IP.SPT    CEQU   0
*                            =0, NO EXECUTION STATISTICS GATHERED 
IP.SRMS   CEQU   0
*                            SHARED RMS DEVICES (0 = OFF) 
IP.STL    CEQU   100B 
*                            DEFAULT TIME LIMIT (IF NOT ON JOB CARD)
IP.TCPUB  CEQU   4
*                            EQUIVALENCE FACTOR,  IP.TCPUB*CPUA = 4*CPUB
IP.TYPE   CEQU   6600D
*                            CENTRAL PROCESSOR TYPE (6400 OR 6600)
IP.US     CEQU   0
*                            SIZE OF USER SLOT IN PFC ENTRY 
IP.XJ     CEQU   1           USE THE XJ INSTRUCTION 
*                            -1 = DONT USE XJ, BUT PROTECT AGAINST IT 
*                             0 = DONT USE XJ, NO PROTECTION
*                             1 = USE EXCHANGE JUMP 
*                             2 = USE EXCHANGE JUMP AND MAN FEATURE 
IP.YMD    CMICRO 3,(YMD)     DATE FORMAT (YY/MM/DD) 
*                            FORMAT OF THE DATE ENTRY (MM/DD/YY)
IP.1M1    CEQU   3
*                            NUMBER OF LOW SPEED INTERCOM DRIVERS 
*                            ALLOWED IN SYSTEM
IP.1WB    CEQU   2
*                            NUMBER OF HIGH SPEED INTERCOM DRIVERS
*                            ALLOWED IN SYSTEM
IP.1ZZ    CEQU   0
*                            NUMBER OF INTERCOM LCC DRIVERS 
*                            ALLOWED IN SYSTEM
 IP.819   CEQU   0           TURN 819 OFF 
* 
 DEFINHF  SPACE  4,10 
***       DEFINHF - DEFINE HARDWARE FEATURE MICROS. 
* 
*         DEFINES HARDWARE FEATURE MICROS BASED ON THE DEFINITION OF
*         THE HF.LIST MICRO.  THE MICROS DEFINED HAVE NAMES OF THE FORM 
*         *HF.ALPHA* WHERE ALPHA IS A INITIAL ALPHA SUBSTRING OF A
*         POTENTIALLY ALPHANUMERIC ELEMENT OF THE HF.LIST MICRO.  THE 
*         MICRO *HF.ALPHA*'S VALUE IS SET TO THE WHOLE ALPHANUMERIC 
*         HF.LIST ELEMENT(E.G. FOR HF.LIST = *P76,S10* WOULD CAUSE THE
*         MICROS HF.P = P76 AND HF.S = S10 TO EXIST). 
*         HF.P = PS IS DEFINED AS A DEFAULT AND WILL BE REDEFINED AS
*         SPECIFIED IN THE HF.LIST.  HF.E IS RETAINED TO MAINTAIN 
*         COMPATIBILITY WITH THE EARLIER CPUTEXT VERSION OF THIS MACRO. 
          SPACE  2
          PURGMAC DEFINHF 
  
 DEFINHF  MACRO 
          LOCAL  N
          PURGMAC '?SCP#DF,'?SCP#GN 
  
 '?SCP#DF MACRO  ARG
          IRP    ARG
 N        SET    0
          '?SCP#GN ARG
 '?SCP#NM MICRO  1,N, ARG 
 HF."'?SCP#NM" MICRO  1,, ARG 
          IRP 
 '?SCP#DF ENDM
  
 '?SCP#GN MACRO  ELM
*         ADVANCE N TO LAST ALPHA POSITION RECURSIVELY
 '?SCP#CH MICRO  1,1, ELM 
          IFC    NE, "'?SCP#CH"  ,4 
          IFC    LE,*"'?SCP#CH"*Z*,3
 '?SCP#CH MICRO  2,, ELM
 N        SET    N+1
          '?SCP#GN ("'?SCP#CH") 
 '?SCP#GN ENDM
  
 HF.P     MICRO  1,,*PS*
          IF     MIC,HF.LIST,1
          '?SCP#DF ("HF.LIST")
  
          IF     MIC,HF.ES,1
 HF.E     MICRO  1,, "HF.ES"
          IF     MIC,HF.PS,1
 HF.P     MICRO  1,, "HF.PS"
  
          PURGMAC '?SCP#DF,'SCP#GN
 DEFINHF  ENDM
 DEFMOD   SPACE  4
***       DEFMOD - REDEFINE MODEL MICRO 
* 
* 
*         DEFMOD MOD
* 
*         REDEFINES THE MODEL MICRO AS *MOD* AND DEFINES THE HF.LIST
*         MICRO BASED ON THE REDEFINED MODEL MICRO.  IF *MOD* IS OMITTED
*         THE MODEL MICRO IS NOT REDEFINED AND THE DEFINITION OF HF.LIST
*         WILL BE BASED ON THE CURRENT DEFINITION OF THE MODEL MICRO. 
* 
*         THE HF.LIST MICRO IS DEFINED AS A STRING OF ENTRIES SEPARATED 
*         BY COMMAS.  THE ENTRIES LIST HARDWARE FEATURES AVAILABLE
*         AS FOLLOWS: 
*         C      COMPARE/MOVE UNIT
*         ES     EXIT SEQUENTIAL.  MUST BE SET IF AND ONLY IF THE NORMAL
*                EXIT FROM AN EXTENDED MEMORY BLOCK COPY INSTRUCTION
*                EXECUTES THE NEXT INSTRUCTION(S) IN SEQUENCE AT THE
*                CURRENT PROGRAM ADDRESS.  THIS IS ONLY TRUE FOR THE
*                7600 AND CYBER 70 MODEL 76.
*         L      DIRECT ACCESS EXTENDED MEMORY
*         SX     X"0 REPRESENTS SIZE OF LONGEST POSSIBLE IN-STACK LOOP
*                IN WORDS.
*         PX     CENTRAL PROCESSOR
*                X=S    FOR SERIAL TYPE CPU (6200,6400,6500,CYBER 70
*                       MODELS 71-73, CYBER 170 MODELS 171-174, 720-730,
*                       AND 825-855)
*                X=74   FOR CYBER 70 MODEL 74, 6600 
*                X=175  FOR CYBER 170 MODEL 175 
*                X=750  FOR CYBER 170 MODEL 750.
*                X=760  FOR CYBER 170 MODEL 760.
*                X=176  FOR CYBER 170 MODEL 176 
*                X=76   FOR 7600 AND CYBER 70 MODEL 76
*                X=865  FOR CYBER 800 MODEL 865 
*                X=875  FOR CYBER 800 MODEL 875 
*                X=990  FOR CYBER 180 MODEL 990.
*                X=994  FOR CYBER 180 MODEL 994.
*                X=995  FOR CYBER 180 MODEL 995.
*         PSD    PROCESSOR EXCHANGE PACKAGE CONTAINS A PSD REGISTER.
*         CRW    660/670 INSTRUCTIONS PERFORM CENTRAL MEMORY READ/WRITE 
*                INSTEAD OF SB0 BJ+BK/SB0 BJ-BK.
  
  
          PURGMAC DEFMOD
  
 DEFMOD   MACRO  MOD
          IFC    NE,*MOD**,1
 MODEL    MICRO  1,,*MOD* 
  
          IFC    NE,*"MODEL"*72*
          IFC    NE,*"MODEL"*73*
          IFC    NE,*"MODEL"*172* 
          IFC    NE,*"MODEL"*173* 
          IFC    NE,*"MODEL"*174* 
          IFC    NE,*"MODEL"*720* 
          IFC    NE,*"MODEL"*730* 
          ELSE
 HF.LIST  MICRO  1,,*C,PS*
          ENDIF 
  
          IFC    NE,*"MODEL"*71*,1
          IFC    EQ,*"MODEL"*171*,1 
 HF.LIST  MICRO  1,,*PS*
  
          IFC    EQ,*"MODEL"*74*,1
 HF.LIST  MICRO  1,,*P74,S7*
  
          IFC    EQ,*"MODEL"*175*,1 
 HF.LIST  MICRO  1,,*P175,S10*
  
          IFC    NE,*"MODEL"*740* 
          IFC    NE,*"MODEL"*750* 
          IFC    NE,*"MODEL"*760* 
          ELSE
 HF.LIST  MICRO  1,,*P"MODEL",S10*
          ENDIF 
  
          IFC    EQ,*"MODEL"*76*,1
 HF.LIST  MICRO  1,,*P76,S10,L,ES,PSD*
  
          IFC    EQ,*"MODEL"*176*,1 
 HF.LIST  MICRO  1,,*P176,S10,L,PSD*
  
          IFC    NE,*"MODEL"*810* 
          IFC    NE,*"MODEL"*815* 
          IFC    NE,*"MODEL"*825* 
          IFC    NE,*"MODEL"*830* 
          ELSE
 HF.LIST  MICRO  1,,*C,PS,CRW,L*
          ENDIF 
  
          IFC    NE,*"MODEL"*835* 
          IFC    NE,*"MODEL"*840* 
          IFC    NE,*"MODEL"*845* 
          IFC    NE,*"MODEL"*850* 
          IFC    NE,*"MODEL"*855* 
          IFC    NE,*"MODEL"*860* 
          IFC    NE,*"MODEL"*870* 
          IFC    NE,*"MODEL"*960* 
          ELSE
 HF.LIST  MICRO  1,,*PS,CRW,L*
          ENDIF 
  
          IFC    NE,*"MODEL"*865* 
          IFC    NE,*"MODEL"*875* 
          ELSE
 HF.LIST  MICRO  1,,*P"MODEL",S10,CRW,L*
          ENDIF 
  
          IFC    NE,*"MODEL"*990* 
          IFC    NE,*"MODEL"*994* 
          IFC    NE,*"MODEL"*995* 
          ELSE
 HF.LIST  MICRO  1,,*P"MODEL",S48,CRW,L*
          ENDIF 
  
          IF     -MIC,HF.LIST,1 
 HF.LIST  MICRO  1,,*PS*
* 
* 
 DEFMOD   ENDM
 MODEL    CMICRO 2,(74)            LENGTH OF MICRO,MODEL NUMBER 
* 
*         OPERATING SYSTEM NAME AND VERSION DEFINITIONS 
* 
OS.NAME   CMICRO 6,(KRONOS) 
* 
*                            OPERATING SYSTEM NAME
OS.VER    CMICRO 4,(2.1 ) 
*                            OPERATING SYSTEM VERSION 
OS.ID     CMICRO 10,(NOS 2.8.7) 
*                            OPERATING SYSTEM IDENTIFICATION
.819.     IFNE   IP.819,0 
 IP.C176  EQU    1           176 COMPUTER 
 IP.AUTEC EQU    0           NO 844 BUFFERING 
.819.     ENDIF 
* 
*                            DEFINE DEFAULT HF.LIST 
          IF     -MIC,HF.LIST,1 
          DEFMOD
  
*         DEFINITION OF CPU PRIORITY LEVELS 
PR.IDLE   EQU    0                 IDLE PROGRAM 
PR.BATCH  CEQU   1                 BATCH JOBS 
PR.INT    CEQU   PR.BATCH+1        INTERCOM 
PR.SCP    CEQU   PR.INT+1          SYSTEM CONTROL POINT 
PR.SYS    CEQU   PR.SCP+1          SYSTEM JOB (SCHEDULER, STORAGE MOVE) 
**
* 
* 
*         SYMBOLS DEFINED BETWEEN HERE AND THE END OF COMDECK IPARAMS 
*         ARE INVARIANT.  THEY MUST NOT BE CONSIDERED INSTALLATION
*         CHANGABLE.
* 
* 
IP.CC7    CEQU   1
IP.CHTIM  CEQU   1
IP.INTCM  CEQU   1
IP.DEBUG  CEQU   1
IP.IDFM   CEQU   1
IP.MREWR  CEQU   0
IP.PFAC   CEQU   0
IP.RPMAX  CEQU   999
IP.RTMTR  CEQU   0
IP.SEP    CEQU   1
 IP.TF    CEQU   0
IP.UP     CEQU   10B
IP.IMUL   CEQU   1                                                      1429   9
IP.ILR    CEQU   0                                                      1379   6
* 
          BASE   *
* 
 IPARAMS  ENDX
