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