Retro1.org codex

          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