CETEXT
          IDENT  CETEXT 
          STEXT 
*COMMENT  CETEXT - ENGINEERING SUPPORT TEXT.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          TITLE  CETEXT - ENGINEERING SERVICES SUPPORT TEXT.
          LIST   X
*CALL     COMSESS 
          LIST   *
 MACROES  SPACE  4,10 
          TITLE  MACRO DEFINITIONS. 
***       MACRO DEFINITIONS.
 CECSA    SPACE  4,10 
          ENDM
 CEVAL    SPACE  4,10 
***       CEVAL - CUSTOMER ENGINEERING VALIDATION.
* 
*         CEVAL  ADDR,VO
* 
*         ENTRY  ADDR = ADDRESS OF PARAMETER BLOCK. 
*                VO = PARAMETER SPECIFYING USER VALIDATION ONLY.
* 
*         EXIT
*         ADDR IS THE ADDRESS OF A USER SUPPLIED PARAMETER BLOCK
*         RETURNED BY *CVL* WITH WORD 0 AND OTHER FIELDS COMPLETED. 
*T ADDR+0 48/ ,6/  RC,5/ ,1/C 
*T ADDR+1 5/ VB,6/ ,1/X,36/ ,12/  ESTO
*T ADDR+2 5/ VB,4/ S,2/ ,1/X,12/  CH4,12/  CH3,12/  CH2,12/  CH1
*T ADDR+3 5/ VB,4/ S,2/ ,1/X,36/ ,12/  EQPN 
*T ADDR+4 5/ VB,4/ S,2/ ,1/X,36/ ,12/  UN 
*T ADDR+5 5/ VB,4/ S,2/ ,1/X,36/ ,12/  DEVC 
*T ADDR+6 53/ ,7/  FC 
*T ADDR+7 5/ VB,6/ ,1/X,24/ ,24/ PACK SN
*T ADDR+7 5/ VB,6/ ,1/X,24/ ,24/ RAE/FLE
*                WHERE -
*                RC (11-6) = RESPONSE CODE (SET BY *CVL*).
*                            0 = VALIDATION GRANTED.
*                            2 = VALIDATION GRANTED, ELEMENT MIGHT BE 
*                                SHARED WITH ANOTHER MAINFRAME. 
*                            4 = VALIDATION DENIED, ELEMENT NOT IN EST. 
*                            5 = VALIDATION DENIED, CRITICAL
*                                INFORMATION MAY BE DESTROYED.
*                            6 = VALIDATION DENIED, ELEMENT IN USE. 
*                            7 = VALIDATION DENIED, SHARE BYTE NOT SET. 
*                C (0) = COMPLETE BIT (SET BY *CVL*). 
*                VB (59-55) = VALIDATION ERROR BITS (SET BY *CVL*). 
*                             BIT 59 SET = ERROR IN WORD. 
*                             BIT 58 SET = ERROR IN BYTE 1. 
*                             BIT 57 SET = ERROR IN BYTE 2. 
*                             BIT 56 SET = ERROR IN BYTE 3. 
*                             BIT 55 SET = ERROR IN BYTE 4. 
*                X (48) = DATA IN WORD (SUPPLIED BY CALLER - IF NOT 
*                         SET, *CVL* SUPPLIES MISSING FIELD). 
*                X (48) = DATA IN WORD (SUPPLIED BY CALLER).
*                ESTO (11-0) = EST ORDINAL OF ELEMENT.
*                S = SHARE BITS - IF SET, REQUESTS EXCLUSIVE ACCESS.
*                            BIT 54 = FOR ELEMENT IN BYTE 1.
*                            BIT 53 = FOR ELEMENT IN BYTE 2.
*                            BIT 52 = FOR ELEMENT IN BYTE 3.
*                            BIT 51 = FOR ELEMENT IN BYTE 4.
*                CHX = CHANNEL NUMBERS. 
*                EQPN (11-0) = EQUIPMENT (CONTROLLER) NUMBER. 
*                UN (11-0) = UNIT NUMBER. 
*                DEVM (23-12) = DEVICE MNEMONIC.
*                DEVC (11-0) = DEVICE CODE (SEE TABLE *TDVC*).
*                FC (6-0) = FUNCTION BITS.
*                           BIT 0 = LOAD CONTROLLER MEMORY. 
*                           BIT 1 = WILL WRITE ON UNIT. 
*                           BIT 2 = WILL USE NON - PREALLOCATED AREA. 
*                           BIT 6 = ELEMENT NOT IN EST. 
*                           BIT 7 = SPECIAL REQUEST FLAG. 
*                                 FOR *ECS* THIS BIT IS IGNORED IF
*                                 *NPRE* (BIT 2) IS NOT SET.
*                                  0 = WILL ACCESS ALL OF NORMAL *ECS*
*                                      IF *DOWN* BIT SET IN EST.
*                                  1 = WILL ACCESS MAINTENANCE MODE 
*                                      HALF OF *ECS* IF MAINTENANCE 
*                                      MODE BIT IN THE ASSOCIATED MST 
*                                      IS SET.
*                PACK SN = PACK SERIAL NUMBER IN BCD CODE.
*                RAE/FLE = ECS REFERENCE ADDRESS AND ECS FIELD LENGTH.
  
  
          PURGMAC CEVAL 
  
 CEVAL    MACRO  A,V
  R= X1,A 
  IFC NE,$V$$ 
  SX2 3 
  ELSE
  SX2 1 
  ENDIF 
  RJ =XCVL= 
  ENDM
          EJECT 
***       CEMEM - MEMORY REFERENCE ADDRESS REQUEST. 
* 
*         CEMEM  ADDR 
* 
*         ENTRY  ADDR = ADDRESS OF 2 WORD PARAMETER BLOCK.
* 
*         EXIT
*         ADDR IS THE ADDRESS OF THE USER SUPPLIED PARAMETER BLOCK OF 
*         2 WORDS THAT WILL BE COMPLETED BY *CVL* PRIOR TO
*         RETURNING CONTROL TO THE USER.
*T ADDR+0 24/RA,24/FL,11/0,1/C
*T ADDR+1 24/RAX,24/FLX,12/0
*                WHERE -
*                RA (59-36) = CENTRAL MEMORY ADDRESS FROM EXCHANGE PK.
*                FL (35-12) = FIELD LENGTH OF ASSIGNED CM FROM EXCH PK. 
*                C (0)      = COMPLETE BIT (SET BY *CVL*).
*                RAX (59-36)= ECS ADDRESS FROM EXCHANGE PACKAGE.
*                FLX (35-12)= ECS FIELD LENGTH FROM EXCHANGE PACKAGE. 
  
  
          PURGMAC  CEMEM
  
 CEMEM    MACRO  A
  SX1 A 
  SX2 5 
  RJ =XCVL= 
  ENDM
 CESAB    SPACE  4,10 
**        CESAB - GET SYSTEM ATTRIBUTE BLOCK. 
* 
*         CESAB  ADDR,VN
* 
*         ENTRY  ADDR - CM ADDRESS OF BUFFER TO HOLD THE MAINFRAME
*                       ATTRIBUTE BLOCK.
*                VN = VERSION NUMBER. 
*                     0 - RETURN OLD FORMAT (DEFAULT).
*                     1 - RETURN NEW FORMAT.
* 
*         EXIT   ADDR CONTAINS THE FOLLOWING- 
* 
*T,ADDR   12/ ,12/ LNGTH,24/ ,6/ RC,5/ VN,1/C 
*T,ADDR+1 12/ PPSD,24/ CMSZ,12/ ,12/ OPTN 
*T,ADDR+2 60/FIRST VARIABLE ENTRY 
*T,ADDR+N 60/LAST VARIABLE ENTRY
  
*         WHERE - 
  
*         LNGTH  NUMBER OF CM WORDS IN THE RESPONSE.
*         RC     RESPONSE CODE (ALWAYS 0).
*         VN     VERSION NUMBER OF FORMAT RETURNED. 
*         C      COMPLETION BIT 
*         PPSD   PP SPEED 
*         CMSZ   CM SIZE
*         OPTN   OPTIONS INSTALLED
*         VARIABLE ENTRY - SEE *CEVAL* INTERFACE SPECIFICATION. 
* 
*         CALLS  CVL=.
  
  
          PURGMAC  CESAB
  
 CESAB    MACRO  A,V
  R= X1,A 
  SX2 4 
  IFC NE,$V$$,3 
  R= X6,V 
  LX6 6 
  BX2 X6+X2 
  RJ =XCVL= 
  ENDM
          TITLE  TAG EQUIVALENCES.
***       THE FOLLOWING TAGS ARE DEFINED IN THE SCOPE OS STYLE AND
*         EQUIVALENCED TO THE KRONOS STYLE TAGS DEFINED IN THE COMMON 
*         DECK *COMSESS*. 
* 
* 
 CE.ECS   SPACE  4,15 
**        CE.ECSRA/CE.ECSFL TAGS FOR THE DEADSTART DIAGNOSTIC 
*         SEQUENCER.
  
  
 CE.ECSRA EQU    ECSRA
 CE.ECSFL EQU    ECSFL
          IFLT   CE.ECSFL,10B,1 
 P        ERR    ECS FL MUST BE 1000B OR GREATER
          SPACE  4
          END 
