COMSCPS 
COMMON
          CTEXT  COMSCPS - CPUMTR SUBFUNCTION CODES.
          SPACE  4
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       COMSCPS - CPUMTR SUBFUNCTION CODES. 
*         W. E. GOEBEL       74/11/15.
          SPACE  4
***              COMSCPS CONTAINS EQUIVALENCES FOR COMMUNICATION
*         OF SUBFUNCTION CODES USED IN CERTAIN MONITOR REQUESTS.
*         THE CONVENTION FOR SUBFUNCTION CODE MNEMONICS DEFINED IN
*         THIS DECK IS THAT ALL MNEMONICS ARE FOUR CHARACTERS 
*         ENDING IN *S*.
 ACTM     SPACE  4
**        ACTM - ACCOUNTING FUNCTIONS.
* 
*T        12/  ACTM,12/  FN,36/  -
*                FN = SUB-FUNCTION. 
  
  
*         RELATIVE ADDRESSES OF ACCUMULATORS RETURNED IN MB 
*         BY *ACTM* SUB-FUNCTION *ABVF*.
  
 ABSR     EQU    0           SRU (MUST BE RETURNED FIRST) 
 ABCP     EQU    1           CP 
 ABMS     EQU    2           MS 
 ABMT     EQU    3           MT 
 ABPF     EQU    4           PF 
 ABAD     EQU    5           AD 
 ABNA     EQU    6           NUMBER RETURNED
  
  
*         RELATIVE ADDRESSES OF ACCUMULATORS RETURNED IN MB 
*         BY *ACTM* SUB-FUNCTION *ABOF*.
  
 ABMP     EQU    0           MAP ACCUMULATOR
 ABAC     EQU    1           AUC ACCUMULATOR
 ABOD     EQU    2           OPTICAL DISK ACCUMULATOR 
 ABNB     EQU    3           END OF SECOND ACCOUNT BLOCK
  
  
*         SUB-FUNCTIONS CURRENTLY DEFINED.
  
 ABCS     EQU    0           CLEAR SRU ACCUMULATORS 
 ABBF     EQU    1           ACCOUNT BLOCK BEGIN
 ABSF     EQU    2           COMPUTE SRU MULTIPLIERS CPM AND IOM
 ABCF     EQU    3           ACCOUNT BLOCK CHANGE/END 
 ABEF     EQU    4           COMPUTE/CONVERT ELAPSED SRUS 
 ABVF     EQU    5           CONVERT ACCUMULATORS 
 ABIF     EQU    6           INCREMENT/DECREMENT ACCUMULATOR
 RWEM     EQU    7           DEFINE FOR *PLATO* ASSEMBLIES
 ABUS     EQU    7           APPLICATION ACCOUNTING 
 ABOF     EQU    10B         CONVERT OTHER ACCUMULATORS 
          SPACE  4,10 
**        AFAM - ACCESS FAST ATTACH.
  
  
 AFAS     EQU    0           ATTACH FAST ATTACH FILE
 RFAS     EQU    1           RELEASE FAST ATTACH FILE 
 BFMM     SPACE  4,10 
**        BFMM (LCM BUFFER MANAGER) OPERATION CODES.
  
  
 BMRD     EQU    0           READ BUFFER
 BMWR     EQU    1           WRITE BUFFER 
 BMRW     EQU    2           REWRITE BUFFER 
 BMVI     EQU    3           VALIDATE AND INTERLOCK BUFFER
 BMRG     EQU    4           RELEASE READ BUFFER AND GET NEXT BUFFER
 BMRB     EQU    5           RELEASE READ BUFFER
  
*         OPERATIONS TYPES BEYOND THIS POINT ARE FLUSH OR BUFFER
*         RELEASE FUNCTIONS AND MAY BE PERFORMED ON AN *OFF* OR 
*         *SUSPECT* DEVICE. 
  
 BMFO     EQU    6           BEGINNING OF FLUSH OPERATION TYPES 
  
 BMFL     EQU    6           FLUSH BUFFER 
 BMRF     EQU    7           RELEASE AND FLUSH WRITE BUFFER 
 BMFW     EQU    10B         FLUSH ALL WRITE BUFFERS
 BMTR     EQU    11B         TERMINATE SHARED DEVICE READ ACCESS
 BMTW     EQU    12B         TERMINATE SHARED DEVICE WRITE ACCESS 
  
*         OPERATION TYPES BEYOND THIS POINT REQUIRE NO DISK ACCESS AND
*         MAY BE PERFORMED ON A *DOWN* DEVICE.
  
 BMNO     EQU    13B         BEGINNING OF NON-DISK-ACCESS OPERATIONS
  
 BMDB     EQU    13B         DROP ALL BUFFERS FOR FILE
 BMDD     EQU    14B         DROP ALL BUFFERS ON DEVICE 
 BMCR     EQU    15B         COMPLETE SHARED DEVICE READ ACCESS REQUEST 
 BMCW     EQU    16B         COMPLETE SHARED DEVICE WRITE ACCESS REQUEST
 BMMX     EQU    17B         MAXIMUM *BFMM* SUBFUNCTION 
 BIOM     SPACE  4,10 
**        BIOM SUBFUNCTION CODES. 
  
  
 SUIS     EQU    0           SET UNIT INTERLOCK 
 DCBS     EQU    1           DELINK CONTROL BUFFERS 
 SETS     EQU    2           SET ERROR STATUS IN *CBT*
 IDSS     EQU    3           INHIBIT DATA STREAMING 
 CETS     EQU    4           CLEAR ERROR STATUS FROM I/O QUEUE
 CCAM     SPACE  4,10 
**        CCAM OPTIONAL SUBFUNCTION CODES.
* 
*         SEE *CPUMTR* FOR DOCUMENTATION OF VALID COMBINATIONS. 
  
  
 ALCS     EQU    400B        SET OR CLEAR ALTERNATE CP/PCP ASSIGNMENT 
 RCMS     EQU    1000B       REJECT CHANGE IF MOVE AT NEW CP/PCP
 RCPS     EQU    2000B       RESERVE CONTROL POINT
 ENRS     EQU    4000B       EJT ORDINAL NOT REQUIRED AT NEW CP/PCP 
 ECSM     SPACE  4,10 
 ECS      SPACE  4
**        BMIM SUBFUNCTION CODES. 
  
  
 ICMS     EQU    1           INVALIDATE CACHE BUFFER
          SPACE  4,10 
**        DSRM SUBFUNCTION CODES. 
  
  
 BEGIN    BSSN
 MSPS     BSSN   1           SET MONITOR STEP 
 STPS     BSSN   1           STEP MONITOR 
 EDTS     BSSN   1           ENTER DATE AND TIME
 ESPS     BSSN   1           SET EMERGENCY STEP 
 CSPS     BSSN   1           CLEAR MONITOR STEP 
 SKCS     BSSN   1           SET K DISPLAY COMPLETE BIT 
 MXDSRM   BSSN   0           NUMBER OF *DSRM* SUBFUNCTIONS
 END      BSSN
          SPACE  4,10 
**        EATM SUBFUNCTION CODES. 
  
  
 BEGIN    BSSN
 EEVS     BSSN   1           ENTER EVENT
 SEIS     BSSN   1           SET EVENT TABLE INTERLOCK
  
 UETMS    BSSN   0           UPDATE SYSTEM EVENT TIMES
 UHSS     BSSN   1           UPDATE 887 SPIN-UP TIME
 UETME    BSSN   0           END OF UPDATE TIME SUBFUNCTIONS
 END      BSSN
 MXEATM   EQU    UETME       MAXIMUM EATM SUBFUNCTIONS
          SPACE  4,10 
**        EATM - SYSTEM EVENT TIME INTERVALS (IN SECONDS).
  
  
 HSUEI    EQU    20D         HYDRA (887) DISK SPIN-UP 
          SPACE  4,10 
**        ECSM SUBFUNCTION CODES. 
  
  
 RRES     EQU    0           READ RELATIVE USER ECS 
 WRES     EQU    1           WRITE RELATIVE USER ECS
 RECS     EQU    2           READ ABSOLUTE SYSTEM ECS 
 WECS     EQU    3           WRITE ABSOLUTE SYSTEM ECS
 SFRS     EQU    4           SET FLAG REGISTER BITS 
 CFRS     EQU    5           CLEAR FLAG REGISTER BITS 
 PELS     EQU    6           PROCESS ECS ACCORDING TO LIST
 JACM     SPACE  4,10 
**        JACM OPTIONAL SUBFUNCTION CODES.
* 
*         SEE *CPUMTR* FOR DOCUMENTATION OF VALID COMBINATIONS. 
  
  
 CCPS     EQU    1           CLEAR CONTROL POINT AREA 
 DPPS     EQU    2           DROP PP
 CJES     EQU    4           CLEAR JOB EJT ENTRY
 CRCS     EQU    10B         REQUEST CPU
 MTEM     SPACE  4,10 
**        MTEM - *MTE* REQUEST SUBFUNCTIONS.
  
  
 BEGIN    BSSN
 CBRS     BSSN   1           CLEAR BAT READ ACCESS
 CBWS     BSSN   1           CLEAR BAT READ AND WRITE ACCESS
 CEMS     BSSN   1           CLEAR EXTENDED MEMORY TRACK
 EBRS     BSSN   1           ENABLE BRT PROCESSING
 SEPS     BSSN   1           SET *DAS* ERROR PROCESSING INTERLOCK 
 CEPS     BSSN   1           CLEAR *DAS* ERROR PROCESSING INTERLOCK 
 SRIS     BSSN   1           SET RECOVERY ERROR PROCESSING INTERLOCK
 CRIS     BSSN   1           CLEAR RECOVERY ERROR PROCESSING INTERLOCK
 RBPS     BSSN   1           RELEASE BAT/BST ACCESS PERMISSIONS 
 GRIS     BSSN   1           GET RECOVERY INTERLOCK STATUS
 SRPS     BSSN   1           SET *DAS* RESTORE PARITY INTERLOCK 
 CRPS     BSSN   1           CLEAR *DAS* RESTORE PARITY INTERLOCK 
 GBDS     BSSN   1           GET *BDT* ENTRY
 MXMTEM   BSSN   0           MAXIMUM MTEM SUBFUNCTIONS
 END      BSSN
 MTRM     SPACE  4,10 
**        MTRM TABLE IDENTIFICATION CODES.
  
  
 PFOT     EQU    1           FOT - FAMILY ORDINAL TABLE 
 PFNT     EQU    2           FNT - SYSTEM FNT 
 PQFT     EQU    3           QFT - QUEUE FILE TABLE 
 PEJT     EQU    4           EJT - EXECUTING JOB TABLE
 PODT     EQU    5           ORT - OPTICAL DISK REQUEST TABLE 
 PIO      SPACE  4,10 
**        PIOM - PP I/O SUBFUNCTIONS. 
* 
*         CAUTION - THE FOLLOWING ORDER FOR PIOM SUBFUNCTIONS MUST
*                   BE MAINTAINED.
  
  
 REBS     EQU    0           RESERVE WRITE BUFFER 
 RESS     EQU    1           PRU READ 
 WESS     EQU    2           PRU WRITE
 RDDS     EQU    3           DIRECT READ
 WDDS     EQU    4           DIRECT WRITE 
 FLBS     EQU    5           FLUSH WRITE BUFFER 
 LCRS     EQU    6           LOAD CM RESIDENT CODE
          SPACE  4,10 
**        PIOM RETURN STATUS CODES. 
  
  
 ERRS     EQU    1           I/O ERROR
 IFLS     EQU    400B        INSUFFICIENT FIELD LENGTH
 RCLS     EQU    4000B       WAIT FOR I/O (RECALL STATUS) 
 REIS     EQU    6000B       REISSUE FUNCTION (*PAUSE* OR I/O COMPLETE) 
 PLFM     SPACE  4,10 
**        PLFM - PROCESS LOCAL FNT ENTRY SUBFUNCTIONS.
  
  
 DLFS     EQU    0           DELETE LOCAL FILE ENTRY
 DLCS     EQU    1           DELETE LOCAL FILE ENTRY, RETURN COUNT
 CRFS     EQU    2           CREATE LOCAL FILE ENTRY
          SPACE  4,10 
**        MTR - CPUMTR RECALL CRITERION FUNCTIONS.
* 
*         *PTMF* MUST BE THE LAST RECALL FUNCTION (NUMERICALLY) TO
*         BE USED IN *RQRL*, IN ORDER TO INSURE PROPER PROCESSING.
  
  
 BEGIN    BSSN   1
 PCBF     BSSN   1           COMPLETION BIT RECALL CRITERION
 PTRF     BSSN   1           TIMED RECALL - NO ROLLOUT
 PTMF     BSSN   1           TIMED RECALL CRITERION 
 PBMF     BSSN   1           BUFFER MANAGER RECALL
 MXRF     BSSN   0           MAXIMUM RECALL FUNCTIONS 
 END      BSSN
 RCSC     SPACE  4,10 
**        RECALL STACK REASON CODES.
* 
*         DEFINE THE REASON WHY THE ENTRY WAS RECALLED. 
  
  
 CFIR     EQU    1           CM FL INCREASE PENDING 
 EFIR     EQU    2           ECS FL INCREASE PENDING
 NFIR     EQU    3           *NFL* INCREASE PENDING 
 MVPR     EQU    4           MOVE IN PROGRESS 
 PTLR     EQU    5           PRU TRANSFER LIMIT 
*         EQU    6           UNUSED 
 WEAR     EQU    7           WAIT EQUIPMENT ASSIGNMENT
 TIRR     EQU    10B         TRACK INTERLOCK REJECT 
 TRLR     EQU    11B         TRACK LIMIT ON FILE
 LBRR     EQU    12B         LCM BUFFER RECALL
 LBBR     EQU    13B         LCM BUFFER BUSY
 FIRR     EQU    14B         FLAG REGISTER INTERLOCK REJECT 
 PIRR     EQU    15B         PF SYSTEM INTERLOCK REJECT 
 SUTR     EQU    16B         SCP/UCP TERMINATION PENDING
 DTSR     EQU    17B         DETACHED TERMINAL JOB SUSPENSION 
 CCRR     EQU    20B         *CCAM* REJECT
 WFJR     EQU    21B         WAIT FOR JOB ROLLOUT 
 WFOR     EQU    22B         WAIT FOR INACCESSIBLE DEVICE 
 WFPR     EQU    23B         WAIT FOR PCP JOB ROLLOUT 
 RDCM     SPACE  4,10 
**        RDCM - REQUEST DATA CONVERSION. 
  
  
 RCIS     EQU    0 - 6       CONVERT 30-BIT INTEGER(S) TO F10.3 FORMAT
 RCDS     EQU    7           CONVERT 60-BIT INTEGER TO F20.3 FORMAT 
 RIDS     EQU    10B         INCREMENT CURRENT PACKED DATE BY TERM
 REPS     EQU    11B         ENCRYPT PASSWORD 
          SPACE  4
**        REQM SUBFUNCTION CODES. 
  
  
 REQS     EQU    0           REQUEST ANY NON-MASS STORAGE EQUIPMENT 
 RDES     EQU    1           REQUEST DOWN MASS STORAGE EQUIPMENT
 RVES     EQU    2           REQUEST MASS STORAGE EQUIPMENT (NOT DOWN)
 RLMM     SPACE  4,10 
**        RLMM - REQUEST LIMIT SUBFUNCTIONS.
* 
*T        12/  RLMM,12/  FN,18/0,18/VL
*                FN      SUB-FUNCTION 
*                VL      VALUE IF INCREMENT 
  
 RLCO     EQU    0           CLEAR OVERFLOW FLAGS 
 RLIT     EQU    1           INCREMENT JOB STEP TIME LIMIT
 RLIS     EQU    2           INCREMENT JOB STEP SRU LIMIT 
 RLJS     EQU    3           START JOB STEP 
 RLTL     EQU    4           SET TIME LIMIT 
 RLSL     EQU    5           SET SRU LIMIT
 RLIA     EQU    6           INCREMENT ACCOUNT BLOCK SRU LIMIT
 RTC      SPACE  4
**        RTCM DEVICE SELECTION PARAMETERS. 
  
  
 TMPS     EQU    0           TEMPORARY FILE DEVICES 
 INPS     EQU    1           INPUT FILE DEVICES 
 OUTS     EQU    2           OUTPUT FILE DEVICES
 ROLS     EQU    3           ROLLOUT FILE DEVICES 
 DAYS     EQU    4           DAYFILE DEVICES
 PRIS     EQU    5           PRIMARY FILE DEVICES 
 LOCS     EQU    6           LOCAL FILE DEVICES 
 LGOS     EQU    7           LGO FILE DEVICES 
 SROS     EQU    10B         SECONDARY ROLLOUT FILE DEVICES 
 R1OS     EQU    11B         RESERVED FOR CDC 
 TSDS     EQU    12B         TEMPORARY FILE SYSTEM DEVICES
 TNDS     EQU    13B         TEMPORARY NONSHARED DEVICES
 MXRS     EQU    14B         MAXIMUM *RTCM* DEVICE SELECTION TYPES
 ROCM     SPACE  4,10 
**        ROCM OPTIONS. 
* 
*         NOTE - IF MORE THAN ONE ROLLOUT CONTROL FLAG IS SET IN WORD 
*                *STSW* AT ROLLOUT TIME, *1RO* USES THE HIGHEST VALUE 
*                (LEFT-MOST) FLAG TO DETERMINE THE NEW JOB STATE. 
  
  
 ROSR     EQU    0           JOB SCHEDULER ROLLOUT
 ROTE     EQU    1           TIMED/EVENT ROLLOUT
 RODS     EQU    2           DISABLE JOB
 ROSC     EQU    4           SCP ROLLOUT
 ROSU     EQU    10B         SUSPEND JOB
 ROPR     EQU    20B         PSEUDO-ROLLOUT ALLOWED 
 SCSM     SPACE  4,10 
**        SCSM SUBFUNCTION CODES. 
  
  
 UPSS     EQU    0           UP CHANNEL 
 DWSS     EQU    1           DOWN CHANNEL 
 SCHS     EQU    2           SET CHANNEL DATA 
 SUCS     EQU    3           SET *UP* CHANNEL STATE 
 SICS     EQU    4           SET *IDLE* CHANNEL STATE 
 RVCS     EQU    5           REVERSE CHANNELS IN MST
 DAPS     EQU    6           DISABLE ACCESS PATH
 EAPS     EQU    7           ENABLE ACCESS PATH 
 SCT      SPACE  4,10 
**        SCTM SUBFUNCTION CODES. 
  
  
 CCSS     EQU    0           CONVERT CPU SCHEDULING PARAMETERS
 SEQ      SPACE  4,10 
**        SEQM SUBFUNCTION CODES. 
  
  
 BEGIN    BSSN
 ONES     BSSN   1           ON EQUIPMENT 
 IDES     BSSN   1           IDLE EQUIPMENT 
 OFES     BSSN   1           OFF EQUIPMENT
 DWES     BSSN   1           DOWN EQUIPMENT 
 SB0S     BSSN   1           SET BYTE 0 OF EST
 SB1S     BSSN   1           SET BYTE 1 OF EST
 SB2S     BSSN   1           SET BYTE 2 OF EST
 SB3S     BSSN   1           SET BYTE 3 OF EST
 SB4S     BSSN   1           SET BYTE 4 OF EST
 DNCS     BSSN   1           DOWN CHANNEL 
 UPCS     BSSN   1           UP CHANNEL 
          BSSN   1           UNUSED 
 CCNS     BSSN   1           CHANGE CONTROL POINT VALUE 
 ICNS     BSSN   1           INSERT CONTROL POINT 
          BSSN   1           UNUSED 
          BSSN   1           UNUSED 
 SMNS     BSSN   1           SET EQUIPMENT MNEMONIC 
 CSES     BSSN   1           CLEAR SUSPECT DEVICE 
 SSES     BSSN   1           SET SUSPECT DEVICE 
 CRES     BSSN   1           CLEAR RESTRICTED DEVICE
 SRES     BSSN   1           SET RESTRICTED DEVICE
          BSSN   1           UNUSED 
 CKPS     BSSN   1           CHECKPOINT SYSTEM
 MXSEQM   BSSN   0           MAXIMUM SEQM SUBFUNCTIONS
 END      BSSN
 SJCM     SPACE  4,10 
**        SJCM - SELECT JOB CONTROL PARAMETERS. 
  
  
 CPRS     EQU    0           SET CPU PRIORITY 
 CPUS     EQU    1           SELECT CPU FOR JOB 
 SCTS     EQU    2           SET JOB CONTROL FLAG(S)
 CCTS     EQU    3           CLEAR JOB CONTROL FLAG(S)
 SSIS     EQU    4           SET SUBSYSTEM IDENTIFICATION FIELD 
 SBKS     EQU    5           SET PP BREAKPOINT
 CBKS     EQU    6           CLEAR PP BREAKPOINT
 SAPS     EQU    7           SET *CPUPFM* ACTIVE
 CAPS     EQU    10B         CLEAR *CPUPFM* ACTIVE
 SSPS     EQU    11B         SET SCHEDULING PARAMETER INDEX 
  
  
*         MASKS FOR SCTS AND CCTS SUBFUNCTIONS. 
  
  
 PEMS     EQU    1           PRESERVE ECS OVER JOB STEPS
 SPMS     EQU    2           SET PRIVACY ID ON NEW FILES
 RPMS     EQU    4           RETURN JOB STEP PRIVATE FILES
 DJMS     EQU    10B         *DIS* JOB FLAG 
 SMD      SPACE  4
**        SMDM SUBFUNCTION CODES. 
  
  
 SLBS     EQU    0           SET LOCAL BIT.                    (STLL) 
 CLBS     EQU    1           CLEAR LOCAL BIT.                  (STLL) 
 IUCS     EQU    2           INCREMENT USER COUNT FIELD.       (STLL) 
 DUCS     EQU    3           DECREMENT USER COUNT FIELD.       (STLL) 
 SERS     EQU    4           SET ERROR STATUS.                 (STLL) 
 CERS     EQU    5           CONDITIONALLY CLEAR ERROR STATUS. (STLL) 
 IFCS     EQU    6           INCREMENT FAMILY COUNT.           (DULL) 
 DFCS     EQU    7           DECREMENT FAMILY COUNT.           (DULL) 
 TFIS     EQU    10B         TOGGLE FAMILY IDLE STATUS.        (DULL) 
 USTS     EQU    11B         UPDATE SYSTEM TABLE TRACK.        (DULL) 
 SFTS     EQU    12B         SET FAILING TRACK.                (NVGL) 
 CFTS     EQU    13B         CLEAR FAILING TRACK.              (NVGL) 
 SSTS     EQU    14B         SET EQUIPMENT STATE.              (DALL) 
 ICTS     EQU    15B         INCREMENT ERROR COUNTER.     (CTLL/EDLL) 
 CTCS     EQU    16B         CLEAR TABLES-CURRENT (ISHARED).   (SDGL) 
 C1AS     EQU    17B         CLEAR *1RU* ACTIVITY (ISHARED).   (MCLL) 
 STB      SPACE  4
**        STBM SUBFUNCTION CODES. 
  
  
 STFS     EQU    0           SET TRACK FLAWED STATUS
 CTFS     EQU    1           CLEAR TRACK FLAWED STATUS
 STIS     EQU    2           SET TRACK INTERLOCK BIT
 CTIS     EQU    3           CLEAR TRACK INTERLOCK BIT
 SPFS     EQU    4           SET PRESERVED FILE BIT 
 CPFS     EQU    5           CLEAR PRESERVED FILE BIT 
 UTRS     EQU    6           UPDATE CM COPY OF TRT
 UITS     EQU    7           UPDATE ISHARED TABLES
 IIQS     EQU    10B         INTERLOCK IQFT TRACK 
 SIQS     EQU    11B         SET IQFT TRACK 
 SGBS     EQU    12B         SET GLOBAL BIT OF MST
 CGBS     EQU    13B         CLEAR GLOBAL BIT OF MST
 IPAS     EQU    14B         INCREMENT PF ACTIVITY COUNT (DULL) 
 DPAS     EQU    15B         DECREMENT PF ACTIVITY COUNT (DULL) 
 SPIS     EQU    16B         SET PF INTERLOCK            (DULL) 
 CPIS     EQU    17B         CLEAR PF INTERLOCK          (DULL) 
 SIIS     EQU    20B         SET *INSTALL* INTERLOCK     (DULL) 
 CIIS     EQU    21B         CLEAR *INSTALL* INTERLOCK   (DULL) 
 SLTS     EQU    22B         SET LONG-TERM INTERLOCK     (MCLL) 
 CDIS     EQU    23B         CLEAR DEVICE INTERLOCK      (SDGL) 
 SDIS     EQU    24B         SET DEVICE INTERLOCK        (SDGL) 
*                            25B = UNUSED SUBFUNCTION (SEE *CPUMTR*)
 SVIS     EQU    26B         SET VERIFICATION INTERLOCK      (DULL) 
 CVIS     EQU    27B         CLEAR VERIFICATION INTERLOCK    (DULL) 
 SOUS     EQU    30B         SET OFFLINE UNIT (*DAS*)        (ACGL) 
 SRCS     EQU    31B         SET REMAINING CYLINDERS (*DAS*) (ACGL) 
 UADM     SPACE  4
**        UADM SUBFUNCTION CODES. 
* 
*T CODE   9/OP,2/DT,1/0 
*         OP     OPERATION CODE 
*                0 = LOW CORE UPDATE
*                1 = CONTROL POINT UPDATE 
*                2 - 7 = CONTROL POINT INCREMENT WITH SRU INCREMENT 
*                10 - 70 = SPECIAL FUNCTIONS
*         DT     INCREMENT/DECREMENT TYPE 
*                0 = INCREMENT BY SPECIFIED VALUE 
*                1 = INCREMENT BY ONE 
*                2 = DECREMENT BY ONE 
*                3 = DECREMENT BY SPECIFIED VALUE 
  
  
 LICS     EQU    00B         INCREMENT LOW CORE FIELD 
 LIOS     EQU    02B         INCREMENT LOW CORE FIELD BY ONE
 LDOS     EQU    04B         DECREMENT LOW CORE FIELD BY ONE
 LDCS     EQU    06B         DECREMENT LOW CORE FIELD 
  
 CICS     EQU    10B         INCREMENT CONTROL POINT FIELD
 CIOS     EQU    12B         INCREMENT CONTROL POINT FIELD BY ONE 
 CDOS     EQU    14B         DECREMENT CONTROL POINT FIELD BY ONE 
 CDCS     EQU    16B         DECREMENT CONTROL POINT FIELD
  
 AISS     EQU    20B         ACCOUNTING INCREMENT - IO (EXCEPT OD)
 AIAD     EQU    30B         ACCOUNTING INCREMENT - ADDER 
 AIMP     EQU    40B         ACCOUNTING INCREMENT - MP / OD 
 AIOD     EQU    40B         ACCOUNTING INCREMENT - MP / OD 
  
 CSFS     EQU    100B        SET CONTROL POINT FIELD TO VALUE 
 FRAS     EQU    300B        ADJUST *FRC*-BASED VALUES IN *CPUMTR*
  
 MXOS     EQU    4           MAXIMUM OPERATION CODE 
 UTEM     SPACE  4,10 
**        *COMPSFI* GLOBAL FNT INTERLOCK CODES USED FOR 
*         *UTEM* MONITOR FUNCTION.
  
  
 CEIN     EQU    20B+40B     CLEAR EJT INTERLOCK AND CHECK JOB ADVANCE
 CFIN     EQU    40B         CLEAR FILE INTERLOCK 
 SFIN     EQU    0           SET FILE INTERLOCK 
 VFIN     EQU    41B         VERIFY FILE NAME AND SET FILE INTERLOCK
          SPACE  4,10 
**        VMSM SUBFUNCTION CODES. 
  
  
 VEIS     EQU    0           VERIFY MST/TRT WITH DEVICE INTERLOCK 
 VEQS     EQU    1           VERIFY MST/TRT 
 VTCS     EQU    2           VERIFY TRACK CHAIN 
 VSAM     SPACE  4,10 
**        VSAM SUBFUNCTION CODES. 
  
  
 VJAS     EQU    0           SET JOB ACCESS LEVEL 
 VSFS     EQU    1           SET FILE ACCESS LEVEL
 VAES     EQU    2           VALIDATE ACCESS LEVEL FOR EQUIPMENT
 VAJS     EQU    3           VALIDATE ACCESS LEVEL/CATEGORY SET FOR JOB 
 VJCS     EQU    4           VALIDATE JOB CREATION PARAMETERS 
 VEDS     EQU    5           VALIDATE EXPIRATION DATE 
 VJLS     EQU    6           VALIDATE JOB ACCESS LEVEL LIMITS 
 STATUS   SPACE  4,10 
**        CPU STATUS CODES. 
*          (AS USED IN BITS 59-57 OF *STSW*)
* 
*         THESE CODES ARE USED BY *CPUMTR* TO DENOTE THE CPU STATUS 
*         OF THE ASSOCIATED CONTROL POINT.  THESE VALUES ARE *NOT*
*         TO BE CHANGED, AS CODE OPTIMIZATION IN *CPUMTR* TAKES 
*         ADVANTAGE OF THEIR PRESENT VALUES.
  
  
 ZCPS     EQU    0           ZERO (NULL) CPU STATUS 
 ACPS     EQU    1           JOB ACTIVE ON CPU-0
 BCPS     EQU    2           JOB ACTIVE ON CPU-1
*         EQU    3           ILLEGAL CPU STATUS 
 WCPS     EQU    4           JOB WAITING FOR CPU
 XCPS     EQU    5           JOB IN CPU RECALL
 ICPS     EQU    6           JOB WAITING FOR PP COMPLETION
*         EQU    7           ILLEGAL CPU STATUS 
          SPACE  4,10 
**        RESERVED ENTRY DEFINITIONS FOR MANAGED TABLES.
* 
*         THESE SYMBOLS DEFINE THE NUMBER OF TABLE ENTRIES RESERVED 
*         FOR SYSTEM JOBS.  SYSTEM JOBS ARE DESIGNATED ON THE *MTRM*
*         REQUEST (REFER TO *MTRM* DOCUMENTATION IN *CPUMTR*).  THE 
*         PURPOSE OF THESE SYMBOLS IS TO ENSURE THE LAST FEW ENTRIES
*         OF THE EJT AND QFT TABLE ARE ASSIGNED TO JOBS WHEN TABLE
*         FULL CONDITIONS ARE ENCOUNTERED.
  
  
 EJTR     EQU    5           NUMBER OF RESERVED EJT ENTRIES 
 QFTR     EQU    5           NUMBER OF RESERVED QFT ENTRIES 
  
          ENDX
